/* GCC MELT GENERATED C++ FILE warmelt-debug+01.cc - DO NOT EDIT - see http://gcc-melt.org/ */ /* secondary MELT generated C++ file of rank #1 */ #include "melt-run.h" /* used hash from melt-run.h when compiling this file: */ MELT_EXTERN const char meltrun_used_md5_melt_f1[] = MELT_RUN_HASHMD5 /* from melt-run.h */; /**** warmelt-debug+01.cc declarations ****/ /**** MELT GENERATED DECLARATIONS for warmelt-debug ** DO NOT EDIT ; see gcc-melt.org ****/ /****++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ *** Copyright 2009 - 2014 Free Software Foundation, Inc. Contributed by Basile Starynkevitch This file is part of GCC. GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with GCC; see the file COPYING3. If not see . *** ----------------------------------------------------------------****/ /** ordinary MELT module meltbuild-sources/warmelt-debug**/ #define MELT_HAS_INITIAL_ENVIRONMENT 1 /*usualmodule*/ class Melt_InitialClassyFrame_WARMELTmiDEBUG_h304986241; // forward declaration fromline 6566 typedef Melt_InitialClassyFrame_WARMELTmiDEBUG_h304986241 Melt_InitialFrame; /**** no MELT module variables ****/ /*** 3 MELT called hook declarations ***/ /*declare MELT called hook #0 HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER **/ MELT_EXTERN melt_ptr_t melthook_HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER (melt_ptr_t melthookdatap, melt_ptr_t meltinp0_PREVENV, const char* meltinp1_MODULNAME); /*declare MELT called hook #1 HOOK_SYMBOL_IMPORTER **/ MELT_EXTERN melt_ptr_t melthook_HOOK_SYMBOL_IMPORTER (melt_ptr_t melthookdatap, const char* meltinp0_SYMNAMESTR, const char* meltinp1_MODULENAMESTR, melt_ptr_t meltinp2_PARENV); /*declare MELT called hook #2 HOOK_VALUE_EXPORTER **/ MELT_EXTERN void melthook_HOOK_VALUE_EXPORTER (melt_ptr_t melthookdatap, melt_ptr_t meltinp0_SYM, melt_ptr_t meltinp1_VAL, melt_ptr_t meltinp2_CONTENV); /*** end of 3 MELT called hook declarations ***/ /*** no extra MELT c-headers ***/ MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_1_WARMELTmiDEBUG_REGISTER_TREE_DEBUG_FUN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_2_WARMELTmiDEBUG_REGISTER_GIMPLE_DEBUG_FUN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_3_WARMELTmiDEBUG_REGISTER_GIMPLESEQ_DEBUG_FUN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_4_WARMELTmiDEBUG_REGISTER_EDGE_DEBUG_FUN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_5_WARMELTmiDEBUG_REGISTER_BASICBLOCK_DEBUG_FUN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_6_WARMELTmiDEBUG_REGISTER_LOOP_DEBUG_FUN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_7_WARMELTmiDEBUG_MELT_DEBUG_FUN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_8_WARMELTmiDEBUG_DBG_OUTOBJECT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_9_WARMELTmiDEBUG_DBG_OUT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_10_WARMELTmiDEBUG_DBGOUT_FIELDS(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_11_WARMELTmiDEBUG_DBGOUTAGAIN_FIELDS(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_12_WARMELTmiDEBUG_DBGOUT_NULL_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_13_WARMELTmiDEBUG_DBGOUT_STRING_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_14_WARMELTmiDEBUG_DBGOUT_STRBUF_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_15_WARMELTmiDEBUG_DBGOUT_INTEGER_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_16_WARMELTmiDEBUG_DBGOUT_MIXINT_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_17_WARMELTmiDEBUG_DBGOUT_MIXLOC_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_18_WARMELTmiDEBUG_DBGOUT_MIXBIGINT_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_19_WARMELTmiDEBUG_DBGOUT_MULTIPLE_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_20_WARMELTmiDEBUG_DBGOUT_ROUTINE_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_21_WARMELTmiDEBUG_LAMBDA_cl1(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_22_WARMELTmiDEBUG_DBGOUT_HOOK_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_23_WARMELTmiDEBUG_LAMBDA_cl2(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_24_WARMELTmiDEBUG_DBGOUT_CLOSURE_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_25_WARMELTmiDEBUG_DBGOUT_LIST_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_26_WARMELTmiDEBUG_DBGOUT_PAIR_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_27_WARMELTmiDEBUG_DBGOUT_MAPOBJECT_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_28_WARMELTmiDEBUG_LAMBDA_cl3(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_29_WARMELTmiDEBUG_LAMBDA_cl4(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_30_WARMELTmiDEBUG_LAMBDA_cl5(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_31_WARMELTmiDEBUG_DBGOUT_MAPSTRING_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_32_WARMELTmiDEBUG_LAMBDA_cl6(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_WARMELTmiDEBUG_LAMBDA_cl7(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_WARMELTmiDEBUG_DEBUG_LESS_FUN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_WARMELTmiDEBUG_DEBUG_MORE_FUN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN void* melt_start_this_module (void*); /*mandatory start of module*/ // this MELT module warmelt-debug does not claim GPL compatibility. /*declare opaque initial frame: */ typedef Melt_InitialClassyFrame_WARMELTmiDEBUG_h304986241 /*opaqueinitialclassy*/ meltinitial_frame_t; /* define different names when debugging or not */ #if MELT_HAVE_DEBUG MELT_EXTERN const char meltmodule_WARMELTmiDEBUG__melt_have_debug_enabled[]; #define melt_have_debug_string meltmodule_WARMELTmiDEBUG__melt_have_debug_enabled #else /*!MELT_HAVE_DEBUG*/ MELT_EXTERN const char meltmodule_WARMELTmiDEBUG__melt_have_debug_disabled[]; #define melt_have_debug_string meltmodule_WARMELTmiDEBUG__melt_have_debug_disabled #endif /*!MELT_HAVE_DEBUG*/ void MELT_MODULE_VISIBILITY meltmod__WARMELTmiDEBUG__initialmeltchunk_0 (meltinitial_frame_t*, char*); void MELT_MODULE_VISIBILITY meltmod__WARMELTmiDEBUG__initialmeltchunk_1 (meltinitial_frame_t*, char*); void MELT_MODULE_VISIBILITY meltmod__WARMELTmiDEBUG__initialmeltchunk_2 (meltinitial_frame_t*, char*); void MELT_MODULE_VISIBILITY meltmod__WARMELTmiDEBUG__initialmeltchunk_3 (meltinitial_frame_t*, char*); void MELT_MODULE_VISIBILITY meltmod__WARMELTmiDEBUG__initialmeltchunk_4 (meltinitial_frame_t*, char*); void MELT_MODULE_VISIBILITY meltmod__WARMELTmiDEBUG__initialmeltchunk_5 (meltinitial_frame_t*, char*); void MELT_MODULE_VISIBILITY meltmod__WARMELTmiDEBUG__initialmeltchunk_6 (meltinitial_frame_t*, char*); void MELT_MODULE_VISIBILITY meltmod__WARMELTmiDEBUG__initialmeltchunk_7 (meltinitial_frame_t*, char*); /**** warmelt-debug+01.cc implementations ****/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_8_WARMELTmiDEBUG_DBG_OUTOBJECT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_8_WARMELTmiDEBUG_DBG_OUTOBJECT_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1501 /* start of frame for routine meltrout_8_WARMELTmiDEBUG_DBG_OUTOBJECT fromline 1715 */ /** start of frame for meltrout_8_WARMELTmiDEBUG_DBG_OUTOBJECT of CLASS_PROCROUTINEOBJ from 1518**/ /*curframdeclclassy*/ class MeltFrame_meltrout_8_WARMELTmiDEBUG_DBG_OUTOBJECT// fromline 1531 : public Melt_CallFrameWithValues<16> { public: /* fromline 1535*/ long mcfr_varnum[6]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_8_WARMELTmiDEBUG_DBG_OUTOBJECT(meltclosure_ptr_t clos) //the closure constructor fromline 1593 : Melt_CallFrameWithValues<16> ( #if ENABLE_CHECKING /*fromline 1597*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1601*/ sizeof(MeltFrame_meltrout_8_WARMELTmiDEBUG_DBG_OUTOBJECT), clos) {}; MeltFrame_meltrout_8_WARMELTmiDEBUG_DBG_OUTOBJECT() //the constructor fromline 1605 : Melt_CallFrameWithValues<16> ( #if ENABLE_CHECKING /*fromline 1609*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1613*/ sizeof(MeltFrame_meltrout_8_WARMELTmiDEBUG_DBG_OUTOBJECT)) {}; #if ENABLE_CHECKING /*fromline 1617*/ MeltFrame_meltrout_8_WARMELTmiDEBUG_DBG_OUTOBJECT(const char*fil, int lin) //the constructor fromline 1619 : Melt_CallFrameWithValues<16> (fil,lin, sizeof(MeltFrame_meltrout_8_WARMELTmiDEBUG_DBG_OUTOBJECT)) {}; MeltFrame_meltrout_8_WARMELTmiDEBUG_DBG_OUTOBJECT(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1624 : Melt_CallFrameWithValues<16> (fil,lin, sizeof(MeltFrame_meltrout_8_WARMELTmiDEBUG_DBG_OUTOBJECT), clos) {}; #endif /* ENABLE_CHECKING fromline 1629*/ }; // end class MeltFrame_meltrout_8_WARMELTmiDEBUG_DBG_OUTOBJECT /** end of frame for meltrout_8_WARMELTmiDEBUG_DBG_OUTOBJECT fromline 1660**/ /* end of frame for routine meltrout_8_WARMELTmiDEBUG_DBG_OUTOBJECT fromline 1719 */ /* classy proc frame meltrout_8_WARMELTmiDEBUG_DBG_OUTOBJECT */ MeltFrame_meltrout_8_WARMELTmiDEBUG_DBG_OUTOBJECT meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_8_WARMELTmiDEBUG_DBG_OUTOBJECT fromline 1748*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1752*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1756*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBG_OUTOBJECT", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:376:/ getarg"); /*_.OBJ__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:379:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-debug.melt:379:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:379:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check dbgi"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 379; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:379:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:379:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-debug.melt:380:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 1, "DBGI_OCCMAP"); /*_.OCCMAP__V8*/ meltfptr[4] = slot; }; ; MELT_CHECK_SIGNAL(); ; /*_#IS_MAPOBJECT__L3*/ meltfnum[1] = /*is_mapobject:*/(melt_magic_discr((melt_ptr_t)(/*_.OCCMAP__V8*/ meltfptr[4])) == MELTOBMAG_MAPOBJECTS);; MELT_LOCATION("warmelt-debug.melt:381:/ cond"); /*cond*/ if (/*_#IS_MAPOBJECT__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-debug.melt:382:/ quasiblock"); /*_.OCC__V11*/ meltfptr[10] = /*mapobject_get*/ melt_get_mapobjects((meltmapobjects_ptr_t)(/*_.OCCMAP__V8*/ meltfptr[4]), (meltobject_ptr_t)(/*_.OBJ__V2*/ meltfptr[1]));; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#IS_INTEGERBOX__L4*/ meltfnum[3] = (melt_magic_discr((melt_ptr_t)(/*_.OCC__V11*/ meltfptr[10])) == MELTOBMAG_INT);; MELT_LOCATION("warmelt-debug.melt:384:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:386:/ msend"); /*msend*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*_.DBG_OUTPUTAGAIN__V13*/ meltfptr[12] = meltgc_send((melt_ptr_t)(/*_.OBJ__V2*/ meltfptr[1]), (melt_ptr_t)((/*!DBG_OUTPUTAGAIN*/ meltfrout->tabval[2])), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_#GET_INT__L5*/ meltfnum[4] = (melt_get_int((melt_ptr_t)(/*_.OCC__V11*/ meltfptr[10])));; /*^compute*/ /*_#plI__L6*/ meltfnum[5] = ((/*_#GET_INT__L5*/ meltfnum[4]) + (1));; { MELT_LOCATION("warmelt-debug.melt:387:/ locexp"); melt_put_int((melt_ptr_t)(/*_.OCC__V11*/ meltfptr[10]), (/*_#plI__L6*/ meltfnum[5])); } ; MELT_LOCATION("warmelt-debug.melt:385:/ quasiblock"); /*epilog*/ MELT_LOCATION("warmelt-debug.melt:384:/ clear"); /*clear*/ /*_.DBG_OUTPUTAGAIN__V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_#GET_INT__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L6*/ meltfnum[5] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-debug.melt:390:/ quasiblock"); /*_.NEWOCC__V15*/ meltfptr[14] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[3])), (1)));; { MELT_LOCATION("warmelt-debug.melt:391:/ locexp"); meltgc_put_mapobjects( (meltmapobjects_ptr_t) (/*_.OCCMAP__V8*/ meltfptr[4]), (meltobject_ptr_t) (/*_.OBJ__V2*/ meltfptr[1]), (melt_ptr_t)(/*_.NEWOCC__V15*/ meltfptr[14])); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:392:/ msend"); /*msend*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*_.DBG_OUTPUT__V16*/ meltfptr[15] = meltgc_send((melt_ptr_t)(/*_.OBJ__V2*/ meltfptr[1]), (melt_ptr_t)((/*!DBG_OUTPUT*/ meltfrout->tabval[4])), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.LET___V14*/ meltfptr[12] = /*_.DBG_OUTPUT__V16*/ meltfptr[15];; MELT_LOCATION("warmelt-debug.melt:390:/ clear"); /*clear*/ /*_.NEWOCC__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.DBG_OUTPUT__V16*/ meltfptr[15] = 0 ; /*_._IFELSE___V12*/ meltfptr[11] = /*_.LET___V14*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:384:/ clear"); /*clear*/ /*_.LET___V14*/ meltfptr[12] = 0 ; } ; } ; /*_.LET___V10*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[11];; MELT_LOCATION("warmelt-debug.melt:382:/ clear"); /*clear*/ /*_.OCC__V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_#IS_INTEGERBOX__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V12*/ meltfptr[11] = 0 ; /*_._IF___V9*/ meltfptr[8] = /*_.LET___V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:381:/ clear"); /*clear*/ /*_.LET___V10*/ meltfptr[9] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V9*/ meltfptr[8] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_.LET___V7*/ meltfptr[5] = /*_._IF___V9*/ meltfptr[8];; MELT_LOCATION("warmelt-debug.melt:380:/ clear"); /*clear*/ /*_.OCCMAP__V8*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_#IS_MAPOBJECT__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V9*/ meltfptr[8] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:376:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { MELT_LOCATION("warmelt-debug.melt:376:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V7*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBG_OUTOBJECT", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_8_WARMELTmiDEBUG_DBG_OUTOBJECT_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_8_WARMELTmiDEBUG_DBG_OUTOBJECT*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_9_WARMELTmiDEBUG_DBG_OUT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_9_WARMELTmiDEBUG_DBG_OUT_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1501 /* start of frame for routine meltrout_9_WARMELTmiDEBUG_DBG_OUT fromline 1715 */ /** start of frame for meltrout_9_WARMELTmiDEBUG_DBG_OUT of CLASS_PROCROUTINEOBJ from 1518**/ /*curframdeclclassy*/ class MeltFrame_meltrout_9_WARMELTmiDEBUG_DBG_OUT// fromline 1531 : public Melt_CallFrameWithValues<18> { public: /* fromline 1535*/ long mcfr_varnum[6]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_9_WARMELTmiDEBUG_DBG_OUT(meltclosure_ptr_t clos) //the closure constructor fromline 1593 : Melt_CallFrameWithValues<18> ( #if ENABLE_CHECKING /*fromline 1597*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1601*/ sizeof(MeltFrame_meltrout_9_WARMELTmiDEBUG_DBG_OUT), clos) {}; MeltFrame_meltrout_9_WARMELTmiDEBUG_DBG_OUT() //the constructor fromline 1605 : Melt_CallFrameWithValues<18> ( #if ENABLE_CHECKING /*fromline 1609*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1613*/ sizeof(MeltFrame_meltrout_9_WARMELTmiDEBUG_DBG_OUT)) {}; #if ENABLE_CHECKING /*fromline 1617*/ MeltFrame_meltrout_9_WARMELTmiDEBUG_DBG_OUT(const char*fil, int lin) //the constructor fromline 1619 : Melt_CallFrameWithValues<18> (fil,lin, sizeof(MeltFrame_meltrout_9_WARMELTmiDEBUG_DBG_OUT)) {}; MeltFrame_meltrout_9_WARMELTmiDEBUG_DBG_OUT(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1624 : Melt_CallFrameWithValues<18> (fil,lin, sizeof(MeltFrame_meltrout_9_WARMELTmiDEBUG_DBG_OUT), clos) {}; #endif /* ENABLE_CHECKING fromline 1629*/ }; // end class MeltFrame_meltrout_9_WARMELTmiDEBUG_DBG_OUT /** end of frame for meltrout_9_WARMELTmiDEBUG_DBG_OUT fromline 1660**/ /* end of frame for routine meltrout_9_WARMELTmiDEBUG_DBG_OUT fromline 1719 */ /* classy proc frame meltrout_9_WARMELTmiDEBUG_DBG_OUT */ MeltFrame_meltrout_9_WARMELTmiDEBUG_DBG_OUT meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_9_WARMELTmiDEBUG_DBG_OUT fromline 1748*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1752*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1756*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBG_OUT", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:396:/ getarg"); /*_.OBJ__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:399:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-debug.melt:399:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:399:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check dbgi"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 399; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:399:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:399:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; { MELT_LOCATION("warmelt-debug.melt:400:/ locexp"); melt_check_call_frames(MELT_ANYWHERE, "start dbg_out");; } ; MELT_LOCATION("warmelt-debug.melt:401:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 0, "DBGI_OUT"); /*_.OUT__V8*/ meltfptr[4] = slot; }; ; /*_.DISCR__V9*/ meltfptr[8] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.OBJ__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-debug.melt:403:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 2, "DBGI_MAXDEPTH"); /*_.DBGI_MAXDEPTH__V10*/ meltfptr[9] = slot; }; ; /*_#MAXDEPTH__L3*/ meltfnum[1] = (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V10*/ meltfptr[9])));; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#NULL__L4*/ meltfnum[3] = ((/*_.OUT__V8*/ meltfptr[4]) == NULL);; MELT_LOCATION("warmelt-debug.melt:405:/ cond"); /*cond*/ if (/*_#NULL__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-debug.melt:406:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-debug.melt:406:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*_._IF___V11*/ meltfptr[10] = /*_.RETURN___V12*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:405:/ clear"); /*clear*/ /*_.RETURN___V12*/ meltfptr[11] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V11*/ meltfptr[10] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#ltI__L5*/ meltfnum[4] = ((/*_#DEPTH__L1*/ meltfnum[0]) < (/*_#MAXDEPTH__L3*/ meltfnum[1]));; MELT_LOCATION("warmelt-debug.melt:407:/ cond"); /*cond*/ if (/*_#ltI__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_OBJECT__L6*/ meltfnum[5] = (melt_magic_discr((melt_ptr_t)(/*_.OBJ__V2*/ meltfptr[1])) == MELTOBMAG_OBJECT);; MELT_LOCATION("warmelt-debug.melt:410:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:411:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*_.DBG_OUTOBJECT__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUTOBJECT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OBJ__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V14*/ meltfptr[13] = /*_.DBG_OUTOBJECT__V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:410:/ clear"); /*clear*/ /*_.DBG_OUTOBJECT__V15*/ meltfptr[14] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:412:/ cond"); /*cond*/ if (/*_.OBJ__V2*/ meltfptr[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:413:/ msend"); /*msend*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*_.DBG_OUTPUT__V17*/ meltfptr[16] = meltgc_send((melt_ptr_t)(/*_.OBJ__V2*/ meltfptr[1]), (melt_ptr_t)((/*!DBG_OUTPUT*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V16*/ meltfptr[14] = /*_.DBG_OUTPUT__V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:412:/ clear"); /*clear*/ /*_.DBG_OUTPUT__V17*/ meltfptr[16] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:415:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V8*/ meltfptr[4]), ( "()")); } ; MELT_LOCATION("warmelt-debug.melt:414:/ quasiblock"); /*epilog*/ } ; } ; /*_._IFELSE___V14*/ meltfptr[13] = /*_._IFELSE___V16*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:410:/ clear"); /*clear*/ /*_._IFELSE___V16*/ meltfptr[14] = 0 ; } ; } ; MELT_LOCATION("warmelt-debug.melt:408:/ quasiblock"); /*_.PROGN___V18*/ meltfptr[16] = /*_._IFELSE___V14*/ meltfptr[13];; /*^compute*/ /*_._IFELSE___V13*/ meltfptr[11] = /*_.PROGN___V18*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:407:/ clear"); /*clear*/ /*_#IS_OBJECT__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V18*/ meltfptr[16] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:419:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V8*/ meltfptr[4]), ( ".?.")); } ; MELT_LOCATION("warmelt-debug.melt:418:/ quasiblock"); /*epilog*/ } ; } ; /*_.LET___V7*/ meltfptr[5] = /*_._IFELSE___V13*/ meltfptr[11];; MELT_LOCATION("warmelt-debug.melt:401:/ clear"); /*clear*/ /*_.OUT__V8*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.DISCR__V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.DBGI_MAXDEPTH__V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_#MAXDEPTH__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_#NULL__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_#ltI__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V13*/ meltfptr[11] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:396:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { MELT_LOCATION("warmelt-debug.melt:396:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V7*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBG_OUT", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_9_WARMELTmiDEBUG_DBG_OUT_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_9_WARMELTmiDEBUG_DBG_OUT*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_10_WARMELTmiDEBUG_DBGOUT_FIELDS(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_10_WARMELTmiDEBUG_DBGOUT_FIELDS_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1501 /* start of frame for routine meltrout_10_WARMELTmiDEBUG_DBGOUT_FIELDS fromline 1715 */ /** start of frame for meltrout_10_WARMELTmiDEBUG_DBGOUT_FIELDS of CLASS_PROCROUTINEOBJ from 1518**/ /*curframdeclclassy*/ class MeltFrame_meltrout_10_WARMELTmiDEBUG_DBGOUT_FIELDS// fromline 1531 : public Melt_CallFrameWithValues<25> { public: /* fromline 1535*/ long mcfr_varnum[35]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_10_WARMELTmiDEBUG_DBGOUT_FIELDS(meltclosure_ptr_t clos) //the closure constructor fromline 1593 : Melt_CallFrameWithValues<25> ( #if ENABLE_CHECKING /*fromline 1597*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1601*/ sizeof(MeltFrame_meltrout_10_WARMELTmiDEBUG_DBGOUT_FIELDS), clos) {}; MeltFrame_meltrout_10_WARMELTmiDEBUG_DBGOUT_FIELDS() //the constructor fromline 1605 : Melt_CallFrameWithValues<25> ( #if ENABLE_CHECKING /*fromline 1609*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1613*/ sizeof(MeltFrame_meltrout_10_WARMELTmiDEBUG_DBGOUT_FIELDS)) {}; #if ENABLE_CHECKING /*fromline 1617*/ MeltFrame_meltrout_10_WARMELTmiDEBUG_DBGOUT_FIELDS(const char*fil, int lin) //the constructor fromline 1619 : Melt_CallFrameWithValues<25> (fil,lin, sizeof(MeltFrame_meltrout_10_WARMELTmiDEBUG_DBGOUT_FIELDS)) {}; MeltFrame_meltrout_10_WARMELTmiDEBUG_DBGOUT_FIELDS(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1624 : Melt_CallFrameWithValues<25> (fil,lin, sizeof(MeltFrame_meltrout_10_WARMELTmiDEBUG_DBGOUT_FIELDS), clos) {}; #endif /* ENABLE_CHECKING fromline 1629*/ }; // end class MeltFrame_meltrout_10_WARMELTmiDEBUG_DBGOUT_FIELDS /** end of frame for meltrout_10_WARMELTmiDEBUG_DBGOUT_FIELDS fromline 1660**/ /* end of frame for routine meltrout_10_WARMELTmiDEBUG_DBGOUT_FIELDS fromline 1719 */ /* classy proc frame meltrout_10_WARMELTmiDEBUG_DBGOUT_FIELDS */ MeltFrame_meltrout_10_WARMELTmiDEBUG_DBGOUT_FIELDS meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_10_WARMELTmiDEBUG_DBGOUT_FIELDS fromline 1748*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1752*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1756*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBGOUT_FIELDS", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:424:/ getarg"); /*_.OBJ__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long; /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#FROMRANK__L2*/ meltfnum[1] = meltxargtab_[2].meltbp_long; /*getarg#4*/ /*^getarg*/ if (meltxargdescr_[3] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#TORANK__L3*/ meltfnum[2] = meltxargtab_[3].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:427:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L4*/ meltfnum[3] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-debug.melt:427:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:427:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check dbgi"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 427; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:427:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:427:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:428:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_OBJECT__L5*/ meltfnum[3] = (melt_magic_discr((melt_ptr_t)(/*_.OBJ__V2*/ meltfptr[1])) == MELTOBMAG_OBJECT);; MELT_LOCATION("warmelt-debug.melt:428:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L5*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:428:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check obj"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 428; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OBJ__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:428:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:428:/ clear"); /*clear*/ /*_#IS_OBJECT__L5*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-debug.melt:429:/ quasiblock"); /*_#NBF__L6*/ meltfnum[3] = ((long)melt_object_length((melt_ptr_t)(/*_.OBJ__V2*/ meltfptr[1])));; /*^compute*/ /*_.CLA__V11*/ meltfptr[4] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.OBJ__V2*/ meltfptr[1]))));; /*^compute*/ /*_#IX__L7*/ meltfnum[6] = /*_#FROMRANK__L2*/ meltfnum[1];; /*^compute*/ /*_#FLDCNT__L8*/ meltfnum[7] = 0;; MELT_LOCATION("warmelt-debug.melt:433:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CLA__V11*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 6, "CLASS_FIELDS"); /*_.CLAFIELDSEQ__V12*/ meltfptr[11] = slot; }; ; MELT_LOCATION("warmelt-debug.melt:434:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 0, "DBGI_OUT"); /*_.OUT__V13*/ meltfptr[12] = slot; }; ; /*_#OUTOFF__L9*/ meltfnum[8] = melt_output_length ((melt_ptr_t)/*_.OUT__V13*/ meltfptr[12]);; MELT_LOCATION("warmelt-debug.melt:436:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 2, "DBGI_MAXDEPTH"); /*_.DBGI_MAXDEPTH__V14*/ meltfptr[13] = slot; }; ; } else /*^cond.else*/ { /*_.DBGI_MAXDEPTH__V14*/ meltfptr[13] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_#MAXDEPTH__L10*/ meltfnum[9] = (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V14*/ meltfptr[13])));; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:438:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_OUT__L11*/ meltfnum[10] = (melt_is_out ((melt_ptr_t) /*_.OUT__V13*/ meltfptr[12])) ;; MELT_LOCATION("warmelt-debug.melt:438:/ cond"); /*cond*/ if (/*_#IS_OUT__L11*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V16*/ meltfptr[15] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:438:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check out"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 438; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUT__V13*/ meltfptr[12]; /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V16*/ meltfptr[15] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:438:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16] = 0 ; } ; } ; /*_.IFCPP___V15*/ meltfptr[14] = /*_._IFELSE___V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:438:/ clear"); /*clear*/ /*_#IS_OUT__L11*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V16*/ meltfptr[15] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V15*/ meltfptr[14] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#ltI__L12*/ meltfnum[10] = ((/*_#DEPTH__L1*/ meltfnum[0]) < (/*_#MAXDEPTH__L10*/ meltfnum[9]));; MELT_LOCATION("warmelt-debug.melt:440:/ cond"); /*cond*/ if (/*_#ltI__L12*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-debug.melt:441:/ loop"); /*loop*/ { meltlabloop_FLDLOOP_1:;/*^loopbody*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*_#gteqI__L13*/ meltfnum[12] = ((/*_#IX__L7*/ meltfnum[6]) >= (/*_#NBF__L6*/ meltfnum[3]));; MELT_LOCATION("warmelt-debug.melt:443:/ cond"); /*cond*/ if (/*_#gteqI__L13*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-debug.melt:444:/ quasiblock"); /*^compute*/ /*_.FLDLOOP__V20*/ meltfptr[19] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ { goto meltlabexit_FLDLOOP_1; } ; /*epilog*/ } ; } /*noelse*/ ; MELT_CHECK_SIGNAL(); ; /*_#gtI__L14*/ meltfnum[13] = ((/*_#TORANK__L3*/ meltfnum[2]) > (0));; MELT_LOCATION("warmelt-debug.melt:445:/ cond"); /*cond*/ if (/*_#gtI__L14*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#gtI__L15*/ meltfnum[14] = ((/*_#IX__L7*/ meltfnum[6]) > (/*_#TORANK__L3*/ meltfnum[2]));; MELT_LOCATION("warmelt-debug.melt:445:/ cond"); /*cond*/ if (/*_#gtI__L15*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-debug.melt:447:/ quasiblock"); /*^compute*/ /*_.FLDLOOP__V20*/ meltfptr[19] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ { goto meltlabexit_FLDLOOP_1; } ; /*epilog*/ } ; } /*noelse*/ ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:445:/ clear"); /*clear*/ /*_#gtI__L15*/ meltfnum[14] = 0 ; } ; } /*noelse*/ ; MELT_LOCATION("warmelt-debug.melt:448:/ quasiblock"); /*_.CURFLD__V21*/ meltfptr[20] = (melt_multiple_nth((melt_ptr_t)(/*_.CLAFIELDSEQ__V12*/ meltfptr[11]), (/*_#IX__L7*/ meltfnum[6])));; /*^compute*/ /*_.CURVAL__V22*/ meltfptr[21] = (melt_field_object((melt_ptr_t)(/*_.OBJ__V2*/ meltfptr[1]), (/*_#IX__L7*/ meltfnum[6])));; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#lteqI__L16*/ meltfnum[14] = ((/*_#DEPTH__L1*/ meltfnum[0]) <= (1));; MELT_LOCATION("warmelt-debug.melt:451:/ cond"); /*cond*/ if (/*_#lteqI__L16*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*_#OR___L17*/ meltfnum[16] = /*_#lteqI__L16*/ meltfnum[14];; } else { MELT_LOCATION("warmelt-debug.melt:451:/ cond.else"); /*^block*/ /*anyblock*/ { /*_#NOTNULL__L18*/ meltfnum[17] = ((/*_.CURVAL__V22*/ meltfptr[21]) != NULL);; /*^compute*/ /*_#OR___L17*/ meltfnum[16] = /*_#NOTNULL__L18*/ meltfnum[17];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:451:/ clear"); /*clear*/ /*_#NOTNULL__L18*/ meltfnum[17] = 0 ; } ; } ; /*^cond*/ /*cond*/ if (/*_#OR___L17*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-debug.melt:452:/ quasiblock"); /*_#OUTCUROFF__L19*/ meltfnum[17] = melt_output_length ((melt_ptr_t)/*_.OUT__V13*/ meltfptr[12]);; /*^compute*/ /*_#plI__L20*/ meltfnum[19] = ((/*_#FLDCNT__L8*/ meltfnum[7]) + (1));; MELT_LOCATION("warmelt-debug.melt:455:/ compute"); /*_#FLDCNT__L8*/ meltfnum[7] = /*_#SETQ___L21*/ meltfnum[20] = /*_#plI__L20*/ meltfnum[19];; MELT_CHECK_SIGNAL(); ; /*_#plI__L22*/ meltfnum[21] = ((/*_#OUTOFF__L9*/ meltfnum[8]) + (80));; /*^compute*/ /*_#gtI__L23*/ meltfnum[22] = ((/*_#OUTCUROFF__L19*/ meltfnum[17]) > (/*_#plI__L22*/ meltfnum[21]));; MELT_LOCATION("warmelt-debug.melt:456:/ cond"); /*cond*/ if (/*_#gtI__L23*/ meltfnum[22]) /*then*/ { /*^cond.then*/ /*_#OR___L24*/ meltfnum[23] = /*_#gtI__L23*/ meltfnum[22];; } else { MELT_LOCATION("warmelt-debug.melt:456:/ cond.else"); /*^block*/ /*anyblock*/ { /*_#pcIRAW__L25*/ meltfnum[24] = ((/*_#FLDCNT__L8*/ meltfnum[7]) % (2));; /*^compute*/ /*_#eqeqI__L26*/ meltfnum[25] = ((/*_#pcIRAW__L25*/ meltfnum[24]) == (0));; MELT_LOCATION("warmelt-debug.melt:456:/ cond"); /*cond*/ if (/*_#eqeqI__L26*/ meltfnum[25]) /*then*/ { /*^cond.then*/ /*_#OR___L27*/ meltfnum[26] = /*_#eqeqI__L26*/ meltfnum[25];; } else { MELT_LOCATION("warmelt-debug.melt:456:/ cond.else"); /*^block*/ /*anyblock*/ { /*_#lteqI__L28*/ meltfnum[27] = ((/*_#DEPTH__L1*/ meltfnum[0]) <= (1));; /*^compute*/ /*_#OR___L27*/ meltfnum[26] = /*_#lteqI__L28*/ meltfnum[27];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:456:/ clear"); /*clear*/ /*_#lteqI__L28*/ meltfnum[27] = 0 ; } ; } ; /*_#OR___L24*/ meltfnum[23] = /*_#OR___L27*/ meltfnum[26];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:456:/ clear"); /*clear*/ /*_#pcIRAW__L25*/ meltfnum[24] = 0 ; /*^clear*/ /*clear*/ /*_#eqeqI__L26*/ meltfnum[25] = 0 ; /*^clear*/ /*clear*/ /*_#OR___L27*/ meltfnum[26] = 0 ; } ; } ; /*^cond*/ /*cond*/ if (/*_#OR___L24*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:462:/ locexp"); meltgc_out_add_indent((melt_ptr_t)(/*_.OUT__V13*/ meltfptr[12]), (/*_#DEPTH__L1*/ meltfnum[0]), 0);; } ; /*_#STRBUF_USEDLENGTH__L30*/ meltfnum[24] = melt_strbuf_usedlength((melt_ptr_t)(/*_.OUT__V13*/ meltfptr[12]));; MELT_LOCATION("warmelt-debug.melt:463:/ compute"); /*_#OUTOFF__L9*/ meltfnum[8] = /*_#SETQ___L31*/ meltfnum[25] = /*_#STRBUF_USEDLENGTH__L30*/ meltfnum[24];; MELT_LOCATION("warmelt-debug.melt:461:/ quasiblock"); /*_#PROGN___L32*/ meltfnum[26] = /*_#SETQ___L31*/ meltfnum[25];; /*^compute*/ /*_#_IFELSE___L29*/ meltfnum[27] = /*_#PROGN___L32*/ meltfnum[26];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:456:/ clear"); /*clear*/ /*_#STRBUF_USEDLENGTH__L30*/ meltfnum[24] = 0 ; /*^clear*/ /*clear*/ /*_#SETQ___L31*/ meltfnum[25] = 0 ; /*^clear*/ /*clear*/ /*_#PROGN___L32*/ meltfnum[26] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:465:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V13*/ meltfptr[12]), ( " ")); } ; /*clear*/ /*_#_IFELSE___L29*/ meltfnum[27] = 0 ; /*epilog*/ } ; } ; MELT_LOCATION("warmelt-debug.melt:467:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFLD__V21*/ meltfptr[20]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V23*/ meltfptr[22] = slot; }; ; { /*^locexp*/ meltgc_add_out((melt_ptr_t)(/*_.OUT__V13*/ meltfptr[12]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V23*/ meltfptr[22]))); } ; { MELT_LOCATION("warmelt-debug.melt:468:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V13*/ meltfptr[12]), ( "=")); } ; /*_#plI__L33*/ meltfnum[24] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:469:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[1].meltbp_long = /*_#plI__L33*/ meltfnum[24]; /*_.DBG_OUT__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.CURVAL__V22*/ meltfptr[21]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-debug.melt:470:/ locexp"); meltgc_out_add_indent((melt_ptr_t)(/*_.OUT__V13*/ meltfptr[12]), (/*_#DEPTH__L1*/ meltfnum[0]), 64);; } ; MELT_LOCATION("warmelt-debug.melt:452:/ clear"); /*clear*/ /*_#OUTCUROFF__L19*/ meltfnum[17] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L20*/ meltfnum[19] = 0 ; /*^clear*/ /*clear*/ /*_#SETQ___L21*/ meltfnum[20] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L22*/ meltfnum[21] = 0 ; /*^clear*/ /*clear*/ /*_#gtI__L23*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_#OR___L24*/ meltfnum[23] = 0 ; /*^clear*/ /*clear*/ /*_#_IFELSE___L29*/ meltfnum[27] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V23*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L33*/ meltfnum[24] = 0 ; /*^clear*/ /*clear*/ /*_.DBG_OUT__V24*/ meltfptr[23] = 0 ; /*epilog*/ } ; } /*noelse*/ ; MELT_LOCATION("warmelt-debug.melt:448:/ clear"); /*clear*/ /*_.CURFLD__V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.CURVAL__V22*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_#lteqI__L16*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_#OR___L17*/ meltfnum[16] = 0 ; /*_#plI__L34*/ meltfnum[25] = ((/*_#IX__L7*/ meltfnum[6]) + (1));; MELT_LOCATION("warmelt-debug.melt:472:/ compute"); /*_#IX__L7*/ meltfnum[6] = /*_#SETQ___L35*/ meltfnum[26] = /*_#plI__L34*/ meltfnum[25];; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:441:/ clear"); /*clear*/ /*_#gteqI__L13*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_#gtI__L14*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L34*/ meltfnum[25] = 0 ; /*^clear*/ /*clear*/ /*_#SETQ___L35*/ meltfnum[26] = 0 ; } ; ; goto meltlabloop_FLDLOOP_1; meltlabexit_FLDLOOP_1:;/*^loopepilog*/ /*loopepilog*/ /*_.FOREVER___V19*/ meltfptr[15] = /*_.FLDLOOP__V20*/ meltfptr[19];; } ; MELT_LOCATION("warmelt-debug.melt:440:/ quasiblock"); /*_.PROGN___V25*/ meltfptr[22] = /*_.FOREVER___V19*/ meltfptr[15];; /*^compute*/ /*_._IF___V18*/ meltfptr[16] = /*_.PROGN___V25*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:440:/ clear"); /*clear*/ /*_.FOREVER___V19*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V25*/ meltfptr[22] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V18*/ meltfptr[16] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_.LET___V10*/ meltfptr[8] = /*_._IF___V18*/ meltfptr[16];; MELT_LOCATION("warmelt-debug.melt:429:/ clear"); /*clear*/ /*_#NBF__L6*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.CLA__V11*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_#IX__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_#FLDCNT__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.CLAFIELDSEQ__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.OUT__V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_#OUTOFF__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.DBGI_MAXDEPTH__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_#MAXDEPTH__L10*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_#ltI__L12*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V18*/ meltfptr[16] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:424:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[8];; { MELT_LOCATION("warmelt-debug.melt:424:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V10*/ meltfptr[8] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBGOUT_FIELDS", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_10_WARMELTmiDEBUG_DBGOUT_FIELDS_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_10_WARMELTmiDEBUG_DBGOUT_FIELDS*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_11_WARMELTmiDEBUG_DBGOUTAGAIN_FIELDS(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_11_WARMELTmiDEBUG_DBGOUTAGAIN_FIELDS_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1501 /* start of frame for routine meltrout_11_WARMELTmiDEBUG_DBGOUTAGAIN_FIELDS fromline 1715 */ /** start of frame for meltrout_11_WARMELTmiDEBUG_DBGOUTAGAIN_FIELDS of CLASS_PROCROUTINEOBJ from 1518**/ /*curframdeclclassy*/ class MeltFrame_meltrout_11_WARMELTmiDEBUG_DBGOUTAGAIN_FIELDS// fromline 1531 : public Melt_CallFrameWithValues<24> { public: /* fromline 1535*/ long mcfr_varnum[22]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_11_WARMELTmiDEBUG_DBGOUTAGAIN_FIELDS(meltclosure_ptr_t clos) //the closure constructor fromline 1593 : Melt_CallFrameWithValues<24> ( #if ENABLE_CHECKING /*fromline 1597*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1601*/ sizeof(MeltFrame_meltrout_11_WARMELTmiDEBUG_DBGOUTAGAIN_FIELDS), clos) {}; MeltFrame_meltrout_11_WARMELTmiDEBUG_DBGOUTAGAIN_FIELDS() //the constructor fromline 1605 : Melt_CallFrameWithValues<24> ( #if ENABLE_CHECKING /*fromline 1609*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1613*/ sizeof(MeltFrame_meltrout_11_WARMELTmiDEBUG_DBGOUTAGAIN_FIELDS)) {}; #if ENABLE_CHECKING /*fromline 1617*/ MeltFrame_meltrout_11_WARMELTmiDEBUG_DBGOUTAGAIN_FIELDS(const char*fil, int lin) //the constructor fromline 1619 : Melt_CallFrameWithValues<24> (fil,lin, sizeof(MeltFrame_meltrout_11_WARMELTmiDEBUG_DBGOUTAGAIN_FIELDS)) {}; MeltFrame_meltrout_11_WARMELTmiDEBUG_DBGOUTAGAIN_FIELDS(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1624 : Melt_CallFrameWithValues<24> (fil,lin, sizeof(MeltFrame_meltrout_11_WARMELTmiDEBUG_DBGOUTAGAIN_FIELDS), clos) {}; #endif /* ENABLE_CHECKING fromline 1629*/ }; // end class MeltFrame_meltrout_11_WARMELTmiDEBUG_DBGOUTAGAIN_FIELDS /** end of frame for meltrout_11_WARMELTmiDEBUG_DBGOUTAGAIN_FIELDS fromline 1660**/ /* end of frame for routine meltrout_11_WARMELTmiDEBUG_DBGOUTAGAIN_FIELDS fromline 1719 */ /* classy proc frame meltrout_11_WARMELTmiDEBUG_DBGOUTAGAIN_FIELDS */ MeltFrame_meltrout_11_WARMELTmiDEBUG_DBGOUTAGAIN_FIELDS meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_11_WARMELTmiDEBUG_DBGOUTAGAIN_FIELDS fromline 1748*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1752*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1756*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBGOUTAGAIN_FIELDS", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:477:/ getarg"); /*_.OBJ__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long; /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#FROMRANK__L2*/ meltfnum[1] = meltxargtab_[2].meltbp_long; /*getarg#4*/ /*^getarg*/ if (meltxargdescr_[3] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#TORANK__L3*/ meltfnum[2] = meltxargtab_[3].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:481:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L4*/ meltfnum[3] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-debug.melt:481:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:481:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check dbgi"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 481; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:481:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:481:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:482:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_OBJECT__L5*/ meltfnum[3] = (melt_magic_discr((melt_ptr_t)(/*_.OBJ__V2*/ meltfptr[1])) == MELTOBMAG_OBJECT);; MELT_LOCATION("warmelt-debug.melt:482:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L5*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:482:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check obj"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 482; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OBJ__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:482:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:482:/ clear"); /*clear*/ /*_#IS_OBJECT__L5*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-debug.melt:483:/ quasiblock"); /*_#NBF__L6*/ meltfnum[3] = ((long)melt_object_length((melt_ptr_t)(/*_.OBJ__V2*/ meltfptr[1])));; /*^compute*/ /*_.CLA__V11*/ meltfptr[4] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.OBJ__V2*/ meltfptr[1]))));; /*^compute*/ /*_#IX__L7*/ meltfnum[6] = /*_#FROMRANK__L2*/ meltfnum[1];; MELT_LOCATION("warmelt-debug.melt:486:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CLA__V11*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 6, "CLASS_FIELDS"); /*_.CLAFIELDSEQ__V12*/ meltfptr[11] = slot; }; ; MELT_LOCATION("warmelt-debug.melt:487:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 0, "DBGI_OUT"); /*_.OUT__V13*/ meltfptr[12] = slot; }; ; MELT_LOCATION("warmelt-debug.melt:488:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 2, "DBGI_MAXDEPTH"); /*_.DBGI_MAXDEPTH__V14*/ meltfptr[13] = slot; }; ; } else /*^cond.else*/ { /*_.DBGI_MAXDEPTH__V14*/ meltfptr[13] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_#MAXDEPTH__L8*/ meltfnum[7] = (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V14*/ meltfptr[13])));; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:490:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_OUT__L9*/ meltfnum[8] = (melt_is_out ((melt_ptr_t) /*_.OUT__V13*/ meltfptr[12])) ;; MELT_LOCATION("warmelt-debug.melt:490:/ cond"); /*cond*/ if (/*_#IS_OUT__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V16*/ meltfptr[15] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:490:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check out"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 490; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUT__V13*/ meltfptr[12]; /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V16*/ meltfptr[15] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:490:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16] = 0 ; } ; } ; /*_.IFCPP___V15*/ meltfptr[14] = /*_._IFELSE___V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:490:/ clear"); /*clear*/ /*_#IS_OUT__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V16*/ meltfptr[15] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V15*/ meltfptr[14] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#ltI__L10*/ meltfnum[8] = ((/*_#IX__L7*/ meltfnum[6]) < (0));; MELT_LOCATION("warmelt-debug.melt:491:/ cond"); /*cond*/ if (/*_#ltI__L10*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_#IX__L7*/ meltfnum[6] = /*_#SETQ___L12*/ meltfnum[11] = 0;; /*_#_IF___L11*/ meltfnum[10] = /*_#SETQ___L12*/ meltfnum[11];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:491:/ clear"); /*clear*/ /*_#SETQ___L12*/ meltfnum[11] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L11*/ meltfnum[10] = 0;; } ; MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#ltI__L13*/ meltfnum[11] = ((/*_#DEPTH__L1*/ meltfnum[0]) < (/*_#MAXDEPTH__L8*/ meltfnum[7]));; MELT_LOCATION("warmelt-debug.melt:492:/ cond"); /*cond*/ if (/*_#ltI__L13*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#IS_A__L15*/ meltfnum[14] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_OUTPUT_INFORMATION*/ meltfrout->tabval[2])));; /*^compute*/ /*_#_IF___L14*/ meltfnum[13] = /*_#IS_A__L15*/ meltfnum[14];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:492:/ clear"); /*clear*/ /*_#IS_A__L15*/ meltfnum[14] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L14*/ meltfnum[13] = 0;; } ; MELT_LOCATION("warmelt-debug.melt:492:/ cond"); /*cond*/ if (/*_#_IF___L14*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-debug.melt:494:/ loop"); /*loop*/ { meltlabloop_FLDLOOP_2:;/*^loopbody*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*_#gteqI__L16*/ meltfnum[14] = ((/*_#IX__L7*/ meltfnum[6]) >= (/*_#NBF__L6*/ meltfnum[3]));; MELT_LOCATION("warmelt-debug.melt:495:/ cond"); /*cond*/ if (/*_#gteqI__L16*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-debug.melt:496:/ quasiblock"); /*^compute*/ /*_.FLDLOOP__V20*/ meltfptr[19] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ { goto meltlabexit_FLDLOOP_2; } ; /*epilog*/ } ; } /*noelse*/ ; MELT_CHECK_SIGNAL(); ; /*_#gtI__L17*/ meltfnum[16] = ((/*_#TORANK__L3*/ meltfnum[2]) > (0));; MELT_LOCATION("warmelt-debug.melt:497:/ cond"); /*cond*/ if (/*_#gtI__L17*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#gtI__L18*/ meltfnum[17] = ((/*_#IX__L7*/ meltfnum[6]) > (/*_#TORANK__L3*/ meltfnum[2]));; MELT_LOCATION("warmelt-debug.melt:497:/ cond"); /*cond*/ if (/*_#gtI__L18*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-debug.melt:499:/ quasiblock"); /*^compute*/ /*_.FLDLOOP__V20*/ meltfptr[19] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ { goto meltlabexit_FLDLOOP_2; } ; /*epilog*/ } ; } /*noelse*/ ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:497:/ clear"); /*clear*/ /*_#gtI__L18*/ meltfnum[17] = 0 ; } ; } /*noelse*/ ; MELT_LOCATION("warmelt-debug.melt:500:/ quasiblock"); /*_.CURFLD__V21*/ meltfptr[20] = (melt_multiple_nth((melt_ptr_t)(/*_.CLAFIELDSEQ__V12*/ meltfptr[11]), (/*_#IX__L7*/ meltfnum[6])));; /*^compute*/ /*_.CURVAL__V22*/ meltfptr[21] = (melt_field_object((melt_ptr_t)(/*_.OBJ__V2*/ meltfptr[1]), (/*_#IX__L7*/ meltfnum[6])));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:503:/ cond"); /*cond*/ if (/*_.CURVAL__V22*/ meltfptr[21]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:505:/ locexp"); meltgc_out_add_indent((melt_ptr_t)(/*_.OUT__V13*/ meltfptr[12]), (/*_#DEPTH__L1*/ meltfnum[0]), 64);; } ; MELT_LOCATION("warmelt-debug.melt:507:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURFLD__V21*/ meltfptr[20]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V23*/ meltfptr[22] = slot; }; ; { MELT_LOCATION("warmelt-debug.melt:506:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V13*/ meltfptr[12]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V23*/ meltfptr[22]))); } ; { MELT_LOCATION("warmelt-debug.melt:508:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V13*/ meltfptr[12]), ( "=")); } ; /*_#plI__L20*/ meltfnum[19] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:509:/ msend"); /*msend*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*^ojbmsend.arg*/ argtab[1].meltbp_long = /*_#plI__L20*/ meltfnum[19]; /*_.DBG_OUTPUTAGAIN__V24*/ meltfptr[23] = meltgc_send((melt_ptr_t)(/*_.CURVAL__V22*/ meltfptr[21]), (melt_ptr_t)((/*!DBG_OUTPUTAGAIN*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-debug.melt:510:/ locexp"); meltgc_out_add_indent((melt_ptr_t)(/*_.OUT__V13*/ meltfptr[12]), (/*_#DEPTH__L1*/ meltfnum[0]), 64);; } ; MELT_LOCATION("warmelt-debug.melt:504:/ quasiblock"); /*epilog*/ MELT_LOCATION("warmelt-debug.melt:503:/ clear"); /*clear*/ /*_.NAMED_NAME__V23*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L20*/ meltfnum[19] = 0 ; /*^clear*/ /*clear*/ /*_.DBG_OUTPUTAGAIN__V24*/ meltfptr[23] = 0 ; } ; } /*noelse*/ ; /*_#plI__L21*/ meltfnum[19] = ((/*_#IX__L7*/ meltfnum[6]) + (1));; MELT_LOCATION("warmelt-debug.melt:512:/ compute"); /*_#IX__L7*/ meltfnum[6] = /*_#SETQ___L22*/ meltfnum[21] = /*_#plI__L21*/ meltfnum[19];; /*_#LET___L19*/ meltfnum[17] = /*_#SETQ___L22*/ meltfnum[21];; MELT_LOCATION("warmelt-debug.melt:500:/ clear"); /*clear*/ /*_.CURFLD__V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.CURVAL__V22*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L21*/ meltfnum[19] = 0 ; /*^clear*/ /*clear*/ /*_#SETQ___L22*/ meltfnum[21] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:494:/ clear"); /*clear*/ /*_#gteqI__L16*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_#gtI__L17*/ meltfnum[16] = 0 ; /*^clear*/ /*clear*/ /*_#LET___L19*/ meltfnum[17] = 0 ; } ; ; goto meltlabloop_FLDLOOP_2; meltlabexit_FLDLOOP_2:;/*^loopepilog*/ /*loopepilog*/ /*_.FOREVER___V19*/ meltfptr[15] = /*_.FLDLOOP__V20*/ meltfptr[19];; } ; /*^compute*/ /*_._IF___V18*/ meltfptr[16] = /*_.FOREVER___V19*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:492:/ clear"); /*clear*/ /*_.FOREVER___V19*/ meltfptr[15] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V18*/ meltfptr[16] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_.LET___V10*/ meltfptr[8] = /*_._IF___V18*/ meltfptr[16];; MELT_LOCATION("warmelt-debug.melt:483:/ clear"); /*clear*/ /*_#NBF__L6*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.CLA__V11*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_#IX__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.CLAFIELDSEQ__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.OUT__V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.DBGI_MAXDEPTH__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_#MAXDEPTH__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_#ltI__L10*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L11*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_#ltI__L13*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L14*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V18*/ meltfptr[16] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:477:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[8];; { MELT_LOCATION("warmelt-debug.melt:477:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V10*/ meltfptr[8] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBGOUTAGAIN_FIELDS", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_11_WARMELTmiDEBUG_DBGOUTAGAIN_FIELDS_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_11_WARMELTmiDEBUG_DBGOUTAGAIN_FIELDS*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_12_WARMELTmiDEBUG_DBGOUT_NULL_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_12_WARMELTmiDEBUG_DBGOUT_NULL_METHOD_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1501 /* start of frame for routine meltrout_12_WARMELTmiDEBUG_DBGOUT_NULL_METHOD fromline 1715 */ /** start of frame for meltrout_12_WARMELTmiDEBUG_DBGOUT_NULL_METHOD of CLASS_PROCROUTINEOBJ from 1518**/ /*curframdeclclassy*/ class MeltFrame_meltrout_12_WARMELTmiDEBUG_DBGOUT_NULL_METHOD// fromline 1531 : public Melt_CallFrameWithValues<7> { public: /* fromline 1535*/ long mcfr_varnum[2]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_12_WARMELTmiDEBUG_DBGOUT_NULL_METHOD(meltclosure_ptr_t clos) //the closure constructor fromline 1593 : Melt_CallFrameWithValues<7> ( #if ENABLE_CHECKING /*fromline 1597*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1601*/ sizeof(MeltFrame_meltrout_12_WARMELTmiDEBUG_DBGOUT_NULL_METHOD), clos) {}; MeltFrame_meltrout_12_WARMELTmiDEBUG_DBGOUT_NULL_METHOD() //the constructor fromline 1605 : Melt_CallFrameWithValues<7> ( #if ENABLE_CHECKING /*fromline 1609*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1613*/ sizeof(MeltFrame_meltrout_12_WARMELTmiDEBUG_DBGOUT_NULL_METHOD)) {}; #if ENABLE_CHECKING /*fromline 1617*/ MeltFrame_meltrout_12_WARMELTmiDEBUG_DBGOUT_NULL_METHOD(const char*fil, int lin) //the constructor fromline 1619 : Melt_CallFrameWithValues<7> (fil,lin, sizeof(MeltFrame_meltrout_12_WARMELTmiDEBUG_DBGOUT_NULL_METHOD)) {}; MeltFrame_meltrout_12_WARMELTmiDEBUG_DBGOUT_NULL_METHOD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1624 : Melt_CallFrameWithValues<7> (fil,lin, sizeof(MeltFrame_meltrout_12_WARMELTmiDEBUG_DBGOUT_NULL_METHOD), clos) {}; #endif /* ENABLE_CHECKING fromline 1629*/ }; // end class MeltFrame_meltrout_12_WARMELTmiDEBUG_DBGOUT_NULL_METHOD /** end of frame for meltrout_12_WARMELTmiDEBUG_DBGOUT_NULL_METHOD fromline 1660**/ /* end of frame for routine meltrout_12_WARMELTmiDEBUG_DBGOUT_NULL_METHOD fromline 1719 */ /* classy proc frame meltrout_12_WARMELTmiDEBUG_DBGOUT_NULL_METHOD */ MeltFrame_meltrout_12_WARMELTmiDEBUG_DBGOUT_NULL_METHOD meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_12_WARMELTmiDEBUG_DBGOUT_NULL_METHOD fromline 1748*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1752*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1756*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBGOUT_NULL_METHOD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:520:/ getarg"); /*_.SELF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-debug.melt:521:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 0, "DBGI_OUT"); /*_.OUT__V4*/ meltfptr[3] = slot; }; ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:523:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-debug.melt:523:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V6*/ meltfptr[5] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:523:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check dbgi"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 523; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V6*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:523:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = 0 ; } ; } ; /*_.IFCPP___V5*/ meltfptr[4] = /*_._IFELSE___V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:523:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V5*/ meltfptr[4] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; { MELT_LOCATION("warmelt-debug.melt:524:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V4*/ meltfptr[3]), ( "()")); } ; MELT_LOCATION("warmelt-debug.melt:521:/ clear"); /*clear*/ /*_.OUT__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V5*/ meltfptr[4] = 0 ; /*epilog*/ } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBGOUT_NULL_METHOD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_12_WARMELTmiDEBUG_DBGOUT_NULL_METHOD_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_12_WARMELTmiDEBUG_DBGOUT_NULL_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_13_WARMELTmiDEBUG_DBGOUT_STRING_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_13_WARMELTmiDEBUG_DBGOUT_STRING_METHOD_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1501 /* start of frame for routine meltrout_13_WARMELTmiDEBUG_DBGOUT_STRING_METHOD fromline 1715 */ /** start of frame for meltrout_13_WARMELTmiDEBUG_DBGOUT_STRING_METHOD of CLASS_PROCROUTINEOBJ from 1518**/ /*curframdeclclassy*/ class MeltFrame_meltrout_13_WARMELTmiDEBUG_DBGOUT_STRING_METHOD// fromline 1531 : public Melt_CallFrameWithValues<9> { public: /* fromline 1535*/ long mcfr_varnum[5]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_13_WARMELTmiDEBUG_DBGOUT_STRING_METHOD(meltclosure_ptr_t clos) //the closure constructor fromline 1593 : Melt_CallFrameWithValues<9> ( #if ENABLE_CHECKING /*fromline 1597*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1601*/ sizeof(MeltFrame_meltrout_13_WARMELTmiDEBUG_DBGOUT_STRING_METHOD), clos) {}; MeltFrame_meltrout_13_WARMELTmiDEBUG_DBGOUT_STRING_METHOD() //the constructor fromline 1605 : Melt_CallFrameWithValues<9> ( #if ENABLE_CHECKING /*fromline 1609*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1613*/ sizeof(MeltFrame_meltrout_13_WARMELTmiDEBUG_DBGOUT_STRING_METHOD)) {}; #if ENABLE_CHECKING /*fromline 1617*/ MeltFrame_meltrout_13_WARMELTmiDEBUG_DBGOUT_STRING_METHOD(const char*fil, int lin) //the constructor fromline 1619 : Melt_CallFrameWithValues<9> (fil,lin, sizeof(MeltFrame_meltrout_13_WARMELTmiDEBUG_DBGOUT_STRING_METHOD)) {}; MeltFrame_meltrout_13_WARMELTmiDEBUG_DBGOUT_STRING_METHOD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1624 : Melt_CallFrameWithValues<9> (fil,lin, sizeof(MeltFrame_meltrout_13_WARMELTmiDEBUG_DBGOUT_STRING_METHOD), clos) {}; #endif /* ENABLE_CHECKING fromline 1629*/ }; // end class MeltFrame_meltrout_13_WARMELTmiDEBUG_DBGOUT_STRING_METHOD /** end of frame for meltrout_13_WARMELTmiDEBUG_DBGOUT_STRING_METHOD fromline 1660**/ /* end of frame for routine meltrout_13_WARMELTmiDEBUG_DBGOUT_STRING_METHOD fromline 1719 */ /* classy proc frame meltrout_13_WARMELTmiDEBUG_DBGOUT_STRING_METHOD */ MeltFrame_meltrout_13_WARMELTmiDEBUG_DBGOUT_STRING_METHOD meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_13_WARMELTmiDEBUG_DBGOUT_STRING_METHOD fromline 1748*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1752*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1756*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBGOUT_STRING_METHOD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:529:/ getarg"); /*_.SELF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:530:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-debug.melt:530:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:530:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check dbgi"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 530; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:530:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:530:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-debug.melt:531:/ quasiblock"); /*_.DIS__V7*/ meltfptr[5] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-debug.melt:532:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 0, "DBGI_OUT"); /*_.SBUF__V8*/ meltfptr[4] = slot; }; ; MELT_CHECK_SIGNAL(); ; /*_#gtI__L3*/ meltfnum[1] = ((/*_#DEPTH__L1*/ meltfnum[0]) > (0));; MELT_LOCATION("warmelt-debug.melt:534:/ cond"); /*cond*/ if (/*_#gtI__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_#OR___L4*/ meltfnum[3] = /*_#gtI__L3*/ meltfnum[1];; } else { MELT_LOCATION("warmelt-debug.melt:534:/ cond.else"); /*^block*/ /*anyblock*/ { /*_#eqeq__L5*/ meltfnum[4] = ((/*_.DIS__V7*/ meltfptr[5]) == ((/*!DISCR_STRING*/ meltfrout->tabval[2])));; /*^compute*/ /*_#OR___L4*/ meltfnum[3] = /*_#eqeq__L5*/ meltfnum[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:534:/ clear"); /*clear*/ /*_#eqeq__L5*/ meltfnum[4] = 0 ; } ; } ; /*^cond*/ /*cond*/ if (/*_#OR___L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:536:/ block"); /*anyblock*/ { /*^objgoto*/ /*objgoto*/ goto mtch1_0; ; /*objlabel*/ mtch1_0: ; /*^objlabel*/ /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_5; meltlab_count_5++; debugeprintf("objlabel_5 mtch1_*CLASS_NORMTESTER_SAME/36da753c. *CLASS_OBJLABELINSTR/383d4846. %ld", meltlab_count_5); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.DIS__V7*/ meltfptr[5] == (/*!DISCR_STRING*/ meltfrout->tabval[2]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-debug.melt:537:/ objgoto"); /*objgoto*/ goto mtch1_1; ; } ; } else { MELT_LOCATION("warmelt-debug.melt:536:/ cond.else"); /*^block*/ /*anyblock*/ { /*^objgoto*/ /*objgoto*/ goto mtch1_2; ; } ; } ; /*objlabel*/ mtch1_1: ; MELT_LOCATION("warmelt-debug.melt:537:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_6; meltlab_count_6++; debugeprintf("objlabel_6 mtch1_*CLASS_NORMTESTER_SUCCESS/3a5207a4. *CLASS_OBJLABELINSTR/2b0574dd. %ld", meltlab_count_6); #endif ; /*^quasiblock*/ { MELT_LOCATION("warmelt-debug.melt:538:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), ( " \"")); } ; MELT_LOCATION("warmelt-debug.melt:537:/ objgoto"); /*objgoto*/ goto mtch1__end /*endmatch*/; ; /*objlabel*/ mtch1_2: ; MELT_LOCATION("warmelt-debug.melt:536:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_7; meltlab_count_7++; debugeprintf("objlabel_7 mtch1_*CLASS_NORMTESTER_SAME/32b5e429. *CLASS_OBJLABELINSTR/1dc87f4c. %ld", meltlab_count_7); #endif ; /*^cond*/ /*cond*/ if ( /*testersame*/ (/*_.DIS__V7*/ meltfptr[5] == (/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[3]))) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-debug.melt:539:/ objgoto"); /*objgoto*/ goto mtch1_3; ; } ; } else { MELT_LOCATION("warmelt-debug.melt:536:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-debug.melt:541:/ objgoto"); /*objgoto*/ goto mtch1_4; ; } ; } ; /*objlabel*/ mtch1_3: ; MELT_LOCATION("warmelt-debug.melt:539:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_8; meltlab_count_8++; debugeprintf("objlabel_8 mtch1_*CLASS_NORMTESTER_SUCCESS/353c22e5. *CLASS_OBJLABELINSTR/1a093746. %ld", meltlab_count_8); #endif ; /*^quasiblock*/ { MELT_LOCATION("warmelt-debug.melt:540:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), ( " !\"")); } ; MELT_LOCATION("warmelt-debug.melt:539:/ objgoto"); /*objgoto*/ goto mtch1__end /*endmatch*/; ; /*objlabel*/ mtch1_4: ; MELT_LOCATION("warmelt-debug.melt:541:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_9; meltlab_count_9++; debugeprintf("objlabel_9 mtch1_*CLASS_NORMTESTER_SUCCESS/14478a07. *CLASS_OBJLABELINSTR/31da8116. %ld", meltlab_count_9); #endif ; /*^quasiblock*/ { MELT_LOCATION("warmelt-debug.melt:542:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), ( " ?\"")); } ; MELT_LOCATION("warmelt-debug.melt:541:/ objgoto"); /*objgoto*/ goto mtch1__end /*endmatch*/; ; /*objlabel*/ mtch1__end: ; MELT_LOCATION("warmelt-debug.melt:536:/ objlabel"); /* objlabel */ #if MELTDEBUG_MATCHING static long meltlab_count_10; meltlab_count_10++; debugeprintf("objlabel_10 mtch1__end_h775483501 *CLASS_OBJLABELINSTR/2e38f06d. %ld", meltlab_count_10); #endif ; } ; { MELT_LOCATION("warmelt-debug.melt:544:/ locexp"); meltgc_add_strbuf_cstr ((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), melt_string_str ((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))); } ; { MELT_LOCATION("warmelt-debug.melt:545:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), ( "\" ")); } ; MELT_LOCATION("warmelt-debug.melt:535:/ quasiblock"); /*epilog*/ } ; } else { MELT_LOCATION("warmelt-debug.melt:534:/ cond.else"); /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:548:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), ( " |")); } ; MELT_LOCATION("warmelt-debug.melt:549:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DIS__V7*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V9*/ meltfptr[8] = slot; }; ; { /*^locexp*/ /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V9*/ meltfptr[8]))); } ; { MELT_LOCATION("warmelt-debug.melt:550:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), ( "\"")); } ; { MELT_LOCATION("warmelt-debug.melt:551:/ locexp"); meltgc_add_strbuf_cstr ((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), melt_string_str ((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))); } ; { MELT_LOCATION("warmelt-debug.melt:552:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), ( "\"")); } ; MELT_LOCATION("warmelt-debug.melt:547:/ quasiblock"); /*epilog*/ MELT_LOCATION("warmelt-debug.melt:534:/ clear"); /*clear*/ /*_.NAMED_NAME__V9*/ meltfptr[8] = 0 ; } ; } ; MELT_LOCATION("warmelt-debug.melt:531:/ clear"); /*clear*/ /*_.DIS__V7*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.SBUF__V8*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_#gtI__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_#OR___L4*/ meltfnum[3] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:529:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBGOUT_STRING_METHOD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_13_WARMELTmiDEBUG_DBGOUT_STRING_METHOD_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_13_WARMELTmiDEBUG_DBGOUT_STRING_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_14_WARMELTmiDEBUG_DBGOUT_STRBUF_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_14_WARMELTmiDEBUG_DBGOUT_STRBUF_METHOD_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1501 /* start of frame for routine meltrout_14_WARMELTmiDEBUG_DBGOUT_STRBUF_METHOD fromline 1715 */ /** start of frame for meltrout_14_WARMELTmiDEBUG_DBGOUT_STRBUF_METHOD of CLASS_PROCROUTINEOBJ from 1518**/ /*curframdeclclassy*/ class MeltFrame_meltrout_14_WARMELTmiDEBUG_DBGOUT_STRBUF_METHOD// fromline 1531 : public Melt_CallFrameWithValues<14> { public: /* fromline 1535*/ long mcfr_varnum[9]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_14_WARMELTmiDEBUG_DBGOUT_STRBUF_METHOD(meltclosure_ptr_t clos) //the closure constructor fromline 1593 : Melt_CallFrameWithValues<14> ( #if ENABLE_CHECKING /*fromline 1597*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1601*/ sizeof(MeltFrame_meltrout_14_WARMELTmiDEBUG_DBGOUT_STRBUF_METHOD), clos) {}; MeltFrame_meltrout_14_WARMELTmiDEBUG_DBGOUT_STRBUF_METHOD() //the constructor fromline 1605 : Melt_CallFrameWithValues<14> ( #if ENABLE_CHECKING /*fromline 1609*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1613*/ sizeof(MeltFrame_meltrout_14_WARMELTmiDEBUG_DBGOUT_STRBUF_METHOD)) {}; #if ENABLE_CHECKING /*fromline 1617*/ MeltFrame_meltrout_14_WARMELTmiDEBUG_DBGOUT_STRBUF_METHOD(const char*fil, int lin) //the constructor fromline 1619 : Melt_CallFrameWithValues<14> (fil,lin, sizeof(MeltFrame_meltrout_14_WARMELTmiDEBUG_DBGOUT_STRBUF_METHOD)) {}; MeltFrame_meltrout_14_WARMELTmiDEBUG_DBGOUT_STRBUF_METHOD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1624 : Melt_CallFrameWithValues<14> (fil,lin, sizeof(MeltFrame_meltrout_14_WARMELTmiDEBUG_DBGOUT_STRBUF_METHOD), clos) {}; #endif /* ENABLE_CHECKING fromline 1629*/ }; // end class MeltFrame_meltrout_14_WARMELTmiDEBUG_DBGOUT_STRBUF_METHOD /** end of frame for meltrout_14_WARMELTmiDEBUG_DBGOUT_STRBUF_METHOD fromline 1660**/ /* end of frame for routine meltrout_14_WARMELTmiDEBUG_DBGOUT_STRBUF_METHOD fromline 1719 */ /* classy proc frame meltrout_14_WARMELTmiDEBUG_DBGOUT_STRBUF_METHOD */ MeltFrame_meltrout_14_WARMELTmiDEBUG_DBGOUT_STRBUF_METHOD meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_14_WARMELTmiDEBUG_DBGOUT_STRBUF_METHOD fromline 1748*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1752*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1756*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBGOUT_STRBUF_METHOD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:558:/ getarg"); /*_.SELF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:559:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-debug.melt:559:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:559:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check dbgi"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 559; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:559:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:559:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:560:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_STRBUF__L3*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])) == MELTOBMAG_STRBUF);; MELT_LOCATION("warmelt-debug.melt:560:/ cond"); /*cond*/ if (/*_#IS_STRBUF__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:560:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check self"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 560; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:560:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:560:/ clear"); /*clear*/ /*_#IS_STRBUF__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-debug.melt:561:/ quasiblock"); /*_.DIS__V10*/ meltfptr[8] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-debug.melt:562:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DIS__V10*/ meltfptr[8]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[2]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DIS__V10*/ meltfptr[8]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.DISNAME__V11*/ meltfptr[4] = slot; }; ; } else /*^cond.else*/ { /*_.DISNAME__V11*/ meltfptr[4] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-debug.melt:563:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 0, "DBGI_OUT"); /*_.SBUF__V12*/ meltfptr[11] = slot; }; ; /*_#ULEN__L4*/ meltfnum[1] = melt_strbuf_usedlength((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]));; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#gtI__L5*/ meltfnum[4] = ((/*_#ULEN__L4*/ meltfnum[1]) > (20));; MELT_LOCATION("warmelt-debug.melt:566:/ cond"); /*cond*/ if (/*_#gtI__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ meltgc_out_add_indent((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (/*_#DEPTH__L1*/ meltfnum[0]), 64);; } ; /*epilog*/ } ; } /*noelse*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:567:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "strbuf."; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.DISNAME__V11*/ meltfptr[4]; /*^apply.arg*/ argtab[2].meltbp_cstring = "[ulen="; /*^apply.arg*/ argtab[3].meltbp_long = /*_#ULEN__L4*/ meltfnum[1]; /*^apply.arg*/ argtab[4].meltbp_cstring = "]<\""; /*_.ADD2OUT__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*_#lteqI__L6*/ meltfnum[5] = ((/*_#DEPTH__L1*/ meltfnum[0]) <= (1));; MELT_LOCATION("warmelt-debug.melt:568:/ cond"); /*cond*/ if (/*_#lteqI__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#ltI__L7*/ meltfnum[6] = ((/*_#ULEN__L4*/ meltfnum[1]) < (4000));; MELT_LOCATION("warmelt-debug.melt:570:/ cond"); /*cond*/ if (/*_#ltI__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:571:/ locexp"); /*dbgout_strbuf_method OUTALLSTRBUFCHK__1*/ meltgc_add_out_cstr_len ((melt_ptr_t)/*_.SBUF__V12*/ meltfptr[11], melt_strbuf_str ((melt_ptr_t)/*_.SELF__V2*/ meltfptr[1]), (int) /*_#ULEN__L4*/ meltfnum[1]) ; ; } ; /*epilog*/ } ; } else { MELT_LOCATION("warmelt-debug.melt:570:/ cond.else"); /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:580:/ locexp"); /* dbgout_strbuf_method OUTBIGSLICSTRBUFCHK__1*/ { const int startslice = 1000 ; const int endslice = 2500 ; gcc_assert (startslice + endslice < (int)/*_#ULEN__L4*/ meltfnum[1] - 5) ; meltgc_add_out_cstr_len ((melt_ptr_t)/*_.SBUF__V12*/ meltfptr[11], melt_strbuf_str ((melt_ptr_t)/*_.SELF__V2*/ meltfptr[1]), startslice) ; meltgc_out_printf ((melt_ptr_t)/*_.SBUF__V12*/ meltfptr[11], "\"\n ... %d bytes skipped\n ...\"", (int)/*_#ULEN__L4*/ meltfnum[1] - (startslice+endslice)) ; meltgc_add_out_cstr_len ((melt_ptr_t)/*_.SBUF__V12*/ meltfptr[11], (melt_strbuf_str ((melt_ptr_t)/*_.SELF__V2*/ meltfptr[1])) + /*_#ULEN__L4*/ meltfnum[1] - endslice, endslice); ; } /* end dbgout_strbuf_method OUTBIGSLICSTRBUFCHK__1*/ ; } ; MELT_LOCATION("warmelt-debug.melt:579:/ quasiblock"); /*epilog*/ } ; } ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:568:/ clear"); /*clear*/ /*_#ltI__L7*/ meltfnum[6] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#ltI__L8*/ meltfnum[6] = ((/*_#ULEN__L4*/ meltfnum[1]) < (1000));; MELT_LOCATION("warmelt-debug.melt:603:/ cond"); /*cond*/ if (/*_#ltI__L8*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:604:/ locexp"); /* dbgout_strbuf_method OUTALLTINYSTRBUFCHK__1*/ meltgc_add_out_cstr_len ((melt_ptr_t)/*_.SBUF__V12*/ meltfptr[11], melt_strbuf_str ((melt_ptr_t)/*_.SELF__V2*/ meltfptr[1]), (int) /*_#ULEN__L4*/ meltfnum[1]) ; ; } ; /*epilog*/ } ; } else { MELT_LOCATION("warmelt-debug.melt:603:/ cond.else"); /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:614:/ locexp"); /*+ dbgout_strbuf_method OUTTINYSLICSTRBUFCHK__1*/ { const int startslice = 100 ; const int endslice = 550 ; gcc_assert (startslice + endslice < (int)/*_#ULEN__L4*/ meltfnum[1] - 5) ; meltgc_add_out_cstr_len ((melt_ptr_t)/*_.SBUF__V12*/ meltfptr[11], melt_strbuf_str ((melt_ptr_t)/*_.SELF__V2*/ meltfptr[1]), startslice) ; meltgc_out_printf ((melt_ptr_t)/*_.SBUF__V12*/ meltfptr[11], "\"\n ... %d bytes skipped\n ...\"", (int)/*_#ULEN__L4*/ meltfnum[1] - (startslice+endslice)) ; meltgc_add_out_cstr_len ((melt_ptr_t)/*_.SBUF__V12*/ meltfptr[11], (melt_strbuf_str ((melt_ptr_t)/*_.SELF__V2*/ meltfptr[1])) + /*_#ULEN__L4*/ meltfnum[1] - endslice, endslice); ; } /*-end dbgout_strbuf_method OUTTINYSLICSTRBUFCHK__1*/ ; } ; MELT_LOCATION("warmelt-debug.melt:613:/ quasiblock"); /*epilog*/ } ; } ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:568:/ clear"); /*clear*/ /*_#ltI__L8*/ meltfnum[6] = 0 ; } ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:635:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "\">"; /*_.ADD2OUT__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*_#gtI__L9*/ meltfnum[6] = ((/*_#ULEN__L4*/ meltfnum[1]) > (60));; MELT_LOCATION("warmelt-debug.melt:636:/ cond"); /*cond*/ if (/*_#gtI__L9*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ meltgc_out_add_indent((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (/*_#DEPTH__L1*/ meltfnum[0]), 64);; } ; /*epilog*/ } ; } /*noelse*/ ; MELT_LOCATION("warmelt-debug.melt:561:/ clear"); /*clear*/ /*_.DIS__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.DISNAME__V11*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.SBUF__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_#ULEN__L4*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_#gtI__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.ADD2OUT__V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_#lteqI__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.ADD2OUT__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_#gtI__L9*/ meltfnum[6] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:558:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBGOUT_STRBUF_METHOD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_14_WARMELTmiDEBUG_DBGOUT_STRBUF_METHOD_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_14_WARMELTmiDEBUG_DBGOUT_STRBUF_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_15_WARMELTmiDEBUG_DBGOUT_INTEGER_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_15_WARMELTmiDEBUG_DBGOUT_INTEGER_METHOD_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1501 /* start of frame for routine meltrout_15_WARMELTmiDEBUG_DBGOUT_INTEGER_METHOD fromline 1715 */ /** start of frame for meltrout_15_WARMELTmiDEBUG_DBGOUT_INTEGER_METHOD of CLASS_PROCROUTINEOBJ from 1518**/ /*curframdeclclassy*/ class MeltFrame_meltrout_15_WARMELTmiDEBUG_DBGOUT_INTEGER_METHOD// fromline 1531 : public Melt_CallFrameWithValues<13> { public: /* fromline 1535*/ long mcfr_varnum[11]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_15_WARMELTmiDEBUG_DBGOUT_INTEGER_METHOD(meltclosure_ptr_t clos) //the closure constructor fromline 1593 : Melt_CallFrameWithValues<13> ( #if ENABLE_CHECKING /*fromline 1597*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1601*/ sizeof(MeltFrame_meltrout_15_WARMELTmiDEBUG_DBGOUT_INTEGER_METHOD), clos) {}; MeltFrame_meltrout_15_WARMELTmiDEBUG_DBGOUT_INTEGER_METHOD() //the constructor fromline 1605 : Melt_CallFrameWithValues<13> ( #if ENABLE_CHECKING /*fromline 1609*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1613*/ sizeof(MeltFrame_meltrout_15_WARMELTmiDEBUG_DBGOUT_INTEGER_METHOD)) {}; #if ENABLE_CHECKING /*fromline 1617*/ MeltFrame_meltrout_15_WARMELTmiDEBUG_DBGOUT_INTEGER_METHOD(const char*fil, int lin) //the constructor fromline 1619 : Melt_CallFrameWithValues<13> (fil,lin, sizeof(MeltFrame_meltrout_15_WARMELTmiDEBUG_DBGOUT_INTEGER_METHOD)) {}; MeltFrame_meltrout_15_WARMELTmiDEBUG_DBGOUT_INTEGER_METHOD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1624 : Melt_CallFrameWithValues<13> (fil,lin, sizeof(MeltFrame_meltrout_15_WARMELTmiDEBUG_DBGOUT_INTEGER_METHOD), clos) {}; #endif /* ENABLE_CHECKING fromline 1629*/ }; // end class MeltFrame_meltrout_15_WARMELTmiDEBUG_DBGOUT_INTEGER_METHOD /** end of frame for meltrout_15_WARMELTmiDEBUG_DBGOUT_INTEGER_METHOD fromline 1660**/ /* end of frame for routine meltrout_15_WARMELTmiDEBUG_DBGOUT_INTEGER_METHOD fromline 1719 */ /* classy proc frame meltrout_15_WARMELTmiDEBUG_DBGOUT_INTEGER_METHOD */ MeltFrame_meltrout_15_WARMELTmiDEBUG_DBGOUT_INTEGER_METHOD meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_15_WARMELTmiDEBUG_DBGOUT_INTEGER_METHOD fromline 1748*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1752*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1756*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBGOUT_INTEGER_METHOD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:644:/ getarg"); /*_.SELF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:645:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-debug.melt:645:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:645:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check dbgi"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 645; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:645:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:645:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-debug.melt:646:/ quasiblock"); /*_.DIS__V8*/ meltfptr[4] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-debug.melt:647:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 0, "DBGI_OUT"); /*_.SBUF__V9*/ meltfptr[8] = slot; }; ; MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*_#eqeq__L3*/ meltfnum[1] = ((/*_.DIS__V8*/ meltfptr[4]) == ((/*!DISCR_INTEGER*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-debug.melt:650:/ cond"); /*cond*/ if (/*_#eqeq__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#gtI__L5*/ meltfnum[4] = ((/*_#DEPTH__L1*/ meltfnum[0]) > (0));; /*^compute*/ /*_#_IF___L4*/ meltfnum[3] = /*_#gtI__L5*/ meltfnum[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:650:/ clear"); /*clear*/ /*_#gtI__L5*/ meltfnum[4] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L4*/ meltfnum[3] = 0;; } ; MELT_LOCATION("warmelt-debug.melt:650:/ cond"); /*cond*/ if (/*_#_IF___L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:651:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V9*/ meltfptr[8]), ( " #")); } ; /*_#GET_INT__L6*/ meltfnum[4] = (melt_get_int((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));; { MELT_LOCATION("warmelt-debug.melt:652:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V9*/ meltfptr[8]), (/*_#GET_INT__L6*/ meltfnum[4])); } ; MELT_LOCATION("warmelt-debug.melt:650:/ quasiblock"); /*epilog*/ /*^clear*/ /*clear*/ /*_#GET_INT__L6*/ meltfnum[4] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*_#eqeq__L7*/ meltfnum[4] = ((/*_.DIS__V8*/ meltfptr[4]) == ((/*!DISCR_CONSTANT_INTEGER*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-debug.melt:653:/ cond"); /*cond*/ if (/*_#eqeq__L7*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#gtI__L9*/ meltfnum[8] = ((/*_#DEPTH__L1*/ meltfnum[0]) > (0));; /*^compute*/ /*_#_IF___L8*/ meltfnum[7] = /*_#gtI__L9*/ meltfnum[8];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:653:/ clear"); /*clear*/ /*_#gtI__L9*/ meltfnum[8] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L8*/ meltfnum[7] = 0;; } ; MELT_LOCATION("warmelt-debug.melt:653:/ cond"); /*cond*/ if (/*_#_IF___L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#GET_INT__L10*/ meltfnum[8] = (melt_get_int((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:654:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = " #\'"; /*^apply.arg*/ argtab[1].meltbp_long = /*_#GET_INT__L10*/ meltfnum[8]; /*_.ADD2OUT__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SBUF__V9*/ meltfptr[8]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V11*/ meltfptr[10] = /*_.ADD2OUT__V12*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:653:/ clear"); /*clear*/ /*_#GET_INT__L10*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.ADD2OUT__V12*/ meltfptr[11] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:656:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V9*/ meltfptr[8]), ( " |")); } ; MELT_LOCATION("warmelt-debug.melt:657:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DIS__V8*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V13*/ meltfptr[11] = slot; }; ; { /*^locexp*/ /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V9*/ meltfptr[8]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V13*/ meltfptr[11]))); } ; { MELT_LOCATION("warmelt-debug.melt:658:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V9*/ meltfptr[8]), ( "#")); } ; /*_#GET_INT__L11*/ meltfnum[8] = (melt_get_int((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));; { MELT_LOCATION("warmelt-debug.melt:659:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V9*/ meltfptr[8]), (/*_#GET_INT__L11*/ meltfnum[8])); } ; MELT_LOCATION("warmelt-debug.melt:655:/ quasiblock"); /*epilog*/ MELT_LOCATION("warmelt-debug.melt:653:/ clear"); /*clear*/ /*_.NAMED_NAME__V13*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_#GET_INT__L11*/ meltfnum[8] = 0 ; } ; } ; /*_._IFELSE___V10*/ meltfptr[9] = /*_._IFELSE___V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:650:/ clear"); /*clear*/ /*_#eqeq__L7*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V11*/ meltfptr[10] = 0 ; } ; } ; /*_.LET___V7*/ meltfptr[5] = /*_._IFELSE___V10*/ meltfptr[9];; MELT_LOCATION("warmelt-debug.melt:646:/ clear"); /*clear*/ /*_.DIS__V8*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.SBUF__V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_#eqeq__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V10*/ meltfptr[9] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:644:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V7*/ meltfptr[5];; { MELT_LOCATION("warmelt-debug.melt:644:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V7*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBGOUT_INTEGER_METHOD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_15_WARMELTmiDEBUG_DBGOUT_INTEGER_METHOD_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_15_WARMELTmiDEBUG_DBGOUT_INTEGER_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_16_WARMELTmiDEBUG_DBGOUT_MIXINT_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_16_WARMELTmiDEBUG_DBGOUT_MIXINT_METHOD_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1501 /* start of frame for routine meltrout_16_WARMELTmiDEBUG_DBGOUT_MIXINT_METHOD fromline 1715 */ /** start of frame for meltrout_16_WARMELTmiDEBUG_DBGOUT_MIXINT_METHOD of CLASS_PROCROUTINEOBJ from 1518**/ /*curframdeclclassy*/ class MeltFrame_meltrout_16_WARMELTmiDEBUG_DBGOUT_MIXINT_METHOD// fromline 1531 : public Melt_CallFrameWithValues<14> { public: /* fromline 1535*/ long mcfr_varnum[12]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_16_WARMELTmiDEBUG_DBGOUT_MIXINT_METHOD(meltclosure_ptr_t clos) //the closure constructor fromline 1593 : Melt_CallFrameWithValues<14> ( #if ENABLE_CHECKING /*fromline 1597*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1601*/ sizeof(MeltFrame_meltrout_16_WARMELTmiDEBUG_DBGOUT_MIXINT_METHOD), clos) {}; MeltFrame_meltrout_16_WARMELTmiDEBUG_DBGOUT_MIXINT_METHOD() //the constructor fromline 1605 : Melt_CallFrameWithValues<14> ( #if ENABLE_CHECKING /*fromline 1609*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1613*/ sizeof(MeltFrame_meltrout_16_WARMELTmiDEBUG_DBGOUT_MIXINT_METHOD)) {}; #if ENABLE_CHECKING /*fromline 1617*/ MeltFrame_meltrout_16_WARMELTmiDEBUG_DBGOUT_MIXINT_METHOD(const char*fil, int lin) //the constructor fromline 1619 : Melt_CallFrameWithValues<14> (fil,lin, sizeof(MeltFrame_meltrout_16_WARMELTmiDEBUG_DBGOUT_MIXINT_METHOD)) {}; MeltFrame_meltrout_16_WARMELTmiDEBUG_DBGOUT_MIXINT_METHOD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1624 : Melt_CallFrameWithValues<14> (fil,lin, sizeof(MeltFrame_meltrout_16_WARMELTmiDEBUG_DBGOUT_MIXINT_METHOD), clos) {}; #endif /* ENABLE_CHECKING fromline 1629*/ }; // end class MeltFrame_meltrout_16_WARMELTmiDEBUG_DBGOUT_MIXINT_METHOD /** end of frame for meltrout_16_WARMELTmiDEBUG_DBGOUT_MIXINT_METHOD fromline 1660**/ /* end of frame for routine meltrout_16_WARMELTmiDEBUG_DBGOUT_MIXINT_METHOD fromline 1719 */ /* classy proc frame meltrout_16_WARMELTmiDEBUG_DBGOUT_MIXINT_METHOD */ MeltFrame_meltrout_16_WARMELTmiDEBUG_DBGOUT_MIXINT_METHOD meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_16_WARMELTmiDEBUG_DBGOUT_MIXINT_METHOD fromline 1748*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1752*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1756*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBGOUT_MIXINT_METHOD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:665:/ getarg"); /*_.SELF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:666:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-debug.melt:666:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:666:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check dbgi"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 666; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:666:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:666:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-debug.melt:667:/ quasiblock"); /*_.DIS__V7*/ meltfptr[5] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-debug.melt:668:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 0, "DBGI_OUT"); /*_.SBUF__V8*/ meltfptr[4] = slot; }; ; MELT_LOCATION("warmelt-debug.melt:669:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 2, "DBGI_MAXDEPTH"); /*_.DBGI_MAXDEPTH__V9*/ meltfptr[8] = slot; }; ; } else /*^cond.else*/ { /*_.DBGI_MAXDEPTH__V9*/ meltfptr[8] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_#MAXDEPTH__L3*/ meltfnum[1] = (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V9*/ meltfptr[8])));; MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#gtI__L4*/ meltfnum[3] = ((/*_#DEPTH__L1*/ meltfnum[0]) > (0));; MELT_LOCATION("warmelt-debug.melt:671:/ cond"); /*cond*/ if (/*_#gtI__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#eqeq__L6*/ meltfnum[5] = ((/*_.DIS__V7*/ meltfptr[5]) == ((/*!DISCR_MIXED_INTEGER*/ meltfrout->tabval[2])));; /*^compute*/ /*_#_IF___L5*/ meltfnum[4] = /*_#eqeq__L6*/ meltfnum[5];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:671:/ clear"); /*clear*/ /*_#eqeq__L6*/ meltfnum[5] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L5*/ meltfnum[4] = 0;; } ; MELT_LOCATION("warmelt-debug.melt:671:/ cond"); /*cond*/ if (/*_#_IF___L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:673:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), ( " #[")); } ; /*_#GET_INT__L7*/ meltfnum[5] = (melt_get_int((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));; { MELT_LOCATION("warmelt-debug.melt:674:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), (/*_#GET_INT__L7*/ meltfnum[5])); } ; MELT_LOCATION("warmelt-debug.melt:672:/ quasiblock"); /*epilog*/ MELT_LOCATION("warmelt-debug.melt:671:/ clear"); /*clear*/ /*_#GET_INT__L7*/ meltfnum[5] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:676:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), ( " |")); } ; MELT_LOCATION("warmelt-debug.melt:677:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DIS__V7*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V10*/ meltfptr[9] = slot; }; ; { /*^locexp*/ /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V10*/ meltfptr[9]))); } ; { MELT_LOCATION("warmelt-debug.melt:678:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), ( "#[")); } ; /*_#GET_INT__L8*/ meltfnum[5] = (melt_get_int((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));; { MELT_LOCATION("warmelt-debug.melt:679:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), (/*_#GET_INT__L8*/ meltfnum[5])); } ; MELT_LOCATION("warmelt-debug.melt:675:/ quasiblock"); /*epilog*/ MELT_LOCATION("warmelt-debug.melt:671:/ clear"); /*clear*/ /*_.NAMED_NAME__V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_#GET_INT__L8*/ meltfnum[5] = 0 ; } ; } ; MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*_#ltI__L9*/ meltfnum[5] = ((/*_#DEPTH__L1*/ meltfnum[0]) < (/*_#MAXDEPTH__L3*/ meltfnum[1]));; MELT_LOCATION("warmelt-debug.melt:681:/ cond"); /*cond*/ if (/*_#ltI__L9*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#IS_A__L11*/ meltfnum[10] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_OUTPUT_INFORMATION*/ meltfrout->tabval[3])));; /*^compute*/ /*_#_IF___L10*/ meltfnum[9] = /*_#IS_A__L11*/ meltfnum[10];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:681:/ clear"); /*clear*/ /*_#IS_A__L11*/ meltfnum[10] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L10*/ meltfnum[9] = 0;; } ; MELT_LOCATION("warmelt-debug.melt:681:/ cond"); /*cond*/ if (/*_#_IF___L10*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:684:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), ( ",")); } ; /*_.MIXINT_VAL__V12*/ meltfptr[11] = (melt_val_mixint((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));; /*^compute*/ /*_#plI__L12*/ meltfnum[10] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:685:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[1].meltbp_long = /*_#plI__L12*/ meltfnum[10]; /*_.DBG_OUT__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.MIXINT_VAL__V12*/ meltfptr[11]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-debug.melt:683:/ quasiblock"); /*_.PROGN___V14*/ meltfptr[13] = /*_.DBG_OUT__V13*/ meltfptr[12];; /*^compute*/ /*_._IFELSE___V11*/ meltfptr[9] = /*_.PROGN___V14*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:681:/ clear"); /*clear*/ /*_.MIXINT_VAL__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L12*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.DBG_OUT__V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V14*/ meltfptr[13] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:687:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), ( ",..")); } ; /*clear*/ /*_._IFELSE___V11*/ meltfptr[9] = 0 ; /*epilog*/ } ; } ; { MELT_LOCATION("warmelt-debug.melt:689:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), ( "]")); } ; MELT_LOCATION("warmelt-debug.melt:667:/ clear"); /*clear*/ /*_.DIS__V7*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.SBUF__V8*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.DBGI_MAXDEPTH__V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_#MAXDEPTH__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_#gtI__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_#ltI__L9*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L10*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V11*/ meltfptr[9] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:665:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBGOUT_MIXINT_METHOD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_16_WARMELTmiDEBUG_DBGOUT_MIXINT_METHOD_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_16_WARMELTmiDEBUG_DBGOUT_MIXINT_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_17_WARMELTmiDEBUG_DBGOUT_MIXLOC_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_17_WARMELTmiDEBUG_DBGOUT_MIXLOC_METHOD_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1501 /* start of frame for routine meltrout_17_WARMELTmiDEBUG_DBGOUT_MIXLOC_METHOD fromline 1715 */ /** start of frame for meltrout_17_WARMELTmiDEBUG_DBGOUT_MIXLOC_METHOD of CLASS_PROCROUTINEOBJ from 1518**/ /*curframdeclclassy*/ class MeltFrame_meltrout_17_WARMELTmiDEBUG_DBGOUT_MIXLOC_METHOD// fromline 1531 : public Melt_CallFrameWithValues<13> { public: /* fromline 1535*/ long mcfr_varnum[11]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_17_WARMELTmiDEBUG_DBGOUT_MIXLOC_METHOD(meltclosure_ptr_t clos) //the closure constructor fromline 1593 : Melt_CallFrameWithValues<13> ( #if ENABLE_CHECKING /*fromline 1597*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1601*/ sizeof(MeltFrame_meltrout_17_WARMELTmiDEBUG_DBGOUT_MIXLOC_METHOD), clos) {}; MeltFrame_meltrout_17_WARMELTmiDEBUG_DBGOUT_MIXLOC_METHOD() //the constructor fromline 1605 : Melt_CallFrameWithValues<13> ( #if ENABLE_CHECKING /*fromline 1609*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1613*/ sizeof(MeltFrame_meltrout_17_WARMELTmiDEBUG_DBGOUT_MIXLOC_METHOD)) {}; #if ENABLE_CHECKING /*fromline 1617*/ MeltFrame_meltrout_17_WARMELTmiDEBUG_DBGOUT_MIXLOC_METHOD(const char*fil, int lin) //the constructor fromline 1619 : Melt_CallFrameWithValues<13> (fil,lin, sizeof(MeltFrame_meltrout_17_WARMELTmiDEBUG_DBGOUT_MIXLOC_METHOD)) {}; MeltFrame_meltrout_17_WARMELTmiDEBUG_DBGOUT_MIXLOC_METHOD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1624 : Melt_CallFrameWithValues<13> (fil,lin, sizeof(MeltFrame_meltrout_17_WARMELTmiDEBUG_DBGOUT_MIXLOC_METHOD), clos) {}; #endif /* ENABLE_CHECKING fromline 1629*/ }; // end class MeltFrame_meltrout_17_WARMELTmiDEBUG_DBGOUT_MIXLOC_METHOD /** end of frame for meltrout_17_WARMELTmiDEBUG_DBGOUT_MIXLOC_METHOD fromline 1660**/ /* end of frame for routine meltrout_17_WARMELTmiDEBUG_DBGOUT_MIXLOC_METHOD fromline 1719 */ /* classy proc frame meltrout_17_WARMELTmiDEBUG_DBGOUT_MIXLOC_METHOD */ MeltFrame_meltrout_17_WARMELTmiDEBUG_DBGOUT_MIXLOC_METHOD meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_17_WARMELTmiDEBUG_DBGOUT_MIXLOC_METHOD fromline 1748*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1752*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1756*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBGOUT_MIXLOC_METHOD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:694:/ getarg"); /*_.SELF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:695:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-debug.melt:695:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:695:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check dbgi"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 695; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:695:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:695:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:696:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_MIXLOC__L3*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])) == MELTOBMAG_MIXLOC);; MELT_LOCATION("warmelt-debug.melt:696:/ cond"); /*cond*/ if (/*_#IS_MIXLOC__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:696:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check self mixloc"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 696; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:696:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:696:/ clear"); /*clear*/ /*_#IS_MIXLOC__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-debug.melt:697:/ quasiblock"); /*_.DIS__V10*/ meltfptr[8] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-debug.melt:698:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 0, "DBGI_OUT"); /*_.SBUF__V11*/ meltfptr[4] = slot; }; ; MELT_LOCATION("warmelt-debug.melt:699:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 2, "DBGI_MAXDEPTH"); /*_.DBGI_MAXDEPTH__V12*/ meltfptr[11] = slot; }; ; } else /*^cond.else*/ { /*_.DBGI_MAXDEPTH__V12*/ meltfptr[11] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_#MAXDEPTH__L4*/ meltfnum[1] = (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V12*/ meltfptr[11])));; MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#gtI__L5*/ meltfnum[4] = ((/*_#DEPTH__L1*/ meltfnum[0]) > (0));; MELT_LOCATION("warmelt-debug.melt:701:/ cond"); /*cond*/ if (/*_#gtI__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#eqeq__L7*/ meltfnum[6] = ((/*_.DIS__V10*/ meltfptr[8]) == ((/*!DISCR_MIXED_LOCATION*/ meltfrout->tabval[2])));; /*^compute*/ /*_#_IF___L6*/ meltfnum[5] = /*_#eqeq__L7*/ meltfnum[6];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:701:/ clear"); /*clear*/ /*_#eqeq__L7*/ meltfnum[6] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L6*/ meltfnum[5] = 0;; } ; MELT_LOCATION("warmelt-debug.melt:701:/ cond"); /*cond*/ if (/*_#_IF___L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:703:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), ( " #![")); } ; /*_#GET_INT__L8*/ meltfnum[6] = (melt_get_int((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));; { MELT_LOCATION("warmelt-debug.melt:704:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), (/*_#GET_INT__L8*/ meltfnum[6])); } ; MELT_LOCATION("warmelt-debug.melt:702:/ quasiblock"); /*epilog*/ MELT_LOCATION("warmelt-debug.melt:701:/ clear"); /*clear*/ /*_#GET_INT__L8*/ meltfnum[6] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:706:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), ( " |")); } ; MELT_LOCATION("warmelt-debug.melt:707:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DIS__V10*/ meltfptr[8]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V13*/ meltfptr[12] = slot; }; ; { /*^locexp*/ /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V13*/ meltfptr[12]))); } ; { MELT_LOCATION("warmelt-debug.melt:708:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), ( "#![")); } ; /*_#GET_INT__L9*/ meltfnum[6] = (melt_get_int((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));; { MELT_LOCATION("warmelt-debug.melt:709:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), (/*_#GET_INT__L9*/ meltfnum[6])); } ; MELT_LOCATION("warmelt-debug.melt:705:/ quasiblock"); /*epilog*/ MELT_LOCATION("warmelt-debug.melt:701:/ clear"); /*clear*/ /*_.NAMED_NAME__V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_#GET_INT__L9*/ meltfnum[6] = 0 ; } ; } ; MELT_CHECK_SIGNAL(); ; /*_#plI__L10*/ meltfnum[6] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (2));; /*^compute*/ /*_#ltI__L11*/ meltfnum[10] = ((/*_#plI__L10*/ meltfnum[6]) < (/*_#MAXDEPTH__L4*/ meltfnum[1]));; MELT_LOCATION("warmelt-debug.melt:711:/ cond"); /*cond*/ if (/*_#ltI__L11*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:713:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), ( ",")); } ; { MELT_LOCATION("warmelt-debug.melt:714:/ locexp"); /*add2sbufmixloc*/ if (melt_magic_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])) == MELTOBMAG_MIXLOC) { char smallcbuf[128]; location_t loc = melt_location_mixloc ((melt_ptr_t)/*_.SELF__V2*/ meltfptr[1]); memset (smallcbuf, 0, sizeof(smallcbuf)); snprintf (smallcbuf, sizeof (smallcbuf)-1, "{%.120s:%d:%d}", LOCATION_FILE (loc), LOCATION_LINE (loc), LOCATION_COLUMN (loc)); meltgc_add_strbuf_raw((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), smallcbuf); } /*end add2sbufmixloc*/ ; } ; MELT_LOCATION("warmelt-debug.melt:712:/ quasiblock"); /*epilog*/ } ; } else { MELT_LOCATION("warmelt-debug.melt:711:/ cond.else"); /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:716:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), ( ",..")); } ; /*epilog*/ } ; } ; { MELT_LOCATION("warmelt-debug.melt:718:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), ( "]")); } ; MELT_LOCATION("warmelt-debug.melt:697:/ clear"); /*clear*/ /*_.DIS__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.SBUF__V11*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.DBGI_MAXDEPTH__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_#MAXDEPTH__L4*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_#gtI__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L10*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_#ltI__L11*/ meltfnum[10] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:694:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBGOUT_MIXLOC_METHOD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_17_WARMELTmiDEBUG_DBGOUT_MIXLOC_METHOD_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_17_WARMELTmiDEBUG_DBGOUT_MIXLOC_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_18_WARMELTmiDEBUG_DBGOUT_MIXBIGINT_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_18_WARMELTmiDEBUG_DBGOUT_MIXBIGINT_METHOD_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1501 /* start of frame for routine meltrout_18_WARMELTmiDEBUG_DBGOUT_MIXBIGINT_METHOD fromline 1715 */ /** start of frame for meltrout_18_WARMELTmiDEBUG_DBGOUT_MIXBIGINT_METHOD of CLASS_PROCROUTINEOBJ from 1518**/ /*curframdeclclassy*/ class MeltFrame_meltrout_18_WARMELTmiDEBUG_DBGOUT_MIXBIGINT_METHOD// fromline 1531 : public Melt_CallFrameWithValues<15> { public: /* fromline 1535*/ long mcfr_varnum[8]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_18_WARMELTmiDEBUG_DBGOUT_MIXBIGINT_METHOD(meltclosure_ptr_t clos) //the closure constructor fromline 1593 : Melt_CallFrameWithValues<15> ( #if ENABLE_CHECKING /*fromline 1597*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1601*/ sizeof(MeltFrame_meltrout_18_WARMELTmiDEBUG_DBGOUT_MIXBIGINT_METHOD), clos) {}; MeltFrame_meltrout_18_WARMELTmiDEBUG_DBGOUT_MIXBIGINT_METHOD() //the constructor fromline 1605 : Melt_CallFrameWithValues<15> ( #if ENABLE_CHECKING /*fromline 1609*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1613*/ sizeof(MeltFrame_meltrout_18_WARMELTmiDEBUG_DBGOUT_MIXBIGINT_METHOD)) {}; #if ENABLE_CHECKING /*fromline 1617*/ MeltFrame_meltrout_18_WARMELTmiDEBUG_DBGOUT_MIXBIGINT_METHOD(const char*fil, int lin) //the constructor fromline 1619 : Melt_CallFrameWithValues<15> (fil,lin, sizeof(MeltFrame_meltrout_18_WARMELTmiDEBUG_DBGOUT_MIXBIGINT_METHOD)) {}; MeltFrame_meltrout_18_WARMELTmiDEBUG_DBGOUT_MIXBIGINT_METHOD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1624 : Melt_CallFrameWithValues<15> (fil,lin, sizeof(MeltFrame_meltrout_18_WARMELTmiDEBUG_DBGOUT_MIXBIGINT_METHOD), clos) {}; #endif /* ENABLE_CHECKING fromline 1629*/ }; // end class MeltFrame_meltrout_18_WARMELTmiDEBUG_DBGOUT_MIXBIGINT_METHOD /** end of frame for meltrout_18_WARMELTmiDEBUG_DBGOUT_MIXBIGINT_METHOD fromline 1660**/ /* end of frame for routine meltrout_18_WARMELTmiDEBUG_DBGOUT_MIXBIGINT_METHOD fromline 1719 */ /* classy proc frame meltrout_18_WARMELTmiDEBUG_DBGOUT_MIXBIGINT_METHOD */ MeltFrame_meltrout_18_WARMELTmiDEBUG_DBGOUT_MIXBIGINT_METHOD meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_18_WARMELTmiDEBUG_DBGOUT_MIXBIGINT_METHOD fromline 1748*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1752*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1756*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBGOUT_MIXBIGINT_METHOD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:724:/ getarg"); /*_.SELF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:725:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-debug.melt:725:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:725:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check dbgi"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 725; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:725:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:725:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:726:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_MIXBIGINT__L3*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])) == MELTOBMAG_MIXBIGINT);; MELT_LOCATION("warmelt-debug.melt:726:/ cond"); /*cond*/ if (/*_#IS_MIXBIGINT__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:726:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check self mixbigint"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 726; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:726:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:726:/ clear"); /*clear*/ /*_#IS_MIXBIGINT__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-debug.melt:727:/ quasiblock"); /*_.DIS__V10*/ meltfptr[8] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-debug.melt:728:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 0, "DBGI_OUT"); /*_.SBUF__V11*/ meltfptr[4] = slot; }; ; } else /*^cond.else*/ { /*_.SBUF__V11*/ meltfptr[4] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-debug.melt:729:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 2, "DBGI_MAXDEPTH"); /*_.DBGI_MAXDEPTH__V12*/ meltfptr[11] = slot; }; ; } else /*^cond.else*/ { /*_.DBGI_MAXDEPTH__V12*/ meltfptr[11] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_#MAXDEPTH__L4*/ meltfnum[1] = (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V12*/ meltfptr[11])));; { MELT_LOCATION("warmelt-debug.melt:731:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), ( " |")); } ; MELT_LOCATION("warmelt-debug.melt:732:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DIS__V10*/ meltfptr[8]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V13*/ meltfptr[12] = slot; }; ; { /*^locexp*/ /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V13*/ meltfptr[12]))); } ; { MELT_LOCATION("warmelt-debug.melt:733:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), ( "#![")); } ; MELT_CHECK_SIGNAL(); ; /*_#plI__L5*/ meltfnum[4] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (2));; /*^compute*/ /*_#ltI__L6*/ meltfnum[5] = ((/*_#plI__L5*/ meltfnum[4]) < (/*_#MAXDEPTH__L4*/ meltfnum[1]));; MELT_LOCATION("warmelt-debug.melt:734:/ cond"); /*cond*/ if (/*_#ltI__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_.MIXBIGINT_VAL__V14*/ meltfptr[13] = melt_val_mixbigint((melt_ptr_t) /*_.SELF__V2*/ meltfptr[1]);; /*^compute*/ /*_#plI__L7*/ meltfnum[6] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:736:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[1].meltbp_long = /*_#plI__L7*/ meltfnum[6]; /*_.DBG_OUT__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.MIXBIGINT_VAL__V14*/ meltfptr[13]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-debug.melt:737:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), ( ",")); } ; /*_#plI__L8*/ meltfnum[7] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));; { MELT_LOCATION("warmelt-debug.melt:738:/ locexp"); meltgc_ppstrbuf_mixbigint((melt_ptr_t) /*_.SBUF__V11*/ meltfptr[4],/*_#plI__L8*/ meltfnum[7],(melt_ptr_t) /*_.SELF__V2*/ meltfptr[1]);; } ; MELT_LOCATION("warmelt-debug.melt:735:/ quasiblock"); /*epilog*/ MELT_LOCATION("warmelt-debug.melt:734:/ clear"); /*clear*/ /*_.MIXBIGINT_VAL__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.DBG_OUT__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L8*/ meltfnum[7] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:740:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), ( ",..")); } ; /*epilog*/ } ; } ; { MELT_LOCATION("warmelt-debug.melt:742:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), ( "]")); } ; MELT_LOCATION("warmelt-debug.melt:727:/ clear"); /*clear*/ /*_.DIS__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.SBUF__V11*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.DBGI_MAXDEPTH__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_#MAXDEPTH__L4*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_#ltI__L6*/ meltfnum[5] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:724:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBGOUT_MIXBIGINT_METHOD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_18_WARMELTmiDEBUG_DBGOUT_MIXBIGINT_METHOD_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_18_WARMELTmiDEBUG_DBGOUT_MIXBIGINT_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_19_WARMELTmiDEBUG_DBGOUT_MULTIPLE_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_19_WARMELTmiDEBUG_DBGOUT_MULTIPLE_METHOD_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1501 /* start of frame for routine meltrout_19_WARMELTmiDEBUG_DBGOUT_MULTIPLE_METHOD fromline 1715 */ /** start of frame for meltrout_19_WARMELTmiDEBUG_DBGOUT_MULTIPLE_METHOD of CLASS_PROCROUTINEOBJ from 1518**/ /*curframdeclclassy*/ class MeltFrame_meltrout_19_WARMELTmiDEBUG_DBGOUT_MULTIPLE_METHOD// fromline 1531 : public Melt_CallFrameWithValues<11> { public: /* fromline 1535*/ long mcfr_varnum[22]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_19_WARMELTmiDEBUG_DBGOUT_MULTIPLE_METHOD(meltclosure_ptr_t clos) //the closure constructor fromline 1593 : Melt_CallFrameWithValues<11> ( #if ENABLE_CHECKING /*fromline 1597*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1601*/ sizeof(MeltFrame_meltrout_19_WARMELTmiDEBUG_DBGOUT_MULTIPLE_METHOD), clos) {}; MeltFrame_meltrout_19_WARMELTmiDEBUG_DBGOUT_MULTIPLE_METHOD() //the constructor fromline 1605 : Melt_CallFrameWithValues<11> ( #if ENABLE_CHECKING /*fromline 1609*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1613*/ sizeof(MeltFrame_meltrout_19_WARMELTmiDEBUG_DBGOUT_MULTIPLE_METHOD)) {}; #if ENABLE_CHECKING /*fromline 1617*/ MeltFrame_meltrout_19_WARMELTmiDEBUG_DBGOUT_MULTIPLE_METHOD(const char*fil, int lin) //the constructor fromline 1619 : Melt_CallFrameWithValues<11> (fil,lin, sizeof(MeltFrame_meltrout_19_WARMELTmiDEBUG_DBGOUT_MULTIPLE_METHOD)) {}; MeltFrame_meltrout_19_WARMELTmiDEBUG_DBGOUT_MULTIPLE_METHOD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1624 : Melt_CallFrameWithValues<11> (fil,lin, sizeof(MeltFrame_meltrout_19_WARMELTmiDEBUG_DBGOUT_MULTIPLE_METHOD), clos) {}; #endif /* ENABLE_CHECKING fromline 1629*/ }; // end class MeltFrame_meltrout_19_WARMELTmiDEBUG_DBGOUT_MULTIPLE_METHOD /** end of frame for meltrout_19_WARMELTmiDEBUG_DBGOUT_MULTIPLE_METHOD fromline 1660**/ /* end of frame for routine meltrout_19_WARMELTmiDEBUG_DBGOUT_MULTIPLE_METHOD fromline 1719 */ /* classy proc frame meltrout_19_WARMELTmiDEBUG_DBGOUT_MULTIPLE_METHOD */ MeltFrame_meltrout_19_WARMELTmiDEBUG_DBGOUT_MULTIPLE_METHOD meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_19_WARMELTmiDEBUG_DBGOUT_MULTIPLE_METHOD fromline 1748*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1752*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1756*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBGOUT_MULTIPLE_METHOD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:747:/ getarg"); /*_.SELF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:748:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-debug.melt:748:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:748:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check dbgi"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 748; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:748:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:748:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-debug.melt:749:/ quasiblock"); /*_.DIS__V7*/ meltfptr[5] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-debug.melt:750:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 0, "DBGI_OUT"); /*_.SBUF__V8*/ meltfptr[4] = slot; }; ; MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*_#gtI__L3*/ meltfnum[1] = ((/*_#DEPTH__L1*/ meltfnum[0]) > (0));; MELT_LOCATION("warmelt-debug.melt:752:/ cond"); /*cond*/ if (/*_#gtI__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#eqeq__L5*/ meltfnum[4] = ((/*_.DIS__V7*/ meltfptr[5]) == ((/*!DISCR_MULTIPLE*/ meltfrout->tabval[2])));; /*^compute*/ /*_#_IF___L4*/ meltfnum[3] = /*_#eqeq__L5*/ meltfnum[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:752:/ clear"); /*clear*/ /*_#eqeq__L5*/ meltfnum[4] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L4*/ meltfnum[3] = 0;; } ; MELT_LOCATION("warmelt-debug.melt:752:/ cond"); /*cond*/ if (/*_#_IF___L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:753:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), ( " *")); } ; /*epilog*/ } ; } else { MELT_LOCATION("warmelt-debug.melt:752:/ cond.else"); /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:755:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), ( " |")); } ; MELT_LOCATION("warmelt-debug.melt:756:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DIS__V7*/ meltfptr[5]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V9*/ meltfptr[8] = slot; }; ; { /*^locexp*/ /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V9*/ meltfptr[8]))); } ; { MELT_LOCATION("warmelt-debug.melt:757:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), ( "*")); } ; MELT_LOCATION("warmelt-debug.melt:754:/ quasiblock"); /*epilog*/ MELT_LOCATION("warmelt-debug.melt:752:/ clear"); /*clear*/ /*_.NAMED_NAME__V9*/ meltfptr[8] = 0 ; } ; } ; MELT_LOCATION("warmelt-debug.melt:758:/ quasiblock"); /*_#LN__L6*/ meltfnum[4] = (melt_multiple_length((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));; { MELT_LOCATION("warmelt-debug.melt:759:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), (/*_#LN__L6*/ meltfnum[4])); } ; { MELT_LOCATION("warmelt-debug.melt:760:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), ( "[")); } ; MELT_CHECK_SIGNAL(); ; /*_#lteqI__L7*/ meltfnum[6] = ((/*_#DEPTH__L1*/ meltfnum[0]) <= (0));; MELT_LOCATION("warmelt-debug.melt:761:/ cond"); /*cond*/ if (/*_#lteqI__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*_#OR___L8*/ meltfnum[7] = /*_#lteqI__L7*/ meltfnum[6];; } else { MELT_LOCATION("warmelt-debug.melt:761:/ cond.else"); /*^block*/ /*anyblock*/ { /*_#MELT_REALLY_NEED_DEBUG__L9*/ meltfnum[8] = /*MELT_REALLY_NEED_DEBUG*/ (melt_need_debug ((int) /*_#DEPTH__L1*/ meltfnum[0]));; /*^compute*/ /*_#OR___L8*/ meltfnum[7] = /*_#MELT_REALLY_NEED_DEBUG__L9*/ meltfnum[8];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:761:/ clear"); /*clear*/ /*_#MELT_REALLY_NEED_DEBUG__L9*/ meltfnum[8] = 0 ; } ; } ; /*^cond*/ /*cond*/ if (/*_#OR___L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit1__EACHTUP */ long meltcit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SELF__V2*/ meltfptr[1]); for (/*_#IX__L10*/ meltfnum[8] = 0; (/*_#IX__L10*/ meltfnum[8] >= 0) && (/*_#IX__L10*/ meltfnum[8] < meltcit1__EACHTUP_ln); /*_#IX__L10*/ meltfnum[8]++) { /*_.CURCOMP__V10*/ meltfptr[8] = melt_multiple_nth((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), /*_#IX__L10*/ meltfnum[8]); MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*_#pcIRAW__L11*/ meltfnum[10] = ((/*_#IX__L10*/ meltfnum[8]) % (5));; /*^compute*/ /*_#eqeqI__L12*/ meltfnum[11] = ((0) == (/*_#pcIRAW__L11*/ meltfnum[10]));; MELT_LOCATION("warmelt-debug.melt:765:/ cond"); /*cond*/ if (/*_#eqeqI__L12*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#gtI__L14*/ meltfnum[13] = ((/*_#IX__L10*/ meltfnum[8]) > (0));; /*^compute*/ /*_#_IF___L13*/ meltfnum[12] = /*_#gtI__L14*/ meltfnum[13];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:765:/ clear"); /*clear*/ /*_#gtI__L14*/ meltfnum[13] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L13*/ meltfnum[12] = 0;; } ; MELT_LOCATION("warmelt-debug.melt:765:/ cond"); /*cond*/ if (/*_#_IF___L13*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:766:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), (/*_#DEPTH__L1*/ meltfnum[0]), 0); } ; /*epilog*/ } ; } else { MELT_LOCATION("warmelt-debug.melt:765:/ cond.else"); /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:767:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), (/*_#DEPTH__L1*/ meltfnum[0]), 64); } ; /*epilog*/ } ; } ; MELT_LOCATION("warmelt-debug.melt:768:/ quasiblock"); /*_#CURULEN__L15*/ meltfnum[13] = melt_strbuf_usedlength((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]));; /*^compute*/ /*_#plI__L16*/ meltfnum[15] = ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:769:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[1].meltbp_long = /*_#plI__L16*/ meltfnum[15]; /*_.DBG_OUT__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CURCOMP__V10*/ meltfptr[8]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*_#STRBUF_USEDLENGTH__L17*/ meltfnum[16] = melt_strbuf_usedlength((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]));; /*^compute*/ /*_#miI__L18*/ meltfnum[17] = ((/*_#STRBUF_USEDLENGTH__L17*/ meltfnum[16]) - (/*_#CURULEN__L15*/ meltfnum[13]));; /*^compute*/ /*_#gtI__L19*/ meltfnum[18] = ((/*_#miI__L18*/ meltfnum[17]) > (64));; MELT_LOCATION("warmelt-debug.melt:770:/ cond"); /*cond*/ if (/*_#gtI__L19*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#miI__L20*/ meltfnum[19] = ((/*_#LN__L6*/ meltfnum[4]) - (1));; /*^compute*/ /*_#ltI__L21*/ meltfnum[20] = ((/*_#IX__L10*/ meltfnum[8]) < (/*_#miI__L20*/ meltfnum[19]));; MELT_LOCATION("warmelt-debug.melt:770:/ cond"); /*cond*/ if (/*_#ltI__L21*/ meltfnum[20]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#plI__L22*/ meltfnum[21] = ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));; { MELT_LOCATION("warmelt-debug.melt:772:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), (/*_#plI__L22*/ meltfnum[21]), 0); } ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:770:/ clear"); /*clear*/ /*_#plI__L22*/ meltfnum[21] = 0 ; } ; } /*noelse*/ ; /*epilog*/ /*^clear*/ /*clear*/ /*_#miI__L20*/ meltfnum[19] = 0 ; /*^clear*/ /*clear*/ /*_#ltI__L21*/ meltfnum[20] = 0 ; } ; } /*noelse*/ ; MELT_LOCATION("warmelt-debug.melt:768:/ clear"); /*clear*/ /*_#CURULEN__L15*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L16*/ meltfnum[15] = 0 ; /*^clear*/ /*clear*/ /*_.DBG_OUT__V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_#STRBUF_USEDLENGTH__L17*/ meltfnum[16] = 0 ; /*^clear*/ /*clear*/ /*_#miI__L18*/ meltfnum[17] = 0 ; /*^clear*/ /*clear*/ /*_#gtI__L19*/ meltfnum[18] = 0 ; if (/*_#IX__L10*/ meltfnum[8]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-debug.melt:762:/ clear"); /*clear*/ /*_.CURCOMP__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_#IX__L10*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_#pcIRAW__L11*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_#eqeqI__L12*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L13*/ meltfnum[12] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; /*epilog*/ } ; } else { MELT_LOCATION("warmelt-debug.melt:761:/ cond.else"); /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:774:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), ( "..")); } ; /*epilog*/ } ; } ; { MELT_LOCATION("warmelt-debug.melt:776:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), ( "]")); } ; MELT_LOCATION("warmelt-debug.melt:758:/ clear"); /*clear*/ /*_#LN__L6*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_#lteqI__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_#OR___L8*/ meltfnum[7] = 0 ; MELT_LOCATION("warmelt-debug.melt:749:/ clear"); /*clear*/ /*_.DIS__V7*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.SBUF__V8*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_#gtI__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L4*/ meltfnum[3] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:747:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBGOUT_MULTIPLE_METHOD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_19_WARMELTmiDEBUG_DBGOUT_MULTIPLE_METHOD_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_19_WARMELTmiDEBUG_DBGOUT_MULTIPLE_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_20_WARMELTmiDEBUG_DBGOUT_ROUTINE_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_20_WARMELTmiDEBUG_DBGOUT_ROUTINE_METHOD_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1501 /* start of frame for routine meltrout_20_WARMELTmiDEBUG_DBGOUT_ROUTINE_METHOD fromline 1715 */ /** start of frame for meltrout_20_WARMELTmiDEBUG_DBGOUT_ROUTINE_METHOD of CLASS_PROCROUTINEOBJ from 1518**/ /*curframdeclclassy*/ class MeltFrame_meltrout_20_WARMELTmiDEBUG_DBGOUT_ROUTINE_METHOD// fromline 1531 : public Melt_CallFrameWithValues<17> { public: /* fromline 1535*/ long mcfr_varnum[8]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_20_WARMELTmiDEBUG_DBGOUT_ROUTINE_METHOD(meltclosure_ptr_t clos) //the closure constructor fromline 1593 : Melt_CallFrameWithValues<17> ( #if ENABLE_CHECKING /*fromline 1597*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1601*/ sizeof(MeltFrame_meltrout_20_WARMELTmiDEBUG_DBGOUT_ROUTINE_METHOD), clos) {}; MeltFrame_meltrout_20_WARMELTmiDEBUG_DBGOUT_ROUTINE_METHOD() //the constructor fromline 1605 : Melt_CallFrameWithValues<17> ( #if ENABLE_CHECKING /*fromline 1609*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1613*/ sizeof(MeltFrame_meltrout_20_WARMELTmiDEBUG_DBGOUT_ROUTINE_METHOD)) {}; #if ENABLE_CHECKING /*fromline 1617*/ MeltFrame_meltrout_20_WARMELTmiDEBUG_DBGOUT_ROUTINE_METHOD(const char*fil, int lin) //the constructor fromline 1619 : Melt_CallFrameWithValues<17> (fil,lin, sizeof(MeltFrame_meltrout_20_WARMELTmiDEBUG_DBGOUT_ROUTINE_METHOD)) {}; MeltFrame_meltrout_20_WARMELTmiDEBUG_DBGOUT_ROUTINE_METHOD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1624 : Melt_CallFrameWithValues<17> (fil,lin, sizeof(MeltFrame_meltrout_20_WARMELTmiDEBUG_DBGOUT_ROUTINE_METHOD), clos) {}; #endif /* ENABLE_CHECKING fromline 1629*/ }; // end class MeltFrame_meltrout_20_WARMELTmiDEBUG_DBGOUT_ROUTINE_METHOD /** end of frame for meltrout_20_WARMELTmiDEBUG_DBGOUT_ROUTINE_METHOD fromline 1660**/ /* end of frame for routine meltrout_20_WARMELTmiDEBUG_DBGOUT_ROUTINE_METHOD fromline 1719 */ /* classy proc frame meltrout_20_WARMELTmiDEBUG_DBGOUT_ROUTINE_METHOD */ MeltFrame_meltrout_20_WARMELTmiDEBUG_DBGOUT_ROUTINE_METHOD meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_20_WARMELTmiDEBUG_DBGOUT_ROUTINE_METHOD fromline 1748*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1752*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1756*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBGOUT_ROUTINE_METHOD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:782:/ getarg"); /*_.SELF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:783:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-debug.melt:783:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:783:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check dbgi"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 783; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:783:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:783:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:784:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_ROUTINE__L3*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])) == MELTOBMAG_ROUTINE);; MELT_LOCATION("warmelt-debug.melt:784:/ cond"); /*cond*/ if (/*_#IS_ROUTINE__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:784:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check self"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 784; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:784:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:784:/ clear"); /*clear*/ /*_#IS_ROUTINE__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-debug.melt:785:/ quasiblock"); /*_.DIS__V10*/ meltfptr[8] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-debug.melt:786:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 0, "DBGI_OUT"); /*_.SBUF__V11*/ meltfptr[4] = slot; }; ; /*_#plI__L4*/ meltfnum[1] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));; /*^compute*/ /*_.BOXDEPTHP1__V12*/ meltfptr[11] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[2])), (/*_#plI__L4*/ meltfnum[1])));; MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#gtI__L5*/ meltfnum[4] = ((/*_#DEPTH__L1*/ meltfnum[0]) > (0));; MELT_LOCATION("warmelt-debug.melt:789:/ cond"); /*cond*/ if (/*_#gtI__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#eqeq__L7*/ meltfnum[6] = ((/*_.DIS__V10*/ meltfptr[8]) == ((/*!DISCR_ROUTINE*/ meltfrout->tabval[3])));; /*^compute*/ /*_#_IF___L6*/ meltfnum[5] = /*_#eqeq__L7*/ meltfnum[6];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:789:/ clear"); /*clear*/ /*_#eqeq__L7*/ meltfnum[6] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L6*/ meltfnum[5] = 0;; } ; MELT_LOCATION("warmelt-debug.melt:789:/ cond"); /*cond*/ if (/*_#_IF___L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:790:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), ( " *rou[%")); } ; /*epilog*/ } ; } else { MELT_LOCATION("warmelt-debug.melt:789:/ cond.else"); /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:792:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), ( " |")); } ; MELT_LOCATION("warmelt-debug.melt:793:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DIS__V10*/ meltfptr[8]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V13*/ meltfptr[12] = slot; }; ; { /*^locexp*/ /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V13*/ meltfptr[12]))); } ; { MELT_LOCATION("warmelt-debug.melt:794:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), ( "[%")); } ; MELT_LOCATION("warmelt-debug.melt:791:/ quasiblock"); /*epilog*/ MELT_LOCATION("warmelt-debug.melt:789:/ clear"); /*clear*/ /*_.NAMED_NAME__V13*/ meltfptr[12] = 0 ; } ; } ; { MELT_LOCATION("warmelt-debug.melt:795:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), melt_routine_descrstr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))); } ; MELT_CHECK_SIGNAL(); ; /*_#ltI__L8*/ meltfnum[6] = ((/*_#DEPTH__L1*/ meltfnum[0]) < (2));; MELT_LOCATION("warmelt-debug.melt:796:/ cond"); /*cond*/ if (/*_#ltI__L8*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-debug.melt:798:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V16*/ meltfptr[15] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_6*/ meltfrout->tabval[6])), (3)); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V16*/ meltfptr[15])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V16*/ meltfptr[15]))); ((meltclosure_ptr_t)/*_.LAMBDA___V16*/ meltfptr[15])->tabval[0] = (melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V16*/ meltfptr[15])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V16*/ meltfptr[15]))); ((meltclosure_ptr_t)/*_.LAMBDA___V16*/ meltfptr[15])->tabval[1] = (melt_ptr_t)(/*_.BOXDEPTHP1__V12*/ meltfptr[11]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V16*/ meltfptr[15])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V16*/ meltfptr[15]))); ((meltclosure_ptr_t)/*_.LAMBDA___V16*/ meltfptr[15])->tabval[2] = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]); ; /*_.LAMBDA___V15*/ meltfptr[14] = /*_.LAMBDA___V16*/ meltfptr[15];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:797:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V15*/ meltfptr[14]; /*_.ROUTINE_EVERY__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!ROUTINE_EVERY*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V14*/ meltfptr[12] = /*_.ROUTINE_EVERY__V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:796:/ clear"); /*clear*/ /*_.LAMBDA___V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.ROUTINE_EVERY__V17*/ meltfptr[16] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V14*/ meltfptr[12] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-debug.melt:803:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), ( "%]")); } ; MELT_LOCATION("warmelt-debug.melt:785:/ clear"); /*clear*/ /*_.DIS__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.SBUF__V11*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L4*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.BOXDEPTHP1__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_#gtI__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_#ltI__L8*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V14*/ meltfptr[12] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:782:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBGOUT_ROUTINE_METHOD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_20_WARMELTmiDEBUG_DBGOUT_ROUTINE_METHOD_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_20_WARMELTmiDEBUG_DBGOUT_ROUTINE_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_21_WARMELTmiDEBUG_LAMBDA_cl1(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_21_WARMELTmiDEBUG_LAMBDA_cl1_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1501 /* start of frame for routine meltrout_21_WARMELTmiDEBUG_LAMBDA_cl1 fromline 1715 */ /** start of frame for meltrout_21_WARMELTmiDEBUG_LAMBDA_cl1 of CLASS_PROCROUTINEOBJ from 1518**/ /*curframdeclclassy*/ class MeltFrame_meltrout_21_WARMELTmiDEBUG_LAMBDA_cl1// fromline 1531 : public Melt_CallFrameWithValues<3> { public: /* fromline 1535*/ long mcfr_varnum[3]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_21_WARMELTmiDEBUG_LAMBDA_cl1(meltclosure_ptr_t clos) //the closure constructor fromline 1593 : Melt_CallFrameWithValues<3> ( #if ENABLE_CHECKING /*fromline 1597*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1601*/ sizeof(MeltFrame_meltrout_21_WARMELTmiDEBUG_LAMBDA_cl1), clos) {}; MeltFrame_meltrout_21_WARMELTmiDEBUG_LAMBDA_cl1() //the constructor fromline 1605 : Melt_CallFrameWithValues<3> ( #if ENABLE_CHECKING /*fromline 1609*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1613*/ sizeof(MeltFrame_meltrout_21_WARMELTmiDEBUG_LAMBDA_cl1)) {}; #if ENABLE_CHECKING /*fromline 1617*/ MeltFrame_meltrout_21_WARMELTmiDEBUG_LAMBDA_cl1(const char*fil, int lin) //the constructor fromline 1619 : Melt_CallFrameWithValues<3> (fil,lin, sizeof(MeltFrame_meltrout_21_WARMELTmiDEBUG_LAMBDA_cl1)) {}; MeltFrame_meltrout_21_WARMELTmiDEBUG_LAMBDA_cl1(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1624 : Melt_CallFrameWithValues<3> (fil,lin, sizeof(MeltFrame_meltrout_21_WARMELTmiDEBUG_LAMBDA_cl1), clos) {}; #endif /* ENABLE_CHECKING fromline 1629*/ }; // end class MeltFrame_meltrout_21_WARMELTmiDEBUG_LAMBDA_cl1 /** end of frame for meltrout_21_WARMELTmiDEBUG_LAMBDA_cl1 fromline 1660**/ /* end of frame for routine meltrout_21_WARMELTmiDEBUG_LAMBDA_cl1 fromline 1719 */ /* classy proc frame meltrout_21_WARMELTmiDEBUG_LAMBDA_cl1 */ MeltFrame_meltrout_21_WARMELTmiDEBUG_LAMBDA_cl1 meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_21_WARMELTmiDEBUG_LAMBDA_cl1 fromline 1748*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1752*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1756*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("LAMBDA_cl1", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:798:/ getarg"); /*_.COMP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#IX__L1*/ meltfnum[0] = meltxargtab_[0].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { /*_#GET_INT__L2*/ meltfnum[1] = (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ meltfclos->tabval[1]))));; { MELT_LOCATION("warmelt-debug.melt:799:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)((/*~SBUF*/ meltfclos->tabval[0])), (/*_#GET_INT__L2*/ meltfnum[1]), 64); } ; /*_#GET_INT__L3*/ meltfnum[2] = (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ meltfclos->tabval[1]))));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:800:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~DBGI*/ meltfclos->tabval[2]); /*^apply.arg*/ argtab[1].meltbp_long = /*_#GET_INT__L3*/ meltfnum[2]; /*_.DBG_OUT__V3*/ meltfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.COMP__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:798:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.DBG_OUT__V3*/ meltfptr[2];; { MELT_LOCATION("warmelt-debug.melt:798:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_#GET_INT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_#GET_INT__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.DBG_OUT__V3*/ meltfptr[2] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl1", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_21_WARMELTmiDEBUG_LAMBDA_cl1_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_21_WARMELTmiDEBUG_LAMBDA_cl1*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_22_WARMELTmiDEBUG_DBGOUT_HOOK_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_22_WARMELTmiDEBUG_DBGOUT_HOOK_METHOD_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1501 /* start of frame for routine meltrout_22_WARMELTmiDEBUG_DBGOUT_HOOK_METHOD fromline 1715 */ /** start of frame for meltrout_22_WARMELTmiDEBUG_DBGOUT_HOOK_METHOD of CLASS_PROCROUTINEOBJ from 1518**/ /*curframdeclclassy*/ class MeltFrame_meltrout_22_WARMELTmiDEBUG_DBGOUT_HOOK_METHOD// fromline 1531 : public Melt_CallFrameWithValues<23> { public: /* fromline 1535*/ long mcfr_varnum[9]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_22_WARMELTmiDEBUG_DBGOUT_HOOK_METHOD(meltclosure_ptr_t clos) //the closure constructor fromline 1593 : Melt_CallFrameWithValues<23> ( #if ENABLE_CHECKING /*fromline 1597*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1601*/ sizeof(MeltFrame_meltrout_22_WARMELTmiDEBUG_DBGOUT_HOOK_METHOD), clos) {}; MeltFrame_meltrout_22_WARMELTmiDEBUG_DBGOUT_HOOK_METHOD() //the constructor fromline 1605 : Melt_CallFrameWithValues<23> ( #if ENABLE_CHECKING /*fromline 1609*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1613*/ sizeof(MeltFrame_meltrout_22_WARMELTmiDEBUG_DBGOUT_HOOK_METHOD)) {}; #if ENABLE_CHECKING /*fromline 1617*/ MeltFrame_meltrout_22_WARMELTmiDEBUG_DBGOUT_HOOK_METHOD(const char*fil, int lin) //the constructor fromline 1619 : Melt_CallFrameWithValues<23> (fil,lin, sizeof(MeltFrame_meltrout_22_WARMELTmiDEBUG_DBGOUT_HOOK_METHOD)) {}; MeltFrame_meltrout_22_WARMELTmiDEBUG_DBGOUT_HOOK_METHOD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1624 : Melt_CallFrameWithValues<23> (fil,lin, sizeof(MeltFrame_meltrout_22_WARMELTmiDEBUG_DBGOUT_HOOK_METHOD), clos) {}; #endif /* ENABLE_CHECKING fromline 1629*/ }; // end class MeltFrame_meltrout_22_WARMELTmiDEBUG_DBGOUT_HOOK_METHOD /** end of frame for meltrout_22_WARMELTmiDEBUG_DBGOUT_HOOK_METHOD fromline 1660**/ /* end of frame for routine meltrout_22_WARMELTmiDEBUG_DBGOUT_HOOK_METHOD fromline 1719 */ /* classy proc frame meltrout_22_WARMELTmiDEBUG_DBGOUT_HOOK_METHOD */ MeltFrame_meltrout_22_WARMELTmiDEBUG_DBGOUT_HOOK_METHOD meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_22_WARMELTmiDEBUG_DBGOUT_HOOK_METHOD fromline 1748*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1752*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1756*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBGOUT_HOOK_METHOD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:810:/ getarg"); /*_.SELF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:811:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-debug.melt:811:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:811:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check dbgi"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 811; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:811:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:811:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:812:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_HOOK__L3*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])) == MELTOBMAG_HOOK);; MELT_LOCATION("warmelt-debug.melt:812:/ cond"); /*cond*/ if (/*_#IS_HOOK__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:812:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check self"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 812; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:812:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:812:/ clear"); /*clear*/ /*_#IS_HOOK__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-debug.melt:813:/ quasiblock"); /*_.DIS__V10*/ meltfptr[8] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-debug.melt:814:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 0, "DBGI_OUT"); /*_.SBUF__V11*/ meltfptr[4] = slot; }; ; /*_#plI__L4*/ meltfnum[1] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));; /*^compute*/ /*_.BOXDEPTHP1__V12*/ meltfptr[11] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[2])), (/*_#plI__L4*/ meltfnum[1])));; { MELT_LOCATION("warmelt-debug.melt:817:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), ( " *hook[%")); } ; MELT_LOCATION("warmelt-debug.melt:818:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DIS__V10*/ meltfptr[8]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V13*/ meltfptr[12] = slot; }; ; { /*^locexp*/ /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V13*/ meltfptr[12]))); } ; /*_.HOOK_NAME__V14*/ meltfptr[13] = meltgc_hook_name_string((melt_ptr_t)/*_.SELF__V2*/ meltfptr[1]);; /*^compute*/ /*_#HOOK_SIZE__L5*/ meltfnum[4] = melt_hook_size((melt_ptr_t) /*_.SELF__V2*/ meltfptr[1]);; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:819:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "|"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.HOOK_NAME__V14*/ meltfptr[13]; /*^apply.arg*/ argtab[2].meltbp_cstring = "!"; /*^apply.arg*/ argtab[3].meltbp_long = /*_#HOOK_SIZE__L5*/ meltfnum[4]; /*_.ADD2OUT__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*_#ltI__L6*/ meltfnum[5] = ((/*_#DEPTH__L1*/ meltfnum[0]) < (3));; MELT_LOCATION("warmelt-debug.melt:820:/ cond"); /*cond*/ if (/*_#ltI__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#GET_INT__L7*/ meltfnum[6] = (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V12*/ meltfptr[11])));; { MELT_LOCATION("warmelt-debug.melt:821:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), (/*_#GET_INT__L7*/ meltfnum[6]), 0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:822:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "hookdata: "; /*_.ADD2OUT__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_.HOOK_DATA__V18*/ meltfptr[17] = melt_hook_data((melt_ptr_t)/*_.SELF__V2*/ meltfptr[1]);; /*^compute*/ /*_#GET_INT__L8*/ meltfnum[7] = (melt_get_int((melt_ptr_t)(/*_.BOXDEPTHP1__V12*/ meltfptr[11])));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:823:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[1].meltbp_long = /*_#GET_INT__L8*/ meltfnum[7]; /*_.DBG_OUT__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.HOOK_DATA__V18*/ meltfptr[17]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-debug.melt:825:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V21*/ meltfptr[20] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_8*/ meltfrout->tabval[8])), (3)); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ meltfptr[20])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ meltfptr[20]))); ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ meltfptr[20])->tabval[0] = (melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ meltfptr[20])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ meltfptr[20]))); ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ meltfptr[20])->tabval[1] = (melt_ptr_t)(/*_.BOXDEPTHP1__V12*/ meltfptr[11]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ meltfptr[20])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ meltfptr[20]))); ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ meltfptr[20])->tabval[2] = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]); ; /*_.LAMBDA___V20*/ meltfptr[19] = /*_.LAMBDA___V21*/ meltfptr[20];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:824:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V20*/ meltfptr[19]; /*_.HOOK_EVERY__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!HOOK_EVERY*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-debug.melt:820:/ quasiblock"); /*_.PROGN___V23*/ meltfptr[22] = /*_.HOOK_EVERY__V22*/ meltfptr[21];; /*^compute*/ /*_._IF___V16*/ meltfptr[15] = /*_.PROGN___V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:820:/ clear"); /*clear*/ /*_#GET_INT__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.ADD2OUT__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_DATA__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_#GET_INT__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.DBG_OUT__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.LAMBDA___V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_EVERY__V22*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V23*/ meltfptr[22] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V16*/ meltfptr[15] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-debug.melt:831:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), ( " %]")); } ; MELT_CHECK_SIGNAL(); ; /*_#ltI__L9*/ meltfnum[6] = ((/*_#DEPTH__L1*/ meltfnum[0]) < (3));; MELT_LOCATION("warmelt-debug.melt:832:/ cond"); /*cond*/ if (/*_#ltI__L9*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:833:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), (/*_#DEPTH__L1*/ meltfnum[0]), 0); } ; /*epilog*/ } ; } else { MELT_LOCATION("warmelt-debug.melt:832:/ cond.else"); /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:834:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), ( " ")); } ; /*epilog*/ } ; } ; MELT_LOCATION("warmelt-debug.melt:813:/ clear"); /*clear*/ /*_.DIS__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.SBUF__V11*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L4*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.BOXDEPTHP1__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_NAME__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_#HOOK_SIZE__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.ADD2OUT__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_#ltI__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_#ltI__L9*/ meltfnum[6] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:810:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBGOUT_HOOK_METHOD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_22_WARMELTmiDEBUG_DBGOUT_HOOK_METHOD_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_22_WARMELTmiDEBUG_DBGOUT_HOOK_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_23_WARMELTmiDEBUG_LAMBDA_cl2(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_23_WARMELTmiDEBUG_LAMBDA_cl2_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1501 /* start of frame for routine meltrout_23_WARMELTmiDEBUG_LAMBDA_cl2 fromline 1715 */ /** start of frame for meltrout_23_WARMELTmiDEBUG_LAMBDA_cl2 of CLASS_PROCROUTINEOBJ from 1518**/ /*curframdeclclassy*/ class MeltFrame_meltrout_23_WARMELTmiDEBUG_LAMBDA_cl2// fromline 1531 : public Melt_CallFrameWithValues<4> { public: /* fromline 1535*/ long mcfr_varnum[3]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_23_WARMELTmiDEBUG_LAMBDA_cl2(meltclosure_ptr_t clos) //the closure constructor fromline 1593 : Melt_CallFrameWithValues<4> ( #if ENABLE_CHECKING /*fromline 1597*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1601*/ sizeof(MeltFrame_meltrout_23_WARMELTmiDEBUG_LAMBDA_cl2), clos) {}; MeltFrame_meltrout_23_WARMELTmiDEBUG_LAMBDA_cl2() //the constructor fromline 1605 : Melt_CallFrameWithValues<4> ( #if ENABLE_CHECKING /*fromline 1609*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1613*/ sizeof(MeltFrame_meltrout_23_WARMELTmiDEBUG_LAMBDA_cl2)) {}; #if ENABLE_CHECKING /*fromline 1617*/ MeltFrame_meltrout_23_WARMELTmiDEBUG_LAMBDA_cl2(const char*fil, int lin) //the constructor fromline 1619 : Melt_CallFrameWithValues<4> (fil,lin, sizeof(MeltFrame_meltrout_23_WARMELTmiDEBUG_LAMBDA_cl2)) {}; MeltFrame_meltrout_23_WARMELTmiDEBUG_LAMBDA_cl2(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1624 : Melt_CallFrameWithValues<4> (fil,lin, sizeof(MeltFrame_meltrout_23_WARMELTmiDEBUG_LAMBDA_cl2), clos) {}; #endif /* ENABLE_CHECKING fromline 1629*/ }; // end class MeltFrame_meltrout_23_WARMELTmiDEBUG_LAMBDA_cl2 /** end of frame for meltrout_23_WARMELTmiDEBUG_LAMBDA_cl2 fromline 1660**/ /* end of frame for routine meltrout_23_WARMELTmiDEBUG_LAMBDA_cl2 fromline 1719 */ /* classy proc frame meltrout_23_WARMELTmiDEBUG_LAMBDA_cl2 */ MeltFrame_meltrout_23_WARMELTmiDEBUG_LAMBDA_cl2 meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_23_WARMELTmiDEBUG_LAMBDA_cl2 fromline 1748*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1752*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1756*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("LAMBDA_cl2", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:825:/ getarg"); /*_.COMP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#IX__L1*/ meltfnum[0] = meltxargtab_[0].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { /*_#GET_INT__L2*/ meltfnum[1] = (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ meltfclos->tabval[1]))));; { MELT_LOCATION("warmelt-debug.melt:826:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)((/*~SBUF*/ meltfclos->tabval[0])), (/*_#GET_INT__L2*/ meltfnum[1]), 0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:827:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "hookval#"; /*^apply.arg*/ argtab[1].meltbp_long = /*_#IX__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].meltbp_cstring = ": "; /*_.ADD2OUT__V3*/ meltfptr[2] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[0])), (melt_ptr_t)((/*~SBUF*/ meltfclos->tabval[0])), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_#GET_INT__L3*/ meltfnum[2] = (melt_get_int((melt_ptr_t)((/*~BOXDEPTHP1*/ meltfclos->tabval[1]))));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:828:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~DBGI*/ meltfclos->tabval[2]); /*^apply.arg*/ argtab[1].meltbp_long = /*_#GET_INT__L3*/ meltfnum[2]; /*_.DBG_OUT__V4*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.COMP__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:825:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.DBG_OUT__V4*/ meltfptr[3];; { MELT_LOCATION("warmelt-debug.melt:825:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_#GET_INT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.ADD2OUT__V3*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_#GET_INT__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.DBG_OUT__V4*/ meltfptr[3] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl2", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_23_WARMELTmiDEBUG_LAMBDA_cl2_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_23_WARMELTmiDEBUG_LAMBDA_cl2*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_24_WARMELTmiDEBUG_DBGOUT_CLOSURE_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_24_WARMELTmiDEBUG_DBGOUT_CLOSURE_METHOD_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1501 /* start of frame for routine meltrout_24_WARMELTmiDEBUG_DBGOUT_CLOSURE_METHOD fromline 1715 */ /** start of frame for meltrout_24_WARMELTmiDEBUG_DBGOUT_CLOSURE_METHOD of CLASS_PROCROUTINEOBJ from 1518**/ /*curframdeclclassy*/ class MeltFrame_meltrout_24_WARMELTmiDEBUG_DBGOUT_CLOSURE_METHOD// fromline 1531 : public Melt_CallFrameWithValues<25> { public: /* fromline 1535*/ long mcfr_varnum[25]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_24_WARMELTmiDEBUG_DBGOUT_CLOSURE_METHOD(meltclosure_ptr_t clos) //the closure constructor fromline 1593 : Melt_CallFrameWithValues<25> ( #if ENABLE_CHECKING /*fromline 1597*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1601*/ sizeof(MeltFrame_meltrout_24_WARMELTmiDEBUG_DBGOUT_CLOSURE_METHOD), clos) {}; MeltFrame_meltrout_24_WARMELTmiDEBUG_DBGOUT_CLOSURE_METHOD() //the constructor fromline 1605 : Melt_CallFrameWithValues<25> ( #if ENABLE_CHECKING /*fromline 1609*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1613*/ sizeof(MeltFrame_meltrout_24_WARMELTmiDEBUG_DBGOUT_CLOSURE_METHOD)) {}; #if ENABLE_CHECKING /*fromline 1617*/ MeltFrame_meltrout_24_WARMELTmiDEBUG_DBGOUT_CLOSURE_METHOD(const char*fil, int lin) //the constructor fromline 1619 : Melt_CallFrameWithValues<25> (fil,lin, sizeof(MeltFrame_meltrout_24_WARMELTmiDEBUG_DBGOUT_CLOSURE_METHOD)) {}; MeltFrame_meltrout_24_WARMELTmiDEBUG_DBGOUT_CLOSURE_METHOD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1624 : Melt_CallFrameWithValues<25> (fil,lin, sizeof(MeltFrame_meltrout_24_WARMELTmiDEBUG_DBGOUT_CLOSURE_METHOD), clos) {}; #endif /* ENABLE_CHECKING fromline 1629*/ }; // end class MeltFrame_meltrout_24_WARMELTmiDEBUG_DBGOUT_CLOSURE_METHOD /** end of frame for meltrout_24_WARMELTmiDEBUG_DBGOUT_CLOSURE_METHOD fromline 1660**/ /* end of frame for routine meltrout_24_WARMELTmiDEBUG_DBGOUT_CLOSURE_METHOD fromline 1719 */ /* classy proc frame meltrout_24_WARMELTmiDEBUG_DBGOUT_CLOSURE_METHOD */ MeltFrame_meltrout_24_WARMELTmiDEBUG_DBGOUT_CLOSURE_METHOD meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_24_WARMELTmiDEBUG_DBGOUT_CLOSURE_METHOD fromline 1748*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1752*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1756*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBGOUT_CLOSURE_METHOD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:843:/ getarg"); /*_.SELF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:844:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-debug.melt:844:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:844:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check dbgi"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 844; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:844:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:844:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:845:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_CLOSURE__L3*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-debug.melt:845:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:845:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check self"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 845; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:845:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:845:/ clear"); /*clear*/ /*_#IS_CLOSURE__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-debug.melt:846:/ quasiblock"); /*_.DIS__V10*/ meltfptr[8] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-debug.melt:847:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 2, "DBGI_MAXDEPTH"); /*_.DBGI_MAXDEPTH__V11*/ meltfptr[4] = slot; }; ; /*_#OLDMAXDEPTH__L4*/ meltfnum[1] = (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V11*/ meltfptr[4])));; MELT_LOCATION("warmelt-debug.melt:848:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 0, "DBGI_OUT"); /*_.SBUF__V12*/ meltfptr[11] = slot; }; ; MELT_LOCATION("warmelt-debug.melt:849:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 2, "DBGI_MAXDEPTH"); /*_.DBGI_MAXDEPTH__V13*/ meltfptr[12] = slot; }; ; } else /*^cond.else*/ { /*_.DBGI_MAXDEPTH__V13*/ meltfptr[12] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_#MAXDEPTH__L5*/ meltfnum[4] = (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V13*/ meltfptr[12])));; MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#gtI__L6*/ meltfnum[5] = ((/*_#DEPTH__L1*/ meltfnum[0]) > (0));; MELT_LOCATION("warmelt-debug.melt:851:/ cond"); /*cond*/ if (/*_#gtI__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#eqeq__L8*/ meltfnum[7] = ((/*_.DIS__V10*/ meltfptr[8]) == ((/*!DISCR_CLOSURE*/ meltfrout->tabval[2])));; /*^compute*/ /*_#_IF___L7*/ meltfnum[6] = /*_#eqeq__L8*/ meltfnum[7];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:851:/ clear"); /*clear*/ /*_#eqeq__L8*/ meltfnum[7] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L7*/ meltfnum[6] = 0;; } ; MELT_LOCATION("warmelt-debug.melt:851:/ cond"); /*cond*/ if (/*_#_IF___L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:852:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), ( " *clo(<")); } ; /*epilog*/ } ; } else { MELT_LOCATION("warmelt-debug.melt:851:/ cond.else"); /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:854:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), ( " |")); } ; MELT_LOCATION("warmelt-debug.melt:855:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DIS__V10*/ meltfptr[8]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V14*/ meltfptr[13] = slot; }; ; { /*^locexp*/ /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V14*/ meltfptr[13]))); } ; { MELT_LOCATION("warmelt-debug.melt:856:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), ( "*clo(<")); } ; MELT_LOCATION("warmelt-debug.melt:853:/ quasiblock"); /*epilog*/ MELT_LOCATION("warmelt-debug.melt:851:/ clear"); /*clear*/ /*_.NAMED_NAME__V14*/ meltfptr[13] = 0 ; } ; } ; MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*_#ltI__L9*/ meltfnum[7] = ((/*_#DEPTH__L1*/ meltfnum[0]) < (2));; MELT_LOCATION("warmelt-debug.melt:857:/ cond"); /*cond*/ if (/*_#ltI__L9*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#ltI__L11*/ meltfnum[10] = ((/*_#DEPTH__L1*/ meltfnum[0]) < (/*_#MAXDEPTH__L5*/ meltfnum[4]));; MELT_LOCATION("warmelt-debug.melt:857:/ cond"); /*cond*/ if (/*_#ltI__L11*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#IS_A__L13*/ meltfnum[12] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_OUTPUT_INFORMATION*/ meltfrout->tabval[3])));; /*^compute*/ /*_#_IF___L12*/ meltfnum[11] = /*_#IS_A__L13*/ meltfnum[12];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:857:/ clear"); /*clear*/ /*_#IS_A__L13*/ meltfnum[12] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L12*/ meltfnum[11] = 0;; } ; /*^compute*/ /*_#_IF___L10*/ meltfnum[9] = /*_#_IF___L12*/ meltfnum[11];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:857:/ clear"); /*clear*/ /*_#ltI__L11*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L12*/ meltfnum[11] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L10*/ meltfnum[9] = 0;; } ; MELT_LOCATION("warmelt-debug.melt:857:/ cond"); /*cond*/ if (/*_#_IF___L10*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-debug.melt:860:/ quasiblock"); /*_#IX__L14*/ meltfnum[12] = 0;; MELT_LOCATION("warmelt-debug.melt:861:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 2, "DBGI_MAXDEPTH"); /*_.DBGI_MAXDEPTH__V17*/ meltfptr[16] = slot; }; ; { /*^locexp*/ melt_put_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V17*/ meltfptr[16]), (3)); } ; /*_.CLOSURE_ROUTINE__V18*/ meltfptr[17] = (melt_closure_routine((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:862:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0]; /*_.DBG_OUT__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.CLOSURE_ROUTINE__V18*/ meltfptr[17]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-debug.melt:863:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 2, "DBGI_MAXDEPTH"); /*_.DBGI_MAXDEPTH__V20*/ meltfptr[19] = slot; }; ; { /*^locexp*/ melt_put_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V20*/ meltfptr[19]), (/*_#OLDMAXDEPTH__L4*/ meltfnum[1])); } ; { MELT_LOCATION("warmelt-debug.melt:864:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), ( "/")); } ; /*_#CLOSURE_SIZE__L15*/ meltfnum[10] = (melt_closure_size((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));; { MELT_LOCATION("warmelt-debug.melt:865:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (/*_#CLOSURE_SIZE__L15*/ meltfnum[10])); } ; MELT_LOCATION("warmelt-debug.melt:866:/ loop"); /*loop*/ { meltlabloop_OUTLOOP_1:;/*^loopbody*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*_#CLOSURE_SIZE__L16*/ meltfnum[11] = (melt_closure_size((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));; /*^compute*/ /*_#gteqI__L17*/ meltfnum[16] = ((/*_#IX__L14*/ meltfnum[12]) >= (/*_#CLOSURE_SIZE__L16*/ meltfnum[11]));; MELT_LOCATION("warmelt-debug.melt:867:/ cond"); /*cond*/ if (/*_#gteqI__L17*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-debug.melt:868:/ quasiblock"); /*^compute*/ /*_.OUTLOOP__V22*/ meltfptr[21] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ { goto meltlabexit_OUTLOOP_1; } ; /*epilog*/ } ; } /*noelse*/ ; { MELT_LOCATION("warmelt-debug.melt:869:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (/*_#DEPTH__L1*/ meltfnum[0]), 64); } ; MELT_LOCATION("warmelt-debug.melt:870:/ quasiblock"); /*_#CURULEN__L18*/ meltfnum[17] = melt_strbuf_usedlength((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]));; /*^compute*/ /*_.CLOSURE_NTH__V23*/ meltfptr[22] = (melt_closure_nth((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (int)(/*_#IX__L14*/ meltfnum[12])));; /*^compute*/ /*_#plI__L19*/ meltfnum[18] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (2));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:871:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[1].meltbp_long = /*_#plI__L19*/ meltfnum[18]; /*_.DBG_OUT__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.CLOSURE_NTH__V23*/ meltfptr[22]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*_#STRBUF_USEDLENGTH__L20*/ meltfnum[19] = melt_strbuf_usedlength((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]));; /*^compute*/ /*_#miI__L21*/ meltfnum[20] = ((/*_#STRBUF_USEDLENGTH__L20*/ meltfnum[19]) - (/*_#CURULEN__L18*/ meltfnum[17]));; /*^compute*/ /*_#gtI__L22*/ meltfnum[21] = ((/*_#miI__L21*/ meltfnum[20]) > (100));; MELT_LOCATION("warmelt-debug.melt:872:/ cond"); /*cond*/ if (/*_#gtI__L22*/ meltfnum[21]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#plI__L23*/ meltfnum[22] = ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));; { MELT_LOCATION("warmelt-debug.melt:873:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (/*_#plI__L23*/ meltfnum[22]), 0); } ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:872:/ clear"); /*clear*/ /*_#plI__L23*/ meltfnum[22] = 0 ; } ; } /*noelse*/ ; MELT_LOCATION("warmelt-debug.melt:870:/ clear"); /*clear*/ /*_#CURULEN__L18*/ meltfnum[17] = 0 ; /*^clear*/ /*clear*/ /*_.CLOSURE_NTH__V23*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L19*/ meltfnum[18] = 0 ; /*^clear*/ /*clear*/ /*_.DBG_OUT__V24*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_#STRBUF_USEDLENGTH__L20*/ meltfnum[19] = 0 ; /*^clear*/ /*clear*/ /*_#miI__L21*/ meltfnum[20] = 0 ; /*^clear*/ /*clear*/ /*_#gtI__L22*/ meltfnum[21] = 0 ; /*_#plI__L24*/ meltfnum[22] = ((/*_#IX__L14*/ meltfnum[12]) + (1));; MELT_LOCATION("warmelt-debug.melt:874:/ compute"); /*_#IX__L14*/ meltfnum[12] = /*_#SETQ___L25*/ meltfnum[17] = /*_#plI__L24*/ meltfnum[22];; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:866:/ clear"); /*clear*/ /*_#CLOSURE_SIZE__L16*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_#gteqI__L17*/ meltfnum[16] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L24*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_#SETQ___L25*/ meltfnum[17] = 0 ; } ; ; goto meltlabloop_OUTLOOP_1; meltlabexit_OUTLOOP_1:;/*^loopepilog*/ /*loopepilog*/ /*_.FOREVER___V21*/ meltfptr[20] = /*_.OUTLOOP__V22*/ meltfptr[21];; } ; /*^compute*/ /*_.LET___V16*/ meltfptr[15] = /*_.FOREVER___V21*/ meltfptr[20];; MELT_LOCATION("warmelt-debug.melt:860:/ clear"); /*clear*/ /*_#IX__L14*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_.DBGI_MAXDEPTH__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.CLOSURE_ROUTINE__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.DBG_OUT__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.DBGI_MAXDEPTH__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_#CLOSURE_SIZE__L15*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.FOREVER___V21*/ meltfptr[20] = 0 ; /*_._IFELSE___V15*/ meltfptr[13] = /*_.LET___V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:857:/ clear"); /*clear*/ /*_.LET___V16*/ meltfptr[15] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-debug.melt:876:/ quasiblock"); /*_.CROUT__V25*/ meltfptr[22] = (melt_closure_routine((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));; { MELT_LOCATION("warmelt-debug.melt:878:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), melt_routine_descrstr((melt_ptr_t)(/*_.CROUT__V25*/ meltfptr[22]))); } ; { MELT_LOCATION("warmelt-debug.melt:879:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), ( "...")); } ; /*clear*/ /*_._IFELSE___V15*/ meltfptr[13] = 0 ; MELT_LOCATION("warmelt-debug.melt:876:/ clear"); /*clear*/ /*_.CROUT__V25*/ meltfptr[22] = 0 ; /*epilog*/ } ; } ; { MELT_LOCATION("warmelt-debug.melt:881:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), ( " >)")); } ; { MELT_LOCATION("warmelt-debug.melt:882:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (/*_#DEPTH__L1*/ meltfnum[0]), 64); } ; MELT_LOCATION("warmelt-debug.melt:846:/ clear"); /*clear*/ /*_.DIS__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.DBGI_MAXDEPTH__V11*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_#OLDMAXDEPTH__L4*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.SBUF__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.DBGI_MAXDEPTH__V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_#MAXDEPTH__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_#gtI__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_#ltI__L9*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L10*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V15*/ meltfptr[13] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:843:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBGOUT_CLOSURE_METHOD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_24_WARMELTmiDEBUG_DBGOUT_CLOSURE_METHOD_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_24_WARMELTmiDEBUG_DBGOUT_CLOSURE_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_25_WARMELTmiDEBUG_DBGOUT_LIST_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_25_WARMELTmiDEBUG_DBGOUT_LIST_METHOD_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1501 /* start of frame for routine meltrout_25_WARMELTmiDEBUG_DBGOUT_LIST_METHOD fromline 1715 */ /** start of frame for meltrout_25_WARMELTmiDEBUG_DBGOUT_LIST_METHOD of CLASS_PROCROUTINEOBJ from 1518**/ /*curframdeclclassy*/ class MeltFrame_meltrout_25_WARMELTmiDEBUG_DBGOUT_LIST_METHOD// fromline 1531 : public Melt_CallFrameWithValues<25> { public: /* fromline 1535*/ long mcfr_varnum[27]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_25_WARMELTmiDEBUG_DBGOUT_LIST_METHOD(meltclosure_ptr_t clos) //the closure constructor fromline 1593 : Melt_CallFrameWithValues<25> ( #if ENABLE_CHECKING /*fromline 1597*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1601*/ sizeof(MeltFrame_meltrout_25_WARMELTmiDEBUG_DBGOUT_LIST_METHOD), clos) {}; MeltFrame_meltrout_25_WARMELTmiDEBUG_DBGOUT_LIST_METHOD() //the constructor fromline 1605 : Melt_CallFrameWithValues<25> ( #if ENABLE_CHECKING /*fromline 1609*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1613*/ sizeof(MeltFrame_meltrout_25_WARMELTmiDEBUG_DBGOUT_LIST_METHOD)) {}; #if ENABLE_CHECKING /*fromline 1617*/ MeltFrame_meltrout_25_WARMELTmiDEBUG_DBGOUT_LIST_METHOD(const char*fil, int lin) //the constructor fromline 1619 : Melt_CallFrameWithValues<25> (fil,lin, sizeof(MeltFrame_meltrout_25_WARMELTmiDEBUG_DBGOUT_LIST_METHOD)) {}; MeltFrame_meltrout_25_WARMELTmiDEBUG_DBGOUT_LIST_METHOD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1624 : Melt_CallFrameWithValues<25> (fil,lin, sizeof(MeltFrame_meltrout_25_WARMELTmiDEBUG_DBGOUT_LIST_METHOD), clos) {}; #endif /* ENABLE_CHECKING fromline 1629*/ }; // end class MeltFrame_meltrout_25_WARMELTmiDEBUG_DBGOUT_LIST_METHOD /** end of frame for meltrout_25_WARMELTmiDEBUG_DBGOUT_LIST_METHOD fromline 1660**/ /* end of frame for routine meltrout_25_WARMELTmiDEBUG_DBGOUT_LIST_METHOD fromline 1719 */ /* classy proc frame meltrout_25_WARMELTmiDEBUG_DBGOUT_LIST_METHOD */ MeltFrame_meltrout_25_WARMELTmiDEBUG_DBGOUT_LIST_METHOD meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_25_WARMELTmiDEBUG_DBGOUT_LIST_METHOD fromline 1748*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1752*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1756*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBGOUT_LIST_METHOD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:890:/ getarg"); /*_.SELF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:891:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-debug.melt:891:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:891:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check dbgi"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 891; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:891:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:891:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:892:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_LIST__L3*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])) == MELTOBMAG_LIST);; MELT_LOCATION("warmelt-debug.melt:892:/ cond"); /*cond*/ if (/*_#IS_LIST__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:892:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check self"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 892; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:892:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:892:/ clear"); /*clear*/ /*_#IS_LIST__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-debug.melt:893:/ quasiblock"); /*_.DIS__V10*/ meltfptr[8] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-debug.melt:894:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 2, "DBGI_MAXDEPTH"); /*_.DBGI_MAXDEPTH__V11*/ meltfptr[4] = slot; }; ; } else /*^cond.else*/ { /*_.DBGI_MAXDEPTH__V11*/ meltfptr[4] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_#MAXDEPTH__L4*/ meltfnum[1] = (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V11*/ meltfptr[4])));; MELT_LOCATION("warmelt-debug.melt:895:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 0, "DBGI_OUT"); /*_.SBUF__V12*/ meltfptr[11] = slot; }; ; } else /*^cond.else*/ { /*_.SBUF__V12*/ meltfptr[11] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#gtI__L5*/ meltfnum[4] = ((/*_#DEPTH__L1*/ meltfnum[0]) > (0));; MELT_LOCATION("warmelt-debug.melt:896:/ cond"); /*cond*/ if (/*_#gtI__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#eqeq__L7*/ meltfnum[6] = ((/*_.DIS__V10*/ meltfptr[8]) == ((/*!DISCR_LIST*/ meltfrout->tabval[2])));; /*^compute*/ /*_#_IF___L6*/ meltfnum[5] = /*_#eqeq__L7*/ meltfnum[6];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:896:/ clear"); /*clear*/ /*_#eqeq__L7*/ meltfnum[6] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L6*/ meltfnum[5] = 0;; } ; MELT_LOCATION("warmelt-debug.melt:896:/ cond"); /*cond*/ if (/*_#_IF___L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:897:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), ( " *li")); } ; /*epilog*/ } ; } else { MELT_LOCATION("warmelt-debug.melt:896:/ cond.else"); /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:899:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), ( " *li|")); } ; MELT_LOCATION("warmelt-debug.melt:900:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DIS__V10*/ meltfptr[8]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V13*/ meltfptr[12] = slot; }; ; { /*^locexp*/ /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V13*/ meltfptr[12]))); } ; MELT_LOCATION("warmelt-debug.melt:898:/ quasiblock"); /*epilog*/ MELT_LOCATION("warmelt-debug.melt:896:/ clear"); /*clear*/ /*_.NAMED_NAME__V13*/ meltfptr[12] = 0 ; } ; } ; MELT_LOCATION("warmelt-debug.melt:901:/ quasiblock"); /*_#IX__L8*/ meltfnum[6] = 0;; /*^compute*/ /*_#LISLEN__L9*/ meltfnum[8] = (melt_list_length((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:905:/ cond"); /*cond*/ if (/*_#DEPTH__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), ( "(")); } ; /*clear*/ /*_._IFELSE___V14*/ meltfptr[12] = 0 ; /*epilog*/ } ; } else { MELT_LOCATION("warmelt-debug.melt:905:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:906:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "~"; /*^apply.arg*/ argtab[1].meltbp_long = /*_#LISLEN__L9*/ meltfnum[8]; /*^apply.arg*/ argtab[2].meltbp_cstring = "("; /*_.ADD2OUT__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V14*/ meltfptr[12] = /*_.ADD2OUT__V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:905:/ clear"); /*clear*/ /*_.ADD2OUT__V15*/ meltfptr[14] = 0 ; } ; } ; MELT_CHECK_SIGNAL(); ; /*_#ltI__L10*/ meltfnum[9] = ((/*_#DEPTH__L1*/ meltfnum[0]) < (/*_#MAXDEPTH__L4*/ meltfnum[1]));; MELT_LOCATION("warmelt-debug.melt:908:/ cond"); /*cond*/ if (/*_#ltI__L10*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*citerblock FOREACH_PAIR_COMPONENT_IN_LIST*/ { /* start foreach_pair_component_in_list meltcit1__EACHLIST */ for (/*_.CURPAIR__V17*/ meltfptr[16] = melt_list_first( (melt_ptr_t)/*_.SELF__V2*/ meltfptr[1]); melt_magic_discr((melt_ptr_t) /*_.CURPAIR__V17*/ meltfptr[16]) == MELTOBMAG_PAIR; /*_.CURPAIR__V17*/ meltfptr[16] = melt_pair_tail((melt_ptr_t) /*_.CURPAIR__V17*/ meltfptr[16])) { /*_.CURCOMP__V18*/ meltfptr[17] = melt_pair_head((melt_ptr_t) /*_.CURPAIR__V17*/ meltfptr[16]); MELT_CHECK_SIGNAL(); ; /*_#gtI__L11*/ meltfnum[10] = ((/*_#IX__L8*/ meltfnum[6]) > (300));; MELT_LOCATION("warmelt-debug.melt:912:/ cond"); /*cond*/ if (/*_#gtI__L11*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#miI__L12*/ meltfnum[11] = ((/*_#LISLEN__L9*/ meltfnum[8]) - (/*_#IX__L8*/ meltfnum[6]));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:913:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = " ...."; /*^apply.arg*/ argtab[1].meltbp_long = /*_#miI__L12*/ meltfnum[11]; /*^apply.arg*/ argtab[2].meltbp_cstring = "..."; /*_.ADD2OUT__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-debug.melt:914:/ compute"); /*_.CURPAIR__V17*/ meltfptr[16] = /*_.SETQ___V21*/ meltfptr[20] = (/*nil*/NULL);; MELT_LOCATION("warmelt-debug.melt:912:/ quasiblock"); /*_.PROGN___V22*/ meltfptr[21] = /*_.SETQ___V21*/ meltfptr[20];; /*^compute*/ /*_._IF___V19*/ meltfptr[18] = /*_.PROGN___V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:912:/ clear"); /*clear*/ /*_#miI__L12*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.ADD2OUT__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V22*/ meltfptr[21] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V19*/ meltfptr[18] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#IS_PAIR__L13*/ meltfnum[11] = (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V17*/ meltfptr[16])) == MELTOBMAG_PAIR);; MELT_LOCATION("warmelt-debug.melt:915:/ cond"); /*cond*/ if (/*_#IS_PAIR__L13*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*_#pcIRAW__L14*/ meltfnum[13] = ((/*_#IX__L8*/ meltfnum[6]) % (5));; /*^compute*/ /*_#eqeqI__L15*/ meltfnum[14] = ((/*_#pcIRAW__L14*/ meltfnum[13]) == (0));; MELT_LOCATION("warmelt-debug.melt:916:/ cond"); /*cond*/ if (/*_#eqeqI__L15*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#gtI__L17*/ meltfnum[16] = ((/*_#IX__L8*/ meltfnum[6]) > (0));; /*^compute*/ /*_#_IF___L16*/ meltfnum[15] = /*_#gtI__L17*/ meltfnum[16];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:916:/ clear"); /*clear*/ /*_#gtI__L17*/ meltfnum[16] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L16*/ meltfnum[15] = 0;; } ; MELT_LOCATION("warmelt-debug.melt:916:/ cond"); /*cond*/ if (/*_#_IF___L16*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#plI__L18*/ meltfnum[16] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));; { MELT_LOCATION("warmelt-debug.melt:917:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (/*_#plI__L18*/ meltfnum[16]), 0); } ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:916:/ clear"); /*clear*/ /*_#plI__L18*/ meltfnum[16] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:918:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (/*_#DEPTH__L1*/ meltfnum[0]), 64); } ; /*epilog*/ } ; } ; MELT_LOCATION("warmelt-debug.melt:919:/ quasiblock"); /*_#CURULEN__L19*/ meltfnum[16] = melt_strbuf_usedlength((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]));; /*^compute*/ /*_#plI__L20*/ meltfnum[19] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:921:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[1].meltbp_long = /*_#plI__L20*/ meltfnum[19]; /*_.DBG_OUT__V23*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.CURCOMP__V18*/ meltfptr[17]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_#plI__L21*/ meltfnum[20] = ((/*_#IX__L8*/ meltfnum[6]) + (1));; MELT_LOCATION("warmelt-debug.melt:922:/ compute"); /*_#IX__L8*/ meltfnum[6] = /*_#SETQ___L22*/ meltfnum[21] = /*_#plI__L21*/ meltfnum[20];; MELT_CHECK_SIGNAL(); ; /*_#STRBUF_USEDLENGTH__L23*/ meltfnum[22] = melt_strbuf_usedlength((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]));; /*^compute*/ /*_#miI__L24*/ meltfnum[23] = ((/*_#STRBUF_USEDLENGTH__L23*/ meltfnum[22]) - (/*_#CURULEN__L19*/ meltfnum[16]));; /*^compute*/ /*_#gtI__L25*/ meltfnum[24] = ((/*_#miI__L24*/ meltfnum[23]) > (100));; MELT_LOCATION("warmelt-debug.melt:923:/ cond"); /*cond*/ if (/*_#gtI__L25*/ meltfnum[24]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#plI__L26*/ meltfnum[25] = ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));; { MELT_LOCATION("warmelt-debug.melt:924:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (/*_#plI__L26*/ meltfnum[25]), 0); } ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:923:/ clear"); /*clear*/ /*_#plI__L26*/ meltfnum[25] = 0 ; } ; } /*noelse*/ ; MELT_LOCATION("warmelt-debug.melt:919:/ clear"); /*clear*/ /*_#CURULEN__L19*/ meltfnum[16] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L20*/ meltfnum[19] = 0 ; /*^clear*/ /*clear*/ /*_.DBG_OUT__V23*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L21*/ meltfnum[20] = 0 ; /*^clear*/ /*clear*/ /*_#SETQ___L22*/ meltfnum[21] = 0 ; /*^clear*/ /*clear*/ /*_#STRBUF_USEDLENGTH__L23*/ meltfnum[22] = 0 ; /*^clear*/ /*clear*/ /*_#miI__L24*/ meltfnum[23] = 0 ; /*^clear*/ /*clear*/ /*_#gtI__L25*/ meltfnum[24] = 0 ; MELT_LOCATION("warmelt-debug.melt:915:/ quasiblock"); /*epilog*/ /*^clear*/ /*clear*/ /*_#pcIRAW__L14*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_#eqeqI__L15*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L16*/ meltfnum[15] = 0 ; } ; } /*noelse*/ ; } /* end foreach_pair_component_in_list meltcit1__EACHLIST */ /*_.CURPAIR__V17*/ meltfptr[16] = NULL; /*_.CURCOMP__V18*/ meltfptr[17] = NULL; /*citerepilog*/ MELT_LOCATION("warmelt-debug.melt:909:/ clear"); /*clear*/ /*_.CURPAIR__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.CURCOMP__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_#gtI__L11*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_#IS_PAIR__L13*/ meltfnum[11] = 0 ; } /*endciterblock FOREACH_PAIR_COMPONENT_IN_LIST*/ ; { MELT_LOCATION("warmelt-debug.melt:926:/ locexp"); /*void*/ (void)0; } ; MELT_LOCATION("warmelt-debug.melt:908:/ quasiblock"); /*epilog*/ } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#gtI__L27*/ meltfnum[25] = ((/*_#LISLEN__L9*/ meltfnum[8]) > (0));; MELT_LOCATION("warmelt-debug.melt:927:/ cond"); /*cond*/ if (/*_#gtI__L27*/ meltfnum[25]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:928:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "..."; /*^apply.arg*/ argtab[1].meltbp_long = /*_#LISLEN__L9*/ meltfnum[8]; /*^apply.arg*/ argtab[2].meltbp_cstring = "..."; /*_.ADD2OUT__V25*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V24*/ meltfptr[20] = /*_.ADD2OUT__V25*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:927:/ clear"); /*clear*/ /*_.ADD2OUT__V25*/ meltfptr[21] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:931:/ locexp"); /*void*/ (void)0; } ; MELT_LOCATION("warmelt-debug.melt:930:/ quasiblock"); /*epilog*/ } ; } ; /*_._IFELSE___V16*/ meltfptr[14] = /*_._IFELSE___V24*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:908:/ clear"); /*clear*/ /*_#gtI__L27*/ meltfnum[25] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V24*/ meltfptr[20] = 0 ; } ; } ; { MELT_LOCATION("warmelt-debug.melt:932:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), ( ")")); } ; MELT_LOCATION("warmelt-debug.melt:901:/ clear"); /*clear*/ /*_#IX__L8*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_#LISLEN__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V14*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_#ltI__L10*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V16*/ meltfptr[14] = 0 ; MELT_LOCATION("warmelt-debug.melt:893:/ clear"); /*clear*/ /*_.DIS__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.DBGI_MAXDEPTH__V11*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_#MAXDEPTH__L4*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.SBUF__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_#gtI__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L6*/ meltfnum[5] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:890:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBGOUT_LIST_METHOD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_25_WARMELTmiDEBUG_DBGOUT_LIST_METHOD_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_25_WARMELTmiDEBUG_DBGOUT_LIST_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_26_WARMELTmiDEBUG_DBGOUT_PAIR_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_26_WARMELTmiDEBUG_DBGOUT_PAIR_METHOD_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1501 /* start of frame for routine meltrout_26_WARMELTmiDEBUG_DBGOUT_PAIR_METHOD fromline 1715 */ /** start of frame for meltrout_26_WARMELTmiDEBUG_DBGOUT_PAIR_METHOD of CLASS_PROCROUTINEOBJ from 1518**/ /*curframdeclclassy*/ class MeltFrame_meltrout_26_WARMELTmiDEBUG_DBGOUT_PAIR_METHOD// fromline 1531 : public Melt_CallFrameWithValues<19> { public: /* fromline 1535*/ long mcfr_varnum[12]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_26_WARMELTmiDEBUG_DBGOUT_PAIR_METHOD(meltclosure_ptr_t clos) //the closure constructor fromline 1593 : Melt_CallFrameWithValues<19> ( #if ENABLE_CHECKING /*fromline 1597*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1601*/ sizeof(MeltFrame_meltrout_26_WARMELTmiDEBUG_DBGOUT_PAIR_METHOD), clos) {}; MeltFrame_meltrout_26_WARMELTmiDEBUG_DBGOUT_PAIR_METHOD() //the constructor fromline 1605 : Melt_CallFrameWithValues<19> ( #if ENABLE_CHECKING /*fromline 1609*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1613*/ sizeof(MeltFrame_meltrout_26_WARMELTmiDEBUG_DBGOUT_PAIR_METHOD)) {}; #if ENABLE_CHECKING /*fromline 1617*/ MeltFrame_meltrout_26_WARMELTmiDEBUG_DBGOUT_PAIR_METHOD(const char*fil, int lin) //the constructor fromline 1619 : Melt_CallFrameWithValues<19> (fil,lin, sizeof(MeltFrame_meltrout_26_WARMELTmiDEBUG_DBGOUT_PAIR_METHOD)) {}; MeltFrame_meltrout_26_WARMELTmiDEBUG_DBGOUT_PAIR_METHOD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1624 : Melt_CallFrameWithValues<19> (fil,lin, sizeof(MeltFrame_meltrout_26_WARMELTmiDEBUG_DBGOUT_PAIR_METHOD), clos) {}; #endif /* ENABLE_CHECKING fromline 1629*/ }; // end class MeltFrame_meltrout_26_WARMELTmiDEBUG_DBGOUT_PAIR_METHOD /** end of frame for meltrout_26_WARMELTmiDEBUG_DBGOUT_PAIR_METHOD fromline 1660**/ /* end of frame for routine meltrout_26_WARMELTmiDEBUG_DBGOUT_PAIR_METHOD fromline 1719 */ /* classy proc frame meltrout_26_WARMELTmiDEBUG_DBGOUT_PAIR_METHOD */ MeltFrame_meltrout_26_WARMELTmiDEBUG_DBGOUT_PAIR_METHOD meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_26_WARMELTmiDEBUG_DBGOUT_PAIR_METHOD fromline 1748*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1752*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1756*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBGOUT_PAIR_METHOD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:937:/ getarg"); /*_.SELF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:938:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-debug.melt:938:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:938:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check dbgi"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 938; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:938:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:938:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:939:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_PAIR__L3*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])) == MELTOBMAG_PAIR);; MELT_LOCATION("warmelt-debug.melt:939:/ cond"); /*cond*/ if (/*_#IS_PAIR__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:939:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check self"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 939; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:939:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:939:/ clear"); /*clear*/ /*_#IS_PAIR__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-debug.melt:940:/ quasiblock"); /*_.DIS__V10*/ meltfptr[8] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-debug.melt:941:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 2, "DBGI_MAXDEPTH"); /*_.DBGI_MAXDEPTH__V11*/ meltfptr[4] = slot; }; ; } else /*^cond.else*/ { /*_.DBGI_MAXDEPTH__V11*/ meltfptr[4] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_#MAXDEPTH__L4*/ meltfnum[1] = (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V11*/ meltfptr[4])));; MELT_LOCATION("warmelt-debug.melt:942:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 0, "DBGI_OUT"); /*_.SBUF__V12*/ meltfptr[11] = slot; }; ; } else /*^cond.else*/ { /*_.SBUF__V12*/ meltfptr[11] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#gtI__L5*/ meltfnum[4] = ((/*_#DEPTH__L1*/ meltfnum[0]) > (0));; MELT_LOCATION("warmelt-debug.melt:943:/ cond"); /*cond*/ if (/*_#gtI__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#eqeq__L7*/ meltfnum[6] = ((/*_.DIS__V10*/ meltfptr[8]) == ((/*!DISCR_PAIR*/ meltfrout->tabval[2])));; /*^compute*/ /*_#_IF___L6*/ meltfnum[5] = /*_#eqeq__L7*/ meltfnum[6];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:943:/ clear"); /*clear*/ /*_#eqeq__L7*/ meltfnum[6] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L6*/ meltfnum[5] = 0;; } ; MELT_LOCATION("warmelt-debug.melt:943:/ cond"); /*cond*/ if (/*_#_IF___L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:944:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), ( " *pa(.")); } ; /*epilog*/ } ; } else { MELT_LOCATION("warmelt-debug.melt:943:/ cond.else"); /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:946:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), ( " |")); } ; MELT_LOCATION("warmelt-debug.melt:947:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DIS__V10*/ meltfptr[8]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V13*/ meltfptr[12] = slot; }; ; { /*^locexp*/ /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V13*/ meltfptr[12]))); } ; { MELT_LOCATION("warmelt-debug.melt:948:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), ( "(.")); } ; MELT_LOCATION("warmelt-debug.melt:945:/ quasiblock"); /*epilog*/ MELT_LOCATION("warmelt-debug.melt:943:/ clear"); /*clear*/ /*_.NAMED_NAME__V13*/ meltfptr[12] = 0 ; } ; } ; MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*_#ltI__L8*/ meltfnum[6] = ((/*_#DEPTH__L1*/ meltfnum[0]) < (/*_#MAXDEPTH__L4*/ meltfnum[1]));; MELT_LOCATION("warmelt-debug.melt:950:/ cond"); /*cond*/ if (/*_#ltI__L8*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#IS_A__L10*/ meltfnum[9] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_OUTPUT_INFORMATION*/ meltfrout->tabval[3])));; /*^compute*/ /*_#_IF___L9*/ meltfnum[8] = /*_#IS_A__L10*/ meltfnum[9];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:950:/ clear"); /*clear*/ /*_#IS_A__L10*/ meltfnum[9] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L9*/ meltfnum[8] = 0;; } ; MELT_LOCATION("warmelt-debug.melt:949:/ cond"); /*cond*/ if (/*_#_IF___L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_.PAIR_HEAD__V15*/ meltfptr[14] = (melt_pair_head((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));; /*^compute*/ /*_#plI__L11*/ meltfnum[9] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:952:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[1].meltbp_long = /*_#plI__L11*/ meltfnum[9]; /*_.DBG_OUT__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.PAIR_HEAD__V15*/ meltfptr[14]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-debug.melt:953:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (/*_#DEPTH__L1*/ meltfnum[0]), 64); } ; /*_.PAIR_TAIL__V17*/ meltfptr[16] = (melt_pair_tail((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));; /*^compute*/ /*_#plI__L12*/ meltfnum[11] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:954:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[1].meltbp_long = /*_#plI__L12*/ meltfnum[11]; /*_.DBG_OUT__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.PAIR_TAIL__V17*/ meltfptr[16]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-debug.melt:951:/ quasiblock"); /*_.PROGN___V19*/ meltfptr[18] = /*_.DBG_OUT__V18*/ meltfptr[17];; /*^compute*/ /*_._IF___V14*/ meltfptr[12] = /*_.PROGN___V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:949:/ clear"); /*clear*/ /*_.PAIR_HEAD__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L11*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_.DBG_OUT__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.PAIR_TAIL__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L12*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.DBG_OUT__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V19*/ meltfptr[18] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V14*/ meltfptr[12] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-debug.melt:955:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), ( ".)")); } ; MELT_LOCATION("warmelt-debug.melt:940:/ clear"); /*clear*/ /*_.DIS__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.DBGI_MAXDEPTH__V11*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_#MAXDEPTH__L4*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.SBUF__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_#gtI__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_#ltI__L8*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V14*/ meltfptr[12] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:937:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBGOUT_PAIR_METHOD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_26_WARMELTmiDEBUG_DBGOUT_PAIR_METHOD_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_26_WARMELTmiDEBUG_DBGOUT_PAIR_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_27_WARMELTmiDEBUG_DBGOUT_MAPOBJECT_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_27_WARMELTmiDEBUG_DBGOUT_MAPOBJECT_METHOD_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1501 /* start of frame for routine meltrout_27_WARMELTmiDEBUG_DBGOUT_MAPOBJECT_METHOD fromline 1715 */ /** start of frame for meltrout_27_WARMELTmiDEBUG_DBGOUT_MAPOBJECT_METHOD of CLASS_PROCROUTINEOBJ from 1518**/ /*curframdeclclassy*/ class MeltFrame_meltrout_27_WARMELTmiDEBUG_DBGOUT_MAPOBJECT_METHOD// fromline 1531 : public Melt_CallFrameWithValues<40> { public: /* fromline 1535*/ long mcfr_varnum[26]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_27_WARMELTmiDEBUG_DBGOUT_MAPOBJECT_METHOD(meltclosure_ptr_t clos) //the closure constructor fromline 1593 : Melt_CallFrameWithValues<40> ( #if ENABLE_CHECKING /*fromline 1597*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1601*/ sizeof(MeltFrame_meltrout_27_WARMELTmiDEBUG_DBGOUT_MAPOBJECT_METHOD), clos) {}; MeltFrame_meltrout_27_WARMELTmiDEBUG_DBGOUT_MAPOBJECT_METHOD() //the constructor fromline 1605 : Melt_CallFrameWithValues<40> ( #if ENABLE_CHECKING /*fromline 1609*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1613*/ sizeof(MeltFrame_meltrout_27_WARMELTmiDEBUG_DBGOUT_MAPOBJECT_METHOD)) {}; #if ENABLE_CHECKING /*fromline 1617*/ MeltFrame_meltrout_27_WARMELTmiDEBUG_DBGOUT_MAPOBJECT_METHOD(const char*fil, int lin) //the constructor fromline 1619 : Melt_CallFrameWithValues<40> (fil,lin, sizeof(MeltFrame_meltrout_27_WARMELTmiDEBUG_DBGOUT_MAPOBJECT_METHOD)) {}; MeltFrame_meltrout_27_WARMELTmiDEBUG_DBGOUT_MAPOBJECT_METHOD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1624 : Melt_CallFrameWithValues<40> (fil,lin, sizeof(MeltFrame_meltrout_27_WARMELTmiDEBUG_DBGOUT_MAPOBJECT_METHOD), clos) {}; #endif /* ENABLE_CHECKING fromline 1629*/ }; // end class MeltFrame_meltrout_27_WARMELTmiDEBUG_DBGOUT_MAPOBJECT_METHOD /** end of frame for meltrout_27_WARMELTmiDEBUG_DBGOUT_MAPOBJECT_METHOD fromline 1660**/ /* end of frame for routine meltrout_27_WARMELTmiDEBUG_DBGOUT_MAPOBJECT_METHOD fromline 1719 */ /* classy proc frame meltrout_27_WARMELTmiDEBUG_DBGOUT_MAPOBJECT_METHOD */ MeltFrame_meltrout_27_WARMELTmiDEBUG_DBGOUT_MAPOBJECT_METHOD meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_27_WARMELTmiDEBUG_DBGOUT_MAPOBJECT_METHOD fromline 1748*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1752*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1756*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBGOUT_MAPOBJECT_METHOD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:962:/ getarg"); /*_.SELF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:963:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-debug.melt:963:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:963:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check dbgi"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 963; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:963:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:963:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:964:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_MAPOBJECT__L3*/ meltfnum[1] = /*is_mapobject:*/(melt_magic_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])) == MELTOBMAG_MAPOBJECTS);; MELT_LOCATION("warmelt-debug.melt:964:/ cond"); /*cond*/ if (/*_#IS_MAPOBJECT__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:964:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check self"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 964; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:964:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:964:/ clear"); /*clear*/ /*_#IS_MAPOBJECT__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-debug.melt:965:/ quasiblock"); /*_.DIS__V10*/ meltfptr[8] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-debug.melt:966:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 0, "DBGI_OUT"); /*_.OUT__V11*/ meltfptr[4] = slot; }; ; } else /*^cond.else*/ { /*_.OUT__V11*/ meltfptr[4] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_#MAPCOUNT__L4*/ meltfnum[1] = (melt_count_mapobjects((meltmapobjects_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));; MELT_LOCATION("warmelt-debug.melt:968:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 2, "DBGI_MAXDEPTH"); /*_.DBGI_MAXDEPTH__V12*/ meltfptr[11] = slot; }; ; } else /*^cond.else*/ { /*_.DBGI_MAXDEPTH__V12*/ meltfptr[11] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_#MAXDEPTH__L5*/ meltfnum[4] = (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V12*/ meltfptr[11])));; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:970:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_OUT__L6*/ meltfnum[5] = (melt_is_out ((melt_ptr_t) /*_.OUT__V11*/ meltfptr[4])) ;; MELT_LOCATION("warmelt-debug.melt:970:/ cond"); /*cond*/ if (/*_#IS_OUT__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V14*/ meltfptr[13] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:970:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check out at start"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 970; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUT__V11*/ meltfptr[4]; /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V14*/ meltfptr[13] = /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:970:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V15*/ meltfptr[14] = 0 ; } ; } ; /*_.IFCPP___V13*/ meltfptr[12] = /*_._IFELSE___V14*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:970:/ clear"); /*clear*/ /*_#IS_OUT__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V14*/ meltfptr[13] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V13*/ meltfptr[12] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#gtI__L7*/ meltfnum[5] = ((/*_#DEPTH__L1*/ meltfnum[0]) > (0));; MELT_LOCATION("warmelt-debug.melt:971:/ cond"); /*cond*/ if (/*_#gtI__L7*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#eqeq__L9*/ meltfnum[8] = ((/*_.DIS__V10*/ meltfptr[8]) == ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[2])));; /*^compute*/ /*_#_IF___L8*/ meltfnum[7] = /*_#eqeq__L9*/ meltfnum[8];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:971:/ clear"); /*clear*/ /*_#eqeq__L9*/ meltfnum[8] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L8*/ meltfnum[7] = 0;; } ; MELT_LOCATION("warmelt-debug.melt:971:/ cond"); /*cond*/ if (/*_#_IF___L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:972:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( " {")); } ; /*epilog*/ } ; } else { MELT_LOCATION("warmelt-debug.melt:971:/ cond.else"); /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:974:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( " |")); } ; MELT_LOCATION("warmelt-debug.melt:975:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DIS__V10*/ meltfptr[8]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V16*/ meltfptr[14] = slot; }; ; { /*^locexp*/ meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V16*/ meltfptr[14]))); } ; { MELT_LOCATION("warmelt-debug.melt:976:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( "{")); } ; MELT_LOCATION("warmelt-debug.melt:973:/ quasiblock"); /*epilog*/ MELT_LOCATION("warmelt-debug.melt:971:/ clear"); /*clear*/ /*_.NAMED_NAME__V16*/ meltfptr[14] = 0 ; } ; } ; { MELT_LOCATION("warmelt-debug.melt:977:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( "/")); } ; /*_#MAPOBJECT_COUNT__L10*/ meltfnum[8] = (melt_count_mapobjects((meltmapobjects_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));; { MELT_LOCATION("warmelt-debug.melt:978:/ locexp"); meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), (/*_#MAPOBJECT_COUNT__L10*/ meltfnum[8])); } ; MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*_#plI__L11*/ meltfnum[10] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (2));; /*^compute*/ /*_#MELT_REALLY_NEED_DBGLIM__L12*/ meltfnum[11] = ( /*MELT_REALLY_NEED_DBGLIM*/ melt_need_debug_limit ((int) /*_#plI__L11*/ meltfnum[10], (int) /*_#MAXDEPTH__L5*/ meltfnum[4]));; MELT_LOCATION("warmelt-debug.melt:979:/ cond"); /*cond*/ if (/*_#MELT_REALLY_NEED_DBGLIM__L12*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#ltI__L14*/ meltfnum[13] = ((/*_#DEPTH__L1*/ meltfnum[0]) < (3));; MELT_LOCATION("warmelt-debug.melt:982:/ cond"); /*cond*/ if (/*_#ltI__L14*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*_#OR___L15*/ meltfnum[14] = /*_#ltI__L14*/ meltfnum[13];; } else { MELT_LOCATION("warmelt-debug.melt:982:/ cond.else"); /*^block*/ /*anyblock*/ { /*_#plI__L16*/ meltfnum[15] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));; /*^compute*/ /*_#stI__L17*/ meltfnum[16] = ((3) * (/*_#plI__L16*/ meltfnum[15]));; /*^compute*/ /*_#ltI__L18*/ meltfnum[17] = ((/*_#MAPCOUNT__L4*/ meltfnum[1]) < (/*_#stI__L17*/ meltfnum[16]));; /*^compute*/ /*_#OR___L15*/ meltfnum[14] = /*_#ltI__L18*/ meltfnum[17];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:982:/ clear"); /*clear*/ /*_#plI__L16*/ meltfnum[15] = 0 ; /*^clear*/ /*clear*/ /*_#stI__L17*/ meltfnum[16] = 0 ; /*^clear*/ /*clear*/ /*_#ltI__L18*/ meltfnum[17] = 0 ; } ; } ; /*_#_IF___L13*/ meltfnum[12] = /*_#OR___L15*/ meltfnum[14];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:979:/ clear"); /*clear*/ /*_#ltI__L14*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_#OR___L15*/ meltfnum[14] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L13*/ meltfnum[12] = 0;; } ; MELT_LOCATION("warmelt-debug.melt:979:/ cond"); /*cond*/ if (/*_#_IF___L13*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-debug.melt:984:/ quasiblock"); /*_#plI__L19*/ meltfnum[15] = ((2) + (/*_#DEPTH__L1*/ meltfnum[0]));; /*^compute*/ /*_.NEXTDEPTHBOX__V19*/ meltfptr[18] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[3])), (/*_#plI__L19*/ meltfnum[15])));; /*^compute*/ /*_.COUNTBOX__V20*/ meltfptr[19] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[3])), (0)));; /*^compute*/ /*_.TUPL__V21*/ meltfptr[20] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[4])), (/*_#MAPCOUNT__L4*/ meltfnum[1])));; /*^compute*/ /*_.AUX__V22*/ meltfptr[21] = melt_auxdata_mapobjects ((melt_ptr_t) (/*_.SELF__V2*/ meltfptr[1]));; MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#NOTNULL__L20*/ meltfnum[16] = ((/*_.AUX__V22*/ meltfptr[21]) != NULL);; MELT_LOCATION("warmelt-debug.melt:990:/ cond"); /*cond*/ if (/*_#NOTNULL__L20*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#lteqI__L22*/ meltfnum[13] = ((/*_#DEPTH__L1*/ meltfnum[0]) <= (1));; /*^compute*/ /*_#_IF___L21*/ meltfnum[17] = /*_#lteqI__L22*/ meltfnum[13];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:990:/ clear"); /*clear*/ /*_#lteqI__L22*/ meltfnum[13] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L21*/ meltfnum[17] = 0;; } ; MELT_LOCATION("warmelt-debug.melt:990:/ cond"); /*cond*/ if (/*_#_IF___L21*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:994:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = " aux:"; /*_.ADD2OUT__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_#plI__L23*/ meltfnum[14] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (3));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:995:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[1].meltbp_long = /*_#plI__L23*/ meltfnum[14]; /*_.DBG_OUT__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.AUX__V22*/ meltfptr[21]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_#plI__L24*/ meltfnum[13] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));; { MELT_LOCATION("warmelt-debug.melt:996:/ locexp"); meltgc_out_add_indent((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), (/*_#plI__L24*/ meltfnum[13]), 64);; } ; MELT_LOCATION("warmelt-debug.melt:993:/ quasiblock"); /*epilog*/ MELT_LOCATION("warmelt-debug.melt:990:/ clear"); /*clear*/ /*_.ADD2OUT__V23*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L23*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_.DBG_OUT__V24*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L24*/ meltfnum[13] = 0 ; } ; } /*noelse*/ ; MELT_LOCATION("warmelt-debug.melt:1001:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V26*/ meltfptr[23] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_9*/ meltfrout->tabval[9])), (2)); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V26*/ meltfptr[23])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V26*/ meltfptr[23]))); ((meltclosure_ptr_t)/*_.LAMBDA___V26*/ meltfptr[23])->tabval[0] = (melt_ptr_t)(/*_.COUNTBOX__V20*/ meltfptr[19]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V26*/ meltfptr[23])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V26*/ meltfptr[23]))); ((meltclosure_ptr_t)/*_.LAMBDA___V26*/ meltfptr[23])->tabval[1] = (melt_ptr_t)(/*_.TUPL__V21*/ meltfptr[20]); ; /*_.LAMBDA___V25*/ meltfptr[22] = /*_.LAMBDA___V26*/ meltfptr[23];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:999:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V25*/ meltfptr[22]; /*_.MAPOBJECT_EVERY__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!MAPOBJECT_EVERY*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:1009:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_MULTIPLE__L25*/ meltfnum[14] = (melt_magic_discr((melt_ptr_t)(/*_.TUPL__V21*/ meltfptr[20])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-debug.melt:1009:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L25*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V29*/ meltfptr[28] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1009:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check tupl"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1009; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.TUPL__V21*/ meltfptr[20]; /*_.MELT_ASSERT_FAILURE_FUN__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V29*/ meltfptr[28] = /*_.MELT_ASSERT_FAILURE_FUN__V30*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1009:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V30*/ meltfptr[29] = 0 ; } ; } ; /*_.IFCPP___V28*/ meltfptr[27] = /*_._IFELSE___V29*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1009:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L25*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V29*/ meltfptr[28] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V28*/ meltfptr[27] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-debug.melt:1011:/ quasiblock"); MELT_LOCATION("warmelt-debug.melt:1014:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V33*/ meltfptr[32] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_12*/ meltfrout->tabval[12])), (0)); ; /*_.LAMBDA___V32*/ meltfptr[28] = /*_.LAMBDA___V33*/ meltfptr[32];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1012:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V32*/ meltfptr[28]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[4]); /*_.SORTUPL__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_SORT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.TUPL__V21*/ meltfptr[20]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:1027:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_MULTIPLE__L26*/ meltfnum[13] = (melt_magic_discr((melt_ptr_t)(/*_.SORTUPL__V34*/ meltfptr[33])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-debug.melt:1027:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L26*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V36*/ meltfptr[35] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1027:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check sortupl"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1027; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SORTUPL__V34*/ meltfptr[33]; /*_.MELT_ASSERT_FAILURE_FUN__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V36*/ meltfptr[35] = /*_.MELT_ASSERT_FAILURE_FUN__V37*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1027:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V37*/ meltfptr[36] = 0 ; } ; } ; /*_.IFCPP___V35*/ meltfptr[34] = /*_._IFELSE___V36*/ meltfptr[35];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1027:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L26*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V36*/ meltfptr[35] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V35*/ meltfptr[34] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-debug.melt:1030:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V39*/ meltfptr[35] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_17*/ meltfrout->tabval[17])), (3)); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V39*/ meltfptr[35])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V39*/ meltfptr[35]))); ((meltclosure_ptr_t)/*_.LAMBDA___V39*/ meltfptr[35])->tabval[0] = (melt_ptr_t)(/*_.NEXTDEPTHBOX__V19*/ meltfptr[18]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V39*/ meltfptr[35])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V39*/ meltfptr[35]))); ((meltclosure_ptr_t)/*_.LAMBDA___V39*/ meltfptr[35])->tabval[1] = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V39*/ meltfptr[35])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V39*/ meltfptr[35]))); ((meltclosure_ptr_t)/*_.LAMBDA___V39*/ meltfptr[35])->tabval[2] = (melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]); ; /*_.LAMBDA___V38*/ meltfptr[36] = /*_.LAMBDA___V39*/ meltfptr[35];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1028:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V38*/ meltfptr[36]; /*_.MULTIPLE_EVERY__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[13])), (melt_ptr_t)(/*_.SORTUPL__V34*/ meltfptr[33]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.LET___V31*/ meltfptr[29] = /*_.MULTIPLE_EVERY__V40*/ meltfptr[39];; MELT_LOCATION("warmelt-debug.melt:1011:/ clear"); /*clear*/ /*_.LAMBDA___V32*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.SORTUPL__V34*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V35*/ meltfptr[34] = 0 ; /*^clear*/ /*clear*/ /*_.LAMBDA___V38*/ meltfptr[36] = 0 ; /*^clear*/ /*clear*/ /*_.MULTIPLE_EVERY__V40*/ meltfptr[39] = 0 ; /*_.LET___V18*/ meltfptr[14] = /*_.LET___V31*/ meltfptr[29];; MELT_LOCATION("warmelt-debug.melt:984:/ clear"); /*clear*/ /*_#plI__L19*/ meltfnum[15] = 0 ; /*^clear*/ /*clear*/ /*_.NEXTDEPTHBOX__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.COUNTBOX__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.TUPL__V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.AUX__V22*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_#NOTNULL__L20*/ meltfnum[16] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L21*/ meltfnum[17] = 0 ; /*^clear*/ /*clear*/ /*_.LAMBDA___V25*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.MAPOBJECT_EVERY__V27*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V28*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V31*/ meltfptr[29] = 0 ; /*_._IFELSE___V17*/ meltfptr[13] = /*_.LET___V18*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:979:/ clear"); /*clear*/ /*_.LET___V18*/ meltfptr[14] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:1048:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( " ..:..")); } ; /*clear*/ /*_._IFELSE___V17*/ meltfptr[13] = 0 ; /*epilog*/ } ; } ; { MELT_LOCATION("warmelt-debug.melt:1050:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( "}")); } ; MELT_LOCATION("warmelt-debug.melt:965:/ clear"); /*clear*/ /*_.DIS__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.OUT__V11*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_#MAPCOUNT__L4*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.DBGI_MAXDEPTH__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_#MAXDEPTH__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_#gtI__L7*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_#MAPOBJECT_COUNT__L10*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L11*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_#MELT_REALLY_NEED_DBGLIM__L12*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L13*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V17*/ meltfptr[13] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:962:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBGOUT_MAPOBJECT_METHOD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_27_WARMELTmiDEBUG_DBGOUT_MAPOBJECT_METHOD_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_27_WARMELTmiDEBUG_DBGOUT_MAPOBJECT_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_28_WARMELTmiDEBUG_LAMBDA_cl3(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_28_WARMELTmiDEBUG_LAMBDA_cl3_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1501 /* start of frame for routine meltrout_28_WARMELTmiDEBUG_LAMBDA_cl3 fromline 1715 */ /** start of frame for meltrout_28_WARMELTmiDEBUG_LAMBDA_cl3 of CLASS_PROCROUTINEOBJ from 1518**/ /*curframdeclclassy*/ class MeltFrame_meltrout_28_WARMELTmiDEBUG_LAMBDA_cl3// fromline 1531 : public Melt_CallFrameWithValues<6> { public: /* fromline 1535*/ long mcfr_varnum[2]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_28_WARMELTmiDEBUG_LAMBDA_cl3(meltclosure_ptr_t clos) //the closure constructor fromline 1593 : Melt_CallFrameWithValues<6> ( #if ENABLE_CHECKING /*fromline 1597*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1601*/ sizeof(MeltFrame_meltrout_28_WARMELTmiDEBUG_LAMBDA_cl3), clos) {}; MeltFrame_meltrout_28_WARMELTmiDEBUG_LAMBDA_cl3() //the constructor fromline 1605 : Melt_CallFrameWithValues<6> ( #if ENABLE_CHECKING /*fromline 1609*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1613*/ sizeof(MeltFrame_meltrout_28_WARMELTmiDEBUG_LAMBDA_cl3)) {}; #if ENABLE_CHECKING /*fromline 1617*/ MeltFrame_meltrout_28_WARMELTmiDEBUG_LAMBDA_cl3(const char*fil, int lin) //the constructor fromline 1619 : Melt_CallFrameWithValues<6> (fil,lin, sizeof(MeltFrame_meltrout_28_WARMELTmiDEBUG_LAMBDA_cl3)) {}; MeltFrame_meltrout_28_WARMELTmiDEBUG_LAMBDA_cl3(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1624 : Melt_CallFrameWithValues<6> (fil,lin, sizeof(MeltFrame_meltrout_28_WARMELTmiDEBUG_LAMBDA_cl3), clos) {}; #endif /* ENABLE_CHECKING fromline 1629*/ }; // end class MeltFrame_meltrout_28_WARMELTmiDEBUG_LAMBDA_cl3 /** end of frame for meltrout_28_WARMELTmiDEBUG_LAMBDA_cl3 fromline 1660**/ /* end of frame for routine meltrout_28_WARMELTmiDEBUG_LAMBDA_cl3 fromline 1719 */ /* classy proc frame meltrout_28_WARMELTmiDEBUG_LAMBDA_cl3 */ MeltFrame_meltrout_28_WARMELTmiDEBUG_LAMBDA_cl3 meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_28_WARMELTmiDEBUG_LAMBDA_cl3 fromline 1748*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1752*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1756*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("LAMBDA_cl3", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:1001:/ getarg"); /*_.AT__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.VA__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.VA__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-debug.melt:1002:/ quasiblock"); /*_#CURCOUNT__L1*/ meltfnum[0] = (melt_get_int((melt_ptr_t)((/*~COUNTBOX*/ meltfclos->tabval[0]))));; /*^compute*/ /*_.MAKE_INTEGERBOX__V4*/ meltfptr[3] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[0])), (/*_#CURCOUNT__L1*/ meltfnum[0])));; MELT_LOCATION("warmelt-debug.melt:1003:/ blockmultialloc"); /*multiallocblock*/ { struct meltletrec_1_st { struct MELT_MULTIPLE_STRUCT(3) rtup_0__TUPLREC__x1; long meltletrec_1_endgap; } *meltletrec_1_ptr = 0; meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x1*/ /*_.TUPLREC___V6*/ meltfptr[5] = (melt_ptr_t) &meltletrec_1_ptr->rtup_0__TUPLREC__x1; meltletrec_1_ptr->rtup_0__TUPLREC__x1.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_1_ptr->rtup_0__TUPLREC__x1.nbval = 3; /*^putuple*/ /*putupl#1*/ melt_assertmsg("putupl [:1003] #1 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V6*/ meltfptr[5]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl [:1003] #1 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V6*/ meltfptr[5])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V6*/ meltfptr[5]))->tabval[0] = (melt_ptr_t)(/*_.AT__V2*/ meltfptr[1]); ; /*^putuple*/ /*putupl#2*/ melt_assertmsg("putupl [:1003] #2 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V6*/ meltfptr[5]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl [:1003] #2 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V6*/ meltfptr[5])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V6*/ meltfptr[5]))->tabval[1] = (melt_ptr_t)(/*_.VA__V3*/ meltfptr[2]); ; /*^putuple*/ /*putupl#3*/ melt_assertmsg("putupl [:1003] #3 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V6*/ meltfptr[5]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl [:1003] #3 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V6*/ meltfptr[5])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V6*/ meltfptr[5]))->tabval[2] = (melt_ptr_t)(/*_.MAKE_INTEGERBOX__V4*/ meltfptr[3]); ; /*^touch*/ meltgc_touch(/*_.TUPLREC___V6*/ meltfptr[5]); ; /*_.ENT__V5*/ meltfptr[4] = /*_.TUPLREC___V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1003:/ clear"); /*clear*/ /*_.TUPLREC___V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.TUPLREC___V6*/ meltfptr[5] = 0 ; } /*end multiallocblock*/ ; { MELT_LOCATION("warmelt-debug.melt:1006:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)((/*~TUPL*/ meltfclos->tabval[1])), (/*_#CURCOUNT__L1*/ meltfnum[0]), (melt_ptr_t)(/*_.ENT__V5*/ meltfptr[4])); } ; /*_#plI__L2*/ meltfnum[1] = ((/*_#CURCOUNT__L1*/ meltfnum[0]) + (1));; { MELT_LOCATION("warmelt-debug.melt:1007:/ locexp"); melt_put_int((melt_ptr_t)((/*~COUNTBOX*/ meltfclos->tabval[0])), (/*_#plI__L2*/ meltfnum[1])); } ; MELT_LOCATION("warmelt-debug.melt:1002:/ clear"); /*clear*/ /*_#CURCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_INTEGERBOX__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.ENT__V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L2*/ meltfnum[1] = 0 ; /*epilog*/ } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl3", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_28_WARMELTmiDEBUG_LAMBDA_cl3_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_28_WARMELTmiDEBUG_LAMBDA_cl3*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_29_WARMELTmiDEBUG_LAMBDA_cl4(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_29_WARMELTmiDEBUG_LAMBDA_cl4_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1501 /* start of frame for routine meltrout_29_WARMELTmiDEBUG_LAMBDA_cl4 fromline 1715 */ /** start of frame for meltrout_29_WARMELTmiDEBUG_LAMBDA_cl4 of CLASS_PROCROUTINEOBJ from 1518**/ /*curframdeclclassy*/ class MeltFrame_meltrout_29_WARMELTmiDEBUG_LAMBDA_cl4// fromline 1531 : public Melt_CallFrameWithValues<11> { public: /* fromline 1535*/ // no classy longs /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_29_WARMELTmiDEBUG_LAMBDA_cl4(meltclosure_ptr_t clos) //the closure constructor fromline 1593 : Melt_CallFrameWithValues<11> ( #if ENABLE_CHECKING /*fromline 1597*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1601*/ sizeof(MeltFrame_meltrout_29_WARMELTmiDEBUG_LAMBDA_cl4), clos) {}; MeltFrame_meltrout_29_WARMELTmiDEBUG_LAMBDA_cl4() //the constructor fromline 1605 : Melt_CallFrameWithValues<11> ( #if ENABLE_CHECKING /*fromline 1609*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1613*/ sizeof(MeltFrame_meltrout_29_WARMELTmiDEBUG_LAMBDA_cl4)) {}; #if ENABLE_CHECKING /*fromline 1617*/ MeltFrame_meltrout_29_WARMELTmiDEBUG_LAMBDA_cl4(const char*fil, int lin) //the constructor fromline 1619 : Melt_CallFrameWithValues<11> (fil,lin, sizeof(MeltFrame_meltrout_29_WARMELTmiDEBUG_LAMBDA_cl4)) {}; MeltFrame_meltrout_29_WARMELTmiDEBUG_LAMBDA_cl4(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1624 : Melt_CallFrameWithValues<11> (fil,lin, sizeof(MeltFrame_meltrout_29_WARMELTmiDEBUG_LAMBDA_cl4), clos) {}; #endif /* ENABLE_CHECKING fromline 1629*/ }; // end class MeltFrame_meltrout_29_WARMELTmiDEBUG_LAMBDA_cl4 /** end of frame for meltrout_29_WARMELTmiDEBUG_LAMBDA_cl4 fromline 1660**/ /* end of frame for routine meltrout_29_WARMELTmiDEBUG_LAMBDA_cl4 fromline 1719 */ /* classy proc frame meltrout_29_WARMELTmiDEBUG_LAMBDA_cl4 */ MeltFrame_meltrout_29_WARMELTmiDEBUG_LAMBDA_cl4 meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_29_WARMELTmiDEBUG_LAMBDA_cl4 fromline 1748*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1752*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1756*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("LAMBDA_cl4", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:1014:/ getarg"); /*_.E1__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.E2__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.E2__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-debug.melt:1015:/ quasiblock"); /*_.E1AT__V5*/ meltfptr[4] = (melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ meltfptr[1]), (0)));; /*^compute*/ /*_.E1VA__V6*/ meltfptr[5] = (melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ meltfptr[1]), (1)));; /*^compute*/ /*_.E1RK__V7*/ meltfptr[6] = (melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ meltfptr[1]), (2)));; /*^compute*/ /*_.E2AT__V8*/ meltfptr[7] = (melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ meltfptr[2]), (0)));; /*^compute*/ /*_.E2VA__V9*/ meltfptr[8] = (melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ meltfptr[2]), (1)));; /*^compute*/ /*_.E2RK__V10*/ meltfptr[9] = (melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ meltfptr[2]), (2)));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1022:/ apply"); /*apply*/ { union meltparam_un argtab[6]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.E1RK__V7*/ meltfptr[6]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.E2AT__V8*/ meltfptr[7]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.E2RK__V10*/ meltfptr[9]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_1*/ meltfrout->tabval[1]); /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*!konst_2*/ meltfrout->tabval[2]); /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &(/*!konst_3*/ meltfrout->tabval[3]); /*_.COMPARE_OBJ_RANKED__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!COMPARE_OBJ_RANKED*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.E1AT__V5*/ meltfptr[4]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.LET___V4*/ meltfptr[3] = /*_.COMPARE_OBJ_RANKED__V11*/ meltfptr[10];; MELT_LOCATION("warmelt-debug.melt:1015:/ clear"); /*clear*/ /*_.E1AT__V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.E1VA__V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.E1RK__V7*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.E2AT__V8*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_.E2VA__V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.E2RK__V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.COMPARE_OBJ_RANKED__V11*/ meltfptr[10] = 0 ; MELT_LOCATION("warmelt-debug.melt:1014:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V4*/ meltfptr[3];; { MELT_LOCATION("warmelt-debug.melt:1014:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.LET___V4*/ meltfptr[3] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl4", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_29_WARMELTmiDEBUG_LAMBDA_cl4_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_29_WARMELTmiDEBUG_LAMBDA_cl4*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_30_WARMELTmiDEBUG_LAMBDA_cl5(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_30_WARMELTmiDEBUG_LAMBDA_cl5_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1501 /* start of frame for routine meltrout_30_WARMELTmiDEBUG_LAMBDA_cl5 fromline 1715 */ /** start of frame for meltrout_30_WARMELTmiDEBUG_LAMBDA_cl5 of CLASS_PROCROUTINEOBJ from 1518**/ /*curframdeclclassy*/ class MeltFrame_meltrout_30_WARMELTmiDEBUG_LAMBDA_cl5// fromline 1531 : public Melt_CallFrameWithValues<12> { public: /* fromline 1535*/ long mcfr_varnum[6]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_30_WARMELTmiDEBUG_LAMBDA_cl5(meltclosure_ptr_t clos) //the closure constructor fromline 1593 : Melt_CallFrameWithValues<12> ( #if ENABLE_CHECKING /*fromline 1597*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1601*/ sizeof(MeltFrame_meltrout_30_WARMELTmiDEBUG_LAMBDA_cl5), clos) {}; MeltFrame_meltrout_30_WARMELTmiDEBUG_LAMBDA_cl5() //the constructor fromline 1605 : Melt_CallFrameWithValues<12> ( #if ENABLE_CHECKING /*fromline 1609*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1613*/ sizeof(MeltFrame_meltrout_30_WARMELTmiDEBUG_LAMBDA_cl5)) {}; #if ENABLE_CHECKING /*fromline 1617*/ MeltFrame_meltrout_30_WARMELTmiDEBUG_LAMBDA_cl5(const char*fil, int lin) //the constructor fromline 1619 : Melt_CallFrameWithValues<12> (fil,lin, sizeof(MeltFrame_meltrout_30_WARMELTmiDEBUG_LAMBDA_cl5)) {}; MeltFrame_meltrout_30_WARMELTmiDEBUG_LAMBDA_cl5(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1624 : Melt_CallFrameWithValues<12> (fil,lin, sizeof(MeltFrame_meltrout_30_WARMELTmiDEBUG_LAMBDA_cl5), clos) {}; #endif /* ENABLE_CHECKING fromline 1629*/ }; // end class MeltFrame_meltrout_30_WARMELTmiDEBUG_LAMBDA_cl5 /** end of frame for meltrout_30_WARMELTmiDEBUG_LAMBDA_cl5 fromline 1660**/ /* end of frame for routine meltrout_30_WARMELTmiDEBUG_LAMBDA_cl5 fromline 1719 */ /* classy proc frame meltrout_30_WARMELTmiDEBUG_LAMBDA_cl5 */ MeltFrame_meltrout_30_WARMELTmiDEBUG_LAMBDA_cl5 meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_30_WARMELTmiDEBUG_LAMBDA_cl5 fromline 1748*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1752*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1756*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("LAMBDA_cl5", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:1030:/ getarg"); /*_.EL__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#IX__L1*/ meltfnum[0] = meltxargtab_[0].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-debug.melt:1031:/ quasiblock"); /*_.ELAT__V3*/ meltfptr[2] = (melt_multiple_nth((melt_ptr_t)(/*_.EL__V2*/ meltfptr[1]), (0)));; /*^compute*/ /*_.ELVA__V4*/ meltfptr[3] = (melt_multiple_nth((melt_ptr_t)(/*_.EL__V2*/ meltfptr[1]), (1)));; MELT_LOCATION("warmelt-debug.melt:1033:/ quasiblock"); /*_#NEXTDEPTH__L2*/ meltfnum[1] = (melt_get_int((melt_ptr_t)((/*~NEXTDEPTHBOX*/ meltfclos->tabval[0]))));; MELT_LOCATION("warmelt-debug.melt:1034:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*~DBGI*/ meltfclos->tabval[1])) /*=obj*/; melt_object_get_field(slot,obj, 2, "DBGI_MAXDEPTH"); /*_.DBGI_MAXDEPTH__V5*/ meltfptr[4] = slot; }; ; /*_#OLDMAXDEPTH__L3*/ meltfnum[2] = (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V5*/ meltfptr[4])));; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:1037:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_OUT__L4*/ meltfnum[3] = (melt_is_out ((melt_ptr_t) (/*~OUT*/ meltfclos->tabval[2]))) ;; MELT_LOCATION("warmelt-debug.melt:1037:/ cond"); /*cond*/ if (/*_#IS_OUT__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1037:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check out"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1037; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*~OUT*/ meltfclos->tabval[2]); /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V7*/ meltfptr[6] = /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1037:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V8*/ meltfptr[7] = 0 ; } ; } ; /*_.IFCPP___V6*/ meltfptr[5] = /*_._IFELSE___V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1037:/ clear"); /*clear*/ /*_#IS_OUT__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V7*/ meltfptr[6] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V6*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; { MELT_LOCATION("warmelt-debug.melt:1038:/ locexp"); meltgc_out_add_indent((melt_ptr_t)((/*~OUT*/ meltfclos->tabval[2])), (/*_#NEXTDEPTH__L2*/ meltfnum[1]), 0);; } ; { MELT_LOCATION("warmelt-debug.melt:1039:/ locexp"); meltgc_add_out((melt_ptr_t)((/*~OUT*/ meltfclos->tabval[2])), ( "**")); } ; MELT_LOCATION("warmelt-debug.melt:1040:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*~DBGI*/ meltfclos->tabval[1])) /*=obj*/; melt_object_get_field(slot,obj, 2, "DBGI_MAXDEPTH"); /*_.DBGI_MAXDEPTH__V9*/ meltfptr[7] = slot; }; ; { /*^locexp*/ melt_put_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V9*/ meltfptr[7]), (0)); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1041:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~DBGI*/ meltfclos->tabval[1]); /*^apply.arg*/ argtab[1].meltbp_long = /*_#NEXTDEPTH__L2*/ meltfnum[1]; /*_.DBG_OUTOBJECT__V10*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUTOBJECT*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.ELAT__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-debug.melt:1042:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*~DBGI*/ meltfclos->tabval[1])) /*=obj*/; melt_object_get_field(slot,obj, 2, "DBGI_MAXDEPTH"); /*_.DBGI_MAXDEPTH__V11*/ meltfptr[10] = slot; }; ; { /*^locexp*/ melt_put_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V11*/ meltfptr[10]), (/*_#OLDMAXDEPTH__L3*/ meltfnum[2])); } ; { MELT_LOCATION("warmelt-debug.melt:1043:/ locexp"); meltgc_add_out((melt_ptr_t)((/*~OUT*/ meltfclos->tabval[2])), ( " ==")); } ; /*_#plI__L5*/ meltfnum[3] = ((/*_#NEXTDEPTH__L2*/ meltfnum[1]) + (1));; { MELT_LOCATION("warmelt-debug.melt:1044:/ locexp"); meltgc_out_add_indent((melt_ptr_t)((/*~OUT*/ meltfclos->tabval[2])), (/*_#plI__L5*/ meltfnum[3]), 64);; } ; /*_#plI__L6*/ meltfnum[5] = ((/*_#NEXTDEPTH__L2*/ meltfnum[1]) + (2));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1045:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*~DBGI*/ meltfclos->tabval[1]); /*^apply.arg*/ argtab[1].meltbp_long = /*_#plI__L6*/ meltfnum[5]; /*_.DBG_OUT__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.ELVA__V4*/ meltfptr[3]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-debug.melt:1046:/ locexp"); meltgc_add_out((melt_ptr_t)((/*~OUT*/ meltfclos->tabval[2])), ( "; ")); } ; MELT_LOCATION("warmelt-debug.melt:1033:/ clear"); /*clear*/ /*_#NEXTDEPTH__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.DBGI_MAXDEPTH__V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_#OLDMAXDEPTH__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.DBGI_MAXDEPTH__V9*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_.DBG_OUTOBJECT__V10*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.DBGI_MAXDEPTH__V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L5*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.DBG_OUT__V12*/ meltfptr[11] = 0 ; MELT_LOCATION("warmelt-debug.melt:1031:/ clear"); /*clear*/ /*_.ELAT__V3*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_.ELVA__V4*/ meltfptr[3] = 0 ; /*epilog*/ } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl5", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_30_WARMELTmiDEBUG_LAMBDA_cl5_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_30_WARMELTmiDEBUG_LAMBDA_cl5*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_31_WARMELTmiDEBUG_DBGOUT_MAPSTRING_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_31_WARMELTmiDEBUG_DBGOUT_MAPSTRING_METHOD_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1501 /* start of frame for routine meltrout_31_WARMELTmiDEBUG_DBGOUT_MAPSTRING_METHOD fromline 1715 */ /** start of frame for meltrout_31_WARMELTmiDEBUG_DBGOUT_MAPSTRING_METHOD of CLASS_PROCROUTINEOBJ from 1518**/ /*curframdeclclassy*/ class MeltFrame_meltrout_31_WARMELTmiDEBUG_DBGOUT_MAPSTRING_METHOD// fromline 1531 : public Melt_CallFrameWithValues<37> { public: /* fromline 1535*/ long mcfr_varnum[30]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_31_WARMELTmiDEBUG_DBGOUT_MAPSTRING_METHOD(meltclosure_ptr_t clos) //the closure constructor fromline 1593 : Melt_CallFrameWithValues<37> ( #if ENABLE_CHECKING /*fromline 1597*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1601*/ sizeof(MeltFrame_meltrout_31_WARMELTmiDEBUG_DBGOUT_MAPSTRING_METHOD), clos) {}; MeltFrame_meltrout_31_WARMELTmiDEBUG_DBGOUT_MAPSTRING_METHOD() //the constructor fromline 1605 : Melt_CallFrameWithValues<37> ( #if ENABLE_CHECKING /*fromline 1609*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1613*/ sizeof(MeltFrame_meltrout_31_WARMELTmiDEBUG_DBGOUT_MAPSTRING_METHOD)) {}; #if ENABLE_CHECKING /*fromline 1617*/ MeltFrame_meltrout_31_WARMELTmiDEBUG_DBGOUT_MAPSTRING_METHOD(const char*fil, int lin) //the constructor fromline 1619 : Melt_CallFrameWithValues<37> (fil,lin, sizeof(MeltFrame_meltrout_31_WARMELTmiDEBUG_DBGOUT_MAPSTRING_METHOD)) {}; MeltFrame_meltrout_31_WARMELTmiDEBUG_DBGOUT_MAPSTRING_METHOD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1624 : Melt_CallFrameWithValues<37> (fil,lin, sizeof(MeltFrame_meltrout_31_WARMELTmiDEBUG_DBGOUT_MAPSTRING_METHOD), clos) {}; #endif /* ENABLE_CHECKING fromline 1629*/ }; // end class MeltFrame_meltrout_31_WARMELTmiDEBUG_DBGOUT_MAPSTRING_METHOD /** end of frame for meltrout_31_WARMELTmiDEBUG_DBGOUT_MAPSTRING_METHOD fromline 1660**/ /* end of frame for routine meltrout_31_WARMELTmiDEBUG_DBGOUT_MAPSTRING_METHOD fromline 1719 */ /* classy proc frame meltrout_31_WARMELTmiDEBUG_DBGOUT_MAPSTRING_METHOD */ MeltFrame_meltrout_31_WARMELTmiDEBUG_DBGOUT_MAPSTRING_METHOD meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_31_WARMELTmiDEBUG_DBGOUT_MAPSTRING_METHOD fromline 1748*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1752*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1756*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBGOUT_MAPSTRING_METHOD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:1055:/ getarg"); /*_.SELF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:1056:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-debug.melt:1056:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1056:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check dbgi"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1056; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1056:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1056:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:1057:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_MAPSTRING__L3*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])) == MELTOBMAG_MAPSTRINGS);; MELT_LOCATION("warmelt-debug.melt:1057:/ cond"); /*cond*/ if (/*_#IS_MAPSTRING__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1057:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check self"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1057; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1057:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1057:/ clear"); /*clear*/ /*_#IS_MAPSTRING__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-debug.melt:1058:/ quasiblock"); /*_.DIS__V10*/ meltfptr[8] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-debug.melt:1059:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 0, "DBGI_OUT"); /*_.SBUF__V11*/ meltfptr[4] = slot; }; ; /*_#IX__L4*/ meltfnum[1] = 0;; /*^compute*/ /*_#MAPCOUNT__L5*/ meltfnum[4] = (melt_count_mapstrings((struct meltmapstrings_st*)(/*_.SELF__V2*/ meltfptr[1])));; /*^compute*/ /*_#plI__L6*/ meltfnum[5] = ((2) + (/*_#DEPTH__L1*/ meltfnum[0]));; /*^compute*/ /*_.NEXTDEPTHBOX__V12*/ meltfptr[11] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[2])), (/*_#plI__L6*/ meltfnum[5])));; /*^compute*/ /*_.COUNTBOX__V13*/ meltfptr[12] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[2])), (0)));; /*^compute*/ /*_.TUPL__V14*/ meltfptr[13] = (meltgc_new_multiple((meltobject_ptr_t)((/*!DISCR_MULTIPLE*/ meltfrout->tabval[3])), (/*_#MAPCOUNT__L5*/ meltfnum[4])));; MELT_LOCATION("warmelt-debug.melt:1065:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 2, "DBGI_MAXDEPTH"); /*_.DBGI_MAXDEPTH__V15*/ meltfptr[14] = slot; }; ; } else /*^cond.else*/ { /*_.DBGI_MAXDEPTH__V15*/ meltfptr[14] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_#MAXDEPTH__L7*/ meltfnum[6] = (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V15*/ meltfptr[14])));; MELT_LOCATION("warmelt-debug.melt:1067:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DIS__V10*/ meltfptr[8]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[5]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DIS__V10*/ meltfptr[8]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V16*/ meltfptr[15] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V16*/ meltfptr[15] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1067:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = " *mapstr|"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V16*/ meltfptr[15]; /*^apply.arg*/ argtab[2].meltbp_cstring = "<("; /*_.ADD2OUT__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-debug.melt:1068:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), ( "/")); } ; { MELT_LOCATION("warmelt-debug.melt:1069:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), (/*_#MAPCOUNT__L5*/ meltfnum[4])); } ; MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*_#plI__L8*/ meltfnum[7] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (2));; /*^compute*/ /*_#MELT_REALLY_NEED_DBGLIM__L9*/ meltfnum[8] = ( /*MELT_REALLY_NEED_DBGLIM*/ melt_need_debug_limit ((int) /*_#plI__L8*/ meltfnum[7], (int) /*_#MAXDEPTH__L7*/ meltfnum[6]));; MELT_LOCATION("warmelt-debug.melt:1070:/ cond"); /*cond*/ if (/*_#MELT_REALLY_NEED_DBGLIM__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#plI__L11*/ meltfnum[10] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (2));; /*^compute*/ /*_#ltI__L12*/ meltfnum[11] = ((/*_#plI__L11*/ meltfnum[10]) < (/*_#MAXDEPTH__L7*/ meltfnum[6]));; MELT_LOCATION("warmelt-debug.melt:1070:/ cond"); /*cond*/ if (/*_#ltI__L12*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#ltI__L14*/ meltfnum[13] = ((/*_#DEPTH__L1*/ meltfnum[0]) < (3));; MELT_LOCATION("warmelt-debug.melt:1073:/ cond"); /*cond*/ if (/*_#ltI__L14*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*_#OR___L15*/ meltfnum[14] = /*_#ltI__L14*/ meltfnum[13];; } else { MELT_LOCATION("warmelt-debug.melt:1073:/ cond.else"); /*^block*/ /*anyblock*/ { /*_#ltI__L16*/ meltfnum[15] = ((/*_#MAPCOUNT__L5*/ meltfnum[4]) < (20));; /*^compute*/ /*_#OR___L15*/ meltfnum[14] = /*_#ltI__L16*/ meltfnum[15];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1073:/ clear"); /*clear*/ /*_#ltI__L16*/ meltfnum[15] = 0 ; } ; } ; MELT_LOCATION("warmelt-debug.melt:1070:/ cond"); /*cond*/ if (/*_#OR___L15*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#IS_A__L18*/ meltfnum[17] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_OUTPUT_INFORMATION*/ meltfrout->tabval[6])));; /*^compute*/ /*_#_IF___L17*/ meltfnum[15] = /*_#IS_A__L18*/ meltfnum[17];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1070:/ clear"); /*clear*/ /*_#IS_A__L18*/ meltfnum[17] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L17*/ meltfnum[15] = 0;; } ; /*^compute*/ /*_#_IF___L13*/ meltfnum[12] = /*_#_IF___L17*/ meltfnum[15];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1070:/ clear"); /*clear*/ /*_#ltI__L14*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_#OR___L15*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L17*/ meltfnum[15] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L13*/ meltfnum[12] = 0;; } ; /*^compute*/ /*_#_IF___L10*/ meltfnum[9] = /*_#_IF___L13*/ meltfnum[12];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1070:/ clear"); /*clear*/ /*_#plI__L11*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_#ltI__L12*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L13*/ meltfnum[12] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L10*/ meltfnum[9] = 0;; } ; MELT_LOCATION("warmelt-debug.melt:1070:/ cond"); /*cond*/ if (/*_#_IF___L10*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-debug.melt:1075:/ quasiblock"); /*_.AUX__V18*/ meltfptr[17] = melt_auxdata_mapstrings ((melt_ptr_t)/*_.SELF__V2*/ meltfptr[1]);; MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#NOTNULL__L19*/ meltfnum[17] = ((/*_.AUX__V18*/ meltfptr[17]) != NULL);; MELT_LOCATION("warmelt-debug.melt:1078:/ cond"); /*cond*/ if (/*_#NOTNULL__L19*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#lteqI__L21*/ meltfnum[14] = ((/*_#DEPTH__L1*/ meltfnum[0]) <= (1));; /*^compute*/ /*_#_IF___L20*/ meltfnum[13] = /*_#lteqI__L21*/ meltfnum[14];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1078:/ clear"); /*clear*/ /*_#lteqI__L21*/ meltfnum[14] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L20*/ meltfnum[13] = 0;; } ; MELT_LOCATION("warmelt-debug.melt:1078:/ cond"); /*cond*/ if (/*_#_IF___L20*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1082:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = " aux:"; /*_.ADD2OUT__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_#plI__L22*/ meltfnum[15] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (3));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1083:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[1].meltbp_long = /*_#plI__L22*/ meltfnum[15]; /*_.DBG_OUT__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.AUX__V18*/ meltfptr[17]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_#plI__L23*/ meltfnum[10] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));; { MELT_LOCATION("warmelt-debug.melt:1084:/ locexp"); meltgc_out_add_indent((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), (/*_#plI__L23*/ meltfnum[10]), 0);; } ; MELT_LOCATION("warmelt-debug.melt:1081:/ quasiblock"); /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1078:/ clear"); /*clear*/ /*_.ADD2OUT__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L22*/ meltfnum[15] = 0 ; /*^clear*/ /*clear*/ /*_.DBG_OUT__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L23*/ meltfnum[10] = 0 ; } ; } /*noelse*/ ; MELT_LOCATION("warmelt-debug.melt:1089:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V22*/ meltfptr[19] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_10*/ meltfrout->tabval[10])), (2)); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V22*/ meltfptr[19])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V22*/ meltfptr[19]))); ((meltclosure_ptr_t)/*_.LAMBDA___V22*/ meltfptr[19])->tabval[0] = (melt_ptr_t)(/*_.COUNTBOX__V13*/ meltfptr[12]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V22*/ meltfptr[19])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V22*/ meltfptr[19]))); ((meltclosure_ptr_t)/*_.LAMBDA___V22*/ meltfptr[19])->tabval[1] = (melt_ptr_t)(/*_.TUPL__V14*/ meltfptr[13]); ; /*_.LAMBDA___V21*/ meltfptr[18] = /*_.LAMBDA___V22*/ meltfptr[19];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1087:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V21*/ meltfptr[18]; /*_.MAPSTRING_EVERY__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MAPSTRING_EVERY*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-debug.melt:1098:/ quasiblock"); MELT_LOCATION("warmelt-debug.melt:1101:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V25*/ meltfptr[24] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_13*/ meltfrout->tabval[13])), (0)); ; /*_.LAMBDA___V24*/ meltfptr[23] = /*_.LAMBDA___V25*/ meltfptr[24];; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1099:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V24*/ meltfptr[23]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[3]); /*_.SORTUPL__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_SORT*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.TUPL__V14*/ meltfptr[13]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:1114:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_MULTIPLE__L24*/ meltfnum[11] = (melt_magic_discr((melt_ptr_t)(/*_.SORTUPL__V26*/ meltfptr[25])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION("warmelt-debug.melt:1114:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L24*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V28*/ meltfptr[27] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1114:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check sortupl"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1114; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SORTUPL__V26*/ meltfptr[25]; /*_.MELT_ASSERT_FAILURE_FUN__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V28*/ meltfptr[27] = /*_.MELT_ASSERT_FAILURE_FUN__V29*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1114:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V29*/ meltfptr[28] = 0 ; } ; } ; /*_.IFCPP___V27*/ meltfptr[26] = /*_._IFELSE___V28*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1114:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L24*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V28*/ meltfptr[27] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V27*/ meltfptr[26] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit1__EACHTUP */ long meltcit1__EACHTUP_ln = melt_multiple_length((melt_ptr_t)/*_.SORTUPL__V26*/ meltfptr[25]); for (/*_#IX__L25*/ meltfnum[12] = 0; (/*_#IX__L25*/ meltfnum[12] >= 0) && (/*_#IX__L25*/ meltfnum[12] < meltcit1__EACHTUP_ln); /*_#IX__L25*/ meltfnum[12]++) { /*_.EL__V30*/ meltfptr[28] = melt_multiple_nth((melt_ptr_t)(/*_.SORTUPL__V26*/ meltfptr[25]), /*_#IX__L25*/ meltfnum[12]); MELT_LOCATION("warmelt-debug.melt:1118:/ quasiblock"); /*_.CURSTR__V32*/ meltfptr[31] = (melt_multiple_nth((melt_ptr_t)(/*_.EL__V30*/ meltfptr[28]), (0)));; /*^compute*/ /*_.CURVAL__V33*/ meltfptr[32] = (melt_multiple_nth((melt_ptr_t)(/*_.EL__V30*/ meltfptr[28]), (1)));; /*^compute*/ /*_#NEXTDEPTH__L26*/ meltfnum[14] = (melt_get_int((melt_ptr_t)(/*_.NEXTDEPTHBOX__V12*/ meltfptr[11])));; MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#IS_STRING__L27*/ meltfnum[15] = (melt_magic_discr((melt_ptr_t)(/*_.CURSTR__V32*/ meltfptr[31])) == MELTOBMAG_STRING);; MELT_LOCATION("warmelt-debug.melt:1122:/ cond"); /*cond*/ if (/*_#IS_STRING__L27*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#NOTNULL__L29*/ meltfnum[11] = ((/*_.CURVAL__V33*/ meltfptr[32]) != NULL);; /*^compute*/ /*_#_IF___L28*/ meltfnum[10] = /*_#NOTNULL__L29*/ meltfnum[11];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1122:/ clear"); /*clear*/ /*_#NOTNULL__L29*/ meltfnum[11] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L28*/ meltfnum[10] = 0;; } ; MELT_LOCATION("warmelt-debug.melt:1122:/ cond"); /*cond*/ if (/*_#_IF___L28*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:1123:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), (/*_#NEXTDEPTH__L26*/ meltfnum[14]), 0); } ; { MELT_LOCATION("warmelt-debug.melt:1124:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), ( "!*")); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1125:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[1].meltbp_long = /*_#NEXTDEPTH__L26*/ meltfnum[14]; /*_.DBG_OUT__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.CURSTR__V32*/ meltfptr[31]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-debug.melt:1126:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), ( " => ")); } ; { MELT_LOCATION("warmelt-debug.melt:1127:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), (/*_#NEXTDEPTH__L26*/ meltfnum[14]), 64); } ; /*_#plI__L30*/ meltfnum[11] = ((/*_#NEXTDEPTH__L26*/ meltfnum[14]) + (2));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1128:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[1].meltbp_long = /*_#plI__L30*/ meltfnum[11]; /*_.DBG_OUT__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.CURVAL__V33*/ meltfptr[32]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-debug.melt:1122:/ quasiblock"); /*_.PROGN___V37*/ meltfptr[36] = /*_.DBG_OUT__V36*/ meltfptr[35];; /*^compute*/ /*_._IF___V34*/ meltfptr[33] = /*_.PROGN___V37*/ meltfptr[36];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1122:/ clear"); /*clear*/ /*_.DBG_OUT__V35*/ meltfptr[34] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L30*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.DBG_OUT__V36*/ meltfptr[35] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V37*/ meltfptr[36] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V34*/ meltfptr[33] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_.LET___V31*/ meltfptr[27] = /*_._IF___V34*/ meltfptr[33];; MELT_LOCATION("warmelt-debug.melt:1118:/ clear"); /*clear*/ /*_.CURSTR__V32*/ meltfptr[31] = 0 ; /*^clear*/ /*clear*/ /*_.CURVAL__V33*/ meltfptr[32] = 0 ; /*^clear*/ /*clear*/ /*_#NEXTDEPTH__L26*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_#IS_STRING__L27*/ meltfnum[15] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L28*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V34*/ meltfptr[33] = 0 ; if (/*_#IX__L25*/ meltfnum[12]<0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog*/ MELT_LOCATION("warmelt-debug.melt:1115:/ clear"); /*clear*/ /*_.EL__V30*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_#IX__L25*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V31*/ meltfptr[27] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; MELT_LOCATION("warmelt-debug.melt:1098:/ clear"); /*clear*/ /*_.LAMBDA___V24*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.SORTUPL__V26*/ meltfptr[25] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V27*/ meltfptr[26] = 0 ; MELT_LOCATION("warmelt-debug.melt:1075:/ clear"); /*clear*/ /*_.AUX__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_#NOTNULL__L19*/ meltfnum[17] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L20*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_.LAMBDA___V21*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.MAPSTRING_EVERY__V23*/ meltfptr[22] = 0 ; /*epilog*/ } ; } /*noelse*/ ; { MELT_LOCATION("warmelt-debug.melt:1131:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), ( " )>")); } ; MELT_LOCATION("warmelt-debug.melt:1058:/ clear"); /*clear*/ /*_.DIS__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.SBUF__V11*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_#IX__L4*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_#MAPCOUNT__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.NEXTDEPTHBOX__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.COUNTBOX__V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.TUPL__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.DBGI_MAXDEPTH__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_#MAXDEPTH__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.ADD2OUT__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_#MELT_REALLY_NEED_DBGLIM__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L10*/ meltfnum[9] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1055:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBGOUT_MAPSTRING_METHOD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_31_WARMELTmiDEBUG_DBGOUT_MAPSTRING_METHOD_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_31_WARMELTmiDEBUG_DBGOUT_MAPSTRING_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_32_WARMELTmiDEBUG_LAMBDA_cl6(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_32_WARMELTmiDEBUG_LAMBDA_cl6_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1501 /* start of frame for routine meltrout_32_WARMELTmiDEBUG_LAMBDA_cl6 fromline 1715 */ /** start of frame for meltrout_32_WARMELTmiDEBUG_LAMBDA_cl6 of CLASS_PROCROUTINEOBJ from 1518**/ /*curframdeclclassy*/ class MeltFrame_meltrout_32_WARMELTmiDEBUG_LAMBDA_cl6// fromline 1531 : public Melt_CallFrameWithValues<6> { public: /* fromline 1535*/ long mcfr_varnum[2]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_32_WARMELTmiDEBUG_LAMBDA_cl6(meltclosure_ptr_t clos) //the closure constructor fromline 1593 : Melt_CallFrameWithValues<6> ( #if ENABLE_CHECKING /*fromline 1597*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1601*/ sizeof(MeltFrame_meltrout_32_WARMELTmiDEBUG_LAMBDA_cl6), clos) {}; MeltFrame_meltrout_32_WARMELTmiDEBUG_LAMBDA_cl6() //the constructor fromline 1605 : Melt_CallFrameWithValues<6> ( #if ENABLE_CHECKING /*fromline 1609*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1613*/ sizeof(MeltFrame_meltrout_32_WARMELTmiDEBUG_LAMBDA_cl6)) {}; #if ENABLE_CHECKING /*fromline 1617*/ MeltFrame_meltrout_32_WARMELTmiDEBUG_LAMBDA_cl6(const char*fil, int lin) //the constructor fromline 1619 : Melt_CallFrameWithValues<6> (fil,lin, sizeof(MeltFrame_meltrout_32_WARMELTmiDEBUG_LAMBDA_cl6)) {}; MeltFrame_meltrout_32_WARMELTmiDEBUG_LAMBDA_cl6(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1624 : Melt_CallFrameWithValues<6> (fil,lin, sizeof(MeltFrame_meltrout_32_WARMELTmiDEBUG_LAMBDA_cl6), clos) {}; #endif /* ENABLE_CHECKING fromline 1629*/ }; // end class MeltFrame_meltrout_32_WARMELTmiDEBUG_LAMBDA_cl6 /** end of frame for meltrout_32_WARMELTmiDEBUG_LAMBDA_cl6 fromline 1660**/ /* end of frame for routine meltrout_32_WARMELTmiDEBUG_LAMBDA_cl6 fromline 1719 */ /* classy proc frame meltrout_32_WARMELTmiDEBUG_LAMBDA_cl6 */ MeltFrame_meltrout_32_WARMELTmiDEBUG_LAMBDA_cl6 meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_32_WARMELTmiDEBUG_LAMBDA_cl6 fromline 1748*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1752*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1756*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("LAMBDA_cl6", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:1089:/ getarg"); /*_.STR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.VAL__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.VAL__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-debug.melt:1090:/ quasiblock"); /*_#CURCOUNT__L1*/ meltfnum[0] = (melt_get_int((melt_ptr_t)((/*~COUNTBOX*/ meltfclos->tabval[0]))));; /*^compute*/ /*_.MAKE_INTEGERBOX__V4*/ meltfptr[3] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[0])), (/*_#CURCOUNT__L1*/ meltfnum[0])));; MELT_LOCATION("warmelt-debug.melt:1091:/ blockmultialloc"); /*multiallocblock*/ { struct meltletrec_1_st { struct MELT_MULTIPLE_STRUCT(3) rtup_0__TUPLREC__x2; long meltletrec_1_endgap; } *meltletrec_1_ptr = 0; meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x2*/ /*_.TUPLREC___V6*/ meltfptr[5] = (melt_ptr_t) &meltletrec_1_ptr->rtup_0__TUPLREC__x2; meltletrec_1_ptr->rtup_0__TUPLREC__x2.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_1_ptr->rtup_0__TUPLREC__x2.nbval = 3; /*^putuple*/ /*putupl#4*/ melt_assertmsg("putupl [:1091] #4 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V6*/ meltfptr[5]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl [:1091] #4 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V6*/ meltfptr[5])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V6*/ meltfptr[5]))->tabval[0] = (melt_ptr_t)(/*_.STR__V2*/ meltfptr[1]); ; /*^putuple*/ /*putupl#5*/ melt_assertmsg("putupl [:1091] #5 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V6*/ meltfptr[5]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl [:1091] #5 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V6*/ meltfptr[5])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V6*/ meltfptr[5]))->tabval[1] = (melt_ptr_t)(/*_.VAL__V3*/ meltfptr[2]); ; /*^putuple*/ /*putupl#6*/ melt_assertmsg("putupl [:1091] #6 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V6*/ meltfptr[5]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl [:1091] #6 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V6*/ meltfptr[5])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V6*/ meltfptr[5]))->tabval[2] = (melt_ptr_t)(/*_.MAKE_INTEGERBOX__V4*/ meltfptr[3]); ; /*^touch*/ meltgc_touch(/*_.TUPLREC___V6*/ meltfptr[5]); ; /*_.ENT__V5*/ meltfptr[4] = /*_.TUPLREC___V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1091:/ clear"); /*clear*/ /*_.TUPLREC___V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.TUPLREC___V6*/ meltfptr[5] = 0 ; } /*end multiallocblock*/ ; { MELT_LOCATION("warmelt-debug.melt:1094:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)((/*~TUPL*/ meltfclos->tabval[1])), (/*_#CURCOUNT__L1*/ meltfnum[0]), (melt_ptr_t)(/*_.ENT__V5*/ meltfptr[4])); } ; /*_#plI__L2*/ meltfnum[1] = ((/*_#CURCOUNT__L1*/ meltfnum[0]) + (1));; { MELT_LOCATION("warmelt-debug.melt:1095:/ locexp"); melt_put_int((melt_ptr_t)((/*~COUNTBOX*/ meltfclos->tabval[0])), (/*_#plI__L2*/ meltfnum[1])); } ; MELT_LOCATION("warmelt-debug.melt:1090:/ clear"); /*clear*/ /*_#CURCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.MAKE_INTEGERBOX__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.ENT__V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L2*/ meltfnum[1] = 0 ; /*epilog*/ } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl6", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_32_WARMELTmiDEBUG_LAMBDA_cl6_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_32_WARMELTmiDEBUG_LAMBDA_cl6*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_WARMELTmiDEBUG_LAMBDA_cl7(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_33_WARMELTmiDEBUG_LAMBDA_cl7_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1501 /* start of frame for routine meltrout_33_WARMELTmiDEBUG_LAMBDA_cl7 fromline 1715 */ /** start of frame for meltrout_33_WARMELTmiDEBUG_LAMBDA_cl7 of CLASS_PROCROUTINEOBJ from 1518**/ /*curframdeclclassy*/ class MeltFrame_meltrout_33_WARMELTmiDEBUG_LAMBDA_cl7// fromline 1531 : public Melt_CallFrameWithValues<11> { public: /* fromline 1535*/ // no classy longs /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_33_WARMELTmiDEBUG_LAMBDA_cl7(meltclosure_ptr_t clos) //the closure constructor fromline 1593 : Melt_CallFrameWithValues<11> ( #if ENABLE_CHECKING /*fromline 1597*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1601*/ sizeof(MeltFrame_meltrout_33_WARMELTmiDEBUG_LAMBDA_cl7), clos) {}; MeltFrame_meltrout_33_WARMELTmiDEBUG_LAMBDA_cl7() //the constructor fromline 1605 : Melt_CallFrameWithValues<11> ( #if ENABLE_CHECKING /*fromline 1609*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1613*/ sizeof(MeltFrame_meltrout_33_WARMELTmiDEBUG_LAMBDA_cl7)) {}; #if ENABLE_CHECKING /*fromline 1617*/ MeltFrame_meltrout_33_WARMELTmiDEBUG_LAMBDA_cl7(const char*fil, int lin) //the constructor fromline 1619 : Melt_CallFrameWithValues<11> (fil,lin, sizeof(MeltFrame_meltrout_33_WARMELTmiDEBUG_LAMBDA_cl7)) {}; MeltFrame_meltrout_33_WARMELTmiDEBUG_LAMBDA_cl7(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1624 : Melt_CallFrameWithValues<11> (fil,lin, sizeof(MeltFrame_meltrout_33_WARMELTmiDEBUG_LAMBDA_cl7), clos) {}; #endif /* ENABLE_CHECKING fromline 1629*/ }; // end class MeltFrame_meltrout_33_WARMELTmiDEBUG_LAMBDA_cl7 /** end of frame for meltrout_33_WARMELTmiDEBUG_LAMBDA_cl7 fromline 1660**/ /* end of frame for routine meltrout_33_WARMELTmiDEBUG_LAMBDA_cl7 fromline 1719 */ /* classy proc frame meltrout_33_WARMELTmiDEBUG_LAMBDA_cl7 */ MeltFrame_meltrout_33_WARMELTmiDEBUG_LAMBDA_cl7 meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_33_WARMELTmiDEBUG_LAMBDA_cl7 fromline 1748*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1752*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1756*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("LAMBDA_cl7", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:1101:/ getarg"); /*_.E1__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.E2__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.E2__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-debug.melt:1102:/ quasiblock"); /*_.E1AT__V5*/ meltfptr[4] = (melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ meltfptr[1]), (0)));; /*^compute*/ /*_.E1VA__V6*/ meltfptr[5] = (melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ meltfptr[1]), (1)));; /*^compute*/ /*_.E1RK__V7*/ meltfptr[6] = (melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ meltfptr[1]), (2)));; /*^compute*/ /*_.E2AT__V8*/ meltfptr[7] = (melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ meltfptr[2]), (0)));; /*^compute*/ /*_.E2VA__V9*/ meltfptr[8] = (melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ meltfptr[2]), (1)));; /*^compute*/ /*_.E2RK__V10*/ meltfptr[9] = (melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ meltfptr[2]), (2)));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1109:/ apply"); /*apply*/ { union meltparam_un argtab[6]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.E1RK__V7*/ meltfptr[6]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.E2AT__V8*/ meltfptr[7]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.E2RK__V10*/ meltfptr[9]; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &(/*!konst_1*/ meltfrout->tabval[1]); /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*!konst_2*/ meltfrout->tabval[2]); /*^apply.arg*/ argtab[5].meltbp_aptr = (melt_ptr_t*) &(/*!konst_3*/ meltfrout->tabval[3]); /*_.COMPARE_OBJ_RANKED__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!COMPARE_OBJ_RANKED*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.E1AT__V5*/ meltfptr[4]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.LET___V4*/ meltfptr[3] = /*_.COMPARE_OBJ_RANKED__V11*/ meltfptr[10];; MELT_LOCATION("warmelt-debug.melt:1102:/ clear"); /*clear*/ /*_.E1AT__V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.E1VA__V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.E1RK__V7*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.E2AT__V8*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_.E2VA__V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.E2RK__V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.COMPARE_OBJ_RANKED__V11*/ meltfptr[10] = 0 ; MELT_LOCATION("warmelt-debug.melt:1101:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V4*/ meltfptr[3];; { MELT_LOCATION("warmelt-debug.melt:1101:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.LET___V4*/ meltfptr[3] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl7", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_33_WARMELTmiDEBUG_LAMBDA_cl7_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_33_WARMELTmiDEBUG_LAMBDA_cl7*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_34_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long melt_call_counter__; long melt_thiscallcounter__ ATTRIBUTE_UNUSED = ++ melt_call_counter__; #undef meltcallcount #define meltcallcount melt_thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif //// emitted by output_curframe_declstruct_init using OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1501 /* start of frame for routine meltrout_34_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD fromline 1715 */ /** start of frame for meltrout_34_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD of CLASS_PROCROUTINEOBJ from 1518**/ /*curframdeclclassy*/ class MeltFrame_meltrout_34_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD// fromline 1531 : public Melt_CallFrameWithValues<28> { public: /* fromline 1535*/ long mcfr_varnum[16]; /*classy others*/ long _meltsparel; void melt_mark_stuff (void) { } /*end melt_mark_stuff*/ virtual void melt_mark_ggc_data (void) { melt_mark_values (); melt_mark_stuff (); }; /*end melt_mark_ggc_data*/ MeltFrame_meltrout_34_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD(meltclosure_ptr_t clos) //the closure constructor fromline 1593 : Melt_CallFrameWithValues<28> ( #if ENABLE_CHECKING /*fromline 1597*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1601*/ sizeof(MeltFrame_meltrout_34_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD), clos) {}; MeltFrame_meltrout_34_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD() //the constructor fromline 1605 : Melt_CallFrameWithValues<28> ( #if ENABLE_CHECKING /*fromline 1609*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1613*/ sizeof(MeltFrame_meltrout_34_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD)) {}; #if ENABLE_CHECKING /*fromline 1617*/ MeltFrame_meltrout_34_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD(const char*fil, int lin) //the constructor fromline 1619 : Melt_CallFrameWithValues<28> (fil,lin, sizeof(MeltFrame_meltrout_34_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD)) {}; MeltFrame_meltrout_34_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1624 : Melt_CallFrameWithValues<28> (fil,lin, sizeof(MeltFrame_meltrout_34_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD), clos) {}; #endif /* ENABLE_CHECKING fromline 1629*/ }; // end class MeltFrame_meltrout_34_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD /** end of frame for meltrout_34_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD fromline 1660**/ /* end of frame for routine meltrout_34_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD fromline 1719 */ /* classy proc frame meltrout_34_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD */ MeltFrame_meltrout_34_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_34_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD fromline 1748*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1752*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1756*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBGOUT_BUCKETLONG_METHOD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:1137:/ getarg"); /*_.SELF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:1138:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-debug.melt:1138:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1138:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check dbgi"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1138; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1138:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1138:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:1139:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_BUCKETLONG__L3*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t) (/*_.SELF__V2*/ meltfptr[1])) == MELTOBMAG_BUCKETLONGS);; MELT_LOCATION("warmelt-debug.melt:1139:/ cond"); /*cond*/ if (/*_#IS_BUCKETLONG__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1139:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "check self"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-debug.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 1139; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1139:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1139:/ clear"); /*clear*/ /*_#IS_BUCKETLONG__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; MELT_LOCATION("warmelt-debug.melt:1140:/ quasiblock"); /*_.DIS__V11*/ meltfptr[4] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-debug.melt:1141:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 0, "DBGI_OUT"); /*_.SBUF__V12*/ meltfptr[11] = slot; }; ; /*_#IX__L4*/ meltfnum[1] = 0;; /*^compute*/ /*_#NEXTDEPTH__L5*/ meltfnum[4] = ((2) + (/*_#DEPTH__L1*/ meltfnum[0]));; /*^compute*/ /*_.NEXTDEPTHBOX__V13*/ meltfptr[12] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[2])), (/*_#NEXTDEPTH__L5*/ meltfnum[4])));; /*^compute*/ /*_.AUX__V14*/ meltfptr[13] = melt_longsbucket_aux((melt_ptr_t)/*_.SELF__V2*/ meltfptr[1]);; MELT_LOCATION("warmelt-debug.melt:1146:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 2, "DBGI_MAXDEPTH"); /*_.DBGI_MAXDEPTH__V15*/ meltfptr[14] = slot; }; ; } else /*^cond.else*/ { /*_.DBGI_MAXDEPTH__V15*/ meltfptr[14] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_#MAXDEPTH__L6*/ meltfnum[5] = (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V15*/ meltfptr[14])));; /*^compute*/ /*_#XNUM__L7*/ meltfnum[6] = melt_longsbucket_xnum ((melt_ptr_t) /*_.SELF__V2*/ meltfptr[1]);; MELT_LOCATION("warmelt-debug.melt:1149:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DIS__V11*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[4]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DIS__V11*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V16*/ meltfptr[15] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V16*/ meltfptr[15] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1149:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = ".bucklong/"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V16*/ meltfptr[15]; /*^apply.arg*/ argtab[2].meltbp_cstring = "!{"; /*_.ADD2OUT__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*_#lteqI__L8*/ meltfnum[7] = ((/*_#DEPTH__L1*/ meltfnum[0]) <= (0));; MELT_LOCATION("warmelt-debug.melt:1150:/ cond"); /*cond*/ if (/*_#lteqI__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*_#OR___L9*/ meltfnum[8] = /*_#lteqI__L8*/ meltfnum[7];; } else { MELT_LOCATION("warmelt-debug.melt:1150:/ cond.else"); /*^block*/ /*anyblock*/ { /*_#NOTNULL__L10*/ meltfnum[9] = ((/*_.AUX__V14*/ meltfptr[13]) != NULL);; /*^compute*/ /*_#OR___L9*/ meltfnum[8] = /*_#NOTNULL__L10*/ meltfnum[9];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1150:/ clear"); /*clear*/ /*_#NOTNULL__L10*/ meltfnum[9] = 0 ; } ; } ; /*^cond*/ /*cond*/ if (/*_#OR___L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:1151:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (/*_#NEXTDEPTH__L5*/ meltfnum[4]), 0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1152:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "*aux= "; /*_.ADD2OUT__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_#plI__L11*/ meltfnum[9] = ((/*_#NEXTDEPTH__L5*/ meltfnum[4]) + (2));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1153:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[1].meltbp_long = /*_#plI__L11*/ meltfnum[9]; /*_.DBG_OUT__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.AUX__V14*/ meltfptr[13]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-debug.melt:1150:/ quasiblock"); /*_.PROGN___V21*/ meltfptr[20] = /*_.DBG_OUT__V20*/ meltfptr[19];; /*^compute*/ /*_._IF___V18*/ meltfptr[17] = /*_.PROGN___V21*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1150:/ clear"); /*clear*/ /*_.ADD2OUT__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L11*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_.DBG_OUT__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V21*/ meltfptr[20] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V18*/ meltfptr[17] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#lteqI__L12*/ meltfnum[9] = ((/*_#DEPTH__L1*/ meltfnum[0]) <= (0));; MELT_LOCATION("warmelt-debug.melt:1155:/ cond"); /*cond*/ if (/*_#lteqI__L12*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*_#OR___L13*/ meltfnum[12] = /*_#lteqI__L12*/ meltfnum[9];; } else { MELT_LOCATION("warmelt-debug.melt:1155:/ cond.else"); /*_#OR___L13*/ meltfnum[12] = /*_#XNUM__L7*/ meltfnum[6];; } ; MELT_LOCATION("warmelt-debug.melt:1155:/ cond"); /*cond*/ if (/*_#OR___L13*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:1156:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (/*_#NEXTDEPTH__L5*/ meltfnum[4]), 0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1157:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "*xnum= "; /*^apply.arg*/ argtab[1].meltbp_long = /*_#XNUM__L7*/ meltfnum[6]; /*_.ADD2OUT__V23*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-debug.melt:1155:/ quasiblock"); /*_.PROGN___V24*/ meltfptr[20] = /*_.ADD2OUT__V23*/ meltfptr[19];; /*^compute*/ /*_._IF___V22*/ meltfptr[18] = /*_.PROGN___V24*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1155:/ clear"); /*clear*/ /*_.ADD2OUT__V23*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V24*/ meltfptr[20] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V22*/ meltfptr[18] = /*reallynil*/ NULL ;; } ; /*citerblock FOREACH_IN_BUCKETLONG*/ { /*foreach_in_bucketlong meltcit1__EACHBUCKLONG*/ unsigned meltcit1__EACHBUCKLONG_ix = 0, meltcit1__EACHBUCKLONG_cnt =0; /*_#KEY__L14*/ meltfnum[13] = 0L; /*_.VAL__V25*/ meltfptr[19] = NULL; for (meltcit1__EACHBUCKLONG_ix = 0; /* retrieve in meltcit1__EACHBUCKLONG iteration the count, it might change! */ (meltcit1__EACHBUCKLONG_cnt = melt_longsbucket_count ((melt_ptr_t) /*_.SELF__V2*/ meltfptr[1])) > 0 && meltcit1__EACHBUCKLONG_ix < meltcit1__EACHBUCKLONG_cnt; meltcit1__EACHBUCKLONG_ix++) { /*_#KEY__L14*/ meltfnum[13] = 0L; /*_.VAL__V25*/ meltfptr[19] = NULL; { struct melt_bucketlongentry_st* meltcit1__EACHBUCKLONG_buent = ((struct meltbucketlongs_st*)/*_.SELF__V2*/ meltfptr[1])->buckl_entab + meltcit1__EACHBUCKLONG_ix; if (!meltcit1__EACHBUCKLONG_buent->ebl_va) continue; /*_#KEY__L14*/ meltfnum[13] = meltcit1__EACHBUCKLONG_buent->ebl_at; /*_.VAL__V25*/ meltfptr[19] = meltcit1__EACHBUCKLONG_buent->ebl_va; meltcit1__EACHBUCKLONG_buent = NULL; } /*foreach_in_bucketlong meltcit1__EACHBUCKLONG body:*/ { MELT_LOCATION("warmelt-debug.melt:1162:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (/*_#NEXTDEPTH__L5*/ meltfnum[4]), 0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1163:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "* "; /*^apply.arg*/ argtab[1].meltbp_long = /*_#KEY__L14*/ meltfnum[13]; /*^apply.arg*/ argtab[2].meltbp_cstring = "= "; /*_.ADD2OUT__V26*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1164:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[1].meltbp_long = /*_#NEXTDEPTH__L5*/ meltfnum[4]; /*_.DBG_OUT__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.VAL__V25*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /* ending foreach_in_bucketlong meltcit1__EACHBUCKLONG*/ /*_#KEY__L14*/ meltfnum[13] = 0L; /*_.VAL__V25*/ meltfptr[19] = NULL; } /* end foreach_in_bucketlong meltcit1__EACHBUCKLONG_ix */ /*citerepilog*/ MELT_LOCATION("warmelt-debug.melt:1159:/ clear"); /*clear*/ /*_#KEY__L14*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_.VAL__V25*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.ADD2OUT__V26*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.DBG_OUT__V27*/ meltfptr[26] = 0 ; } /*endciterblock FOREACH_IN_BUCKETLONG*/ ; MELT_CHECK_SIGNAL(); ; /*_#BUCKETLONG_COUNT__L15*/ meltfnum[14] = melt_longsbucket_count ((melt_ptr_t) /*_.SELF__V2*/ meltfptr[1]);; MELT_LOCATION("warmelt-debug.melt:1166:/ cond"); /*cond*/ if (/*_#BUCKETLONG_COUNT__L15*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#plI__L16*/ meltfnum[15] = ((1) + (/*_#DEPTH__L1*/ meltfnum[0]));; { MELT_LOCATION("warmelt-debug.melt:1167:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (/*_#plI__L16*/ meltfnum[15]), 0); } ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1166:/ clear"); /*clear*/ /*_#plI__L16*/ meltfnum[15] = 0 ; } ; } /*noelse*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1168:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "}!"; /*_.ADD2OUT__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_.LET___V10*/ meltfptr[8] = /*_.ADD2OUT__V28*/ meltfptr[27];; MELT_LOCATION("warmelt-debug.melt:1140:/ clear"); /*clear*/ /*_.DIS__V11*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.SBUF__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_#IX__L4*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_#NEXTDEPTH__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.NEXTDEPTHBOX__V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.AUX__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.DBGI_MAXDEPTH__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_#MAXDEPTH__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_#XNUM__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.ADD2OUT__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_#lteqI__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_#OR___L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_#lteqI__L12*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_#OR___L13*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V22*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_#BUCKETLONG_COUNT__L15*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_.ADD2OUT__V28*/ meltfptr[27] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1137:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[8];; { MELT_LOCATION("warmelt-debug.melt:1137:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results(); /* we warned when secondary results are expected but not returned. */ #endif /*MELT_HAVE_DEBUG*/ ; } ; /*^finalreturn*/ ; /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V10*/ meltfptr[8] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBGOUT_BUCKETLONG_METHOD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_34_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_34_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD*/ /**** end of warmelt-debug+01.cc ****/