/* GCC MELT GENERATED C++ FILE warmelt-debug+02.cc - DO NOT EDIT - see http://gcc-melt.org/ */ /* secondary MELT generated C++ file of rank #2 */ #include "melt-run.h" /* used hash from melt-run.h when compiling this file: */ MELT_EXTERN const char meltrun_used_md5_melt_f2[] = MELT_RUN_HASHMD5 /* from melt-run.h */; /**** warmelt-debug+02.cc declarations ****/ /**** MELT GENERATED DECLARATIONS for warmelt-debug ** DO NOT EDIT ; see gcc-melt.org ****/ /****++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ *** Copyright 2009 - 2013 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_h894071254; // forward declaration fromline 6528 typedef Melt_InitialClassyFrame_WARMELTmiDEBUG_h894071254 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_DEBUG_MSG_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_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_3_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_4_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_5_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_6_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_7_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_8_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_9_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_10_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_11_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_12_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_13_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_14_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_15_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_16_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_17_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_18_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_19_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_20_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_21_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_22_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_23_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_24_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_25_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_26_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_27_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_28_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_29_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_30_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_31_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_32_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_33_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_34_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_35_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_36_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_37_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_38_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_39_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_40_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_41_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_42_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_43_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_44_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_45_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_46_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_47_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_48_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_49_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_50_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_51_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_52_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_53_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_54_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*/ /*declare opaque initial frame: */ typedef Melt_InitialClassyFrame_WARMELTmiDEBUG_h894071254 /*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+02.cc implementations ****/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_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_33_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:1490 /* start of frame for routine meltrout_33_WARMELTmiDEBUG_LAMBDA_cl6 fromline 1704 */ /** start of frame for meltrout_33_WARMELTmiDEBUG_LAMBDA_cl6 of CLASS_PROCROUTINEOBJ from 1507**/ /*curframdeclclassy*/ class MeltFrame_meltrout_33_WARMELTmiDEBUG_LAMBDA_cl6// fromline 1520 : public Melt_CallFrameWithValues<6> { public: /* fromline 1524*/ 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_33_WARMELTmiDEBUG_LAMBDA_cl6(meltclosure_ptr_t clos) //the closure constructor fromline 1582 : Melt_CallFrameWithValues<6> ( #if ENABLE_CHECKING /*fromline 1586*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1590*/ sizeof(MeltFrame_meltrout_33_WARMELTmiDEBUG_LAMBDA_cl6), clos) {}; MeltFrame_meltrout_33_WARMELTmiDEBUG_LAMBDA_cl6() //the constructor fromline 1594 : Melt_CallFrameWithValues<6> ( #if ENABLE_CHECKING /*fromline 1598*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1602*/ sizeof(MeltFrame_meltrout_33_WARMELTmiDEBUG_LAMBDA_cl6)) {}; #if ENABLE_CHECKING /*fromline 1606*/ MeltFrame_meltrout_33_WARMELTmiDEBUG_LAMBDA_cl6(const char*fil, int lin) //the constructor fromline 1608 : Melt_CallFrameWithValues<6> (fil,lin, sizeof(MeltFrame_meltrout_33_WARMELTmiDEBUG_LAMBDA_cl6)) {}; MeltFrame_meltrout_33_WARMELTmiDEBUG_LAMBDA_cl6(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1613 : Melt_CallFrameWithValues<6> (fil,lin, sizeof(MeltFrame_meltrout_33_WARMELTmiDEBUG_LAMBDA_cl6), clos) {}; #endif /* ENABLE_CHECKING fromline 1618*/ }; // end class MeltFrame_meltrout_33_WARMELTmiDEBUG_LAMBDA_cl6 /** end of frame for meltrout_33_WARMELTmiDEBUG_LAMBDA_cl6 fromline 1649**/ /* end of frame for routine meltrout_33_WARMELTmiDEBUG_LAMBDA_cl6 fromline 1708 */ /* classy proc frame meltrout_33_WARMELTmiDEBUG_LAMBDA_cl6 */ MeltFrame_meltrout_33_WARMELTmiDEBUG_LAMBDA_cl6 meltfram__ /*declfrastruct fromline 1732*/ /*classyprocarg meltrout_33_WARMELTmiDEBUG_LAMBDA_cl6 fromline 1737*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1741*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1745*/ #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:1173:/ 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:1174:/ 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:1175:/ 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 [:1175] #4 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V6*/ meltfptr[5]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl [:1175] #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 [:1175] #5 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V6*/ meltfptr[5]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl [:1175] #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 [:1175] #6 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V6*/ meltfptr[5]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl [:1175] #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:1175:/ clear"); /*clear*/ /*_.TUPLREC___V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.TUPLREC___V6*/ meltfptr[5] = 0 ; } /*end multiallocblock*/ ; { MELT_LOCATION("warmelt-debug.melt:1178:/ 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:1179:/ locexp"); melt_put_int((melt_ptr_t)((/*~COUNTBOX*/ meltfclos->tabval[0])), (/*_#plI__L2*/ meltfnum[1])); } ; MELT_LOCATION("warmelt-debug.melt:1174:/ 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_33_WARMELTmiDEBUG_LAMBDA_cl6_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_33_WARMELTmiDEBUG_LAMBDA_cl6*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_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_34_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:1490 /* start of frame for routine meltrout_34_WARMELTmiDEBUG_LAMBDA_cl7 fromline 1704 */ /** start of frame for meltrout_34_WARMELTmiDEBUG_LAMBDA_cl7 of CLASS_PROCROUTINEOBJ from 1507**/ /*curframdeclclassy*/ class MeltFrame_meltrout_34_WARMELTmiDEBUG_LAMBDA_cl7// fromline 1520 : public Melt_CallFrameWithValues<11> { public: /* fromline 1524*/ // 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_34_WARMELTmiDEBUG_LAMBDA_cl7(meltclosure_ptr_t clos) //the closure constructor fromline 1582 : Melt_CallFrameWithValues<11> ( #if ENABLE_CHECKING /*fromline 1586*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1590*/ sizeof(MeltFrame_meltrout_34_WARMELTmiDEBUG_LAMBDA_cl7), clos) {}; MeltFrame_meltrout_34_WARMELTmiDEBUG_LAMBDA_cl7() //the constructor fromline 1594 : Melt_CallFrameWithValues<11> ( #if ENABLE_CHECKING /*fromline 1598*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1602*/ sizeof(MeltFrame_meltrout_34_WARMELTmiDEBUG_LAMBDA_cl7)) {}; #if ENABLE_CHECKING /*fromline 1606*/ MeltFrame_meltrout_34_WARMELTmiDEBUG_LAMBDA_cl7(const char*fil, int lin) //the constructor fromline 1608 : Melt_CallFrameWithValues<11> (fil,lin, sizeof(MeltFrame_meltrout_34_WARMELTmiDEBUG_LAMBDA_cl7)) {}; MeltFrame_meltrout_34_WARMELTmiDEBUG_LAMBDA_cl7(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1613 : Melt_CallFrameWithValues<11> (fil,lin, sizeof(MeltFrame_meltrout_34_WARMELTmiDEBUG_LAMBDA_cl7), clos) {}; #endif /* ENABLE_CHECKING fromline 1618*/ }; // end class MeltFrame_meltrout_34_WARMELTmiDEBUG_LAMBDA_cl7 /** end of frame for meltrout_34_WARMELTmiDEBUG_LAMBDA_cl7 fromline 1649**/ /* end of frame for routine meltrout_34_WARMELTmiDEBUG_LAMBDA_cl7 fromline 1708 */ /* classy proc frame meltrout_34_WARMELTmiDEBUG_LAMBDA_cl7 */ MeltFrame_meltrout_34_WARMELTmiDEBUG_LAMBDA_cl7 meltfram__ /*declfrastruct fromline 1732*/ /*classyprocarg meltrout_34_WARMELTmiDEBUG_LAMBDA_cl7 fromline 1737*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1741*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1745*/ #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:1185:/ 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:1186:/ 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:1193:/ 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:1186:/ 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:1185:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V4*/ meltfptr[3];; { MELT_LOCATION("warmelt-debug.melt:1185:/ 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_34_WARMELTmiDEBUG_LAMBDA_cl7_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_34_WARMELTmiDEBUG_LAMBDA_cl7*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_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_35_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:1490 /* start of frame for routine meltrout_35_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD fromline 1704 */ /** start of frame for meltrout_35_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD of CLASS_PROCROUTINEOBJ from 1507**/ /*curframdeclclassy*/ class MeltFrame_meltrout_35_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD// fromline 1520 : public Melt_CallFrameWithValues<28> { public: /* fromline 1524*/ 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_35_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD(meltclosure_ptr_t clos) //the closure constructor fromline 1582 : Melt_CallFrameWithValues<28> ( #if ENABLE_CHECKING /*fromline 1586*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1590*/ sizeof(MeltFrame_meltrout_35_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD), clos) {}; MeltFrame_meltrout_35_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD() //the constructor fromline 1594 : Melt_CallFrameWithValues<28> ( #if ENABLE_CHECKING /*fromline 1598*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1602*/ sizeof(MeltFrame_meltrout_35_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD)) {}; #if ENABLE_CHECKING /*fromline 1606*/ MeltFrame_meltrout_35_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD(const char*fil, int lin) //the constructor fromline 1608 : Melt_CallFrameWithValues<28> (fil,lin, sizeof(MeltFrame_meltrout_35_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD)) {}; MeltFrame_meltrout_35_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1613 : Melt_CallFrameWithValues<28> (fil,lin, sizeof(MeltFrame_meltrout_35_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD), clos) {}; #endif /* ENABLE_CHECKING fromline 1618*/ }; // end class MeltFrame_meltrout_35_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD /** end of frame for meltrout_35_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD fromline 1649**/ /* end of frame for routine meltrout_35_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD fromline 1708 */ /* classy proc frame meltrout_35_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD */ MeltFrame_meltrout_35_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD meltfram__ /*declfrastruct fromline 1732*/ /*classyprocarg meltrout_35_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD fromline 1737*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1741*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1745*/ #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:1221:/ 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:1222:/ 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:1222:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1222:/ 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 = 1222; /*^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:1222:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1222:/ 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:1223:/ 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:1223:/ cond"); /*cond*/ if (/*_#IS_BUCKETLONG__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1223:/ 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 = 1223; /*^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:1223:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1223:/ 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:1224:/ quasiblock"); /*_.DIS__V11*/ meltfptr[4] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-debug.melt:1225:/ 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:1230:/ 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:1233:/ 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:1233:/ 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:1234:/ cond"); /*cond*/ if (/*_#lteqI__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*_#OR___L9*/ meltfnum[8] = /*_#lteqI__L8*/ meltfnum[7];; } else { MELT_LOCATION("warmelt-debug.melt:1234:/ 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:1234:/ clear"); /*clear*/ /*_#NOTNULL__L10*/ meltfnum[9] = 0 ; } ; } ; /*^cond*/ /*cond*/ if (/*_#OR___L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:1235:/ 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:1236:/ 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:1237:/ 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:1234:/ 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:1234:/ 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:1239:/ cond"); /*cond*/ if (/*_#lteqI__L12*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*_#OR___L13*/ meltfnum[12] = /*_#lteqI__L12*/ meltfnum[9];; } else { MELT_LOCATION("warmelt-debug.melt:1239:/ cond.else"); /*_#OR___L13*/ meltfnum[12] = /*_#XNUM__L7*/ meltfnum[6];; } ; MELT_LOCATION("warmelt-debug.melt:1239:/ cond"); /*cond*/ if (/*_#OR___L13*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:1240:/ 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:1241:/ 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:1239:/ quasiblock"); /*_.PROGN___V24*/ meltfptr[20] = /*_.ADD2OUT__V23*/ meltfptr[19];; /*^compute*/ /*_._IF___V22*/ meltfptr[18] = /*_.PROGN___V24*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1239:/ 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:1246:/ 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:1247:/ 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:1248:/ 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:1243:/ 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:1250:/ 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:1251:/ locexp"); meltgc_strbuf_add_indent((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (/*_#plI__L16*/ meltfnum[15]), 0); } ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1250:/ clear"); /*clear*/ /*_#plI__L16*/ meltfnum[15] = 0 ; } ; } /*noelse*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1252:/ 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:1224:/ 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:1221:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[8];; { MELT_LOCATION("warmelt-debug.melt:1221:/ 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_35_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_35_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_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_) { long current_blocklevel_signals_meltrout_36_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_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:1490 /* start of frame for routine meltrout_36_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD fromline 1704 */ /** start of frame for meltrout_36_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD of CLASS_PROCROUTINEOBJ from 1507**/ /*curframdeclclassy*/ class MeltFrame_meltrout_36_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD// fromline 1520 : public Melt_CallFrameWithValues<14> { public: /* fromline 1524*/ 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_36_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD(meltclosure_ptr_t clos) //the closure constructor fromline 1582 : Melt_CallFrameWithValues<14> ( #if ENABLE_CHECKING /*fromline 1586*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1590*/ sizeof(MeltFrame_meltrout_36_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD), clos) {}; MeltFrame_meltrout_36_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD() //the constructor fromline 1594 : Melt_CallFrameWithValues<14> ( #if ENABLE_CHECKING /*fromline 1598*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1602*/ sizeof(MeltFrame_meltrout_36_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD)) {}; #if ENABLE_CHECKING /*fromline 1606*/ MeltFrame_meltrout_36_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD(const char*fil, int lin) //the constructor fromline 1608 : Melt_CallFrameWithValues<14> (fil,lin, sizeof(MeltFrame_meltrout_36_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD)) {}; MeltFrame_meltrout_36_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1613 : Melt_CallFrameWithValues<14> (fil,lin, sizeof(MeltFrame_meltrout_36_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD), clos) {}; #endif /* ENABLE_CHECKING fromline 1618*/ }; // end class MeltFrame_meltrout_36_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD /** end of frame for meltrout_36_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD fromline 1649**/ /* end of frame for routine meltrout_36_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD fromline 1708 */ /* classy proc frame meltrout_36_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD */ MeltFrame_meltrout_36_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD meltfram__ /*declfrastruct fromline 1732*/ /*classyprocarg meltrout_36_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD fromline 1737*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1741*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1745*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBGOUT_ANYOBJECT_METHOD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:1258:/ 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:1259:/ 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:1259:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1259:/ 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 = 1259; /*^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:1259:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1259:/ 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:1260:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_OBJECT__L3*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])) == MELTOBMAG_OBJECT);; MELT_LOCATION("warmelt-debug.melt:1260:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1260:/ 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 = 1260; /*^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:1260:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1260:/ clear"); /*clear*/ /*_#IS_OBJECT__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:1261:/ quasiblock"); /*_.DIS__V10*/ meltfptr[8] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-debug.melt:1262:/ 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:1263:/ 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:1264:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), ( "|")); } ; MELT_LOCATION("warmelt-debug.melt:1265:/ 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:1266:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), ( "/")); } ; /*_#OBJ_HASH__L5*/ meltfnum[4] = (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));; { MELT_LOCATION("warmelt-debug.melt:1267:/ locexp"); meltgc_add_strbuf_hex((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (/*_#OBJ_HASH__L5*/ meltfnum[4])); } ; MELT_LOCATION("warmelt-debug.melt:1268:/ quasiblock"); /*_#ONUM__L6*/ meltfnum[5] = (melt_get_int((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1270:/ cond"); /*cond*/ if (/*_#ONUM__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:1271:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), ( "#")); } ; { MELT_LOCATION("warmelt-debug.melt:1272:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (/*_#ONUM__L6*/ meltfnum[5])); } ; MELT_LOCATION("warmelt-debug.melt:1270:/ quasiblock"); /*epilog*/ } ; } /*noelse*/ ; MELT_LOCATION("warmelt-debug.melt:1268:/ clear"); /*clear*/ /*_#ONUM__L6*/ meltfnum[5] = 0 ; MELT_CHECK_SIGNAL(); ; /*_#plI__L7*/ meltfnum[5] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));; /*^compute*/ /*_#ltI__L8*/ meltfnum[7] = ((/*_#plI__L7*/ meltfnum[5]) < (/*_#MAXDEPTH__L4*/ meltfnum[1]));; MELT_LOCATION("warmelt-debug.melt:1274:/ cond"); /*cond*/ if (/*_#ltI__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:1275:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), ( "{")); } ; /*_#plI__L9*/ meltfnum[8] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1276:/ apply"); /*apply*/ { union meltparam_un argtab[4]; 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__L9*/ meltfnum[8]; /*^apply.arg*/ argtab[2].meltbp_long = 0; /*^apply.arg*/ argtab[3].meltbp_long = 0; /*_.DBGOUT_FIELDS__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_FIELDS*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-debug.melt:1277:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), ( "}")); } ; MELT_LOCATION("warmelt-debug.melt:1274:/ quasiblock"); /*epilog*/ /*^clear*/ /*clear*/ /*_#plI__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.DBGOUT_FIELDS__V14*/ meltfptr[13] = 0 ; } ; } /*noelse*/ ; MELT_LOCATION("warmelt-debug.melt:1261:/ 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*/ /*_.NAMED_NAME__V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_#OBJ_HASH__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L7*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_#ltI__L8*/ meltfnum[7] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1258:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBGOUT_ANYOBJECT_METHOD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_36_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_36_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_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_) { long current_blocklevel_signals_meltrout_37_WARMELTmiDEBUG_DBGOUT_ANYRECV_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:1490 /* start of frame for routine meltrout_37_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD fromline 1704 */ /** start of frame for meltrout_37_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD of CLASS_PROCROUTINEOBJ from 1507**/ /*curframdeclclassy*/ class MeltFrame_meltrout_37_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD// fromline 1520 : public Melt_CallFrameWithValues<9> { public: /* fromline 1524*/ 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_37_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD(meltclosure_ptr_t clos) //the closure constructor fromline 1582 : Melt_CallFrameWithValues<9> ( #if ENABLE_CHECKING /*fromline 1586*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1590*/ sizeof(MeltFrame_meltrout_37_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD), clos) {}; MeltFrame_meltrout_37_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD() //the constructor fromline 1594 : Melt_CallFrameWithValues<9> ( #if ENABLE_CHECKING /*fromline 1598*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1602*/ sizeof(MeltFrame_meltrout_37_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD)) {}; #if ENABLE_CHECKING /*fromline 1606*/ MeltFrame_meltrout_37_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD(const char*fil, int lin) //the constructor fromline 1608 : Melt_CallFrameWithValues<9> (fil,lin, sizeof(MeltFrame_meltrout_37_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD)) {}; MeltFrame_meltrout_37_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1613 : Melt_CallFrameWithValues<9> (fil,lin, sizeof(MeltFrame_meltrout_37_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD), clos) {}; #endif /* ENABLE_CHECKING fromline 1618*/ }; // end class MeltFrame_meltrout_37_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD /** end of frame for meltrout_37_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD fromline 1649**/ /* end of frame for routine meltrout_37_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD fromline 1708 */ /* classy proc frame meltrout_37_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD */ MeltFrame_meltrout_37_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD meltfram__ /*declfrastruct fromline 1732*/ /*classyprocarg meltrout_37_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD fromline 1737*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1741*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1745*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBGOUT_ANYRECV_METHOD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:1283:/ 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:1284:/ 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:1284:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1284:/ 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 = 1284; /*^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:1284:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1284:/ 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:1285:/ quasiblock"); /*_.DIS__V7*/ meltfptr[5] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-debug.melt:1286:/ 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:1287:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), ( " ?.")); } ; MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.DIS__V7*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-debug.melt:1288:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^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]))); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.NAMED_NAME__V9*/ meltfptr[8] = 0 ; } ; } /*noelse*/ ; { MELT_LOCATION("warmelt-debug.melt:1289:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), ( ".? ")); } ; MELT_LOCATION("warmelt-debug.melt:1285:/ clear"); /*clear*/ /*_.DIS__V7*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.SBUF__V8*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1283:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBGOUT_ANYRECV_METHOD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_37_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_37_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_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_) { long current_blocklevel_signals_meltrout_38_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_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:1490 /* start of frame for routine meltrout_38_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD fromline 1704 */ /** start of frame for meltrout_38_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD of CLASS_PROCROUTINEOBJ from 1507**/ /*curframdeclclassy*/ class MeltFrame_meltrout_38_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD// fromline 1520 : public Melt_CallFrameWithValues<12> { public: /* fromline 1524*/ 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_38_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD(meltclosure_ptr_t clos) //the closure constructor fromline 1582 : Melt_CallFrameWithValues<12> ( #if ENABLE_CHECKING /*fromline 1586*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1590*/ sizeof(MeltFrame_meltrout_38_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD), clos) {}; MeltFrame_meltrout_38_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD() //the constructor fromline 1594 : Melt_CallFrameWithValues<12> ( #if ENABLE_CHECKING /*fromline 1598*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1602*/ sizeof(MeltFrame_meltrout_38_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD)) {}; #if ENABLE_CHECKING /*fromline 1606*/ MeltFrame_meltrout_38_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD(const char*fil, int lin) //the constructor fromline 1608 : Melt_CallFrameWithValues<12> (fil,lin, sizeof(MeltFrame_meltrout_38_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD)) {}; MeltFrame_meltrout_38_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1613 : Melt_CallFrameWithValues<12> (fil,lin, sizeof(MeltFrame_meltrout_38_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD), clos) {}; #endif /* ENABLE_CHECKING fromline 1618*/ }; // end class MeltFrame_meltrout_38_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD /** end of frame for meltrout_38_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD fromline 1649**/ /* end of frame for routine meltrout_38_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD fromline 1708 */ /* classy proc frame meltrout_38_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD */ MeltFrame_meltrout_38_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD meltfram__ /*declfrastruct fromline 1732*/ /*classyprocarg meltrout_38_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD fromline 1737*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1741*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1745*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBGOUTAGAIN_ANYOBJECT_METHOD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:1294:/ 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:1295:/ 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:1295:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1295:/ 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 = 1295; /*^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:1295:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1295:/ 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:1296:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_OBJECT__L3*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])) == MELTOBMAG_OBJECT);; MELT_LOCATION("warmelt-debug.melt:1296:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1296:/ 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 = 1296; /*^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:1296:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1296:/ clear"); /*clear*/ /*_#IS_OBJECT__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:1297:/ quasiblock"); /*_.DIS__V10*/ meltfptr[8] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-debug.melt:1298:/ 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; }; ; /*_#ONUM__L4*/ meltfnum[1] = (melt_obj_num((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));; { MELT_LOCATION("warmelt-debug.melt:1301:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), ( "^^|")); } ; MELT_LOCATION("warmelt-debug.melt:1302:/ 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__V12*/ meltfptr[11] = slot; }; ; { /*^locexp*/ /*add2sbuf_string*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V12*/ meltfptr[11]))); } ; { MELT_LOCATION("warmelt-debug.melt:1303:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), ( "/")); } ; /*_#OBJ_HASH__L5*/ meltfnum[4] = (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));; { MELT_LOCATION("warmelt-debug.melt:1304:/ locexp"); meltgc_add_strbuf_hex((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), (/*_#OBJ_HASH__L5*/ meltfnum[4])); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1305:/ cond"); /*cond*/ if (/*_#ONUM__L4*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:1306:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), ( "#")); } ; { MELT_LOCATION("warmelt-debug.melt:1307:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), (/*_#ONUM__L4*/ meltfnum[1])); } ; MELT_LOCATION("warmelt-debug.melt:1305:/ quasiblock"); /*epilog*/ } ; } /*noelse*/ ; MELT_LOCATION("warmelt-debug.melt:1297:/ clear"); /*clear*/ /*_.DIS__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.SBUF__V11*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_#ONUM__L4*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_#OBJ_HASH__L5*/ meltfnum[4] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1294:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBGOUTAGAIN_ANYOBJECT_METHOD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_38_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_38_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_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_) { long current_blocklevel_signals_meltrout_39_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_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:1490 /* start of frame for routine meltrout_39_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD fromline 1704 */ /** start of frame for meltrout_39_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD of CLASS_PROCROUTINEOBJ from 1507**/ /*curframdeclclassy*/ class MeltFrame_meltrout_39_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD// fromline 1520 : public Melt_CallFrameWithValues<22> { public: /* fromline 1524*/ long mcfr_varnum[10]; /*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_39_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD(meltclosure_ptr_t clos) //the closure constructor fromline 1582 : Melt_CallFrameWithValues<22> ( #if ENABLE_CHECKING /*fromline 1586*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1590*/ sizeof(MeltFrame_meltrout_39_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD), clos) {}; MeltFrame_meltrout_39_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD() //the constructor fromline 1594 : Melt_CallFrameWithValues<22> ( #if ENABLE_CHECKING /*fromline 1598*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1602*/ sizeof(MeltFrame_meltrout_39_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD)) {}; #if ENABLE_CHECKING /*fromline 1606*/ MeltFrame_meltrout_39_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD(const char*fil, int lin) //the constructor fromline 1608 : Melt_CallFrameWithValues<22> (fil,lin, sizeof(MeltFrame_meltrout_39_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD)) {}; MeltFrame_meltrout_39_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1613 : Melt_CallFrameWithValues<22> (fil,lin, sizeof(MeltFrame_meltrout_39_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD), clos) {}; #endif /* ENABLE_CHECKING fromline 1618*/ }; // end class MeltFrame_meltrout_39_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD /** end of frame for meltrout_39_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD fromline 1649**/ /* end of frame for routine meltrout_39_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD fromline 1708 */ /* classy proc frame meltrout_39_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD */ MeltFrame_meltrout_39_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD meltfram__ /*declfrastruct fromline 1732*/ /*classyprocarg meltrout_39_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD fromline 1737*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1741*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1745*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBGOUT_NAMEDOBJECT_METHOD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:1312:/ 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:1313:/ 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:1313:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1313:/ 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 = 1313; /*^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:1313:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1313:/ 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:1314:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-debug.melt:1314:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1314:/ 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 = 1314; /*^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:1314:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1314:/ clear"); /*clear*/ /*_#IS_A__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:1315:/ quasiblock"); /*_.DIS__V10*/ meltfptr[8] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-debug.melt:1316:/ 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; }; ; MELT_LOCATION("warmelt-debug.melt:1317:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.ONAM__V12*/ meltfptr[11] = slot; }; ; MELT_LOCATION("warmelt-debug.melt:1318:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "PROP_TABLE"); /*_.OPROP__V13*/ meltfptr[12] = slot; }; ; MELT_LOCATION("warmelt-debug.melt:1319:/ 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__L4*/ meltfnum[1] = (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V14*/ meltfptr[13])));; #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:1321:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_OUT__L5*/ meltfnum[4] = (melt_is_out ((melt_ptr_t) /*_.OUT__V11*/ meltfptr[4])) ;; MELT_LOCATION("warmelt-debug.melt:1321:/ cond"); /*cond*/ if (/*_#IS_OUT__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V16*/ meltfptr[15] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1321:/ 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 = 1321; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUT__V11*/ meltfptr[4]; /*_.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:1321:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16] = 0 ; } ; } ; /*_.IFCPP___V15*/ meltfptr[14] = /*_._IFELSE___V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1321:/ clear"); /*clear*/ /*_#IS_OUT__L5*/ meltfnum[4] = 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_LOCATION("warmelt-debug.melt:1322:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( "`")); } ; { MELT_LOCATION("warmelt-debug.melt:1323:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), melt_string_str((melt_ptr_t)(/*_.ONAM__V12*/ meltfptr[11]))); } ; { MELT_LOCATION("warmelt-debug.melt:1324:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( "|")); } ; MELT_LOCATION("warmelt-debug.melt:1325:/ 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__V18*/ meltfptr[16] = slot; }; ; { /*^locexp*/ meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V18*/ meltfptr[16]))); } ; { MELT_LOCATION("warmelt-debug.melt:1326:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( "/")); } ; /*_#OBJ_HASH__L6*/ meltfnum[4] = (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));; { MELT_LOCATION("warmelt-debug.melt:1327:/ locexp"); meltgc_add_out_hex((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), (/*_#OBJ_HASH__L6*/ meltfnum[4])); } ; MELT_CHECK_SIGNAL(); ; /*_#ltI__L7*/ meltfnum[6] = ((/*_#DEPTH__L1*/ meltfnum[0]) < (/*_#MAXDEPTH__L4*/ meltfnum[1]));; MELT_LOCATION("warmelt-debug.melt:1328:/ cond"); /*cond*/ if (/*_#ltI__L7*/ meltfnum[6]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-debug.melt:1329:/ quasiblock"); /*_#ONUM__L8*/ meltfnum[7] = (melt_obj_num((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1331:/ cond"); /*cond*/ if (/*_#ONUM__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:1333:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( "#")); } ; { MELT_LOCATION("warmelt-debug.melt:1334:/ locexp"); meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), (/*_#ONUM__L8*/ meltfnum[7])); } ; MELT_LOCATION("warmelt-debug.melt:1332:/ quasiblock"); /*epilog*/ } ; } /*noelse*/ ; { MELT_LOCATION("warmelt-debug.melt:1335:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( "{")); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1336:/ cond"); /*cond*/ if (/*_.OPROP__V13*/ meltfptr[12]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:1338:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( "prop=")); } ; /*_#plI__L9*/ meltfnum[8] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (3));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1339:/ 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__L9*/ meltfnum[8]; /*_.DBG_OUT__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.OPROP__V13*/ meltfptr[12]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-debug.melt:1337:/ quasiblock"); /*_.PROGN___V21*/ meltfptr[20] = /*_.DBG_OUT__V20*/ meltfptr[19];; /*^compute*/ /*_._IF___V19*/ meltfptr[15] = /*_.PROGN___V21*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1336:/ clear"); /*clear*/ /*_#plI__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.DBG_OUT__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V21*/ meltfptr[20] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V19*/ meltfptr[15] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_#plI__L10*/ meltfnum[8] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (3));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1341:/ apply"); /*apply*/ { union meltparam_un argtab[4]; 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__L10*/ meltfnum[8]; /*^apply.arg*/ argtab[2].meltbp_long = 2; /*^apply.arg*/ argtab[3].meltbp_long = 0; /*_.DBGOUT_FIELDS__V22*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_FIELDS*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-debug.melt:1342:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( "}")); } ; MELT_LOCATION("warmelt-debug.melt:1329:/ clear"); /*clear*/ /*_#ONUM__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V19*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L10*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.DBGOUT_FIELDS__V22*/ meltfptr[19] = 0 ; /*epilog*/ } ; } /*noelse*/ ; MELT_LOCATION("warmelt-debug.melt:1315:/ clear"); /*clear*/ /*_.DIS__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.OUT__V11*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.ONAM__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.OPROP__V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.DBGI_MAXDEPTH__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_#MAXDEPTH__L4*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V18*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_#OBJ_HASH__L6*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_#ltI__L7*/ meltfnum[6] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1312:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBGOUT_NAMEDOBJECT_METHOD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_39_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_39_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_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_) { long current_blocklevel_signals_meltrout_40_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_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:1490 /* start of frame for routine meltrout_40_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD fromline 1704 */ /** start of frame for meltrout_40_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD of CLASS_PROCROUTINEOBJ from 1507**/ /*curframdeclclassy*/ class MeltFrame_meltrout_40_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD// fromline 1520 : public Melt_CallFrameWithValues<13> { public: /* fromline 1524*/ long mcfr_varnum[4]; /*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_40_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD(meltclosure_ptr_t clos) //the closure constructor fromline 1582 : Melt_CallFrameWithValues<13> ( #if ENABLE_CHECKING /*fromline 1586*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1590*/ sizeof(MeltFrame_meltrout_40_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD), clos) {}; MeltFrame_meltrout_40_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD() //the constructor fromline 1594 : Melt_CallFrameWithValues<13> ( #if ENABLE_CHECKING /*fromline 1598*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1602*/ sizeof(MeltFrame_meltrout_40_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD)) {}; #if ENABLE_CHECKING /*fromline 1606*/ MeltFrame_meltrout_40_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD(const char*fil, int lin) //the constructor fromline 1608 : Melt_CallFrameWithValues<13> (fil,lin, sizeof(MeltFrame_meltrout_40_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD)) {}; MeltFrame_meltrout_40_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1613 : Melt_CallFrameWithValues<13> (fil,lin, sizeof(MeltFrame_meltrout_40_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD), clos) {}; #endif /* ENABLE_CHECKING fromline 1618*/ }; // end class MeltFrame_meltrout_40_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD /** end of frame for meltrout_40_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD fromline 1649**/ /* end of frame for routine meltrout_40_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD fromline 1708 */ /* classy proc frame meltrout_40_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD */ MeltFrame_meltrout_40_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD meltfram__ /*declfrastruct fromline 1732*/ /*classyprocarg meltrout_40_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD fromline 1737*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1741*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1745*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBGOUTAGAIN_NAMEDOBJECT_METHOD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:1349:/ 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:1350:/ 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:1350:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1350:/ 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 = 1350; /*^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:1350:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1350:/ 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:1351:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-debug.melt:1351:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1351:/ 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 = 1351; /*^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:1351:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1351:/ clear"); /*clear*/ /*_#IS_A__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:1352:/ quasiblock"); /*_.DIS__V10*/ meltfptr[8] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-debug.melt:1353:/ 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; }; ; MELT_LOCATION("warmelt-debug.melt:1354:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.ONAM__V12*/ meltfptr[11] = slot; }; ; { MELT_LOCATION("warmelt-debug.melt:1356:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( "^^`")); } ; { MELT_LOCATION("warmelt-debug.melt:1357:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), melt_string_str((melt_ptr_t)(/*_.ONAM__V12*/ meltfptr[11]))); } ; { MELT_LOCATION("warmelt-debug.melt:1358:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( "|")); } ; MELT_LOCATION("warmelt-debug.melt:1359:/ 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*/ meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V13*/ meltfptr[12]))); } ; { MELT_LOCATION("warmelt-debug.melt:1360:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( "/")); } ; /*_#OBJ_HASH__L4*/ meltfnum[1] = (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));; { MELT_LOCATION("warmelt-debug.melt:1361:/ locexp"); meltgc_add_out_hex((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), (/*_#OBJ_HASH__L4*/ meltfnum[1])); } ; MELT_LOCATION("warmelt-debug.melt:1352:/ clear"); /*clear*/ /*_.DIS__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.OUT__V11*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.ONAM__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_#OBJ_HASH__L4*/ meltfnum[1] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1349:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBGOUTAGAIN_NAMEDOBJECT_METHOD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_40_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_40_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_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_) { long current_blocklevel_signals_meltrout_41_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_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:1490 /* start of frame for routine meltrout_41_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD fromline 1704 */ /** start of frame for meltrout_41_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD of CLASS_PROCROUTINEOBJ from 1507**/ /*curframdeclclassy*/ class MeltFrame_meltrout_41_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD// fromline 1520 : public Melt_CallFrameWithValues<11> { public: /* fromline 1524*/ 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_41_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD(meltclosure_ptr_t clos) //the closure constructor fromline 1582 : Melt_CallFrameWithValues<11> ( #if ENABLE_CHECKING /*fromline 1586*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1590*/ sizeof(MeltFrame_meltrout_41_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD), clos) {}; MeltFrame_meltrout_41_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD() //the constructor fromline 1594 : Melt_CallFrameWithValues<11> ( #if ENABLE_CHECKING /*fromline 1598*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1602*/ sizeof(MeltFrame_meltrout_41_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD)) {}; #if ENABLE_CHECKING /*fromline 1606*/ MeltFrame_meltrout_41_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD(const char*fil, int lin) //the constructor fromline 1608 : Melt_CallFrameWithValues<11> (fil,lin, sizeof(MeltFrame_meltrout_41_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD)) {}; MeltFrame_meltrout_41_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1613 : Melt_CallFrameWithValues<11> (fil,lin, sizeof(MeltFrame_meltrout_41_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD), clos) {}; #endif /* ENABLE_CHECKING fromline 1618*/ }; // end class MeltFrame_meltrout_41_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD /** end of frame for meltrout_41_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD fromline 1649**/ /* end of frame for routine meltrout_41_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD fromline 1708 */ /* classy proc frame meltrout_41_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD */ MeltFrame_meltrout_41_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD meltfram__ /*declfrastruct fromline 1732*/ /*classyprocarg meltrout_41_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD fromline 1737*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1741*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1745*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBGOUTAGAIN_SYMBOL_METHOD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:1367:/ 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:1368:/ 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:1368:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1368:/ 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 = 1368; /*^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:1368:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1368:/ 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:1369:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-debug.melt:1369:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1369:/ 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 = 1369; /*^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:1369:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1369:/ clear"); /*clear*/ /*_#IS_A__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:1370:/ 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__V10*/ meltfptr[8] = slot; }; ; MELT_LOCATION("warmelt-debug.melt:1371:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.ONAM__V11*/ meltfptr[4] = slot; }; ; /*_#SNUM__L4*/ meltfnum[1] = (melt_get_int((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));; { MELT_LOCATION("warmelt-debug.melt:1374:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V10*/ meltfptr[8]), ( "$")); } ; { MELT_LOCATION("warmelt-debug.melt:1375:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V10*/ meltfptr[8]), melt_string_str((melt_ptr_t)(/*_.ONAM__V11*/ meltfptr[4]))); } ; { MELT_LOCATION("warmelt-debug.melt:1376:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V10*/ meltfptr[8]), ( "/")); } ; /*_#OBJ_HASH__L5*/ meltfnum[4] = (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));; { MELT_LOCATION("warmelt-debug.melt:1377:/ locexp"); meltgc_add_out_hex((melt_ptr_t)(/*_.OUT__V10*/ meltfptr[8]), (/*_#OBJ_HASH__L5*/ meltfnum[4])); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1378:/ cond"); /*cond*/ if (/*_#SNUM__L4*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:1380:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V10*/ meltfptr[8]), ( "#")); } ; { MELT_LOCATION("warmelt-debug.melt:1381:/ locexp"); meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V10*/ meltfptr[8]), (/*_#SNUM__L4*/ meltfnum[1])); } ; MELT_LOCATION("warmelt-debug.melt:1379:/ quasiblock"); /*epilog*/ } ; } /*noelse*/ ; MELT_LOCATION("warmelt-debug.melt:1370:/ clear"); /*clear*/ /*_.OUT__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.ONAM__V11*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_#SNUM__L4*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_#OBJ_HASH__L5*/ meltfnum[4] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1367:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBGOUTAGAIN_SYMBOL_METHOD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_41_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_41_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_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_) { long current_blocklevel_signals_meltrout_42_WARMELTmiDEBUG_DBGOUT_SYMBOL_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:1490 /* start of frame for routine meltrout_42_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD fromline 1704 */ /** start of frame for meltrout_42_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD of CLASS_PROCROUTINEOBJ from 1507**/ /*curframdeclclassy*/ class MeltFrame_meltrout_42_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD// fromline 1520 : public Melt_CallFrameWithValues<12> { public: /* fromline 1524*/ long mcfr_varnum[4]; /*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_42_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD(meltclosure_ptr_t clos) //the closure constructor fromline 1582 : Melt_CallFrameWithValues<12> ( #if ENABLE_CHECKING /*fromline 1586*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1590*/ sizeof(MeltFrame_meltrout_42_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD), clos) {}; MeltFrame_meltrout_42_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD() //the constructor fromline 1594 : Melt_CallFrameWithValues<12> ( #if ENABLE_CHECKING /*fromline 1598*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1602*/ sizeof(MeltFrame_meltrout_42_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD)) {}; #if ENABLE_CHECKING /*fromline 1606*/ MeltFrame_meltrout_42_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD(const char*fil, int lin) //the constructor fromline 1608 : Melt_CallFrameWithValues<12> (fil,lin, sizeof(MeltFrame_meltrout_42_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD)) {}; MeltFrame_meltrout_42_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1613 : Melt_CallFrameWithValues<12> (fil,lin, sizeof(MeltFrame_meltrout_42_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD), clos) {}; #endif /* ENABLE_CHECKING fromline 1618*/ }; // end class MeltFrame_meltrout_42_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD /** end of frame for meltrout_42_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD fromline 1649**/ /* end of frame for routine meltrout_42_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD fromline 1708 */ /* classy proc frame meltrout_42_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD */ MeltFrame_meltrout_42_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD meltfram__ /*declfrastruct fromline 1732*/ /*classyprocarg meltrout_42_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD fromline 1737*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1741*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1745*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBGOUT_SYMBOL_METHOD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:1385:/ 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:1386:/ 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:1386:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1386:/ 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 = 1386; /*^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:1386:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1386:/ 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:1387:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-debug.melt:1387:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1387:/ 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 = 1387; /*^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:1387:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1387:/ clear"); /*clear*/ /*_#IS_A__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_CHECK_SIGNAL(); ; /*^compute*/ /*_#lteqI__L4*/ meltfnum[1] = ((/*_#DEPTH__L1*/ meltfnum[0]) <= (0));; MELT_LOCATION("warmelt-debug.melt:1388:/ cond"); /*cond*/ if (/*_#lteqI__L4*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1389:/ 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 = 0; /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_NAMEDOBJECT_METHOD*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V10*/ meltfptr[8] = /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1388:/ clear"); /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1390:/ 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]; /*_.DBGOUTAGAIN_SYMBOL_METHOD__V12*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_SYMBOL_METHOD*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V10*/ meltfptr[8] = /*_.DBGOUTAGAIN_SYMBOL_METHOD__V12*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1388:/ clear"); /*clear*/ /*_.DBGOUTAGAIN_SYMBOL_METHOD__V12*/ meltfptr[4] = 0 ; } ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1385:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_._IFELSE___V10*/ meltfptr[8];; { MELT_LOCATION("warmelt-debug.melt:1385:/ 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*/ /*_#lteqI__L4*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V10*/ meltfptr[8] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBGOUT_SYMBOL_METHOD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_42_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_42_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_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_) { long current_blocklevel_signals_meltrout_43_WARMELTmiDEBUG_DBGOUT_CLASS_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:1490 /* start of frame for routine meltrout_43_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD fromline 1704 */ /** start of frame for meltrout_43_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD of CLASS_PROCROUTINEOBJ from 1507**/ /*curframdeclclassy*/ class MeltFrame_meltrout_43_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD// fromline 1520 : public Melt_CallFrameWithValues<12> { public: /* fromline 1524*/ long mcfr_varnum[4]; /*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_43_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD(meltclosure_ptr_t clos) //the closure constructor fromline 1582 : Melt_CallFrameWithValues<12> ( #if ENABLE_CHECKING /*fromline 1586*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1590*/ sizeof(MeltFrame_meltrout_43_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD), clos) {}; MeltFrame_meltrout_43_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD() //the constructor fromline 1594 : Melt_CallFrameWithValues<12> ( #if ENABLE_CHECKING /*fromline 1598*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1602*/ sizeof(MeltFrame_meltrout_43_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD)) {}; #if ENABLE_CHECKING /*fromline 1606*/ MeltFrame_meltrout_43_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD(const char*fil, int lin) //the constructor fromline 1608 : Melt_CallFrameWithValues<12> (fil,lin, sizeof(MeltFrame_meltrout_43_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD)) {}; MeltFrame_meltrout_43_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1613 : Melt_CallFrameWithValues<12> (fil,lin, sizeof(MeltFrame_meltrout_43_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD), clos) {}; #endif /* ENABLE_CHECKING fromline 1618*/ }; // end class MeltFrame_meltrout_43_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD /** end of frame for meltrout_43_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD fromline 1649**/ /* end of frame for routine meltrout_43_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD fromline 1708 */ /* classy proc frame meltrout_43_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD */ MeltFrame_meltrout_43_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD meltfram__ /*declfrastruct fromline 1732*/ /*classyprocarg meltrout_43_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD fromline 1737*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1741*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1745*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBGOUT_CLASS_METHOD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:1395:/ 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:1396:/ 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:1396:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1396:/ 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 = 1396; /*^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:1396:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1396:/ 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:1397:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-debug.melt:1397:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1397:/ 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 = 1397; /*^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:1397:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1397:/ clear"); /*clear*/ /*_#IS_A__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_CHECK_SIGNAL(); ; /*^compute*/ /*_#lteqI__L4*/ meltfnum[1] = ((/*_#DEPTH__L1*/ meltfnum[0]) <= (1));; MELT_LOCATION("warmelt-debug.melt:1398:/ cond"); /*cond*/ if (/*_#lteqI__L4*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1399:/ 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 = 0; /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_NAMEDOBJECT_METHOD*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V10*/ meltfptr[8] = /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1398:/ clear"); /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1400:/ 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]; /*_.DBGOUTAGAIN_NAMEDOBJECT_METHOD__V12*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_NAMEDOBJECT_METHOD*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V10*/ meltfptr[8] = /*_.DBGOUTAGAIN_NAMEDOBJECT_METHOD__V12*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1398:/ clear"); /*clear*/ /*_.DBGOUTAGAIN_NAMEDOBJECT_METHOD__V12*/ meltfptr[4] = 0 ; } ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1395:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_._IFELSE___V10*/ meltfptr[8];; { MELT_LOCATION("warmelt-debug.melt:1395:/ 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*/ /*_#lteqI__L4*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V10*/ meltfptr[8] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBGOUT_CLASS_METHOD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_43_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_43_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_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_) { long current_blocklevel_signals_meltrout_44_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_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:1490 /* start of frame for routine meltrout_44_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD fromline 1704 */ /** start of frame for meltrout_44_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD of CLASS_PROCROUTINEOBJ from 1507**/ /*curframdeclclassy*/ class MeltFrame_meltrout_44_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD// fromline 1520 : public Melt_CallFrameWithValues<11> { public: /* fromline 1524*/ long mcfr_varnum[4]; /*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_44_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD(meltclosure_ptr_t clos) //the closure constructor fromline 1582 : Melt_CallFrameWithValues<11> ( #if ENABLE_CHECKING /*fromline 1586*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1590*/ sizeof(MeltFrame_meltrout_44_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD), clos) {}; MeltFrame_meltrout_44_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD() //the constructor fromline 1594 : Melt_CallFrameWithValues<11> ( #if ENABLE_CHECKING /*fromline 1598*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1602*/ sizeof(MeltFrame_meltrout_44_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD)) {}; #if ENABLE_CHECKING /*fromline 1606*/ MeltFrame_meltrout_44_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD(const char*fil, int lin) //the constructor fromline 1608 : Melt_CallFrameWithValues<11> (fil,lin, sizeof(MeltFrame_meltrout_44_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD)) {}; MeltFrame_meltrout_44_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1613 : Melt_CallFrameWithValues<11> (fil,lin, sizeof(MeltFrame_meltrout_44_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD), clos) {}; #endif /* ENABLE_CHECKING fromline 1618*/ }; // end class MeltFrame_meltrout_44_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD /** end of frame for meltrout_44_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD fromline 1649**/ /* end of frame for routine meltrout_44_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD fromline 1708 */ /* classy proc frame meltrout_44_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD */ MeltFrame_meltrout_44_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD meltfram__ /*declfrastruct fromline 1732*/ /*classyprocarg meltrout_44_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD fromline 1737*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1741*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1745*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBGOUTAGAIN_KEYWORD_METHOD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:1405:/ 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:1406:/ 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:1406:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1406:/ 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 = 1406; /*^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:1406:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1406:/ 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:1407:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-debug.melt:1407:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1407:/ 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 = 1407; /*^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:1407:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1407:/ clear"); /*clear*/ /*_#IS_A__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:1408:/ 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__V10*/ meltfptr[8] = slot; }; ; MELT_LOCATION("warmelt-debug.melt:1409:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.ONAM__V11*/ meltfptr[4] = slot; }; ; { MELT_LOCATION("warmelt-debug.melt:1411:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V10*/ meltfptr[8]), ( "$:")); } ; { MELT_LOCATION("warmelt-debug.melt:1412:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V10*/ meltfptr[8]), melt_string_str((melt_ptr_t)(/*_.ONAM__V11*/ meltfptr[4]))); } ; { MELT_LOCATION("warmelt-debug.melt:1413:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V10*/ meltfptr[8]), ( "/")); } ; /*_#OBJ_HASH__L4*/ meltfnum[1] = (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));; { MELT_LOCATION("warmelt-debug.melt:1414:/ locexp"); meltgc_add_out_hex((melt_ptr_t)(/*_.OUT__V10*/ meltfptr[8]), (/*_#OBJ_HASH__L4*/ meltfnum[1])); } ; MELT_LOCATION("warmelt-debug.melt:1408:/ clear"); /*clear*/ /*_.OUT__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.ONAM__V11*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_#OBJ_HASH__L4*/ meltfnum[1] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1405:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBGOUTAGAIN_KEYWORD_METHOD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_44_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_44_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_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_) { long current_blocklevel_signals_meltrout_45_WARMELTmiDEBUG_DBGOUT_KEYWORD_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:1490 /* start of frame for routine meltrout_45_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD fromline 1704 */ /** start of frame for meltrout_45_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD of CLASS_PROCROUTINEOBJ from 1507**/ /*curframdeclclassy*/ class MeltFrame_meltrout_45_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD// fromline 1520 : public Melt_CallFrameWithValues<12> { public: /* fromline 1524*/ long mcfr_varnum[4]; /*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_45_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD(meltclosure_ptr_t clos) //the closure constructor fromline 1582 : Melt_CallFrameWithValues<12> ( #if ENABLE_CHECKING /*fromline 1586*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1590*/ sizeof(MeltFrame_meltrout_45_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD), clos) {}; MeltFrame_meltrout_45_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD() //the constructor fromline 1594 : Melt_CallFrameWithValues<12> ( #if ENABLE_CHECKING /*fromline 1598*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1602*/ sizeof(MeltFrame_meltrout_45_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD)) {}; #if ENABLE_CHECKING /*fromline 1606*/ MeltFrame_meltrout_45_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD(const char*fil, int lin) //the constructor fromline 1608 : Melt_CallFrameWithValues<12> (fil,lin, sizeof(MeltFrame_meltrout_45_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD)) {}; MeltFrame_meltrout_45_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1613 : Melt_CallFrameWithValues<12> (fil,lin, sizeof(MeltFrame_meltrout_45_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD), clos) {}; #endif /* ENABLE_CHECKING fromline 1618*/ }; // end class MeltFrame_meltrout_45_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD /** end of frame for meltrout_45_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD fromline 1649**/ /* end of frame for routine meltrout_45_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD fromline 1708 */ /* classy proc frame meltrout_45_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD */ MeltFrame_meltrout_45_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD meltfram__ /*declfrastruct fromline 1732*/ /*classyprocarg meltrout_45_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD fromline 1737*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1741*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1745*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBGOUT_KEYWORD_METHOD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:1418:/ 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:1419:/ 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:1419:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1419:/ 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 = 1419; /*^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:1419:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1419:/ 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:1420:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-debug.melt:1420:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1420:/ 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 = 1420; /*^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:1420:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1420:/ clear"); /*clear*/ /*_#IS_A__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_CHECK_SIGNAL(); ; /*^compute*/ /*_#lteqI__L4*/ meltfnum[1] = ((/*_#DEPTH__L1*/ meltfnum[0]) <= (0));; MELT_LOCATION("warmelt-debug.melt:1421:/ cond"); /*cond*/ if (/*_#lteqI__L4*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1422:/ 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 = 0; /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_NAMEDOBJECT_METHOD*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V10*/ meltfptr[8] = /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1421:/ clear"); /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1423:/ 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]; /*_.DBGOUTAGAIN_KEYWORD_METHOD__V12*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_KEYWORD_METHOD*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V10*/ meltfptr[8] = /*_.DBGOUTAGAIN_KEYWORD_METHOD__V12*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1421:/ clear"); /*clear*/ /*_.DBGOUTAGAIN_KEYWORD_METHOD__V12*/ meltfptr[4] = 0 ; } ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1418:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_._IFELSE___V10*/ meltfptr[8];; { MELT_LOCATION("warmelt-debug.melt:1418:/ 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*/ /*_#lteqI__L4*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V10*/ meltfptr[8] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBGOUT_KEYWORD_METHOD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_45_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_45_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_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_) { long current_blocklevel_signals_meltrout_46_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_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:1490 /* start of frame for routine meltrout_46_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD fromline 1704 */ /** start of frame for meltrout_46_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD of CLASS_PROCROUTINEOBJ from 1507**/ /*curframdeclclassy*/ class MeltFrame_meltrout_46_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD// fromline 1520 : public Melt_CallFrameWithValues<7> { public: /* fromline 1524*/ 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_46_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD(meltclosure_ptr_t clos) //the closure constructor fromline 1582 : Melt_CallFrameWithValues<7> ( #if ENABLE_CHECKING /*fromline 1586*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1590*/ sizeof(MeltFrame_meltrout_46_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD), clos) {}; MeltFrame_meltrout_46_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD() //the constructor fromline 1594 : Melt_CallFrameWithValues<7> ( #if ENABLE_CHECKING /*fromline 1598*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1602*/ sizeof(MeltFrame_meltrout_46_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD)) {}; #if ENABLE_CHECKING /*fromline 1606*/ MeltFrame_meltrout_46_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD(const char*fil, int lin) //the constructor fromline 1608 : Melt_CallFrameWithValues<7> (fil,lin, sizeof(MeltFrame_meltrout_46_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD)) {}; MeltFrame_meltrout_46_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1613 : Melt_CallFrameWithValues<7> (fil,lin, sizeof(MeltFrame_meltrout_46_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD), clos) {}; #endif /* ENABLE_CHECKING fromline 1618*/ }; // end class MeltFrame_meltrout_46_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD /** end of frame for meltrout_46_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD fromline 1649**/ /* end of frame for routine meltrout_46_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD fromline 1708 */ /* classy proc frame meltrout_46_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD */ MeltFrame_meltrout_46_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD meltfram__ /*declfrastruct fromline 1732*/ /*classyprocarg meltrout_46_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD fromline 1737*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1741*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1745*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBGOUTAGAIN_CLONED_SYMBOL_METHOD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:1428:/ 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:1429:/ quasiblock"); /*_.DIS__V4*/ meltfptr[3] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-debug.melt:1430:/ 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__V5*/ meltfptr[4] = slot; }; ; MELT_LOCATION("warmelt-debug.melt:1431:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "CSYM_URANK"); /*_.OURANK__V6*/ meltfptr[5] = slot; }; ; /*_#LRK__L2*/ meltfnum[1] = (melt_get_int((melt_ptr_t)(/*_.OURANK__V6*/ meltfptr[5])));; MELT_LOCATION("warmelt-debug.melt:1433:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.ONAM__V7*/ meltfptr[6] = slot; }; ; { MELT_LOCATION("warmelt-debug.melt:1434:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), ( "$$")); } ; { MELT_LOCATION("warmelt-debug.melt:1435:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), melt_string_str((melt_ptr_t)(/*_.ONAM__V7*/ meltfptr[6]))); } ; { MELT_LOCATION("warmelt-debug.melt:1436:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), ( ":")); } ; { MELT_LOCATION("warmelt-debug.melt:1437:/ locexp"); meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), (/*_#LRK__L2*/ meltfnum[1])); } ; { MELT_LOCATION("warmelt-debug.melt:1438:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), ( "/")); } ; /*_#OBJ_HASH__L3*/ meltfnum[2] = (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));; { MELT_LOCATION("warmelt-debug.melt:1439:/ locexp"); meltgc_add_out_hex((melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), (/*_#OBJ_HASH__L3*/ meltfnum[2])); } ; MELT_LOCATION("warmelt-debug.melt:1429:/ clear"); /*clear*/ /*_.DIS__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.OUT__V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.OURANK__V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_#LRK__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.ONAM__V7*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_#OBJ_HASH__L3*/ meltfnum[2] = 0 ; /*epilog*/ } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBGOUTAGAIN_CLONED_SYMBOL_METHOD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_46_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_46_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_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_) { long current_blocklevel_signals_meltrout_47_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_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:1490 /* start of frame for routine meltrout_47_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD fromline 1704 */ /** start of frame for meltrout_47_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD of CLASS_PROCROUTINEOBJ from 1507**/ /*curframdeclclassy*/ class MeltFrame_meltrout_47_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD// fromline 1520 : public Melt_CallFrameWithValues<12> { public: /* fromline 1524*/ long mcfr_varnum[4]; /*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_47_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD(meltclosure_ptr_t clos) //the closure constructor fromline 1582 : Melt_CallFrameWithValues<12> ( #if ENABLE_CHECKING /*fromline 1586*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1590*/ sizeof(MeltFrame_meltrout_47_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD), clos) {}; MeltFrame_meltrout_47_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD() //the constructor fromline 1594 : Melt_CallFrameWithValues<12> ( #if ENABLE_CHECKING /*fromline 1598*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1602*/ sizeof(MeltFrame_meltrout_47_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD)) {}; #if ENABLE_CHECKING /*fromline 1606*/ MeltFrame_meltrout_47_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD(const char*fil, int lin) //the constructor fromline 1608 : Melt_CallFrameWithValues<12> (fil,lin, sizeof(MeltFrame_meltrout_47_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD)) {}; MeltFrame_meltrout_47_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1613 : Melt_CallFrameWithValues<12> (fil,lin, sizeof(MeltFrame_meltrout_47_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD), clos) {}; #endif /* ENABLE_CHECKING fromline 1618*/ }; // end class MeltFrame_meltrout_47_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD /** end of frame for meltrout_47_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD fromline 1649**/ /* end of frame for routine meltrout_47_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD fromline 1708 */ /* classy proc frame meltrout_47_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD */ MeltFrame_meltrout_47_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD meltfram__ /*declfrastruct fromline 1732*/ /*classyprocarg meltrout_47_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD fromline 1737*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1741*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1745*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBGOUT_CLONED_SYMBOL_METHOD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:1443:/ 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:1444:/ 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:1444:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1444:/ 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 = 1444; /*^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:1444:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1444:/ 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:1445:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-debug.melt:1445:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1445:/ 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 = 1445; /*^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:1445:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1445:/ clear"); /*clear*/ /*_#IS_A__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_CHECK_SIGNAL(); ; /*^compute*/ /*_#lteqI__L4*/ meltfnum[1] = ((/*_#DEPTH__L1*/ meltfnum[0]) <= (0));; MELT_LOCATION("warmelt-debug.melt:1446:/ cond"); /*cond*/ if (/*_#lteqI__L4*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1447:/ 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 = 0; /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_NAMEDOBJECT_METHOD*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V10*/ meltfptr[8] = /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1446:/ clear"); /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1448:/ 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]; /*_.DBGOUTAGAIN_CLONED_SYMBOL_METHOD__V12*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_CLONED_SYMBOL_METHOD*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V10*/ meltfptr[8] = /*_.DBGOUTAGAIN_CLONED_SYMBOL_METHOD__V12*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1446:/ clear"); /*clear*/ /*_.DBGOUTAGAIN_CLONED_SYMBOL_METHOD__V12*/ meltfptr[4] = 0 ; } ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1443:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_._IFELSE___V10*/ meltfptr[8];; { MELT_LOCATION("warmelt-debug.melt:1443:/ 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*/ /*_#lteqI__L4*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V10*/ meltfptr[8] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBGOUT_CLONED_SYMBOL_METHOD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_47_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_47_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_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_) { long current_blocklevel_signals_meltrout_48_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_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:1490 /* start of frame for routine meltrout_48_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD fromline 1704 */ /** start of frame for meltrout_48_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD of CLASS_PROCROUTINEOBJ from 1507**/ /*curframdeclclassy*/ class MeltFrame_meltrout_48_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD// fromline 1520 : public Melt_CallFrameWithValues<34> { public: /* fromline 1524*/ long mcfr_varnum[40]; /*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_48_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD(meltclosure_ptr_t clos) //the closure constructor fromline 1582 : Melt_CallFrameWithValues<34> ( #if ENABLE_CHECKING /*fromline 1586*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1590*/ sizeof(MeltFrame_meltrout_48_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD), clos) {}; MeltFrame_meltrout_48_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD() //the constructor fromline 1594 : Melt_CallFrameWithValues<34> ( #if ENABLE_CHECKING /*fromline 1598*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1602*/ sizeof(MeltFrame_meltrout_48_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD)) {}; #if ENABLE_CHECKING /*fromline 1606*/ MeltFrame_meltrout_48_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD(const char*fil, int lin) //the constructor fromline 1608 : Melt_CallFrameWithValues<34> (fil,lin, sizeof(MeltFrame_meltrout_48_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD)) {}; MeltFrame_meltrout_48_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1613 : Melt_CallFrameWithValues<34> (fil,lin, sizeof(MeltFrame_meltrout_48_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD), clos) {}; #endif /* ENABLE_CHECKING fromline 1618*/ }; // end class MeltFrame_meltrout_48_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD /** end of frame for meltrout_48_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD fromline 1649**/ /* end of frame for routine meltrout_48_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD fromline 1708 */ /* classy proc frame meltrout_48_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD */ MeltFrame_meltrout_48_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD meltfram__ /*declfrastruct fromline 1732*/ /*classyprocarg meltrout_48_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD fromline 1737*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1741*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1745*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBGOUT_ENVIRONMENT_METHOD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:1454:/ 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:1455:/ 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:1455:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1455:/ 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 = 1455; /*^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:1455:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1455:/ 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:1456:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-debug.melt:1456:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1456:/ 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 = 1456; /*^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:1456:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1456:/ clear"); /*clear*/ /*_#IS_A__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:1457:/ quasiblock"); /*_.DIS__V10*/ meltfptr[8] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-debug.melt:1458:/ 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; }; ; /*_#ONUM__L4*/ meltfnum[1] = (melt_obj_num((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#eqeq__L5*/ meltfnum[4] = ((/*_.DIS__V10*/ meltfptr[8]) == ((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-debug.melt:1461:/ cond"); /*cond*/ if (/*_#eqeq__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:1462:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( "env")); } ; /*epilog*/ } ; } else { MELT_LOCATION("warmelt-debug.melt:1461:/ cond.else"); /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:1464:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( "|")); } ; MELT_LOCATION("warmelt-debug.melt:1465:/ 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__V12*/ meltfptr[11] = slot; }; ; { /*^locexp*/ meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V12*/ meltfptr[11]))); } ; MELT_LOCATION("warmelt-debug.melt:1463:/ quasiblock"); /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1461:/ clear"); /*clear*/ /*_.NAMED_NAME__V12*/ meltfptr[11] = 0 ; } ; } ; { MELT_LOCATION("warmelt-debug.melt:1467:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( "/")); } ; /*_#OBJ_HASH__L6*/ meltfnum[5] = (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));; { MELT_LOCATION("warmelt-debug.melt:1468:/ locexp"); meltgc_add_out_hex((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), (/*_#OBJ_HASH__L6*/ meltfnum[5])); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1469:/ cond"); /*cond*/ if (/*_#ONUM__L4*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:1470:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( "#")); } ; { MELT_LOCATION("warmelt-debug.melt:1471:/ locexp"); meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), (/*_#ONUM__L4*/ meltfnum[1])); } ; MELT_LOCATION("warmelt-debug.melt:1469:/ quasiblock"); /*epilog*/ } ; } /*noelse*/ ; MELT_LOCATION("warmelt-debug.melt:1472:/ quasiblock"); /*_#DEPTH__L7*/ meltfnum[6] = 0;; /*^compute*/ /*_#TOODEEP__L8*/ meltfnum[7] = 0;; MELT_LOCATION("warmelt-debug.melt:1474:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[2]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "ENV_BIND"); /*_.ENV_BIND__V14*/ meltfptr[13] = slot; }; ; } else /*^cond.else*/ { /*_.ENV_BIND__V14*/ meltfptr[13] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_#NBBIND__L9*/ meltfnum[8] = (melt_count_mapobjects((meltmapobjects_ptr_t)(/*_.ENV_BIND__V14*/ meltfptr[13])));; /*^compute*/ /*_.CURENV__V15*/ meltfptr[14] = /*_.SELF__V2*/ meltfptr[1];; MELT_LOCATION("warmelt-debug.melt:1477:/ loop"); /*loop*/ { meltlabloop_DEPTHLOOP_1:;/*^loopbody*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*_#gtI__L10*/ meltfnum[9] = ((/*_#DEPTH__L7*/ meltfnum[6]) > (100));; MELT_LOCATION("warmelt-debug.melt:1479:/ cond"); /*cond*/ if (/*_#gtI__L10*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-debug.melt:1480:/ compute"); /*_#TOODEEP__L8*/ meltfnum[7] = /*_#SETQ___L11*/ meltfnum[10] = 1;; MELT_LOCATION("warmelt-debug.melt:1481:/ quasiblock"); /*^compute*/ /*_.DEPTHLOOP__V17*/ meltfptr[16] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ { goto meltlabexit_DEPTHLOOP_1; } ; MELT_LOCATION("warmelt-debug.melt:1479:/ quasiblock"); /*epilog*/ /*^clear*/ /*clear*/ /*_#SETQ___L11*/ meltfnum[10] = 0 ; } ; } /*noelse*/ ; MELT_CHECK_SIGNAL(); ; /*_#IS_NOT_A__L12*/ meltfnum[10] = !melt_is_instance_of((melt_ptr_t)(/*_.CURENV__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-debug.melt:1482:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L12*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-debug.melt:1483:/ quasiblock"); /*^compute*/ /*_.DEPTHLOOP__V17*/ meltfptr[16] = /*reallynil*/ NULL ;; /*^exit*/ /*exit*/ { goto meltlabexit_DEPTHLOOP_1; } ; /*epilog*/ } ; } /*noelse*/ ; /*_#plI__L13*/ meltfnum[12] = ((/*_#DEPTH__L7*/ meltfnum[6]) + (1));; MELT_LOCATION("warmelt-debug.melt:1484:/ compute"); /*_#DEPTH__L7*/ meltfnum[6] = /*_#SETQ___L14*/ meltfnum[13] = /*_#plI__L13*/ meltfnum[12];; MELT_LOCATION("warmelt-debug.melt:1485:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURENV__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[2]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.CURENV__V15*/ meltfptr[14]) /*=obj*/; melt_object_get_field(slot,obj, 1, "ENV_PREV"); /*_.ENV_PREV__V18*/ meltfptr[17] = slot; }; ; } else /*^cond.else*/ { /*_.ENV_PREV__V18*/ meltfptr[17] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-debug.melt:1485:/ compute"); /*_.CURENV__V15*/ meltfptr[14] = /*_.SETQ___V19*/ meltfptr[18] = /*_.ENV_PREV__V18*/ meltfptr[17];; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1477:/ clear"); /*clear*/ /*_#gtI__L10*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_#IS_NOT_A__L12*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L13*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_#SETQ___L14*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_.ENV_PREV__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V19*/ meltfptr[18] = 0 ; } ; ; goto meltlabloop_DEPTHLOOP_1; meltlabexit_DEPTHLOOP_1:;/*^loopepilog*/ /*loopepilog*/ /*_.FOREVER___V16*/ meltfptr[15] = /*_.DEPTHLOOP__V17*/ meltfptr[16];; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1487:/ cond"); /*cond*/ if (/*_#TOODEEP__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "~~"; /*_.ADD2OUT__V21*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V20*/ meltfptr[17] = /*_.ADD2OUT__V21*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1487:/ clear"); /*clear*/ /*_.ADD2OUT__V21*/ meltfptr[18] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1488:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "~"; /*^apply.arg*/ argtab[1].meltbp_long = /*_#DEPTH__L7*/ meltfnum[6]; /*_.ADD2OUT__V22*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V20*/ meltfptr[17] = /*_.ADD2OUT__V22*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1487:/ clear"); /*clear*/ /*_.ADD2OUT__V22*/ meltfptr[18] = 0 ; } ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1489:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "_"; /*^apply.arg*/ argtab[1].meltbp_long = /*_#NBBIND__L9*/ meltfnum[8]; /*_.ADD2OUT__V23*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.LET___V13*/ meltfptr[11] = /*_.ADD2OUT__V23*/ meltfptr[18];; MELT_LOCATION("warmelt-debug.melt:1472:/ clear"); /*clear*/ /*_#DEPTH__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_#TOODEEP__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.ENV_BIND__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_#NBBIND__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.CURENV__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.FOREVER___V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V20*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.ADD2OUT__V23*/ meltfptr[18] = 0 ; { MELT_LOCATION("warmelt-debug.melt:1491:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( "{")); } ; MELT_LOCATION("warmelt-debug.melt:1492:/ quasiblock"); /*_#OFFPREV__L15*/ meltfnum[9] = (melt_get_int((melt_ptr_t)((/*!ENV_PREV*/ meltfrout->tabval[4]))));; MELT_LOCATION("warmelt-debug.melt:1493:/ 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__V25*/ meltfptr[14] = slot; }; ; /*_#OLDMAXDEPTH__L16*/ meltfnum[10] = (melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V25*/ meltfptr[14])));; /*^compute*/ /*_#diI__L17*/ meltfnum[12] = (melt_idiv((/*_#OLDMAXDEPTH__L16*/ meltfnum[10]), (2)));; /*^compute*/ /*_#NEWMAXDEPTH__L18*/ meltfnum[13] = ((/*_#diI__L17*/ meltfnum[12]) - (1));; /*^compute*/ /*_#DIDSHOWFIELDS__L19*/ meltfnum[6] = 0;; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#ltI__L20*/ meltfnum[7] = ((/*_#NEWMAXDEPTH__L18*/ meltfnum[13]) < (0));; MELT_LOCATION("warmelt-debug.melt:1497:/ cond"); /*cond*/ if (/*_#ltI__L20*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^compute*/ /*_#NEWMAXDEPTH__L18*/ meltfnum[13] = /*_#SETQ___L22*/ meltfnum[21] = 0;; /*_#_IF___L21*/ meltfnum[8] = /*_#SETQ___L22*/ meltfnum[21];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1497:/ clear"); /*clear*/ /*_#SETQ___L22*/ meltfnum[21] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L21*/ meltfnum[8] = 0;; } ; MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#ltI__L23*/ meltfnum[21] = ((/*_#DEPTH__L1*/ meltfnum[0]) < (/*_#OLDMAXDEPTH__L16*/ meltfnum[10]));; MELT_LOCATION("warmelt-debug.melt:1498:/ cond"); /*cond*/ if (/*_#ltI__L23*/ meltfnum[21]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#IS_A__L25*/ meltfnum[24] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_OUTPUT_INFORMATION*/ meltfrout->tabval[5])));; /*^compute*/ /*_#_IF___L24*/ meltfnum[23] = /*_#IS_A__L25*/ meltfnum[24];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1498:/ clear"); /*clear*/ /*_#IS_A__L25*/ meltfnum[24] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L24*/ meltfnum[23] = 0;; } ; MELT_LOCATION("warmelt-debug.melt:1498:/ cond"); /*cond*/ if (/*_#_IF___L24*/ meltfnum[23]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#gtI__L26*/ meltfnum[24] = ((/*_#DEPTH__L1*/ meltfnum[0]) > (0));; MELT_LOCATION("warmelt-debug.melt:1500:/ cond"); /*cond*/ if (/*_#gtI__L26*/ meltfnum[24]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#gtI__L27*/ meltfnum[26] = ((/*_#OLDMAXDEPTH__L16*/ meltfnum[10]) > (3));; MELT_LOCATION("warmelt-debug.melt:1500:/ cond"); /*cond*/ if (/*_#gtI__L27*/ meltfnum[26]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-debug.melt:1501:/ 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__V26*/ meltfptr[15] = slot; }; ; { /*^locexp*/ melt_put_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V26*/ meltfptr[15]), (/*_#NEWMAXDEPTH__L18*/ meltfnum[13])); } ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1500:/ clear"); /*clear*/ /*_.DBGI_MAXDEPTH__V26*/ meltfptr[15] = 0 ; } ; } /*noelse*/ ; /*epilog*/ /*^clear*/ /*clear*/ /*_#gtI__L27*/ meltfnum[26] = 0 ; } ; } /*noelse*/ ; /*_#plI__L28*/ meltfnum[26] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1502:/ apply"); /*apply*/ { union meltparam_un argtab[4]; 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__L28*/ meltfnum[26]; /*^apply.arg*/ argtab[2].meltbp_long = 0; /*^apply.arg*/ argtab[3].meltbp_long = /*_#OFFPREV__L15*/ meltfnum[9]; /*_.DBGOUT_FIELDS__V27*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_FIELDS*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-debug.melt:1503:/ compute"); /*_#DIDSHOWFIELDS__L19*/ meltfnum[6] = /*_#SETQ___L29*/ meltfnum[28] = 1;; MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*_#ltI__L30*/ meltfnum[29] = ((/*_#DEPTH__L1*/ meltfnum[0]) < (/*_#NEWMAXDEPTH__L18*/ meltfnum[13]));; MELT_LOCATION("warmelt-debug.melt:1504:/ cond"); /*cond*/ if (/*_#ltI__L30*/ meltfnum[29]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#IS_A__L32*/ meltfnum[31] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_OUTPUT_INFORMATION*/ meltfrout->tabval[5])));; /*^compute*/ /*_#_IF___L31*/ meltfnum[30] = /*_#IS_A__L32*/ meltfnum[31];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1504:/ clear"); /*clear*/ /*_#IS_A__L32*/ meltfnum[31] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L31*/ meltfnum[30] = 0;; } ; MELT_LOCATION("warmelt-debug.melt:1504:/ cond"); /*cond*/ if (/*_#_IF___L31*/ meltfnum[30]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#plI__L33*/ meltfnum[31] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (2));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1506:/ apply"); /*apply*/ { union meltparam_un argtab[4]; 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[31]; /*^apply.arg*/ argtab[2].meltbp_long = /*_#OFFPREV__L15*/ meltfnum[9]; /*^apply.arg*/ argtab[3].meltbp_long = 0; /*_.DBGOUTAGAIN_FIELDS__V29*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_FIELDS*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V28*/ meltfptr[18] = /*_.DBGOUTAGAIN_FIELDS__V29*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1504:/ clear"); /*clear*/ /*_#plI__L33*/ meltfnum[31] = 0 ; /*^clear*/ /*clear*/ /*_.DBGOUTAGAIN_FIELDS__V29*/ meltfptr[15] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:1507:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( ".._..")); } ; /*clear*/ /*_._IFELSE___V28*/ meltfptr[18] = 0 ; /*epilog*/ } ; } ; MELT_LOCATION("warmelt-debug.melt:1508:/ 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__V30*/ meltfptr[15] = slot; }; ; { /*^locexp*/ melt_put_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V30*/ meltfptr[15]), (/*_#OLDMAXDEPTH__L16*/ meltfnum[10])); } ; MELT_LOCATION("warmelt-debug.melt:1498:/ quasiblock"); /*epilog*/ /*^clear*/ /*clear*/ /*_#gtI__L26*/ meltfnum[24] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L28*/ meltfnum[26] = 0 ; /*^clear*/ /*clear*/ /*_.DBGOUT_FIELDS__V27*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_#SETQ___L29*/ meltfnum[28] = 0 ; /*^clear*/ /*clear*/ /*_#ltI__L30*/ meltfnum[29] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L31*/ meltfnum[30] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V28*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.DBGI_MAXDEPTH__V30*/ meltfptr[15] = 0 ; } ; } /*noelse*/ ; MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*_#NOT__L34*/ meltfnum[31] = (!(/*_#DIDSHOWFIELDS__L19*/ meltfnum[6]));; MELT_LOCATION("warmelt-debug.melt:1510:/ cond"); /*cond*/ if (/*_#NOT__L34*/ meltfnum[31]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#plI__L36*/ meltfnum[26] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (3));; /*^compute*/ /*_#ltI__L37*/ meltfnum[28] = ((/*_#plI__L36*/ meltfnum[26]) < (/*_#OLDMAXDEPTH__L16*/ meltfnum[10]));; MELT_LOCATION("warmelt-debug.melt:1510:/ cond"); /*cond*/ if (/*_#ltI__L37*/ meltfnum[28]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#IS_A__L39*/ meltfnum[30] = melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_DESCRIBED_ENVIRONMENT*/ meltfrout->tabval[8])));; /*^compute*/ /*_#_IF___L38*/ meltfnum[29] = /*_#IS_A__L39*/ meltfnum[30];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1510:/ clear"); /*clear*/ /*_#IS_A__L39*/ meltfnum[30] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L38*/ meltfnum[29] = 0;; } ; /*^compute*/ /*_#_IF___L35*/ meltfnum[24] = /*_#_IF___L38*/ meltfnum[29];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1510:/ clear"); /*clear*/ /*_#plI__L36*/ meltfnum[26] = 0 ; /*^clear*/ /*clear*/ /*_#ltI__L37*/ meltfnum[28] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L38*/ meltfnum[29] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L35*/ meltfnum[24] = 0;; } ; MELT_LOCATION("warmelt-debug.melt:1510:/ cond"); /*cond*/ if (/*_#_IF___L35*/ meltfnum[24]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:1513:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( " %")); } ; MELT_LOCATION("warmelt-debug.melt:1514:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_DESCRIBED_ENVIRONMENT*/ meltfrout->tabval[8]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 3, "DENV_DESCR"); /*_.DENV_DESCR__V32*/ meltfptr[18] = slot; }; ; } else /*^cond.else*/ { /*_.DENV_DESCR__V32*/ meltfptr[18] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_#plI__L40*/ meltfnum[30] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (2));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1514:/ 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__L40*/ meltfnum[30]; /*_.DBG_OUT__V33*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.DENV_DESCR__V32*/ meltfptr[18]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-debug.melt:1510:/ quasiblock"); /*_.PROGN___V34*/ meltfptr[33] = /*_.DBG_OUT__V33*/ meltfptr[15];; /*^compute*/ /*_._IF___V31*/ meltfptr[17] = /*_.PROGN___V34*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1510:/ clear"); /*clear*/ /*_.DENV_DESCR__V32*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L40*/ meltfnum[30] = 0 ; /*^clear*/ /*clear*/ /*_.DBG_OUT__V33*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V34*/ meltfptr[33] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V31*/ meltfptr[17] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_.LET___V24*/ meltfptr[13] = /*_._IF___V31*/ meltfptr[17];; MELT_LOCATION("warmelt-debug.melt:1492:/ clear"); /*clear*/ /*_#OFFPREV__L15*/ meltfnum[9] = 0 ; /*^clear*/ /*clear*/ /*_.DBGI_MAXDEPTH__V25*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_#OLDMAXDEPTH__L16*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_#diI__L17*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_#NEWMAXDEPTH__L18*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_#DIDSHOWFIELDS__L19*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_#ltI__L20*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L21*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_#ltI__L23*/ meltfnum[21] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L24*/ meltfnum[23] = 0 ; /*^clear*/ /*clear*/ /*_#NOT__L34*/ meltfnum[31] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L35*/ meltfnum[24] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V31*/ meltfptr[17] = 0 ; { MELT_LOCATION("warmelt-debug.melt:1517:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( "}")); } ; MELT_LOCATION("warmelt-debug.melt:1457:/ clear"); /*clear*/ /*_.DIS__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.OUT__V11*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_#ONUM__L4*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_#eqeq__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_#OBJ_HASH__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V13*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V24*/ meltfptr[13] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1454:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBGOUT_ENVIRONMENT_METHOD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_48_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_48_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_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_) { long current_blocklevel_signals_meltrout_49_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_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:1490 /* start of frame for routine meltrout_49_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD fromline 1704 */ /** start of frame for meltrout_49_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD of CLASS_PROCROUTINEOBJ from 1507**/ /*curframdeclclassy*/ class MeltFrame_meltrout_49_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD// fromline 1520 : public Melt_CallFrameWithValues<6> { public: /* fromline 1524*/ 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_49_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD(meltclosure_ptr_t clos) //the closure constructor fromline 1582 : Melt_CallFrameWithValues<6> ( #if ENABLE_CHECKING /*fromline 1586*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1590*/ sizeof(MeltFrame_meltrout_49_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD), clos) {}; MeltFrame_meltrout_49_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD() //the constructor fromline 1594 : Melt_CallFrameWithValues<6> ( #if ENABLE_CHECKING /*fromline 1598*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1602*/ sizeof(MeltFrame_meltrout_49_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD)) {}; #if ENABLE_CHECKING /*fromline 1606*/ MeltFrame_meltrout_49_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD(const char*fil, int lin) //the constructor fromline 1608 : Melt_CallFrameWithValues<6> (fil,lin, sizeof(MeltFrame_meltrout_49_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD)) {}; MeltFrame_meltrout_49_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1613 : Melt_CallFrameWithValues<6> (fil,lin, sizeof(MeltFrame_meltrout_49_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD), clos) {}; #endif /* ENABLE_CHECKING fromline 1618*/ }; // end class MeltFrame_meltrout_49_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD /** end of frame for meltrout_49_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD fromline 1649**/ /* end of frame for routine meltrout_49_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD fromline 1708 */ /* classy proc frame meltrout_49_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD */ MeltFrame_meltrout_49_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD meltfram__ /*declfrastruct fromline 1732*/ /*classyprocarg meltrout_49_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD fromline 1737*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1741*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1745*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBGOUTAGAIN_CTYPE_METHOD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:1523:/ 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:1524:/ quasiblock"); /*_.DIS__V4*/ meltfptr[3] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-debug.melt:1525:/ 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__V5*/ meltfptr[4] = slot; }; ; MELT_LOCATION("warmelt-debug.melt:1526:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.ONAM__V6*/ meltfptr[5] = slot; }; ; { MELT_LOCATION("warmelt-debug.melt:1527:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), ( " $!")); } ; { MELT_LOCATION("warmelt-debug.melt:1528:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), melt_string_str((melt_ptr_t)(/*_.ONAM__V6*/ meltfptr[5]))); } ; { MELT_LOCATION("warmelt-debug.melt:1529:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), ( "!/")); } ; /*_#OBJ_HASH__L2*/ meltfnum[1] = (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));; { MELT_LOCATION("warmelt-debug.melt:1530:/ locexp"); meltgc_add_out_hex((melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), (/*_#OBJ_HASH__L2*/ meltfnum[1])); } ; MELT_LOCATION("warmelt-debug.melt:1524:/ clear"); /*clear*/ /*_.DIS__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.OUT__V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.ONAM__V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_#OBJ_HASH__L2*/ meltfnum[1] = 0 ; /*epilog*/ } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBGOUTAGAIN_CTYPE_METHOD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_49_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_49_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_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_) { long current_blocklevel_signals_meltrout_50_WARMELTmiDEBUG_DBGOUT_CTYPE_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:1490 /* start of frame for routine meltrout_50_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD fromline 1704 */ /** start of frame for meltrout_50_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD of CLASS_PROCROUTINEOBJ from 1507**/ /*curframdeclclassy*/ class MeltFrame_meltrout_50_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD// fromline 1520 : public Melt_CallFrameWithValues<12> { public: /* fromline 1524*/ long mcfr_varnum[4]; /*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_50_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD(meltclosure_ptr_t clos) //the closure constructor fromline 1582 : Melt_CallFrameWithValues<12> ( #if ENABLE_CHECKING /*fromline 1586*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1590*/ sizeof(MeltFrame_meltrout_50_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD), clos) {}; MeltFrame_meltrout_50_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD() //the constructor fromline 1594 : Melt_CallFrameWithValues<12> ( #if ENABLE_CHECKING /*fromline 1598*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1602*/ sizeof(MeltFrame_meltrout_50_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD)) {}; #if ENABLE_CHECKING /*fromline 1606*/ MeltFrame_meltrout_50_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD(const char*fil, int lin) //the constructor fromline 1608 : Melt_CallFrameWithValues<12> (fil,lin, sizeof(MeltFrame_meltrout_50_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD)) {}; MeltFrame_meltrout_50_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1613 : Melt_CallFrameWithValues<12> (fil,lin, sizeof(MeltFrame_meltrout_50_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD), clos) {}; #endif /* ENABLE_CHECKING fromline 1618*/ }; // end class MeltFrame_meltrout_50_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD /** end of frame for meltrout_50_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD fromline 1649**/ /* end of frame for routine meltrout_50_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD fromline 1708 */ /* classy proc frame meltrout_50_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD */ MeltFrame_meltrout_50_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD meltfram__ /*declfrastruct fromline 1732*/ /*classyprocarg meltrout_50_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD fromline 1737*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1741*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1745*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBGOUT_CTYPE_METHOD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:1535:/ 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:1536:/ 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:1536:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1536:/ 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 = 1536; /*^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:1536:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1536:/ 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:1537:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-debug.melt:1537:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1537:/ 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 = 1537; /*^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:1537:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1537:/ clear"); /*clear*/ /*_#IS_A__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_CHECK_SIGNAL(); ; /*^compute*/ /*_#lteqI__L4*/ meltfnum[1] = ((/*_#DEPTH__L1*/ meltfnum[0]) <= (0));; MELT_LOCATION("warmelt-debug.melt:1538:/ cond"); /*cond*/ if (/*_#lteqI__L4*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1539:/ 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 = 0; /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_NAMEDOBJECT_METHOD*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V10*/ meltfptr[8] = /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1538:/ clear"); /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1540:/ 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]; /*_.DBGOUTAGAIN_CTYPE_METHOD__V12*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_CTYPE_METHOD*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V10*/ meltfptr[8] = /*_.DBGOUTAGAIN_CTYPE_METHOD__V12*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1538:/ clear"); /*clear*/ /*_.DBGOUTAGAIN_CTYPE_METHOD__V12*/ meltfptr[4] = 0 ; } ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1535:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_._IFELSE___V10*/ meltfptr[8];; { MELT_LOCATION("warmelt-debug.melt:1535:/ 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*/ /*_#lteqI__L4*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V10*/ meltfptr[8] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBGOUT_CTYPE_METHOD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_50_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_50_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_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_) { long current_blocklevel_signals_meltrout_51_WARMELTmiDEBUG_DBGOUT_ANYBINDING_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:1490 /* start of frame for routine meltrout_51_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD fromline 1704 */ /** start of frame for meltrout_51_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD of CLASS_PROCROUTINEOBJ from 1507**/ /*curframdeclclassy*/ class MeltFrame_meltrout_51_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD// fromline 1520 : public Melt_CallFrameWithValues<18> { public: /* fromline 1524*/ 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_51_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD(meltclosure_ptr_t clos) //the closure constructor fromline 1582 : Melt_CallFrameWithValues<18> ( #if ENABLE_CHECKING /*fromline 1586*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1590*/ sizeof(MeltFrame_meltrout_51_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD), clos) {}; MeltFrame_meltrout_51_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD() //the constructor fromline 1594 : Melt_CallFrameWithValues<18> ( #if ENABLE_CHECKING /*fromline 1598*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1602*/ sizeof(MeltFrame_meltrout_51_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD)) {}; #if ENABLE_CHECKING /*fromline 1606*/ MeltFrame_meltrout_51_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD(const char*fil, int lin) //the constructor fromline 1608 : Melt_CallFrameWithValues<18> (fil,lin, sizeof(MeltFrame_meltrout_51_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD)) {}; MeltFrame_meltrout_51_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1613 : Melt_CallFrameWithValues<18> (fil,lin, sizeof(MeltFrame_meltrout_51_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD), clos) {}; #endif /* ENABLE_CHECKING fromline 1618*/ }; // end class MeltFrame_meltrout_51_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD /** end of frame for meltrout_51_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD fromline 1649**/ /* end of frame for routine meltrout_51_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD fromline 1708 */ /* classy proc frame meltrout_51_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD */ MeltFrame_meltrout_51_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD meltfram__ /*declfrastruct fromline 1732*/ /*classyprocarg meltrout_51_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD fromline 1737*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1741*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1745*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DBGOUT_ANYBINDING_METHOD", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:1545:/ 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:1546:/ 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:1546:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1546:/ 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 = 1546; /*^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:1546:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1546:/ 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:1547:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-debug.melt:1547:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1547:/ 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 = 1547; /*^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:1547:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1547:/ clear"); /*clear*/ /*_#IS_A__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:1548:/ quasiblock"); /*_.DIS__V10*/ meltfptr[8] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-debug.melt:1549:/ 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; }; ; MELT_LOCATION("warmelt-debug.melt:1550:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); /*_.BINDERV__V12*/ meltfptr[11] = slot; }; ; /*_#BINDNUM__L4*/ meltfnum[1] = (melt_get_int((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));; MELT_LOCATION("warmelt-debug.melt:1552:/ 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_LOCATION("warmelt-debug.melt:1554:/ locexp"); meltgc_out_add_indent((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), (/*_#DEPTH__L1*/ meltfnum[0]), 64);; } ; { MELT_LOCATION("warmelt-debug.melt:1555:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( "[~")); } ; MELT_LOCATION("warmelt-debug.melt:1556:/ 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*/ meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V14*/ meltfptr[13]))); } ; { MELT_LOCATION("warmelt-debug.melt:1557:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( "/")); } ; /*_#OBJ_HASH__L6*/ meltfnum[5] = (melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));; { MELT_LOCATION("warmelt-debug.melt:1558:/ locexp"); meltgc_add_out_hex((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), (/*_#OBJ_HASH__L6*/ meltfnum[5])); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1559:/ cond"); /*cond*/ if (/*_#BINDNUM__L4*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:1560:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( "#")); } ; { MELT_LOCATION("warmelt-debug.melt:1561:/ locexp"); meltgc_add_out_dec((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), (/*_#BINDNUM__L4*/ meltfnum[1])); } ; MELT_LOCATION("warmelt-debug.melt:1559:/ quasiblock"); /*epilog*/ } ; } /*noelse*/ ; { MELT_LOCATION("warmelt-debug.melt:1562:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( ":")); } ; /*_#plI__L7*/ meltfnum[6] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (2));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1563:/ 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__L7*/ meltfnum[6]; /*_.DBG_OUTPUTAGAIN__V15*/ meltfptr[14] = meltgc_send((melt_ptr_t)(/*_.BINDERV__V12*/ meltfptr[11]), (melt_ptr_t)((/*!DBG_OUTPUTAGAIN*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; /*_#ltI__L8*/ meltfnum[7] = ((/*_#DEPTH__L1*/ meltfnum[0]) < (/*_#MAXDEPTH__L5*/ meltfnum[4]));; MELT_LOCATION("warmelt-debug.melt:1564:/ cond"); /*cond*/ if (/*_#ltI__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:1565:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( "; ")); } ; /*_#plI__L9*/ meltfnum[8] = ((/*_#DEPTH__L1*/ meltfnum[0]) + (1));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1566:/ apply"); /*apply*/ { union meltparam_un argtab[4]; 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__L9*/ meltfnum[8]; /*^apply.arg*/ argtab[2].meltbp_long = 1; /*^apply.arg*/ argtab[3].meltbp_long = 0; /*_.DBGOUT_FIELDS__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_FIELDS*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-debug.melt:1564:/ quasiblock"); /*_.PROGN___V18*/ meltfptr[17] = /*_.DBGOUT_FIELDS__V17*/ meltfptr[16];; /*^compute*/ /*_._IF___V16*/ meltfptr[15] = /*_.PROGN___V18*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1564:/ clear"); /*clear*/ /*_#plI__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_.DBGOUT_FIELDS__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V18*/ meltfptr[17] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V16*/ meltfptr[15] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-debug.melt:1568:/ locexp"); meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( "~]")); } ; MELT_LOCATION("warmelt-debug.melt:1548:/ clear"); /*clear*/ /*_.DIS__V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.OUT__V11*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.BINDERV__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_#BINDNUM__L4*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.DBGI_MAXDEPTH__V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_#MAXDEPTH__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_#OBJ_HASH__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.DBG_OUTPUTAGAIN__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_#ltI__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V16*/ meltfptr[15] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1545:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DBGOUT_ANYBINDING_METHOD", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_51_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_51_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_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_) { long current_blocklevel_signals_meltrout_52_WARMELTmiDEBUG_DEBUG_LESS_FUN_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:1490 /* start of frame for routine meltrout_52_WARMELTmiDEBUG_DEBUG_LESS_FUN fromline 1704 */ /** start of frame for meltrout_52_WARMELTmiDEBUG_DEBUG_LESS_FUN of CLASS_PROCROUTINEOBJ from 1507**/ /*curframdeclclassy*/ class MeltFrame_meltrout_52_WARMELTmiDEBUG_DEBUG_LESS_FUN// fromline 1520 : public Melt_CallFrameWithValues<10> { public: /* fromline 1524*/ 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_52_WARMELTmiDEBUG_DEBUG_LESS_FUN(meltclosure_ptr_t clos) //the closure constructor fromline 1582 : Melt_CallFrameWithValues<10> ( #if ENABLE_CHECKING /*fromline 1586*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1590*/ sizeof(MeltFrame_meltrout_52_WARMELTmiDEBUG_DEBUG_LESS_FUN), clos) {}; MeltFrame_meltrout_52_WARMELTmiDEBUG_DEBUG_LESS_FUN() //the constructor fromline 1594 : Melt_CallFrameWithValues<10> ( #if ENABLE_CHECKING /*fromline 1598*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1602*/ sizeof(MeltFrame_meltrout_52_WARMELTmiDEBUG_DEBUG_LESS_FUN)) {}; #if ENABLE_CHECKING /*fromline 1606*/ MeltFrame_meltrout_52_WARMELTmiDEBUG_DEBUG_LESS_FUN(const char*fil, int lin) //the constructor fromline 1608 : Melt_CallFrameWithValues<10> (fil,lin, sizeof(MeltFrame_meltrout_52_WARMELTmiDEBUG_DEBUG_LESS_FUN)) {}; MeltFrame_meltrout_52_WARMELTmiDEBUG_DEBUG_LESS_FUN(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1613 : Melt_CallFrameWithValues<10> (fil,lin, sizeof(MeltFrame_meltrout_52_WARMELTmiDEBUG_DEBUG_LESS_FUN), clos) {}; #endif /* ENABLE_CHECKING fromline 1618*/ }; // end class MeltFrame_meltrout_52_WARMELTmiDEBUG_DEBUG_LESS_FUN /** end of frame for meltrout_52_WARMELTmiDEBUG_DEBUG_LESS_FUN fromline 1649**/ /* end of frame for routine meltrout_52_WARMELTmiDEBUG_DEBUG_LESS_FUN fromline 1708 */ /* classy proc frame meltrout_52_WARMELTmiDEBUG_DEBUG_LESS_FUN */ MeltFrame_meltrout_52_WARMELTmiDEBUG_DEBUG_LESS_FUN meltfram__ /*declfrastruct fromline 1732*/ /*classyprocarg meltrout_52_WARMELTmiDEBUG_DEBUG_LESS_FUN fromline 1737*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1741*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1745*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DEBUG_LESS_FUN", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:1574:/ getarg"); /*_.DBGI__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.V__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.V__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:1575:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-debug.melt:1575:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1575:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[3]; 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 = 1575; /*_.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 ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1575:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1575:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 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:1576:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V2*/ meltfptr[1]), (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__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "DBGI_MAXDEPTH"); /*_.OLDMAXDEPTH__V7*/ meltfptr[5] = slot; }; ; } else /*^cond.else*/ { /*_.OLDMAXDEPTH__V7*/ meltfptr[5] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_#GET_INT__L2*/ meltfnum[0] = (melt_get_int((melt_ptr_t)(/*_.OLDMAXDEPTH__V7*/ meltfptr[5])));; /*^compute*/ /*_#miI__L3*/ meltfnum[2] = ((/*_#GET_INT__L2*/ meltfnum[0]) - (1));; /*^compute*/ /*_.NEWMAXDEPTH__V8*/ meltfptr[4] = /*full boxing*/ /*boxing ctype_long*/ meltgc_new_int((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(DISCR_INTEGER)))), (/*_#miI__L3*/ meltfnum[2]));; MELT_LOCATION("warmelt-debug.melt:1578:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V2*/ meltfptr[1]), (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__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "DBGI_OUT"); /*_.OUT__V9*/ meltfptr[8] = slot; }; ; } else /*^cond.else*/ { /*_.OUT__V9*/ meltfptr[8] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1580:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @DBGI_MAXDEPTH", melt_magic_discr((melt_ptr_t)(/*_.DBGI__V2*/ meltfptr[1])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.DBGI__V2*/ meltfptr[1]), (2), (/*_.NEWMAXDEPTH__V8*/ meltfptr[4]), "DBGI_MAXDEPTH"); ; /*^touch*/ meltgc_touch(/*_.DBGI__V2*/ meltfptr[1]); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.DBGI__V2*/ meltfptr[1], "put-fields"); ; /*epilog*/ } ; } /*noelse*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1581:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[1].meltbp_long = 1; /*_.DBG_OUT__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.V__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1582:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @DBGI_MAXDEPTH", melt_magic_discr((melt_ptr_t)(/*_.DBGI__V2*/ meltfptr[1])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.DBGI__V2*/ meltfptr[1]), (2), (/*_.OLDMAXDEPTH__V7*/ meltfptr[5]), "DBGI_MAXDEPTH"); ; /*^touch*/ meltgc_touch(/*_.DBGI__V2*/ meltfptr[1]); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.DBGI__V2*/ meltfptr[1], "put-fields"); ; /*epilog*/ } ; } /*noelse*/ ; MELT_LOCATION("warmelt-debug.melt:1576:/ clear"); /*clear*/ /*_.OLDMAXDEPTH__V7*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_#GET_INT__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_#miI__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.NEWMAXDEPTH__V8*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.OUT__V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.DBG_OUT__V10*/ meltfptr[9] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1574:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DEBUG_LESS_FUN", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_52_WARMELTmiDEBUG_DEBUG_LESS_FUN_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_52_WARMELTmiDEBUG_DEBUG_LESS_FUN*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_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_) { long current_blocklevel_signals_meltrout_53_WARMELTmiDEBUG_DEBUG_MORE_FUN_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:1490 /* start of frame for routine meltrout_53_WARMELTmiDEBUG_DEBUG_MORE_FUN fromline 1704 */ /** start of frame for meltrout_53_WARMELTmiDEBUG_DEBUG_MORE_FUN of CLASS_PROCROUTINEOBJ from 1507**/ /*curframdeclclassy*/ class MeltFrame_meltrout_53_WARMELTmiDEBUG_DEBUG_MORE_FUN// fromline 1520 : public Melt_CallFrameWithValues<18> { public: /* fromline 1524*/ 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_53_WARMELTmiDEBUG_DEBUG_MORE_FUN(meltclosure_ptr_t clos) //the closure constructor fromline 1582 : Melt_CallFrameWithValues<18> ( #if ENABLE_CHECKING /*fromline 1586*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1590*/ sizeof(MeltFrame_meltrout_53_WARMELTmiDEBUG_DEBUG_MORE_FUN), clos) {}; MeltFrame_meltrout_53_WARMELTmiDEBUG_DEBUG_MORE_FUN() //the constructor fromline 1594 : Melt_CallFrameWithValues<18> ( #if ENABLE_CHECKING /*fromline 1598*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1602*/ sizeof(MeltFrame_meltrout_53_WARMELTmiDEBUG_DEBUG_MORE_FUN)) {}; #if ENABLE_CHECKING /*fromline 1606*/ MeltFrame_meltrout_53_WARMELTmiDEBUG_DEBUG_MORE_FUN(const char*fil, int lin) //the constructor fromline 1608 : Melt_CallFrameWithValues<18> (fil,lin, sizeof(MeltFrame_meltrout_53_WARMELTmiDEBUG_DEBUG_MORE_FUN)) {}; MeltFrame_meltrout_53_WARMELTmiDEBUG_DEBUG_MORE_FUN(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1613 : Melt_CallFrameWithValues<18> (fil,lin, sizeof(MeltFrame_meltrout_53_WARMELTmiDEBUG_DEBUG_MORE_FUN), clos) {}; #endif /* ENABLE_CHECKING fromline 1618*/ }; // end class MeltFrame_meltrout_53_WARMELTmiDEBUG_DEBUG_MORE_FUN /** end of frame for meltrout_53_WARMELTmiDEBUG_DEBUG_MORE_FUN fromline 1649**/ /* end of frame for routine meltrout_53_WARMELTmiDEBUG_DEBUG_MORE_FUN fromline 1708 */ /* classy proc frame meltrout_53_WARMELTmiDEBUG_DEBUG_MORE_FUN */ MeltFrame_meltrout_53_WARMELTmiDEBUG_DEBUG_MORE_FUN meltfram__ /*declfrastruct fromline 1732*/ /*classyprocarg meltrout_53_WARMELTmiDEBUG_DEBUG_MORE_FUN fromline 1737*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1741*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1745*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DEBUG_MORE_FUN", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:1588:/ getarg"); /*_.DBGI__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.V__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.V__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG MELT_LOCATION("warmelt-debug.melt:1589:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-debug.melt:1589:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-debug.melt:1589:/ cond.else"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { union meltparam_un argtab[3]; 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 = 1589; /*_.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 ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1589:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1589:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 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:1590:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V2*/ meltfptr[1]), (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__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "DBGI_MAXDEPTH"); /*_.OLDMAXDEPTH__V7*/ meltfptr[5] = slot; }; ; } else /*^cond.else*/ { /*_.OLDMAXDEPTH__V7*/ meltfptr[5] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_#GET_INT__L2*/ meltfnum[0] = (melt_get_int((melt_ptr_t)(/*_.OLDMAXDEPTH__V7*/ meltfptr[5])));; /*^compute*/ /*_#plI__L3*/ meltfnum[2] = ((/*_#GET_INT__L2*/ meltfnum[0]) + (1));; /*^compute*/ /*_.NEWMOREDEPTH__V8*/ meltfptr[4] = /*full boxing*/ /*boxing ctype_long*/ meltgc_new_int((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(DISCR_INTEGER)))), (/*_#plI__L3*/ meltfnum[2]));; /*^compute*/ /*_#GET_INT__L4*/ meltfnum[3] = (melt_get_int((melt_ptr_t)(/*_.OLDMAXDEPTH__V7*/ meltfptr[5])));; /*^compute*/ /*_#miI__L5*/ meltfnum[4] = ((/*_#GET_INT__L4*/ meltfnum[3]) - (1));; /*^compute*/ /*_.NEWLESSDEPTH__V9*/ meltfptr[8] = /*full boxing*/ /*boxing ctype_long*/ meltgc_new_int((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(DISCR_INTEGER)))), (/*_#miI__L5*/ meltfnum[4]));; MELT_LOCATION("warmelt-debug.melt:1593:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V2*/ meltfptr[1]), (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__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 0, "DBGI_OUT"); /*_.OUT__V10*/ meltfptr[9] = slot; }; ; } else /*^cond.else*/ { /*_.OUT__V10*/ meltfptr[9] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1595:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @DBGI_MAXDEPTH", melt_magic_discr((melt_ptr_t)(/*_.DBGI__V2*/ meltfptr[1])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.DBGI__V2*/ meltfptr[1]), (2), (/*_.NEWMOREDEPTH__V8*/ meltfptr[4]), "DBGI_MAXDEPTH"); ; /*^touch*/ meltgc_touch(/*_.DBGI__V2*/ meltfptr[1]); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.DBGI__V2*/ meltfptr[1], "put-fields"); ; /*epilog*/ } ; } /*noelse*/ ; MELT_CHECK_SIGNAL(); ; /*_#IS_OBJECT__L6*/ meltfnum[5] = (melt_magic_discr((melt_ptr_t)(/*_.V__V3*/ meltfptr[2])) == MELTOBMAG_OBJECT);; MELT_LOCATION("warmelt-debug.melt:1596:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_.DISCRIM__V12*/ meltfptr[11] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.V__V3*/ meltfptr[2]))));; MELT_LOCATION("warmelt-debug.melt:1598:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DISCRIM__V12*/ meltfptr[11]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DISCRIM__V12*/ meltfptr[11]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.NAMED_NAME__V13*/ meltfptr[12] = slot; }; ; } else /*^cond.else*/ { /*_.NAMED_NAME__V13*/ meltfptr[12] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1598:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V13*/ meltfptr[12]; /*^apply.arg*/ argtab[1].meltbp_cstring = "/"; /*_.ADD2OUT__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OUT__V10*/ meltfptr[9]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_#OBJ_HASH__L7*/ meltfnum[6] = (melt_obj_hash((melt_ptr_t)(/*_.V__V3*/ meltfptr[2])));; { MELT_LOCATION("warmelt-debug.melt:1599:/ locexp"); meltgc_add_strbuf_hex((melt_ptr_t)(/*_.OUT__V10*/ meltfptr[9]), (/*_#OBJ_HASH__L7*/ meltfnum[6])); } ; MELT_LOCATION("warmelt-debug.melt:1600:/ quasiblock"); /*_#ONUM__L8*/ meltfnum[7] = (melt_get_int((melt_ptr_t)(/*_.V__V3*/ meltfptr[2])));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1602:/ cond"); /*cond*/ if (/*_#ONUM__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { MELT_LOCATION("warmelt-debug.melt:1603:/ locexp"); /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUT__V10*/ meltfptr[9]), ( "#")); } ; { MELT_LOCATION("warmelt-debug.melt:1604:/ locexp"); meltgc_add_strbuf_dec((melt_ptr_t)(/*_.OUT__V10*/ meltfptr[9]), (/*_#ONUM__L8*/ meltfnum[7])); } ; MELT_LOCATION("warmelt-debug.melt:1602:/ quasiblock"); /*epilog*/ } ; } /*noelse*/ ; MELT_LOCATION("warmelt-debug.melt:1600:/ clear"); /*clear*/ /*_#ONUM__L8*/ meltfnum[7] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1606:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "<{"; /*_.ADD2OUT__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OUT__V10*/ meltfptr[9]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1607:/ apply"); /*apply*/ { union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[1].meltbp_long = 0; /*^apply.arg*/ argtab[2].meltbp_long = 0; /*^apply.arg*/ argtab[3].meltbp_long = -1; /*_.DBGOUT_FIELDS__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_FIELDS*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.V__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-debug.melt:1608:/ locexp"); meltgc_out_add_indent((melt_ptr_t)(/*_.OUT__V10*/ meltfptr[9]), (0), 0);; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1609:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "}>"; /*_.ADD2OUT__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OUT__V10*/ meltfptr[9]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-debug.melt:1610:/ locexp"); meltgc_out_add_indent((melt_ptr_t)(/*_.OUT__V10*/ meltfptr[9]), (0), 0);; } ; MELT_LOCATION("warmelt-debug.melt:1597:/ quasiblock"); /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1596:/ clear"); /*clear*/ /*_.DISCRIM__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.ADD2OUT__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_#OBJ_HASH__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.ADD2OUT__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.DBGOUT_FIELDS__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.ADD2OUT__V17*/ meltfptr[16] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1611:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[1].meltbp_long = 0; /*_.DBG_OUT__V18*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.V__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V11*/ meltfptr[10] = /*_.DBG_OUT__V18*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1596:/ clear"); /*clear*/ /*_.DBG_OUT__V18*/ meltfptr[11] = 0 ; } ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1612:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @DBGI_MAXDEPTH", melt_magic_discr((melt_ptr_t)(/*_.DBGI__V2*/ meltfptr[1])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.DBGI__V2*/ meltfptr[1]), (2), (/*_.OLDMAXDEPTH__V7*/ meltfptr[5]), "DBGI_MAXDEPTH"); ; /*^touch*/ meltgc_touch(/*_.DBGI__V2*/ meltfptr[1]); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.DBGI__V2*/ meltfptr[1], "put-fields"); ; /*epilog*/ } ; } /*noelse*/ ; MELT_LOCATION("warmelt-debug.melt:1590:/ clear"); /*clear*/ /*_.OLDMAXDEPTH__V7*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_#GET_INT__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_#plI__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.NEWMOREDEPTH__V8*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_#GET_INT__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_#miI__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.NEWLESSDEPTH__V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.OUT__V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_#IS_OBJECT__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V11*/ meltfptr[10] = 0 ; MELT_CHECK_SIGNAL(); ; /*epilog*/ MELT_LOCATION("warmelt-debug.melt:1588:/ clear"); /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DEBUG_MORE_FUN", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_53_WARMELTmiDEBUG_DEBUG_MORE_FUN_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_53_WARMELTmiDEBUG_DEBUG_MORE_FUN*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_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_) { long current_blocklevel_signals_meltrout_54_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE_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:1490 /* start of frame for routine meltrout_54_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE fromline 1704 */ /** start of frame for meltrout_54_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE of CLASS_PROCROUTINEOBJ from 1507**/ /*curframdeclclassy*/ class MeltFrame_meltrout_54_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE// fromline 1520 : public Melt_CallFrameWithValues<8> { public: /* fromline 1524*/ long mcfr_varnum[5]; /*classy others*/ const char* loc_CSTRING__o0; 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_54_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE(meltclosure_ptr_t clos) //the closure constructor fromline 1582 : Melt_CallFrameWithValues<8> ( #if ENABLE_CHECKING /*fromline 1586*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1590*/ sizeof(MeltFrame_meltrout_54_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE), clos) {}; MeltFrame_meltrout_54_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE() //the constructor fromline 1594 : Melt_CallFrameWithValues<8> ( #if ENABLE_CHECKING /*fromline 1598*/ __FILE__, __LINE__, #endif /* ENABLE_CHECKING fromline 1602*/ sizeof(MeltFrame_meltrout_54_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE)) {}; #if ENABLE_CHECKING /*fromline 1606*/ MeltFrame_meltrout_54_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE(const char*fil, int lin) //the constructor fromline 1608 : Melt_CallFrameWithValues<8> (fil,lin, sizeof(MeltFrame_meltrout_54_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE)) {}; MeltFrame_meltrout_54_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1613 : Melt_CallFrameWithValues<8> (fil,lin, sizeof(MeltFrame_meltrout_54_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE), clos) {}; #endif /* ENABLE_CHECKING fromline 1618*/ }; // end class MeltFrame_meltrout_54_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE /** end of frame for meltrout_54_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE fromline 1649**/ /* end of frame for routine meltrout_54_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE fromline 1708 */ /* classy proc frame meltrout_54_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE */ MeltFrame_meltrout_54_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE meltfram__ /*declfrastruct fromline 1732*/ /*classyprocarg meltrout_54_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE fromline 1737*/ #if ENABLE_CHECKING (__FILE__, __LINE__, meltclosp_) /* fromline 1741*/ #else /*ENABLE_CHECKING */ (meltclosp_) /* fromline 1745*/ #endif /*ENABLE_CHECKING */ ; #define meltframe meltfram__ melt_trace_start("DISPLAY_DEBUG_MESSAGE", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-debug.melt:1620:/ getarg"); /*_.VAL__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_CSTRING) goto meltlab_endgetargs; /*_?*/ meltfram__.loc_CSTRING__o0 = meltxargtab_[0].meltbp_cstring; /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs; /*_#COUNT__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-debug.melt:1622:/ quasiblock"); /*_#DBGCOUNTER__L2*/ meltfnum[1] = 0;; /*^compute*/ /*_.SBUF__V3*/ meltfptr[2] = (melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[0])), (const char*)0);; /*^compute*/ /*_.OCCMAP__V4*/ meltfptr[3] = (meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[1])), (50)));; /*^compute*/ /*_.BOXEDMAXDEPTH__V5*/ meltfptr[4] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[2])), (14)));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1626:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_DEBUG_OUTPUT_INFORMATION*/ meltfrout->tabval[3])), (3), "CLASS_DEBUG_OUTPUT_INFORMATION"); /*_.INST__V7*/ meltfptr[6] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @DBGI_OUT", melt_magic_discr((melt_ptr_t)(/*_.INST__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V7*/ meltfptr[6]), (0), (/*_.SBUF__V3*/ meltfptr[2]), "DBGI_OUT"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @DBGI_OCCMAP", melt_magic_discr((melt_ptr_t)(/*_.INST__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V7*/ meltfptr[6]), (1), (/*_.OCCMAP__V4*/ meltfptr[3]), "DBGI_OCCMAP"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @DBGI_MAXDEPTH", melt_magic_discr((melt_ptr_t)(/*_.INST__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); melt_putfield_object((/*_.INST__V7*/ meltfptr[6]), (2), (/*_.BOXEDMAXDEPTH__V5*/ meltfptr[4]), "DBGI_MAXDEPTH"); ; /*^touchobj*/ melt_dbgtrace_written_object (/*_.INST__V7*/ meltfptr[6], "newly made instance"); ; /*_.DBGI__V6*/ meltfptr[5] = /*_.INST__V7*/ meltfptr[6];; { MELT_LOCATION("warmelt-debug.melt:1631:/ locexp"); /*_#DBGCOUNTER__L2*/ meltfnum[1]= ++melt_dbgcounter; } ; { MELT_LOCATION("warmelt-debug.melt:1632:/ locexp"); melt_putnum(stderr,( "!*!#"), (/*_#DBGCOUNTER__L2*/ meltfnum[1]), ( "/")); } ; /*_#THE_FRAMEDEPTH__L3*/ meltfnum[2] = (melt_curframdepth());; /*^compute*/ /*_#miI__L4*/ meltfnum[3] = ((/*_#THE_FRAMEDEPTH__L3*/ meltfnum[2]) - (1));; { MELT_LOCATION("warmelt-debug.melt:1633:/ locexp"); melt_putnum(stderr,( ""), (/*_#miI__L4*/ meltfnum[3]), ( ":")); } ; { MELT_LOCATION("warmelt-debug.melt:1634:/ locexp"); melt_puts(stderr,(/*_?*/ meltfram__.loc_CSTRING__o0)); } ; MELT_CHECK_SIGNAL(); ; /*_#gtI__L5*/ meltfnum[4] = ((/*_#COUNT__L1*/ meltfnum[0]) > (0));; MELT_LOCATION("warmelt-debug.melt:1635:/ cond"); /*cond*/ if (/*_#gtI__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ melt_putnum(stderr,( " !"), (/*_#COUNT__L1*/ meltfnum[0]), ( ": ")); } ; /*epilog*/ } ; } /*noelse*/ ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-debug.melt:1636:/ msend"); /*msend*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^ojbmsend.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V6*/ meltfptr[5]; /*^ojbmsend.arg*/ argtab[1].meltbp_long = 0; /*_.DBG_OUTPUT__V8*/ meltfptr[7] = meltgc_send((melt_ptr_t)(/*_.VAL__V2*/ meltfptr[1]), (melt_ptr_t)((/*!DBG_OUTPUT*/ meltfrout->tabval[4])), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-debug.melt:1637:/ locexp"); melt_putstrbuf(stderr,(melt_ptr_t)(/*_.SBUF__V3*/ meltfptr[2])); } ; { MELT_LOCATION("warmelt-debug.melt:1638:/ locexp"); melt_newlineflush(stderr); } ; MELT_LOCATION("warmelt-debug.melt:1622:/ clear"); /*clear*/ /*_#DBGCOUNTER__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.SBUF__V3*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_.OCCMAP__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.BOXEDMAXDEPTH__V5*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.DBGI__V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_#THE_FRAMEDEPTH__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_#miI__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_#gtI__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_.DBG_OUTPUT__V8*/ meltfptr[7] = 0 ; /*epilog*/ } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DISPLAY_DEBUG_MESSAGE", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_54_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_54_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE*/ /**** end of warmelt-debug+02.cc ****/