/* GCC MELT GENERATED FILE warmelt-first.0+2.c - DO NOT EDIT */ /* secondary MELT generated C file of rank #2 */ #include "run-melt.h" /**** warmelt-first.0+2.c declarations ****/ #define MELT_HAS_INITIAL_ENVIRONMENT 0 /**!!** *** Copyright 2008, 2009 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_first_COMPARE_NAMED_ALPHA(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_first_INSTALL_CTYPE_DESCR(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_first_ADD_NEW_SYMBOL_TOKEN(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_first_ADD_NEW_KEYWORD_TOKEN(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_first_INTERN_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_6_warmelt_first_INTERN_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_7_warmelt_first_CLONE_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_8_warmelt_first_INITFRESH_CONTENVMAKER(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_first_INITVALUE_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_10_warmelt_first_INITVALUE_IMPORTER(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_first_INITMACRO_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_12_warmelt_first_INITPATMACRO_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_13_warmelt_first_INIT_EXITFINALIZER(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_first_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_15_warmelt_first_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_first_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_17_warmelt_first_AT_EXIT_FIRST(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_first_AT_EXIT_LAST(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_first_INIT_UNITSTARTER(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_first_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_21_warmelt_first_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_22_warmelt_first_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_23_warmelt_first_AT_START_UNIT_FIRST(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_first_AT_START_UNIT_LAST(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_first_INIT_UNITFINISHER(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_first_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_27_warmelt_first_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_first_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_first_AT_FINISH_UNIT_FIRST(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_first_AT_FINISH_UNIT_LAST(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_first_DISPLAY_DEBUG_MESSAGE(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_first_DEBUGMSG(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_first_MAPOBJECT_EVERY(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_first_MAPOBJECT_ITERATE_TEST(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_first_MAPSTRING_EVERY(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_first_MAPSTRING_ITERATE_TEST(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_first_LIST_EVERY(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_first_LIST_ITERATE_TEST(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_first_LIST_APPEND2LIST(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_first_LIST_MAP(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_first_LIST_FIND(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_first_LIST_TO_MULTIPLE(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_first_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_44_warmelt_first_PAIRLIST_TO_MULTIPLE(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_first_MULTIPLE_EVERY(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_first_MULTIPLE_BACKWARD_EVERY(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_first_MULTIPLE_EVERY_BOTH(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_first_MULTIPLE_ITERATE_TEST(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_first_MULTIPLE_MAP(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_first_MULTIPLE_TO_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_51_warmelt_first_CLOSURE_EVERY(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_first_ROUTINE_EVERY(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_first_LIST1(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_first_LIST2(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_first_LIST3(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_first_LIST4(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_first_LIST5(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_first_LIST6(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_first_INSTALL_METHOD(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_first_DBG_OUTOBJECT(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_first_DBG_OUT(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_first_DBGOUT_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_63_warmelt_first_DBGOUTAGAIN_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_64_warmelt_first_DBGOUT_NULL_METHOD(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_first_DBGOUT_STRING_METHOD(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_first_DBGOUT_INTEGER_METHOD(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_first_DBGOUT_MIXINT_METHOD(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_first_DBGOUT_MIXLOC_METHOD(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_first_DBGOUT_MIXBIGINT_METHOD(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_first_DBGOUT_MULTIPLE_METHOD(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_first_DBGOUT_ROUTINE_METHOD(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_first_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_73_warmelt_first_DBGOUT_CLOSURE_METHOD(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_first_DBGOUT_LIST_METHOD(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_first_DBGOUT_PAIR_METHOD(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_first_DBGOUT_BOX_METHOD(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_first_COMPARE_OBJ_RANKED(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_first_DBGOUT_MAPOBJECT_METHOD(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_first_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_80_warmelt_first_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_81_warmelt_first_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_first_MAPOBJECT_SORTED_ATTRIBUTE_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_83_warmelt_first_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_first_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_85_warmelt_first_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_first_DBGOUT_MAPSTRING_METHOD(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_first_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_first_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_first_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_first_DBGOUT_ANYOBJECT_METHOD(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_first_DBGOUT_ANYRECV_METHOD(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_first_DBGOUTAGAIN_ANYOBJECT_METHOD(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_first_DBGOUT_NAMEDOBJECT_METHOD(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_first_DBGOUTAGAIN_NAMEDOBJECT_METHOD(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_first_DBGOUT_SYMBOL_METHOD(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_first_DBGOUTAGAIN_SYMBOL_METHOD(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_first_DBGOUT_CLASS_METHOD(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_first_DBGOUT_KEYWORD_METHOD(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_first_DBGOUTAGAIN_KEYWORD_METHOD(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_first_DBGOUT_CLONED_SYMBOL_METHOD(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_first_DBGOUTAGAIN_CLONED_SYMBOL_METHOD(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_first_DBGOUT_ENVIRONMENT_METHOD(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_first_DBGOUT_CTYPE_METHOD(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_first_DBGOUTAGAIN_CTYPE_METHOD(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_first_FRESH_ENV(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_first_FIND_ENV(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_first_FIND_ENV_DEBUG(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_first_FIND_ENCLOSING_ENV(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_first_PUT_ENV(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_first_OVERWRITE_ENV(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_first_DEBUG_MSG_FUN(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_first_DBGOUT_ANYBINDING_METHOD(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_first_POST_INITIALIZATION(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; /**** warmelt-first.0+2.c implementations ****/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_first_DBGOUT_PAIR_METHOD(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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_75_warmelt_first_DBGOUT_PAIR_METHOD_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 CURFRAM_NBVARPTR 15 void* varptr[15]; #define CURFRAM_NBVARNUM 7 long varnum[7]; /*others*/ long _spare_; } *framptr_=0, curfram__; 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<15; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 15; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("DBGOUT_PAIR_METHOD", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:3984:/ getarg"); /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:3984:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL); /*getarg#2*/ MELT_LOCATION("warmelt-first.melt:3984:/ getarg"); if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:3984:/ block"); /*block*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:3985:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:3985:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));; MELT_LOCATION("warmelt-first.melt:3985:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:3985:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:3985:/ cond.else"); MELT_LOCATION("warmelt-first.melt:3985:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:3985:/ locexp"); melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (3985)?(3985):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:3985:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:3985:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:3985:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-first.melt:3986:/ block"); /*block*/{ /*_.DIS__V6*/ curfptr[4] = (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; MELT_LOCATION("warmelt-first.melt:3987:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V7*/ curfptr[6] = slot; }; ; /*_#__L3*/ curfnum[1] = ((/*_.DIS__V6*/ curfptr[4]) == ((/*!DISCR_PAIR*/ curfrout->tabval[1])));; MELT_LOCATION("warmelt-first.melt:3988:/ cond"); /*cond*/ if (/*_#__L3*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:3988:/ cond.then"); MELT_LOCATION("warmelt-first.melt:3988:/ block"); /*block*/{ { MELT_LOCATION("warmelt-first.melt:3989:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " *pa(."));} ; /*epilog*/} ; } else {MELT_LOCATION("warmelt-first.melt:3988:/ cond.else"); MELT_LOCATION("warmelt-first.melt:3988:/ block"); /*block*/{ { MELT_LOCATION("warmelt-first.melt:3991:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " |"));} ; MELT_LOCATION("warmelt-first.melt:3992:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V8*/ curfptr[7] = slot; }; ; { MELT_LOCATION("warmelt-first.melt:3992:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V8*/ curfptr[7])));} ; { MELT_LOCATION("warmelt-first.melt:3993:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "(."));} ; MELT_LOCATION("warmelt-first.melt:3990:/ block"); /*block*/{} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:3988:/ clear"); /*clear*/ /*_.NAMED_NAME__V8*/ curfptr[7] = 0 ;} ; } ; MELT_LOCATION("warmelt-first.melt:3994:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V9*/ curfptr[7] = slot; }; ; /*_#GET_INT__L4*/ curfnum[3] = (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V9*/ curfptr[7])));; /*_#NEED_DBGLIM__L5*/ curfnum[4] = (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) < (/*_#GET_INT__L4*/ curfnum[3]));; MELT_LOCATION("warmelt-first.melt:3994:/ cond"); /*cond*/ if (/*_#NEED_DBGLIM__L5*/ curfnum[4]) /*then*/ { MELT_LOCATION("warmelt-first.melt:3994:/ cond.then"); MELT_LOCATION("warmelt-first.melt:3994:/ block"); /*block*/{ /*_.PAIR_HEAD__V11*/ curfptr[10] = (melt_pair_head((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; /*_#I__L6*/ curfnum[5] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; MELT_LOCATION("warmelt-first.melt:3996:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:3996:/ apply.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2]; MELT_LOCATION("warmelt-first.melt:3996:/ apply.arg"); argtab[1].bp_long = /*_#I__L6*/ curfnum[5]; /*_.DBG_OUT__V12*/ curfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.PAIR_HEAD__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-first.melt:3997:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#DEPTH__L1*/ curfnum[0]), 64);} ; /*_.PAIR_TAIL__V13*/ curfptr[12] = (melt_pair_tail((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; /*_#I__L7*/ curfnum[6] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; MELT_LOCATION("warmelt-first.melt:3998:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:3998:/ apply.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2]; MELT_LOCATION("warmelt-first.melt:3998:/ apply.arg"); argtab[1].bp_long = /*_#I__L7*/ curfnum[6]; /*_.DBG_OUT__V14*/ curfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.PAIR_TAIL__V13*/ curfptr[12]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-first.melt:3995:/ block"); /*block*/{ /*_.PROGN___V15*/ curfptr[14] = /*_.DBG_OUT__V14*/ curfptr[13];;} ; /*_.IF___V10*/ curfptr[9] = /*_.PROGN___V15*/ curfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:3994:/ clear"); /*clear*/ /*_.PAIR_HEAD__V11*/ curfptr[10] = 0 ; MELT_LOCATION("warmelt-first.melt:3994:/ clear"); /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ; MELT_LOCATION("warmelt-first.melt:3994:/ clear"); /*clear*/ /*_.DBG_OUT__V12*/ curfptr[11] = 0 ; MELT_LOCATION("warmelt-first.melt:3994:/ clear"); /*clear*/ /*_.PAIR_TAIL__V13*/ curfptr[12] = 0 ; MELT_LOCATION("warmelt-first.melt:3994:/ clear"); /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ; MELT_LOCATION("warmelt-first.melt:3994:/ clear"); /*clear*/ /*_.DBG_OUT__V14*/ curfptr[13] = 0 ; MELT_LOCATION("warmelt-first.melt:3994:/ clear"); /*clear*/ /*_.PROGN___V15*/ curfptr[14] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:3994:/ cond.else"); /*_.IF___V10*/ curfptr[9] = NULL;; } ; { MELT_LOCATION("warmelt-first.melt:3999:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( ".)"));} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:3986:/ clear"); /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ; MELT_LOCATION("warmelt-first.melt:3986:/ clear"); /*clear*/ /*_.SBUF__V7*/ curfptr[6] = 0 ; MELT_LOCATION("warmelt-first.melt:3986:/ clear"); /*clear*/ /*_#__L3*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:3986:/ clear"); /*clear*/ /*_.DBGI_MAXDEPTH__V9*/ curfptr[7] = 0 ; MELT_LOCATION("warmelt-first.melt:3986:/ clear"); /*clear*/ /*_#GET_INT__L4*/ curfnum[3] = 0 ; MELT_LOCATION("warmelt-first.melt:3986:/ clear"); /*clear*/ /*_#NEED_DBGLIM__L5*/ curfnum[4] = 0 ; MELT_LOCATION("warmelt-first.melt:3986:/ clear"); /*clear*/ /*_.IF___V10*/ curfptr[9] = 0 ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:3984:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("DBGOUT_PAIR_METHOD", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_75_warmelt_first_DBGOUT_PAIR_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_first_DBGOUT_BOX_METHOD(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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_76_warmelt_first_DBGOUT_BOX_METHOD_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 CURFRAM_NBVARPTR 12 void* varptr[12]; #define CURFRAM_NBVARNUM 6 long varnum[6]; /*others*/ long _spare_; } *framptr_=0, curfram__; 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<12; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 12; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("DBGOUT_BOX_METHOD", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4004:/ getarg"); /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4004:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL); /*getarg#2*/ MELT_LOCATION("warmelt-first.melt:4004:/ getarg"); if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4004:/ block"); /*block*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4005:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4005:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));; MELT_LOCATION("warmelt-first.melt:4005:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4005:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4005:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4005:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4005:/ locexp"); melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4005)?(4005):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4005:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4005:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4005:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-first.melt:4006:/ block"); /*block*/{ /*_.DIS__V6*/ curfptr[4] = (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; MELT_LOCATION("warmelt-first.melt:4007:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V7*/ curfptr[6] = slot; }; ; /*_#__L3*/ curfnum[1] = ((/*_.DIS__V6*/ curfptr[4]) == ((/*!DISCR_BOX*/ curfrout->tabval[1])));; MELT_LOCATION("warmelt-first.melt:4008:/ cond"); /*cond*/ if (/*_#__L3*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4008:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4008:/ block"); /*block*/{ { MELT_LOCATION("warmelt-first.melt:4009:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " *box[<"));} ; /*epilog*/} ; } else {MELT_LOCATION("warmelt-first.melt:4008:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4008:/ block"); /*block*/{ { MELT_LOCATION("warmelt-first.melt:4011:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " |"));} ; MELT_LOCATION("warmelt-first.melt:4012:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V8*/ curfptr[7] = slot; }; ; { MELT_LOCATION("warmelt-first.melt:4012:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V8*/ curfptr[7])));} ; { MELT_LOCATION("warmelt-first.melt:4013:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "[<"));} ; MELT_LOCATION("warmelt-first.melt:4010:/ block"); /*block*/{} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4008:/ clear"); /*clear*/ /*_.NAMED_NAME__V8*/ curfptr[7] = 0 ;} ; } ; MELT_LOCATION("warmelt-first.melt:4014:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V9*/ curfptr[7] = slot; }; ; /*_#GET_INT__L4*/ curfnum[3] = (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V9*/ curfptr[7])));; /*_#NEED_DBGLIM__L5*/ curfnum[4] = (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) < (/*_#GET_INT__L4*/ curfnum[3]));; MELT_LOCATION("warmelt-first.melt:4014:/ cond"); /*cond*/ if (/*_#NEED_DBGLIM__L5*/ curfnum[4]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4014:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4014:/ block"); /*block*/{ /*_.BOX_CONTENT__V11*/ curfptr[10] = melt_box_content((meltbox_ptr_t)(/*_.SELF__V2*/ curfptr[1]));; /*_#I__L6*/ curfnum[5] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; MELT_LOCATION("warmelt-first.melt:4015:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4015:/ apply.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2]; MELT_LOCATION("warmelt-first.melt:4015:/ apply.arg"); argtab[1].bp_long = /*_#I__L6*/ curfnum[5]; /*_.DBG_OUT__V12*/ curfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.BOX_CONTENT__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IF___V10*/ curfptr[9] = /*_.DBG_OUT__V12*/ curfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4014:/ clear"); /*clear*/ /*_.BOX_CONTENT__V11*/ curfptr[10] = 0 ; MELT_LOCATION("warmelt-first.melt:4014:/ clear"); /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ; MELT_LOCATION("warmelt-first.melt:4014:/ clear"); /*clear*/ /*_.DBG_OUT__V12*/ curfptr[11] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4014:/ cond.else"); /*_.IF___V10*/ curfptr[9] = NULL;; } ; { MELT_LOCATION("warmelt-first.melt:4016:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( ">]"));} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4006:/ clear"); /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4006:/ clear"); /*clear*/ /*_.SBUF__V7*/ curfptr[6] = 0 ; MELT_LOCATION("warmelt-first.melt:4006:/ clear"); /*clear*/ /*_#__L3*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4006:/ clear"); /*clear*/ /*_.DBGI_MAXDEPTH__V9*/ curfptr[7] = 0 ; MELT_LOCATION("warmelt-first.melt:4006:/ clear"); /*clear*/ /*_#GET_INT__L4*/ curfnum[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4006:/ clear"); /*clear*/ /*_#NEED_DBGLIM__L5*/ curfnum[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4006:/ clear"); /*clear*/ /*_.IF___V10*/ curfptr[9] = 0 ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4004:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("DBGOUT_BOX_METHOD", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_76_warmelt_first_DBGOUT_BOX_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_first_COMPARE_OBJ_RANKED(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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_77_warmelt_first_COMPARE_OBJ_RANKED_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 CURFRAM_NBVARPTR 76 void* varptr[76]; #define CURFRAM_NBVARNUM 25 long varnum[25]; /*others*/ long _spare_; } *framptr_=0, curfram__; 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<76; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 76; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("COMPARE_OBJ_RANKED", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4023:/ getarg"); /*_.X1__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4023:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.BXRK1__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.BXRK1__V3*/ curfptr[2])) != NULL); /*getarg#2*/ MELT_LOCATION("warmelt-first.melt:4023:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.X2__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.X2__V4*/ curfptr[3])) != NULL); /*getarg#3*/ MELT_LOCATION("warmelt-first.melt:4023:/ getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.BXRK2__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.BXRK2__V5*/ curfptr[4])) != NULL); /*getarg#4*/ MELT_LOCATION("warmelt-first.melt:4023:/ getarg"); if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs; /*_.VLESS__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.VLESS__V6*/ curfptr[5])) != NULL); /*getarg#5*/ MELT_LOCATION("warmelt-first.melt:4023:/ getarg"); if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs; /*_.VEQ__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.VEQ__V7*/ curfptr[6])) != NULL); /*getarg#6*/ MELT_LOCATION("warmelt-first.melt:4023:/ getarg"); if (xargdescr_[5] != BPAR_PTR) goto lab_endgetargs; /*_.VGREAT__V8*/ curfptr[7] = (xargtab_[5].bp_aptr) ? (*(xargtab_[5].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.VGREAT__V8*/ curfptr[7])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4023:/ block"); /*block*/{ /*_#__L1*/ curfnum[0] = ((/*_.X1__V2*/ curfptr[1]) == (/*_.X2__V4*/ curfptr[3]));; MELT_LOCATION("warmelt-first.melt:4024:/ cond"); /*cond*/ if (/*_#__L1*/ curfnum[0]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4024:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4024:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4025:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.VEQ__V7*/ curfptr[6];; MELT_LOCATION("warmelt-first.melt:4025:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IFELSE___V9*/ curfptr[8] = /*_.RETURN___V10*/ curfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4024:/ clear"); /*clear*/ /*_.RETURN___V10*/ curfptr[9] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4024:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4024:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4026:/ block"); /*block*/{ /*_.X1DIS__V12*/ curfptr[11] = (melt_discr((melt_ptr_t)(/*_.X1__V2*/ curfptr[1])));; /*_.X2DIS__V13*/ curfptr[12] = (melt_discr((melt_ptr_t)(/*_.X2__V4*/ curfptr[3])));; /*_#RK1__L2*/ curfnum[1] = (melt_get_int((melt_ptr_t)(/*_.BXRK1__V3*/ curfptr[2])));; /*_#RK2__L3*/ curfnum[2] = (melt_get_int((melt_ptr_t)(/*_.BXRK2__V5*/ curfptr[4])));; /*_#__L4*/ curfnum[3] = ((/*_.X1DIS__V12*/ curfptr[11]) != (/*_.X2DIS__V13*/ curfptr[12]));; MELT_LOCATION("warmelt-first.melt:4031:/ cond"); /*cond*/ if (/*_#__L4*/ curfnum[3]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4031:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4031:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4032:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.X1DIS__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V15*/ curfptr[14] = slot; }; ; MELT_LOCATION("warmelt-first.melt:4033:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.X2DIS__V13*/ curfptr[12]), 1, "NAMED_NAME");/*_.NAMED_NAME__V16*/ curfptr[15] = slot; }; ; /*_#STRING___L5*/ curfnum[4] = melt_string_less((melt_ptr_t)(/*_.NAMED_NAME__V15*/ curfptr[14]), (melt_ptr_t)(/*_.NAMED_NAME__V16*/ curfptr[15]));; MELT_LOCATION("warmelt-first.melt:4032:/ cond"); /*cond*/ if (/*_#STRING___L5*/ curfnum[4]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4032:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4032:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4034:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.VLESS__V6*/ curfptr[5];; MELT_LOCATION("warmelt-first.melt:4034:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IFELSE___V17*/ curfptr[16] = /*_.RETURN___V18*/ curfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4032:/ clear"); /*clear*/ /*_.RETURN___V18*/ curfptr[17] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4032:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4032:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4035:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.VGREAT__V8*/ curfptr[7];; MELT_LOCATION("warmelt-first.melt:4035:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IFELSE___V17*/ curfptr[16] = /*_.RETURN___V19*/ curfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4032:/ clear"); /*clear*/ /*_.RETURN___V19*/ curfptr[17] = 0 ;} ; } ; /*_.IFELSE___V14*/ curfptr[13] = /*_.IFELSE___V17*/ curfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4031:/ clear"); /*clear*/ /*_.NAMED_NAME__V15*/ curfptr[14] = 0 ; MELT_LOCATION("warmelt-first.melt:4031:/ clear"); /*clear*/ /*_.NAMED_NAME__V16*/ curfptr[15] = 0 ; MELT_LOCATION("warmelt-first.melt:4031:/ clear"); /*clear*/ /*_#STRING___L5*/ curfnum[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4031:/ clear"); /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4031:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4031:/ block"); /*block*/{ /*_#IS_A__L6*/ curfnum[4] = melt_is_instance_of((melt_ptr_t)(/*_.X1__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ curfrout->tabval[0])));; MELT_LOCATION("warmelt-first.melt:4037:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[4]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4037:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4037:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4038:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4038:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.X1__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.N1__V22*/ curfptr[15] = slot; }; ; MELT_LOCATION("warmelt-first.melt:4039:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.X2__V4*/ curfptr[3]), 1, "NAMED_NAME");/*_.N2__V23*/ curfptr[16] = slot; }; ; /*_#STRING___L7*/ curfnum[6] = melt_string_less((melt_ptr_t)(/*_.N1__V22*/ curfptr[15]), (melt_ptr_t)(/*_.N2__V23*/ curfptr[16]));; MELT_LOCATION("warmelt-first.melt:4040:/ cond"); /*cond*/ if (/*_#STRING___L7*/ curfnum[6]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4040:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4040:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4041:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.VLESS__V6*/ curfptr[5];; MELT_LOCATION("warmelt-first.melt:4041:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IFELSE___V24*/ curfptr[23] = /*_.RETURN___V25*/ curfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4040:/ clear"); /*clear*/ /*_.RETURN___V25*/ curfptr[24] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4040:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4040:/ block"); /*block*/{ /*_#STRING___L8*/ curfnum[7] = melt_string_less((melt_ptr_t)(/*_.N2__V23*/ curfptr[16]), (melt_ptr_t)(/*_.N1__V22*/ curfptr[15]));; MELT_LOCATION("warmelt-first.melt:4042:/ cond"); /*cond*/ if (/*_#STRING___L8*/ curfnum[7]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4042:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4042:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4043:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.VGREAT__V8*/ curfptr[7];; MELT_LOCATION("warmelt-first.melt:4043:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IFELSE___V26*/ curfptr[24] = /*_.RETURN___V27*/ curfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4042:/ clear"); /*clear*/ /*_.RETURN___V27*/ curfptr[26] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4042:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4042:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4045:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4046:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.X1__V2*/ curfptr[1]), 3, "CSYM_URANK");/*_.YR1__V29*/ curfptr[28] = slot; }; ; MELT_LOCATION("warmelt-first.melt:4047:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.X2__V4*/ curfptr[3]), 3, "CSYM_URANK");/*_.YR2__V30*/ curfptr[29] = slot; }; ; /*_#NR1__L9*/ curfnum[8] = (melt_get_int((melt_ptr_t)(/*_.YR1__V29*/ curfptr[28])));; /*_#NR2__L10*/ curfnum[9] = (melt_get_int((melt_ptr_t)(/*_.YR2__V30*/ curfptr[29])));; /*_#I__L11*/ curfnum[10] = ((/*_#NR1__L9*/ curfnum[8]) < (/*_#NR2__L10*/ curfnum[9]));; MELT_LOCATION("warmelt-first.melt:4051:/ cond"); /*cond*/ if (/*_#I__L11*/ curfnum[10]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4051:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4051:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4052:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.VLESS__V6*/ curfptr[5];; MELT_LOCATION("warmelt-first.melt:4052:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IFELSE___V31*/ curfptr[30] = /*_.RETURN___V32*/ curfptr[31];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4051:/ clear"); /*clear*/ /*_.RETURN___V32*/ curfptr[31] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4051:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4051:/ block"); /*block*/{ /*_#I__L12*/ curfnum[11] = ((/*_#NR1__L9*/ curfnum[8]) > (/*_#NR2__L10*/ curfnum[9]));; MELT_LOCATION("warmelt-first.melt:4053:/ cond"); /*cond*/ if (/*_#I__L12*/ curfnum[11]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4053:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4053:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4054:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.VGREAT__V8*/ curfptr[7];; MELT_LOCATION("warmelt-first.melt:4054:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IFELSE___V33*/ curfptr[31] = /*_.RETURN___V34*/ curfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4053:/ clear"); /*clear*/ /*_.RETURN___V34*/ curfptr[33] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4053:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4053:/ block"); /*block*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4057:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4057:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4057:/ cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { MELT_LOCATION("warmelt-first.melt:4057:/ cond.then"); /*_.IFELSE___V36*/ curfptr[35] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4057:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4057:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4057:/ locexp"); melt_assert_failed(( "corrupted same cloned symbols"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4057)?(4057):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V36*/ curfptr[35] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V35*/ curfptr[33] = /*_.IFELSE___V36*/ curfptr[35];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4057:/ clear"); /*clear*/ /*_.IFELSE___V36*/ curfptr[35] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4057:/ cppif.else"); /*_.IFCPP___V35*/ curfptr[33] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-first.melt:4058:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);; MELT_LOCATION("warmelt-first.melt:4058:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; MELT_LOCATION("warmelt-first.melt:4055:/ block"); /*block*/{ /*_.PROGN___V38*/ curfptr[37] = /*_.RETURN___V37*/ curfptr[35];;} ; /*_.IFELSE___V33*/ curfptr[31] = /*_.PROGN___V38*/ curfptr[37];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4053:/ clear"); /*clear*/ /*_.IFCPP___V35*/ curfptr[33] = 0 ; MELT_LOCATION("warmelt-first.melt:4053:/ clear"); /*clear*/ /*_.RETURN___V37*/ curfptr[35] = 0 ; MELT_LOCATION("warmelt-first.melt:4053:/ clear"); /*clear*/ /*_.PROGN___V38*/ curfptr[37] = 0 ;} ; } ; /*_.IFELSE___V31*/ curfptr[30] = /*_.IFELSE___V33*/ curfptr[31];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4051:/ clear"); /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ; MELT_LOCATION("warmelt-first.melt:4051:/ clear"); /*clear*/ /*_.IFELSE___V33*/ curfptr[31] = 0 ;} ; } ; /*_.LET___V28*/ curfptr[26] = /*_.IFELSE___V31*/ curfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4045:/ clear"); /*clear*/ /*_.YR1__V29*/ curfptr[28] = 0 ; MELT_LOCATION("warmelt-first.melt:4045:/ clear"); /*clear*/ /*_.YR2__V30*/ curfptr[29] = 0 ; MELT_LOCATION("warmelt-first.melt:4045:/ clear"); /*clear*/ /*_#NR1__L9*/ curfnum[8] = 0 ; MELT_LOCATION("warmelt-first.melt:4045:/ clear"); /*clear*/ /*_#NR2__L10*/ curfnum[9] = 0 ; MELT_LOCATION("warmelt-first.melt:4045:/ clear"); /*clear*/ /*_#I__L11*/ curfnum[10] = 0 ; MELT_LOCATION("warmelt-first.melt:4045:/ clear"); /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ;} ; MELT_LOCATION("warmelt-first.melt:4044:/ block"); /*block*/{ /*_.PROGN___V39*/ curfptr[33] = /*_.LET___V28*/ curfptr[26];;} ; /*_.IFELSE___V26*/ curfptr[24] = /*_.PROGN___V39*/ curfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4042:/ clear"); /*clear*/ /*_.LET___V28*/ curfptr[26] = 0 ; MELT_LOCATION("warmelt-first.melt:4042:/ clear"); /*clear*/ /*_.PROGN___V39*/ curfptr[33] = 0 ;} ; } ; /*_.IFELSE___V24*/ curfptr[23] = /*_.IFELSE___V26*/ curfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4040:/ clear"); /*clear*/ /*_#STRING___L8*/ curfnum[7] = 0 ; MELT_LOCATION("warmelt-first.melt:4040:/ clear"); /*clear*/ /*_.IFELSE___V26*/ curfptr[24] = 0 ;} ; } ; /*_.LET___V21*/ curfptr[14] = /*_.IFELSE___V24*/ curfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4038:/ clear"); /*clear*/ /*_.N1__V22*/ curfptr[15] = 0 ; MELT_LOCATION("warmelt-first.melt:4038:/ clear"); /*clear*/ /*_.N2__V23*/ curfptr[16] = 0 ; MELT_LOCATION("warmelt-first.melt:4038:/ clear"); /*clear*/ /*_#STRING___L7*/ curfnum[6] = 0 ; MELT_LOCATION("warmelt-first.melt:4038:/ clear"); /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;} ; /*_.IFELSE___V20*/ curfptr[17] = /*_.LET___V21*/ curfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4037:/ clear"); /*clear*/ /*_.LET___V21*/ curfptr[14] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4037:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4037:/ block"); /*block*/{ /*_#IS_A__L13*/ curfnum[11] = melt_is_instance_of((melt_ptr_t)(/*_.X1__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])));; MELT_LOCATION("warmelt-first.melt:4061:/ cond"); /*cond*/ if (/*_#IS_A__L13*/ curfnum[11]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4061:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4061:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4062:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4062:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.X1__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.N1__V42*/ curfptr[31] = slot; }; ; MELT_LOCATION("warmelt-first.melt:4063:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.X2__V4*/ curfptr[3]), 1, "NAMED_NAME");/*_.N2__V43*/ curfptr[28] = slot; }; ; /*_#STRING___L14*/ curfnum[8] = melt_string_less((melt_ptr_t)(/*_.N1__V42*/ curfptr[31]), (melt_ptr_t)(/*_.N2__V43*/ curfptr[28]));; MELT_LOCATION("warmelt-first.melt:4065:/ cond"); /*cond*/ if (/*_#STRING___L14*/ curfnum[8]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4065:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4065:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4066:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.VLESS__V6*/ curfptr[5];; MELT_LOCATION("warmelt-first.melt:4066:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IFELSE___V44*/ curfptr[29] = /*_.RETURN___V45*/ curfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4065:/ clear"); /*clear*/ /*_.RETURN___V45*/ curfptr[30] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4065:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4065:/ block"); /*block*/{ /*_#STRING___L15*/ curfnum[9] = melt_string_less((melt_ptr_t)(/*_.N2__V43*/ curfptr[28]), (melt_ptr_t)(/*_.N1__V42*/ curfptr[31]));; MELT_LOCATION("warmelt-first.melt:4067:/ cond"); /*cond*/ if (/*_#STRING___L15*/ curfnum[9]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4067:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4067:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4068:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.VGREAT__V8*/ curfptr[7];; MELT_LOCATION("warmelt-first.melt:4068:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IFELSE___V46*/ curfptr[26] = /*_.RETURN___V47*/ curfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4067:/ clear"); /*clear*/ /*_.RETURN___V47*/ curfptr[33] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4067:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4067:/ block"); /*block*/{ /*_#I__L16*/ curfnum[10] = ((/*_#RK1__L2*/ curfnum[1]) < (/*_#RK2__L3*/ curfnum[2]));; MELT_LOCATION("warmelt-first.melt:4069:/ cond"); /*cond*/ if (/*_#I__L16*/ curfnum[10]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4069:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4069:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4070:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.VLESS__V6*/ curfptr[5];; MELT_LOCATION("warmelt-first.melt:4070:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IFELSE___V48*/ curfptr[24] = /*_.RETURN___V49*/ curfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4069:/ clear"); /*clear*/ /*_.RETURN___V49*/ curfptr[15] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4069:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4069:/ block"); /*block*/{ /*_#I__L17*/ curfnum[7] = ((/*_#RK1__L2*/ curfnum[1]) > (/*_#RK2__L3*/ curfnum[2]));; MELT_LOCATION("warmelt-first.melt:4071:/ cond"); /*cond*/ if (/*_#I__L17*/ curfnum[7]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4071:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4071:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4072:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.VGREAT__V8*/ curfptr[7];; MELT_LOCATION("warmelt-first.melt:4072:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IFELSE___V50*/ curfptr[16] = /*_.RETURN___V51*/ curfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4071:/ clear"); /*clear*/ /*_.RETURN___V51*/ curfptr[23] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4071:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4071:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4074:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.VEQ__V7*/ curfptr[6];; MELT_LOCATION("warmelt-first.melt:4074:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; MELT_LOCATION("warmelt-first.melt:4073:/ block"); /*block*/{ /*_.PROGN___V53*/ curfptr[30] = /*_.RETURN___V52*/ curfptr[14];;} ; /*_.IFELSE___V50*/ curfptr[16] = /*_.PROGN___V53*/ curfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4071:/ clear"); /*clear*/ /*_.RETURN___V52*/ curfptr[14] = 0 ; MELT_LOCATION("warmelt-first.melt:4071:/ clear"); /*clear*/ /*_.PROGN___V53*/ curfptr[30] = 0 ;} ; } ; /*_.IFELSE___V48*/ curfptr[24] = /*_.IFELSE___V50*/ curfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4069:/ clear"); /*clear*/ /*_#I__L17*/ curfnum[7] = 0 ; MELT_LOCATION("warmelt-first.melt:4069:/ clear"); /*clear*/ /*_.IFELSE___V50*/ curfptr[16] = 0 ;} ; } ; /*_.IFELSE___V46*/ curfptr[26] = /*_.IFELSE___V48*/ curfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4067:/ clear"); /*clear*/ /*_#I__L16*/ curfnum[10] = 0 ; MELT_LOCATION("warmelt-first.melt:4067:/ clear"); /*clear*/ /*_.IFELSE___V48*/ curfptr[24] = 0 ;} ; } ; /*_.IFELSE___V44*/ curfptr[29] = /*_.IFELSE___V46*/ curfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4065:/ clear"); /*clear*/ /*_#STRING___L15*/ curfnum[9] = 0 ; MELT_LOCATION("warmelt-first.melt:4065:/ clear"); /*clear*/ /*_.IFELSE___V46*/ curfptr[26] = 0 ;} ; } ; /*_.LET___V41*/ curfptr[37] = /*_.IFELSE___V44*/ curfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4062:/ clear"); /*clear*/ /*_.N1__V42*/ curfptr[31] = 0 ; MELT_LOCATION("warmelt-first.melt:4062:/ clear"); /*clear*/ /*_.N2__V43*/ curfptr[28] = 0 ; MELT_LOCATION("warmelt-first.melt:4062:/ clear"); /*clear*/ /*_#STRING___L14*/ curfnum[8] = 0 ; MELT_LOCATION("warmelt-first.melt:4062:/ clear"); /*clear*/ /*_.IFELSE___V44*/ curfptr[29] = 0 ;} ; /*_.IFELSE___V40*/ curfptr[35] = /*_.LET___V41*/ curfptr[37];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4061:/ clear"); /*clear*/ /*_.LET___V41*/ curfptr[37] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4061:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4061:/ block"); /*block*/{ /*_#IS_A__L18*/ curfnum[6] = melt_is_instance_of((melt_ptr_t)(/*_.X1__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[2])));; MELT_LOCATION("warmelt-first.melt:4077:/ cond"); /*cond*/ if (/*_#IS_A__L18*/ curfnum[6]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4077:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4077:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4078:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4078:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.X1__V2*/ curfptr[1]), 0, "BINDER");/*_.BSY1__V56*/ curfptr[23] = slot; }; ; MELT_LOCATION("warmelt-first.melt:4079:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.X1__V2*/ curfptr[1]), 0, "BINDER");/*_.BSY2__V57*/ curfptr[14] = slot; }; ; MELT_LOCATION("warmelt-first.melt:4080:/ apply"); /*apply*/{ union meltparam_un argtab[6]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4080:/ apply.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &/*_.BXRK1__V3*/ curfptr[2]; MELT_LOCATION("warmelt-first.melt:4080:/ apply.arg"); argtab[1].bp_aptr = (melt_ptr_t*) &/*_.BSY2__V57*/ curfptr[14]; MELT_LOCATION("warmelt-first.melt:4080:/ apply.arg"); argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BXRK2__V5*/ curfptr[4]; MELT_LOCATION("warmelt-first.melt:4080:/ apply.arg"); argtab[3].bp_aptr = (melt_ptr_t*) &/*_.VLESS__V6*/ curfptr[5]; MELT_LOCATION("warmelt-first.melt:4080:/ apply.arg"); argtab[4].bp_aptr = (melt_ptr_t*) &/*_.VEQ__V7*/ curfptr[6]; MELT_LOCATION("warmelt-first.melt:4080:/ apply.arg"); argtab[5].bp_aptr = (melt_ptr_t*) &/*_.VGREAT__V8*/ curfptr[7]; /*_.COMPARE_OBJ_RANKED__V58*/ curfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!COMPARE_OBJ_RANKED*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.BSY1__V56*/ curfptr[23]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-first.melt:4080:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.COMPARE_OBJ_RANKED__V58*/ curfptr[30];; MELT_LOCATION("warmelt-first.melt:4080:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V55*/ curfptr[15] = /*_.RETURN___V59*/ curfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4078:/ clear"); /*clear*/ /*_.BSY1__V56*/ curfptr[23] = 0 ; MELT_LOCATION("warmelt-first.melt:4078:/ clear"); /*clear*/ /*_.BSY2__V57*/ curfptr[14] = 0 ; MELT_LOCATION("warmelt-first.melt:4078:/ clear"); /*clear*/ /*_.COMPARE_OBJ_RANKED__V58*/ curfptr[30] = 0 ; MELT_LOCATION("warmelt-first.melt:4078:/ clear"); /*clear*/ /*_.RETURN___V59*/ curfptr[16] = 0 ;} ; /*_.IFELSE___V54*/ curfptr[33] = /*_.LET___V55*/ curfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4077:/ clear"); /*clear*/ /*_.LET___V55*/ curfptr[15] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4077:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4077:/ block"); /*block*/{ /*_#IS_STRING__L19*/ curfnum[7] = (melt_magic_discr((melt_ptr_t)(/*_.X1__V2*/ curfptr[1])) == OBMAG_STRING);; MELT_LOCATION("warmelt-first.melt:4081:/ cond"); /*cond*/ if (/*_#IS_STRING__L19*/ curfnum[7]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4081:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4081:/ block"); /*block*/{ /*_#STRING___L20*/ curfnum[10] = melt_string_less((melt_ptr_t)(/*_.X1__V2*/ curfptr[1]), (melt_ptr_t)(/*_.X2__V4*/ curfptr[3]));; MELT_LOCATION("warmelt-first.melt:4082:/ cond"); /*cond*/ if (/*_#STRING___L20*/ curfnum[10]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4082:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4082:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4083:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.VLESS__V6*/ curfptr[5];; MELT_LOCATION("warmelt-first.melt:4083:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IFELSE___V61*/ curfptr[26] = /*_.RETURN___V62*/ curfptr[31];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4082:/ clear"); /*clear*/ /*_.RETURN___V62*/ curfptr[31] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4082:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4082:/ block"); /*block*/{ /*_#STRING___L21*/ curfnum[9] = melt_string_less((melt_ptr_t)(/*_.X2__V4*/ curfptr[3]), (melt_ptr_t)(/*_.X1__V2*/ curfptr[1]));; MELT_LOCATION("warmelt-first.melt:4084:/ cond"); /*cond*/ if (/*_#STRING___L21*/ curfnum[9]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4084:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4084:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4085:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.VGREAT__V8*/ curfptr[7];; MELT_LOCATION("warmelt-first.melt:4085:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IFELSE___V63*/ curfptr[28] = /*_.RETURN___V64*/ curfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4084:/ clear"); /*clear*/ /*_.RETURN___V64*/ curfptr[29] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4084:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4084:/ block"); /*block*/{ /*_#I__L22*/ curfnum[8] = ((/*_#RK1__L2*/ curfnum[1]) < (/*_#RK2__L3*/ curfnum[2]));; MELT_LOCATION("warmelt-first.melt:4086:/ cond"); /*cond*/ if (/*_#I__L22*/ curfnum[8]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4086:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4086:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4087:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.VLESS__V6*/ curfptr[5];; MELT_LOCATION("warmelt-first.melt:4087:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IFELSE___V65*/ curfptr[37] = /*_.RETURN___V66*/ curfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4086:/ clear"); /*clear*/ /*_.RETURN___V66*/ curfptr[23] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4086:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4086:/ block"); /*block*/{ /*_#I__L23*/ curfnum[22] = ((/*_#RK1__L2*/ curfnum[1]) > (/*_#RK2__L3*/ curfnum[2]));; MELT_LOCATION("warmelt-first.melt:4088:/ cond"); /*cond*/ if (/*_#I__L23*/ curfnum[22]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4088:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4088:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4089:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.VGREAT__V8*/ curfptr[7];; MELT_LOCATION("warmelt-first.melt:4089:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IFELSE___V67*/ curfptr[14] = /*_.RETURN___V68*/ curfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4088:/ clear"); /*clear*/ /*_.RETURN___V68*/ curfptr[30] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4088:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4088:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4091:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.VEQ__V7*/ curfptr[6];; MELT_LOCATION("warmelt-first.melt:4091:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; MELT_LOCATION("warmelt-first.melt:4090:/ block"); /*block*/{ /*_.PROGN___V70*/ curfptr[15] = /*_.RETURN___V69*/ curfptr[16];;} ; /*_.IFELSE___V67*/ curfptr[14] = /*_.PROGN___V70*/ curfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4088:/ clear"); /*clear*/ /*_.RETURN___V69*/ curfptr[16] = 0 ; MELT_LOCATION("warmelt-first.melt:4088:/ clear"); /*clear*/ /*_.PROGN___V70*/ curfptr[15] = 0 ;} ; } ; /*_.IFELSE___V65*/ curfptr[37] = /*_.IFELSE___V67*/ curfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4086:/ clear"); /*clear*/ /*_#I__L23*/ curfnum[22] = 0 ; MELT_LOCATION("warmelt-first.melt:4086:/ clear"); /*clear*/ /*_.IFELSE___V67*/ curfptr[14] = 0 ;} ; } ; /*_.IFELSE___V63*/ curfptr[28] = /*_.IFELSE___V65*/ curfptr[37];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4084:/ clear"); /*clear*/ /*_#I__L22*/ curfnum[8] = 0 ; MELT_LOCATION("warmelt-first.melt:4084:/ clear"); /*clear*/ /*_.IFELSE___V65*/ curfptr[37] = 0 ;} ; } ; /*_.IFELSE___V61*/ curfptr[26] = /*_.IFELSE___V63*/ curfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4082:/ clear"); /*clear*/ /*_#STRING___L21*/ curfnum[9] = 0 ; MELT_LOCATION("warmelt-first.melt:4082:/ clear"); /*clear*/ /*_.IFELSE___V63*/ curfptr[28] = 0 ;} ; } ; /*_.IFELSE___V60*/ curfptr[24] = /*_.IFELSE___V61*/ curfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4081:/ clear"); /*clear*/ /*_#STRING___L20*/ curfnum[10] = 0 ; MELT_LOCATION("warmelt-first.melt:4081:/ clear"); /*clear*/ /*_.IFELSE___V61*/ curfptr[26] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4081:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4081:/ block"); /*block*/{ /*_#I__L24*/ curfnum[22] = ((/*_#RK1__L2*/ curfnum[1]) < (/*_#RK2__L3*/ curfnum[2]));; MELT_LOCATION("warmelt-first.melt:4092:/ cond"); /*cond*/ if (/*_#I__L24*/ curfnum[22]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4092:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4092:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4093:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.VLESS__V6*/ curfptr[5];; MELT_LOCATION("warmelt-first.melt:4093:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IFELSE___V71*/ curfptr[31] = /*_.RETURN___V72*/ curfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4092:/ clear"); /*clear*/ /*_.RETURN___V72*/ curfptr[29] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4092:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4092:/ block"); /*block*/{ /*_#I__L25*/ curfnum[8] = ((/*_#RK1__L2*/ curfnum[1]) > (/*_#RK2__L3*/ curfnum[2]));; MELT_LOCATION("warmelt-first.melt:4094:/ cond"); /*cond*/ if (/*_#I__L25*/ curfnum[8]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4094:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4094:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4095:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.VGREAT__V8*/ curfptr[7];; MELT_LOCATION("warmelt-first.melt:4095:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IFELSE___V73*/ curfptr[23] = /*_.RETURN___V74*/ curfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4094:/ clear"); /*clear*/ /*_.RETURN___V74*/ curfptr[30] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4094:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4094:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4097:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.VEQ__V7*/ curfptr[6];; MELT_LOCATION("warmelt-first.melt:4097:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; MELT_LOCATION("warmelt-first.melt:4096:/ block"); /*block*/{ /*_.PROGN___V76*/ curfptr[15] = /*_.RETURN___V75*/ curfptr[16];;} ; /*_.IFELSE___V73*/ curfptr[23] = /*_.PROGN___V76*/ curfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4094:/ clear"); /*clear*/ /*_.RETURN___V75*/ curfptr[16] = 0 ; MELT_LOCATION("warmelt-first.melt:4094:/ clear"); /*clear*/ /*_.PROGN___V76*/ curfptr[15] = 0 ;} ; } ; /*_.IFELSE___V71*/ curfptr[31] = /*_.IFELSE___V73*/ curfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4092:/ clear"); /*clear*/ /*_#I__L25*/ curfnum[8] = 0 ; MELT_LOCATION("warmelt-first.melt:4092:/ clear"); /*clear*/ /*_.IFELSE___V73*/ curfptr[23] = 0 ;} ; } ; /*_.IFELSE___V60*/ curfptr[24] = /*_.IFELSE___V71*/ curfptr[31];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4081:/ clear"); /*clear*/ /*_#I__L24*/ curfnum[22] = 0 ; MELT_LOCATION("warmelt-first.melt:4081:/ clear"); /*clear*/ /*_.IFELSE___V71*/ curfptr[31] = 0 ;} ; } ; /*_.IFELSE___V54*/ curfptr[33] = /*_.IFELSE___V60*/ curfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4077:/ clear"); /*clear*/ /*_#IS_STRING__L19*/ curfnum[7] = 0 ; MELT_LOCATION("warmelt-first.melt:4077:/ clear"); /*clear*/ /*_.IFELSE___V60*/ curfptr[24] = 0 ;} ; } ; /*_.IFELSE___V40*/ curfptr[35] = /*_.IFELSE___V54*/ curfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4061:/ clear"); /*clear*/ /*_#IS_A__L18*/ curfnum[6] = 0 ; MELT_LOCATION("warmelt-first.melt:4061:/ clear"); /*clear*/ /*_.IFELSE___V54*/ curfptr[33] = 0 ;} ; } ; /*_.IFELSE___V20*/ curfptr[17] = /*_.IFELSE___V40*/ curfptr[35];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4037:/ clear"); /*clear*/ /*_#IS_A__L13*/ curfnum[11] = 0 ; MELT_LOCATION("warmelt-first.melt:4037:/ clear"); /*clear*/ /*_.IFELSE___V40*/ curfptr[35] = 0 ;} ; } ; /*_.IFELSE___V14*/ curfptr[13] = /*_.IFELSE___V20*/ curfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4031:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4031:/ clear"); /*clear*/ /*_.IFELSE___V20*/ curfptr[17] = 0 ;} ; } ; /*_.LET___V11*/ curfptr[9] = /*_.IFELSE___V14*/ curfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4026:/ clear"); /*clear*/ /*_.X1DIS__V12*/ curfptr[11] = 0 ; MELT_LOCATION("warmelt-first.melt:4026:/ clear"); /*clear*/ /*_.X2DIS__V13*/ curfptr[12] = 0 ; MELT_LOCATION("warmelt-first.melt:4026:/ clear"); /*clear*/ /*_#RK1__L2*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4026:/ clear"); /*clear*/ /*_#RK2__L3*/ curfnum[2] = 0 ; MELT_LOCATION("warmelt-first.melt:4026:/ clear"); /*clear*/ /*_#__L4*/ curfnum[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4026:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; /*_.IFELSE___V9*/ curfptr[8] = /*_.LET___V11*/ curfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4024:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; } ; MELT_LOCATION("warmelt-first.melt:4023:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V9*/ curfptr[8];; MELT_LOCATION("warmelt-first.melt:4023:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4023:/ clear"); /*clear*/ /*_#__L1*/ curfnum[0] = 0 ; MELT_LOCATION("warmelt-first.melt:4023:/ clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("COMPARE_OBJ_RANKED", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_77_warmelt_first_COMPARE_OBJ_RANKED*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_first_DBGOUT_MAPOBJECT_METHOD(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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_78_warmelt_first_DBGOUT_MAPOBJECT_METHOD_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 CURFRAM_NBVARPTR 31 void* varptr[31]; #define CURFRAM_NBVARNUM 12 long varnum[12]; /*others*/ long _spare_; } *framptr_=0, curfram__; 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(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 31; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("DBGOUT_MAPOBJECT_METHOD", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4103:/ getarg"); /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4103:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL); /*getarg#2*/ MELT_LOCATION("warmelt-first.melt:4103:/ getarg"); if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4103:/ block"); /*block*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4104:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4104:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));; MELT_LOCATION("warmelt-first.melt:4104:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4104:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4104:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4104:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4104:/ locexp"); melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4104)?(4104):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4104:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4104:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4104:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-first.melt:4105:/ block"); /*block*/{ /*_.DIS__V6*/ curfptr[4] = (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; MELT_LOCATION("warmelt-first.melt:4106:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])))) /*then*/ { MELT_LOCATION("warmelt-first.melt:4106:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4106:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V7*/ curfptr[6] = slot; }; ; } else {MELT_LOCATION("warmelt-first.melt:4106:/ cond.else"); /*_.OUT__V7*/ curfptr[6] = NULL;; } ; /*_#MAPCOUNT__L3*/ curfnum[1] = (melt_count_mapobjects((meltmapobjects_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4109:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4109:/ block"); /*block*/{ /*_#IS_OUT__L4*/ curfnum[3] = (melt_is_out ((melt_ptr_t) /*_.OUT__V7*/ curfptr[6])) ;; MELT_LOCATION("warmelt-first.melt:4109:/ cond"); /*cond*/ if (/*_#IS_OUT__L4*/ curfnum[3]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4109:/ cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4109:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4109:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4109:/ locexp"); melt_assert_failed(( "check out at start"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4109)?(4109):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[7] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4109:/ clear"); /*clear*/ /*_#IS_OUT__L4*/ curfnum[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4109:/ clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4109:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#__L5*/ curfnum[3] = ((/*_.DIS__V6*/ curfptr[4]) == ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[1])));; MELT_LOCATION("warmelt-first.melt:4110:/ cond"); /*cond*/ if (/*_#__L5*/ curfnum[3]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4110:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4110:/ block"); /*block*/{ { MELT_LOCATION("warmelt-first.melt:4111:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( " {"));} ; /*epilog*/} ; } else {MELT_LOCATION("warmelt-first.melt:4110:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4110:/ block"); /*block*/{ { MELT_LOCATION("warmelt-first.melt:4113:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( " |"));} ; MELT_LOCATION("warmelt-first.melt:4114:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V10*/ curfptr[8] = slot; }; ; { MELT_LOCATION("warmelt-first.melt:4114:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V10*/ curfptr[8])));} ; { MELT_LOCATION("warmelt-first.melt:4115:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "{"));} ; MELT_LOCATION("warmelt-first.melt:4112:/ block"); /*block*/{} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4110:/ clear"); /*clear*/ /*_.NAMED_NAME__V10*/ curfptr[8] = 0 ;} ; } ; { MELT_LOCATION("warmelt-first.melt:4116:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "/"));} ; /*_#MAPOBJECT_COUNT__L6*/ curfnum[5] = (melt_count_mapobjects((meltmapobjects_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; { MELT_LOCATION("warmelt-first.melt:4117:/ locexp"); meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), (/*_#MAPOBJECT_COUNT__L6*/ curfnum[5]));} ; /*_#I__L7*/ curfnum[6] = ((/*_#DEPTH__L1*/ curfnum[0]) + (2));; MELT_LOCATION("warmelt-first.melt:4118:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V11*/ curfptr[8] = slot; }; ; /*_#GET_INT__L8*/ curfnum[7] = (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V11*/ curfptr[8])));; /*_#NEED_DBGLIM__L9*/ curfnum[8] = (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount && (/*_#I__L7*/ curfnum[6])>=0 && (/*_#I__L7*/ curfnum[6]) < (/*_#GET_INT__L8*/ curfnum[7]));; MELT_LOCATION("warmelt-first.melt:4118:/ cond"); /*cond*/ if (/*_#NEED_DBGLIM__L9*/ curfnum[8]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4118:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4118:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4119:/ block"); /*block*/{ /*_#I__L10*/ curfnum[9] = ((2) + (/*_#DEPTH__L1*/ curfnum[0]));; /*_.NEXTDEPTHBOX__V12*/ curfptr[11] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (/*_#I__L10*/ curfnum[9])));; /*_.COUNTBOX__V13*/ curfptr[12] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (0)));; /*_.BOXEDONE__V14*/ curfptr[13] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (1)));; /*_.BOXEDZERO__V15*/ curfptr[14] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (0)));; /*_.BOXEDMINUSONE__V16*/ curfptr[15] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (-1)));; /*_.TUPL__V17*/ curfptr[16] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[3])), (/*_#MAPCOUNT__L3*/ curfnum[1])));; MELT_LOCATION("warmelt-first.melt:4130:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4130:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V19*/ curfptr[18] = meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (2)); ; MELT_LOCATION("warmelt-first.melt:4130:/ putclosedv"); /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V19*/ curfptr[18])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V19*/ curfptr[18]))); ((meltclosure_ptr_t)/*_.LAMBDA___V19*/ curfptr[18])->tabval[0] = (melt_ptr_t)(/*_.COUNTBOX__V13*/ curfptr[12]); ; MELT_LOCATION("warmelt-first.melt:4130:/ putclosedv"); /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V19*/ curfptr[18])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V19*/ curfptr[18]))); ((meltclosure_ptr_t)/*_.LAMBDA___V19*/ curfptr[18])->tabval[1] = (melt_ptr_t)(/*_.TUPL__V17*/ curfptr[16]); ; /*_.LAMBDA___V18*/ curfptr[17] = /*_.LAMBDA___V19*/ curfptr[18];;} ; MELT_LOCATION("warmelt-first.melt:4128:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4128:/ apply.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V18*/ curfptr[17]; /*_.MAPOBJECT_EVERY__V20*/ curfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MAPOBJECT_EVERY*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4139:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4139:/ block"); /*block*/{ /*_#IS_MULTIPLE__L11*/ curfnum[10] = (melt_magic_discr((melt_ptr_t)(/*_.TUPL__V17*/ curfptr[16])) == OBMAG_MULTIPLE);; MELT_LOCATION("warmelt-first.melt:4139:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L11*/ curfnum[10]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4139:/ cond.then"); /*_.IFELSE___V22*/ curfptr[21] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4139:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4139:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4139:/ locexp"); melt_assert_failed(( "check tupl"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4139)?(4139):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V21*/ curfptr[20] = /*_.IFELSE___V22*/ curfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4139:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L11*/ curfnum[10] = 0 ; MELT_LOCATION("warmelt-first.melt:4139:/ clear"); /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4139:/ cppif.else"); /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-first.melt:4141:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4144:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4144:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V25*/ curfptr[24] = meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (3)); ; MELT_LOCATION("warmelt-first.melt:4144:/ putclosedv"); /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24]))); ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[0] = (melt_ptr_t)(/*_.BOXEDMINUSONE__V16*/ curfptr[15]); ; MELT_LOCATION("warmelt-first.melt:4144:/ putclosedv"); /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24]))); ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[1] = (melt_ptr_t)(/*_.BOXEDZERO__V15*/ curfptr[14]); ; MELT_LOCATION("warmelt-first.melt:4144:/ putclosedv"); /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24]))); ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[2] = (melt_ptr_t)(/*_.BOXEDONE__V14*/ curfptr[13]); ; /*_.LAMBDA___V24*/ curfptr[23] = /*_.LAMBDA___V25*/ curfptr[24];;} ; /*_.SORTUPL__V26*/ curfptr[25] = meltgc_sort_multiple((melt_ptr_t)(/*_.TUPL__V17*/ curfptr[16]), (melt_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23]), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[3])));; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4157:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4157:/ block"); /*block*/{ /*_#IS_MULTIPLE__L12*/ curfnum[10] = (melt_magic_discr((melt_ptr_t)(/*_.SORTUPL__V26*/ curfptr[25])) == OBMAG_MULTIPLE);; MELT_LOCATION("warmelt-first.melt:4157:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L12*/ curfnum[10]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4157:/ cond.then"); /*_.IFELSE___V28*/ curfptr[27] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4157:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4157:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4157:/ locexp"); melt_assert_failed(( "check sortupl"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4157)?(4157):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V28*/ curfptr[27] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V27*/ curfptr[26] = /*_.IFELSE___V28*/ curfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4157:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L12*/ curfnum[10] = 0 ; MELT_LOCATION("warmelt-first.melt:4157:/ clear"); /*clear*/ /*_.IFELSE___V28*/ curfptr[27] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4157:/ cppif.else"); /*_.IFCPP___V27*/ curfptr[26] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-first.melt:4160:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4160:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V30*/ curfptr[29] = meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_13*/ curfrout->tabval[13])), (3)); ; MELT_LOCATION("warmelt-first.melt:4160:/ putclosedv"); /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29]))); ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[0] = (melt_ptr_t)(/*_.NEXTDEPTHBOX__V12*/ curfptr[11]); ; MELT_LOCATION("warmelt-first.melt:4160:/ putclosedv"); /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29]))); ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[1] = (melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]); ; MELT_LOCATION("warmelt-first.melt:4160:/ putclosedv"); /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29]))); ((meltclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[2] = (melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]); ; /*_.LAMBDA___V29*/ curfptr[27] = /*_.LAMBDA___V30*/ curfptr[29];;} ; MELT_LOCATION("warmelt-first.melt:4158:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4158:/ apply.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V29*/ curfptr[27]; /*_.MULTIPLE_EVERY__V31*/ curfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.SORTUPL__V26*/ curfptr[25]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.LET___V23*/ curfptr[21] = /*_.MULTIPLE_EVERY__V31*/ curfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4141:/ clear"); /*clear*/ /*_.LAMBDA___V24*/ curfptr[23] = 0 ; MELT_LOCATION("warmelt-first.melt:4141:/ clear"); /*clear*/ /*_.SORTUPL__V26*/ curfptr[25] = 0 ; MELT_LOCATION("warmelt-first.melt:4141:/ clear"); /*clear*/ /*_.IFCPP___V27*/ curfptr[26] = 0 ; MELT_LOCATION("warmelt-first.melt:4141:/ clear"); /*clear*/ /*_.LAMBDA___V29*/ curfptr[27] = 0 ; MELT_LOCATION("warmelt-first.melt:4141:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V31*/ curfptr[30] = 0 ;} ; { MELT_LOCATION("warmelt-first.melt:4178:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "}"));} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4119:/ clear"); /*clear*/ /*_#I__L10*/ curfnum[9] = 0 ; MELT_LOCATION("warmelt-first.melt:4119:/ clear"); /*clear*/ /*_.NEXTDEPTHBOX__V12*/ curfptr[11] = 0 ; MELT_LOCATION("warmelt-first.melt:4119:/ clear"); /*clear*/ /*_.COUNTBOX__V13*/ curfptr[12] = 0 ; MELT_LOCATION("warmelt-first.melt:4119:/ clear"); /*clear*/ /*_.BOXEDONE__V14*/ curfptr[13] = 0 ; MELT_LOCATION("warmelt-first.melt:4119:/ clear"); /*clear*/ /*_.BOXEDZERO__V15*/ curfptr[14] = 0 ; MELT_LOCATION("warmelt-first.melt:4119:/ clear"); /*clear*/ /*_.BOXEDMINUSONE__V16*/ curfptr[15] = 0 ; MELT_LOCATION("warmelt-first.melt:4119:/ clear"); /*clear*/ /*_.TUPL__V17*/ curfptr[16] = 0 ; MELT_LOCATION("warmelt-first.melt:4119:/ clear"); /*clear*/ /*_.LAMBDA___V18*/ curfptr[17] = 0 ; MELT_LOCATION("warmelt-first.melt:4119:/ clear"); /*clear*/ /*_.MAPOBJECT_EVERY__V20*/ curfptr[19] = 0 ; MELT_LOCATION("warmelt-first.melt:4119:/ clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ; MELT_LOCATION("warmelt-first.melt:4119:/ clear"); /*clear*/ /*_.LET___V23*/ curfptr[21] = 0 ;} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4105:/ clear"); /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4105:/ clear"); /*clear*/ /*_.OUT__V7*/ curfptr[6] = 0 ; MELT_LOCATION("warmelt-first.melt:4105:/ clear"); /*clear*/ /*_#MAPCOUNT__L3*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4105:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ; MELT_LOCATION("warmelt-first.melt:4105:/ clear"); /*clear*/ /*_#__L5*/ curfnum[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4105:/ clear"); /*clear*/ /*_#MAPOBJECT_COUNT__L6*/ curfnum[5] = 0 ; MELT_LOCATION("warmelt-first.melt:4105:/ clear"); /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ; MELT_LOCATION("warmelt-first.melt:4105:/ clear"); /*clear*/ /*_.DBGI_MAXDEPTH__V11*/ curfptr[8] = 0 ; MELT_LOCATION("warmelt-first.melt:4105:/ clear"); /*clear*/ /*_#GET_INT__L8*/ curfnum[7] = 0 ; MELT_LOCATION("warmelt-first.melt:4105:/ clear"); /*clear*/ /*_#NEED_DBGLIM__L9*/ curfnum[8] = 0 ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4103:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("DBGOUT_MAPOBJECT_METHOD", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_78_warmelt_first_DBGOUT_MAPOBJECT_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_first_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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_79_warmelt_first_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 CURFRAM_NBVARPTR 5 void* varptr[5]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; 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<5; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 5; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4130:/ getarg"); /*_.AT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4130:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.VA__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.VA__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4130:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4131:/ block"); /*block*/{ /*_#CURCOUNT__L1*/ curfnum[0] = (melt_get_int((melt_ptr_t)((/*~COUNTBOX*/ curfclos->tabval[0]))));; /*_.MAKE_INTEGERBOX__V4*/ curfptr[3] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (/*_#CURCOUNT__L1*/ curfnum[0])));; /*_.ENT__V5*/ curfptr[4] = (meltgc_new_mult3((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.AT__V2*/ curfptr[1]), (melt_ptr_t)(/*_.VA__V3*/ curfptr[2]), (melt_ptr_t)(/*_.MAKE_INTEGERBOX__V4*/ curfptr[3])));; { MELT_LOCATION("warmelt-first.melt:4136:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)((/*~TUPL*/ curfclos->tabval[1])), (/*_#CURCOUNT__L1*/ curfnum[0]), (melt_ptr_t)(/*_.ENT__V5*/ curfptr[4]));} ; /*_#I__L2*/ curfnum[1] = ((/*_#CURCOUNT__L1*/ curfnum[0]) + (1));; { MELT_LOCATION("warmelt-first.melt:4137:/ locexp"); melt_put_int((melt_ptr_t)((/*~COUNTBOX*/ curfclos->tabval[0])), (/*_#I__L2*/ curfnum[1]));} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4131:/ clear"); /*clear*/ /*_#CURCOUNT__L1*/ curfnum[0] = 0 ; MELT_LOCATION("warmelt-first.melt:4131:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V4*/ curfptr[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4131:/ clear"); /*clear*/ /*_.ENT__V5*/ curfptr[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4131:/ clear"); /*clear*/ /*_#I__L2*/ curfnum[1] = 0 ;} ; /*epilog*/} ; goto labend_rout; labend_rout: melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_79_warmelt_first_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_first_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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_80_warmelt_first_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 CURFRAM_NBVARPTR 11 void* varptr[11]; /*no varnum*/ #define CURFRAM_NBVARNUM /*none*/0 /*others*/ long _spare_; } *framptr_=0, curfram__; 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<11; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 11; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4144:/ getarg"); /*_.E1__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4144:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.E2__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.E2__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4144:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4145:/ block"); /*block*/{ /*_.E1AT__V5*/ curfptr[4] = (melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ curfptr[1]), (0)));; /*_.E1VA__V6*/ curfptr[5] = (melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ curfptr[1]), (1)));; /*_.E1RK__V7*/ curfptr[6] = (melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ curfptr[1]), (2)));; /*_.E2AT__V8*/ curfptr[7] = (melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ curfptr[2]), (0)));; /*_.E2VA__V9*/ curfptr[8] = (melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ curfptr[2]), (1)));; /*_.E2RK__V10*/ curfptr[9] = (melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ curfptr[2]), (2)));; MELT_LOCATION("warmelt-first.melt:4152:/ apply"); /*apply*/{ union meltparam_un argtab[6]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4152:/ apply.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &/*_.E1RK__V7*/ curfptr[6]; MELT_LOCATION("warmelt-first.melt:4152:/ apply.arg"); argtab[1].bp_aptr = (melt_ptr_t*) &/*_.E2AT__V8*/ curfptr[7]; MELT_LOCATION("warmelt-first.melt:4152:/ apply.arg"); argtab[2].bp_aptr = (melt_ptr_t*) &/*_.E2RK__V10*/ curfptr[9]; MELT_LOCATION("warmelt-first.melt:4152:/ apply.arg"); argtab[3].bp_aptr = (melt_ptr_t*) &(/*~BOXEDMINUSONE*/ curfclos->tabval[0]); MELT_LOCATION("warmelt-first.melt:4152:/ apply.arg"); argtab[4].bp_aptr = (melt_ptr_t*) &(/*~BOXEDZERO*/ curfclos->tabval[1]); MELT_LOCATION("warmelt-first.melt:4152:/ apply.arg"); argtab[5].bp_aptr = (melt_ptr_t*) &(/*~BOXEDONE*/ curfclos->tabval[2]); /*_.COMPARE_OBJ_RANKED__V11*/ curfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!COMPARE_OBJ_RANKED*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.E1AT__V5*/ curfptr[4]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.LET___V4*/ curfptr[3] = /*_.COMPARE_OBJ_RANKED__V11*/ curfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4145:/ clear"); /*clear*/ /*_.E1AT__V5*/ curfptr[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4145:/ clear"); /*clear*/ /*_.E1VA__V6*/ curfptr[5] = 0 ; MELT_LOCATION("warmelt-first.melt:4145:/ clear"); /*clear*/ /*_.E1RK__V7*/ curfptr[6] = 0 ; MELT_LOCATION("warmelt-first.melt:4145:/ clear"); /*clear*/ /*_.E2AT__V8*/ curfptr[7] = 0 ; MELT_LOCATION("warmelt-first.melt:4145:/ clear"); /*clear*/ /*_.E2VA__V9*/ curfptr[8] = 0 ; MELT_LOCATION("warmelt-first.melt:4145:/ clear"); /*clear*/ /*_.E2RK__V10*/ curfptr[9] = 0 ; MELT_LOCATION("warmelt-first.melt:4145:/ clear"); /*clear*/ /*_.COMPARE_OBJ_RANKED__V11*/ curfptr[10] = 0 ;} ; MELT_LOCATION("warmelt-first.melt:4144:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V4*/ curfptr[3];; MELT_LOCATION("warmelt-first.melt:4144:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4144:/ clear"); /*clear*/ /*_.LET___V4*/ curfptr[3] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_80_warmelt_first_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_first_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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_81_warmelt_first_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 CURFRAM_NBVARPTR 11 void* varptr[11]; #define CURFRAM_NBVARNUM 6 long varnum[6]; /*others*/ long _spare_; } *framptr_=0, curfram__; 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<11; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 11; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4160:/ getarg"); /*_.EL__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4160:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4160:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4161:/ block"); /*block*/{ /*_.ELAT__V3*/ curfptr[2] = (melt_multiple_nth((melt_ptr_t)(/*_.EL__V2*/ curfptr[1]), (0)));; /*_.ELVA__V4*/ curfptr[3] = (melt_multiple_nth((melt_ptr_t)(/*_.EL__V2*/ curfptr[1]), (1)));; MELT_LOCATION("warmelt-first.melt:4163:/ block"); /*block*/{ /*_#NEXTDEPTH__L2*/ curfnum[1] = (melt_get_int((melt_ptr_t)((/*~NEXTDEPTHBOX*/ curfclos->tabval[0]))));; MELT_LOCATION("warmelt-first.melt:4164:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)((/*~DBGI*/ curfclos->tabval[1])), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V5*/ curfptr[4] = slot; }; ; /*_#OLDMAXDEPTH__L3*/ curfnum[2] = (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V5*/ curfptr[4])));; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4167:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4167:/ block"); /*block*/{ /*_#IS_OUT__L4*/ curfnum[3] = (melt_is_out ((melt_ptr_t) (/*~OUT*/ curfclos->tabval[2]))) ;; MELT_LOCATION("warmelt-first.melt:4167:/ cond"); /*cond*/ if (/*_#IS_OUT__L4*/ curfnum[3]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4167:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4167:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4167:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4167:/ locexp"); melt_assert_failed(( "check out"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4167)?(4167):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4167:/ clear"); /*clear*/ /*_#IS_OUT__L4*/ curfnum[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4167:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4167:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; { MELT_LOCATION("warmelt-first.melt:4168:/ locexp"); meltgc_out_add_indent((melt_ptr_t)((/*~OUT*/ curfclos->tabval[2])), (/*_#NEXTDEPTH__L2*/ curfnum[1]), 0);} ; { MELT_LOCATION("warmelt-first.melt:4169:/ locexp"); meltgc_add_out((melt_ptr_t)((/*~OUT*/ curfclos->tabval[2])), ( "**"));} ; MELT_LOCATION("warmelt-first.melt:4170:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)((/*~DBGI*/ curfclos->tabval[1])), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V8*/ curfptr[6] = slot; }; ; { MELT_LOCATION("warmelt-first.melt:4170:/ locexp"); melt_put_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V8*/ curfptr[6]), (0));} ; MELT_LOCATION("warmelt-first.melt:4171:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4171:/ apply.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DBGI*/ curfclos->tabval[1]); MELT_LOCATION("warmelt-first.melt:4171:/ apply.arg"); argtab[1].bp_long = /*_#NEXTDEPTH__L2*/ curfnum[1]; /*_.DBG_OUTOBJECT__V9*/ curfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUTOBJECT*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.ELAT__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-first.melt:4172:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)((/*~DBGI*/ curfclos->tabval[1])), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V10*/ curfptr[9] = slot; }; ; { MELT_LOCATION("warmelt-first.melt:4172:/ locexp"); melt_put_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V10*/ curfptr[9]), (/*_#OLDMAXDEPTH__L3*/ curfnum[2]));} ; { MELT_LOCATION("warmelt-first.melt:4173:/ locexp"); meltgc_add_out((melt_ptr_t)((/*~OUT*/ curfclos->tabval[2])), ( " =="));} ; /*_#I__L5*/ curfnum[3] = ((/*_#NEXTDEPTH__L2*/ curfnum[1]) + (1));; { MELT_LOCATION("warmelt-first.melt:4174:/ locexp"); meltgc_out_add_indent((melt_ptr_t)((/*~OUT*/ curfclos->tabval[2])), (/*_#I__L5*/ curfnum[3]), 64);} ; /*_#I__L6*/ curfnum[5] = ((/*_#NEXTDEPTH__L2*/ curfnum[1]) + (2));; MELT_LOCATION("warmelt-first.melt:4175:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4175:/ apply.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DBGI*/ curfclos->tabval[1]); MELT_LOCATION("warmelt-first.melt:4175:/ apply.arg"); argtab[1].bp_long = /*_#I__L6*/ curfnum[5]; /*_.DBG_OUT__V11*/ curfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.ELVA__V4*/ curfptr[3]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-first.melt:4176:/ locexp"); meltgc_add_out((melt_ptr_t)((/*~OUT*/ curfclos->tabval[2])), ( "; "));} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4163:/ clear"); /*clear*/ /*_#NEXTDEPTH__L2*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4163:/ clear"); /*clear*/ /*_.DBGI_MAXDEPTH__V5*/ curfptr[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4163:/ clear"); /*clear*/ /*_#OLDMAXDEPTH__L3*/ curfnum[2] = 0 ; MELT_LOCATION("warmelt-first.melt:4163:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; MELT_LOCATION("warmelt-first.melt:4163:/ clear"); /*clear*/ /*_.DBGI_MAXDEPTH__V8*/ curfptr[6] = 0 ; MELT_LOCATION("warmelt-first.melt:4163:/ clear"); /*clear*/ /*_.DBG_OUTOBJECT__V9*/ curfptr[8] = 0 ; MELT_LOCATION("warmelt-first.melt:4163:/ clear"); /*clear*/ /*_.DBGI_MAXDEPTH__V10*/ curfptr[9] = 0 ; MELT_LOCATION("warmelt-first.melt:4163:/ clear"); /*clear*/ /*_#I__L5*/ curfnum[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4163:/ clear"); /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ; MELT_LOCATION("warmelt-first.melt:4163:/ clear"); /*clear*/ /*_.DBG_OUT__V11*/ curfptr[10] = 0 ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4161:/ clear"); /*clear*/ /*_.ELAT__V3*/ curfptr[2] = 0 ; MELT_LOCATION("warmelt-first.melt:4161:/ clear"); /*clear*/ /*_.ELVA__V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; goto labend_rout; labend_rout: melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_81_warmelt_first_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_warmelt_first_MAPOBJECT_SORTED_ATTRIBUTE_TUPLE(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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_82_warmelt_first_MAPOBJECT_SORTED_ATTRIBUTE_TUPLE_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 CURFRAM_NBVARPTR 18 void* varptr[18]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; 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<18; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 18; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("MAPOBJECT_SORTED_ATTRIBUTE_TUPLE", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4184:/ getarg"); /*_.MAPO__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4184:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4187:/ block"); /*block*/{ /*_#MAPCOUNT__L1*/ curfnum[0] = (melt_count_mapobjects((meltmapobjects_ptr_t)(/*_.MAPO__V2*/ curfptr[1])));; /*_.COUNTBOX__V4*/ curfptr[3] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[0])), (0)));; /*_.BOXEDONE__V5*/ curfptr[4] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[0])), (1)));; /*_.BOXEDZERO__V6*/ curfptr[5] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[0])), (0)));; /*_.BOXEDMINUSONE__V7*/ curfptr[6] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[0])), (-1)));; /*_.TUPL__V8*/ curfptr[7] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[1])), (/*_#MAPCOUNT__L1*/ curfnum[0])));; MELT_LOCATION("warmelt-first.melt:4198:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4198:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V10*/ curfptr[9] = meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_5*/ curfrout->tabval[5])), (2)); ; MELT_LOCATION("warmelt-first.melt:4198:/ putclosedv"); /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V10*/ curfptr[9])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V10*/ curfptr[9]))); ((meltclosure_ptr_t)/*_.LAMBDA___V10*/ curfptr[9])->tabval[0] = (melt_ptr_t)(/*_.COUNTBOX__V4*/ curfptr[3]); ; MELT_LOCATION("warmelt-first.melt:4198:/ putclosedv"); /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V10*/ curfptr[9])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V10*/ curfptr[9]))); ((meltclosure_ptr_t)/*_.LAMBDA___V10*/ curfptr[9])->tabval[1] = (melt_ptr_t)(/*_.TUPL__V8*/ curfptr[7]); ; /*_.LAMBDA___V9*/ curfptr[8] = /*_.LAMBDA___V10*/ curfptr[9];;} ; MELT_LOCATION("warmelt-first.melt:4196:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4196:/ apply.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V9*/ curfptr[8]; /*_.MAPOBJECT_EVERY__V11*/ curfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!MAPOBJECT_EVERY*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.MAPO__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-first.melt:4208:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4211:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4211:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V14*/ curfptr[13] = meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (3)); ; MELT_LOCATION("warmelt-first.melt:4211:/ putclosedv"); /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V14*/ curfptr[13])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V14*/ curfptr[13]))); ((meltclosure_ptr_t)/*_.LAMBDA___V14*/ curfptr[13])->tabval[0] = (melt_ptr_t)(/*_.BOXEDMINUSONE__V7*/ curfptr[6]); ; MELT_LOCATION("warmelt-first.melt:4211:/ putclosedv"); /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V14*/ curfptr[13])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V14*/ curfptr[13]))); ((meltclosure_ptr_t)/*_.LAMBDA___V14*/ curfptr[13])->tabval[1] = (melt_ptr_t)(/*_.BOXEDZERO__V6*/ curfptr[5]); ; MELT_LOCATION("warmelt-first.melt:4211:/ putclosedv"); /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V14*/ curfptr[13])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V14*/ curfptr[13]))); ((meltclosure_ptr_t)/*_.LAMBDA___V14*/ curfptr[13])->tabval[2] = (melt_ptr_t)(/*_.BOXEDONE__V5*/ curfptr[4]); ; /*_.LAMBDA___V13*/ curfptr[12] = /*_.LAMBDA___V14*/ curfptr[13];;} ; /*_.SORTUPL__V15*/ curfptr[14] = meltgc_sort_multiple((melt_ptr_t)(/*_.TUPL__V8*/ curfptr[7]), (melt_ptr_t)(/*_.LAMBDA___V13*/ curfptr[12]), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[1])));; MELT_LOCATION("warmelt-first.melt:4224:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4224:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] = meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (0)); ; /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;} ; MELT_LOCATION("warmelt-first.melt:4224:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4224:/ apply.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V16*/ curfptr[15]; /*_.MULTIPLE_MAP__V18*/ curfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[8])), (melt_ptr_t)(/*_.SORTUPL__V15*/ curfptr[14]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.LET___V12*/ curfptr[11] = /*_.MULTIPLE_MAP__V18*/ curfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4208:/ clear"); /*clear*/ /*_.LAMBDA___V13*/ curfptr[12] = 0 ; MELT_LOCATION("warmelt-first.melt:4208:/ clear"); /*clear*/ /*_.SORTUPL__V15*/ curfptr[14] = 0 ; MELT_LOCATION("warmelt-first.melt:4208:/ clear"); /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ; MELT_LOCATION("warmelt-first.melt:4208:/ clear"); /*clear*/ /*_.MULTIPLE_MAP__V18*/ curfptr[17] = 0 ;} ; /*_.LET___V3*/ curfptr[2] = /*_.LET___V12*/ curfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4187:/ clear"); /*clear*/ /*_#MAPCOUNT__L1*/ curfnum[0] = 0 ; MELT_LOCATION("warmelt-first.melt:4187:/ clear"); /*clear*/ /*_.COUNTBOX__V4*/ curfptr[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4187:/ clear"); /*clear*/ /*_.BOXEDONE__V5*/ curfptr[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4187:/ clear"); /*clear*/ /*_.BOXEDZERO__V6*/ curfptr[5] = 0 ; MELT_LOCATION("warmelt-first.melt:4187:/ clear"); /*clear*/ /*_.BOXEDMINUSONE__V7*/ curfptr[6] = 0 ; MELT_LOCATION("warmelt-first.melt:4187:/ clear"); /*clear*/ /*_.TUPL__V8*/ curfptr[7] = 0 ; MELT_LOCATION("warmelt-first.melt:4187:/ clear"); /*clear*/ /*_.LAMBDA___V9*/ curfptr[8] = 0 ; MELT_LOCATION("warmelt-first.melt:4187:/ clear"); /*clear*/ /*_.MAPOBJECT_EVERY__V11*/ curfptr[10] = 0 ; MELT_LOCATION("warmelt-first.melt:4187:/ clear"); /*clear*/ /*_.LET___V12*/ curfptr[11] = 0 ;} ; MELT_LOCATION("warmelt-first.melt:4184:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];; MELT_LOCATION("warmelt-first.melt:4184:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4184:/ clear"); /*clear*/ /*_.LET___V3*/ curfptr[2] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("MAPOBJECT_SORTED_ATTRIBUTE_TUPLE", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_82_warmelt_first_MAPOBJECT_SORTED_ATTRIBUTE_TUPLE*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_first_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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_83_warmelt_first_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 CURFRAM_NBVARPTR 5 void* varptr[5]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; 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<5; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 5; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4198:/ getarg"); /*_.AT__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4198:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.VA__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.VA__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4198:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4199:/ block"); /*block*/{ /*_#CURCOUNT__L1*/ curfnum[0] = (melt_get_int((melt_ptr_t)((/*~COUNTBOX*/ curfclos->tabval[0]))));; /*_.MAKE_INTEGERBOX__V4*/ curfptr[3] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (/*_#CURCOUNT__L1*/ curfnum[0])));; /*_.ENT__V5*/ curfptr[4] = (meltgc_new_mult3((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.AT__V2*/ curfptr[1]), (melt_ptr_t)(/*_.VA__V3*/ curfptr[2]), (melt_ptr_t)(/*_.MAKE_INTEGERBOX__V4*/ curfptr[3])));; { MELT_LOCATION("warmelt-first.melt:4204:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)((/*~TUPL*/ curfclos->tabval[1])), (/*_#CURCOUNT__L1*/ curfnum[0]), (melt_ptr_t)(/*_.ENT__V5*/ curfptr[4]));} ; /*_#I__L2*/ curfnum[1] = ((/*_#CURCOUNT__L1*/ curfnum[0]) + (1));; { MELT_LOCATION("warmelt-first.melt:4205:/ locexp"); melt_put_int((melt_ptr_t)((/*~COUNTBOX*/ curfclos->tabval[0])), (/*_#I__L2*/ curfnum[1]));} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4199:/ clear"); /*clear*/ /*_#CURCOUNT__L1*/ curfnum[0] = 0 ; MELT_LOCATION("warmelt-first.melt:4199:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V4*/ curfptr[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4199:/ clear"); /*clear*/ /*_.ENT__V5*/ curfptr[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4199:/ clear"); /*clear*/ /*_#I__L2*/ curfnum[1] = 0 ;} ; /*epilog*/} ; goto labend_rout; labend_rout: melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_83_warmelt_first_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_warmelt_first_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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_84_warmelt_first_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 CURFRAM_NBVARPTR 11 void* varptr[11]; /*no varnum*/ #define CURFRAM_NBVARNUM /*none*/0 /*others*/ long _spare_; } *framptr_=0, curfram__; 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<11; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 11; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4211:/ getarg"); /*_.E1__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4211:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.E2__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.E2__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4211:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4212:/ block"); /*block*/{ /*_.E1AT__V5*/ curfptr[4] = (melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ curfptr[1]), (0)));; /*_.E1VA__V6*/ curfptr[5] = (melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ curfptr[1]), (1)));; /*_.E1RK__V7*/ curfptr[6] = (melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ curfptr[1]), (2)));; /*_.E2AT__V8*/ curfptr[7] = (melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ curfptr[2]), (0)));; /*_.E2VA__V9*/ curfptr[8] = (melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ curfptr[2]), (1)));; /*_.E2RK__V10*/ curfptr[9] = (melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ curfptr[2]), (2)));; MELT_LOCATION("warmelt-first.melt:4219:/ apply"); /*apply*/{ union meltparam_un argtab[6]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4219:/ apply.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &/*_.E1RK__V7*/ curfptr[6]; MELT_LOCATION("warmelt-first.melt:4219:/ apply.arg"); argtab[1].bp_aptr = (melt_ptr_t*) &/*_.E2AT__V8*/ curfptr[7]; MELT_LOCATION("warmelt-first.melt:4219:/ apply.arg"); argtab[2].bp_aptr = (melt_ptr_t*) &/*_.E2RK__V10*/ curfptr[9]; MELT_LOCATION("warmelt-first.melt:4219:/ apply.arg"); argtab[3].bp_aptr = (melt_ptr_t*) &(/*~BOXEDMINUSONE*/ curfclos->tabval[0]); MELT_LOCATION("warmelt-first.melt:4219:/ apply.arg"); argtab[4].bp_aptr = (melt_ptr_t*) &(/*~BOXEDZERO*/ curfclos->tabval[1]); MELT_LOCATION("warmelt-first.melt:4219:/ apply.arg"); argtab[5].bp_aptr = (melt_ptr_t*) &(/*~BOXEDONE*/ curfclos->tabval[2]); /*_.COMPARE_OBJ_RANKED__V11*/ curfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!COMPARE_OBJ_RANKED*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.E1AT__V5*/ curfptr[4]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.LET___V4*/ curfptr[3] = /*_.COMPARE_OBJ_RANKED__V11*/ curfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4212:/ clear"); /*clear*/ /*_.E1AT__V5*/ curfptr[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4212:/ clear"); /*clear*/ /*_.E1VA__V6*/ curfptr[5] = 0 ; MELT_LOCATION("warmelt-first.melt:4212:/ clear"); /*clear*/ /*_.E1RK__V7*/ curfptr[6] = 0 ; MELT_LOCATION("warmelt-first.melt:4212:/ clear"); /*clear*/ /*_.E2AT__V8*/ curfptr[7] = 0 ; MELT_LOCATION("warmelt-first.melt:4212:/ clear"); /*clear*/ /*_.E2VA__V9*/ curfptr[8] = 0 ; MELT_LOCATION("warmelt-first.melt:4212:/ clear"); /*clear*/ /*_.E2RK__V10*/ curfptr[9] = 0 ; MELT_LOCATION("warmelt-first.melt:4212:/ clear"); /*clear*/ /*_.COMPARE_OBJ_RANKED__V11*/ curfptr[10] = 0 ;} ; MELT_LOCATION("warmelt-first.melt:4211:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V4*/ curfptr[3];; MELT_LOCATION("warmelt-first.melt:4211:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4211:/ clear"); /*clear*/ /*_.LET___V4*/ curfptr[3] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_84_warmelt_first_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_warmelt_first_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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_85_warmelt_first_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 CURFRAM_NBVARPTR 3 void* varptr[3]; /*no varnum*/ #define CURFRAM_NBVARNUM /*none*/0 /*others*/ long _spare_; } *framptr_=0, curfram__; 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(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 3; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4224:/ getarg"); /*_.EL__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4224:/ block"); /*block*/{ /*_.MULTIPLE_NTH__V3*/ curfptr[2] = (melt_multiple_nth((melt_ptr_t)(/*_.EL__V2*/ curfptr[1]), (0)));; MELT_LOCATION("warmelt-first.melt:4224:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MULTIPLE_NTH__V3*/ curfptr[2];; MELT_LOCATION("warmelt-first.melt:4224:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4224:/ clear"); /*clear*/ /*_.MULTIPLE_NTH__V3*/ curfptr[2] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_85_warmelt_first_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_warmelt_first_DBGOUT_MAPSTRING_METHOD(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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_86_warmelt_first_DBGOUT_MAPSTRING_METHOD_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 CURFRAM_NBVARPTR 28 void* varptr[28]; #define CURFRAM_NBVARNUM 9 long varnum[9]; /*others*/ long _spare_; } *framptr_=0, curfram__; 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<28; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 28; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("DBGOUT_MAPSTRING_METHOD", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4232:/ getarg"); /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4232:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL); /*getarg#2*/ MELT_LOCATION("warmelt-first.melt:4232:/ getarg"); if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4232:/ block"); /*block*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4233:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4233:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));; MELT_LOCATION("warmelt-first.melt:4233:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4233:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4233:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4233:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4233:/ locexp"); melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4233)?(4233):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4233:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4233:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4233:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-first.melt:4234:/ block"); /*block*/{ /*_.DIS__V6*/ curfptr[4] = (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; MELT_LOCATION("warmelt-first.melt:4235:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V7*/ curfptr[6] = slot; }; ; /*_#IX__L3*/ curfnum[1] = 0;; /*_#MAPCOUNT__L4*/ curfnum[3] = (melt_count_mapstrings((struct meltmapstrings_st*)(/*_.SELF__V2*/ curfptr[1])));; /*_#I__L5*/ curfnum[4] = ((2) + (/*_#DEPTH__L1*/ curfnum[0]));; /*_.NEXTDEPTHBOX__V8*/ curfptr[7] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (/*_#I__L5*/ curfnum[4])));; /*_.COUNTBOX__V9*/ curfptr[8] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (0)));; /*_.BOXEDONE__V10*/ curfptr[9] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (1)));; /*_.BOXEDZERO__V11*/ curfptr[10] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (0)));; /*_.BOXEDMINUSONE__V12*/ curfptr[11] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (-1)));; /*_.TUPL__V13*/ curfptr[12] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[2])), (/*_#MAPCOUNT__L4*/ curfnum[3])));; /*_#__L6*/ curfnum[5] = ((/*_.DIS__V6*/ curfptr[4]) == ((/*!DISCR_MAP_STRINGS*/ curfrout->tabval[3])));; MELT_LOCATION("warmelt-first.melt:4245:/ cond"); /*cond*/ if (/*_#__L6*/ curfnum[5]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4245:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4245:/ block"); /*block*/{ { MELT_LOCATION("warmelt-first.melt:4246:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " <("));} ; /*epilog*/} ; } else {MELT_LOCATION("warmelt-first.melt:4245:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4245:/ block"); /*block*/{ { MELT_LOCATION("warmelt-first.melt:4248:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " |"));} ; MELT_LOCATION("warmelt-first.melt:4249:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V14*/ curfptr[13] = slot; }; ; { MELT_LOCATION("warmelt-first.melt:4249:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V14*/ curfptr[13])));} ; { MELT_LOCATION("warmelt-first.melt:4250:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "<("));} ; MELT_LOCATION("warmelt-first.melt:4247:/ block"); /*block*/{} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4245:/ clear"); /*clear*/ /*_.NAMED_NAME__V14*/ curfptr[13] = 0 ;} ; } ; { MELT_LOCATION("warmelt-first.melt:4251:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "/"));} ; { MELT_LOCATION("warmelt-first.melt:4252:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#MAPCOUNT__L4*/ curfnum[3]));} ; /*_#I__L7*/ curfnum[6] = ((/*_#DEPTH__L1*/ curfnum[0]) + (2));; /*_#NEED_DBG__L8*/ curfnum[7] = (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount && (/*_#I__L7*/ curfnum[6])>=0 && (/*_#I__L7*/ curfnum[6]) <= MELTDBG_MAXDEPTH);; MELT_LOCATION("warmelt-first.melt:4253:/ cond"); /*cond*/ if (/*_#NEED_DBG__L8*/ curfnum[7]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4253:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4253:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4258:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4258:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] = meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (2)); ; MELT_LOCATION("warmelt-first.melt:4258:/ putclosedv"); /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16]))); ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[0] = (melt_ptr_t)(/*_.COUNTBOX__V9*/ curfptr[8]); ; MELT_LOCATION("warmelt-first.melt:4258:/ putclosedv"); /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16]))); ((meltclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[1] = (melt_ptr_t)(/*_.TUPL__V13*/ curfptr[12]); ; /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;} ; MELT_LOCATION("warmelt-first.melt:4256:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4256:/ apply.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V16*/ curfptr[15]; /*_.MAPSTRING_EVERY__V18*/ curfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MAPSTRING_EVERY*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-first.melt:4268:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4271:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4271:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V21*/ curfptr[20] = meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (3)); ; MELT_LOCATION("warmelt-first.melt:4271:/ putclosedv"); /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20]))); ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[0] = (melt_ptr_t)(/*_.BOXEDMINUSONE__V12*/ curfptr[11]); ; MELT_LOCATION("warmelt-first.melt:4271:/ putclosedv"); /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20]))); ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[1] = (melt_ptr_t)(/*_.BOXEDZERO__V11*/ curfptr[10]); ; MELT_LOCATION("warmelt-first.melt:4271:/ putclosedv"); /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20]))); ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[2] = (melt_ptr_t)(/*_.BOXEDONE__V10*/ curfptr[9]); ; /*_.LAMBDA___V20*/ curfptr[19] = /*_.LAMBDA___V21*/ curfptr[20];;} ; /*_.SORTUPL__V22*/ curfptr[21] = meltgc_sort_multiple((melt_ptr_t)(/*_.TUPL__V13*/ curfptr[12]), (melt_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19]), (melt_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[2])));; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4284:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4284:/ block"); /*block*/{ /*_#IS_MULTIPLE__L9*/ curfnum[8] = (melt_magic_discr((melt_ptr_t)(/*_.SORTUPL__V22*/ curfptr[21])) == OBMAG_MULTIPLE);; MELT_LOCATION("warmelt-first.melt:4284:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L9*/ curfnum[8]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4284:/ cond.then"); /*_.IFELSE___V24*/ curfptr[23] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4284:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4284:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4284:/ locexp"); melt_assert_failed(( "check sortupl"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4284)?(4284):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V23*/ curfptr[22] = /*_.IFELSE___V24*/ curfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4284:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L9*/ curfnum[8] = 0 ; MELT_LOCATION("warmelt-first.melt:4284:/ clear"); /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4284:/ cppif.else"); /*_.IFCPP___V23*/ curfptr[22] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-first.melt:4287:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4287:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V26*/ curfptr[25] = meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_12*/ curfrout->tabval[12])), (3)); ; MELT_LOCATION("warmelt-first.melt:4287:/ putclosedv"); /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V26*/ curfptr[25])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V26*/ curfptr[25]))); ((meltclosure_ptr_t)/*_.LAMBDA___V26*/ curfptr[25])->tabval[0] = (melt_ptr_t)(/*_.NEXTDEPTHBOX__V8*/ curfptr[7]); ; MELT_LOCATION("warmelt-first.melt:4287:/ putclosedv"); /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V26*/ curfptr[25])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V26*/ curfptr[25]))); ((meltclosure_ptr_t)/*_.LAMBDA___V26*/ curfptr[25])->tabval[1] = (melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]); ; MELT_LOCATION("warmelt-first.melt:4287:/ putclosedv"); /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V26*/ curfptr[25])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V26*/ curfptr[25]))); ((meltclosure_ptr_t)/*_.LAMBDA___V26*/ curfptr[25])->tabval[2] = (melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]); ; /*_.LAMBDA___V25*/ curfptr[23] = /*_.LAMBDA___V26*/ curfptr[25];;} ; MELT_LOCATION("warmelt-first.melt:4285:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4285:/ apply.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V25*/ curfptr[23]; /*_.MULTIPLE_EVERY__V27*/ curfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[10])), (melt_ptr_t)(/*_.SORTUPL__V22*/ curfptr[21]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.LET___V19*/ curfptr[18] = /*_.MULTIPLE_EVERY__V27*/ curfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4268:/ clear"); /*clear*/ /*_.LAMBDA___V20*/ curfptr[19] = 0 ; MELT_LOCATION("warmelt-first.melt:4268:/ clear"); /*clear*/ /*_.SORTUPL__V22*/ curfptr[21] = 0 ; MELT_LOCATION("warmelt-first.melt:4268:/ clear"); /*clear*/ /*_.IFCPP___V23*/ curfptr[22] = 0 ; MELT_LOCATION("warmelt-first.melt:4268:/ clear"); /*clear*/ /*_.LAMBDA___V25*/ curfptr[23] = 0 ; MELT_LOCATION("warmelt-first.melt:4268:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V27*/ curfptr[26] = 0 ;} ; MELT_LOCATION("warmelt-first.melt:4254:/ block"); /*block*/{ /*_.PROGN___V28*/ curfptr[19] = /*_.LET___V19*/ curfptr[18];;} ; /*_.IF___V15*/ curfptr[13] = /*_.PROGN___V28*/ curfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4253:/ clear"); /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ; MELT_LOCATION("warmelt-first.melt:4253:/ clear"); /*clear*/ /*_.MAPSTRING_EVERY__V18*/ curfptr[17] = 0 ; MELT_LOCATION("warmelt-first.melt:4253:/ clear"); /*clear*/ /*_.LET___V19*/ curfptr[18] = 0 ; MELT_LOCATION("warmelt-first.melt:4253:/ clear"); /*clear*/ /*_.PROGN___V28*/ curfptr[19] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4253:/ cond.else"); /*_.IF___V15*/ curfptr[13] = NULL;; } ; { MELT_LOCATION("warmelt-first.melt:4301:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " )>"));} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4234:/ clear"); /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4234:/ clear"); /*clear*/ /*_.SBUF__V7*/ curfptr[6] = 0 ; MELT_LOCATION("warmelt-first.melt:4234:/ clear"); /*clear*/ /*_#IX__L3*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4234:/ clear"); /*clear*/ /*_#MAPCOUNT__L4*/ curfnum[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4234:/ clear"); /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4234:/ clear"); /*clear*/ /*_.NEXTDEPTHBOX__V8*/ curfptr[7] = 0 ; MELT_LOCATION("warmelt-first.melt:4234:/ clear"); /*clear*/ /*_.COUNTBOX__V9*/ curfptr[8] = 0 ; MELT_LOCATION("warmelt-first.melt:4234:/ clear"); /*clear*/ /*_.BOXEDONE__V10*/ curfptr[9] = 0 ; MELT_LOCATION("warmelt-first.melt:4234:/ clear"); /*clear*/ /*_.BOXEDZERO__V11*/ curfptr[10] = 0 ; MELT_LOCATION("warmelt-first.melt:4234:/ clear"); /*clear*/ /*_.BOXEDMINUSONE__V12*/ curfptr[11] = 0 ; MELT_LOCATION("warmelt-first.melt:4234:/ clear"); /*clear*/ /*_.TUPL__V13*/ curfptr[12] = 0 ; MELT_LOCATION("warmelt-first.melt:4234:/ clear"); /*clear*/ /*_#__L6*/ curfnum[5] = 0 ; MELT_LOCATION("warmelt-first.melt:4234:/ clear"); /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ; MELT_LOCATION("warmelt-first.melt:4234:/ clear"); /*clear*/ /*_#NEED_DBG__L8*/ curfnum[7] = 0 ; MELT_LOCATION("warmelt-first.melt:4234:/ clear"); /*clear*/ /*_.IF___V15*/ curfptr[13] = 0 ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4232:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("DBGOUT_MAPSTRING_METHOD", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_86_warmelt_first_DBGOUT_MAPSTRING_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_warmelt_first_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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_87_warmelt_first_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 CURFRAM_NBVARPTR 5 void* varptr[5]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; 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<5; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 5; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4258:/ getarg"); /*_.STR__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4258:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.VAL__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.VAL__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4258:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4259:/ block"); /*block*/{ /*_#CURCOUNT__L1*/ curfnum[0] = (melt_get_int((melt_ptr_t)((/*~COUNTBOX*/ curfclos->tabval[0]))));; /*_.MAKE_INTEGERBOX__V4*/ curfptr[3] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (/*_#CURCOUNT__L1*/ curfnum[0])));; /*_.ENT__V5*/ curfptr[4] = (meltgc_new_mult3((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.STR__V2*/ curfptr[1]), (melt_ptr_t)(/*_.VAL__V3*/ curfptr[2]), (melt_ptr_t)(/*_.MAKE_INTEGERBOX__V4*/ curfptr[3])));; { MELT_LOCATION("warmelt-first.melt:4264:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)((/*~TUPL*/ curfclos->tabval[1])), (/*_#CURCOUNT__L1*/ curfnum[0]), (melt_ptr_t)(/*_.ENT__V5*/ curfptr[4]));} ; /*_#I__L2*/ curfnum[1] = ((/*_#CURCOUNT__L1*/ curfnum[0]) + (1));; { MELT_LOCATION("warmelt-first.melt:4265:/ locexp"); melt_put_int((melt_ptr_t)((/*~COUNTBOX*/ curfclos->tabval[0])), (/*_#I__L2*/ curfnum[1]));} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4259:/ clear"); /*clear*/ /*_#CURCOUNT__L1*/ curfnum[0] = 0 ; MELT_LOCATION("warmelt-first.melt:4259:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V4*/ curfptr[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4259:/ clear"); /*clear*/ /*_.ENT__V5*/ curfptr[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4259:/ clear"); /*clear*/ /*_#I__L2*/ curfnum[1] = 0 ;} ; /*epilog*/} ; goto labend_rout; labend_rout: melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_87_warmelt_first_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_88_warmelt_first_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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_88_warmelt_first_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 CURFRAM_NBVARPTR 11 void* varptr[11]; /*no varnum*/ #define CURFRAM_NBVARNUM /*none*/0 /*others*/ long _spare_; } *framptr_=0, curfram__; 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<11; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 11; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4271:/ getarg"); /*_.E1__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4271:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.E2__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.E2__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4271:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4272:/ block"); /*block*/{ /*_.E1AT__V5*/ curfptr[4] = (melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ curfptr[1]), (0)));; /*_.E1VA__V6*/ curfptr[5] = (melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ curfptr[1]), (1)));; /*_.E1RK__V7*/ curfptr[6] = (melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ curfptr[1]), (2)));; /*_.E2AT__V8*/ curfptr[7] = (melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ curfptr[2]), (0)));; /*_.E2VA__V9*/ curfptr[8] = (melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ curfptr[2]), (1)));; /*_.E2RK__V10*/ curfptr[9] = (melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ curfptr[2]), (2)));; MELT_LOCATION("warmelt-first.melt:4279:/ apply"); /*apply*/{ union meltparam_un argtab[6]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4279:/ apply.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &/*_.E1RK__V7*/ curfptr[6]; MELT_LOCATION("warmelt-first.melt:4279:/ apply.arg"); argtab[1].bp_aptr = (melt_ptr_t*) &/*_.E2AT__V8*/ curfptr[7]; MELT_LOCATION("warmelt-first.melt:4279:/ apply.arg"); argtab[2].bp_aptr = (melt_ptr_t*) &/*_.E2RK__V10*/ curfptr[9]; MELT_LOCATION("warmelt-first.melt:4279:/ apply.arg"); argtab[3].bp_aptr = (melt_ptr_t*) &(/*~BOXEDMINUSONE*/ curfclos->tabval[0]); MELT_LOCATION("warmelt-first.melt:4279:/ apply.arg"); argtab[4].bp_aptr = (melt_ptr_t*) &(/*~BOXEDZERO*/ curfclos->tabval[1]); MELT_LOCATION("warmelt-first.melt:4279:/ apply.arg"); argtab[5].bp_aptr = (melt_ptr_t*) &(/*~BOXEDONE*/ curfclos->tabval[2]); /*_.COMPARE_OBJ_RANKED__V11*/ curfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!COMPARE_OBJ_RANKED*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.E1AT__V5*/ curfptr[4]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.LET___V4*/ curfptr[3] = /*_.COMPARE_OBJ_RANKED__V11*/ curfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4272:/ clear"); /*clear*/ /*_.E1AT__V5*/ curfptr[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4272:/ clear"); /*clear*/ /*_.E1VA__V6*/ curfptr[5] = 0 ; MELT_LOCATION("warmelt-first.melt:4272:/ clear"); /*clear*/ /*_.E1RK__V7*/ curfptr[6] = 0 ; MELT_LOCATION("warmelt-first.melt:4272:/ clear"); /*clear*/ /*_.E2AT__V8*/ curfptr[7] = 0 ; MELT_LOCATION("warmelt-first.melt:4272:/ clear"); /*clear*/ /*_.E2VA__V9*/ curfptr[8] = 0 ; MELT_LOCATION("warmelt-first.melt:4272:/ clear"); /*clear*/ /*_.E2RK__V10*/ curfptr[9] = 0 ; MELT_LOCATION("warmelt-first.melt:4272:/ clear"); /*clear*/ /*_.COMPARE_OBJ_RANKED__V11*/ curfptr[10] = 0 ;} ; MELT_LOCATION("warmelt-first.melt:4271:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V4*/ curfptr[3];; MELT_LOCATION("warmelt-first.melt:4271:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4271:/ clear"); /*clear*/ /*_.LET___V4*/ curfptr[3] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_88_warmelt_first_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_89_warmelt_first_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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_89_warmelt_first_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 CURFRAM_NBVARPTR 9 void* varptr[9]; #define CURFRAM_NBVARNUM 6 long varnum[6]; /*others*/ long _spare_; } *framptr_=0, curfram__; 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<9; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 9; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4287:/ getarg"); /*_.EL__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4287:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4287:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4288:/ block"); /*block*/{ /*_.CURSTR__V4*/ curfptr[3] = (melt_multiple_nth((melt_ptr_t)(/*_.EL__V2*/ curfptr[1]), (0)));; /*_.CURVAL__V5*/ curfptr[4] = (melt_multiple_nth((melt_ptr_t)(/*_.EL__V2*/ curfptr[1]), (1)));; /*_#NEXTDEPTH__L2*/ curfnum[1] = (melt_get_int((melt_ptr_t)((/*~NEXTDEPTHBOX*/ curfclos->tabval[0]))));; /*_#IS_STRING__L3*/ curfnum[2] = (melt_magic_discr((melt_ptr_t)(/*_.CURSTR__V4*/ curfptr[3])) == OBMAG_STRING);; MELT_LOCATION("warmelt-first.melt:4292:/ cond"); /*cond*/ if (/*_#IS_STRING__L3*/ curfnum[2]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4292:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4292:/ block"); /*block*/{ /*_#NOTNULL__L5*/ curfnum[4] = ((/*_.CURVAL__V5*/ curfptr[4]) != NULL);; /*_#IF___L4*/ curfnum[3] = /*_#NOTNULL__L5*/ curfnum[4];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4292:/ clear"); /*clear*/ /*_#NOTNULL__L5*/ curfnum[4] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4292:/ cond.else"); /*_#IF___L4*/ curfnum[3] = 0;; } ; MELT_LOCATION("warmelt-first.melt:4292:/ cond"); /*cond*/ if (/*_#IF___L4*/ curfnum[3]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4292:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4292:/ block"); /*block*/{ { MELT_LOCATION("warmelt-first.melt:4294:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)((/*~SBUF*/ curfclos->tabval[1])), (/*_#NEXTDEPTH__L2*/ curfnum[1]), 0);} ; { MELT_LOCATION("warmelt-first.melt:4295:/ locexp"); meltgc_add_strbuf((melt_ptr_t)((/*~SBUF*/ curfclos->tabval[1])), ( "!*"));} ; MELT_LOCATION("warmelt-first.melt:4296:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4296:/ apply.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DBGI*/ curfclos->tabval[2]); MELT_LOCATION("warmelt-first.melt:4296:/ apply.arg"); argtab[1].bp_long = /*_#NEXTDEPTH__L2*/ curfnum[1]; /*_.DBG_OUT__V7*/ curfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURSTR__V4*/ curfptr[3]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-first.melt:4297:/ locexp"); meltgc_add_strbuf((melt_ptr_t)((/*~SBUF*/ curfclos->tabval[1])), ( " => "));} ; { MELT_LOCATION("warmelt-first.melt:4298:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)((/*~SBUF*/ curfclos->tabval[1])), (/*_#NEXTDEPTH__L2*/ curfnum[1]), 64);} ; /*_#I__L6*/ curfnum[4] = ((/*_#NEXTDEPTH__L2*/ curfnum[1]) + (2));; MELT_LOCATION("warmelt-first.melt:4299:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4299:/ apply.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &(/*~DBGI*/ curfclos->tabval[2]); MELT_LOCATION("warmelt-first.melt:4299:/ apply.arg"); argtab[1].bp_long = /*_#I__L6*/ curfnum[4]; /*_.DBG_OUT__V8*/ curfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[0])), (melt_ptr_t)(/*_.CURVAL__V5*/ curfptr[4]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-first.melt:4293:/ block"); /*block*/{ /*_.PROGN___V9*/ curfptr[8] = /*_.DBG_OUT__V8*/ curfptr[7];;} ; /*_.IF___V6*/ curfptr[5] = /*_.PROGN___V9*/ curfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4292:/ clear"); /*clear*/ /*_.DBG_OUT__V7*/ curfptr[6] = 0 ; MELT_LOCATION("warmelt-first.melt:4292:/ clear"); /*clear*/ /*_#I__L6*/ curfnum[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4292:/ clear"); /*clear*/ /*_.DBG_OUT__V8*/ curfptr[7] = 0 ; MELT_LOCATION("warmelt-first.melt:4292:/ clear"); /*clear*/ /*_.PROGN___V9*/ curfptr[8] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4292:/ cond.else"); /*_.IF___V6*/ curfptr[5] = NULL;; } ; /*_.LET___V3*/ curfptr[2] = /*_.IF___V6*/ curfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4288:/ clear"); /*clear*/ /*_.CURSTR__V4*/ curfptr[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4288:/ clear"); /*clear*/ /*_.CURVAL__V5*/ curfptr[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4288:/ clear"); /*clear*/ /*_#NEXTDEPTH__L2*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4288:/ clear"); /*clear*/ /*_#IS_STRING__L3*/ curfnum[2] = 0 ; MELT_LOCATION("warmelt-first.melt:4288:/ clear"); /*clear*/ /*_#IF___L4*/ curfnum[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4288:/ clear"); /*clear*/ /*_.IF___V6*/ curfptr[5] = 0 ;} ; MELT_LOCATION("warmelt-first.melt:4287:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];; MELT_LOCATION("warmelt-first.melt:4287:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4287:/ clear"); /*clear*/ /*_.LET___V3*/ curfptr[2] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("LAMBDA_", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_89_warmelt_first_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_90_warmelt_first_DBGOUT_ANYOBJECT_METHOD(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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_90_warmelt_first_DBGOUT_ANYOBJECT_METHOD_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 CURFRAM_NBVARPTR 11 void* varptr[11]; #define CURFRAM_NBVARNUM 8 long varnum[8]; /*others*/ long _spare_; } *framptr_=0, curfram__; 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<11; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 11; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("DBGOUT_ANYOBJECT_METHOD", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4306:/ getarg"); /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4306:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL); /*getarg#2*/ MELT_LOCATION("warmelt-first.melt:4306:/ getarg"); if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4306:/ block"); /*block*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4307:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4307:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));; MELT_LOCATION("warmelt-first.melt:4307:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4307:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4307:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4307:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4307:/ locexp"); melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4307)?(4307):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4307:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4307:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4307:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-first.melt:4308:/ block"); /*block*/{ /*_.DIS__V6*/ curfptr[4] = (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; MELT_LOCATION("warmelt-first.melt:4309:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V7*/ curfptr[6] = slot; }; ; { MELT_LOCATION("warmelt-first.melt:4310:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "|"));} ; MELT_LOCATION("warmelt-first.melt:4311:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V8*/ curfptr[7] = slot; }; ; { MELT_LOCATION("warmelt-first.melt:4311:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V8*/ curfptr[7])));} ; { MELT_LOCATION("warmelt-first.melt:4312:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "/"));} ; /*_#OBJ_HASH__L3*/ curfnum[1] = (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; { MELT_LOCATION("warmelt-first.melt:4313:/ locexp"); meltgc_add_strbuf_hex((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#OBJ_HASH__L3*/ curfnum[1]));} ; MELT_LOCATION("warmelt-first.melt:4314:/ block"); /*block*/{ /*_#ONUM__L4*/ curfnum[3] = (melt_obj_num((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; /*_#OSERIAL__L5*/ curfnum[4] = (melt_obj_serial((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; MELT_LOCATION("warmelt-first.melt:4317:/ cond"); /*cond*/ if (/*_#ONUM__L4*/ curfnum[3]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4317:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4317:/ block"); /*block*/{ { MELT_LOCATION("warmelt-first.melt:4319:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "#"));} ; { MELT_LOCATION("warmelt-first.melt:4320:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#ONUM__L4*/ curfnum[3]));} ; MELT_LOCATION("warmelt-first.melt:4318:/ block"); /*block*/{} ; /*epilog*/} ; } /*noelse*/ ; MELT_LOCATION("warmelt-first.melt:4321:/ cond"); /*cond*/ if (/*_#OSERIAL__L5*/ curfnum[4]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4321:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4321:/ block"); /*block*/{ { MELT_LOCATION("warmelt-first.melt:4323:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "##"));} ; { MELT_LOCATION("warmelt-first.melt:4324:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#OSERIAL__L5*/ curfnum[4]));} ; MELT_LOCATION("warmelt-first.melt:4322:/ block"); /*block*/{} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4314:/ clear"); /*clear*/ /*_#ONUM__L4*/ curfnum[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4314:/ clear"); /*clear*/ /*_#OSERIAL__L5*/ curfnum[4] = 0 ;} ; { MELT_LOCATION("warmelt-first.melt:4326:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "{"));} ; MELT_LOCATION("warmelt-first.melt:4327:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V9*/ curfptr[8] = slot; }; ; /*_#GET_INT__L6*/ curfnum[3] = (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V9*/ curfptr[8])));; /*_#NEED_DBGLIM__L7*/ curfnum[4] = (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) < (/*_#GET_INT__L6*/ curfnum[3]));; MELT_LOCATION("warmelt-first.melt:4327:/ cond"); /*cond*/ if (/*_#NEED_DBGLIM__L7*/ curfnum[4]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4327:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4327:/ block"); /*block*/{ /*_#I__L8*/ curfnum[7] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; MELT_LOCATION("warmelt-first.melt:4328:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4328:/ apply.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2]; MELT_LOCATION("warmelt-first.melt:4328:/ apply.arg"); argtab[1].bp_long = /*_#I__L8*/ curfnum[7]; MELT_LOCATION("warmelt-first.melt:4328:/ apply.arg"); argtab[2].bp_long = 0; MELT_LOCATION("warmelt-first.melt:4328:/ apply.arg"); argtab[3].bp_long = 0; /*_.DBGOUT_FIELDS__V11*/ curfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_FIELDS*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_LONG BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IF___V10*/ curfptr[9] = /*_.DBGOUT_FIELDS__V11*/ curfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4327:/ clear"); /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ; MELT_LOCATION("warmelt-first.melt:4327:/ clear"); /*clear*/ /*_.DBGOUT_FIELDS__V11*/ curfptr[10] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4327:/ cond.else"); /*_.IF___V10*/ curfptr[9] = NULL;; } ; { MELT_LOCATION("warmelt-first.melt:4330:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "}"));} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4308:/ clear"); /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4308:/ clear"); /*clear*/ /*_.SBUF__V7*/ curfptr[6] = 0 ; MELT_LOCATION("warmelt-first.melt:4308:/ clear"); /*clear*/ /*_.NAMED_NAME__V8*/ curfptr[7] = 0 ; MELT_LOCATION("warmelt-first.melt:4308:/ clear"); /*clear*/ /*_#OBJ_HASH__L3*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4308:/ clear"); /*clear*/ /*_.DBGI_MAXDEPTH__V9*/ curfptr[8] = 0 ; MELT_LOCATION("warmelt-first.melt:4308:/ clear"); /*clear*/ /*_#GET_INT__L6*/ curfnum[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4308:/ clear"); /*clear*/ /*_#NEED_DBGLIM__L7*/ curfnum[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4308:/ clear"); /*clear*/ /*_.IF___V10*/ curfptr[9] = 0 ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4306:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("DBGOUT_ANYOBJECT_METHOD", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_90_warmelt_first_DBGOUT_ANYOBJECT_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_91_warmelt_first_DBGOUT_ANYRECV_METHOD(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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_91_warmelt_first_DBGOUT_ANYRECV_METHOD_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 CURFRAM_NBVARPTR 8 void* varptr[8]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; 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<8; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 8; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("DBGOUT_ANYRECV_METHOD", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4335:/ getarg"); /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4335:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL); /*getarg#2*/ MELT_LOCATION("warmelt-first.melt:4335:/ getarg"); if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4335:/ block"); /*block*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4336:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4336:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));; MELT_LOCATION("warmelt-first.melt:4336:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4336:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4336:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4336:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4336:/ locexp"); melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4336)?(4336):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4336:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4336:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4336:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-first.melt:4337:/ block"); /*block*/{ /*_.DIS__V6*/ curfptr[4] = (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; MELT_LOCATION("warmelt-first.melt:4338:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V7*/ curfptr[6] = slot; }; ; { MELT_LOCATION("warmelt-first.melt:4339:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " ?."));} ; /*_#IS_A__L3*/ curfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), (melt_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])));; MELT_LOCATION("warmelt-first.melt:4340:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4340:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4340:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4340:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V8*/ curfptr[7] = slot; }; ; { MELT_LOCATION("warmelt-first.melt:4340:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V8*/ curfptr[7])));} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4340:/ clear"); /*clear*/ /*_.NAMED_NAME__V8*/ curfptr[7] = 0 ;} ; } /*noelse*/ ; { MELT_LOCATION("warmelt-first.melt:4341:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( ".? "));} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4337:/ clear"); /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4337:/ clear"); /*clear*/ /*_.SBUF__V7*/ curfptr[6] = 0 ; MELT_LOCATION("warmelt-first.melt:4337:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4335:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("DBGOUT_ANYRECV_METHOD", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_91_warmelt_first_DBGOUT_ANYRECV_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_92_warmelt_first_DBGOUTAGAIN_ANYOBJECT_METHOD(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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_92_warmelt_first_DBGOUTAGAIN_ANYOBJECT_METHOD_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 CURFRAM_NBVARPTR 8 void* varptr[8]; #define CURFRAM_NBVARNUM 5 long varnum[5]; /*others*/ long _spare_; } *framptr_=0, curfram__; 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<8; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 8; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("DBGOUTAGAIN_ANYOBJECT_METHOD", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4346:/ getarg"); /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4346:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL); /*getarg#2*/ MELT_LOCATION("warmelt-first.melt:4346:/ getarg"); if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4346:/ block"); /*block*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4347:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4347:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));; MELT_LOCATION("warmelt-first.melt:4347:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4347:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4347:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4347:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4347:/ locexp"); melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4347)?(4347):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4347:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4347:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4347:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-first.melt:4348:/ block"); /*block*/{ /*_.DIS__V6*/ curfptr[4] = (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; MELT_LOCATION("warmelt-first.melt:4349:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.SBUF__V7*/ curfptr[6] = slot; }; ; /*_#ONUM__L3*/ curfnum[1] = (melt_obj_num((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; /*_#OSERIAL__L4*/ curfnum[3] = (melt_obj_serial((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; { MELT_LOCATION("warmelt-first.melt:4353:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( " ^^|"));} ; MELT_LOCATION("warmelt-first.melt:4354:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V8*/ curfptr[7] = slot; }; ; { MELT_LOCATION("warmelt-first.melt:4354:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V8*/ curfptr[7])));} ; { MELT_LOCATION("warmelt-first.melt:4355:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "/"));} ; /*_#OBJ_HASH__L5*/ curfnum[4] = (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; { MELT_LOCATION("warmelt-first.melt:4356:/ locexp"); meltgc_add_strbuf_hex((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#OBJ_HASH__L5*/ curfnum[4]));} ; MELT_LOCATION("warmelt-first.melt:4357:/ cond"); /*cond*/ if (/*_#ONUM__L3*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4357:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4357:/ block"); /*block*/{ { MELT_LOCATION("warmelt-first.melt:4359:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "#"));} ; { MELT_LOCATION("warmelt-first.melt:4360:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#ONUM__L3*/ curfnum[1]));} ; MELT_LOCATION("warmelt-first.melt:4358:/ block"); /*block*/{} ; /*epilog*/} ; } /*noelse*/ ; MELT_LOCATION("warmelt-first.melt:4361:/ cond"); /*cond*/ if (/*_#OSERIAL__L4*/ curfnum[3]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4361:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4361:/ block"); /*block*/{ { MELT_LOCATION("warmelt-first.melt:4363:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), ( "##"));} ; { MELT_LOCATION("warmelt-first.melt:4364:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V7*/ curfptr[6]), (/*_#OSERIAL__L4*/ curfnum[3]));} ; MELT_LOCATION("warmelt-first.melt:4362:/ block"); /*block*/{} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4348:/ clear"); /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4348:/ clear"); /*clear*/ /*_.SBUF__V7*/ curfptr[6] = 0 ; MELT_LOCATION("warmelt-first.melt:4348:/ clear"); /*clear*/ /*_#ONUM__L3*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4348:/ clear"); /*clear*/ /*_#OSERIAL__L4*/ curfnum[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4348:/ clear"); /*clear*/ /*_.NAMED_NAME__V8*/ curfptr[7] = 0 ; MELT_LOCATION("warmelt-first.melt:4348:/ clear"); /*clear*/ /*_#OBJ_HASH__L5*/ curfnum[4] = 0 ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4346:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("DBGOUTAGAIN_ANYOBJECT_METHOD", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_92_warmelt_first_DBGOUTAGAIN_ANYOBJECT_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_93_warmelt_first_DBGOUT_NAMEDOBJECT_METHOD(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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_93_warmelt_first_DBGOUT_NAMEDOBJECT_METHOD_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 CURFRAM_NBVARPTR 17 void* varptr[17]; #define CURFRAM_NBVARNUM 10 long varnum[10]; /*others*/ long _spare_; } *framptr_=0, curfram__; 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(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 17; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("DBGOUT_NAMEDOBJECT_METHOD", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4370:/ getarg"); /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4370:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL); /*getarg#2*/ MELT_LOCATION("warmelt-first.melt:4370:/ getarg"); if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4370:/ block"); /*block*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4371:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4371:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));; MELT_LOCATION("warmelt-first.melt:4371:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4371:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4371:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4371:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4371:/ locexp"); melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4371)?(4371):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4371:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4371:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4371:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-first.melt:4372:/ block"); /*block*/{ /*_.DIS__V6*/ curfptr[4] = (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; MELT_LOCATION("warmelt-first.melt:4373:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V7*/ curfptr[6] = slot; }; ; MELT_LOCATION("warmelt-first.melt:4374:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.ONAM__V8*/ curfptr[7] = slot; }; ; MELT_LOCATION("warmelt-first.melt:4375:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), 0, "PROP_TABLE");/*_.OPROP__V9*/ curfptr[8] = slot; }; ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4377:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4377:/ block"); /*block*/{ /*_#IS_OUT__L3*/ curfnum[1] = (melt_is_out ((melt_ptr_t) /*_.OUT__V7*/ curfptr[6])) ;; MELT_LOCATION("warmelt-first.melt:4377:/ cond"); /*cond*/ if (/*_#IS_OUT__L3*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4377:/ cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4377:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4377:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4377:/ locexp"); melt_assert_failed(( "check out"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4377)?(4377):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[9] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4377:/ clear"); /*clear*/ /*_#IS_OUT__L3*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4377:/ clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4377:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; { MELT_LOCATION("warmelt-first.melt:4378:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "`"));} ; { MELT_LOCATION("warmelt-first.melt:4379:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.ONAM__V8*/ curfptr[7])));} ; { MELT_LOCATION("warmelt-first.melt:4380:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "|"));} ; MELT_LOCATION("warmelt-first.melt:4381:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V12*/ curfptr[10] = slot; }; ; { MELT_LOCATION("warmelt-first.melt:4381:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V12*/ curfptr[10])));} ; { MELT_LOCATION("warmelt-first.melt:4382:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "/"));} ; /*_#OBJ_HASH__L4*/ curfnum[1] = (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; { MELT_LOCATION("warmelt-first.melt:4383:/ locexp"); meltgc_add_out_hex((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), (/*_#OBJ_HASH__L4*/ curfnum[1]));} ; MELT_LOCATION("warmelt-first.melt:4384:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V13*/ curfptr[12] = slot; }; ; /*_#GET_INT__L5*/ curfnum[4] = (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V13*/ curfptr[12])));; /*_#NEED_DBGLIM__L6*/ curfnum[5] = (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) < (/*_#GET_INT__L5*/ curfnum[4]));; MELT_LOCATION("warmelt-first.melt:4384:/ cond"); /*cond*/ if (/*_#NEED_DBGLIM__L6*/ curfnum[5]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4384:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4384:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4385:/ block"); /*block*/{ /*_#ONUM__L7*/ curfnum[6] = (melt_obj_num((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; /*_#OSERIAL__L8*/ curfnum[7] = (melt_obj_serial((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; MELT_LOCATION("warmelt-first.melt:4387:/ cond"); /*cond*/ if (/*_#ONUM__L7*/ curfnum[6]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4387:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4387:/ block"); /*block*/{ { MELT_LOCATION("warmelt-first.melt:4389:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "#"));} ; { MELT_LOCATION("warmelt-first.melt:4390:/ locexp"); meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), (/*_#ONUM__L7*/ curfnum[6]));} ; MELT_LOCATION("warmelt-first.melt:4388:/ block"); /*block*/{} ; /*epilog*/} ; } /*noelse*/ ; MELT_LOCATION("warmelt-first.melt:4391:/ cond"); /*cond*/ if (/*_#OSERIAL__L8*/ curfnum[7]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4391:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4391:/ block"); /*block*/{ { MELT_LOCATION("warmelt-first.melt:4393:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "##"));} ; { MELT_LOCATION("warmelt-first.melt:4394:/ locexp"); meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), (/*_#OSERIAL__L8*/ curfnum[7]));} ; MELT_LOCATION("warmelt-first.melt:4392:/ block"); /*block*/{} ; /*epilog*/} ; } /*noelse*/ ; { MELT_LOCATION("warmelt-first.melt:4395:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "{"));} ; MELT_LOCATION("warmelt-first.melt:4396:/ cond"); /*cond*/ if (/*_.OPROP__V9*/ curfptr[8]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4396:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4396:/ block"); /*block*/{ { MELT_LOCATION("warmelt-first.melt:4398:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "prop="));} ; /*_#I__L9*/ curfnum[8] = ((/*_#DEPTH__L1*/ curfnum[0]) + (3));; MELT_LOCATION("warmelt-first.melt:4399:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4399:/ apply.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2]; MELT_LOCATION("warmelt-first.melt:4399:/ apply.arg"); argtab[1].bp_long = /*_#I__L9*/ curfnum[8]; /*_.DBG_OUT__V15*/ curfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.OPROP__V9*/ curfptr[8]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-first.melt:4397:/ block"); /*block*/{ /*_.PROGN___V16*/ curfptr[15] = /*_.DBG_OUT__V15*/ curfptr[14];;} ; /*_.IF___V14*/ curfptr[13] = /*_.PROGN___V16*/ curfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4396:/ clear"); /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ; MELT_LOCATION("warmelt-first.melt:4396:/ clear"); /*clear*/ /*_.DBG_OUT__V15*/ curfptr[14] = 0 ; MELT_LOCATION("warmelt-first.melt:4396:/ clear"); /*clear*/ /*_.PROGN___V16*/ curfptr[15] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4396:/ cond.else"); /*_.IF___V14*/ curfptr[13] = NULL;; } ; /*_#I__L10*/ curfnum[8] = ((/*_#DEPTH__L1*/ curfnum[0]) + (3));; MELT_LOCATION("warmelt-first.melt:4401:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4401:/ apply.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2]; MELT_LOCATION("warmelt-first.melt:4401:/ apply.arg"); argtab[1].bp_long = /*_#I__L10*/ curfnum[8]; MELT_LOCATION("warmelt-first.melt:4401:/ apply.arg"); argtab[2].bp_long = 2; MELT_LOCATION("warmelt-first.melt:4401:/ apply.arg"); argtab[3].bp_long = 0; /*_.DBGOUT_FIELDS__V17*/ curfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_FIELDS*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_LONG BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-first.melt:4402:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "}"));} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4385:/ clear"); /*clear*/ /*_#ONUM__L7*/ curfnum[6] = 0 ; MELT_LOCATION("warmelt-first.melt:4385:/ clear"); /*clear*/ /*_#OSERIAL__L8*/ curfnum[7] = 0 ; MELT_LOCATION("warmelt-first.melt:4385:/ clear"); /*clear*/ /*_.IF___V14*/ curfptr[13] = 0 ; MELT_LOCATION("warmelt-first.melt:4385:/ clear"); /*clear*/ /*_#I__L10*/ curfnum[8] = 0 ; MELT_LOCATION("warmelt-first.melt:4385:/ clear"); /*clear*/ /*_.DBGOUT_FIELDS__V17*/ curfptr[14] = 0 ;} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4372:/ clear"); /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4372:/ clear"); /*clear*/ /*_.OUT__V7*/ curfptr[6] = 0 ; MELT_LOCATION("warmelt-first.melt:4372:/ clear"); /*clear*/ /*_.ONAM__V8*/ curfptr[7] = 0 ; MELT_LOCATION("warmelt-first.melt:4372:/ clear"); /*clear*/ /*_.OPROP__V9*/ curfptr[8] = 0 ; MELT_LOCATION("warmelt-first.melt:4372:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ; MELT_LOCATION("warmelt-first.melt:4372:/ clear"); /*clear*/ /*_.NAMED_NAME__V12*/ curfptr[10] = 0 ; MELT_LOCATION("warmelt-first.melt:4372:/ clear"); /*clear*/ /*_#OBJ_HASH__L4*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4372:/ clear"); /*clear*/ /*_.DBGI_MAXDEPTH__V13*/ curfptr[12] = 0 ; MELT_LOCATION("warmelt-first.melt:4372:/ clear"); /*clear*/ /*_#GET_INT__L5*/ curfnum[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4372:/ clear"); /*clear*/ /*_#NEED_DBGLIM__L6*/ curfnum[5] = 0 ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4370:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("DBGOUT_NAMEDOBJECT_METHOD", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_93_warmelt_first_DBGOUT_NAMEDOBJECT_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_94_warmelt_first_DBGOUTAGAIN_NAMEDOBJECT_METHOD(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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_94_warmelt_first_DBGOUTAGAIN_NAMEDOBJECT_METHOD_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 CURFRAM_NBVARPTR 9 void* varptr[9]; #define CURFRAM_NBVARNUM 4 long varnum[4]; /*others*/ long _spare_; } *framptr_=0, curfram__; 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<9; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 9; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("DBGOUTAGAIN_NAMEDOBJECT_METHOD", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4409:/ getarg"); /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4409:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL); /*getarg#2*/ MELT_LOCATION("warmelt-first.melt:4409:/ getarg"); if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4409:/ block"); /*block*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4410:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4410:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));; MELT_LOCATION("warmelt-first.melt:4410:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4410:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4410:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4410:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4410:/ locexp"); melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4410)?(4410):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4410:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4410:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4410:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-first.melt:4411:/ block"); /*block*/{ /*_.DIS__V6*/ curfptr[4] = (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; MELT_LOCATION("warmelt-first.melt:4412:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V7*/ curfptr[6] = slot; }; ; MELT_LOCATION("warmelt-first.melt:4413:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.ONAM__V8*/ curfptr[7] = slot; }; ; /*_#OSERIAL__L3*/ curfnum[1] = (melt_obj_serial((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; { MELT_LOCATION("warmelt-first.melt:4416:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( " ^^`"));} ; { MELT_LOCATION("warmelt-first.melt:4417:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.ONAM__V8*/ curfptr[7])));} ; { MELT_LOCATION("warmelt-first.melt:4418:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "|"));} ; MELT_LOCATION("warmelt-first.melt:4419:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V6*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V9*/ curfptr[8] = slot; }; ; { MELT_LOCATION("warmelt-first.melt:4419:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V9*/ curfptr[8])));} ; { MELT_LOCATION("warmelt-first.melt:4420:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "/"));} ; /*_#OBJ_HASH__L4*/ curfnum[3] = (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; { MELT_LOCATION("warmelt-first.melt:4421:/ locexp"); meltgc_add_out_hex((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), (/*_#OBJ_HASH__L4*/ curfnum[3]));} ; MELT_LOCATION("warmelt-first.melt:4422:/ cond"); /*cond*/ if (/*_#OSERIAL__L3*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4422:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4422:/ block"); /*block*/{ { MELT_LOCATION("warmelt-first.melt:4424:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), ( "##"));} ; { MELT_LOCATION("warmelt-first.melt:4425:/ locexp"); meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V7*/ curfptr[6]), (/*_#OSERIAL__L3*/ curfnum[1]));} ; MELT_LOCATION("warmelt-first.melt:4423:/ block"); /*block*/{} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4411:/ clear"); /*clear*/ /*_.DIS__V6*/ curfptr[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4411:/ clear"); /*clear*/ /*_.OUT__V7*/ curfptr[6] = 0 ; MELT_LOCATION("warmelt-first.melt:4411:/ clear"); /*clear*/ /*_.ONAM__V8*/ curfptr[7] = 0 ; MELT_LOCATION("warmelt-first.melt:4411:/ clear"); /*clear*/ /*_#OSERIAL__L3*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4411:/ clear"); /*clear*/ /*_.NAMED_NAME__V9*/ curfptr[8] = 0 ; MELT_LOCATION("warmelt-first.melt:4411:/ clear"); /*clear*/ /*_#OBJ_HASH__L4*/ curfnum[3] = 0 ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4409:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("DBGOUTAGAIN_NAMEDOBJECT_METHOD", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_94_warmelt_first_DBGOUTAGAIN_NAMEDOBJECT_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_95_warmelt_first_DBGOUT_SYMBOL_METHOD(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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_95_warmelt_first_DBGOUT_SYMBOL_METHOD_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 CURFRAM_NBVARPTR 10 void* varptr[10]; #define CURFRAM_NBVARNUM 4 long varnum[4]; /*others*/ long _spare_; } *framptr_=0, curfram__; 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<10; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 10; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("DBGOUT_SYMBOL_METHOD", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4431:/ getarg"); /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4431:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL); /*getarg#2*/ MELT_LOCATION("warmelt-first.melt:4431:/ getarg"); if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4431:/ block"); /*block*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4432:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4432:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));; MELT_LOCATION("warmelt-first.melt:4432:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4432:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4432:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4432:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4432:/ locexp"); melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4432)?(4432):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4432:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4432:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4432:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4433:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4433:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));; MELT_LOCATION("warmelt-first.melt:4433:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4433:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4433:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4433:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4433:/ locexp"); melt_assert_failed(( "check self"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4433)?(4433):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4433:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4433:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4433:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#I__L4*/ curfnum[1] = ((/*_#DEPTH__L1*/ curfnum[0]) <= (0));; MELT_LOCATION("warmelt-first.melt:4434:/ cond"); /*cond*/ if (/*_#I__L4*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4434:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4434:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4435:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4435:/ apply.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2]; MELT_LOCATION("warmelt-first.melt:4435:/ apply.arg"); argtab[1].bp_long = 0; /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_NAMEDOBJECT_METHOD*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFELSE___V8*/ curfptr[6] = /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4434:/ clear"); /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4434:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4434:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4436:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4436:/ apply.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2]; MELT_LOCATION("warmelt-first.melt:4436:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.DBGOUTAGAIN_SYMBOL_METHOD__V10*/ curfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_SYMBOL_METHOD*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFELSE___V8*/ curfptr[6] = /*_.DBGOUTAGAIN_SYMBOL_METHOD__V10*/ curfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4434:/ clear"); /*clear*/ /*_.DBGOUTAGAIN_SYMBOL_METHOD__V10*/ curfptr[8] = 0 ;} ; } ; MELT_LOCATION("warmelt-first.melt:4431:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V8*/ curfptr[6];; MELT_LOCATION("warmelt-first.melt:4431:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4431:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4431:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4431:/ clear"); /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4431:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[6] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("DBGOUT_SYMBOL_METHOD", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_95_warmelt_first_DBGOUT_SYMBOL_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_96_warmelt_first_DBGOUTAGAIN_SYMBOL_METHOD(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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_96_warmelt_first_DBGOUTAGAIN_SYMBOL_METHOD_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 CURFRAM_NBVARPTR 9 void* varptr[9]; #define CURFRAM_NBVARNUM 5 long varnum[5]; /*others*/ long _spare_; } *framptr_=0, curfram__; 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<9; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 9; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("DBGOUTAGAIN_SYMBOL_METHOD", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4439:/ getarg"); /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4439:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL); /*getarg#2*/ MELT_LOCATION("warmelt-first.melt:4439:/ getarg"); if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4439:/ block"); /*block*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4440:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4440:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));; MELT_LOCATION("warmelt-first.melt:4440:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4440:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4440:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4440:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4440:/ locexp"); melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4440)?(4440):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4440:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4440:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4440:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4441:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4441:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));; MELT_LOCATION("warmelt-first.melt:4441:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4441:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4441:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4441:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4441:/ locexp"); melt_assert_failed(( "check self"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4441)?(4441):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4441:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4441:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4441:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-first.melt:4442:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4442:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V8*/ curfptr[6] = slot; }; ; MELT_LOCATION("warmelt-first.melt:4443:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.ONAM__V9*/ curfptr[8] = slot; }; ; /*_#OSERIAL__L4*/ curfnum[1] = (melt_obj_serial((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; { MELT_LOCATION("warmelt-first.melt:4446:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), ( " $"));} ; { MELT_LOCATION("warmelt-first.melt:4447:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.ONAM__V9*/ curfptr[8])));} ; { MELT_LOCATION("warmelt-first.melt:4448:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), ( "/"));} ; /*_#OBJ_HASH__L5*/ curfnum[4] = (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; { MELT_LOCATION("warmelt-first.melt:4449:/ locexp"); meltgc_add_out_hex((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), (/*_#OBJ_HASH__L5*/ curfnum[4]));} ; MELT_LOCATION("warmelt-first.melt:4450:/ cond"); /*cond*/ if (/*_#OSERIAL__L4*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4450:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4450:/ block"); /*block*/{ { MELT_LOCATION("warmelt-first.melt:4452:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), ( "##"));} ; { MELT_LOCATION("warmelt-first.melt:4453:/ locexp"); meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), (/*_#OSERIAL__L4*/ curfnum[1]));} ; MELT_LOCATION("warmelt-first.melt:4451:/ block"); /*block*/{} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4442:/ clear"); /*clear*/ /*_.OUT__V8*/ curfptr[6] = 0 ; MELT_LOCATION("warmelt-first.melt:4442:/ clear"); /*clear*/ /*_.ONAM__V9*/ curfptr[8] = 0 ; MELT_LOCATION("warmelt-first.melt:4442:/ clear"); /*clear*/ /*_#OSERIAL__L4*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4442:/ clear"); /*clear*/ /*_#OBJ_HASH__L5*/ curfnum[4] = 0 ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4439:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4439:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("DBGOUTAGAIN_SYMBOL_METHOD", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_96_warmelt_first_DBGOUTAGAIN_SYMBOL_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_97_warmelt_first_DBGOUT_CLASS_METHOD(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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_97_warmelt_first_DBGOUT_CLASS_METHOD_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 CURFRAM_NBVARPTR 10 void* varptr[10]; #define CURFRAM_NBVARNUM 4 long varnum[4]; /*others*/ long _spare_; } *framptr_=0, curfram__; 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<10; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 10; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("DBGOUT_CLASS_METHOD", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4459:/ getarg"); /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4459:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL); /*getarg#2*/ MELT_LOCATION("warmelt-first.melt:4459:/ getarg"); if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4459:/ block"); /*block*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4460:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4460:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));; MELT_LOCATION("warmelt-first.melt:4460:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4460:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4460:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4460:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4460:/ locexp"); melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4460)?(4460):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4460:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4460:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4460:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4461:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4461:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[1])));; MELT_LOCATION("warmelt-first.melt:4461:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4461:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4461:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4461:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4461:/ locexp"); melt_assert_failed(( "check self"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4461)?(4461):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4461:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4461:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4461:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#I__L4*/ curfnum[1] = ((/*_#DEPTH__L1*/ curfnum[0]) <= (0));; MELT_LOCATION("warmelt-first.melt:4462:/ cond"); /*cond*/ if (/*_#I__L4*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4462:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4462:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4463:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4463:/ apply.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2]; MELT_LOCATION("warmelt-first.melt:4463:/ apply.arg"); argtab[1].bp_long = 0; /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_NAMEDOBJECT_METHOD*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFELSE___V8*/ curfptr[6] = /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4462:/ clear"); /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4462:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4462:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4464:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4464:/ apply.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2]; MELT_LOCATION("warmelt-first.melt:4464:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.DBGOUTAGAIN_NAMEDOBJECT_METHOD__V10*/ curfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_NAMEDOBJECT_METHOD*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFELSE___V8*/ curfptr[6] = /*_.DBGOUTAGAIN_NAMEDOBJECT_METHOD__V10*/ curfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4462:/ clear"); /*clear*/ /*_.DBGOUTAGAIN_NAMEDOBJECT_METHOD__V10*/ curfptr[8] = 0 ;} ; } ; MELT_LOCATION("warmelt-first.melt:4459:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V8*/ curfptr[6];; MELT_LOCATION("warmelt-first.melt:4459:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4459:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4459:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4459:/ clear"); /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4459:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[6] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("DBGOUT_CLASS_METHOD", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_97_warmelt_first_DBGOUT_CLASS_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_98_warmelt_first_DBGOUT_KEYWORD_METHOD(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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_98_warmelt_first_DBGOUT_KEYWORD_METHOD_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 CURFRAM_NBVARPTR 10 void* varptr[10]; #define CURFRAM_NBVARNUM 4 long varnum[4]; /*others*/ long _spare_; } *framptr_=0, curfram__; 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<10; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 10; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("DBGOUT_KEYWORD_METHOD", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4468:/ getarg"); /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4468:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL); /*getarg#2*/ MELT_LOCATION("warmelt-first.melt:4468:/ getarg"); if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4468:/ block"); /*block*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4469:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4469:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));; MELT_LOCATION("warmelt-first.melt:4469:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4469:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4469:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4469:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4469:/ locexp"); melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4469)?(4469):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4469:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4469:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4469:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4470:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4470:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[1])));; MELT_LOCATION("warmelt-first.melt:4470:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4470:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4470:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4470:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4470:/ locexp"); melt_assert_failed(( "check self"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4470)?(4470):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4470:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4470:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4470:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#I__L4*/ curfnum[1] = ((/*_#DEPTH__L1*/ curfnum[0]) <= (0));; MELT_LOCATION("warmelt-first.melt:4471:/ cond"); /*cond*/ if (/*_#I__L4*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4471:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4471:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4472:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4472:/ apply.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2]; MELT_LOCATION("warmelt-first.melt:4472:/ apply.arg"); argtab[1].bp_long = 0; /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_NAMEDOBJECT_METHOD*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFELSE___V8*/ curfptr[6] = /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4471:/ clear"); /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4471:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4471:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4473:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4473:/ apply.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2]; MELT_LOCATION("warmelt-first.melt:4473:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.DBGOUTAGAIN_KEYWORD_METHOD__V10*/ curfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_KEYWORD_METHOD*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFELSE___V8*/ curfptr[6] = /*_.DBGOUTAGAIN_KEYWORD_METHOD__V10*/ curfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4471:/ clear"); /*clear*/ /*_.DBGOUTAGAIN_KEYWORD_METHOD__V10*/ curfptr[8] = 0 ;} ; } ; MELT_LOCATION("warmelt-first.melt:4468:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V8*/ curfptr[6];; MELT_LOCATION("warmelt-first.melt:4468:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4468:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4468:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4468:/ clear"); /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4468:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[6] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("DBGOUT_KEYWORD_METHOD", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_98_warmelt_first_DBGOUT_KEYWORD_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_99_warmelt_first_DBGOUTAGAIN_KEYWORD_METHOD(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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_99_warmelt_first_DBGOUTAGAIN_KEYWORD_METHOD_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 CURFRAM_NBVARPTR 9 void* varptr[9]; #define CURFRAM_NBVARNUM 5 long varnum[5]; /*others*/ long _spare_; } *framptr_=0, curfram__; 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<9; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 9; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("DBGOUTAGAIN_KEYWORD_METHOD", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4476:/ getarg"); /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4476:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL); /*getarg#2*/ MELT_LOCATION("warmelt-first.melt:4476:/ getarg"); if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4476:/ block"); /*block*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4477:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4477:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));; MELT_LOCATION("warmelt-first.melt:4477:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4477:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4477:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4477:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4477:/ locexp"); melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4477)?(4477):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4477:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4477:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4477:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4478:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4478:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[1])));; MELT_LOCATION("warmelt-first.melt:4478:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4478:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4478:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4478:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4478:/ locexp"); melt_assert_failed(( "check self"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4478)?(4478):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4478:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4478:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4478:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-first.melt:4479:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4479:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V8*/ curfptr[6] = slot; }; ; MELT_LOCATION("warmelt-first.melt:4480:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.ONAM__V9*/ curfptr[8] = slot; }; ; /*_#OSERIAL__L4*/ curfnum[1] = (melt_obj_serial((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; { MELT_LOCATION("warmelt-first.melt:4483:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), ( " $:"));} ; { MELT_LOCATION("warmelt-first.melt:4484:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), melt_string_str((melt_ptr_t)(/*_.ONAM__V9*/ curfptr[8])));} ; { MELT_LOCATION("warmelt-first.melt:4485:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), ( "/"));} ; /*_#OBJ_HASH__L5*/ curfnum[4] = (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; { MELT_LOCATION("warmelt-first.melt:4486:/ locexp"); meltgc_add_out_hex((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), (/*_#OBJ_HASH__L5*/ curfnum[4]));} ; MELT_LOCATION("warmelt-first.melt:4487:/ cond"); /*cond*/ if (/*_#OSERIAL__L4*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4487:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4487:/ block"); /*block*/{ { MELT_LOCATION("warmelt-first.melt:4489:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), ( "##"));} ; { MELT_LOCATION("warmelt-first.melt:4490:/ locexp"); meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V8*/ curfptr[6]), (/*_#OSERIAL__L4*/ curfnum[1]));} ; MELT_LOCATION("warmelt-first.melt:4488:/ block"); /*block*/{} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4479:/ clear"); /*clear*/ /*_.OUT__V8*/ curfptr[6] = 0 ; MELT_LOCATION("warmelt-first.melt:4479:/ clear"); /*clear*/ /*_.ONAM__V9*/ curfptr[8] = 0 ; MELT_LOCATION("warmelt-first.melt:4479:/ clear"); /*clear*/ /*_#OSERIAL__L4*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4479:/ clear"); /*clear*/ /*_#OBJ_HASH__L5*/ curfnum[4] = 0 ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4476:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4476:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("DBGOUTAGAIN_KEYWORD_METHOD", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_99_warmelt_first_DBGOUTAGAIN_KEYWORD_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_100_warmelt_first_DBGOUT_CLONED_SYMBOL_METHOD(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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_100_warmelt_first_DBGOUT_CLONED_SYMBOL_METHOD_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 CURFRAM_NBVARPTR 10 void* varptr[10]; #define CURFRAM_NBVARNUM 4 long varnum[4]; /*others*/ long _spare_; } *framptr_=0, curfram__; 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<10; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 10; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("DBGOUT_CLONED_SYMBOL_METHOD", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4496:/ getarg"); /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4496:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL); /*getarg#2*/ MELT_LOCATION("warmelt-first.melt:4496:/ getarg"); if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4496:/ block"); /*block*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4497:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4497:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));; MELT_LOCATION("warmelt-first.melt:4497:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4497:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4497:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4497:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4497:/ locexp"); melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4497)?(4497):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4497:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4497:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4497:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4498:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4498:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ curfrout->tabval[1])));; MELT_LOCATION("warmelt-first.melt:4498:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4498:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4498:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4498:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4498:/ locexp"); melt_assert_failed(( "check self"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4498)?(4498):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4498:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4498:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4498:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#I__L4*/ curfnum[1] = ((/*_#DEPTH__L1*/ curfnum[0]) <= (0));; MELT_LOCATION("warmelt-first.melt:4499:/ cond"); /*cond*/ if (/*_#I__L4*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4499:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4499:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4500:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4500:/ apply.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2]; MELT_LOCATION("warmelt-first.melt:4500:/ apply.arg"); argtab[1].bp_long = 0; /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_NAMEDOBJECT_METHOD*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFELSE___V8*/ curfptr[6] = /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4499:/ clear"); /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4499:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4499:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4501:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4501:/ apply.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2]; MELT_LOCATION("warmelt-first.melt:4501:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.DBGOUTAGAIN_CLONED_SYMBOL_METHOD__V10*/ curfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_CLONED_SYMBOL_METHOD*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFELSE___V8*/ curfptr[6] = /*_.DBGOUTAGAIN_CLONED_SYMBOL_METHOD__V10*/ curfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4499:/ clear"); /*clear*/ /*_.DBGOUTAGAIN_CLONED_SYMBOL_METHOD__V10*/ curfptr[8] = 0 ;} ; } ; MELT_LOCATION("warmelt-first.melt:4496:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V8*/ curfptr[6];; MELT_LOCATION("warmelt-first.melt:4496:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4496:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4496:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4496:/ clear"); /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4496:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[6] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("DBGOUT_CLONED_SYMBOL_METHOD", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_100_warmelt_first_DBGOUT_CLONED_SYMBOL_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_101_warmelt_first_DBGOUTAGAIN_CLONED_SYMBOL_METHOD(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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_101_warmelt_first_DBGOUTAGAIN_CLONED_SYMBOL_METHOD_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 CURFRAM_NBVARPTR 7 void* varptr[7]; #define CURFRAM_NBVARNUM 4 long varnum[4]; /*others*/ long _spare_; } *framptr_=0, curfram__; 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<7; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 7; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("DBGOUTAGAIN_CLONED_SYMBOL_METHOD", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4505:/ getarg"); /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4505:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL); /*getarg#2*/ MELT_LOCATION("warmelt-first.melt:4505:/ getarg"); if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4505:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4506:/ block"); /*block*/{ /*_.DIS__V4*/ curfptr[3] = (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; MELT_LOCATION("warmelt-first.melt:4507:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V5*/ curfptr[4] = slot; }; ; MELT_LOCATION("warmelt-first.melt:4508:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), 3, "CSYM_URANK");/*_.OURANK__V6*/ curfptr[5] = slot; }; ; /*_#LRK__L2*/ curfnum[1] = (melt_get_int((melt_ptr_t)(/*_.OURANK__V6*/ curfptr[5])));; /*_#OSERIAL__L3*/ curfnum[2] = (melt_obj_serial((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; MELT_LOCATION("warmelt-first.melt:4511:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.ONAM__V7*/ curfptr[6] = slot; }; ; { MELT_LOCATION("warmelt-first.melt:4512:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), ( " $$"));} ; { MELT_LOCATION("warmelt-first.melt:4513:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), melt_string_str((melt_ptr_t)(/*_.ONAM__V7*/ curfptr[6])));} ; { MELT_LOCATION("warmelt-first.melt:4514:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), ( ":"));} ; { MELT_LOCATION("warmelt-first.melt:4515:/ locexp"); meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), (/*_#LRK__L2*/ curfnum[1]));} ; { MELT_LOCATION("warmelt-first.melt:4516:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), ( "/"));} ; /*_#OBJ_HASH__L4*/ curfnum[3] = (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; { MELT_LOCATION("warmelt-first.melt:4517:/ locexp"); meltgc_add_out_hex((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), (/*_#OBJ_HASH__L4*/ curfnum[3]));} ; MELT_LOCATION("warmelt-first.melt:4518:/ cond"); /*cond*/ if (/*_#OSERIAL__L3*/ curfnum[2]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4518:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4518:/ block"); /*block*/{ { MELT_LOCATION("warmelt-first.melt:4520:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), ( "##"));} ; { MELT_LOCATION("warmelt-first.melt:4521:/ locexp"); meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), (/*_#OSERIAL__L3*/ curfnum[2]));} ; MELT_LOCATION("warmelt-first.melt:4519:/ block"); /*block*/{} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4506:/ clear"); /*clear*/ /*_.DIS__V4*/ curfptr[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4506:/ clear"); /*clear*/ /*_.OUT__V5*/ curfptr[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4506:/ clear"); /*clear*/ /*_.OURANK__V6*/ curfptr[5] = 0 ; MELT_LOCATION("warmelt-first.melt:4506:/ clear"); /*clear*/ /*_#LRK__L2*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4506:/ clear"); /*clear*/ /*_#OSERIAL__L3*/ curfnum[2] = 0 ; MELT_LOCATION("warmelt-first.melt:4506:/ clear"); /*clear*/ /*_.ONAM__V7*/ curfptr[6] = 0 ; MELT_LOCATION("warmelt-first.melt:4506:/ clear"); /*clear*/ /*_#OBJ_HASH__L4*/ curfnum[3] = 0 ;} ; /*epilog*/} ; goto labend_rout; labend_rout: melt_trace_end("DBGOUTAGAIN_CLONED_SYMBOL_METHOD", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_101_warmelt_first_DBGOUTAGAIN_CLONED_SYMBOL_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_102_warmelt_first_DBGOUT_ENVIRONMENT_METHOD(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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_102_warmelt_first_DBGOUT_ENVIRONMENT_METHOD_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 CURFRAM_NBVARPTR 16 void* varptr[16]; #define CURFRAM_NBVARNUM 21 long varnum[21]; /*others*/ long _spare_; } *framptr_=0, curfram__; 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<16; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 16; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("DBGOUT_ENVIRONMENT_METHOD", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4528:/ getarg"); /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4528:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL); /*getarg#2*/ MELT_LOCATION("warmelt-first.melt:4528:/ getarg"); if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4528:/ block"); /*block*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4529:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4529:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));; MELT_LOCATION("warmelt-first.melt:4529:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4529:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4529:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4529:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4529:/ locexp"); melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4529)?(4529):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4529:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4529:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4529:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4530:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4530:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; MELT_LOCATION("warmelt-first.melt:4530:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4530:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4530:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4530:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4530:/ locexp"); melt_assert_failed(( "check self"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4530)?(4530):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4530:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4530:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4530:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-first.melt:4531:/ block"); /*block*/{ /*_.DIS__V8*/ curfptr[6] = (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; MELT_LOCATION("warmelt-first.melt:4532:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V9*/ curfptr[8] = slot; }; ; /*_#OSERIAL__L4*/ curfnum[1] = (melt_obj_serial((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; /*_#ONUM__L5*/ curfnum[4] = (melt_obj_num((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; /*_#__L6*/ curfnum[5] = ((/*_.DIS__V8*/ curfptr[6]) == ((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; MELT_LOCATION("warmelt-first.melt:4536:/ cond"); /*cond*/ if (/*_#__L6*/ curfnum[5]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4536:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4536:/ block"); /*block*/{ { MELT_LOCATION("warmelt-first.melt:4537:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( "env"));} ; /*epilog*/} ; } else {MELT_LOCATION("warmelt-first.melt:4536:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4536:/ block"); /*block*/{ { MELT_LOCATION("warmelt-first.melt:4539:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( "|"));} ; MELT_LOCATION("warmelt-first.melt:4540:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V8*/ curfptr[6]), 1, "NAMED_NAME");/*_.NAMED_NAME__V10*/ curfptr[9] = slot; }; ; { MELT_LOCATION("warmelt-first.melt:4540:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V10*/ curfptr[9])));} ; MELT_LOCATION("warmelt-first.melt:4538:/ block"); /*block*/{} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4536:/ clear"); /*clear*/ /*_.NAMED_NAME__V10*/ curfptr[9] = 0 ;} ; } ; { MELT_LOCATION("warmelt-first.melt:4542:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( "/"));} ; /*_#OBJ_HASH__L7*/ curfnum[6] = (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; { MELT_LOCATION("warmelt-first.melt:4543:/ locexp"); meltgc_add_out_hex((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), (/*_#OBJ_HASH__L7*/ curfnum[6]));} ; MELT_LOCATION("warmelt-first.melt:4544:/ cond"); /*cond*/ if (/*_#ONUM__L5*/ curfnum[4]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4544:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4544:/ block"); /*block*/{ { MELT_LOCATION("warmelt-first.melt:4546:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( "#"));} ; { MELT_LOCATION("warmelt-first.melt:4547:/ locexp"); meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), (/*_#ONUM__L5*/ curfnum[4]));} ; MELT_LOCATION("warmelt-first.melt:4545:/ block"); /*block*/{} ; /*epilog*/} ; } /*noelse*/ ; MELT_LOCATION("warmelt-first.melt:4548:/ cond"); /*cond*/ if (/*_#OSERIAL__L4*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4548:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4548:/ block"); /*block*/{ { MELT_LOCATION("warmelt-first.melt:4550:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( "##"));} ; { MELT_LOCATION("warmelt-first.melt:4551:/ locexp"); meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), (/*_#OSERIAL__L4*/ curfnum[1]));} ; MELT_LOCATION("warmelt-first.melt:4549:/ block"); /*block*/{} ; /*epilog*/} ; } /*noelse*/ ; { MELT_LOCATION("warmelt-first.melt:4552:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( "{"));} ; MELT_LOCATION("warmelt-first.melt:4553:/ block"); /*block*/{ /*_#OFFPREV__L8*/ curfnum[7] = (melt_get_int((melt_ptr_t)((/*!ENV_PREV*/ curfrout->tabval[2]))));; MELT_LOCATION("warmelt-first.melt:4554:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V11*/ curfptr[9] = slot; }; ; /*_#OLDMAXDEPTH__L9*/ curfnum[8] = (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V11*/ curfptr[9])));; /*_#I__L10*/ curfnum[9] = (melt_idiv((/*_#OLDMAXDEPTH__L9*/ curfnum[8]), (2)));; /*_#NEWMAXDEPTH__L11*/ curfnum[10] = ((/*_#I__L10*/ curfnum[9]) - (1));; /*_#I__L12*/ curfnum[11] = ((/*_#NEWMAXDEPTH__L11*/ curfnum[10]) < (0));; MELT_LOCATION("warmelt-first.melt:4557:/ cond"); /*cond*/ if (/*_#I__L12*/ curfnum[11]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4557:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4557:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4557:/ compute"); /*_#NEWMAXDEPTH__L11*/ curfnum[10] = /*_#SETQ___L14*/ curfnum[13] = 0;; /*_#IF___L13*/ curfnum[12] = /*_#SETQ___L14*/ curfnum[13];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4557:/ clear"); /*clear*/ /*_#SETQ___L14*/ curfnum[13] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4557:/ cond.else"); /*_#IF___L13*/ curfnum[12] = 0;; } ; /*_#NEED_DBGLIM__L15*/ curfnum[13] = (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) < (/*_#OLDMAXDEPTH__L9*/ curfnum[8]));; MELT_LOCATION("warmelt-first.melt:4558:/ cond"); /*cond*/ if (/*_#NEED_DBGLIM__L15*/ curfnum[13]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4558:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4558:/ block"); /*block*/{ /*_#I__L16*/ curfnum[15] = ((/*_#DEPTH__L1*/ curfnum[0]) > (0));; MELT_LOCATION("warmelt-first.melt:4560:/ cond"); /*cond*/ if (/*_#I__L16*/ curfnum[15]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4560:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4560:/ block"); /*block*/{ /*_#I__L17*/ curfnum[16] = ((/*_#OLDMAXDEPTH__L9*/ curfnum[8]) > (3));; MELT_LOCATION("warmelt-first.melt:4560:/ cond"); /*cond*/ if (/*_#I__L17*/ curfnum[16]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4560:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4560:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4561:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V12*/ curfptr[11] = slot; }; ; { MELT_LOCATION("warmelt-first.melt:4561:/ locexp"); melt_put_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V12*/ curfptr[11]), (/*_#NEWMAXDEPTH__L11*/ curfnum[10]));} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4560:/ clear"); /*clear*/ /*_.DBGI_MAXDEPTH__V12*/ curfptr[11] = 0 ;} ; } /*noelse*/ ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4560:/ clear"); /*clear*/ /*_#I__L17*/ curfnum[16] = 0 ;} ; } /*noelse*/ ; /*_#I__L18*/ curfnum[16] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; MELT_LOCATION("warmelt-first.melt:4562:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4562:/ apply.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2]; MELT_LOCATION("warmelt-first.melt:4562:/ apply.arg"); argtab[1].bp_long = /*_#I__L18*/ curfnum[16]; MELT_LOCATION("warmelt-first.melt:4562:/ apply.arg"); argtab[2].bp_long = 0; MELT_LOCATION("warmelt-first.melt:4562:/ apply.arg"); argtab[3].bp_long = /*_#OFFPREV__L8*/ curfnum[7]; /*_.DBGOUT_FIELDS__V13*/ curfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_FIELDS*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_LONG BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_#I__L19*/ curfnum[18] = ((/*_#DEPTH__L1*/ curfnum[0]) + (2));; /*_#NEED_DBGLIM__L20*/ curfnum[19] = (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount && (/*_#I__L19*/ curfnum[18])>=0 && (/*_#I__L19*/ curfnum[18]) < (/*_#NEWMAXDEPTH__L11*/ curfnum[10]));; MELT_LOCATION("warmelt-first.melt:4563:/ cond"); /*cond*/ if (/*_#NEED_DBGLIM__L20*/ curfnum[19]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4563:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4563:/ block"); /*block*/{ /*_#I__L21*/ curfnum[20] = ((/*_#DEPTH__L1*/ curfnum[0]) + (2));; MELT_LOCATION("warmelt-first.melt:4564:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4564:/ apply.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2]; MELT_LOCATION("warmelt-first.melt:4564:/ apply.arg"); argtab[1].bp_long = /*_#I__L21*/ curfnum[20]; MELT_LOCATION("warmelt-first.melt:4564:/ apply.arg"); argtab[2].bp_long = /*_#OFFPREV__L8*/ curfnum[7]; MELT_LOCATION("warmelt-first.melt:4564:/ apply.arg"); argtab[3].bp_long = 0; /*_.DBGOUTAGAIN_FIELDS__V15*/ curfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_FIELDS*/ curfrout->tabval[4])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_LONG BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFELSE___V14*/ curfptr[13] = /*_.DBGOUTAGAIN_FIELDS__V15*/ curfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4563:/ clear"); /*clear*/ /*_#I__L21*/ curfnum[20] = 0 ; MELT_LOCATION("warmelt-first.melt:4563:/ clear"); /*clear*/ /*_.DBGOUTAGAIN_FIELDS__V15*/ curfptr[14] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4563:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4563:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4565:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( ".._.."));} ; /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; /*epilog*/} ; } ; MELT_LOCATION("warmelt-first.melt:4566:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V16*/ curfptr[14] = slot; }; ; { MELT_LOCATION("warmelt-first.melt:4566:/ locexp"); melt_put_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V16*/ curfptr[14]), (/*_#OLDMAXDEPTH__L9*/ curfnum[8]));} ; MELT_LOCATION("warmelt-first.melt:4559:/ block"); /*block*/{} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4558:/ clear"); /*clear*/ /*_#I__L16*/ curfnum[15] = 0 ; MELT_LOCATION("warmelt-first.melt:4558:/ clear"); /*clear*/ /*_#I__L18*/ curfnum[16] = 0 ; MELT_LOCATION("warmelt-first.melt:4558:/ clear"); /*clear*/ /*_.DBGOUT_FIELDS__V13*/ curfptr[11] = 0 ; MELT_LOCATION("warmelt-first.melt:4558:/ clear"); /*clear*/ /*_#I__L19*/ curfnum[18] = 0 ; MELT_LOCATION("warmelt-first.melt:4558:/ clear"); /*clear*/ /*_#NEED_DBGLIM__L20*/ curfnum[19] = 0 ; MELT_LOCATION("warmelt-first.melt:4558:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ; MELT_LOCATION("warmelt-first.melt:4558:/ clear"); /*clear*/ /*_.DBGI_MAXDEPTH__V16*/ curfptr[14] = 0 ;} ; } /*noelse*/ ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4553:/ clear"); /*clear*/ /*_#OFFPREV__L8*/ curfnum[7] = 0 ; MELT_LOCATION("warmelt-first.melt:4553:/ clear"); /*clear*/ /*_.DBGI_MAXDEPTH__V11*/ curfptr[9] = 0 ; MELT_LOCATION("warmelt-first.melt:4553:/ clear"); /*clear*/ /*_#OLDMAXDEPTH__L9*/ curfnum[8] = 0 ; MELT_LOCATION("warmelt-first.melt:4553:/ clear"); /*clear*/ /*_#I__L10*/ curfnum[9] = 0 ; MELT_LOCATION("warmelt-first.melt:4553:/ clear"); /*clear*/ /*_#NEWMAXDEPTH__L11*/ curfnum[10] = 0 ; MELT_LOCATION("warmelt-first.melt:4553:/ clear"); /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ; MELT_LOCATION("warmelt-first.melt:4553:/ clear"); /*clear*/ /*_#IF___L13*/ curfnum[12] = 0 ; MELT_LOCATION("warmelt-first.melt:4553:/ clear"); /*clear*/ /*_#NEED_DBGLIM__L15*/ curfnum[13] = 0 ;} ; { MELT_LOCATION("warmelt-first.melt:4568:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( "}"));} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4531:/ clear"); /*clear*/ /*_.DIS__V8*/ curfptr[6] = 0 ; MELT_LOCATION("warmelt-first.melt:4531:/ clear"); /*clear*/ /*_.OUT__V9*/ curfptr[8] = 0 ; MELT_LOCATION("warmelt-first.melt:4531:/ clear"); /*clear*/ /*_#OSERIAL__L4*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4531:/ clear"); /*clear*/ /*_#ONUM__L5*/ curfnum[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4531:/ clear"); /*clear*/ /*_#__L6*/ curfnum[5] = 0 ; MELT_LOCATION("warmelt-first.melt:4531:/ clear"); /*clear*/ /*_#OBJ_HASH__L7*/ curfnum[6] = 0 ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4528:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4528:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("DBGOUT_ENVIRONMENT_METHOD", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_102_warmelt_first_DBGOUT_ENVIRONMENT_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_warmelt_first_DBGOUT_CTYPE_METHOD(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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_103_warmelt_first_DBGOUT_CTYPE_METHOD_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 CURFRAM_NBVARPTR 10 void* varptr[10]; #define CURFRAM_NBVARNUM 4 long varnum[4]; /*others*/ long _spare_; } *framptr_=0, curfram__; 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<10; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 10; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("DBGOUT_CTYPE_METHOD", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4574:/ getarg"); /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4574:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL); /*getarg#2*/ MELT_LOCATION("warmelt-first.melt:4574:/ getarg"); if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4574:/ block"); /*block*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4575:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4575:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));; MELT_LOCATION("warmelt-first.melt:4575:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4575:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4575:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4575:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4575:/ locexp"); melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4575)?(4575):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4575:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4575:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4575:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4576:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4576:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[1])));; MELT_LOCATION("warmelt-first.melt:4576:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4576:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4576:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4576:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4576:/ locexp"); melt_assert_failed(( "check self"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4576)?(4576):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4576:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4576:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4576:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#I__L4*/ curfnum[1] = ((/*_#DEPTH__L1*/ curfnum[0]) <= (0));; MELT_LOCATION("warmelt-first.melt:4577:/ cond"); /*cond*/ if (/*_#I__L4*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4577:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4577:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4578:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4578:/ apply.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2]; MELT_LOCATION("warmelt-first.melt:4578:/ apply.arg"); argtab[1].bp_long = 0; /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_NAMEDOBJECT_METHOD*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFELSE___V8*/ curfptr[6] = /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4577:/ clear"); /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V9*/ curfptr[8] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4577:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4577:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4579:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4579:/ apply.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2]; MELT_LOCATION("warmelt-first.melt:4579:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.DBGOUTAGAIN_CTYPE_METHOD__V10*/ curfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_CTYPE_METHOD*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFELSE___V8*/ curfptr[6] = /*_.DBGOUTAGAIN_CTYPE_METHOD__V10*/ curfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4577:/ clear"); /*clear*/ /*_.DBGOUTAGAIN_CTYPE_METHOD__V10*/ curfptr[8] = 0 ;} ; } ; MELT_LOCATION("warmelt-first.melt:4574:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V8*/ curfptr[6];; MELT_LOCATION("warmelt-first.melt:4574:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4574:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4574:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4574:/ clear"); /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4574:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[6] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("DBGOUT_CTYPE_METHOD", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_103_warmelt_first_DBGOUT_CTYPE_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_104_warmelt_first_DBGOUTAGAIN_CTYPE_METHOD(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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_104_warmelt_first_DBGOUTAGAIN_CTYPE_METHOD_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 CURFRAM_NBVARPTR 6 void* varptr[6]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; 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<6; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 6; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("DBGOUTAGAIN_CTYPE_METHOD", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4583:/ getarg"); /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4583:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL); /*getarg#2*/ MELT_LOCATION("warmelt-first.melt:4583:/ getarg"); if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4583:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4584:/ block"); /*block*/{ /*_.DIS__V4*/ curfptr[3] = (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; MELT_LOCATION("warmelt-first.melt:4585:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V5*/ curfptr[4] = slot; }; ; /*_#OSERIAL__L2*/ curfnum[1] = (melt_obj_serial((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; MELT_LOCATION("warmelt-first.melt:4587:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.ONAM__V6*/ curfptr[5] = slot; }; ; { MELT_LOCATION("warmelt-first.melt:4588:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), ( " $!"));} ; { MELT_LOCATION("warmelt-first.melt:4589:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), melt_string_str((melt_ptr_t)(/*_.ONAM__V6*/ curfptr[5])));} ; { MELT_LOCATION("warmelt-first.melt:4590:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), ( "!/"));} ; /*_#OBJ_HASH__L3*/ curfnum[2] = (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; { MELT_LOCATION("warmelt-first.melt:4591:/ locexp"); meltgc_add_out_hex((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), (/*_#OBJ_HASH__L3*/ curfnum[2]));} ; MELT_LOCATION("warmelt-first.melt:4592:/ cond"); /*cond*/ if (/*_#OSERIAL__L2*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4592:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4592:/ block"); /*block*/{ { MELT_LOCATION("warmelt-first.melt:4594:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), ( "##"));} ; { MELT_LOCATION("warmelt-first.melt:4595:/ locexp"); meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V5*/ curfptr[4]), (/*_#OSERIAL__L2*/ curfnum[1]));} ; MELT_LOCATION("warmelt-first.melt:4593:/ block"); /*block*/{} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4584:/ clear"); /*clear*/ /*_.DIS__V4*/ curfptr[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4584:/ clear"); /*clear*/ /*_.OUT__V5*/ curfptr[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4584:/ clear"); /*clear*/ /*_#OSERIAL__L2*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4584:/ clear"); /*clear*/ /*_.ONAM__V6*/ curfptr[5] = 0 ; MELT_LOCATION("warmelt-first.melt:4584:/ clear"); /*clear*/ /*_#OBJ_HASH__L3*/ curfnum[2] = 0 ;} ; /*epilog*/} ; goto labend_rout; labend_rout: melt_trace_end("DBGOUTAGAIN_CTYPE_METHOD", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_104_warmelt_first_DBGOUTAGAIN_CTYPE_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_105_warmelt_first_FRESH_ENV(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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_105_warmelt_first_FRESH_ENV_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 CURFRAM_NBVARPTR 11 void* varptr[11]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; 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<11; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 11; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("FRESH_ENV", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4604:/ getarg"); /*_.PARENV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4604:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DESCR__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DESCR__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4604:/ block"); /*block*/{ /*_#NULL__L1*/ curfnum[0] = ((/*_.PARENV__V2*/ curfptr[1]) == NULL);; MELT_LOCATION("warmelt-first.melt:4608:/ cond"); /*cond*/ if (/*_#NULL__L1*/ curfnum[0]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4608:/ cond.then"); /*_#OR___L2*/ curfnum[1] = /*_#NULL__L1*/ curfnum[0];; } else {MELT_LOCATION("warmelt-first.melt:4608:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4608:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.PARENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));; /*_#OR___L2*/ curfnum[1] = /*_#IS_A__L3*/ curfnum[2];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4608:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[2] = 0 ;} ; } ; MELT_LOCATION("warmelt-first.melt:4608:/ cond"); /*cond*/ if (/*_#OR___L2*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4608:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4608:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4609:/ cond"); /*cond*/ if (/*_.DESCR__V3*/ curfptr[2]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4609:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4609:/ block"); /*block*/{ /*_.MAKE_MAPOBJECT__V6*/ curfptr[5] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[2])), (26)));; MELT_LOCATION("warmelt-first.melt:4610:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4610:/ rawallocobj"); /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_DESCRIBED_ENVIRONMENT*/ curfrout->tabval[1])), (4), "CLASS_DESCRIBED_ENVIRONMENT");/*_.INST__V8*/ curfptr[7] = newobj; }; ; MELT_LOCATION("warmelt-first.melt:4610:/ putslot"); /*putslot*/ melt_assertmsg("putslot checkobj @ENV_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (0), (/*_.MAKE_MAPOBJECT__V6*/ curfptr[5]), "ENV_BIND"); ; MELT_LOCATION("warmelt-first.melt:4610:/ putslot"); /*putslot*/ melt_assertmsg("putslot checkobj @ENV_PREV", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (1), (/*_.PARENV__V2*/ curfptr[1]), "ENV_PREV"); ; MELT_LOCATION("warmelt-first.melt:4610:/ putslot"); /*putslot*/ melt_assertmsg("putslot checkobj @DENV_DESCR", melt_magic_discr((melt_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V8*/ curfptr[7]), (3), (/*_.DESCR__V3*/ curfptr[2]), "DENV_DESCR"); ; /*_.INST___V7*/ curfptr[6] = /*_.INST__V8*/ curfptr[7];;} ; /*_.IFELSE___V5*/ curfptr[4] = /*_.INST___V7*/ curfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4609:/ clear"); /*clear*/ /*_.MAKE_MAPOBJECT__V6*/ curfptr[5] = 0 ; MELT_LOCATION("warmelt-first.melt:4609:/ clear"); /*clear*/ /*_.INST___V7*/ curfptr[6] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4609:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4609:/ block"); /*block*/{ /*_.MAKE_MAPOBJECT__V9*/ curfptr[5] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[2])), (6)));; MELT_LOCATION("warmelt-first.melt:4614:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4614:/ rawallocobj"); /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])), (3), "CLASS_ENVIRONMENT");/*_.INST__V11*/ curfptr[10] = newobj; }; ; MELT_LOCATION("warmelt-first.melt:4614:/ putslot"); /*putslot*/ melt_assertmsg("putslot checkobj @ENV_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V11*/ curfptr[10])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V11*/ curfptr[10]), (0), (/*_.MAKE_MAPOBJECT__V9*/ curfptr[5]), "ENV_BIND"); ; MELT_LOCATION("warmelt-first.melt:4614:/ putslot"); /*putslot*/ melt_assertmsg("putslot checkobj @ENV_PREV", melt_magic_discr((melt_ptr_t)(/*_.INST__V11*/ curfptr[10])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V11*/ curfptr[10]), (1), (/*_.PARENV__V2*/ curfptr[1]), "ENV_PREV"); ; /*_.INST___V10*/ curfptr[6] = /*_.INST__V11*/ curfptr[10];;} ; /*_.IFELSE___V5*/ curfptr[4] = /*_.INST___V10*/ curfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4609:/ clear"); /*clear*/ /*_.MAKE_MAPOBJECT__V9*/ curfptr[5] = 0 ; MELT_LOCATION("warmelt-first.melt:4609:/ clear"); /*clear*/ /*_.INST___V10*/ curfptr[6] = 0 ;} ; } ; /*_.IF___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4608:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4608:/ cond.else"); /*_.IF___V4*/ curfptr[3] = NULL;; } ; MELT_LOCATION("warmelt-first.melt:4604:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IF___V4*/ curfptr[3];; MELT_LOCATION("warmelt-first.melt:4604:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4604:/ clear"); /*clear*/ /*_#NULL__L1*/ curfnum[0] = 0 ; MELT_LOCATION("warmelt-first.melt:4604:/ clear"); /*clear*/ /*_#OR___L2*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4604:/ clear"); /*clear*/ /*_.IF___V4*/ curfptr[3] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("FRESH_ENV", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_105_warmelt_first_FRESH_ENV*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_warmelt_first_FIND_ENV(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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_106_warmelt_first_FIND_ENV_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 CURFRAM_NBVARPTR 19 void* varptr[19]; #define CURFRAM_NBVARNUM 6 long varnum[6]; /*others*/ long _spare_; } *framptr_=0, curfram__; 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<19; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 19; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("FIND_ENV", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4626:/ getarg"); /*_.ENV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4626:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.BINDER__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDER__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4626:/ block"); /*block*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4628:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4628:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));; MELT_LOCATION("warmelt-first.melt:4628:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4628:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4628:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4628:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4628:/ locexp"); melt_assert_failed(( "check arg env"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4628)?(4628):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4628:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; MELT_LOCATION("warmelt-first.melt:4628:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4628:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4629:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4629:/ block"); /*block*/{ /*_#IS_OBJECT__L2*/ curfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.BINDER__V3*/ curfptr[2])) == OBMAG_OBJECT);; MELT_LOCATION("warmelt-first.melt:4629:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L2*/ curfnum[0]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4629:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4629:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4629:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4629:/ locexp"); melt_assert_failed(( "check arg binder"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4629)?(4629):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4629:/ clear"); /*clear*/ /*_#IS_OBJECT__L2*/ curfnum[0] = 0 ; MELT_LOCATION("warmelt-first.melt:4629:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4629:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-first.melt:4630:/ loop"); /*loop*/{ labloop_FINDLOOP_1:;MELT_LOCATION("warmelt-first.melt:4630:/ loopbody"); MELT_LOCATION("warmelt-first.melt:4630:/ block"); /*block*/{ /*_#NULL__L3*/ curfnum[0] = ((/*_.ENV__V2*/ curfptr[1]) == NULL);; MELT_LOCATION("warmelt-first.melt:4632:/ cond"); /*cond*/ if (/*_#NULL__L3*/ curfnum[0]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4632:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4632:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4633:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4633:/ compute"); /*_.FINDLOOP__V9*/ curfptr[8] = (/*nil*/NULL);; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4633:/ exit"); /*exit*/{ goto labexit_FINDLOOP_1;} ;} ; /*epilog*/} ; } /*noelse*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4634:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4634:/ block"); /*block*/{ /*_#IS_OBJECT__L4*/ curfnum[3] = (melt_magic_discr((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1])) == OBMAG_OBJECT);; MELT_LOCATION("warmelt-first.melt:4634:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L4*/ curfnum[3]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4634:/ cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4634:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4634:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4634:/ locexp"); melt_assert_failed(( "check env obj"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4634)?(4634):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[9] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4634:/ clear"); /*clear*/ /*_#IS_OBJECT__L4*/ curfnum[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4634:/ clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4634:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4635:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4635:/ block"); /*block*/{ /*_#IS_A__L5*/ curfnum[3] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));; MELT_LOCATION("warmelt-first.melt:4635:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[3]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4635:/ cond.then"); /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4635:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4635:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4635:/ locexp"); melt_assert_failed(( "check good env"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4635)?(4635):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.IFELSE___V13*/ curfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4635:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4635:/ clear"); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4635:/ cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-first.melt:4636:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4637:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), 0, "ENV_BIND");/*_.BINDMAP__V14*/ curfptr[12] = slot; }; ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4638:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4638:/ block"); /*block*/{ /*_#IS_MAPOBJECT__L6*/ curfnum[3] = (melt_magic_discr((melt_ptr_t)(/*_.BINDMAP__V14*/ curfptr[12])) == OBMAG_MAPOBJECTS);; MELT_LOCATION("warmelt-first.melt:4638:/ cond"); /*cond*/ if (/*_#IS_MAPOBJECT__L6*/ curfnum[3]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4638:/ cond.then"); /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4638:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4638:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4638:/ locexp"); melt_assert_failed(( "check bindmap"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4638)?(4638):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V15*/ curfptr[14] = /*_.IFELSE___V16*/ curfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4638:/ clear"); /*clear*/ /*_#IS_MAPOBJECT__L6*/ curfnum[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4638:/ clear"); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4638:/ cppif.else"); /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-first.melt:4639:/ block"); /*block*/{ /*_.BND__V17*/ curfptr[15] = melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.BINDMAP__V14*/ curfptr[12]), (meltobject_ptr_t)(/*_.BINDER__V3*/ curfptr[2]));; MELT_LOCATION("warmelt-first.melt:4641:/ cond"); /*cond*/ if (/*_.BND__V17*/ curfptr[15]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4641:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4641:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4642:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4642:/ compute"); /*_.FINDLOOP__V9*/ curfptr[8] = /*_.BND__V17*/ curfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4642:/ exit"); /*exit*/{ goto labexit_FINDLOOP_1;} ;} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4639:/ clear"); /*clear*/ /*_.BND__V17*/ curfptr[15] = 0 ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4636:/ clear"); /*clear*/ /*_.BINDMAP__V14*/ curfptr[12] = 0 ; MELT_LOCATION("warmelt-first.melt:4636:/ clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ;} ; MELT_LOCATION("warmelt-first.melt:4644:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), 1, "ENV_PREV");/*_.ENV_PREV__V18*/ curfptr[15] = slot; }; ; MELT_LOCATION("warmelt-first.melt:4644:/ compute"); /*_.ENV__V2*/ curfptr[1] = /*_.SETQ___V19*/ curfptr[12] = /*_.ENV_PREV__V18*/ curfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4630:/ clear"); /*clear*/ /*_#NULL__L3*/ curfnum[0] = 0 ; MELT_LOCATION("warmelt-first.melt:4630:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ; MELT_LOCATION("warmelt-first.melt:4630:/ clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; MELT_LOCATION("warmelt-first.melt:4630:/ clear"); /*clear*/ /*_.ENV_PREV__V18*/ curfptr[15] = 0 ; MELT_LOCATION("warmelt-first.melt:4630:/ clear"); /*clear*/ /*_.SETQ___V19*/ curfptr[12] = 0 ;} ; ; goto labloop_FINDLOOP_1; labexit_FINDLOOP_1:;MELT_LOCATION("warmelt-first.melt:4630:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V8*/ curfptr[6] = /*_.FINDLOOP__V9*/ curfptr[8];; } ; MELT_LOCATION("warmelt-first.melt:4626:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.FOREVER___V8*/ curfptr[6];; MELT_LOCATION("warmelt-first.melt:4626:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4626:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4626:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4626:/ clear"); /*clear*/ /*_.FOREVER___V8*/ curfptr[6] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("FIND_ENV", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_106_warmelt_first_FIND_ENV*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_107_warmelt_first_FIND_ENV_DEBUG(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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_107_warmelt_first_FIND_ENV_DEBUG_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 CURFRAM_NBVARPTR 29 void* varptr[29]; #define CURFRAM_NBVARNUM 11 long varnum[11]; /*others*/ long _spare_; } *framptr_=0, curfram__; 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<29; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 29; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("FIND_ENV_DEBUG", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4649:/ getarg"); /*_.ENV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4649:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.BINDER__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDER__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4649:/ block"); /*block*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4650:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4650:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));; MELT_LOCATION("warmelt-first.melt:4650:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4650:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4650:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4650:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4650:/ locexp"); melt_assert_failed(( "check arg env"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4650)?(4650):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4650:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; MELT_LOCATION("warmelt-first.melt:4650:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4650:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4651:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4651:/ block"); /*block*/{ /*_#IS_OBJECT__L2*/ curfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.BINDER__V3*/ curfptr[2])) == OBMAG_OBJECT);; MELT_LOCATION("warmelt-first.melt:4651:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L2*/ curfnum[0]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4651:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4651:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4651:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4651:/ locexp"); melt_assert_failed(( "check arg binder"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4651)?(4651):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4651:/ clear"); /*clear*/ /*_#IS_OBJECT__L2*/ curfnum[0] = 0 ; MELT_LOCATION("warmelt-first.melt:4651:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4651:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4652:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4652:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; MELT_LOCATION("warmelt-first.melt:4652:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4652:/ apply.arg"); argtab[0].bp_cstring = "find_env_debug initial env"; MELT_LOCATION("warmelt-first.melt:4652:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; MELT_LOCATION("warmelt-first.melt:4652:/ apply.arg"); argtab[2].bp_cstring = "warmelt-first.melt"; MELT_LOCATION("warmelt-first.melt:4652:/ apply.arg"); argtab[3].bp_long = 4652; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4652:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; MELT_LOCATION("warmelt-first.melt:4652:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4652:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4653:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4653:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; MELT_LOCATION("warmelt-first.melt:4653:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4653:/ apply.arg"); argtab[0].bp_cstring = "find_env_debug binder"; MELT_LOCATION("warmelt-first.melt:4653:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; MELT_LOCATION("warmelt-first.melt:4653:/ apply.arg"); argtab[2].bp_cstring = "warmelt-first.melt"; MELT_LOCATION("warmelt-first.melt:4653:/ apply.arg"); argtab[3].bp_long = 4653; /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.BINDER__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4653:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; MELT_LOCATION("warmelt-first.melt:4653:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4653:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-first.melt:4654:/ loop"); /*loop*/{ labloop_FINDLOOP_2:;MELT_LOCATION("warmelt-first.melt:4654:/ loopbody"); MELT_LOCATION("warmelt-first.melt:4654:/ block"); /*block*/{ /*_#NULL__L5*/ curfnum[0] = ((/*_.ENV__V2*/ curfptr[1]) == NULL);; MELT_LOCATION("warmelt-first.melt:4656:/ cond"); /*cond*/ if (/*_#NULL__L5*/ curfnum[0]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4656:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4656:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4657:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4657:/ compute"); /*_.FINDLOOP__V13*/ curfptr[12] = (/*nil*/NULL);; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4657:/ exit"); /*exit*/{ goto labexit_FINDLOOP_2;} ;} ; /*epilog*/} ; } /*noelse*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4658:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4658:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = callcount;; MELT_LOCATION("warmelt-first.melt:4658:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4658:/ apply.arg"); argtab[0].bp_cstring = "find_env_debug current env"; MELT_LOCATION("warmelt-first.melt:4658:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5]; MELT_LOCATION("warmelt-first.melt:4658:/ apply.arg"); argtab[2].bp_cstring = "warmelt-first.melt"; MELT_LOCATION("warmelt-first.melt:4658:/ apply.arg"); argtab[3].bp_long = 4658; /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V14*/ curfptr[13] = /*_.DEBUG_MSG_FUN__V15*/ curfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4658:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ; MELT_LOCATION("warmelt-first.melt:4658:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4658:/ cppif.else"); /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4659:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4659:/ block"); /*block*/{ /*_#IS_OBJECT__L7*/ curfnum[5] = (melt_magic_discr((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1])) == OBMAG_OBJECT);; MELT_LOCATION("warmelt-first.melt:4659:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L7*/ curfnum[5]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4659:/ cond.then"); /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4659:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4659:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4659:/ locexp"); melt_assert_failed(( "check env obj"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4659)?(4659):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V16*/ curfptr[14] = /*_.IFELSE___V17*/ curfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4659:/ clear"); /*clear*/ /*_#IS_OBJECT__L7*/ curfnum[5] = 0 ; MELT_LOCATION("warmelt-first.melt:4659:/ clear"); /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4659:/ cppif.else"); /*_.IFCPP___V16*/ curfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4660:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4660:/ block"); /*block*/{ /*_#IS_A__L8*/ curfnum[5] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));; MELT_LOCATION("warmelt-first.melt:4660:/ cond"); /*cond*/ if (/*_#IS_A__L8*/ curfnum[5]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4660:/ cond.then"); /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4660:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4660:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4660:/ locexp"); melt_assert_failed(( "check good env"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4660)?(4660):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V18*/ curfptr[16] = /*_.IFELSE___V19*/ curfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4660:/ clear"); /*clear*/ /*_#IS_A__L8*/ curfnum[5] = 0 ; MELT_LOCATION("warmelt-first.melt:4660:/ clear"); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4660:/ cppif.else"); /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-first.melt:4661:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4662:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), 0, "ENV_BIND");/*_.BINDMAP__V20*/ curfptr[18] = slot; }; ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4663:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4663:/ block"); /*block*/{ /*_#IS_MAPOBJECT__L9*/ curfnum[5] = (melt_magic_discr((melt_ptr_t)(/*_.BINDMAP__V20*/ curfptr[18])) == OBMAG_MAPOBJECTS);; MELT_LOCATION("warmelt-first.melt:4663:/ cond"); /*cond*/ if (/*_#IS_MAPOBJECT__L9*/ curfnum[5]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4663:/ cond.then"); /*_.IFELSE___V22*/ curfptr[21] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4663:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4663:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4663:/ locexp"); melt_assert_failed(( "check bindmap"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4663)?(4663):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V21*/ curfptr[20] = /*_.IFELSE___V22*/ curfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4663:/ clear"); /*clear*/ /*_#IS_MAPOBJECT__L9*/ curfnum[5] = 0 ; MELT_LOCATION("warmelt-first.melt:4663:/ clear"); /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4663:/ cppif.else"); /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-first.melt:4664:/ block"); /*block*/{ /*_.BND__V23*/ curfptr[21] = melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.BINDMAP__V20*/ curfptr[18]), (meltobject_ptr_t)(/*_.BINDER__V3*/ curfptr[2]));; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4666:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4666:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[5] = callcount;; MELT_LOCATION("warmelt-first.melt:4666:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4666:/ apply.arg"); argtab[0].bp_cstring = "find_env_debug current bnd"; MELT_LOCATION("warmelt-first.melt:4666:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[5]; MELT_LOCATION("warmelt-first.melt:4666:/ apply.arg"); argtab[2].bp_cstring = "warmelt-first.melt"; MELT_LOCATION("warmelt-first.melt:4666:/ apply.arg"); argtab[3].bp_long = 4666; /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.BND__V23*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V24*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4666:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[5] = 0 ; MELT_LOCATION("warmelt-first.melt:4666:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4666:/ cppif.else"); /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-first.melt:4667:/ cond"); /*cond*/ if (/*_.BND__V23*/ curfptr[21]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4667:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4667:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4668:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4668:/ compute"); /*_.FINDLOOP__V13*/ curfptr[12] = /*_.BND__V23*/ curfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4668:/ exit"); /*exit*/{ goto labexit_FINDLOOP_2;} ;} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4664:/ clear"); /*clear*/ /*_.BND__V23*/ curfptr[21] = 0 ; MELT_LOCATION("warmelt-first.melt:4664:/ clear"); /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4661:/ clear"); /*clear*/ /*_.BINDMAP__V20*/ curfptr[18] = 0 ; MELT_LOCATION("warmelt-first.melt:4661:/ clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;} ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4670:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4670:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L11*/ curfnum[5] = callcount;; MELT_LOCATION("warmelt-first.melt:4670:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4670:/ apply.arg"); argtab[0].bp_cstring = "find_env_debug at end of loop binder"; MELT_LOCATION("warmelt-first.melt:4670:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[5]; MELT_LOCATION("warmelt-first.melt:4670:/ apply.arg"); argtab[2].bp_cstring = "warmelt-first.melt"; MELT_LOCATION("warmelt-first.melt:4670:/ apply.arg"); argtab[3].bp_long = 4670; /*_.DEBUG_MSG_FUN__V27*/ curfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (melt_ptr_t)(/*_.BINDER__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V26*/ curfptr[24] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4670:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[5] = 0 ; MELT_LOCATION("warmelt-first.melt:4670:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4670:/ cppif.else"); /*_.IFCPP___V26*/ curfptr[24] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-first.melt:4671:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), 1, "ENV_PREV");/*_.ENV_PREV__V28*/ curfptr[23] = slot; }; ; MELT_LOCATION("warmelt-first.melt:4671:/ compute"); /*_.ENV__V2*/ curfptr[1] = /*_.SETQ___V29*/ curfptr[18] = /*_.ENV_PREV__V28*/ curfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4654:/ clear"); /*clear*/ /*_#NULL__L5*/ curfnum[0] = 0 ; MELT_LOCATION("warmelt-first.melt:4654:/ clear"); /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ; MELT_LOCATION("warmelt-first.melt:4654:/ clear"); /*clear*/ /*_.IFCPP___V16*/ curfptr[14] = 0 ; MELT_LOCATION("warmelt-first.melt:4654:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ; MELT_LOCATION("warmelt-first.melt:4654:/ clear"); /*clear*/ /*_.IFCPP___V26*/ curfptr[24] = 0 ; MELT_LOCATION("warmelt-first.melt:4654:/ clear"); /*clear*/ /*_.ENV_PREV__V28*/ curfptr[23] = 0 ; MELT_LOCATION("warmelt-first.melt:4654:/ clear"); /*clear*/ /*_.SETQ___V29*/ curfptr[18] = 0 ;} ; ; goto labloop_FINDLOOP_2; labexit_FINDLOOP_2:;MELT_LOCATION("warmelt-first.melt:4654:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V12*/ curfptr[10] = /*_.FINDLOOP__V13*/ curfptr[12];; } ; MELT_LOCATION("warmelt-first.melt:4649:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.FOREVER___V12*/ curfptr[10];; MELT_LOCATION("warmelt-first.melt:4649:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4649:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4649:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4649:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; MELT_LOCATION("warmelt-first.melt:4649:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; MELT_LOCATION("warmelt-first.melt:4649:/ clear"); /*clear*/ /*_.FOREVER___V12*/ curfptr[10] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("FIND_ENV_DEBUG", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_107_warmelt_first_FIND_ENV_DEBUG*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_108_warmelt_first_FIND_ENCLOSING_ENV(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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_108_warmelt_first_FIND_ENCLOSING_ENV_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 CURFRAM_NBVARPTR 22 void* varptr[22]; #define CURFRAM_NBVARNUM 4 long varnum[4]; /*others*/ long _spare_; } *framptr_=0, curfram__; 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(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 22; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("FIND_ENCLOSING_ENV", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4676:/ getarg"); /*_.ENV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4676:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.BINDER__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDER__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4676:/ block"); /*block*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4679:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4679:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));; MELT_LOCATION("warmelt-first.melt:4679:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4679:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4679:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4679:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4679:/ locexp"); melt_assert_failed(( "check env"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4679)?(4679):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4679:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; MELT_LOCATION("warmelt-first.melt:4679:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4679:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4680:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4680:/ block"); /*block*/{ /*_#IS_OBJECT__L2*/ curfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.BINDER__V3*/ curfptr[2])) == OBMAG_OBJECT);; MELT_LOCATION("warmelt-first.melt:4680:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L2*/ curfnum[0]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4680:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4680:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4680:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4680:/ locexp"); melt_assert_failed(( "check binder"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4680)?(4680):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4680:/ clear"); /*clear*/ /*_#IS_OBJECT__L2*/ curfnum[0] = 0 ; MELT_LOCATION("warmelt-first.melt:4680:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4680:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-first.melt:4681:/ block"); /*block*/{ /*_.PROCLIST__V9*/ curfptr[8] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[1]))));; MELT_LOCATION("warmelt-first.melt:4682:/ loop"); /*loop*/{ labloop_FINDLOOP_3:;MELT_LOCATION("warmelt-first.melt:4682:/ loopbody"); MELT_LOCATION("warmelt-first.melt:4682:/ block"); /*block*/{ /*_#IS_NOT_A__L3*/ curfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));; MELT_LOCATION("warmelt-first.melt:4683:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L3*/ curfnum[0]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4683:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4683:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4683:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4683:/ compute"); /*_.FINDLOOP__V11*/ curfptr[10] = NULL;; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4683:/ exit"); /*exit*/{ goto labexit_FINDLOOP_3;} ;} ; /*epilog*/} ; } /*noelse*/ ; MELT_LOCATION("warmelt-first.melt:4684:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4684:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), 0, "ENV_BIND");/*_.BINDMAP__V13*/ curfptr[12] = slot; }; ; MELT_LOCATION("warmelt-first.melt:4685:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), 2, "ENV_PROC");/*_.EPROC__V14*/ curfptr[13] = slot; }; ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4687:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4687:/ block"); /*block*/{ /*_#IS_MAPOBJECT__L4*/ curfnum[3] = (melt_magic_discr((melt_ptr_t)(/*_.BINDMAP__V13*/ curfptr[12])) == OBMAG_MAPOBJECTS);; MELT_LOCATION("warmelt-first.melt:4687:/ cond"); /*cond*/ if (/*_#IS_MAPOBJECT__L4*/ curfnum[3]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4687:/ cond.then"); /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4687:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4687:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4687:/ locexp"); melt_assert_failed(( "check bindmap"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4687)?(4687):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V15*/ curfptr[14] = /*_.IFELSE___V16*/ curfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4687:/ clear"); /*clear*/ /*_#IS_MAPOBJECT__L4*/ curfnum[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4687:/ clear"); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4687:/ cppif.else"); /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-first.melt:4688:/ block"); /*block*/{ /*_.BND__V18*/ curfptr[17] = melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.BINDMAP__V13*/ curfptr[12]), (meltobject_ptr_t)(/*_.BINDER__V3*/ curfptr[2]));; MELT_LOCATION("warmelt-first.melt:4689:/ cond"); /*cond*/ if (/*_.BND__V18*/ curfptr[17]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4689:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4689:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4689:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.BND__V18*/ curfptr[17];; MELT_LOCATION("warmelt-first.melt:4689:/ 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) (/*_.PROCLIST__V9*/ curfptr[8]); ; MELT_LOCATION("warmelt-first.melt:4689:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IF___V19*/ curfptr[18] = /*_.RETURN___V20*/ curfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4689:/ clear"); /*clear*/ /*_.RETURN___V20*/ curfptr[19] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4689:/ cond.else"); /*_.IF___V19*/ curfptr[18] = NULL;; } ; /*_.LET___V17*/ curfptr[15] = /*_.IF___V19*/ curfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4688:/ clear"); /*clear*/ /*_.BND__V18*/ curfptr[17] = 0 ; MELT_LOCATION("warmelt-first.melt:4688:/ clear"); /*clear*/ /*_.IF___V19*/ curfptr[18] = 0 ;} ; MELT_LOCATION("warmelt-first.melt:4690:/ cond"); /*cond*/ if (/*_.EPROC__V14*/ curfptr[13]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4690:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4690:/ block"); /*block*/{ { MELT_LOCATION("warmelt-first.melt:4690:/ locexp"); meltgc_prepend_list((melt_ptr_t)(/*_.PROCLIST__V9*/ curfptr[8]), (melt_ptr_t)(/*_.EPROC__V14*/ curfptr[13]));} ; /*epilog*/} ; } /*noelse*/ ; MELT_LOCATION("warmelt-first.melt:4691:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), 1, "ENV_PREV");/*_.ENV_PREV__V21*/ curfptr[19] = slot; }; ; MELT_LOCATION("warmelt-first.melt:4691:/ compute"); /*_.ENV__V2*/ curfptr[1] = /*_.SETQ___V22*/ curfptr[17] = /*_.ENV_PREV__V21*/ curfptr[19];; /*_.LET___V12*/ curfptr[11] = /*_.SETQ___V22*/ curfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4684:/ clear"); /*clear*/ /*_.BINDMAP__V13*/ curfptr[12] = 0 ; MELT_LOCATION("warmelt-first.melt:4684:/ clear"); /*clear*/ /*_.EPROC__V14*/ curfptr[13] = 0 ; MELT_LOCATION("warmelt-first.melt:4684:/ clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ; MELT_LOCATION("warmelt-first.melt:4684:/ clear"); /*clear*/ /*_.LET___V17*/ curfptr[15] = 0 ; MELT_LOCATION("warmelt-first.melt:4684:/ clear"); /*clear*/ /*_.ENV_PREV__V21*/ curfptr[19] = 0 ; MELT_LOCATION("warmelt-first.melt:4684:/ clear"); /*clear*/ /*_.SETQ___V22*/ curfptr[17] = 0 ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4682:/ clear"); /*clear*/ /*_#IS_NOT_A__L3*/ curfnum[0] = 0 ; MELT_LOCATION("warmelt-first.melt:4682:/ clear"); /*clear*/ /*_.LET___V12*/ curfptr[11] = 0 ;} ; ; goto labloop_FINDLOOP_3; labexit_FINDLOOP_3:;MELT_LOCATION("warmelt-first.melt:4682:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V10*/ curfptr[9] = /*_.FINDLOOP__V11*/ curfptr[10];; } ; /*_.LET___V8*/ curfptr[6] = /*_.FOREVER___V10*/ curfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4681:/ clear"); /*clear*/ /*_.PROCLIST__V9*/ curfptr[8] = 0 ; MELT_LOCATION("warmelt-first.melt:4681:/ clear"); /*clear*/ /*_.FOREVER___V10*/ curfptr[9] = 0 ;} ; MELT_LOCATION("warmelt-first.melt:4676:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];; MELT_LOCATION("warmelt-first.melt:4676:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4676:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4676:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4676:/ clear"); /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("FIND_ENCLOSING_ENV", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_108_warmelt_first_FIND_ENCLOSING_ENV*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_109_warmelt_first_PUT_ENV(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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_109_warmelt_first_PUT_ENV_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 CURFRAM_NBVARPTR 23 void* varptr[23]; #define CURFRAM_NBVARNUM 13 long varnum[13]; /*others*/ long _spare_; } *framptr_=0, curfram__; 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<23; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 23; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("PUT_ENV", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4695:/ getarg"); /*_.ENV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4695:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.BINDING__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4695:/ block"); /*block*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4698:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4698:/ block"); /*block*/{ /*_#IS_OBJECT__L1*/ curfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2])) == OBMAG_OBJECT);; MELT_LOCATION("warmelt-first.melt:4698:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L1*/ curfnum[0]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4698:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4698:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4698:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4698:/ locexp"); melt_assert_failed(( "check binding is obj"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4698)?(4698):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4698:/ clear"); /*clear*/ /*_#IS_OBJECT__L1*/ curfnum[0] = 0 ; MELT_LOCATION("warmelt-first.melt:4698:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4698:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4699:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4699:/ block"); /*block*/{ /*_#IS_OBJECT__L2*/ curfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1])) == OBMAG_OBJECT);; MELT_LOCATION("warmelt-first.melt:4699:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L2*/ curfnum[0]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4699:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4699:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4699:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4699:/ locexp"); melt_assert_failed(( "check env is obj"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4699)?(4699):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4699:/ clear"); /*clear*/ /*_#IS_OBJECT__L2*/ curfnum[0] = 0 ; MELT_LOCATION("warmelt-first.melt:4699:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4699:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4700:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4700:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));; MELT_LOCATION("warmelt-first.melt:4700:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4700:/ cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4700:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4700:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4700:/ locexp"); melt_assert_failed(( "check env"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4700)?(4700):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4700:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; MELT_LOCATION("warmelt-first.melt:4700:/ clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4700:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_A__L4*/ curfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[1])));; /*_#NOT__L5*/ curfnum[4] = (!(/*_#IS_A__L4*/ curfnum[0]));; MELT_LOCATION("warmelt-first.melt:4701:/ cond"); /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4701:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4701:/ block"); /*block*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4703:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4703:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = callcount;; MELT_LOCATION("warmelt-first.melt:4703:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4703:/ apply.arg"); argtab[0].bp_cstring = "put_env invalid binding"; MELT_LOCATION("warmelt-first.melt:4703:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5]; MELT_LOCATION("warmelt-first.melt:4703:/ apply.arg"); argtab[2].bp_cstring = "warmelt-first.melt"; MELT_LOCATION("warmelt-first.melt:4703:/ apply.arg"); argtab[3].bp_long = 4703; /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4703:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ; MELT_LOCATION("warmelt-first.melt:4703:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4703:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; { MELT_LOCATION("warmelt-first.melt:4704:/ locexp"); #if ENABLE_CHECKING if (flag_melt_debug) melt_dbgshortbacktrace(( "put_env invalid binding"), (15)); #endif ;} ; MELT_LOCATION("warmelt-first.melt:4702:/ block"); /*block*/{} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4701:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;} ; } /*noelse*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4705:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4705:/ block"); /*block*/{ /*_#IS_A__L7*/ curfnum[5] = melt_is_instance_of((melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[1])));; MELT_LOCATION("warmelt-first.melt:4705:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[5]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4705:/ cond.then"); /*_.IFELSE___V13*/ curfptr[8] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4705:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4705:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4705:/ locexp"); melt_assert_failed(( "check binding"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4705)?(4705):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V13*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.IFELSE___V13*/ curfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4705:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[5] = 0 ; MELT_LOCATION("warmelt-first.melt:4705:/ clear"); /*clear*/ /*_.IFELSE___V13*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4705:/ cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-first.melt:4706:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4706:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), 0, "ENV_BIND");/*_.BINDMAP__V14*/ curfptr[8] = slot; }; ; MELT_LOCATION("warmelt-first.melt:4707:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2]), 0, "BINDER");/*_.BINDERV__V15*/ curfptr[14] = slot; }; ; /*_#IS_OBJECT__L8*/ curfnum[5] = (melt_magic_discr((melt_ptr_t)((/*!BINDER*/ curfrout->tabval[3]))) == OBMAG_OBJECT);; /*_#NOT__L9*/ curfnum[8] = (!(/*_#IS_OBJECT__L8*/ curfnum[5]));; MELT_LOCATION("warmelt-first.melt:4709:/ cond"); /*cond*/ if (/*_#NOT__L9*/ curfnum[8]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4709:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4709:/ block"); /*block*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4711:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4711:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[9] = callcount;; MELT_LOCATION("warmelt-first.melt:4711:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4711:/ apply.arg"); argtab[0].bp_cstring = "put_env bad binder in binding"; MELT_LOCATION("warmelt-first.melt:4711:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[9]; MELT_LOCATION("warmelt-first.melt:4711:/ apply.arg"); argtab[2].bp_cstring = "warmelt-first.melt"; MELT_LOCATION("warmelt-first.melt:4711:/ apply.arg"); argtab[3].bp_long = 4711; /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V16*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V17*/ curfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4711:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[9] = 0 ; MELT_LOCATION("warmelt-first.melt:4711:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4711:/ cppif.else"); /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4712:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4712:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L11*/ curfnum[9] = callcount;; MELT_LOCATION("warmelt-first.melt:4712:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4712:/ apply.arg"); argtab[0].bp_cstring = "put_env bad binderv"; MELT_LOCATION("warmelt-first.melt:4712:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[9]; MELT_LOCATION("warmelt-first.melt:4712:/ apply.arg"); argtab[2].bp_cstring = "warmelt-first.melt"; MELT_LOCATION("warmelt-first.melt:4712:/ apply.arg"); argtab[3].bp_long = 4712; /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.BINDERV__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V18*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4712:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[9] = 0 ; MELT_LOCATION("warmelt-first.melt:4712:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4712:/ cppif.else"); /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; { MELT_LOCATION("warmelt-first.melt:4713:/ locexp"); #if ENABLE_CHECKING if (flag_melt_debug) melt_dbgshortbacktrace(( "put_env bad binder in binding"), (5)); #endif ;} ; MELT_LOCATION("warmelt-first.melt:4710:/ block"); /*block*/{} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4709:/ clear"); /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ; MELT_LOCATION("warmelt-first.melt:4709:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ;} ; } /*noelse*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4714:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4714:/ block"); /*block*/{ /*_#IS_MAPOBJECT__L12*/ curfnum[9] = (melt_magic_discr((melt_ptr_t)(/*_.BINDMAP__V14*/ curfptr[8])) == OBMAG_MAPOBJECTS);; MELT_LOCATION("warmelt-first.melt:4714:/ cond"); /*cond*/ if (/*_#IS_MAPOBJECT__L12*/ curfnum[9]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4714:/ cond.then"); /*_.IFELSE___V21*/ curfptr[15] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4714:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4714:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4714:/ locexp"); melt_assert_failed(( "check bindmap"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4714)?(4714):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V21*/ curfptr[15] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V20*/ curfptr[18] = /*_.IFELSE___V21*/ curfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4714:/ clear"); /*clear*/ /*_#IS_MAPOBJECT__L12*/ curfnum[9] = 0 ; MELT_LOCATION("warmelt-first.melt:4714:/ clear"); /*clear*/ /*_.IFELSE___V21*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4714:/ cppif.else"); /*_.IFCPP___V20*/ curfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4715:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4715:/ block"); /*block*/{ /*_#IS_OBJECT__L13*/ curfnum[9] = (melt_magic_discr((melt_ptr_t)(/*_.BINDERV__V15*/ curfptr[14])) == OBMAG_OBJECT);; MELT_LOCATION("warmelt-first.melt:4715:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L13*/ curfnum[9]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4715:/ cond.then"); /*_.IFELSE___V23*/ curfptr[15] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4715:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4715:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4715:/ locexp"); melt_assert_failed(( "check binderv"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4715)?(4715):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V23*/ curfptr[15] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V22*/ curfptr[16] = /*_.IFELSE___V23*/ curfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4715:/ clear"); /*clear*/ /*_#IS_OBJECT__L13*/ curfnum[9] = 0 ; MELT_LOCATION("warmelt-first.melt:4715:/ clear"); /*clear*/ /*_.IFELSE___V23*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4715:/ cppif.else"); /*_.IFCPP___V22*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; { MELT_LOCATION("warmelt-first.melt:4716:/ locexp"); meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.BINDMAP__V14*/ curfptr[8]), (meltobject_ptr_t) (/*_.BINDERV__V15*/ curfptr[14]), (melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2]));} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4706:/ clear"); /*clear*/ /*_.BINDMAP__V14*/ curfptr[8] = 0 ; MELT_LOCATION("warmelt-first.melt:4706:/ clear"); /*clear*/ /*_.BINDERV__V15*/ curfptr[14] = 0 ; MELT_LOCATION("warmelt-first.melt:4706:/ clear"); /*clear*/ /*_#IS_OBJECT__L8*/ curfnum[5] = 0 ; MELT_LOCATION("warmelt-first.melt:4706:/ clear"); /*clear*/ /*_#NOT__L9*/ curfnum[8] = 0 ; MELT_LOCATION("warmelt-first.melt:4706:/ clear"); /*clear*/ /*_.IFCPP___V20*/ curfptr[18] = 0 ; MELT_LOCATION("warmelt-first.melt:4706:/ clear"); /*clear*/ /*_.IFCPP___V22*/ curfptr[16] = 0 ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4695:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4695:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4695:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; MELT_LOCATION("warmelt-first.melt:4695:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; MELT_LOCATION("warmelt-first.melt:4695:/ clear"); /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4695:/ clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("PUT_ENV", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_109_warmelt_first_PUT_ENV*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_110_warmelt_first_OVERWRITE_ENV(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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_110_warmelt_first_OVERWRITE_ENV_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 CURFRAM_NBVARPTR 20 void* varptr[20]; #define CURFRAM_NBVARNUM 6 long varnum[6]; /*others*/ long _spare_; } *framptr_=0, curfram__; 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<20; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 20; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("OVERWRITE_ENV", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4720:/ getarg"); /*_.ENV__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4720:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.BINDING__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4720:/ block"); /*block*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4724:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4724:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));; MELT_LOCATION("warmelt-first.melt:4724:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4724:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4724:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4724:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4724:/ locexp"); melt_assert_failed(( "check env"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4724)?(4724):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4724:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; MELT_LOCATION("warmelt-first.melt:4724:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4724:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4725:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4725:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[1])));; MELT_LOCATION("warmelt-first.melt:4725:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4725:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4725:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4725:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4725:/ locexp"); melt_assert_failed(( "check binding"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4725)?(4725):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4725:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; MELT_LOCATION("warmelt-first.melt:4725:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4725:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-first.melt:4726:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4726:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2]), 0, "BINDER");/*_.BINDERV__V9*/ curfptr[8] = slot; }; ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4727:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4727:/ block"); /*block*/{ /*_#IS_OBJECT__L3*/ curfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.BINDERV__V9*/ curfptr[8])) == OBMAG_OBJECT);; MELT_LOCATION("warmelt-first.melt:4727:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L3*/ curfnum[0]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4727:/ cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4727:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4727:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4727:/ locexp"); melt_assert_failed(( "check binderv"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4727)?(4727):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[9] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4727:/ clear"); /*clear*/ /*_#IS_OBJECT__L3*/ curfnum[0] = 0 ; MELT_LOCATION("warmelt-first.melt:4727:/ clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4727:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-first.melt:4728:/ loop"); /*loop*/{ labloop_FINDLOOP_4:;MELT_LOCATION("warmelt-first.melt:4728:/ loopbody"); MELT_LOCATION("warmelt-first.melt:4728:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));; /*_#NOT__L5*/ curfnum[4] = (!(/*_#IS_A__L4*/ curfnum[0]));; MELT_LOCATION("warmelt-first.melt:4729:/ cond"); /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4729:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4729:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4729:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4729:/ compute"); /*_.FINDLOOP__V13*/ curfptr[12] = NULL;; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4729:/ exit"); /*exit*/{ goto labexit_FINDLOOP_4;} ;} ; /*epilog*/} ; } /*noelse*/ ; MELT_LOCATION("warmelt-first.melt:4730:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4730:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), 0, "ENV_BIND");/*_.BINDMAP__V15*/ curfptr[14] = slot; }; ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4731:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4731:/ block"); /*block*/{ /*_#IS_MAPOBJECT__L6*/ curfnum[5] = (melt_magic_discr((melt_ptr_t)(/*_.BINDMAP__V15*/ curfptr[14])) == OBMAG_MAPOBJECTS);; MELT_LOCATION("warmelt-first.melt:4731:/ cond"); /*cond*/ if (/*_#IS_MAPOBJECT__L6*/ curfnum[5]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4731:/ cond.then"); /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4731:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4731:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4731:/ locexp"); melt_assert_failed(( "check bindmap"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4731)?(4731):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V16*/ curfptr[15] = /*_.IFELSE___V17*/ curfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4731:/ clear"); /*clear*/ /*_#IS_MAPOBJECT__L6*/ curfnum[5] = 0 ; MELT_LOCATION("warmelt-first.melt:4731:/ clear"); /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4731:/ cppif.else"); /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-first.melt:4732:/ block"); /*block*/{ /*_.OLDBINDING__V18*/ curfptr[16] = melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.BINDMAP__V15*/ curfptr[14]), (meltobject_ptr_t)((/*!BINDER*/ curfrout->tabval[2])));; MELT_LOCATION("warmelt-first.melt:4733:/ cond"); /*cond*/ if (/*_.OLDBINDING__V18*/ curfptr[16]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4733:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4733:/ block"); /*block*/{ { MELT_LOCATION("warmelt-first.melt:4735:/ locexp"); meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.BINDMAP__V15*/ curfptr[14]), (meltobject_ptr_t) (/*_.BINDERV__V9*/ curfptr[8]), (melt_ptr_t)(/*_.BINDING__V3*/ curfptr[2]));} ; MELT_LOCATION("warmelt-first.melt:4736:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4736:/ compute"); /*_.FINDLOOP__V13*/ curfptr[12] = /*_.OLDBINDING__V18*/ curfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4736:/ exit"); /*exit*/{ goto labexit_FINDLOOP_4;} ;} ; MELT_LOCATION("warmelt-first.melt:4734:/ block"); /*block*/{} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4732:/ clear"); /*clear*/ /*_.OLDBINDING__V18*/ curfptr[16] = 0 ;} ; MELT_LOCATION("warmelt-first.melt:4738:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.ENV__V2*/ curfptr[1]), 1, "ENV_PREV");/*_.ENV_PREV__V19*/ curfptr[16] = slot; }; ; MELT_LOCATION("warmelt-first.melt:4738:/ compute"); /*_.ENV__V2*/ curfptr[1] = /*_.SETQ___V20*/ curfptr[19] = /*_.ENV_PREV__V19*/ curfptr[16];; /*_.LET___V14*/ curfptr[13] = /*_.SETQ___V20*/ curfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4730:/ clear"); /*clear*/ /*_.BINDMAP__V15*/ curfptr[14] = 0 ; MELT_LOCATION("warmelt-first.melt:4730:/ clear"); /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ; MELT_LOCATION("warmelt-first.melt:4730:/ clear"); /*clear*/ /*_.ENV_PREV__V19*/ curfptr[16] = 0 ; MELT_LOCATION("warmelt-first.melt:4730:/ clear"); /*clear*/ /*_.SETQ___V20*/ curfptr[19] = 0 ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4728:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; MELT_LOCATION("warmelt-first.melt:4728:/ clear"); /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4728:/ clear"); /*clear*/ /*_.LET___V14*/ curfptr[13] = 0 ;} ; ; goto labloop_FINDLOOP_4; labexit_FINDLOOP_4:;MELT_LOCATION("warmelt-first.melt:4728:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V12*/ curfptr[10] = /*_.FINDLOOP__V13*/ curfptr[12];; } ; /*_.LET___V8*/ curfptr[6] = /*_.FOREVER___V12*/ curfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4726:/ clear"); /*clear*/ /*_.BINDERV__V9*/ curfptr[8] = 0 ; MELT_LOCATION("warmelt-first.melt:4726:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ; MELT_LOCATION("warmelt-first.melt:4726:/ clear"); /*clear*/ /*_.FOREVER___V12*/ curfptr[10] = 0 ;} ; MELT_LOCATION("warmelt-first.melt:4720:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];; MELT_LOCATION("warmelt-first.melt:4720:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4720:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4720:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4720:/ clear"); /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("OVERWRITE_ENV", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_110_warmelt_first_OVERWRITE_ENV*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_111_warmelt_first_DEBUG_MSG_FUN(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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_111_warmelt_first_DEBUG_MSG_FUN_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 CURFRAM_NBVARPTR 19 void* varptr[19]; #define CURFRAM_NBVARNUM 11 long varnum[11]; /*others*/ const char* loc_CSTRING__o0; const char* loc_CSTRING__o1; long _spare_; } *framptr_=0, curfram__; 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<19; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 19; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("DEBUG_MSG_FUN", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4743:/ getarg"); /*_.VAL__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4743:/ getarg"); if (xargdescr_[0] != BPAR_CSTRING) goto lab_endgetargs; /*_?*/ curfram__.loc_CSTRING__o0 = xargtab_[0].bp_cstring; /*getarg#2*/ MELT_LOCATION("warmelt-first.melt:4743:/ getarg"); if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs; /*_#COUNT__L1*/ curfnum[0] = xargtab_[1].bp_long; /*getarg#3*/ MELT_LOCATION("warmelt-first.melt:4743:/ getarg"); if (xargdescr_[2] != BPAR_CSTRING) goto lab_endgetargs; /*_?*/ curfram__.loc_CSTRING__o1 = xargtab_[2].bp_cstring; /*getarg#4*/ MELT_LOCATION("warmelt-first.melt:4743:/ getarg"); if (xargdescr_[3] != BPAR_LONG) goto lab_endgetargs; /*_#LINENO__L2*/ curfnum[1] = xargtab_[3].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4743:/ block"); /*block*/{ { MELT_LOCATION("warmelt-first.melt:4747:/ locexp"); ++melt_dbgcounter;} ; /*_#NEED_DBG__L3*/ curfnum[2] = (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount && (0)>=0 && (0) <= MELTDBG_MAXDEPTH);; MELT_LOCATION("warmelt-first.melt:4748:/ cond"); /*cond*/ if (/*_#NEED_DBG__L3*/ curfnum[2]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4748:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4748:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4749:/ block"); /*block*/{ /*_#DBGCOUNTER__L4*/ curfnum[3] = 0;; MELT_LOCATION("warmelt-first.melt:4750:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!INITIAL_SYSTEM_DATA*/ curfrout->tabval[0])), (melt_ptr_t)((/*!CLASS_SYSTEM_DATA*/ curfrout->tabval[1])))) /*then*/ { MELT_LOCATION("warmelt-first.melt:4750:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4750:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)((/*!INITIAL_SYSTEM_DATA*/ curfrout->tabval[0])), 20, "SYSDATA_DUMPFILE");/*_.OUT__V3*/ curfptr[2] = slot; }; ; } else {MELT_LOCATION("warmelt-first.melt:4750:/ cond.else"); /*_.OUT__V3*/ curfptr[2] = NULL;; } ; /*_.OCCMAP__V4*/ curfptr[3] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ curfrout->tabval[2])), (50)));; /*_.BOXEDMAXDEPTH__V5*/ curfptr[4] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[3])), (17)));; { MELT_LOCATION("warmelt-first.melt:4754:/ locexp"); /*_#DBGCOUNTER__L4*/ curfnum[3] = melt_dbgcounter;} ; /*_#NULL__L5*/ curfnum[4] = ((/*_.OUT__V3*/ curfptr[2]) == NULL);; MELT_LOCATION("warmelt-first.melt:4757:/ cond"); /*cond*/ if (/*_#NULL__L5*/ curfnum[4]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4757:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4757:/ block"); /*block*/{ /*_.MAKE_STRBUF__V7*/ curfptr[6] = meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[4])), (char*)0);; MELT_LOCATION("warmelt-first.melt:4758:/ compute"); /*_.OUT__V3*/ curfptr[2] = /*_.SETQ___V8*/ curfptr[7] = /*_.MAKE_STRBUF__V7*/ curfptr[6];; /*_.IF___V6*/ curfptr[5] = /*_.SETQ___V8*/ curfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4757:/ clear"); /*clear*/ /*_.MAKE_STRBUF__V7*/ curfptr[6] = 0 ; MELT_LOCATION("warmelt-first.melt:4757:/ clear"); /*clear*/ /*_.SETQ___V8*/ curfptr[7] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4757:/ cond.else"); /*_.IF___V6*/ curfptr[5] = NULL;; } ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4759:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4759:/ block"); /*block*/{ /*_#IS_OUT__L6*/ curfnum[5] = (melt_is_out ((melt_ptr_t) /*_.OUT__V3*/ curfptr[2])) ;; MELT_LOCATION("warmelt-first.melt:4759:/ cond"); /*cond*/ if (/*_#IS_OUT__L6*/ curfnum[5]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4759:/ cond.then"); /*_.IFELSE___V10*/ curfptr[7] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4759:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4759:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4759:/ locexp"); melt_assert_failed(( "check good out"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4759)?(4759):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V10*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V9*/ curfptr[6] = /*_.IFELSE___V10*/ curfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4759:/ clear"); /*clear*/ /*_#IS_OUT__L6*/ curfnum[5] = 0 ; MELT_LOCATION("warmelt-first.melt:4759:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4759:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-first.melt:4760:/ block"); /*block*/{ /*_#NULLOUTFILE__L7*/ curfnum[5] = 0;; { MELT_LOCATION("warmelt-first.melt:4761:/ locexp"); if (melt_is_file(/*_.OUT__V3*/ curfptr[2])) /*_#NULLOUTFILE__L7*/ curfnum[5] = (melt_get_file(/*_.OUT__V3*/ curfptr[2])==NULL)?1:0 ; ;} ; MELT_LOCATION("warmelt-first.melt:4765:/ cond"); /*cond*/ if (/*_#NULLOUTFILE__L7*/ curfnum[5]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4765:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4765:/ block"); /*block*/{ { MELT_LOCATION("warmelt-first.melt:4767:/ locexp"); #if ENABLE_CHECKING if (flag_melt_debug) melt_dbgshortbacktrace(( "debug_msg_fun null output file"), (5)); #endif ;} ; MELT_LOCATION("warmelt-first.melt:4768:/ cond"); /*cond*/ if (/*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!INITIAL_SYSTEM_DATA*/ curfrout->tabval[0])), (melt_ptr_t)((/*!CLASS_SYSTEM_DATA*/ curfrout->tabval[1])))) /*then*/ { MELT_LOCATION("warmelt-first.melt:4768:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4768:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)((/*!INITIAL_SYSTEM_DATA*/ curfrout->tabval[0])), 19, "SYSDATA_STDERR");/*_.SYSDATA_STDERR__V13*/ curfptr[12] = slot; }; ; } else {MELT_LOCATION("warmelt-first.melt:4768:/ cond.else"); /*_.SYSDATA_STDERR__V13*/ curfptr[12] = NULL;; } ; MELT_LOCATION("warmelt-first.melt:4768:/ compute"); /*_.OUT__V3*/ curfptr[2] = /*_.SETQ___V14*/ curfptr[13] = /*_.SYSDATA_STDERR__V13*/ curfptr[12];; MELT_LOCATION("warmelt-first.melt:4766:/ block"); /*block*/{ /*_.PROGN___V15*/ curfptr[14] = /*_.SETQ___V14*/ curfptr[13];;} ; /*_.IF___V12*/ curfptr[11] = /*_.PROGN___V15*/ curfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4765:/ clear"); /*clear*/ /*_.SYSDATA_STDERR__V13*/ curfptr[12] = 0 ; MELT_LOCATION("warmelt-first.melt:4765:/ clear"); /*clear*/ /*_.SETQ___V14*/ curfptr[13] = 0 ; MELT_LOCATION("warmelt-first.melt:4765:/ clear"); /*clear*/ /*_.PROGN___V15*/ curfptr[14] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4765:/ cond.else"); /*_.IF___V12*/ curfptr[11] = NULL;; } ; /*_.LET___V11*/ curfptr[7] = /*_.IF___V12*/ curfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4760:/ clear"); /*clear*/ /*_#NULLOUTFILE__L7*/ curfnum[5] = 0 ; MELT_LOCATION("warmelt-first.melt:4760:/ clear"); /*clear*/ /*_.IF___V12*/ curfptr[11] = 0 ;} ; MELT_LOCATION("warmelt-first.melt:4770:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4771:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4771:/ rawallocobj"); /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[5])), (3), "CLASS_DEBUG_INFORMATION");/*_.INST__V17*/ curfptr[13] = newobj; }; ; MELT_LOCATION("warmelt-first.melt:4771:/ putslot"); /*putslot*/ melt_assertmsg("putslot checkobj @DBGI_OUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[13])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V17*/ curfptr[13]), (0), (/*_.OUT__V3*/ curfptr[2]), "DBGI_OUT"); ; MELT_LOCATION("warmelt-first.melt:4771:/ putslot"); /*putslot*/ melt_assertmsg("putslot checkobj @DBGI_OCCMAP", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[13])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V17*/ curfptr[13]), (1), (/*_.OCCMAP__V4*/ curfptr[3]), "DBGI_OCCMAP"); ; MELT_LOCATION("warmelt-first.melt:4771:/ putslot"); /*putslot*/ melt_assertmsg("putslot checkobj @DBGI_MAXDEPTH", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ curfptr[13])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V17*/ curfptr[13]), (2), (/*_.BOXEDMAXDEPTH__V5*/ curfptr[4]), "DBGI_MAXDEPTH"); ; /*_.DBGI__V16*/ curfptr[12] = /*_.INST__V17*/ curfptr[13];;} ; /*_#FRAMDEPTH__L8*/ curfnum[5] = (melt_curframdepth());; { MELT_LOCATION("warmelt-first.melt:4777:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), ( "!!!!****####"));} ; { MELT_LOCATION("warmelt-first.melt:4778:/ locexp"); meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), (/*_#DBGCOUNTER__L4*/ curfnum[3]));} ; { MELT_LOCATION("warmelt-first.melt:4779:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), ( "#^"));} ; /*_#I__L9*/ curfnum[8] = ((/*_#FRAMDEPTH__L8*/ curfnum[5]) - (1));; { MELT_LOCATION("warmelt-first.melt:4780:/ locexp"); meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), (/*_#I__L9*/ curfnum[8]));} ; { MELT_LOCATION("warmelt-first.melt:4781:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), ( ":"));} ; MELT_LOCATION("warmelt-first.melt:4782:/ cond"); /*cond*/ if (/*_?*/ curfram__.loc_CSTRING__o1) /*then*/ { MELT_LOCATION("warmelt-first.melt:4782:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4782:/ block"); /*block*/{ { MELT_LOCATION("warmelt-first.melt:4784:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), (/*_?*/ curfram__.loc_CSTRING__o1));} ; { MELT_LOCATION("warmelt-first.melt:4785:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), ( ":"));} ; { MELT_LOCATION("warmelt-first.melt:4786:/ locexp"); meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), (/*_#LINENO__L2*/ curfnum[1]));} ; { MELT_LOCATION("warmelt-first.melt:4787:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), ( ":"));} ; MELT_LOCATION("warmelt-first.melt:4783:/ block"); /*block*/{} ; /*epilog*/} ; } /*noelse*/ ; { MELT_LOCATION("warmelt-first.melt:4789:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), (/*_?*/ curfram__.loc_CSTRING__o0));} ; /*_#I__L10*/ curfnum[9] = ((/*_#COUNT__L1*/ curfnum[0]) > (0));; MELT_LOCATION("warmelt-first.melt:4790:/ cond"); /*cond*/ if (/*_#I__L10*/ curfnum[9]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4790:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4790:/ block"); /*block*/{ { MELT_LOCATION("warmelt-first.melt:4792:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), ( " !"));} ; { MELT_LOCATION("warmelt-first.melt:4793:/ locexp"); meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), (/*_#COUNT__L1*/ curfnum[0]));} ; { MELT_LOCATION("warmelt-first.melt:4794:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), ( ": "));} ; MELT_LOCATION("warmelt-first.melt:4791:/ block"); /*block*/{} ; /*epilog*/} ; } /*noelse*/ ; MELT_LOCATION("warmelt-first.melt:4796:/ cond"); /*cond*/ if (/*_.VAL__V2*/ curfptr[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4796:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4796:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4797:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4797:/ apply.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V16*/ curfptr[12]; MELT_LOCATION("warmelt-first.melt:4797:/ apply.arg"); argtab[1].bp_long = 0; /*_.DBG_OUT__V19*/ curfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ curfrout->tabval[6])), (melt_ptr_t)(/*_.VAL__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFELSE___V18*/ curfptr[14] = /*_.DBG_OUT__V19*/ curfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4796:/ clear"); /*clear*/ /*_.DBG_OUT__V19*/ curfptr[11] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4796:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4796:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4798:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), ( "() ;;;NIL!!!"));} ; /*clear*/ /*_.IFELSE___V18*/ curfptr[14] = 0 ;} ; /*epilog*/} ; } ; { MELT_LOCATION("warmelt-first.melt:4800:/ locexp"); meltgc_out_add_indent((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2]), (0), 0);} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4770:/ clear"); /*clear*/ /*_.DBGI__V16*/ curfptr[12] = 0 ; MELT_LOCATION("warmelt-first.melt:4770:/ clear"); /*clear*/ /*_#FRAMDEPTH__L8*/ curfnum[5] = 0 ; MELT_LOCATION("warmelt-first.melt:4770:/ clear"); /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ; MELT_LOCATION("warmelt-first.melt:4770:/ clear"); /*clear*/ /*_#I__L10*/ curfnum[9] = 0 ; MELT_LOCATION("warmelt-first.melt:4770:/ clear"); /*clear*/ /*_.IFELSE___V18*/ curfptr[14] = 0 ;} ; /*_#IS_STRBUF__L11*/ curfnum[5] = (melt_magic_discr((melt_ptr_t)(/*_.OUT__V3*/ curfptr[2])) == OBMAG_STRBUF);; MELT_LOCATION("warmelt-first.melt:4802:/ cond"); /*cond*/ if (/*_#IS_STRBUF__L11*/ curfnum[5]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4802:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4802:/ block"); /*block*/{ { MELT_LOCATION("warmelt-first.melt:4804:/ locexp"); fprintf (stderr, "\n**debug_msg thru strbuffer:\n%s\n", melt_strbuf_str (/*_.OUT__V3*/ curfptr[2])) ; fflush (stderr) ; ;} ; MELT_LOCATION("warmelt-first.melt:4803:/ block"); /*block*/{} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4749:/ clear"); /*clear*/ /*_#DBGCOUNTER__L4*/ curfnum[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4749:/ clear"); /*clear*/ /*_.OUT__V3*/ curfptr[2] = 0 ; MELT_LOCATION("warmelt-first.melt:4749:/ clear"); /*clear*/ /*_.OCCMAP__V4*/ curfptr[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4749:/ clear"); /*clear*/ /*_.BOXEDMAXDEPTH__V5*/ curfptr[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4749:/ clear"); /*clear*/ /*_#NULL__L5*/ curfnum[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4749:/ clear"); /*clear*/ /*_.IF___V6*/ curfptr[5] = 0 ; MELT_LOCATION("warmelt-first.melt:4749:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[6] = 0 ; MELT_LOCATION("warmelt-first.melt:4749:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[7] = 0 ; MELT_LOCATION("warmelt-first.melt:4749:/ clear"); /*clear*/ /*_#IS_STRBUF__L11*/ curfnum[5] = 0 ;} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4743:/ clear"); /*clear*/ /*_#NEED_DBG__L3*/ curfnum[2] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("DEBUG_MSG_FUN", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_111_warmelt_first_DEBUG_MSG_FUN*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_112_warmelt_first_DBGOUT_ANYBINDING_METHOD(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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_112_warmelt_first_DBGOUT_ANYBINDING_METHOD_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 CURFRAM_NBVARPTR 16 void* varptr[16]; #define CURFRAM_NBVARNUM 8 long varnum[8]; /*others*/ long _spare_; } *framptr_=0, curfram__; 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<16; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 16; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("DBGOUT_ANYBINDING_METHOD", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4813:/ getarg"); /*_.SELF__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4813:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DBGI__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2])) != NULL); /*getarg#2*/ MELT_LOCATION("warmelt-first.melt:4813:/ getarg"); if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4813:/ block"); /*block*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4814:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4814:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ curfrout->tabval[0])));; MELT_LOCATION("warmelt-first.melt:4814:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4814:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4814:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4814:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4814:/ locexp"); melt_assert_failed(( "check dbgi"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4814)?(4814):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4814:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4814:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4814:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4815:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4815:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[1])));; MELT_LOCATION("warmelt-first.melt:4815:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4815:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4815:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4815:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4815:/ locexp"); melt_assert_failed(( "check self"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4815)?(4815):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4815:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4815:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4815:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-first.melt:4816:/ block"); /*block*/{ /*_.DIS__V8*/ curfptr[6] = (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; MELT_LOCATION("warmelt-first.melt:4817:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 0, "DBGI_OUT");/*_.OUT__V9*/ curfptr[8] = slot; }; ; MELT_LOCATION("warmelt-first.melt:4818:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), 0, "BINDER");/*_.BINDERV__V10*/ curfptr[9] = slot; }; ; { MELT_LOCATION("warmelt-first.melt:4820:/ locexp"); meltgc_out_add_indent((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), (/*_#DEPTH__L1*/ curfnum[0]), 64);} ; { MELT_LOCATION("warmelt-first.melt:4821:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( "[~"));} ; MELT_LOCATION("warmelt-first.melt:4822:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DIS__V8*/ curfptr[6]), 1, "NAMED_NAME");/*_.NAMED_NAME__V11*/ curfptr[10] = slot; }; ; { MELT_LOCATION("warmelt-first.melt:4822:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V11*/ curfptr[10])));} ; { MELT_LOCATION("warmelt-first.melt:4823:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( "/"));} ; /*_#OBJ_HASH__L4*/ curfnum[1] = (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ curfptr[1])));; { MELT_LOCATION("warmelt-first.melt:4824:/ locexp"); meltgc_add_out_hex((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), (/*_#OBJ_HASH__L4*/ curfnum[1]));} ; { MELT_LOCATION("warmelt-first.melt:4825:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( ":"));} ; /*_#I__L5*/ curfnum[4] = ((/*_#DEPTH__L1*/ curfnum[0]) + (2));; MELT_LOCATION("warmelt-first.melt:4826:/ msend"); /*msend*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4826:/ ojbmsend.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2]; MELT_LOCATION("warmelt-first.melt:4826:/ ojbmsend.arg"); argtab[1].bp_long = /*_#I__L5*/ curfnum[4]; /*_.DBG_OUTPUTAGAIN__V12*/ curfptr[11] = meltgc_send((melt_ptr_t)(/*_.BINDERV__V10*/ curfptr[9]), (melt_ptr_t)((/*!DBG_OUTPUTAGAIN*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-first.melt:4827:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DBGI__V3*/ curfptr[2]), 2, "DBGI_MAXDEPTH");/*_.DBGI_MAXDEPTH__V13*/ curfptr[12] = slot; }; ; /*_#GET_INT__L6*/ curfnum[5] = (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V13*/ curfptr[12])));; /*_#NEED_DBGLIM__L7*/ curfnum[6] = (flag_melt_debug && melt_dbgcounter>=melt_debugskipcount && (/*_#DEPTH__L1*/ curfnum[0])>=0 && (/*_#DEPTH__L1*/ curfnum[0]) < (/*_#GET_INT__L6*/ curfnum[5]));; MELT_LOCATION("warmelt-first.melt:4827:/ cond"); /*cond*/ if (/*_#NEED_DBGLIM__L7*/ curfnum[6]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4827:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4827:/ block"); /*block*/{ { MELT_LOCATION("warmelt-first.melt:4829:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( "; "));} ; /*_#I__L8*/ curfnum[7] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; MELT_LOCATION("warmelt-first.melt:4830:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4830:/ apply.arg"); argtab[0].bp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ curfptr[2]; MELT_LOCATION("warmelt-first.melt:4830:/ apply.arg"); argtab[1].bp_long = /*_#I__L8*/ curfnum[7]; MELT_LOCATION("warmelt-first.melt:4830:/ apply.arg"); argtab[2].bp_long = 1; MELT_LOCATION("warmelt-first.melt:4830:/ apply.arg"); argtab[3].bp_long = 0; /*_.DBGOUT_FIELDS__V15*/ curfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_FIELDS*/ curfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_LONG BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-first.melt:4828:/ block"); /*block*/{ /*_.PROGN___V16*/ curfptr[15] = /*_.DBGOUT_FIELDS__V15*/ curfptr[14];;} ; /*_.IF___V14*/ curfptr[13] = /*_.PROGN___V16*/ curfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4827:/ clear"); /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ; MELT_LOCATION("warmelt-first.melt:4827:/ clear"); /*clear*/ /*_.DBGOUT_FIELDS__V15*/ curfptr[14] = 0 ; MELT_LOCATION("warmelt-first.melt:4827:/ clear"); /*clear*/ /*_.PROGN___V16*/ curfptr[15] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4827:/ cond.else"); /*_.IF___V14*/ curfptr[13] = NULL;; } ; { MELT_LOCATION("warmelt-first.melt:4832:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V9*/ curfptr[8]), ( "~]"));} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4816:/ clear"); /*clear*/ /*_.DIS__V8*/ curfptr[6] = 0 ; MELT_LOCATION("warmelt-first.melt:4816:/ clear"); /*clear*/ /*_.OUT__V9*/ curfptr[8] = 0 ; MELT_LOCATION("warmelt-first.melt:4816:/ clear"); /*clear*/ /*_.BINDERV__V10*/ curfptr[9] = 0 ; MELT_LOCATION("warmelt-first.melt:4816:/ clear"); /*clear*/ /*_.NAMED_NAME__V11*/ curfptr[10] = 0 ; MELT_LOCATION("warmelt-first.melt:4816:/ clear"); /*clear*/ /*_#OBJ_HASH__L4*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4816:/ clear"); /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4816:/ clear"); /*clear*/ /*_.DBG_OUTPUTAGAIN__V12*/ curfptr[11] = 0 ; MELT_LOCATION("warmelt-first.melt:4816:/ clear"); /*clear*/ /*_.DBGI_MAXDEPTH__V13*/ curfptr[12] = 0 ; MELT_LOCATION("warmelt-first.melt:4816:/ clear"); /*clear*/ /*_#GET_INT__L6*/ curfnum[5] = 0 ; MELT_LOCATION("warmelt-first.melt:4816:/ clear"); /*clear*/ /*_#NEED_DBGLIM__L7*/ curfnum[6] = 0 ; MELT_LOCATION("warmelt-first.melt:4816:/ clear"); /*clear*/ /*_.IF___V14*/ curfptr[13] = 0 ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4813:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4813:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("DBGOUT_ANYBINDING_METHOD", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_112_warmelt_first_DBGOUT_ANYBINDING_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_113_warmelt_first_POST_INITIALIZATION(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__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_meltrout_113_warmelt_first_POST_INITIALIZATION_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 CURFRAM_NBVARPTR 16 void* varptr[16]; #define CURFRAM_NBVARNUM 6 long varnum[6]; /*others*/ const char* loc_CSTRING__o0; long _spare_; } *framptr_=0, curfram__; 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<16; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 16; curfram__.clos = closp_; curfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &curfram__; melt_trace_start("POST_INITIALIZATION", callcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-first.melt:4849:/ getarg"); /*_.UNUSEDARG__V2*/ curfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ MELT_LOCATION("warmelt-first.melt:4849:/ getarg"); if (xargdescr_[0] != BPAR_CSTRING) goto lab_endgetargs; /*_?*/ curfram__.loc_CSTRING__o0 = xargtab_[0].bp_cstring; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ MELT_LOCATION("warmelt-first.melt:4849:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4850:/ block"); /*block*/{ /*_.CURMODENVCONT__V3*/ curfptr[2] = /*quasi.cur.mod.env.cont */ (/*!konst_0*/ curfrout->tabval[0]);; /*_#IS_A__L1*/ curfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CURMODENVCONT__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_CONTAINER*/ curfrout->tabval[1])));; /*_#NOT__L2*/ curfnum[1] = (!(/*_#IS_A__L1*/ curfnum[0]));; MELT_LOCATION("warmelt-first.melt:4851:/ cond"); /*cond*/ if (/*_#NOT__L2*/ curfnum[1]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4851:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4851:/ block"); /*block*/{ /*_.DISCRIM__V5*/ curfptr[4] = (melt_discr((melt_ptr_t)(/*_.CURMODENVCONT__V3*/ curfptr[2])));; MELT_LOCATION("warmelt-first.melt:4854:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.DISCRIM__V5*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V6*/ curfptr[5] = slot; }; ; { MELT_LOCATION("warmelt-first.melt:4853:/ locexp"); warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ( "post_initialization strange curmodenvcont of discr"), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V6*/ curfptr[5])));} ; MELT_LOCATION("warmelt-first.melt:4855:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; MELT_LOCATION("warmelt-first.melt:4855:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; MELT_LOCATION("warmelt-first.melt:4852:/ block"); /*block*/{ /*_.PROGN___V8*/ curfptr[7] = /*_.RETURN___V7*/ curfptr[6];;} ; /*_.IF___V4*/ curfptr[3] = /*_.PROGN___V8*/ curfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4851:/ clear"); /*clear*/ /*_.DISCRIM__V5*/ curfptr[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4851:/ clear"); /*clear*/ /*_.NAMED_NAME__V6*/ curfptr[5] = 0 ; MELT_LOCATION("warmelt-first.melt:4851:/ clear"); /*clear*/ /*_.RETURN___V7*/ curfptr[6] = 0 ; MELT_LOCATION("warmelt-first.melt:4851:/ clear"); /*clear*/ /*_.PROGN___V8*/ curfptr[7] = 0 ;} ; } else {MELT_LOCATION("warmelt-first.melt:4851:/ cond.else"); /*_.IF___V4*/ curfptr[3] = NULL;; } ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4857:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4857:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[2] = callcount;; MELT_LOCATION("warmelt-first.melt:4857:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); MELT_LOCATION("warmelt-first.melt:4857:/ apply.arg"); argtab[0].bp_cstring = "post_initialization curmodenvcont at start"; MELT_LOCATION("warmelt-first.melt:4857:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[2]; MELT_LOCATION("warmelt-first.melt:4857:/ apply.arg"); argtab[2].bp_cstring = "warmelt-first.melt"; MELT_LOCATION("warmelt-first.melt:4857:/ apply.arg"); argtab[3].bp_long = 4857; /*_.DEBUG_MSG_FUN__V10*/ curfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (melt_ptr_t)(/*_.CURMODENVCONT__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V9*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4857:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[2] = 0 ; MELT_LOCATION("warmelt-first.melt:4857:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4857:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-first.melt:4859:/ cppif.then"); MELT_LOCATION("warmelt-first.melt:4859:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.CURMODENVCONT__V3*/ curfptr[2]), (melt_ptr_t)((/*!CLASS_CONTAINER*/ curfrout->tabval[1])));; MELT_LOCATION("warmelt-first.melt:4859:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[2]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4859:/ cond.then"); /*_.IFELSE___V12*/ curfptr[7] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-first.melt:4859:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4859:/ block"); /*block*/{ /*block*/{ { MELT_LOCATION("warmelt-first.melt:4859:/ locexp"); melt_assert_failed(( "check curmodenvcont"),( "warmelt-first.melt")?( "warmelt-first.melt"):__FILE__, (4859)?(4859):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V12*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V11*/ curfptr[6] = /*_.IFELSE___V12*/ curfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4859:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[2] = 0 ; MELT_LOCATION("warmelt-first.melt:4859:/ clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ MELT_LOCATION("warmelt-first.melt:4859:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-first.melt:4860:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4860:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CURMODENVCONT__V3*/ curfptr[2]), 0, "CONTAINER_VALUE");/*_.CURMODENV__V13*/ curfptr[5] = slot; }; ; /*_#IS_A__L5*/ curfnum[2] = melt_is_instance_of((melt_ptr_t)(/*_.CURMODENV__V13*/ curfptr[5]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[3])));; MELT_LOCATION("warmelt-first.melt:4861:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[2]) /*then*/ { MELT_LOCATION("warmelt-first.melt:4861:/ cond.then"); MELT_LOCATION("warmelt-first.melt:4861:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4862:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4862:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CURMODENV__V13*/ curfptr[5]), 0, "ENV_BIND");/*_.CURBINDMAP__V14*/ curfptr[7] = slot; }; ; /*_#MAPOBJECT_COUNT__L6*/ curfnum[5] = (melt_count_mapobjects((meltmapobjects_ptr_t)(/*_.CURBINDMAP__V14*/ curfptr[7])));; { MELT_LOCATION("warmelt-first.melt:4864:/ locexp"); inform(UNKNOWN_LOCATION, "MELT INFORM [#%ld]: %s * %ld", melt_dbgcounter, ( "post_initialization boundvars num"), (/*_#MAPOBJECT_COUNT__L6*/ curfnum[5]));} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4862:/ clear"); /*clear*/ /*_.CURBINDMAP__V14*/ curfptr[7] = 0 ; MELT_LOCATION("warmelt-first.melt:4862:/ clear"); /*clear*/ /*_#MAPOBJECT_COUNT__L6*/ curfnum[5] = 0 ;} ; /*epilog*/} ; } else {MELT_LOCATION("warmelt-first.melt:4861:/ cond.else"); MELT_LOCATION("warmelt-first.melt:4861:/ block"); /*block*/{ MELT_LOCATION("warmelt-first.melt:4867:/ block"); /*block*/{ /*_.CURMENVDISCR__V15*/ curfptr[7] = (melt_discr((melt_ptr_t)(/*_.CURMODENV__V13*/ curfptr[5])));; MELT_LOCATION("warmelt-first.melt:4869:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CURMENVDISCR__V15*/ curfptr[7]), 1, "NAMED_NAME");/*_.NAMED_NAME__V16*/ curfptr[15] = slot; }; ; { MELT_LOCATION("warmelt-first.melt:4868:/ locexp"); inform(UNKNOWN_LOCATION, ("MELT INFORM [#%ld]: %s - %s"), melt_dbgcounter, ( "post_initialization strange curmodenv of discr"), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V16*/ curfptr[15])));} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4867:/ clear"); /*clear*/ /*_.CURMENVDISCR__V15*/ curfptr[7] = 0 ; MELT_LOCATION("warmelt-first.melt:4867:/ clear"); /*clear*/ /*_.NAMED_NAME__V16*/ curfptr[15] = 0 ;} ; /*epilog*/} ; } ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4860:/ clear"); /*clear*/ /*_.CURMODENV__V13*/ curfptr[5] = 0 ; MELT_LOCATION("warmelt-first.melt:4860:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[2] = 0 ;} ; /*epilog*/ MELT_LOCATION("warmelt-first.melt:4850:/ clear"); /*clear*/ /*_.CURMODENVCONT__V3*/ curfptr[2] = 0 ; MELT_LOCATION("warmelt-first.melt:4850:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; MELT_LOCATION("warmelt-first.melt:4850:/ clear"); /*clear*/ /*_#NOT__L2*/ curfnum[1] = 0 ; MELT_LOCATION("warmelt-first.melt:4850:/ clear"); /*clear*/ /*_.IF___V4*/ curfptr[3] = 0 ; MELT_LOCATION("warmelt-first.melt:4850:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[4] = 0 ; MELT_LOCATION("warmelt-first.melt:4850:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[6] = 0 ;} ; /*epilog*/} ; goto labend_rout; labend_rout: melt_trace_end("POST_INITIALIZATION", callcount); melt_topframe = (struct callframe_melt_st*) curfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end meltrout_113_warmelt_first_POST_INITIALIZATION*/ /**** end of warmelt-first.0+2.c ****/