diff options
Diffstat (limited to 'gcc/melt/generated/warmelt-normal+06.c')
| -rw-r--r-- | gcc/melt/generated/warmelt-normal+06.c | 4093 |
1 files changed, 1597 insertions, 2496 deletions
diff --git a/gcc/melt/generated/warmelt-normal+06.c b/gcc/melt/generated/warmelt-normal+06.c index a54ac45a566..48481be46d4 100644 --- a/gcc/melt/generated/warmelt-normal+06.c +++ b/gcc/melt/generated/warmelt-normal+06.c @@ -2219,23 +2219,7 @@ meltrout_152_WARMELTmiNORMAL_LAMBDA_cl46 (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_153_WARMELTmiNORMAL_NORMAL_MACRO_EXPORTER (meltclosure_ptr_t - meltclosp_, - 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_ptr_t MELT_MODULE_VISIBILITY -meltrout_154_WARMELTmiNORMAL_NORMAL_PATMACRO_EXPORTER (meltclosure_ptr_t +meltrout_153_WARMELTmiNORMAL_NORMAL_PATMACRO_EXPORTER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -2254,7 +2238,7 @@ meltrout_154_WARMELTmiNORMAL_NORMAL_PATMACRO_EXPORTER (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_155_WARMELTmiNORMAL_NORMAL_EXPORTED_MACRO (meltclosure_ptr_t +meltrout_154_WARMELTmiNORMAL_NORMAL_EXPORTED_MACRO (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t @@ -2270,7 +2254,7 @@ meltrout_155_WARMELTmiNORMAL_NORMAL_EXPORTED_MACRO (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_156_WARMELTmiNORMAL_NORMEXP_EXPORT_MACRO (meltclosure_ptr_t +meltrout_155_WARMELTmiNORMAL_NORMEXP_EXPORT_MACRO (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t @@ -2286,7 +2270,7 @@ meltrout_156_WARMELTmiNORMAL_NORMEXP_EXPORT_MACRO (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_157_WARMELTmiNORMAL_NORMAL_EXPORTED_PATMACRO (meltclosure_ptr_t +meltrout_156_WARMELTmiNORMAL_NORMAL_EXPORTED_PATMACRO (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -2305,7 +2289,7 @@ meltrout_157_WARMELTmiNORMAL_NORMAL_EXPORTED_PATMACRO (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_158_WARMELTmiNORMAL_NORMEXP_EXPORT_PATMACRO (meltclosure_ptr_t +meltrout_157_WARMELTmiNORMAL_NORMEXP_EXPORT_PATMACRO (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -2324,7 +2308,7 @@ meltrout_158_WARMELTmiNORMAL_NORMEXP_EXPORT_PATMACRO (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_159_WARMELTmiNORMAL_NORMEXP_CURRENT_MODULE_ENVIRONMENT_REFERENCE +meltrout_158_WARMELTmiNORMAL_NORMEXP_CURRENT_MODULE_ENVIRONMENT_REFERENCE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); @@ -2333,7 +2317,7 @@ union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_160_WARMELTmiNORMAL_NORMEXP_PARENT_MODULE_ENVIRONMENT +meltrout_159_WARMELTmiNORMAL_NORMEXP_PARENT_MODULE_ENVIRONMENT (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); @@ -2342,7 +2326,7 @@ union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_161_WARMELTmiNORMAL_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE +meltrout_160_WARMELTmiNORMAL_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); @@ -2351,7 +2335,7 @@ union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_162_WARMELTmiNORMAL_NORMEXP_FETCH_PREDEFINED (meltclosure_ptr_t +meltrout_161_WARMELTmiNORMAL_NORMEXP_FETCH_PREDEFINED (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -2370,7 +2354,7 @@ meltrout_162_WARMELTmiNORMAL_NORMEXP_FETCH_PREDEFINED (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_163_WARMELTmiNORMAL_LAMBDA_cl47 (meltclosure_ptr_t meltclosp_, +meltrout_162_WARMELTmiNORMAL_LAMBDA_cl47 (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -2383,7 +2367,7 @@ meltrout_163_WARMELTmiNORMAL_LAMBDA_cl47 (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_164_WARMELTmiNORMAL_NORMEXP_STORE_PREDEFINED (meltclosure_ptr_t +meltrout_163_WARMELTmiNORMAL_NORMEXP_STORE_PREDEFINED (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -2402,7 +2386,7 @@ meltrout_164_WARMELTmiNORMAL_NORMEXP_STORE_PREDEFINED (meltclosure_ptr_t melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_165_WARMELTmiNORMAL_LAMBDA_cl48 (meltclosure_ptr_t meltclosp_, +meltrout_164_WARMELTmiNORMAL_LAMBDA_cl48 (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -2415,7 +2399,7 @@ meltrout_165_WARMELTmiNORMAL_LAMBDA_cl48 (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_166_WARMELTmiNORMAL_NORMEXP_CHEADER (meltclosure_ptr_t meltclosp_, +meltrout_165_WARMELTmiNORMAL_NORMEXP_CHEADER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -2430,7 +2414,7 @@ meltrout_166_WARMELTmiNORMAL_NORMEXP_CHEADER (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_167_WARMELTmiNORMAL_NORMEXP_CIMPLEMENT (meltclosure_ptr_t meltclosp_, +meltrout_166_WARMELTmiNORMAL_NORMEXP_CIMPLEMENT (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -2445,7 +2429,7 @@ meltrout_167_WARMELTmiNORMAL_NORMEXP_CIMPLEMENT (meltclosure_ptr_t meltclosp_, melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_168_WARMELTmiNORMAL_NORMEXP_USE_PACKAGE_FROM_PKG_CONFIG +meltrout_167_WARMELTmiNORMAL_NORMEXP_USE_PACKAGE_FROM_PKG_CONFIG (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); @@ -2598,881 +2582,20 @@ meltmod__WARMELTmiNORMAL__forward_or_mark_module_start_frame (struct melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_154_WARMELTmiNORMAL_NORMAL_PATMACRO_EXPORTER (meltclosure_ptr_t - meltclosp_, - 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_154_WARMELTmiNORMAL_NORMAL_PATMACRO_EXPORTER_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 - - struct meltframe_meltrout_154_WARMELTmiNORMAL_NORMAL_PATMACRO_EXPORTER_st - { - int mcfr_nbvar; -#if MELT_HAVE_DEBUG - const char *mcfr_flocs; -#else /*!MELT_HAVE_DEBUG */ - const char *mcfr_unusedflocs; -#endif /*MELT_HAVE_DEBUG */ - struct meltclosure_st *mcfr_clos; - struct excepth_melt_st *mcfr_exh; - struct melt_callframe_st *mcfr_prev; -#undef MELTFRAM_NBVARPTR -#undef MELTFRAM_NBVARNUM -#define MELTFRAM_NBVARPTR 30 - melt_ptr_t mcfr_varptr[30]; -#define MELTFRAM_NBVARNUM 7 - long mcfr_varnum[7]; -/*others*/ - long _spare_; - } - *meltframptr_ = 0, meltfram__; /*declfrastruct */ -#define meltframe meltfram__ - /*meltrout_154_WARMELTmiNORMAL_NORMAL_PATMACRO_EXPORTER is not initial declstructinit */ - if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) - { /*mark for ggc */ - int meltix; - meltframptr_ = - (struct - meltframe_meltrout_154_WARMELTmiNORMAL_NORMAL_PATMACRO_EXPORTER_st *) - meltfirstargp_; - /* use arguments meltrout_154_WARMELTmiNORMAL_NORMAL_PATMACRO_EXPORTER output_curframe_declstruct_init */ - (void) meltclosp_; - (void) meltfirstargp_; - (void) meltxargdescr_; - (void) meltxargtab_; - (void) meltxresdescr_; - (void) meltxrestab_; - /* marking closure */ - gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); - for (meltix = 0; meltix < 30; meltix++) - if (meltframptr_->mcfr_varptr[meltix]) - gt_ggc_mx_melt_un (meltframptr_->mcfr_varptr[meltix]); - return NULL; - } /*end markggc */ ; - memset (&meltfram__, 0, sizeof (meltfram__)); -/* declstructinit plain routine meltrout_154_WARMELTmiNORMAL_NORMAL_PATMACRO_EXPORTER nbval 30*/ - meltfram__.mcfr_nbvar = 30 /*nbval */ ; - meltfram__.mcfr_clos = meltclosp_; - meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; - melt_topframe = (struct melt_callframe_st *) &meltfram__; - melt_trace_start ("NORMAL_PATMACRO_EXPORTER", meltcallcount); -/*getargs*/ - - /*getarg#0 */ - MELT_LOCATION ("warmelt-normal.melt:8032:/ getarg"); - /*_.ENV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; - - /*getarg#1 */ - /*^getarg */ - if (meltxargdescr_[0] != MELTBPAR_PTR) - goto meltlab_endgetargs; - /*_.NCX__V3*/ meltfptr[2] = - (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; - gcc_assert (melt_discr ((melt_ptr_t) ( /*_.NCX__V3*/ meltfptr[2])) != NULL); - - - /*getarg#2 */ - /*^getarg */ - if (meltxargdescr_[1] != MELTBPAR_PTR) - goto meltlab_endgetargs; - /*_.PSLOC__V4*/ meltfptr[3] = - (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; - gcc_assert (melt_discr ((melt_ptr_t) ( /*_.PSLOC__V4*/ meltfptr[3])) != - NULL); - - - /*getarg#3 */ - /*^getarg */ - if (meltxargdescr_[2] != MELTBPAR_PTR) - goto meltlab_endgetargs; - /*_.BINDSLIST__V5*/ meltfptr[4] = - (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; - gcc_assert (melt_discr ((melt_ptr_t) ( /*_.BINDSLIST__V5*/ meltfptr[4])) != - NULL); - - ; - goto meltlab_endgetargs; -meltlab_endgetargs:; -/*body*/ -/*^block*/ -/*anyblock*/ - { - - -#if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8033:/ cppif.then"); - /*^block */ - /*anyblock */ - { - - - MELT_CHECK_SIGNAL (); - ; - /*_#IS_A__L1*/ meltfnum[0] = - melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V2*/ meltfptr[1]), - (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ - meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-normal.melt:8033:/ cond"); - /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ - { - /*^cond.then */ - /*_._IFELSE___V7*/ meltfptr[6] = ( /*nil */ NULL);; - } - else - { - MELT_LOCATION ("warmelt-normal.melt:8033:/ cond.else"); - - /*^block */ - /*anyblock */ - { - - - - - { - /*^locexp */ - melt_assert_failed (("check env"), - ("warmelt-normal.melt") - ? ("warmelt-normal.melt") : __FILE__, - (8033) ? (8033) : __LINE__, __FUNCTION__); - ; - } - ; - /*clear *//*_._IFELSE___V7*/ meltfptr[6] = 0; - /*epilog */ - } - ; - } - ; - /*^compute */ - /*_.IFCPP___V6*/ meltfptr[5] = /*_._IFELSE___V7*/ meltfptr[6];; - /*epilog */ - - MELT_LOCATION ("warmelt-normal.melt:8033:/ clear"); - /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; - /*^clear */ - /*clear *//*_._IFELSE___V7*/ meltfptr[6] = 0; - } - -#else /*MELT_HAVE_DEBUG */ - /*^cppif.else */ - /*_.IFCPP___V6*/ meltfptr[5] = ( /*nil */ NULL); -#endif /*MELT_HAVE_DEBUG */ - ; - -#if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8034:/ cppif.then"); - /*^block */ - /*anyblock */ - { - - - MELT_CHECK_SIGNAL (); - ; - /*_#IS_LIST__L2*/ meltfnum[0] = - (melt_magic_discr ((melt_ptr_t) ( /*_.BINDSLIST__V5*/ meltfptr[4])) == - MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-normal.melt:8034:/ cond"); - /*cond */ if ( /*_#IS_LIST__L2*/ meltfnum[0]) /*then */ - { - /*^cond.then */ - /*_._IFELSE___V9*/ meltfptr[8] = ( /*nil */ NULL);; - } - else - { - MELT_LOCATION ("warmelt-normal.melt:8034:/ cond.else"); - - /*^block */ - /*anyblock */ - { - - - - - { - /*^locexp */ - melt_assert_failed (("check bindslist"), - ("warmelt-normal.melt") - ? ("warmelt-normal.melt") : __FILE__, - (8034) ? (8034) : __LINE__, __FUNCTION__); - ; - } - ; - /*clear *//*_._IFELSE___V9*/ meltfptr[8] = 0; - /*epilog */ - } - ; - } - ; - /*^compute */ - /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[8];; - /*epilog */ - - MELT_LOCATION ("warmelt-normal.melt:8034:/ clear"); - /*clear *//*_#IS_LIST__L2*/ meltfnum[0] = 0; - /*^clear */ - /*clear *//*_._IFELSE___V9*/ meltfptr[8] = 0; - } - -#else /*MELT_HAVE_DEBUG */ - /*^cppif.else */ - /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); -#endif /*MELT_HAVE_DEBUG */ - ; - -#if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8035:/ cppif.then"); - /*^block */ - /*anyblock */ - { - - - MELT_CHECK_SIGNAL (); - ; - /*_#IS_A__L3*/ meltfnum[0] = - melt_is_instance_of ((melt_ptr_t) ( /*_.NCX__V3*/ meltfptr[2]), - (melt_ptr_t) (( /*!CLASS_NORMALIZATION_CONTEXT */ - meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-normal.melt:8035:/ cond"); - /*cond */ if ( /*_#IS_A__L3*/ meltfnum[0]) /*then */ - { - /*^cond.then */ - /*_._IFELSE___V11*/ meltfptr[10] = ( /*nil */ NULL);; - } - else - { - MELT_LOCATION ("warmelt-normal.melt:8035:/ cond.else"); - - /*^block */ - /*anyblock */ - { - - - - - { - /*^locexp */ - melt_assert_failed (("check ncx"), - ("warmelt-normal.melt") - ? ("warmelt-normal.melt") : __FILE__, - (8035) ? (8035) : __LINE__, __FUNCTION__); - ; - } - ; - /*clear *//*_._IFELSE___V11*/ meltfptr[10] = 0; - /*epilog */ - } - ; - } - ; - /*^compute */ - /*_.IFCPP___V10*/ meltfptr[8] = /*_._IFELSE___V11*/ meltfptr[10];; - /*epilog */ - - MELT_LOCATION ("warmelt-normal.melt:8035:/ clear"); - /*clear *//*_#IS_A__L3*/ meltfnum[0] = 0; - /*^clear */ - /*clear *//*_._IFELSE___V11*/ meltfptr[10] = 0; - } - -#else /*MELT_HAVE_DEBUG */ - /*^cppif.else */ - /*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL); -#endif /*MELT_HAVE_DEBUG */ - ; - -#if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8036:/ cppif.then"); - /*^block */ - /*anyblock */ - { - - - { - /*^locexp */ - /*melt_increment_dbgcounter */ -#if MELT_HAVE_DEBUG - melt_dbgcounter++; -#endif - ; - } - ; - - MELT_CHECK_SIGNAL (); - ; - /*_#MELT_NEED_DBG__L4*/ meltfnum[0] = - /*MELT_NEED_DBG */ -#if MELT_HAVE_DEBUG - ( /*melt_need_dbg */ melt_need_debug ((int) 0)) -#else - 0 /* no melt_need_dbg */ -#endif /*MELT_HAVE_DEBUG */ - ;; - MELT_LOCATION ("warmelt-normal.melt:8036:/ cond"); - /*cond */ if ( /*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then */ - { - /*^cond.then */ - /*^block */ - /*anyblock */ - { - - /*_#MELT_CALLCOUNT__L5*/ meltfnum[4] = - /* for melt_callcount */ -#if MELT_HAVE_DEBUG && defined (meltcallcount) - meltcallcount /* melt_callcount debugging */ -#else - 0L /* melt_callcount without debug */ -#endif /* MELT_HAVE_DEBUG melt_callcount */ - ;; - - MELT_CHECK_SIGNAL (); - ; - MELT_LOCATION ("warmelt-normal.melt:8036:/ apply"); - /*apply */ - { - union meltparam_un argtab[5]; - memset (&argtab, 0, sizeof (argtab)); - /*^apply.arg */ - argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L5*/ meltfnum[4]; - /*^apply.arg */ - argtab[1].meltbp_cstring = "warmelt-normal.melt"; - /*^apply.arg */ - argtab[2].meltbp_long = 8036; - /*^apply.arg */ - argtab[3].meltbp_cstring = - "normal_patmacro_exporter start psloc"; - /*^apply.arg */ - argtab[4].meltbp_aptr = - (melt_ptr_t *) & /*_.PSLOC__V4*/ meltfptr[3]; - /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] = - melt_apply ((meltclosure_ptr_t) - (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[2])), - (melt_ptr_t) (( /*nil */ NULL)), - (MELTBPARSTR_LONG MELTBPARSTR_CSTRING - MELTBPARSTR_LONG MELTBPARSTR_CSTRING - MELTBPARSTR_PTR ""), argtab, "", - (union meltparam_un *) 0); - } - ; - /*_._IF___V13*/ meltfptr[12] = - /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13];; - /*epilog */ - - MELT_LOCATION ("warmelt-normal.melt:8036:/ clear"); - /*clear *//*_#MELT_CALLCOUNT__L5*/ meltfnum[4] = 0; - /*^clear */ - /*clear *//*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] = 0; - } - ; - } - else - { /*^cond.else */ - - /*_._IF___V13*/ meltfptr[12] = NULL;; - } - ; - MELT_LOCATION ("warmelt-normal.melt:8036:/ quasiblock"); - - - /*_.PROGN___V15*/ meltfptr[13] = /*_._IF___V13*/ meltfptr[12];; - /*^compute */ - /*_.IFCPP___V12*/ meltfptr[10] = /*_.PROGN___V15*/ meltfptr[13];; - /*epilog */ - - MELT_LOCATION ("warmelt-normal.melt:8036:/ clear"); - /*clear *//*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0; - /*^clear */ - /*clear *//*_._IF___V13*/ meltfptr[12] = 0; - /*^clear */ - /*clear *//*_.PROGN___V15*/ meltfptr[13] = 0; - } - -#else /*MELT_HAVE_DEBUG */ - /*^cppif.else */ - /*_.IFCPP___V12*/ meltfptr[10] = ( /*nil */ NULL); -#endif /*MELT_HAVE_DEBUG */ - ; - MELT_LOCATION ("warmelt-normal.melt:8037:/ quasiblock"); - - - - MELT_CHECK_SIGNAL (); - ; - /*^apply */ - /*apply */ - { - /*_.CSYMVALEXP__V17*/ meltfptr[13] = - melt_apply ((meltclosure_ptr_t) - (( /*!CLONE_SYMBOL */ meltfrout->tabval[3])), - (melt_ptr_t) (( /*!konst_4__PATMACROXPORTER_ */ - meltfrout->tabval[4])), (""), - (union meltparam_un *) 0, "", (union meltparam_un *) 0); - } - ; - - MELT_CHECK_SIGNAL (); - ; - MELT_LOCATION ("warmelt-normal.melt:8038:/ quasiblock"); - - - /*^rawallocobj */ - /*rawallocobj */ - { - melt_ptr_t newobj = 0; - melt_raw_object_create (newobj, - (melt_ptr_t) (( /*!CLASS_NREP_PREDEF */ - meltfrout->tabval[5])), (2), - "CLASS_NREP_PREDEF"); - /*_.INST__V19*/ meltfptr[18] = - newobj; - }; - ; - /*^putslot */ - /*putslot */ - melt_assertmsg ("putslot checkobj @NREP_LOC", - melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V19*/ meltfptr[18])) == - MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V19*/ meltfptr[18]), (0), - ( /*_.PSLOC__V4*/ meltfptr[3]), "NREP_LOC"); - ; - /*^putslot */ - /*putslot */ - melt_assertmsg ("putslot checkobj @NRPREDEF", - melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V19*/ meltfptr[18])) == - MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V19*/ meltfptr[18]), (1), - (( /*!konst_6_INITIAL_SYSTEM_DATA */ meltfrout-> - tabval[6])), "NRPREDEF"); - ; - /*^touchobj */ - - melt_dbgtrace_written_object ( /*_.INST__V19*/ meltfptr[18], - "newly made instance"); - ; - /*_.NSYSDAT__V18*/ meltfptr[17] = /*_.INST__V19*/ meltfptr[18];; - - MELT_CHECK_SIGNAL (); - ; - - MELT_CHECK_SIGNAL (); - ; - MELT_LOCATION ("warmelt-normal.melt:8045:/ quasiblock"); - - - /*^rawallocobj */ - /*rawallocobj */ - { - melt_ptr_t newobj = 0; - melt_raw_object_create (newobj, - (melt_ptr_t) (( /*!CLASS_NREP_UNSAFE_GET_FIELD */ meltfrout->tabval[9])), (3), "CLASS_NREP_UNSAFE_GET_FIELD"); - /*_.INST__V21*/ meltfptr[20] = - newobj; - }; - ; - /*^putslot */ - /*putslot */ - melt_assertmsg ("putslot checkobj @NREP_LOC", - melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V21*/ meltfptr[20])) == - MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V21*/ meltfptr[20]), (0), - ( /*_.PSLOC__V4*/ meltfptr[3]), "NREP_LOC"); - ; - /*^putslot */ - /*putslot */ - melt_assertmsg ("putslot checkobj @NUGET_OBJ", - melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V21*/ meltfptr[20])) == - MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V21*/ meltfptr[20]), (1), - ( /*_.NSYSDAT__V18*/ meltfptr[17]), "NUGET_OBJ"); - ; - /*^putslot */ - /*putslot */ - melt_assertmsg ("putslot checkobj @NUGET_FIELD", - melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V21*/ meltfptr[20])) == - MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V21*/ meltfptr[20]), (2), - (( /*!SYSDATA_PATMACRO_EXPORTER */ meltfrout-> - tabval[10])), "NUGET_FIELD"); - ; - /*^touchobj */ - - melt_dbgtrace_written_object ( /*_.INST__V21*/ meltfptr[20], - "newly made instance"); - ; - /*_.INST___V20*/ meltfptr[19] = /*_.INST__V21*/ meltfptr[20];; - MELT_LOCATION ("warmelt-normal.melt:8041:/ quasiblock"); - - - /*^rawallocobj */ - /*rawallocobj */ - { - melt_ptr_t newobj = 0; - melt_raw_object_create (newobj, - (melt_ptr_t) (( /*!CLASS_NORMAL_LET_BINDING */ - meltfrout->tabval[7])), (4), - "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V23*/ meltfptr[22] = - newobj; - }; - ; - /*^putslot */ - /*putslot */ - melt_assertmsg ("putslot checkobj @LETBIND_LOC", - melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V23*/ meltfptr[22])) == - MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V23*/ meltfptr[22]), (3), - ( /*_.PSLOC__V4*/ meltfptr[3]), "LETBIND_LOC"); - ; - /*^putslot */ - /*putslot */ - melt_assertmsg ("putslot checkobj @BINDER", - melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V23*/ meltfptr[22])) == - MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V23*/ meltfptr[22]), (0), - ( /*_.CSYMVALEXP__V17*/ meltfptr[13]), "BINDER"); - ; - /*^putslot */ - /*putslot */ - melt_assertmsg ("putslot checkobj @LETBIND_TYPE", - melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V23*/ meltfptr[22])) == - MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V23*/ meltfptr[22]), (1), - (( /*!CTYPE_VALUE */ meltfrout->tabval[8])), - "LETBIND_TYPE"); - ; - /*^putslot */ - /*putslot */ - melt_assertmsg ("putslot checkobj @LETBIND_EXPR", - melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V23*/ meltfptr[22])) == - MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V23*/ meltfptr[22]), (2), - ( /*_.INST___V20*/ meltfptr[19]), "LETBIND_EXPR"); - ; - /*^touchobj */ - - melt_dbgtrace_written_object ( /*_.INST__V23*/ meltfptr[22], - "newly made instance"); - ; - /*_.CBIND__V22*/ meltfptr[21] = /*_.INST__V23*/ meltfptr[22];; - - MELT_CHECK_SIGNAL (); - ; - MELT_LOCATION ("warmelt-normal.melt:8049:/ quasiblock"); - - - /*^rawallocobj */ - /*rawallocobj */ - { - melt_ptr_t newobj = 0; - melt_raw_object_create (newobj, - (melt_ptr_t) (( /*!CLASS_NREP_LOCSYMOCC */ - meltfrout->tabval[11])), (4), - "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V25*/ meltfptr[24] = - newobj; - }; - ; - /*^putslot */ - /*putslot */ - melt_assertmsg ("putslot checkobj @NREP_LOC", - melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V25*/ meltfptr[24])) == - MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V25*/ meltfptr[24]), (0), - ( /*_.PSLOC__V4*/ meltfptr[3]), "NREP_LOC"); - ; - /*^putslot */ - /*putslot */ - melt_assertmsg ("putslot checkobj @NOCC_CTYP", - melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V25*/ meltfptr[24])) == - MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V25*/ meltfptr[24]), (2), - (( /*!CTYPE_VALUE */ meltfrout->tabval[8])), - "NOCC_CTYP"); - ; - /*^putslot */ - /*putslot */ - melt_assertmsg ("putslot checkobj @NOCC_SYMB", - melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V25*/ meltfptr[24])) == - MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V25*/ meltfptr[24]), (1), - ( /*_.CSYMVALEXP__V17*/ meltfptr[13]), "NOCC_SYMB"); - ; - /*^putslot */ - /*putslot */ - melt_assertmsg ("putslot checkobj @NOCC_BIND", - melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V25*/ meltfptr[24])) == - MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V25*/ meltfptr[24]), (3), - ( /*_.CBIND__V22*/ meltfptr[21]), "NOCC_BIND"); - ; - /*^touchobj */ - - melt_dbgtrace_written_object ( /*_.INST__V25*/ meltfptr[24], - "newly made instance"); - ; - /*_.LOCSYM__V24*/ meltfptr[23] = /*_.INST__V25*/ meltfptr[24];; - - { - MELT_LOCATION ("warmelt-normal.melt:8055:/ locexp"); - meltgc_append_list ((melt_ptr_t) ( /*_.BINDSLIST__V5*/ meltfptr[4]), - (melt_ptr_t) ( /*_.CBIND__V22*/ meltfptr[21])); - } - ; - -#if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8056:/ cppif.then"); - /*^block */ - /*anyblock */ - { - - - { - /*^locexp */ - /*melt_increment_dbgcounter */ -#if MELT_HAVE_DEBUG - melt_dbgcounter++; -#endif - ; - } - ; - - MELT_CHECK_SIGNAL (); - ; - /*_#MELT_NEED_DBG__L6*/ meltfnum[4] = - /*MELT_NEED_DBG */ -#if MELT_HAVE_DEBUG - ( /*melt_need_dbg */ melt_need_debug ((int) 0)) -#else - 0 /* no melt_need_dbg */ -#endif /*MELT_HAVE_DEBUG */ - ;; - MELT_LOCATION ("warmelt-normal.melt:8056:/ cond"); - /*cond */ if ( /*_#MELT_NEED_DBG__L6*/ meltfnum[4]) /*then */ - { - /*^cond.then */ - /*^block */ - /*anyblock */ - { - - /*_#MELT_CALLCOUNT__L7*/ meltfnum[0] = - /* for melt_callcount */ -#if MELT_HAVE_DEBUG && defined (meltcallcount) - meltcallcount /* melt_callcount debugging */ -#else - 0L /* melt_callcount without debug */ -#endif /* MELT_HAVE_DEBUG melt_callcount */ - ;; - - MELT_CHECK_SIGNAL (); - ; - MELT_LOCATION ("warmelt-normal.melt:8056:/ apply"); - /*apply */ - { - union meltparam_un argtab[5]; - memset (&argtab, 0, sizeof (argtab)); - /*^apply.arg */ - argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L7*/ meltfnum[0]; - /*^apply.arg */ - argtab[1].meltbp_cstring = "warmelt-normal.melt"; - /*^apply.arg */ - argtab[2].meltbp_long = 8056; - /*^apply.arg */ - argtab[3].meltbp_cstring = - "normal_patmacro_exporter return locsym"; - /*^apply.arg */ - argtab[4].meltbp_aptr = - (melt_ptr_t *) & /*_.LOCSYM__V24*/ meltfptr[23]; - /*_.MELT_DEBUG_FUN__V28*/ meltfptr[27] = - melt_apply ((meltclosure_ptr_t) - (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[2])), - (melt_ptr_t) (( /*nil */ NULL)), - (MELTBPARSTR_LONG MELTBPARSTR_CSTRING - MELTBPARSTR_LONG MELTBPARSTR_CSTRING - MELTBPARSTR_PTR ""), argtab, "", - (union meltparam_un *) 0); - } - ; - /*_._IF___V27*/ meltfptr[26] = - /*_.MELT_DEBUG_FUN__V28*/ meltfptr[27];; - /*epilog */ - - MELT_LOCATION ("warmelt-normal.melt:8056:/ clear"); - /*clear *//*_#MELT_CALLCOUNT__L7*/ meltfnum[0] = 0; - /*^clear */ - /*clear *//*_.MELT_DEBUG_FUN__V28*/ meltfptr[27] = 0; - } - ; - } - else - { /*^cond.else */ - - /*_._IF___V27*/ meltfptr[26] = NULL;; - } - ; - MELT_LOCATION ("warmelt-normal.melt:8056:/ quasiblock"); - - - /*_.PROGN___V29*/ meltfptr[27] = /*_._IF___V27*/ meltfptr[26];; - /*^compute */ - /*_.IFCPP___V26*/ meltfptr[25] = /*_.PROGN___V29*/ meltfptr[27];; - /*epilog */ - - MELT_LOCATION ("warmelt-normal.melt:8056:/ clear"); - /*clear *//*_#MELT_NEED_DBG__L6*/ meltfnum[4] = 0; - /*^clear */ - /*clear *//*_._IF___V27*/ meltfptr[26] = 0; - /*^clear */ - /*clear *//*_.PROGN___V29*/ meltfptr[27] = 0; - } - -#else /*MELT_HAVE_DEBUG */ - /*^cppif.else */ - /*_.IFCPP___V26*/ meltfptr[25] = ( /*nil */ NULL); -#endif /*MELT_HAVE_DEBUG */ - ; - - MELT_CHECK_SIGNAL (); - ; - MELT_LOCATION ("warmelt-normal.melt:8057:/ quasiblock"); - - - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LOCSYM__V24*/ meltfptr[23];; - - { - MELT_LOCATION ("warmelt-normal.melt:8057:/ 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; - /*_.LET___V16*/ meltfptr[12] = /*_.RETURN___V30*/ meltfptr[26];; - - MELT_LOCATION ("warmelt-normal.melt:8037:/ clear"); - /*clear *//*_.CSYMVALEXP__V17*/ meltfptr[13] = 0; - /*^clear */ - /*clear *//*_.NSYSDAT__V18*/ meltfptr[17] = 0; - /*^clear */ - /*clear *//*_.INST___V20*/ meltfptr[19] = 0; - /*^clear */ - /*clear *//*_.CBIND__V22*/ meltfptr[21] = 0; - /*^clear */ - /*clear *//*_.LOCSYM__V24*/ meltfptr[23] = 0; - /*^clear */ - /*clear *//*_.IFCPP___V26*/ meltfptr[25] = 0; - /*^clear */ - /*clear *//*_.RETURN___V30*/ meltfptr[26] = 0; - - MELT_CHECK_SIGNAL (); - ; - MELT_LOCATION ("warmelt-normal.melt:8032:/ quasiblock"); - - - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[12];; - - { - MELT_LOCATION ("warmelt-normal.melt:8032:/ 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___V6*/ meltfptr[5] = 0; - /*^clear */ - /*clear *//*_.IFCPP___V8*/ meltfptr[6] = 0; - /*^clear */ - /*clear *//*_.IFCPP___V10*/ meltfptr[8] = 0; - /*^clear */ - /*clear *//*_.IFCPP___V12*/ meltfptr[10] = 0; - /*^clear */ - /*clear *//*_.LET___V16*/ meltfptr[12] = 0; - } - - ; - goto meltlabend_rout; -meltlabend_rout: - melt_trace_end ("NORMAL_PATMACRO_EXPORTER", meltcallcount); - MELT_TRACE_EXIT_LOCATION (); - melt_blocklevel_signals = - current_blocklevel_signals_meltrout_154_WARMELTmiNORMAL_NORMAL_PATMACRO_EXPORTER_melt; - melt_topframe = (struct melt_callframe_st *) meltfram__.mcfr_prev; - return (melt_ptr_t) ( /*_._RETVAL___V1*/ meltfptr[0]); -#undef meltcallcount -#undef meltfram__ -#undef MELTFRAM_NBVARNUM -#undef MELTFRAM_NBVARPTR -} /*end meltrout_154_WARMELTmiNORMAL_NORMAL_PATMACRO_EXPORTER */ - - - - - -melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_155_WARMELTmiNORMAL_NORMAL_EXPORTED_MACRO (meltclosure_ptr_t +meltrout_154_WARMELTmiNORMAL_NORMAL_EXPORTED_MACRO (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], - union meltparam_un * - meltxargtab_, + union meltparam_un + *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], - union meltparam_un * - meltxrestab_) + union meltparam_un + *meltxrestab_) { long - current_blocklevel_signals_meltrout_155_WARMELTmiNORMAL_NORMAL_EXPORTED_MACRO_melt + current_blocklevel_signals_meltrout_154_WARMELTmiNORMAL_NORMAL_EXPORTED_MACRO_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG @@ -3485,7 +2608,7 @@ meltrout_155_WARMELTmiNORMAL_NORMAL_EXPORTED_MACRO (meltclosure_ptr_t #define meltcallcount 0L #endif - struct meltframe_meltrout_155_WARMELTmiNORMAL_NORMAL_EXPORTED_MACRO_st + struct meltframe_meltrout_154_WARMELTmiNORMAL_NORMAL_EXPORTED_MACRO_st { int mcfr_nbvar; #if MELT_HAVE_DEBUG @@ -3498,24 +2621,24 @@ meltrout_155_WARMELTmiNORMAL_NORMAL_EXPORTED_MACRO (meltclosure_ptr_t struct melt_callframe_st *mcfr_prev; #undef MELTFRAM_NBVARPTR #undef MELTFRAM_NBVARNUM -#define MELTFRAM_NBVARPTR 60 - melt_ptr_t mcfr_varptr[60]; -#define MELTFRAM_NBVARNUM 15 - long mcfr_varnum[15]; +#define MELTFRAM_NBVARPTR 61 + melt_ptr_t mcfr_varptr[61]; +#define MELTFRAM_NBVARNUM 14 + long mcfr_varnum[14]; /*others*/ long _spare_; } *meltframptr_ = 0, meltfram__; /*declfrastruct */ #define meltframe meltfram__ - /*meltrout_155_WARMELTmiNORMAL_NORMAL_EXPORTED_MACRO is not initial declstructinit */ + /*meltrout_154_WARMELTmiNORMAL_NORMAL_EXPORTED_MACRO is not initial declstructinit */ if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int meltix; meltframptr_ = (struct - meltframe_meltrout_155_WARMELTmiNORMAL_NORMAL_EXPORTED_MACRO_st *) + meltframe_meltrout_154_WARMELTmiNORMAL_NORMAL_EXPORTED_MACRO_st *) meltfirstargp_; - /* use arguments meltrout_155_WARMELTmiNORMAL_NORMAL_EXPORTED_MACRO output_curframe_declstruct_init */ + /* use arguments meltrout_154_WARMELTmiNORMAL_NORMAL_EXPORTED_MACRO output_curframe_declstruct_init */ (void) meltclosp_; (void) meltfirstargp_; (void) meltxargdescr_; @@ -3524,14 +2647,14 @@ meltrout_155_WARMELTmiNORMAL_NORMAL_EXPORTED_MACRO (meltclosure_ptr_t (void) meltxrestab_; /* marking closure */ gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); - for (meltix = 0; meltix < 60; meltix++) + for (meltix = 0; meltix < 61; meltix++) if (meltframptr_->mcfr_varptr[meltix]) gt_ggc_mx_melt_un (meltframptr_->mcfr_varptr[meltix]); return NULL; } /*end markggc */ ; memset (&meltfram__, 0, sizeof (meltfram__)); -/* declstructinit plain routine meltrout_155_WARMELTmiNORMAL_NORMAL_EXPORTED_MACRO nbval 60*/ - meltfram__.mcfr_nbvar = 60 /*nbval */ ; +/* declstructinit plain routine meltrout_154_WARMELTmiNORMAL_NORMAL_EXPORTED_MACRO nbval 61*/ + meltfram__.mcfr_nbvar = 61 /*nbval */ ; meltfram__.mcfr_clos = meltclosp_; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; melt_topframe = (struct melt_callframe_st *) &meltfram__; @@ -3539,7 +2662,7 @@ meltrout_155_WARMELTmiNORMAL_NORMAL_EXPORTED_MACRO (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-normal.melt:8064:/ getarg"); + MELT_LOCATION ("warmelt-normal.melt:8035:/ getarg"); /*_.SYM__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -3556,47 +2679,37 @@ meltrout_155_WARMELTmiNORMAL_NORMAL_EXPORTED_MACRO (meltclosure_ptr_t /*^getarg */ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.NMACROXP__V4*/ meltfptr[3] = + /*_.ENV__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; - gcc_assert (melt_discr ((melt_ptr_t) ( /*_.NMACROXP__V4*/ meltfptr[3])) != - NULL); + gcc_assert (melt_discr ((melt_ptr_t) ( /*_.ENV__V4*/ meltfptr[3])) != NULL); /*getarg#3 */ /*^getarg */ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V5*/ meltfptr[4] = + /*_.NCX__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; - gcc_assert (melt_discr ((melt_ptr_t) ( /*_.ENV__V5*/ meltfptr[4])) != NULL); + gcc_assert (melt_discr ((melt_ptr_t) ( /*_.NCX__V5*/ meltfptr[4])) != NULL); /*getarg#4 */ /*^getarg */ if (meltxargdescr_[3] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.NCX__V6*/ meltfptr[5] = + /*_.PSLOC__V6*/ meltfptr[5] = (meltxargtab_[3].meltbp_aptr) ? (*(meltxargtab_[3].meltbp_aptr)) : NULL; - gcc_assert (melt_discr ((melt_ptr_t) ( /*_.NCX__V6*/ meltfptr[5])) != NULL); + gcc_assert (melt_discr ((melt_ptr_t) ( /*_.PSLOC__V6*/ meltfptr[5])) != + NULL); /*getarg#5 */ /*^getarg */ if (meltxargdescr_[4] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.PSLOC__V7*/ meltfptr[6] = + /*_.BINDSLIST__V7*/ meltfptr[6] = (meltxargtab_[4].meltbp_aptr) ? (*(meltxargtab_[4].meltbp_aptr)) : NULL; - gcc_assert (melt_discr ((melt_ptr_t) ( /*_.PSLOC__V7*/ meltfptr[6])) != - NULL); - - - /*getarg#6 */ - /*^getarg */ - if (meltxargdescr_[5] != MELTBPAR_PTR) - goto meltlab_endgetargs; - /*_.BINDSLIST__V8*/ meltfptr[7] = - (meltxargtab_[5].meltbp_aptr) ? (*(meltxargtab_[5].meltbp_aptr)) : NULL; - gcc_assert (melt_discr ((melt_ptr_t) ( /*_.BINDSLIST__V8*/ meltfptr[7])) != + gcc_assert (melt_discr ((melt_ptr_t) ( /*_.BINDSLIST__V7*/ meltfptr[6])) != NULL); ; @@ -3609,7 +2722,7 @@ meltlab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8065:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8036:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3635,7 +2748,7 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8065:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8036:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -3654,17 +2767,17 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8065:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8036:/ apply"); /*apply */ { - union meltparam_un argtab[9]; + union meltparam_un argtab[7]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8065; + argtab[2].meltbp_long = 8036; /*^apply.arg */ argtab[3].meltbp_cstring = "normal_exported_macro start sym="; /*^apply.arg */ @@ -3675,64 +2788,58 @@ meltlab_endgetargs:; /*^apply.arg */ argtab[6].meltbp_aptr = (melt_ptr_t *) & /*_.NEXP__V3*/ meltfptr[2]; - /*^apply.arg */ - argtab[7].meltbp_cstring = " nmacroxp="; - /*^apply.arg */ - argtab[8].meltbp_aptr = - (melt_ptr_t *) & /*_.NMACROXP__V4*/ meltfptr[3]; - /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10] = + /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t) (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])), (melt_ptr_t) (( /*nil */ NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING - MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; - /*_._IF___V10*/ meltfptr[9] = - /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10];; + /*_._IF___V9*/ meltfptr[8] = + /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8065:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8036:/ clear"); /*clear *//*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ - /*clear *//*_.MELT_DEBUG_FUN__V11*/ meltfptr[10] = 0; + /*clear *//*_.MELT_DEBUG_FUN__V10*/ meltfptr[9] = 0; } ; } else { /*^cond.else */ - /*_._IF___V10*/ meltfptr[9] = NULL;; + /*_._IF___V9*/ meltfptr[8] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8065:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8036:/ quasiblock"); - /*_.PROGN___V12*/ meltfptr[10] = /*_._IF___V10*/ meltfptr[9];; + /*_.PROGN___V11*/ meltfptr[9] = /*_._IF___V9*/ meltfptr[8];; /*^compute */ - /*_.IFCPP___V9*/ meltfptr[8] = /*_.PROGN___V12*/ meltfptr[10];; + /*_.IFCPP___V8*/ meltfptr[7] = /*_.PROGN___V11*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8065:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8036:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ - /*clear *//*_._IF___V10*/ meltfptr[9] = 0; + /*clear *//*_._IF___V9*/ meltfptr[8] = 0; /*^clear */ - /*clear *//*_.PROGN___V12*/ meltfptr[10] = 0; + /*clear *//*_.PROGN___V11*/ meltfptr[9] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V9*/ meltfptr[8] = ( /*nil */ NULL); + /*_.IFCPP___V8*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8067:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8037:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3744,15 +2851,15 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SYM__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-normal.melt:8067:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8037:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ - /*_._IFELSE___V14*/ meltfptr[10] = ( /*nil */ NULL);; + /*_._IFELSE___V13*/ meltfptr[9] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-normal.melt:8067:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8037:/ cond.else"); /*^block */ /*anyblock */ @@ -3766,34 +2873,34 @@ meltlab_endgetargs:; melt_assert_failed (("check sym"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8067) ? (8067) : __LINE__, __FUNCTION__); + (8037) ? (8037) : __LINE__, __FUNCTION__); ; } ; - /*clear *//*_._IFELSE___V14*/ meltfptr[10] = 0; + /*clear *//*_._IFELSE___V13*/ meltfptr[9] = 0; /*epilog */ } ; } ; /*^compute */ - /*_.IFCPP___V13*/ meltfptr[9] = /*_._IFELSE___V14*/ meltfptr[10];; + /*_.IFCPP___V12*/ meltfptr[8] = /*_._IFELSE___V13*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8067:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8037:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ - /*clear *//*_._IFELSE___V14*/ meltfptr[10] = 0; + /*clear *//*_._IFELSE___V13*/ meltfptr[9] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V13*/ meltfptr[9] = ( /*nil */ NULL); + /*_.IFCPP___V12*/ meltfptr[8] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8068:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8038:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3805,15 +2912,15 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.NEXP__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_NREP */ meltfrout-> tabval[2])));; - MELT_LOCATION ("warmelt-normal.melt:8068:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8038:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ - /*_._IFELSE___V16*/ meltfptr[15] = ( /*nil */ NULL);; + /*_._IFELSE___V15*/ meltfptr[14] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-normal.melt:8068:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8038:/ cond.else"); /*^block */ /*anyblock */ @@ -3827,34 +2934,34 @@ meltlab_endgetargs:; melt_assert_failed (("check nexp"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8068) ? (8068) : __LINE__, __FUNCTION__); + (8038) ? (8038) : __LINE__, __FUNCTION__); ; } ; - /*clear *//*_._IFELSE___V16*/ meltfptr[15] = 0; + /*clear *//*_._IFELSE___V15*/ meltfptr[14] = 0; /*epilog */ } ; } ; /*^compute */ - /*_.IFCPP___V15*/ meltfptr[10] = /*_._IFELSE___V16*/ meltfptr[15];; + /*_.IFCPP___V14*/ meltfptr[9] = /*_._IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8068:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8038:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ - /*clear *//*_._IFELSE___V16*/ meltfptr[15] = 0; + /*clear *//*_._IFELSE___V15*/ meltfptr[14] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V15*/ meltfptr[10] = ( /*nil */ NULL); + /*_.IFCPP___V14*/ meltfptr[9] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8069:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8039:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3863,79 +2970,18 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; /*_#IS_A__L5*/ meltfnum[1] = - melt_is_instance_of ((melt_ptr_t) ( /*_.NMACROXP__V4*/ meltfptr[3]), - (melt_ptr_t) (( /*!CLASS_NREP */ meltfrout-> - tabval[2])));; - MELT_LOCATION ("warmelt-normal.melt:8069:/ cond"); - /*cond */ if ( /*_#IS_A__L5*/ meltfnum[1]) /*then */ - { - /*^cond.then */ - /*_._IFELSE___V18*/ meltfptr[17] = ( /*nil */ NULL);; - } - else - { - MELT_LOCATION ("warmelt-normal.melt:8069:/ cond.else"); - - /*^block */ - /*anyblock */ - { - - - - - { - /*^locexp */ - melt_assert_failed (("check nmacroxp"), - ("warmelt-normal.melt") - ? ("warmelt-normal.melt") : __FILE__, - (8069) ? (8069) : __LINE__, __FUNCTION__); - ; - } - ; - /*clear *//*_._IFELSE___V18*/ meltfptr[17] = 0; - /*epilog */ - } - ; - } - ; - /*^compute */ - /*_.IFCPP___V17*/ meltfptr[15] = /*_._IFELSE___V18*/ meltfptr[17];; - /*epilog */ - - MELT_LOCATION ("warmelt-normal.melt:8069:/ clear"); - /*clear *//*_#IS_A__L5*/ meltfnum[1] = 0; - /*^clear */ - /*clear *//*_._IFELSE___V18*/ meltfptr[17] = 0; - } - -#else /*MELT_HAVE_DEBUG */ - /*^cppif.else */ - /*_.IFCPP___V17*/ meltfptr[15] = ( /*nil */ NULL); -#endif /*MELT_HAVE_DEBUG */ - ; - -#if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8070:/ cppif.then"); - /*^block */ - /*anyblock */ - { - - - MELT_CHECK_SIGNAL (); - ; - /*_#IS_A__L6*/ meltfnum[0] = - melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V5*/ meltfptr[4]), + melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[3])));; - MELT_LOCATION ("warmelt-normal.melt:8070:/ cond"); - /*cond */ if ( /*_#IS_A__L6*/ meltfnum[0]) /*then */ + MELT_LOCATION ("warmelt-normal.melt:8039:/ cond"); + /*cond */ if ( /*_#IS_A__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ - /*_._IFELSE___V20*/ meltfptr[19] = ( /*nil */ NULL);; + /*_._IFELSE___V17*/ meltfptr[16] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-normal.melt:8070:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8039:/ cond.else"); /*^block */ /*anyblock */ @@ -3949,34 +2995,34 @@ meltlab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8070) ? (8070) : __LINE__, __FUNCTION__); + (8039) ? (8039) : __LINE__, __FUNCTION__); ; } ; - /*clear *//*_._IFELSE___V20*/ meltfptr[19] = 0; + /*clear *//*_._IFELSE___V17*/ meltfptr[16] = 0; /*epilog */ } ; } ; /*^compute */ - /*_.IFCPP___V19*/ meltfptr[17] = /*_._IFELSE___V20*/ meltfptr[19];; + /*_.IFCPP___V16*/ meltfptr[14] = /*_._IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8070:/ clear"); - /*clear *//*_#IS_A__L6*/ meltfnum[0] = 0; + MELT_LOCATION ("warmelt-normal.melt:8039:/ clear"); + /*clear *//*_#IS_A__L5*/ meltfnum[1] = 0; /*^clear */ - /*clear *//*_._IFELSE___V20*/ meltfptr[19] = 0; + /*clear *//*_._IFELSE___V17*/ meltfptr[16] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V19*/ meltfptr[17] = ( /*nil */ NULL); + /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8071:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8040:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3984,19 +3030,19 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - /*_#IS_A__L7*/ meltfnum[1] = - melt_is_instance_of ((melt_ptr_t) ( /*_.NCX__V6*/ meltfptr[5]), + /*_#IS_A__L6*/ meltfnum[0] = + melt_is_instance_of ((melt_ptr_t) ( /*_.NCX__V5*/ meltfptr[4]), (melt_ptr_t) (( /*!CLASS_NORMALIZATION_CONTEXT */ meltfrout->tabval[4])));; - MELT_LOCATION ("warmelt-normal.melt:8071:/ cond"); - /*cond */ if ( /*_#IS_A__L7*/ meltfnum[1]) /*then */ + MELT_LOCATION ("warmelt-normal.melt:8040:/ cond"); + /*cond */ if ( /*_#IS_A__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ - /*_._IFELSE___V22*/ meltfptr[21] = ( /*nil */ NULL);; + /*_._IFELSE___V19*/ meltfptr[18] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-normal.melt:8071:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8040:/ cond.else"); /*^block */ /*anyblock */ @@ -4010,34 +3056,34 @@ meltlab_endgetargs:; melt_assert_failed (("check ncx"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8071) ? (8071) : __LINE__, __FUNCTION__); + (8040) ? (8040) : __LINE__, __FUNCTION__); ; } ; - /*clear *//*_._IFELSE___V22*/ meltfptr[21] = 0; + /*clear *//*_._IFELSE___V19*/ meltfptr[18] = 0; /*epilog */ } ; } ; /*^compute */ - /*_.IFCPP___V21*/ meltfptr[19] = /*_._IFELSE___V22*/ meltfptr[21];; + /*_.IFCPP___V18*/ meltfptr[16] = /*_._IFELSE___V19*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8071:/ clear"); - /*clear *//*_#IS_A__L7*/ meltfnum[1] = 0; + MELT_LOCATION ("warmelt-normal.melt:8040:/ clear"); + /*clear *//*_#IS_A__L6*/ meltfnum[0] = 0; /*^clear */ - /*clear *//*_._IFELSE___V22*/ meltfptr[21] = 0; + /*clear *//*_._IFELSE___V19*/ meltfptr[18] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V21*/ meltfptr[19] = ( /*nil */ NULL); + /*_.IFCPP___V18*/ meltfptr[16] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8072:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8041:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4045,18 +3091,18 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - /*_#IS_LIST__L8*/ meltfnum[0] = - (melt_magic_discr ((melt_ptr_t) ( /*_.BINDSLIST__V8*/ meltfptr[7])) == + /*_#IS_LIST__L7*/ meltfnum[1] = + (melt_magic_discr ((melt_ptr_t) ( /*_.BINDSLIST__V7*/ meltfptr[6])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-normal.melt:8072:/ cond"); - /*cond */ if ( /*_#IS_LIST__L8*/ meltfnum[0]) /*then */ + MELT_LOCATION ("warmelt-normal.melt:8041:/ cond"); + /*cond */ if ( /*_#IS_LIST__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ - /*_._IFELSE___V24*/ meltfptr[23] = ( /*nil */ NULL);; + /*_._IFELSE___V21*/ meltfptr[20] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-normal.melt:8072:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8041:/ cond.else"); /*^block */ /*anyblock */ @@ -4070,32 +3116,32 @@ meltlab_endgetargs:; melt_assert_failed (("check bindslist"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8072) ? (8072) : __LINE__, __FUNCTION__); + (8041) ? (8041) : __LINE__, __FUNCTION__); ; } ; - /*clear *//*_._IFELSE___V24*/ meltfptr[23] = 0; + /*clear *//*_._IFELSE___V21*/ meltfptr[20] = 0; /*epilog */ } ; } ; /*^compute */ - /*_.IFCPP___V23*/ meltfptr[21] = /*_._IFELSE___V24*/ meltfptr[23];; + /*_.IFCPP___V20*/ meltfptr[18] = /*_._IFELSE___V21*/ meltfptr[20];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8072:/ clear"); - /*clear *//*_#IS_LIST__L8*/ meltfnum[0] = 0; + MELT_LOCATION ("warmelt-normal.melt:8041:/ clear"); + /*clear *//*_#IS_LIST__L7*/ meltfnum[1] = 0; /*^clear */ - /*clear *//*_._IFELSE___V24*/ meltfptr[23] = 0; + /*clear *//*_._IFELSE___V21*/ meltfptr[20] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V23*/ meltfptr[21] = ( /*nil */ NULL); + /*_.IFCPP___V20*/ meltfptr[18] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-normal.melt:8073:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8042:/ quasiblock"); @@ -4104,7 +3150,7 @@ meltlab_endgetargs:; /*^apply */ /*apply */ { - /*_.CSYMEXPO__V26*/ meltfptr[25] = + /*_.CSYMEXPO__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t) (( /*!CLONE_SYMBOL */ meltfrout->tabval[5])), (melt_ptr_t) (( /*!konst_6__EXPORTEDM_ */ meltfrout-> @@ -4115,16 +3161,16 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8074:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8043:/ apply"); /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ - argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.NCX__V6*/ meltfptr[5]; + argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.NCX__V5*/ meltfptr[4]; /*^apply.arg */ - argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.PSLOC__V7*/ meltfptr[6]; - /*_.SYMDATA__V27*/ meltfptr[26] = + argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.PSLOC__V6*/ meltfptr[5]; + /*_.SYMDATA__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t) (( /*!NORMAL_SYMBOL_DATA */ meltfrout->tabval[7])), (melt_ptr_t) ( /*_.SYM__V2*/ meltfptr[1]), @@ -4132,56 +3178,56 @@ meltlab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-normal.melt:8075:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8044:/ quasiblock"); - /*_.SB__V29*/ meltfptr[28] = + /*_.SB__V26*/ meltfptr[25] = (melt_ptr_t) meltgc_new_strbuf ((meltobject_ptr_t) (( /*!DISCR_STRBUF */ meltfrout->tabval[8])), (const char *) 0);; { - MELT_LOCATION ("warmelt-normal.melt:8076:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8045:/ locexp"); /*add2sbuf_strconst */ - meltgc_add_strbuf ((melt_ptr_t) ( /*_.SB__V29*/ meltfptr[28]), + meltgc_add_strbuf ((melt_ptr_t) ( /*_.SB__V26*/ meltfptr[25]), ("norm.exp.val : ")); } ; - MELT_LOCATION ("warmelt-normal.melt:8077:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8046:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SYM__V2*/ meltfptr[1]) /*=obj*/ ; melt_object_get_field (slot, obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V30*/ meltfptr[29] = slot; + /*_.NAMED_NAME__V27*/ meltfptr[26] = slot; }; ; { /*^locexp */ /*add2sbuf_string */ - meltgc_add_strbuf ((melt_ptr_t) ( /*_.SB__V29*/ meltfptr[28]), + meltgc_add_strbuf ((melt_ptr_t) ( /*_.SB__V26*/ meltfptr[25]), melt_string_str ((melt_ptr_t) - ( /*_.NAMED_NAME__V30*/ - meltfptr[29]))); + ( /*_.NAMED_NAME__V27*/ + meltfptr[26]))); } ; - /*_.LET___V28*/ meltfptr[27] = /*_.SB__V29*/ meltfptr[28];; + /*_.LET___V25*/ meltfptr[24] = /*_.SB__V26*/ meltfptr[25];; - MELT_LOCATION ("warmelt-normal.melt:8075:/ clear"); - /*clear *//*_.SB__V29*/ meltfptr[28] = 0; + MELT_LOCATION ("warmelt-normal.melt:8044:/ clear"); + /*clear *//*_.SB__V26*/ meltfptr[25] = 0; /*^clear */ - /*clear *//*_.NAMED_NAME__V30*/ meltfptr[29] = 0; - /*_.CSBUF__V31*/ meltfptr[28] = /*_.LET___V28*/ meltfptr[27];; + /*clear *//*_.NAMED_NAME__V27*/ meltfptr[26] = 0; + /*_.CSBUF__V28*/ meltfptr[25] = /*_.LET___V25*/ meltfptr[24];; MELT_CHECK_SIGNAL (); ; /*^compute */ - /*_.STRBUF2STRING__V32*/ meltfptr[29] = + /*_.STRBUF2STRING__V29*/ meltfptr[26] = (meltgc_new_stringdup ((meltobject_ptr_t) (( /*!DISCR_STRING */ meltfrout->tabval[10])), - melt_strbuf_str ((melt_ptr_t) ( /*_.CSBUF__V31*/ meltfptr[28]))));; - MELT_LOCATION ("warmelt-normal.melt:8079:/ quasiblock"); + melt_strbuf_str ((melt_ptr_t) ( /*_.CSBUF__V28*/ meltfptr[25]))));; + MELT_LOCATION ("warmelt-normal.melt:8048:/ quasiblock"); /*^rawallocobj */ @@ -4190,7 +3236,7 @@ meltlab_endgetargs:; melt_ptr_t newobj = 0; melt_raw_object_create (newobj, (melt_ptr_t) (( /*!CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE */ meltfrout->tabval[9])), (3), "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE"); - /*_.INST__V34*/ meltfptr[33] = + /*_.INST__V31*/ meltfptr[30] = newobj; }; ; @@ -4198,30 +3244,30 @@ meltlab_endgetargs:; /*putslot */ melt_assertmsg ("putslot checkobj @LOCA_LOCATION", melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V34*/ meltfptr[33])) == + ( /*_.INST__V31*/ meltfptr[30])) == MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V34*/ meltfptr[33]), (1), - ( /*_.PSLOC__V7*/ meltfptr[6]), "LOCA_LOCATION"); + melt_putfield_object (( /*_.INST__V31*/ meltfptr[30]), (1), + ( /*_.PSLOC__V6*/ meltfptr[5]), "LOCA_LOCATION"); ; /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj @CMEC_COMMENT", melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V34*/ meltfptr[33])) == + ( /*_.INST__V31*/ meltfptr[30])) == MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V34*/ meltfptr[33]), (2), - ( /*_.STRBUF2STRING__V32*/ meltfptr[29]), + melt_putfield_object (( /*_.INST__V31*/ meltfptr[30]), (2), + ( /*_.STRBUF2STRING__V29*/ meltfptr[26]), "CMEC_COMMENT"); ; /*^touchobj */ - melt_dbgtrace_written_object ( /*_.INST__V34*/ meltfptr[33], + melt_dbgtrace_written_object ( /*_.INST__V31*/ meltfptr[30], "newly made instance"); ; - /*_.SCURENVBOX__V33*/ meltfptr[32] = /*_.INST__V34*/ meltfptr[33];; + /*_.SCURENVBOX__V30*/ meltfptr[29] = /*_.INST__V31*/ meltfptr[30];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8083:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8052:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4239,7 +3285,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - /*_#MELT_NEED_DBG__L9*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L8*/ meltfnum[0] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -4247,15 +3293,15 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8083:/ cond"); - /*cond */ if ( /*_#MELT_NEED_DBG__L9*/ meltfnum[1]) /*then */ + MELT_LOCATION ("warmelt-normal.melt:8052:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L8*/ meltfnum[0]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { - /*_#MELT_CALLCOUNT__L10*/ meltfnum[0] = + /*_#MELT_CALLCOUNT__L9*/ meltfnum[1] = /* for melt_callcount */ #if MELT_HAVE_DEBUG && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ @@ -4266,24 +3312,24 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8083:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8052:/ apply"); /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ - argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L10*/ meltfnum[0]; + argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L9*/ meltfnum[1]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8083; + argtab[2].meltbp_long = 8052; /*^apply.arg */ argtab[3].meltbp_cstring = "normal_exported_macro sgetcurenvbox"; /*^apply.arg */ argtab[4].meltbp_aptr = - (melt_ptr_t *) & /*_.SCURENVBOX__V33*/ meltfptr[32]; - /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = + (melt_ptr_t *) & /*_.SCURENVBOX__V30*/ meltfptr[29]; + /*_.MELT_DEBUG_FUN__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t) (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])), (melt_ptr_t) (( /*nil */ NULL)), @@ -4293,48 +3339,48 @@ meltlab_endgetargs:; (union meltparam_un *) 0); } ; - /*_._IF___V36*/ meltfptr[35] = - /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36];; + /*_._IF___V33*/ meltfptr[32] = + /*_.MELT_DEBUG_FUN__V34*/ meltfptr[33];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8083:/ clear"); - /*clear *//*_#MELT_CALLCOUNT__L10*/ meltfnum[0] = 0; + MELT_LOCATION ("warmelt-normal.melt:8052:/ clear"); + /*clear *//*_#MELT_CALLCOUNT__L9*/ meltfnum[1] = 0; /*^clear */ - /*clear *//*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = 0; + /*clear *//*_.MELT_DEBUG_FUN__V34*/ meltfptr[33] = 0; } ; } else { /*^cond.else */ - /*_._IF___V36*/ meltfptr[35] = NULL;; + /*_._IF___V33*/ meltfptr[32] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8083:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8052:/ quasiblock"); - /*_.PROGN___V38*/ meltfptr[36] = /*_._IF___V36*/ meltfptr[35];; + /*_.PROGN___V35*/ meltfptr[33] = /*_._IF___V33*/ meltfptr[32];; /*^compute */ - /*_.IFCPP___V35*/ meltfptr[34] = /*_.PROGN___V38*/ meltfptr[36];; + /*_.IFCPP___V32*/ meltfptr[31] = /*_.PROGN___V35*/ meltfptr[33];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8083:/ clear"); - /*clear *//*_#MELT_NEED_DBG__L9*/ meltfnum[1] = 0; + MELT_LOCATION ("warmelt-normal.melt:8052:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L8*/ meltfnum[0] = 0; /*^clear */ - /*clear *//*_._IF___V36*/ meltfptr[35] = 0; + /*clear *//*_._IF___V33*/ meltfptr[32] = 0; /*^clear */ - /*clear *//*_.PROGN___V38*/ meltfptr[36] = 0; + /*clear *//*_.PROGN___V35*/ meltfptr[33] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V35*/ meltfptr[34] = ( /*nil */ NULL); + /*_.IFCPP___V32*/ meltfptr[31] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8084:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8053:/ quasiblock"); /*^multimsend */ @@ -4345,13 +3391,13 @@ meltlab_endgetargs:; memset (&argtab, 0, sizeof (argtab)); memset (&restab, 0, sizeof (restab)); /*^multimsend.arg */ - argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V5*/ meltfptr[4]; /*^multimsend.arg */ - argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.NCX__V6*/ meltfptr[5]; /*^multimsend.arg */ - argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.PSLOC__V7*/ meltfptr[6]; + argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V4*/ meltfptr[3]; /*^multimsend.arg */ + argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.NCX__V5*/ meltfptr[4]; /*^multimsend.arg */ + argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.PSLOC__V6*/ meltfptr[5]; /*^multimsend.xres */ - restab[0].meltbp_aptr = (melt_ptr_t *) & /*_.CURENVBINDS__V41*/ meltfptr[40]; /*^multimsend.send */ - /*_.NCURENVBOX__V40*/ meltfptr[36] = - meltgc_send ((melt_ptr_t) ( /*_.SCURENVBOX__V33*/ meltfptr[32]), + restab[0].meltbp_aptr = (melt_ptr_t *) & /*_.CURENVBINDS__V38*/ meltfptr[37]; /*^multimsend.send */ + /*_.NCURENVBOX__V37*/ meltfptr[33] = + meltgc_send ((melt_ptr_t) ( /*_.SCURENVBOX__V30*/ meltfptr[29]), ((melt_ptr_t) (( /*!NORMAL_EXP */ meltfrout->tabval[11]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), @@ -4363,7 +3409,7 @@ meltlab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8087:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8056:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4381,7 +3427,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - /*_#MELT_NEED_DBG__L11*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L10*/ meltfnum[1] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -4389,15 +3435,15 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8087:/ cond"); - /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[0]) /*then */ + MELT_LOCATION ("warmelt-normal.melt:8056:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L10*/ meltfnum[1]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { - /*_#MELT_CALLCOUNT__L12*/ meltfnum[1] = + /*_#MELT_CALLCOUNT__L11*/ meltfnum[0] = /* for melt_callcount */ #if MELT_HAVE_DEBUG && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ @@ -4408,28 +3454,28 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8087:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8056:/ apply"); /*apply */ { union meltparam_un argtab[7]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ - argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L12*/ meltfnum[1]; + argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L11*/ meltfnum[0]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8087; + argtab[2].meltbp_long = 8056; /*^apply.arg */ argtab[3].meltbp_cstring = "normal_exported_macro ncurenvbox="; /*^apply.arg */ argtab[4].meltbp_aptr = - (melt_ptr_t *) & /*_.NCURENVBOX__V40*/ meltfptr[36]; + (melt_ptr_t *) & /*_.NCURENVBOX__V37*/ meltfptr[33]; /*^apply.arg */ argtab[5].meltbp_cstring = " curenvbinds="; /*^apply.arg */ argtab[6].meltbp_aptr = - (melt_ptr_t *) & /*_.CURENVBINDS__V41*/ meltfptr[40]; - /*_.MELT_DEBUG_FUN__V44*/ meltfptr[43] = + (melt_ptr_t *) & /*_.CURENVBINDS__V38*/ meltfptr[37]; + /*_.MELT_DEBUG_FUN__V41*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t) (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])), (melt_ptr_t) (( /*nil */ NULL)), @@ -4440,53 +3486,53 @@ meltlab_endgetargs:; (union meltparam_un *) 0); } ; - /*_._IF___V43*/ meltfptr[42] = - /*_.MELT_DEBUG_FUN__V44*/ meltfptr[43];; + /*_._IF___V40*/ meltfptr[39] = + /*_.MELT_DEBUG_FUN__V41*/ meltfptr[40];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8087:/ clear"); - /*clear *//*_#MELT_CALLCOUNT__L12*/ meltfnum[1] = 0; + MELT_LOCATION ("warmelt-normal.melt:8056:/ clear"); + /*clear *//*_#MELT_CALLCOUNT__L11*/ meltfnum[0] = 0; /*^clear */ - /*clear *//*_.MELT_DEBUG_FUN__V44*/ meltfptr[43] = 0; + /*clear *//*_.MELT_DEBUG_FUN__V41*/ meltfptr[40] = 0; } ; } else { /*^cond.else */ - /*_._IF___V43*/ meltfptr[42] = NULL;; + /*_._IF___V40*/ meltfptr[39] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8087:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8056:/ quasiblock"); - /*_.PROGN___V45*/ meltfptr[43] = /*_._IF___V43*/ meltfptr[42];; + /*_.PROGN___V42*/ meltfptr[40] = /*_._IF___V40*/ meltfptr[39];; /*^compute */ - /*_.IFCPP___V42*/ meltfptr[41] = /*_.PROGN___V45*/ meltfptr[43];; + /*_.IFCPP___V39*/ meltfptr[38] = /*_.PROGN___V42*/ meltfptr[40];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8087:/ clear"); - /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[0] = 0; + MELT_LOCATION ("warmelt-normal.melt:8056:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L10*/ meltfnum[1] = 0; /*^clear */ - /*clear *//*_._IF___V43*/ meltfptr[42] = 0; + /*clear *//*_._IF___V40*/ meltfptr[39] = 0; /*^clear */ - /*clear *//*_.PROGN___V45*/ meltfptr[43] = 0; + /*clear *//*_.PROGN___V42*/ meltfptr[40] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V42*/ meltfptr[41] = ( /*nil */ NULL); + /*_.IFCPP___V39*/ meltfptr[38] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_CHECK_SIGNAL (); ; /*^compute */ - /*_#IS_LIST__L13*/ meltfnum[1] = - (melt_magic_discr ((melt_ptr_t) ( /*_.CURENVBINDS__V41*/ meltfptr[40])) + /*_#IS_LIST__L12*/ meltfnum[0] = + (melt_magic_discr ((melt_ptr_t) ( /*_.CURENVBINDS__V38*/ meltfptr[37])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-normal.melt:8088:/ cond"); - /*cond */ if ( /*_#IS_LIST__L13*/ meltfnum[1]) /*then */ + MELT_LOCATION ("warmelt-normal.melt:8057:/ cond"); + /*cond */ if ( /*_#IS_LIST__L12*/ meltfnum[0]) /*then */ { /*^cond.then */ /*^block */ @@ -4503,34 +3549,34 @@ meltlab_endgetargs:; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = - (melt_ptr_t *) & /*_.CURENVBINDS__V41*/ meltfptr[40]; - /*_.LIST_APPEND2LIST__V47*/ meltfptr[43] = + (melt_ptr_t *) & /*_.CURENVBINDS__V38*/ meltfptr[37]; + /*_.LIST_APPEND2LIST__V44*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t) (( /*!LIST_APPEND2LIST */ meltfrout->tabval[12])), - (melt_ptr_t) ( /*_.BINDSLIST__V8*/ meltfptr[7]), + (melt_ptr_t) ( /*_.BINDSLIST__V7*/ meltfptr[6]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; - /*_._IF___V46*/ meltfptr[42] = - /*_.LIST_APPEND2LIST__V47*/ meltfptr[43];; + /*_._IF___V43*/ meltfptr[39] = + /*_.LIST_APPEND2LIST__V44*/ meltfptr[40];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8088:/ clear"); - /*clear *//*_.LIST_APPEND2LIST__V47*/ meltfptr[43] = 0; + MELT_LOCATION ("warmelt-normal.melt:8057:/ clear"); + /*clear *//*_.LIST_APPEND2LIST__V44*/ meltfptr[40] = 0; } ; } else { /*^cond.else */ - /*_._IF___V46*/ meltfptr[42] = NULL;; + /*_._IF___V43*/ meltfptr[39] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8089:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8058:/ quasiblock"); - MELT_LOCATION ("warmelt-normal.melt:8090:/ blockmultialloc"); + MELT_LOCATION ("warmelt-normal.melt:8059:/ blockmultialloc"); /*multiallocblock */ { struct meltletrec_1_st @@ -4543,7 +3589,7 @@ meltlab_endgetargs:; meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill */ /*inimult rtup_0__TUPLREC__x18 */ - /*_.TUPLREC___V50*/ meltfptr[49] = + /*_.TUPLREC___V47*/ meltfptr[46] = (melt_ptr_t) & meltletrec_1_ptr->rtup_0__TUPLREC__x18; meltletrec_1_ptr->rtup_0__TUPLREC__x18.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_MULTIPLE)))); @@ -4552,59 +3598,59 @@ meltlab_endgetargs:; /*^putuple */ /*putupl#52 */ - melt_assertmsg ("putupl [:8090] #52 checktup", + melt_assertmsg ("putupl [:8059] #52 checktup", melt_magic_discr ((melt_ptr_t) - ( /*_.TUPLREC___V50*/ meltfptr[49])) + ( /*_.TUPLREC___V47*/ meltfptr[46])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:8090] #52 checkoff", + melt_assertmsg ("putupl [:8059] #52 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) - ( /*_.TUPLREC___V50*/ - meltfptr[49])))); - ((meltmultiple_ptr_t) ( /*_.TUPLREC___V50*/ meltfptr[49]))->tabval[0] = - (melt_ptr_t) ( /*_.SYMDATA__V27*/ meltfptr[26]); + ( /*_.TUPLREC___V47*/ + meltfptr[46])))); + ((meltmultiple_ptr_t) ( /*_.TUPLREC___V47*/ meltfptr[46]))->tabval[0] = + (melt_ptr_t) ( /*_.SYMDATA__V24*/ meltfptr[23]); ; /*^putuple */ /*putupl#53 */ - melt_assertmsg ("putupl [:8090] #53 checktup", + melt_assertmsg ("putupl [:8059] #53 checktup", melt_magic_discr ((melt_ptr_t) - ( /*_.TUPLREC___V50*/ meltfptr[49])) + ( /*_.TUPLREC___V47*/ meltfptr[46])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:8090] #53 checkoff", + melt_assertmsg ("putupl [:8059] #53 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) - ( /*_.TUPLREC___V50*/ - meltfptr[49])))); - ((meltmultiple_ptr_t) ( /*_.TUPLREC___V50*/ meltfptr[49]))->tabval[1] = + ( /*_.TUPLREC___V47*/ + meltfptr[46])))); + ((meltmultiple_ptr_t) ( /*_.TUPLREC___V47*/ meltfptr[46]))->tabval[1] = (melt_ptr_t) ( /*_.NEXP__V3*/ meltfptr[2]); ; /*^putuple */ /*putupl#54 */ - melt_assertmsg ("putupl [:8090] #54 checktup", + melt_assertmsg ("putupl [:8059] #54 checktup", melt_magic_discr ((melt_ptr_t) - ( /*_.TUPLREC___V50*/ meltfptr[49])) + ( /*_.TUPLREC___V47*/ meltfptr[46])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:8090] #54 checkoff", + melt_assertmsg ("putupl [:8059] #54 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) - ( /*_.TUPLREC___V50*/ - meltfptr[49])))); - ((meltmultiple_ptr_t) ( /*_.TUPLREC___V50*/ meltfptr[49]))->tabval[2] = - (melt_ptr_t) ( /*_.NCURENVBOX__V40*/ meltfptr[36]); + ( /*_.TUPLREC___V47*/ + meltfptr[46])))); + ((meltmultiple_ptr_t) ( /*_.TUPLREC___V47*/ meltfptr[46]))->tabval[2] = + (melt_ptr_t) ( /*_.NCURENVBOX__V37*/ meltfptr[33]); ; /*^touch */ - meltgc_touch ( /*_.TUPLREC___V50*/ meltfptr[49]); + meltgc_touch ( /*_.TUPLREC___V47*/ meltfptr[46]); ; - /*_.ARGTUP__V49*/ meltfptr[48] = /*_.TUPLREC___V50*/ meltfptr[49];; + /*_.ARGTUP__V46*/ meltfptr[45] = /*_.TUPLREC___V47*/ meltfptr[46];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8090:/ clear"); - /*clear *//*_.TUPLREC___V50*/ meltfptr[49] = 0; + MELT_LOCATION ("warmelt-normal.melt:8059:/ clear"); + /*clear *//*_.TUPLREC___V47*/ meltfptr[46] = 0; /*^clear */ - /*clear *//*_.TUPLREC___V50*/ meltfptr[49] = 0; + /*clear *//*_.TUPLREC___V47*/ meltfptr[46] = 0; } /*end multiallocblock */ ; @@ -4613,7 +3659,65 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8095:/ quasiblock"); + + MELT_CHECK_SIGNAL (); + ; + MELT_LOCATION ("warmelt-normal.melt:8069:/ apply"); + /*apply */ + { + union meltparam_un argtab[3]; + memset (&argtab, 0, sizeof (argtab)); + /*^apply.arg */ + argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.NCX__V5*/ meltfptr[4]; + /*^apply.arg */ + argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.PSLOC__V6*/ meltfptr[5]; + /*^apply.arg */ + argtab[2].meltbp_cstring = "hook_macro_exporter"; + /*_.NORMAL_PREDEF__V48*/ meltfptr[46] = + melt_apply ((meltclosure_ptr_t) + (( /*!NORMAL_PREDEF */ meltfrout->tabval[17])), + (melt_ptr_t) (( /*!HOOK_MACRO_EXPORTER */ meltfrout-> + tabval[18])), + (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), + argtab, "", (union meltparam_un *) 0); + } + ; + MELT_LOCATION ("warmelt-normal.melt:8071:/ blockmultialloc"); + /*multiallocblock */ + { + struct meltletrec_2_st + { + struct MELT_MULTIPLE_STRUCT (0) rtup_0__TUPLREC__x19; + long meltletrec_2_endgap; + } *meltletrec_2_ptr = 0; + meltletrec_2_ptr = + (struct meltletrec_2_st *) + meltgc_allocate (sizeof (struct meltletrec_2_st), 0); + /*^blockmultialloc.initfill */ + /*inimult rtup_0__TUPLREC__x19 */ + /*_.TUPLREC___V50*/ meltfptr[49] = + (melt_ptr_t) & meltletrec_2_ptr->rtup_0__TUPLREC__x19; + meltletrec_2_ptr->rtup_0__TUPLREC__x19.discr = + (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_MULTIPLE)))); + meltletrec_2_ptr->rtup_0__TUPLREC__x19.nbval = 0; + + + /*^touch */ + meltgc_touch ( /*_.TUPLREC___V50*/ meltfptr[49]); + ; + /*_.TUPLE___V49*/ meltfptr[48] = /*_.TUPLREC___V50*/ meltfptr[49];; + /*epilog */ + + MELT_LOCATION ("warmelt-normal.melt:8071:/ clear"); + /*clear *//*_.TUPLREC___V50*/ meltfptr[49] = 0; + /*^clear */ + /*clear *//*_.TUPLREC___V50*/ meltfptr[49] = 0; + } /*end multiallocblock */ + ; + /*_.HOOK_DATA__V51*/ meltfptr[49] = + melt_hook_data ((melt_ptr_t) + ( /*!HOOK_MACRO_EXPORTER */ meltfrout->tabval[18]));; + MELT_LOCATION ("warmelt-normal.melt:8065:/ quasiblock"); /*^rawallocobj */ @@ -4621,57 +3725,78 @@ meltlab_endgetargs:; { melt_ptr_t newobj = 0; melt_raw_object_create (newobj, - (melt_ptr_t) (( /*!CLASS_NREP_APPLY */ - meltfrout->tabval[15])), (4), - "CLASS_NREP_APPLY"); - /*_.INST__V52*/ meltfptr[51] = + (melt_ptr_t) (( /*!CLASS_NREP_HOOK_CALL */ + meltfrout->tabval[15])), (7), + "CLASS_NREP_HOOK_CALL"); + /*_.INST__V53*/ meltfptr[52] = newobj; }; ; /*^putslot */ /*putslot */ - melt_assertmsg ("putslot checkobj @NREP_LOC", + melt_assertmsg ("putslot checkobj @NEXPR_CTYP", melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V52*/ meltfptr[51])) == + ( /*_.INST__V53*/ meltfptr[52])) == MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V52*/ meltfptr[51]), (0), - ( /*_.PSLOC__V7*/ meltfptr[6]), "NREP_LOC"); + melt_putfield_object (( /*_.INST__V53*/ meltfptr[52]), (1), + (( /*!CTYPE_VOID */ meltfrout->tabval[14])), + "NEXPR_CTYP"); ; /*^putslot */ /*putslot */ - melt_assertmsg ("putslot checkobj @NEXPR_CTYP", + melt_assertmsg ("putslot checkobj @NHOOK_NAME", melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V52*/ meltfptr[51])) == + ( /*_.INST__V53*/ meltfptr[52])) == MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V52*/ meltfptr[51]), (1), - (( /*!CTYPE_VOID */ meltfrout->tabval[14])), - "NEXPR_CTYP"); + melt_putfield_object (( /*_.INST__V53*/ meltfptr[52]), (3), + (( /*!konst_16 */ meltfrout->tabval[16])), + "NHOOK_NAME"); ; /*^putslot */ /*putslot */ - melt_assertmsg ("putslot checkobj @NAPP_FUN", + melt_assertmsg ("putslot checkobj @NEXPR_ARGS", melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V52*/ meltfptr[51])) == + ( /*_.INST__V53*/ meltfptr[52])) == MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V52*/ meltfptr[51]), (3), - ( /*_.NMACROXP__V4*/ meltfptr[3]), "NAPP_FUN"); + melt_putfield_object (( /*_.INST__V53*/ meltfptr[52]), (2), + ( /*_.ARGTUP__V46*/ meltfptr[45]), "NEXPR_ARGS"); ; /*^putslot */ /*putslot */ - melt_assertmsg ("putslot checkobj @NEXPR_ARGS", + melt_assertmsg ("putslot checkobj @NHOOK_CALLED", melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V52*/ meltfptr[51])) == + ( /*_.INST__V53*/ meltfptr[52])) == MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V52*/ meltfptr[51]), (2), - ( /*_.ARGTUP__V49*/ meltfptr[48]), "NEXPR_ARGS"); + melt_putfield_object (( /*_.INST__V53*/ meltfptr[52]), (4), + ( /*_.NORMAL_PREDEF__V48*/ meltfptr[46]), + "NHOOK_CALLED"); + ; + /*^putslot */ + /*putslot */ + melt_assertmsg ("putslot checkobj @NHOOK_OUTS", + melt_magic_discr ((melt_ptr_t) + ( /*_.INST__V53*/ meltfptr[52])) == + MELTOBMAG_OBJECT); + melt_putfield_object (( /*_.INST__V53*/ meltfptr[52]), (5), + ( /*_.TUPLE___V49*/ meltfptr[48]), "NHOOK_OUTS"); + ; + /*^putslot */ + /*putslot */ + melt_assertmsg ("putslot checkobj @NHOOK_DESCR", + melt_magic_discr ((melt_ptr_t) + ( /*_.INST__V53*/ meltfptr[52])) == + MELTOBMAG_OBJECT); + melt_putfield_object (( /*_.INST__V53*/ meltfptr[52]), (6), + ( /*_.HOOK_DATA__V51*/ meltfptr[49]), + "NHOOK_DESCR"); ; /*^touchobj */ - melt_dbgtrace_written_object ( /*_.INST__V52*/ meltfptr[51], + melt_dbgtrace_written_object ( /*_.INST__V53*/ meltfptr[52], "newly made instance"); ; - /*_.INST___V51*/ meltfptr[49] = /*_.INST__V52*/ meltfptr[51];; - MELT_LOCATION ("warmelt-normal.melt:8091:/ quasiblock"); + /*_.INST___V52*/ meltfptr[51] = /*_.INST__V53*/ meltfptr[52];; + MELT_LOCATION ("warmelt-normal.melt:8060:/ quasiblock"); /*^rawallocobj */ @@ -4682,7 +3807,7 @@ meltlab_endgetargs:; (melt_ptr_t) (( /*!CLASS_NORMAL_LET_BINDING */ meltfrout->tabval[13])), (4), "CLASS_NORMAL_LET_BINDING"); - /*_.INST__V54*/ meltfptr[53] = + /*_.INST__V55*/ meltfptr[54] = newobj; }; ; @@ -4690,27 +3815,27 @@ meltlab_endgetargs:; /*putslot */ melt_assertmsg ("putslot checkobj @LETBIND_LOC", melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V54*/ meltfptr[53])) == + ( /*_.INST__V55*/ meltfptr[54])) == MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V54*/ meltfptr[53]), (3), - ( /*_.PSLOC__V7*/ meltfptr[6]), "LETBIND_LOC"); + melt_putfield_object (( /*_.INST__V55*/ meltfptr[54]), (3), + ( /*_.PSLOC__V6*/ meltfptr[5]), "LETBIND_LOC"); ; /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj @BINDER", melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V54*/ meltfptr[53])) == + ( /*_.INST__V55*/ meltfptr[54])) == MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V54*/ meltfptr[53]), (0), - ( /*_.CSYMEXPO__V26*/ meltfptr[25]), "BINDER"); + melt_putfield_object (( /*_.INST__V55*/ meltfptr[54]), (0), + ( /*_.CSYMEXPO__V23*/ meltfptr[22]), "BINDER"); ; /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj @LETBIND_TYPE", melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V54*/ meltfptr[53])) == + ( /*_.INST__V55*/ meltfptr[54])) == MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V54*/ meltfptr[53]), (1), + melt_putfield_object (( /*_.INST__V55*/ meltfptr[54]), (1), (( /*!CTYPE_VOID */ meltfrout->tabval[14])), "LETBIND_TYPE"); ; @@ -4718,21 +3843,21 @@ meltlab_endgetargs:; /*putslot */ melt_assertmsg ("putslot checkobj @LETBIND_EXPR", melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V54*/ meltfptr[53])) == + ( /*_.INST__V55*/ meltfptr[54])) == MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V54*/ meltfptr[53]), (2), - ( /*_.INST___V51*/ meltfptr[49]), "LETBIND_EXPR"); + melt_putfield_object (( /*_.INST__V55*/ meltfptr[54]), (2), + ( /*_.INST___V52*/ meltfptr[51]), "LETBIND_EXPR"); ; /*^touchobj */ - melt_dbgtrace_written_object ( /*_.INST__V54*/ meltfptr[53], + melt_dbgtrace_written_object ( /*_.INST__V55*/ meltfptr[54], "newly made instance"); ; - /*_.CBIND__V53*/ meltfptr[52] = /*_.INST__V54*/ meltfptr[53];; + /*_.CBIND__V54*/ meltfptr[53] = /*_.INST__V55*/ meltfptr[54];; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8101:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8074:/ quasiblock"); /*^rawallocobj */ @@ -4741,9 +3866,9 @@ meltlab_endgetargs:; melt_ptr_t newobj = 0; melt_raw_object_create (newobj, (melt_ptr_t) (( /*!CLASS_NREP_LOCSYMOCC */ - meltfrout->tabval[16])), (4), + meltfrout->tabval[19])), (4), "CLASS_NREP_LOCSYMOCC"); - /*_.INST__V56*/ meltfptr[55] = + /*_.INST__V57*/ meltfptr[56] = newobj; }; ; @@ -4751,18 +3876,18 @@ meltlab_endgetargs:; /*putslot */ melt_assertmsg ("putslot checkobj @NREP_LOC", melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V56*/ meltfptr[55])) == + ( /*_.INST__V57*/ meltfptr[56])) == MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V56*/ meltfptr[55]), (0), - ( /*_.PSLOC__V7*/ meltfptr[6]), "NREP_LOC"); + melt_putfield_object (( /*_.INST__V57*/ meltfptr[56]), (0), + ( /*_.PSLOC__V6*/ meltfptr[5]), "NREP_LOC"); ; /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj @NOCC_CTYP", melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V56*/ meltfptr[55])) == + ( /*_.INST__V57*/ meltfptr[56])) == MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V56*/ meltfptr[55]), (2), + melt_putfield_object (( /*_.INST__V57*/ meltfptr[56]), (2), (( /*!CTYPE_VOID */ meltfrout->tabval[14])), "NOCC_CTYP"); ; @@ -4770,29 +3895,29 @@ meltlab_endgetargs:; /*putslot */ melt_assertmsg ("putslot checkobj @NOCC_SYMB", melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V56*/ meltfptr[55])) == + ( /*_.INST__V57*/ meltfptr[56])) == MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V56*/ meltfptr[55]), (1), - ( /*_.CSYMEXPO__V26*/ meltfptr[25]), "NOCC_SYMB"); + melt_putfield_object (( /*_.INST__V57*/ meltfptr[56]), (1), + ( /*_.CSYMEXPO__V23*/ meltfptr[22]), "NOCC_SYMB"); ; /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj @NOCC_BIND", melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V56*/ meltfptr[55])) == + ( /*_.INST__V57*/ meltfptr[56])) == MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V56*/ meltfptr[55]), (3), - ( /*_.CBIND__V53*/ meltfptr[52]), "NOCC_BIND"); + melt_putfield_object (( /*_.INST__V57*/ meltfptr[56]), (3), + ( /*_.CBIND__V54*/ meltfptr[53]), "NOCC_BIND"); ; /*^touchobj */ - melt_dbgtrace_written_object ( /*_.INST__V56*/ meltfptr[55], + melt_dbgtrace_written_object ( /*_.INST__V57*/ meltfptr[56], "newly made instance"); ; - /*_.SYOCC__V55*/ meltfptr[54] = /*_.INST__V56*/ meltfptr[55];; + /*_.SYOCC__V56*/ meltfptr[55] = /*_.INST__V57*/ meltfptr[56];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8107:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8080:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4810,7 +3935,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - /*_#MELT_NEED_DBG__L14*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L13*/ meltfnum[1] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -4818,15 +3943,15 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8107:/ cond"); - /*cond */ if ( /*_#MELT_NEED_DBG__L14*/ meltfnum[0]) /*then */ + MELT_LOCATION ("warmelt-normal.melt:8080:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L13*/ meltfnum[1]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { - /*_#MELT_CALLCOUNT__L15*/ meltfnum[14] = + /*_#MELT_CALLCOUNT__L14*/ meltfnum[13] = /* for melt_callcount */ #if MELT_HAVE_DEBUG && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ @@ -4837,28 +3962,28 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8107:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8080:/ apply"); /*apply */ { union meltparam_un argtab[7]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ - argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L15*/ meltfnum[14]; + argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L14*/ meltfnum[13]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8107; + argtab[2].meltbp_long = 8080; /*^apply.arg */ argtab[3].meltbp_cstring = "normal_exported_macro cbind="; /*^apply.arg */ argtab[4].meltbp_aptr = - (melt_ptr_t *) & /*_.CBIND__V53*/ meltfptr[52]; + (melt_ptr_t *) & /*_.CBIND__V54*/ meltfptr[53]; /*^apply.arg */ argtab[5].meltbp_cstring = " syocc="; /*^apply.arg */ argtab[6].meltbp_aptr = - (melt_ptr_t *) & /*_.SYOCC__V55*/ meltfptr[54]; - /*_.MELT_DEBUG_FUN__V59*/ meltfptr[58] = + (melt_ptr_t *) & /*_.SYOCC__V56*/ meltfptr[55]; + /*_.MELT_DEBUG_FUN__V60*/ meltfptr[59] = melt_apply ((meltclosure_ptr_t) (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])), (melt_ptr_t) (( /*nil */ NULL)), @@ -4869,107 +3994,113 @@ meltlab_endgetargs:; (union meltparam_un *) 0); } ; - /*_._IF___V58*/ meltfptr[57] = - /*_.MELT_DEBUG_FUN__V59*/ meltfptr[58];; + /*_._IF___V59*/ meltfptr[58] = + /*_.MELT_DEBUG_FUN__V60*/ meltfptr[59];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8107:/ clear"); - /*clear *//*_#MELT_CALLCOUNT__L15*/ meltfnum[14] = 0; + MELT_LOCATION ("warmelt-normal.melt:8080:/ clear"); + /*clear *//*_#MELT_CALLCOUNT__L14*/ meltfnum[13] = 0; /*^clear */ - /*clear *//*_.MELT_DEBUG_FUN__V59*/ meltfptr[58] = 0; + /*clear *//*_.MELT_DEBUG_FUN__V60*/ meltfptr[59] = 0; } ; } else { /*^cond.else */ - /*_._IF___V58*/ meltfptr[57] = NULL;; + /*_._IF___V59*/ meltfptr[58] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8107:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8080:/ quasiblock"); - /*_.PROGN___V60*/ meltfptr[58] = /*_._IF___V58*/ meltfptr[57];; + /*_.PROGN___V61*/ meltfptr[59] = /*_._IF___V59*/ meltfptr[58];; /*^compute */ - /*_.IFCPP___V57*/ meltfptr[56] = /*_.PROGN___V60*/ meltfptr[58];; + /*_.IFCPP___V58*/ meltfptr[57] = /*_.PROGN___V61*/ meltfptr[59];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8107:/ clear"); - /*clear *//*_#MELT_NEED_DBG__L14*/ meltfnum[0] = 0; + MELT_LOCATION ("warmelt-normal.melt:8080:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L13*/ meltfnum[1] = 0; /*^clear */ - /*clear *//*_._IF___V58*/ meltfptr[57] = 0; + /*clear *//*_._IF___V59*/ meltfptr[58] = 0; /*^clear */ - /*clear *//*_.PROGN___V60*/ meltfptr[58] = 0; + /*clear *//*_.PROGN___V61*/ meltfptr[59] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V57*/ meltfptr[56] = ( /*nil */ NULL); + /*_.IFCPP___V58*/ meltfptr[57] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; { - MELT_LOCATION ("warmelt-normal.melt:8108:/ locexp"); - meltgc_append_list ((melt_ptr_t) ( /*_.BINDSLIST__V8*/ meltfptr[7]), - (melt_ptr_t) ( /*_.CBIND__V53*/ meltfptr[52])); + MELT_LOCATION ("warmelt-normal.melt:8081:/ locexp"); + meltgc_append_list ((melt_ptr_t) ( /*_.BINDSLIST__V7*/ meltfptr[6]), + (melt_ptr_t) ( /*_.CBIND__V54*/ meltfptr[53])); } ; - /*_.LET___V48*/ meltfptr[43] = /*_.SYOCC__V55*/ meltfptr[54];; + /*_.LET___V45*/ meltfptr[40] = /*_.SYOCC__V56*/ meltfptr[55];; - MELT_LOCATION ("warmelt-normal.melt:8089:/ clear"); - /*clear *//*_.ARGTUP__V49*/ meltfptr[48] = 0; + MELT_LOCATION ("warmelt-normal.melt:8058:/ clear"); + /*clear *//*_.ARGTUP__V46*/ meltfptr[45] = 0; + /*^clear */ + /*clear *//*_.NORMAL_PREDEF__V48*/ meltfptr[46] = 0; + /*^clear */ + /*clear *//*_.TUPLE___V49*/ meltfptr[48] = 0; /*^clear */ - /*clear *//*_.INST___V51*/ meltfptr[49] = 0; + /*clear *//*_.HOOK_DATA__V51*/ meltfptr[49] = 0; /*^clear */ - /*clear *//*_.CBIND__V53*/ meltfptr[52] = 0; + /*clear *//*_.INST___V52*/ meltfptr[51] = 0; /*^clear */ - /*clear *//*_.SYOCC__V55*/ meltfptr[54] = 0; + /*clear *//*_.CBIND__V54*/ meltfptr[53] = 0; + /*^clear */ + /*clear *//*_.SYOCC__V56*/ meltfptr[55] = 0; /*^clear */ - /*clear *//*_.IFCPP___V57*/ meltfptr[56] = 0; + /*clear *//*_.IFCPP___V58*/ meltfptr[57] = 0; MELT_CHECK_SIGNAL (); ; - /*_.MULTI___V39*/ meltfptr[35] = /*_.LET___V48*/ meltfptr[43];; + /*_.MULTI___V36*/ meltfptr[32] = /*_.LET___V45*/ meltfptr[40];; - MELT_LOCATION ("warmelt-normal.melt:8084:/ clear"); - /*clear *//*_.IFCPP___V42*/ meltfptr[41] = 0; + MELT_LOCATION ("warmelt-normal.melt:8053:/ clear"); + /*clear *//*_.IFCPP___V39*/ meltfptr[38] = 0; /*^clear */ - /*clear *//*_#IS_LIST__L13*/ meltfnum[1] = 0; + /*clear *//*_#IS_LIST__L12*/ meltfnum[0] = 0; /*^clear */ - /*clear *//*_._IF___V46*/ meltfptr[42] = 0; + /*clear *//*_._IF___V43*/ meltfptr[39] = 0; /*^clear */ - /*clear *//*_.LET___V48*/ meltfptr[43] = 0; + /*clear *//*_.LET___V45*/ meltfptr[40] = 0; /*^clear */ - /*clear *//*_.CURENVBINDS__V41*/ meltfptr[40] = 0; - /*_.LET___V25*/ meltfptr[23] = /*_.MULTI___V39*/ meltfptr[35];; + /*clear *//*_.CURENVBINDS__V38*/ meltfptr[37] = 0; + /*_.LET___V22*/ meltfptr[20] = /*_.MULTI___V36*/ meltfptr[32];; - MELT_LOCATION ("warmelt-normal.melt:8073:/ clear"); - /*clear *//*_.CSYMEXPO__V26*/ meltfptr[25] = 0; + MELT_LOCATION ("warmelt-normal.melt:8042:/ clear"); + /*clear *//*_.CSYMEXPO__V23*/ meltfptr[22] = 0; /*^clear */ - /*clear *//*_.SYMDATA__V27*/ meltfptr[26] = 0; + /*clear *//*_.SYMDATA__V24*/ meltfptr[23] = 0; /*^clear */ - /*clear *//*_.LET___V28*/ meltfptr[27] = 0; + /*clear *//*_.LET___V25*/ meltfptr[24] = 0; /*^clear */ - /*clear *//*_.CSBUF__V31*/ meltfptr[28] = 0; + /*clear *//*_.CSBUF__V28*/ meltfptr[25] = 0; /*^clear */ - /*clear *//*_.STRBUF2STRING__V32*/ meltfptr[29] = 0; + /*clear *//*_.STRBUF2STRING__V29*/ meltfptr[26] = 0; /*^clear */ - /*clear *//*_.SCURENVBOX__V33*/ meltfptr[32] = 0; + /*clear *//*_.SCURENVBOX__V30*/ meltfptr[29] = 0; /*^clear */ - /*clear *//*_.IFCPP___V35*/ meltfptr[34] = 0; + /*clear *//*_.IFCPP___V32*/ meltfptr[31] = 0; /*^clear */ - /*clear *//*_.MULTI___V39*/ meltfptr[35] = 0; + /*clear *//*_.MULTI___V36*/ meltfptr[32] = 0; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8064:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8035:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V25*/ meltfptr[23];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V22*/ meltfptr[20];; { - MELT_LOCATION ("warmelt-normal.melt:8064:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8035:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -4985,21 +4116,19 @@ meltlab_endgetargs:; /*epilog */ /*^clear */ - /*clear *//*_.IFCPP___V9*/ meltfptr[8] = 0; - /*^clear */ - /*clear *//*_.IFCPP___V13*/ meltfptr[9] = 0; + /*clear *//*_.IFCPP___V8*/ meltfptr[7] = 0; /*^clear */ - /*clear *//*_.IFCPP___V15*/ meltfptr[10] = 0; + /*clear *//*_.IFCPP___V12*/ meltfptr[8] = 0; /*^clear */ - /*clear *//*_.IFCPP___V17*/ meltfptr[15] = 0; + /*clear *//*_.IFCPP___V14*/ meltfptr[9] = 0; /*^clear */ - /*clear *//*_.IFCPP___V19*/ meltfptr[17] = 0; + /*clear *//*_.IFCPP___V16*/ meltfptr[14] = 0; /*^clear */ - /*clear *//*_.IFCPP___V21*/ meltfptr[19] = 0; + /*clear *//*_.IFCPP___V18*/ meltfptr[16] = 0; /*^clear */ - /*clear *//*_.IFCPP___V23*/ meltfptr[21] = 0; + /*clear *//*_.IFCPP___V20*/ meltfptr[18] = 0; /*^clear */ - /*clear *//*_.LET___V25*/ meltfptr[23] = 0; + /*clear *//*_.LET___V22*/ meltfptr[20] = 0; } ; @@ -5008,21 +4137,21 @@ meltlabend_rout: melt_trace_end ("NORMAL_EXPORTED_MACRO", meltcallcount); MELT_TRACE_EXIT_LOCATION (); melt_blocklevel_signals = - current_blocklevel_signals_meltrout_155_WARMELTmiNORMAL_NORMAL_EXPORTED_MACRO_melt; + current_blocklevel_signals_meltrout_154_WARMELTmiNORMAL_NORMAL_EXPORTED_MACRO_melt; melt_topframe = (struct melt_callframe_st *) meltfram__.mcfr_prev; return (melt_ptr_t) ( /*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_155_WARMELTmiNORMAL_NORMAL_EXPORTED_MACRO */ +} /*end meltrout_154_WARMELTmiNORMAL_NORMAL_EXPORTED_MACRO */ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_156_WARMELTmiNORMAL_NORMEXP_EXPORT_MACRO (meltclosure_ptr_t +meltrout_155_WARMELTmiNORMAL_NORMEXP_EXPORT_MACRO (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t @@ -5035,7 +4164,7 @@ meltrout_156_WARMELTmiNORMAL_NORMEXP_EXPORT_MACRO (meltclosure_ptr_t meltxrestab_) { long - current_blocklevel_signals_meltrout_156_WARMELTmiNORMAL_NORMEXP_EXPORT_MACRO_melt + current_blocklevel_signals_meltrout_155_WARMELTmiNORMAL_NORMEXP_EXPORT_MACRO_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG @@ -5048,7 +4177,7 @@ meltrout_156_WARMELTmiNORMAL_NORMEXP_EXPORT_MACRO (meltclosure_ptr_t #define meltcallcount 0L #endif - struct meltframe_meltrout_156_WARMELTmiNORMAL_NORMEXP_EXPORT_MACRO_st + struct meltframe_meltrout_155_WARMELTmiNORMAL_NORMEXP_EXPORT_MACRO_st { int mcfr_nbvar; #if MELT_HAVE_DEBUG @@ -5061,8 +4190,8 @@ meltrout_156_WARMELTmiNORMAL_NORMEXP_EXPORT_MACRO (meltclosure_ptr_t struct melt_callframe_st *mcfr_prev; #undef MELTFRAM_NBVARPTR #undef MELTFRAM_NBVARNUM -#define MELTFRAM_NBVARPTR 40 - melt_ptr_t mcfr_varptr[40]; +#define MELTFRAM_NBVARPTR 39 + melt_ptr_t mcfr_varptr[39]; #define MELTFRAM_NBVARNUM 10 long mcfr_varnum[10]; /*others*/ @@ -5070,14 +4199,14 @@ meltrout_156_WARMELTmiNORMAL_NORMEXP_EXPORT_MACRO (meltclosure_ptr_t } *meltframptr_ = 0, meltfram__; /*declfrastruct */ #define meltframe meltfram__ - /*meltrout_156_WARMELTmiNORMAL_NORMEXP_EXPORT_MACRO is not initial declstructinit */ + /*meltrout_155_WARMELTmiNORMAL_NORMEXP_EXPORT_MACRO is not initial declstructinit */ if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int meltix; meltframptr_ = - (struct meltframe_meltrout_156_WARMELTmiNORMAL_NORMEXP_EXPORT_MACRO_st + (struct meltframe_meltrout_155_WARMELTmiNORMAL_NORMEXP_EXPORT_MACRO_st *) meltfirstargp_; - /* use arguments meltrout_156_WARMELTmiNORMAL_NORMEXP_EXPORT_MACRO output_curframe_declstruct_init */ + /* use arguments meltrout_155_WARMELTmiNORMAL_NORMEXP_EXPORT_MACRO output_curframe_declstruct_init */ (void) meltclosp_; (void) meltfirstargp_; (void) meltxargdescr_; @@ -5086,14 +4215,14 @@ meltrout_156_WARMELTmiNORMAL_NORMEXP_EXPORT_MACRO (meltclosure_ptr_t (void) meltxrestab_; /* marking closure */ gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); - for (meltix = 0; meltix < 40; meltix++) + for (meltix = 0; meltix < 39; meltix++) if (meltframptr_->mcfr_varptr[meltix]) gt_ggc_mx_melt_un (meltframptr_->mcfr_varptr[meltix]); return NULL; } /*end markggc */ ; memset (&meltfram__, 0, sizeof (meltfram__)); -/* declstructinit plain routine meltrout_156_WARMELTmiNORMAL_NORMEXP_EXPORT_MACRO nbval 40*/ - meltfram__.mcfr_nbvar = 40 /*nbval */ ; +/* declstructinit plain routine meltrout_155_WARMELTmiNORMAL_NORMEXP_EXPORT_MACRO nbval 39*/ + meltfram__.mcfr_nbvar = 39 /*nbval */ ; meltfram__.mcfr_clos = meltclosp_; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; melt_topframe = (struct melt_callframe_st *) &meltfram__; @@ -5101,7 +4230,7 @@ meltrout_156_WARMELTmiNORMAL_NORMEXP_EXPORT_MACRO (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-normal.melt:8114:/ getarg"); + MELT_LOCATION ("warmelt-normal.melt:8087:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -5141,58 +4270,108 @@ meltlab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8115:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8088:/ cppif.then"); /*^block */ /*anyblock */ { + { + /*^locexp */ + /*melt_increment_dbgcounter */ +#if MELT_HAVE_DEBUG + melt_dbgcounter++; +#endif + ; + } + ; + MELT_CHECK_SIGNAL (); ; - /*_#IS_A__L1*/ meltfnum[0] = - melt_is_instance_of ((melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]), - (melt_ptr_t) (( /*!CLASS_SOURCE_EXPORT_MACRO */ - meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-normal.melt:8115:/ cond"); - /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ + /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = + /*MELT_NEED_DBG */ +#if MELT_HAVE_DEBUG + ( /*melt_need_dbg */ melt_need_debug ((int) 0)) +#else + 0 /* no melt_need_dbg */ +#endif /*MELT_HAVE_DEBUG */ + ;; + MELT_LOCATION ("warmelt-normal.melt:8088:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ - /*_._IFELSE___V7*/ meltfptr[6] = ( /*nil */ NULL);; - } - else - { - MELT_LOCATION ("warmelt-normal.melt:8115:/ cond.else"); - /*^block */ /*anyblock */ { + /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = + /* for melt_callcount */ +#if MELT_HAVE_DEBUG && defined (meltcallcount) + meltcallcount /* melt_callcount debugging */ +#else + 0L /* melt_callcount without debug */ +#endif /* MELT_HAVE_DEBUG melt_callcount */ + ;; - - + MELT_CHECK_SIGNAL (); + ; + MELT_LOCATION ("warmelt-normal.melt:8088:/ apply"); + /*apply */ { - /*^locexp */ - melt_assert_failed (("check export_macro recv"), - ("warmelt-normal.melt") - ? ("warmelt-normal.melt") : __FILE__, - (8115) ? (8115) : __LINE__, __FUNCTION__); - ; + union meltparam_un argtab[5]; + memset (&argtab, 0, sizeof (argtab)); + /*^apply.arg */ + argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L2*/ meltfnum[1]; + /*^apply.arg */ + argtab[1].meltbp_cstring = "warmelt-normal.melt"; + /*^apply.arg */ + argtab[2].meltbp_long = 8088; + /*^apply.arg */ + argtab[3].meltbp_cstring = "normexp export_macro recv="; + /*^apply.arg */ + argtab[4].meltbp_aptr = + (melt_ptr_t *) & /*_.RECV__V2*/ meltfptr[1]; + /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = + melt_apply ((meltclosure_ptr_t) + (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])), + (melt_ptr_t) (( /*nil */ NULL)), + (MELTBPARSTR_LONG MELTBPARSTR_CSTRING + MELTBPARSTR_LONG MELTBPARSTR_CSTRING + MELTBPARSTR_PTR ""), argtab, "", + (union meltparam_un *) 0); } ; - /*clear *//*_._IFELSE___V7*/ meltfptr[6] = 0; + /*_._IF___V7*/ meltfptr[6] = + /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ + + MELT_LOCATION ("warmelt-normal.melt:8088:/ clear"); + /*clear *//*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0; + /*^clear */ + /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; } ; } + else + { /*^cond.else */ + + /*_._IF___V7*/ meltfptr[6] = NULL;; + } ; + MELT_LOCATION ("warmelt-normal.melt:8088:/ quasiblock"); + + + /*_.PROGN___V9*/ meltfptr[7] = /*_._IF___V7*/ meltfptr[6];; /*^compute */ - /*_.IFCPP___V6*/ meltfptr[5] = /*_._IFELSE___V7*/ meltfptr[6];; + /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8115:/ clear"); - /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; + MELT_LOCATION ("warmelt-normal.melt:8088:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ - /*clear *//*_._IFELSE___V7*/ meltfptr[6] = 0; + /*clear *//*_._IF___V7*/ meltfptr[6] = 0; + /*^clear */ + /*clear *//*_.PROGN___V9*/ meltfptr[7] = 0; } #else /*MELT_HAVE_DEBUG */ @@ -5202,7 +4381,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8116:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8089:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5210,19 +4389,19 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - /*_#IS_A__L2*/ meltfnum[0] = - melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), - (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ + /*_#IS_A__L3*/ meltfnum[1] = + melt_is_instance_of ((melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]), + (melt_ptr_t) (( /*!CLASS_SOURCE_EXPORT_MACRO */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-normal.melt:8116:/ cond"); - /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ + MELT_LOCATION ("warmelt-normal.melt:8089:/ cond"); + /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ - /*_._IFELSE___V9*/ meltfptr[8] = ( /*nil */ NULL);; + /*_._IFELSE___V11*/ meltfptr[7] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-normal.melt:8116:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8089:/ cond.else"); /*^block */ /*anyblock */ @@ -5233,37 +4412,37 @@ meltlab_endgetargs:; { /*^locexp */ - melt_assert_failed (("check env"), + melt_assert_failed (("check export_macro recv"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8116) ? (8116) : __LINE__, __FUNCTION__); + (8089) ? (8089) : __LINE__, __FUNCTION__); ; } ; - /*clear *//*_._IFELSE___V9*/ meltfptr[8] = 0; + /*clear *//*_._IFELSE___V11*/ meltfptr[7] = 0; /*epilog */ } ; } ; /*^compute */ - /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[8];; + /*_.IFCPP___V10*/ meltfptr[6] = /*_._IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8116:/ clear"); - /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; + MELT_LOCATION ("warmelt-normal.melt:8089:/ clear"); + /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ - /*clear *//*_._IFELSE___V9*/ meltfptr[8] = 0; + /*clear *//*_._IFELSE___V11*/ meltfptr[7] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); + /*_.IFCPP___V10*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8117:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8090:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5271,19 +4450,19 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - /*_#IS_A__L3*/ meltfnum[0] = - melt_is_instance_of ((melt_ptr_t) ( /*_.NCX__V4*/ meltfptr[3]), - (melt_ptr_t) (( /*!CLASS_NORMALIZATION_CONTEXT */ + /*_#IS_A__L4*/ meltfnum[0] = + melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), + (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-normal.melt:8117:/ cond"); - /*cond */ if ( /*_#IS_A__L3*/ meltfnum[0]) /*then */ + MELT_LOCATION ("warmelt-normal.melt:8090:/ cond"); + /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ - /*_._IFELSE___V11*/ meltfptr[10] = ( /*nil */ NULL);; + /*_._IFELSE___V13*/ meltfptr[12] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-normal.melt:8117:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8090:/ cond.else"); /*^block */ /*anyblock */ @@ -5294,157 +4473,107 @@ meltlab_endgetargs:; { /*^locexp */ - melt_assert_failed (("check nctxt"), + melt_assert_failed (("check env"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8117) ? (8117) : __LINE__, __FUNCTION__); + (8090) ? (8090) : __LINE__, __FUNCTION__); ; } ; - /*clear *//*_._IFELSE___V11*/ meltfptr[10] = 0; + /*clear *//*_._IFELSE___V13*/ meltfptr[12] = 0; /*epilog */ } ; } ; /*^compute */ - /*_.IFCPP___V10*/ meltfptr[8] = /*_._IFELSE___V11*/ meltfptr[10];; + /*_.IFCPP___V12*/ meltfptr[7] = /*_._IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8117:/ clear"); - /*clear *//*_#IS_A__L3*/ meltfnum[0] = 0; + MELT_LOCATION ("warmelt-normal.melt:8090:/ clear"); + /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ - /*clear *//*_._IFELSE___V11*/ meltfptr[10] = 0; + /*clear *//*_._IFELSE___V13*/ meltfptr[12] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL); + /*_.IFCPP___V12*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8118:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8091:/ cppif.then"); /*^block */ /*anyblock */ { - { - /*^locexp */ - /*melt_increment_dbgcounter */ -#if MELT_HAVE_DEBUG - melt_dbgcounter++; -#endif - ; - } - ; - MELT_CHECK_SIGNAL (); ; - /*_#MELT_NEED_DBG__L4*/ meltfnum[0] = - /*MELT_NEED_DBG */ -#if MELT_HAVE_DEBUG - ( /*melt_need_dbg */ melt_need_debug ((int) 0)) -#else - 0 /* no melt_need_dbg */ -#endif /*MELT_HAVE_DEBUG */ - ;; - MELT_LOCATION ("warmelt-normal.melt:8118:/ cond"); - /*cond */ if ( /*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then */ + /*_#IS_A__L5*/ meltfnum[1] = + melt_is_instance_of ((melt_ptr_t) ( /*_.NCX__V4*/ meltfptr[3]), + (melt_ptr_t) (( /*!CLASS_NORMALIZATION_CONTEXT */ + meltfrout->tabval[3])));; + MELT_LOCATION ("warmelt-normal.melt:8091:/ cond"); + /*cond */ if ( /*_#IS_A__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ + /*_._IFELSE___V15*/ meltfptr[14] = ( /*nil */ NULL);; + } + else + { + MELT_LOCATION ("warmelt-normal.melt:8091:/ cond.else"); + /*^block */ /*anyblock */ { - /*_#MELT_CALLCOUNT__L5*/ meltfnum[4] = - /* for melt_callcount */ -#if MELT_HAVE_DEBUG && defined (meltcallcount) - meltcallcount /* melt_callcount debugging */ -#else - 0L /* melt_callcount without debug */ -#endif /* MELT_HAVE_DEBUG melt_callcount */ - ;; - MELT_CHECK_SIGNAL (); - ; - MELT_LOCATION ("warmelt-normal.melt:8118:/ apply"); - /*apply */ + + { - union meltparam_un argtab[5]; - memset (&argtab, 0, sizeof (argtab)); - /*^apply.arg */ - argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L5*/ meltfnum[4]; - /*^apply.arg */ - argtab[1].meltbp_cstring = "warmelt-normal.melt"; - /*^apply.arg */ - argtab[2].meltbp_long = 8118; - /*^apply.arg */ - argtab[3].meltbp_cstring = "normexp export_macro recv"; - /*^apply.arg */ - argtab[4].meltbp_aptr = - (melt_ptr_t *) & /*_.RECV__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] = - melt_apply ((meltclosure_ptr_t) - (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[3])), - (melt_ptr_t) (( /*nil */ NULL)), - (MELTBPARSTR_LONG MELTBPARSTR_CSTRING - MELTBPARSTR_LONG MELTBPARSTR_CSTRING - MELTBPARSTR_PTR ""), argtab, "", - (union meltparam_un *) 0); + /*^locexp */ + melt_assert_failed (("check nctxt"), + ("warmelt-normal.melt") + ? ("warmelt-normal.melt") : __FILE__, + (8091) ? (8091) : __LINE__, __FUNCTION__); + ; } ; - /*_._IF___V13*/ meltfptr[12] = - /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13];; + /*clear *//*_._IFELSE___V15*/ meltfptr[14] = 0; /*epilog */ - - MELT_LOCATION ("warmelt-normal.melt:8118:/ clear"); - /*clear *//*_#MELT_CALLCOUNT__L5*/ meltfnum[4] = 0; - /*^clear */ - /*clear *//*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] = 0; } ; } - else - { /*^cond.else */ - - /*_._IF___V13*/ meltfptr[12] = NULL;; - } ; - MELT_LOCATION ("warmelt-normal.melt:8118:/ quasiblock"); - - - /*_.PROGN___V15*/ meltfptr[13] = /*_._IF___V13*/ meltfptr[12];; /*^compute */ - /*_.IFCPP___V12*/ meltfptr[10] = /*_.PROGN___V15*/ meltfptr[13];; + /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8118:/ clear"); - /*clear *//*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0; - /*^clear */ - /*clear *//*_._IF___V13*/ meltfptr[12] = 0; + MELT_LOCATION ("warmelt-normal.melt:8091:/ clear"); + /*clear *//*_#IS_A__L5*/ meltfnum[1] = 0; /*^clear */ - /*clear *//*_.PROGN___V15*/ meltfptr[13] = 0; + /*clear *//*_._IFELSE___V15*/ meltfptr[14] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V12*/ meltfptr[10] = ( /*nil */ NULL); + /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-normal.melt:8119:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8092:/ quasiblock"); - MELT_LOCATION ("warmelt-normal.melt:8120:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8093:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]) /*=obj*/ ; melt_object_get_field (slot, obj, 1, "LOCA_LOCATION"); - /*_.SLOC__V17*/ meltfptr[13] = slot; + /*_.SLOC__V17*/ meltfptr[16] = slot; }; ; - MELT_LOCATION ("warmelt-normal.melt:8121:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8094:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]) /*=obj*/ ; @@ -5452,7 +4581,7 @@ meltlab_endgetargs:; /*_.MNAME__V18*/ meltfptr[17] = slot; }; ; - MELT_LOCATION ("warmelt-normal.melt:8122:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8095:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]) /*=obj*/ ; @@ -5466,30 +4595,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8124:/ apply"); - /*apply */ - { - union meltparam_un argtab[3]; - memset (&argtab, 0, sizeof (argtab)); - /*^apply.arg */ - argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.NCX__V4*/ meltfptr[3]; - /*^apply.arg */ - argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.SLOC__V17*/ meltfptr[13]; - /*^apply.arg */ - argtab[2].meltbp_aptr = - (melt_ptr_t *) & /*_.BINDSLIST__V20*/ meltfptr[19]; - /*_.NMACEXP__V21*/ meltfptr[20] = - melt_apply ((meltclosure_ptr_t) - (( /*!NORMAL_MACRO_EXPORTER */ meltfrout->tabval[5])), - (melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), - (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), - argtab, "", (union meltparam_un *) 0); - } - ; - - MELT_CHECK_SIGNAL (); - ; - MELT_LOCATION ("warmelt-normal.melt:8125:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8097:/ quasiblock"); /*^rawallocobj */ @@ -5498,9 +4604,9 @@ meltlab_endgetargs:; melt_ptr_t newobj = 0; melt_raw_object_create (newobj, (melt_ptr_t) (( /*!CLASS_NREP_NIL */ meltfrout-> - tabval[6])), (1), + tabval[5])), (1), "CLASS_NREP_NIL"); - /*_.INST__V23*/ meltfptr[22] = + /*_.INST__V22*/ meltfptr[21] = newobj; }; ; @@ -5508,20 +4614,20 @@ meltlab_endgetargs:; /*putslot */ melt_assertmsg ("putslot checkobj @NREP_LOC", melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V23*/ meltfptr[22])) == + ( /*_.INST__V22*/ meltfptr[21])) == MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V23*/ meltfptr[22]), (0), - ( /*_.SLOC__V17*/ meltfptr[13]), "NREP_LOC"); + melt_putfield_object (( /*_.INST__V22*/ meltfptr[21]), (0), + ( /*_.SLOC__V17*/ meltfptr[16]), "NREP_LOC"); ; /*^touchobj */ - melt_dbgtrace_written_object ( /*_.INST__V23*/ meltfptr[22], + melt_dbgtrace_written_object ( /*_.INST__V22*/ meltfptr[21], "newly made instance"); ; - /*_.NREPNIL__V22*/ meltfptr[21] = /*_.INST__V23*/ meltfptr[22];; + /*_.NREPNIL__V21*/ meltfptr[20] = /*_.INST__V22*/ meltfptr[21];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8127:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8099:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5529,19 +4635,19 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - /*_#IS_A__L6*/ meltfnum[4] = + /*_#IS_A__L6*/ meltfnum[0] = melt_is_instance_of ((melt_ptr_t) ( /*_.MNAME__V18*/ meltfptr[17]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> - tabval[7])));; - MELT_LOCATION ("warmelt-normal.melt:8127:/ cond"); - /*cond */ if ( /*_#IS_A__L6*/ meltfnum[4]) /*then */ + tabval[6])));; + MELT_LOCATION ("warmelt-normal.melt:8099:/ cond"); + /*cond */ if ( /*_#IS_A__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ - /*_._IFELSE___V25*/ meltfptr[24] = ( /*nil */ NULL);; + /*_._IFELSE___V24*/ meltfptr[23] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-normal.melt:8127:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8099:/ cond.else"); /*^block */ /*anyblock */ @@ -5555,35 +4661,35 @@ meltlab_endgetargs:; melt_assert_failed (("check mname"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8127) ? (8127) : __LINE__, __FUNCTION__); + (8099) ? (8099) : __LINE__, __FUNCTION__); ; } ; - /*clear *//*_._IFELSE___V25*/ meltfptr[24] = 0; + /*clear *//*_._IFELSE___V24*/ meltfptr[23] = 0; /*epilog */ } ; } ; /*^compute */ - /*_.IFCPP___V24*/ meltfptr[23] = /*_._IFELSE___V25*/ meltfptr[24];; + /*_.IFCPP___V23*/ meltfptr[22] = /*_._IFELSE___V24*/ meltfptr[23];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8127:/ clear"); - /*clear *//*_#IS_A__L6*/ meltfnum[4] = 0; + MELT_LOCATION ("warmelt-normal.melt:8099:/ clear"); + /*clear *//*_#IS_A__L6*/ meltfnum[0] = 0; /*^clear */ - /*clear *//*_._IFELSE___V25*/ meltfptr[24] = 0; + /*clear *//*_._IFELSE___V24*/ meltfptr[23] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V24*/ meltfptr[23] = ( /*nil */ NULL); + /*_.IFCPP___V23*/ meltfptr[22] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8128:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8100:/ quasiblock"); /*^multimsend */ @@ -5596,13 +4702,13 @@ meltlab_endgetargs:; /*^multimsend.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^multimsend.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.NCX__V4*/ meltfptr[3]; /*^multimsend.arg */ - argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.SLOC__V17*/ meltfptr[13]; + argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.SLOC__V17*/ meltfptr[16]; /*^multimsend.xres */ - restab[0].meltbp_aptr = (melt_ptr_t *) & /*_.NBINDS__V28*/ meltfptr[27]; /*^multimsend.send */ - /*_.NEXP__V27*/ meltfptr[26] = + restab[0].meltbp_aptr = (melt_ptr_t *) & /*_.NBINDS__V27*/ meltfptr[26]; /*^multimsend.send */ + /*_.NEXP__V26*/ meltfptr[25] = meltgc_send ((melt_ptr_t) ( /*_.MVALEXP__V19*/ meltfptr[18]), ((melt_ptr_t) - (( /*!NORMAL_EXP */ meltfrout->tabval[8]))), + (( /*!NORMAL_EXP */ meltfrout->tabval[7]))), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } @@ -5613,58 +4719,55 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8131:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8103:/ apply"); /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ - argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.NBINDS__V28*/ meltfptr[27]; - /*_.LIST_APPEND2LIST__V29*/ meltfptr[28] = + argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.NBINDS__V27*/ meltfptr[26]; + /*_.LIST_APPEND2LIST__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t) - (( /*!LIST_APPEND2LIST */ meltfrout->tabval[9])), + (( /*!LIST_APPEND2LIST */ meltfrout->tabval[8])), (melt_ptr_t) ( /*_.BINDSLIST__V20*/ meltfptr[19]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-normal.melt:8132:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8104:/ quasiblock"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8133:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8105:/ apply"); /*apply */ { - union meltparam_un argtab[6]; + union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ - argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.NEXP__V27*/ meltfptr[26]; + argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.NEXP__V26*/ meltfptr[25]; /*^apply.arg */ - argtab[1].meltbp_aptr = - (melt_ptr_t *) & /*_.NMACEXP__V21*/ meltfptr[20]; + argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ - argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; + argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.NCX__V4*/ meltfptr[3]; /*^apply.arg */ - argtab[3].meltbp_aptr = (melt_ptr_t *) & /*_.NCX__V4*/ meltfptr[3]; + argtab[3].meltbp_aptr = (melt_ptr_t *) & /*_.SLOC__V17*/ meltfptr[16]; /*^apply.arg */ - argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.SLOC__V17*/ meltfptr[13]; - /*^apply.arg */ - argtab[5].meltbp_aptr = + argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.BINDSLIST__V20*/ meltfptr[19]; - /*_.NEXPM__V31*/ meltfptr[30] = + /*_.NEXPM__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t) - (( /*!NORMAL_EXPORTED_MACRO */ meltfrout->tabval[10])), + (( /*!NORMAL_EXPORTED_MACRO */ meltfrout->tabval[9])), (melt_ptr_t) ( /*_.MNAME__V18*/ meltfptr[17]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR - MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), - argtab, "", (union meltparam_un *) 0); + MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", + (union meltparam_un *) 0); } ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8135:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8107:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5682,7 +4785,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - /*_#MELT_NEED_DBG__L7*/ meltfnum[0] = + /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -5690,15 +4793,15 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8135:/ cond"); - /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then */ + MELT_LOCATION ("warmelt-normal.melt:8107:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { - /*_#MELT_CALLCOUNT__L8*/ meltfnum[4] = + /*_#MELT_CALLCOUNT__L8*/ meltfnum[0] = /* for melt_callcount */ #if MELT_HAVE_DEBUG && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ @@ -5709,25 +4812,25 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8135:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8107:/ apply"); /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ - argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L8*/ meltfnum[4]; + argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L8*/ meltfnum[0]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8135; + argtab[2].meltbp_long = 8107; /*^apply.arg */ argtab[3].meltbp_cstring = "normexp_export_macro nexpm"; /*^apply.arg */ argtab[4].meltbp_aptr = - (melt_ptr_t *) & /*_.NEXPM__V31*/ meltfptr[30]; - /*_.MELT_DEBUG_FUN__V34*/ meltfptr[33] = + (melt_ptr_t *) & /*_.NEXPM__V30*/ meltfptr[29]; + /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t) - (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[3])), + (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])), (melt_ptr_t) (( /*nil */ NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING @@ -5735,54 +4838,54 @@ meltlab_endgetargs:; (union meltparam_un *) 0); } ; - /*_._IF___V33*/ meltfptr[32] = - /*_.MELT_DEBUG_FUN__V34*/ meltfptr[33];; + /*_._IF___V32*/ meltfptr[31] = + /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8135:/ clear"); - /*clear *//*_#MELT_CALLCOUNT__L8*/ meltfnum[4] = 0; + MELT_LOCATION ("warmelt-normal.melt:8107:/ clear"); + /*clear *//*_#MELT_CALLCOUNT__L8*/ meltfnum[0] = 0; /*^clear */ - /*clear *//*_.MELT_DEBUG_FUN__V34*/ meltfptr[33] = 0; + /*clear *//*_.MELT_DEBUG_FUN__V33*/ meltfptr[32] = 0; } ; } else { /*^cond.else */ - /*_._IF___V33*/ meltfptr[32] = NULL;; + /*_._IF___V32*/ meltfptr[31] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8135:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8107:/ quasiblock"); - /*_.PROGN___V35*/ meltfptr[33] = /*_._IF___V33*/ meltfptr[32];; + /*_.PROGN___V34*/ meltfptr[32] = /*_._IF___V32*/ meltfptr[31];; /*^compute */ - /*_.IFCPP___V32*/ meltfptr[31] = /*_.PROGN___V35*/ meltfptr[33];; + /*_.IFCPP___V31*/ meltfptr[30] = /*_.PROGN___V34*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8135:/ clear"); - /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[0] = 0; + MELT_LOCATION ("warmelt-normal.melt:8107:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[1] = 0; /*^clear */ - /*clear *//*_._IF___V33*/ meltfptr[32] = 0; + /*clear *//*_._IF___V32*/ meltfptr[31] = 0; /*^clear */ - /*clear *//*_.PROGN___V35*/ meltfptr[33] = 0; + /*clear *//*_.PROGN___V34*/ meltfptr[32] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V32*/ meltfptr[31] = ( /*nil */ NULL); + /*_.IFCPP___V31*/ meltfptr[30] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; /*^compute */ - /*_.LET___V30*/ meltfptr[29] = /*_.IFCPP___V32*/ meltfptr[31];; + /*_.LET___V29*/ meltfptr[28] = /*_.IFCPP___V31*/ meltfptr[30];; - MELT_LOCATION ("warmelt-normal.melt:8132:/ clear"); - /*clear *//*_.NEXPM__V31*/ meltfptr[30] = 0; + MELT_LOCATION ("warmelt-normal.melt:8104:/ clear"); + /*clear *//*_.NEXPM__V30*/ meltfptr[29] = 0; /*^clear */ - /*clear *//*_.IFCPP___V32*/ meltfptr[31] = 0; + /*clear *//*_.IFCPP___V31*/ meltfptr[30] = 0; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8137:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8109:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5800,7 +4903,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - /*_#MELT_NEED_DBG__L9*/ meltfnum[4] = + /*_#MELT_NEED_DBG__L9*/ meltfnum[0] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -5808,15 +4911,15 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8137:/ cond"); - /*cond */ if ( /*_#MELT_NEED_DBG__L9*/ meltfnum[4]) /*then */ + MELT_LOCATION ("warmelt-normal.melt:8109:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L9*/ meltfnum[0]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { - /*_#MELT_CALLCOUNT__L10*/ meltfnum[0] = + /*_#MELT_CALLCOUNT__L10*/ meltfnum[1] = /* for melt_callcount */ #if MELT_HAVE_DEBUG && defined (meltcallcount) meltcallcount /* melt_callcount debugging */ @@ -5827,31 +4930,31 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8137:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8109:/ apply"); /*apply */ { union meltparam_un argtab[7]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ - argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L10*/ meltfnum[0]; + argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L10*/ meltfnum[1]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8137; + argtab[2].meltbp_long = 8109; /*^apply.arg */ argtab[3].meltbp_cstring = "normexp_export_macro final nrepnil="; /*^apply.arg */ argtab[4].meltbp_aptr = - (melt_ptr_t *) & /*_.NREPNIL__V22*/ meltfptr[21]; + (melt_ptr_t *) & /*_.NREPNIL__V21*/ meltfptr[20]; /*^apply.arg */ argtab[5].meltbp_cstring = " bindslist="; /*^apply.arg */ argtab[6].meltbp_aptr = (melt_ptr_t *) & /*_.BINDSLIST__V20*/ meltfptr[19]; - /*_.MELT_DEBUG_FUN__V38*/ meltfptr[30] = + /*_.MELT_DEBUG_FUN__V37*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t) - (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[3])), + (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])), (melt_ptr_t) (( /*nil */ NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING @@ -5860,52 +4963,52 @@ meltlab_endgetargs:; (union meltparam_un *) 0); } ; - /*_._IF___V37*/ meltfptr[33] = - /*_.MELT_DEBUG_FUN__V38*/ meltfptr[30];; + /*_._IF___V36*/ meltfptr[32] = + /*_.MELT_DEBUG_FUN__V37*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8137:/ clear"); - /*clear *//*_#MELT_CALLCOUNT__L10*/ meltfnum[0] = 0; + MELT_LOCATION ("warmelt-normal.melt:8109:/ clear"); + /*clear *//*_#MELT_CALLCOUNT__L10*/ meltfnum[1] = 0; /*^clear */ - /*clear *//*_.MELT_DEBUG_FUN__V38*/ meltfptr[30] = 0; + /*clear *//*_.MELT_DEBUG_FUN__V37*/ meltfptr[29] = 0; } ; } else { /*^cond.else */ - /*_._IF___V37*/ meltfptr[33] = NULL;; + /*_._IF___V36*/ meltfptr[32] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8137:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8109:/ quasiblock"); - /*_.PROGN___V39*/ meltfptr[31] = /*_._IF___V37*/ meltfptr[33];; + /*_.PROGN___V38*/ meltfptr[30] = /*_._IF___V36*/ meltfptr[32];; /*^compute */ - /*_.IFCPP___V36*/ meltfptr[32] = /*_.PROGN___V39*/ meltfptr[31];; + /*_.IFCPP___V35*/ meltfptr[31] = /*_.PROGN___V38*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8137:/ clear"); - /*clear *//*_#MELT_NEED_DBG__L9*/ meltfnum[4] = 0; + MELT_LOCATION ("warmelt-normal.melt:8109:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L9*/ meltfnum[0] = 0; /*^clear */ - /*clear *//*_._IF___V37*/ meltfptr[33] = 0; + /*clear *//*_._IF___V36*/ meltfptr[32] = 0; /*^clear */ - /*clear *//*_.PROGN___V39*/ meltfptr[31] = 0; + /*clear *//*_.PROGN___V38*/ meltfptr[30] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V36*/ meltfptr[32] = ( /*nil */ NULL); + /*_.IFCPP___V35*/ meltfptr[31] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8139:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8111:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.NREPNIL__V22*/ meltfptr[21];; - MELT_LOCATION ("warmelt-normal.melt:8139:/ putxtraresult"); + /*_._RETVAL___V1*/ meltfptr[0] = /*_.NREPNIL__V21*/ meltfptr[20];; + MELT_LOCATION ("warmelt-normal.melt:8111:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) @@ -5920,23 +5023,23 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - /*_.MULTI___V26*/ meltfptr[24] = /*_.RETURN___V40*/ meltfptr[30];; + /*_.MULTI___V25*/ meltfptr[23] = /*_.RETURN___V39*/ meltfptr[29];; - MELT_LOCATION ("warmelt-normal.melt:8128:/ clear"); - /*clear *//*_.LIST_APPEND2LIST__V29*/ meltfptr[28] = 0; + MELT_LOCATION ("warmelt-normal.melt:8100:/ clear"); + /*clear *//*_.LIST_APPEND2LIST__V28*/ meltfptr[27] = 0; /*^clear */ - /*clear *//*_.LET___V30*/ meltfptr[29] = 0; + /*clear *//*_.LET___V29*/ meltfptr[28] = 0; /*^clear */ - /*clear *//*_.IFCPP___V36*/ meltfptr[32] = 0; + /*clear *//*_.IFCPP___V35*/ meltfptr[31] = 0; /*^clear */ - /*clear *//*_.RETURN___V40*/ meltfptr[30] = 0; + /*clear *//*_.RETURN___V39*/ meltfptr[29] = 0; /*^clear */ - /*clear *//*_.NBINDS__V28*/ meltfptr[27] = 0; - /*_.LET___V16*/ meltfptr[12] = /*_.MULTI___V26*/ meltfptr[24];; + /*clear *//*_.NBINDS__V27*/ meltfptr[26] = 0; + /*_.LET___V16*/ meltfptr[14] = /*_.MULTI___V25*/ meltfptr[23];; - MELT_LOCATION ("warmelt-normal.melt:8119:/ clear"); - /*clear *//*_.SLOC__V17*/ meltfptr[13] = 0; + MELT_LOCATION ("warmelt-normal.melt:8092:/ clear"); + /*clear *//*_.SLOC__V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.MNAME__V18*/ meltfptr[17] = 0; /*^clear */ @@ -5944,23 +5047,21 @@ meltlab_endgetargs:; /*^clear */ /*clear *//*_.BINDSLIST__V20*/ meltfptr[19] = 0; /*^clear */ - /*clear *//*_.NMACEXP__V21*/ meltfptr[20] = 0; - /*^clear */ - /*clear *//*_.NREPNIL__V22*/ meltfptr[21] = 0; + /*clear *//*_.NREPNIL__V21*/ meltfptr[20] = 0; /*^clear */ - /*clear *//*_.IFCPP___V24*/ meltfptr[23] = 0; + /*clear *//*_.IFCPP___V23*/ meltfptr[22] = 0; /*^clear */ - /*clear *//*_.MULTI___V26*/ meltfptr[24] = 0; + /*clear *//*_.MULTI___V25*/ meltfptr[23] = 0; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8114:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8087:/ quasiblock"); - /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[12];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[14];; { - MELT_LOCATION ("warmelt-normal.melt:8114:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8087:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -5978,13 +5079,13 @@ meltlab_endgetargs:; /*^clear */ /*clear *//*_.IFCPP___V6*/ meltfptr[5] = 0; /*^clear */ - /*clear *//*_.IFCPP___V8*/ meltfptr[6] = 0; + /*clear *//*_.IFCPP___V10*/ meltfptr[6] = 0; /*^clear */ - /*clear *//*_.IFCPP___V10*/ meltfptr[8] = 0; + /*clear *//*_.IFCPP___V12*/ meltfptr[7] = 0; /*^clear */ - /*clear *//*_.IFCPP___V12*/ meltfptr[10] = 0; + /*clear *//*_.IFCPP___V14*/ meltfptr[12] = 0; /*^clear */ - /*clear *//*_.LET___V16*/ meltfptr[12] = 0; + /*clear *//*_.LET___V16*/ meltfptr[14] = 0; } ; @@ -5993,21 +5094,21 @@ meltlabend_rout: melt_trace_end ("NORMEXP_EXPORT_MACRO", meltcallcount); MELT_TRACE_EXIT_LOCATION (); melt_blocklevel_signals = - current_blocklevel_signals_meltrout_156_WARMELTmiNORMAL_NORMEXP_EXPORT_MACRO_melt; + current_blocklevel_signals_meltrout_155_WARMELTmiNORMAL_NORMEXP_EXPORT_MACRO_melt; melt_topframe = (struct melt_callframe_st *) meltfram__.mcfr_prev; return (melt_ptr_t) ( /*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_156_WARMELTmiNORMAL_NORMEXP_EXPORT_MACRO */ +} /*end meltrout_155_WARMELTmiNORMAL_NORMEXP_EXPORT_MACRO */ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_157_WARMELTmiNORMAL_NORMAL_EXPORTED_PATMACRO (meltclosure_ptr_t +meltrout_156_WARMELTmiNORMAL_NORMAL_EXPORTED_PATMACRO (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -6023,7 +5124,7 @@ meltrout_157_WARMELTmiNORMAL_NORMAL_EXPORTED_PATMACRO (meltclosure_ptr_t meltxrestab_) { long - current_blocklevel_signals_meltrout_157_WARMELTmiNORMAL_NORMAL_EXPORTED_PATMACRO_melt + current_blocklevel_signals_meltrout_156_WARMELTmiNORMAL_NORMAL_EXPORTED_PATMACRO_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG @@ -6036,7 +5137,7 @@ meltrout_157_WARMELTmiNORMAL_NORMAL_EXPORTED_PATMACRO (meltclosure_ptr_t #define meltcallcount 0L #endif - struct meltframe_meltrout_157_WARMELTmiNORMAL_NORMAL_EXPORTED_PATMACRO_st + struct meltframe_meltrout_156_WARMELTmiNORMAL_NORMAL_EXPORTED_PATMACRO_st { int mcfr_nbvar; #if MELT_HAVE_DEBUG @@ -6058,15 +5159,15 @@ meltrout_157_WARMELTmiNORMAL_NORMAL_EXPORTED_PATMACRO (meltclosure_ptr_t } *meltframptr_ = 0, meltfram__; /*declfrastruct */ #define meltframe meltfram__ - /*meltrout_157_WARMELTmiNORMAL_NORMAL_EXPORTED_PATMACRO is not initial declstructinit */ + /*meltrout_156_WARMELTmiNORMAL_NORMAL_EXPORTED_PATMACRO is not initial declstructinit */ if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int meltix; meltframptr_ = (struct - meltframe_meltrout_157_WARMELTmiNORMAL_NORMAL_EXPORTED_PATMACRO_st *) + meltframe_meltrout_156_WARMELTmiNORMAL_NORMAL_EXPORTED_PATMACRO_st *) meltfirstargp_; - /* use arguments meltrout_157_WARMELTmiNORMAL_NORMAL_EXPORTED_PATMACRO output_curframe_declstruct_init */ + /* use arguments meltrout_156_WARMELTmiNORMAL_NORMAL_EXPORTED_PATMACRO output_curframe_declstruct_init */ (void) meltclosp_; (void) meltfirstargp_; (void) meltxargdescr_; @@ -6081,7 +5182,7 @@ meltrout_157_WARMELTmiNORMAL_NORMAL_EXPORTED_PATMACRO (meltclosure_ptr_t return NULL; } /*end markggc */ ; memset (&meltfram__, 0, sizeof (meltfram__)); -/* declstructinit plain routine meltrout_157_WARMELTmiNORMAL_NORMAL_EXPORTED_PATMACRO nbval 61*/ +/* declstructinit plain routine meltrout_156_WARMELTmiNORMAL_NORMAL_EXPORTED_PATMACRO nbval 61*/ meltfram__.mcfr_nbvar = 61 /*nbval */ ; meltfram__.mcfr_clos = meltclosp_; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; @@ -6090,7 +5191,7 @@ meltrout_157_WARMELTmiNORMAL_NORMAL_EXPORTED_PATMACRO (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-normal.melt:8151:/ getarg"); + MELT_LOCATION ("warmelt-normal.melt:8123:/ getarg"); /*_.SYM__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -6170,7 +5271,7 @@ meltlab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8152:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8124:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6196,7 +5297,7 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8152:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8124:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -6215,7 +5316,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8152:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8124:/ apply"); /*apply */ { union meltparam_un argtab[11]; @@ -6225,7 +5326,7 @@ meltlab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8152; + argtab[2].meltbp_long = 8124; /*^apply.arg */ argtab[3].meltbp_cstring = "normal_exported_patmacro start sym="; @@ -6264,7 +5365,7 @@ meltlab_endgetargs:; /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8152:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8124:/ clear"); /*clear *//*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = 0; @@ -6277,7 +5378,7 @@ meltlab_endgetargs:; /*_._IF___V11*/ meltfptr[10] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8152:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8124:/ quasiblock"); /*_.PROGN___V13*/ meltfptr[11] = /*_._IF___V11*/ meltfptr[10];; @@ -6285,7 +5386,7 @@ meltlab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[9] = /*_.PROGN___V13*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8152:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8124:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IF___V11*/ meltfptr[10] = 0; @@ -6300,7 +5401,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8154:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8126:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6312,7 +5413,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SYM__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-normal.melt:8154:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8126:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -6320,7 +5421,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8154:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8126:/ cond.else"); /*^block */ /*anyblock */ @@ -6334,7 +5435,7 @@ meltlab_endgetargs:; melt_assert_failed (("check sym"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8154) ? (8154) : __LINE__, __FUNCTION__); + (8126) ? (8126) : __LINE__, __FUNCTION__); ; } ; @@ -6348,7 +5449,7 @@ meltlab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[10] = /*_._IFELSE___V15*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8154:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8126:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_._IFELSE___V15*/ meltfptr[11] = 0; @@ -6361,7 +5462,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8155:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8127:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6373,7 +5474,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.NEXP__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_NREP */ meltfrout-> tabval[2])));; - MELT_LOCATION ("warmelt-normal.melt:8155:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8127:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -6381,7 +5482,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8155:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8127:/ cond.else"); /*^block */ /*anyblock */ @@ -6395,7 +5496,7 @@ meltlab_endgetargs:; melt_assert_failed (("check nexp"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8155) ? (8155) : __LINE__, __FUNCTION__); + (8127) ? (8127) : __LINE__, __FUNCTION__); ; } ; @@ -6409,7 +5510,7 @@ meltlab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[11] = /*_._IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8155:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8127:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IFELSE___V17*/ meltfptr[16] = 0; @@ -6422,7 +5523,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8156:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8128:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6434,7 +5535,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.NMACROXP__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_NREP */ meltfrout-> tabval[2])));; - MELT_LOCATION ("warmelt-normal.melt:8156:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8128:/ cond"); /*cond */ if ( /*_#IS_A__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -6442,7 +5543,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8156:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8128:/ cond.else"); /*^block */ /*anyblock */ @@ -6456,7 +5557,7 @@ meltlab_endgetargs:; melt_assert_failed (("check nmacroxp"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8156) ? (8156) : __LINE__, __FUNCTION__); + (8128) ? (8128) : __LINE__, __FUNCTION__); ; } ; @@ -6470,7 +5571,7 @@ meltlab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[16] = /*_._IFELSE___V19*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8156:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8128:/ clear"); /*clear *//*_#IS_A__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_._IFELSE___V19*/ meltfptr[18] = 0; @@ -6483,7 +5584,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8157:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8129:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6495,7 +5596,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V6*/ meltfptr[5]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[3])));; - MELT_LOCATION ("warmelt-normal.melt:8157:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8129:/ cond"); /*cond */ if ( /*_#IS_A__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -6503,7 +5604,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8157:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8129:/ cond.else"); /*^block */ /*anyblock */ @@ -6517,7 +5618,7 @@ meltlab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8157) ? (8157) : __LINE__, __FUNCTION__); + (8129) ? (8129) : __LINE__, __FUNCTION__); ; } ; @@ -6531,7 +5632,7 @@ meltlab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[18] = /*_._IFELSE___V21*/ meltfptr[20];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8157:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8129:/ clear"); /*clear *//*_#IS_A__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IFELSE___V21*/ meltfptr[20] = 0; @@ -6544,7 +5645,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8158:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8130:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6556,7 +5657,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.NCX__V7*/ meltfptr[6]), (melt_ptr_t) (( /*!CLASS_NORMALIZATION_CONTEXT */ meltfrout->tabval[4])));; - MELT_LOCATION ("warmelt-normal.melt:8158:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8130:/ cond"); /*cond */ if ( /*_#IS_A__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -6564,7 +5665,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8158:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8130:/ cond.else"); /*^block */ /*anyblock */ @@ -6578,7 +5679,7 @@ meltlab_endgetargs:; melt_assert_failed (("check ncx"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8158) ? (8158) : __LINE__, __FUNCTION__); + (8130) ? (8130) : __LINE__, __FUNCTION__); ; } ; @@ -6592,7 +5693,7 @@ meltlab_endgetargs:; /*_.IFCPP___V22*/ meltfptr[20] = /*_._IFELSE___V23*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8158:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8130:/ clear"); /*clear *//*_#IS_A__L7*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_._IFELSE___V23*/ meltfptr[22] = 0; @@ -6605,7 +5706,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8159:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8131:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6616,7 +5717,7 @@ meltlab_endgetargs:; /*_#IS_LIST__L8*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.BINDSLIST__V9*/ meltfptr[8])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-normal.melt:8159:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8131:/ cond"); /*cond */ if ( /*_#IS_LIST__L8*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -6624,7 +5725,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8159:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8131:/ cond.else"); /*^block */ /*anyblock */ @@ -6638,7 +5739,7 @@ meltlab_endgetargs:; melt_assert_failed (("check bindslist"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8159) ? (8159) : __LINE__, __FUNCTION__); + (8131) ? (8131) : __LINE__, __FUNCTION__); ; } ; @@ -6652,7 +5753,7 @@ meltlab_endgetargs:; /*_.IFCPP___V24*/ meltfptr[22] = /*_._IFELSE___V25*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8159:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8131:/ clear"); /*clear *//*_#IS_LIST__L8*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IFELSE___V25*/ meltfptr[24] = 0; @@ -6663,7 +5764,7 @@ meltlab_endgetargs:; /*_.IFCPP___V24*/ meltfptr[22] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-normal.melt:8160:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8132:/ quasiblock"); @@ -6683,7 +5784,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8161:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8133:/ apply"); /*apply */ { union meltparam_un argtab[2]; @@ -6700,7 +5801,7 @@ meltlab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-normal.melt:8162:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8134:/ quasiblock"); /*_.SB__V30*/ meltfptr[29] = @@ -6710,13 +5811,13 @@ meltlab_endgetargs:; (const char *) 0);; { - MELT_LOCATION ("warmelt-normal.melt:8163:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8135:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.SB__V30*/ meltfptr[29]), ("norm.exp.pat : ")); } ; - MELT_LOCATION ("warmelt-normal.melt:8164:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8136:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SYM__V2*/ meltfptr[1]) /*=obj*/ ; @@ -6736,7 +5837,7 @@ meltlab_endgetargs:; ; /*_.LET___V29*/ meltfptr[28] = /*_.SB__V30*/ meltfptr[29];; - MELT_LOCATION ("warmelt-normal.melt:8162:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8134:/ clear"); /*clear *//*_.SB__V30*/ meltfptr[29] = 0; /*^clear */ /*clear *//*_.NAMED_NAME__V31*/ meltfptr[30] = 0; @@ -6749,7 +5850,7 @@ meltlab_endgetargs:; (meltgc_new_stringdup ((meltobject_ptr_t) (( /*!DISCR_STRING */ meltfrout->tabval[10])), melt_strbuf_str ((melt_ptr_t) ( /*_.CSBUF__V32*/ meltfptr[29]))));; - MELT_LOCATION ("warmelt-normal.melt:8166:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8138:/ quasiblock"); /*^rawallocobj */ @@ -6789,7 +5890,7 @@ meltlab_endgetargs:; /*_.SCURENVBOX__V34*/ meltfptr[33] = /*_.INST__V35*/ meltfptr[34];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8170:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8142:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6815,7 +5916,7 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8170:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8142:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L9*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -6834,7 +5935,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8170:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8142:/ apply"); /*apply */ { union meltparam_un argtab[5]; @@ -6844,7 +5945,7 @@ meltlab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8170; + argtab[2].meltbp_long = 8142; /*^apply.arg */ argtab[3].meltbp_cstring = "normal_exported_patmacro sgetcurenvbox"; @@ -6865,7 +5966,7 @@ meltlab_endgetargs:; /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8170:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8142:/ clear"); /*clear *//*_#MELT_CALLCOUNT__L10*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V38*/ meltfptr[37] = 0; @@ -6878,7 +5979,7 @@ meltlab_endgetargs:; /*_._IF___V37*/ meltfptr[36] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8170:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8142:/ quasiblock"); /*_.PROGN___V39*/ meltfptr[37] = /*_._IF___V37*/ meltfptr[36];; @@ -6886,7 +5987,7 @@ meltlab_endgetargs:; /*_.IFCPP___V36*/ meltfptr[35] = /*_.PROGN___V39*/ meltfptr[37];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8170:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8142:/ clear"); /*clear *//*_#MELT_NEED_DBG__L9*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_._IF___V37*/ meltfptr[36] = 0; @@ -6902,7 +6003,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8171:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8143:/ quasiblock"); /*^multimsend */ @@ -6931,7 +6032,7 @@ meltlab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8174:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8146:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6957,7 +6058,7 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8174:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8146:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -6976,7 +6077,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8174:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8146:/ apply"); /*apply */ { union meltparam_un argtab[7]; @@ -6986,7 +6087,7 @@ meltlab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8174; + argtab[2].meltbp_long = 8146; /*^apply.arg */ argtab[3].meltbp_cstring = "normal_exported_patmacro ncurenvbox="; @@ -7013,7 +6114,7 @@ meltlab_endgetargs:; /*_.MELT_DEBUG_FUN__V45*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8174:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8146:/ clear"); /*clear *//*_#MELT_CALLCOUNT__L12*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V45*/ meltfptr[44] = 0; @@ -7026,7 +6127,7 @@ meltlab_endgetargs:; /*_._IF___V44*/ meltfptr[43] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8174:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8146:/ quasiblock"); /*_.PROGN___V46*/ meltfptr[44] = /*_._IF___V44*/ meltfptr[43];; @@ -7034,7 +6135,7 @@ meltlab_endgetargs:; /*_.IFCPP___V43*/ meltfptr[42] = /*_.PROGN___V46*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8174:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8146:/ clear"); /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IF___V44*/ meltfptr[43] = 0; @@ -7054,7 +6155,7 @@ meltlab_endgetargs:; /*_#IS_LIST__L13*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.CURENVBINDS__V42*/ meltfptr[41])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-normal.melt:8176:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8148:/ cond"); /*cond */ if ( /*_#IS_LIST__L13*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -7085,7 +6186,7 @@ meltlab_endgetargs:; /*_.LIST_APPEND2LIST__V48*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8176:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8148:/ clear"); /*clear *//*_.LIST_APPEND2LIST__V48*/ meltfptr[44] = 0; } ; @@ -7096,36 +6197,36 @@ meltlab_endgetargs:; /*_._IF___V47*/ meltfptr[43] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8177:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8149:/ quasiblock"); - MELT_LOCATION ("warmelt-normal.melt:8178:/ blockmultialloc"); + MELT_LOCATION ("warmelt-normal.melt:8150:/ blockmultialloc"); /*multiallocblock */ { struct meltletrec_1_st { - struct MELT_MULTIPLE_STRUCT (4) rtup_0__TUPLREC__x19; + struct MELT_MULTIPLE_STRUCT (4) rtup_0__TUPLREC__x20; 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__x19 */ + /*inimult rtup_0__TUPLREC__x20 */ /*_.TUPLREC___V51*/ meltfptr[50] = - (melt_ptr_t) & meltletrec_1_ptr->rtup_0__TUPLREC__x19; - meltletrec_1_ptr->rtup_0__TUPLREC__x19.discr = + (melt_ptr_t) & meltletrec_1_ptr->rtup_0__TUPLREC__x20; + meltletrec_1_ptr->rtup_0__TUPLREC__x20.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_MULTIPLE)))); - meltletrec_1_ptr->rtup_0__TUPLREC__x19.nbval = 4; + meltletrec_1_ptr->rtup_0__TUPLREC__x20.nbval = 4; /*^putuple */ /*putupl#55 */ - melt_assertmsg ("putupl [:8178] #55 checktup", + melt_assertmsg ("putupl [:8150] #55 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V51*/ meltfptr[50])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:8178] #55 checkoff", + melt_assertmsg ("putupl [:8150] #55 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) @@ -7136,11 +6237,11 @@ meltlab_endgetargs:; ; /*^putuple */ /*putupl#56 */ - melt_assertmsg ("putupl [:8178] #56 checktup", + melt_assertmsg ("putupl [:8150] #56 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V51*/ meltfptr[50])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:8178] #56 checkoff", + melt_assertmsg ("putupl [:8150] #56 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) @@ -7151,11 +6252,11 @@ meltlab_endgetargs:; ; /*^putuple */ /*putupl#57 */ - melt_assertmsg ("putupl [:8178] #57 checktup", + melt_assertmsg ("putupl [:8150] #57 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V51*/ meltfptr[50])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:8178] #57 checkoff", + melt_assertmsg ("putupl [:8150] #57 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) @@ -7166,11 +6267,11 @@ meltlab_endgetargs:; ; /*^putuple */ /*putupl#58 */ - melt_assertmsg ("putupl [:8178] #58 checktup", + melt_assertmsg ("putupl [:8150] #58 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V51*/ meltfptr[50])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:8178] #58 checkoff", + melt_assertmsg ("putupl [:8150] #58 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) @@ -7185,7 +6286,7 @@ meltlab_endgetargs:; /*_.ARGTUP__V50*/ meltfptr[49] = /*_.TUPLREC___V51*/ meltfptr[50];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8178:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8150:/ clear"); /*clear *//*_.TUPLREC___V51*/ meltfptr[50] = 0; /*^clear */ /*clear *//*_.TUPLREC___V51*/ meltfptr[50] = 0; @@ -7197,7 +6298,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8183:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8155:/ quasiblock"); /*^rawallocobj */ @@ -7255,7 +6356,7 @@ meltlab_endgetargs:; "newly made instance"); ; /*_.INST___V52*/ meltfptr[50] = /*_.INST__V53*/ meltfptr[52];; - MELT_LOCATION ("warmelt-normal.melt:8179:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8151:/ quasiblock"); /*^rawallocobj */ @@ -7316,7 +6417,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8189:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8161:/ quasiblock"); /*^rawallocobj */ @@ -7376,7 +6477,7 @@ meltlab_endgetargs:; /*_.SYOCC__V56*/ meltfptr[55] = /*_.INST__V57*/ meltfptr[56];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8195:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8167:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7402,7 +6503,7 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8195:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8167:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L14*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -7421,7 +6522,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8195:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8167:/ apply"); /*apply */ { union meltparam_un argtab[7]; @@ -7431,7 +6532,7 @@ meltlab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8195; + argtab[2].meltbp_long = 8167; /*^apply.arg */ argtab[3].meltbp_cstring = "normal_exported_patmacro cbind="; /*^apply.arg */ @@ -7457,7 +6558,7 @@ meltlab_endgetargs:; /*_.MELT_DEBUG_FUN__V60*/ meltfptr[59];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8195:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8167:/ clear"); /*clear *//*_#MELT_CALLCOUNT__L15*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V60*/ meltfptr[59] = 0; @@ -7470,7 +6571,7 @@ meltlab_endgetargs:; /*_._IF___V59*/ meltfptr[58] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8195:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8167:/ quasiblock"); /*_.PROGN___V61*/ meltfptr[59] = /*_._IF___V59*/ meltfptr[58];; @@ -7478,7 +6579,7 @@ meltlab_endgetargs:; /*_.IFCPP___V58*/ meltfptr[57] = /*_.PROGN___V61*/ meltfptr[59];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8195:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8167:/ clear"); /*clear *//*_#MELT_NEED_DBG__L14*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IF___V59*/ meltfptr[58] = 0; @@ -7493,14 +6594,14 @@ meltlab_endgetargs:; ; { - MELT_LOCATION ("warmelt-normal.melt:8196:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8168:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.BINDSLIST__V9*/ meltfptr[8]), (melt_ptr_t) ( /*_.CBIND__V54*/ meltfptr[53])); } ; /*_.LET___V49*/ meltfptr[44] = /*_.SYOCC__V56*/ meltfptr[55];; - MELT_LOCATION ("warmelt-normal.melt:8177:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8149:/ clear"); /*clear *//*_.ARGTUP__V50*/ meltfptr[49] = 0; /*^clear */ /*clear *//*_.INST___V52*/ meltfptr[50] = 0; @@ -7515,7 +6616,7 @@ meltlab_endgetargs:; ; /*_.MULTI___V40*/ meltfptr[36] = /*_.LET___V49*/ meltfptr[44];; - MELT_LOCATION ("warmelt-normal.melt:8171:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8143:/ clear"); /*clear *//*_.IFCPP___V43*/ meltfptr[42] = 0; /*^clear */ /*clear *//*_#IS_LIST__L13*/ meltfnum[1] = 0; @@ -7528,7 +6629,7 @@ meltlab_endgetargs:; /*clear *//*_.CURENVBINDS__V42*/ meltfptr[41] = 0; /*_.LET___V26*/ meltfptr[24] = /*_.MULTI___V40*/ meltfptr[36];; - MELT_LOCATION ("warmelt-normal.melt:8160:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8132:/ clear"); /*clear *//*_.CSYMEXPO__V27*/ meltfptr[26] = 0; /*^clear */ /*clear *//*_.SYMDATA__V28*/ meltfptr[27] = 0; @@ -7547,13 +6648,13 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8151:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8123:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V26*/ meltfptr[24];; { - MELT_LOCATION ("warmelt-normal.melt:8151:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8123:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -7592,21 +6693,21 @@ meltlabend_rout: melt_trace_end ("NORMAL_EXPORTED_PATMACRO", meltcallcount); MELT_TRACE_EXIT_LOCATION (); melt_blocklevel_signals = - current_blocklevel_signals_meltrout_157_WARMELTmiNORMAL_NORMAL_EXPORTED_PATMACRO_melt; + current_blocklevel_signals_meltrout_156_WARMELTmiNORMAL_NORMAL_EXPORTED_PATMACRO_melt; melt_topframe = (struct melt_callframe_st *) meltfram__.mcfr_prev; return (melt_ptr_t) ( /*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_157_WARMELTmiNORMAL_NORMAL_EXPORTED_PATMACRO */ +} /*end meltrout_156_WARMELTmiNORMAL_NORMAL_EXPORTED_PATMACRO */ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_158_WARMELTmiNORMAL_NORMEXP_EXPORT_PATMACRO (meltclosure_ptr_t +meltrout_157_WARMELTmiNORMAL_NORMEXP_EXPORT_PATMACRO (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -7622,7 +6723,7 @@ meltrout_158_WARMELTmiNORMAL_NORMEXP_EXPORT_PATMACRO (meltclosure_ptr_t meltxrestab_) { long - current_blocklevel_signals_meltrout_158_WARMELTmiNORMAL_NORMEXP_EXPORT_PATMACRO_melt + current_blocklevel_signals_meltrout_157_WARMELTmiNORMAL_NORMEXP_EXPORT_PATMACRO_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG @@ -7635,7 +6736,7 @@ meltrout_158_WARMELTmiNORMAL_NORMEXP_EXPORT_PATMACRO (meltclosure_ptr_t #define meltcallcount 0L #endif - struct meltframe_meltrout_158_WARMELTmiNORMAL_NORMEXP_EXPORT_PATMACRO_st + struct meltframe_meltrout_157_WARMELTmiNORMAL_NORMEXP_EXPORT_PATMACRO_st { int mcfr_nbvar; #if MELT_HAVE_DEBUG @@ -7657,15 +6758,15 @@ meltrout_158_WARMELTmiNORMAL_NORMEXP_EXPORT_PATMACRO (meltclosure_ptr_t } *meltframptr_ = 0, meltfram__; /*declfrastruct */ #define meltframe meltfram__ - /*meltrout_158_WARMELTmiNORMAL_NORMEXP_EXPORT_PATMACRO is not initial declstructinit */ + /*meltrout_157_WARMELTmiNORMAL_NORMEXP_EXPORT_PATMACRO is not initial declstructinit */ if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int meltix; meltframptr_ = (struct - meltframe_meltrout_158_WARMELTmiNORMAL_NORMEXP_EXPORT_PATMACRO_st *) + meltframe_meltrout_157_WARMELTmiNORMAL_NORMEXP_EXPORT_PATMACRO_st *) meltfirstargp_; - /* use arguments meltrout_158_WARMELTmiNORMAL_NORMEXP_EXPORT_PATMACRO output_curframe_declstruct_init */ + /* use arguments meltrout_157_WARMELTmiNORMAL_NORMEXP_EXPORT_PATMACRO output_curframe_declstruct_init */ (void) meltclosp_; (void) meltfirstargp_; (void) meltxargdescr_; @@ -7680,7 +6781,7 @@ meltrout_158_WARMELTmiNORMAL_NORMEXP_EXPORT_PATMACRO (meltclosure_ptr_t return NULL; } /*end markggc */ ; memset (&meltfram__, 0, sizeof (meltfram__)); -/* declstructinit plain routine meltrout_158_WARMELTmiNORMAL_NORMEXP_EXPORT_PATMACRO nbval 57*/ +/* declstructinit plain routine meltrout_157_WARMELTmiNORMAL_NORMEXP_EXPORT_PATMACRO nbval 57*/ meltfram__.mcfr_nbvar = 57 /*nbval */ ; meltfram__.mcfr_clos = meltclosp_; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; @@ -7689,7 +6790,7 @@ meltrout_158_WARMELTmiNORMAL_NORMEXP_EXPORT_PATMACRO (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-normal.melt:8202:/ getarg"); + MELT_LOCATION ("warmelt-normal.melt:8174:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -7729,7 +6830,7 @@ meltlab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8203:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8175:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7740,7 +6841,7 @@ meltlab_endgetargs:; /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of ((melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SOURCE_EXPORT_PATMACRO */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-normal.melt:8203:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8175:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -7748,7 +6849,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8203:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8175:/ cond.else"); /*^block */ /*anyblock */ @@ -7762,7 +6863,7 @@ meltlab_endgetargs:; melt_assert_failed (("check export_patmacro recv"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8203) ? (8203) : __LINE__, __FUNCTION__); + (8175) ? (8175) : __LINE__, __FUNCTION__); ; } ; @@ -7776,7 +6877,7 @@ meltlab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_._IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8203:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8175:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IFELSE___V7*/ meltfptr[6] = 0; @@ -7789,7 +6890,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8204:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8176:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7801,7 +6902,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-normal.melt:8204:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8176:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -7809,7 +6910,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8204:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8176:/ cond.else"); /*^block */ /*anyblock */ @@ -7823,7 +6924,7 @@ meltlab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8204) ? (8204) : __LINE__, __FUNCTION__); + (8176) ? (8176) : __LINE__, __FUNCTION__); ; } ; @@ -7837,7 +6938,7 @@ meltlab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8204:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8176:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IFELSE___V9*/ meltfptr[8] = 0; @@ -7850,7 +6951,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8205:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8177:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7862,7 +6963,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_NORMALIZATION_CONTEXT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-normal.melt:8205:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8177:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -7870,7 +6971,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8205:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8177:/ cond.else"); /*^block */ /*anyblock */ @@ -7884,7 +6985,7 @@ meltlab_endgetargs:; melt_assert_failed (("check nctxt"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8205) ? (8205) : __LINE__, __FUNCTION__); + (8177) ? (8177) : __LINE__, __FUNCTION__); ; } ; @@ -7898,7 +6999,7 @@ meltlab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_._IFELSE___V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8205:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8177:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IFELSE___V11*/ meltfptr[10] = 0; @@ -7911,7 +7012,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8206:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8178:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7937,7 +7038,7 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8206:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8178:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -7956,7 +7057,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8206:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8178:/ apply"); /*apply */ { union meltparam_un argtab[5]; @@ -7966,7 +7067,7 @@ meltlab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8206; + argtab[2].meltbp_long = 8178; /*^apply.arg */ argtab[3].meltbp_cstring = "normexp export_patmacro recv"; /*^apply.arg */ @@ -7986,7 +7087,7 @@ meltlab_endgetargs:; /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8206:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8178:/ clear"); /*clear *//*_#MELT_CALLCOUNT__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] = 0; @@ -7999,7 +7100,7 @@ meltlab_endgetargs:; /*_._IF___V13*/ meltfptr[12] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8206:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8178:/ quasiblock"); /*_.PROGN___V15*/ meltfptr[13] = /*_._IF___V13*/ meltfptr[12];; @@ -8007,7 +7108,7 @@ meltlab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = /*_.PROGN___V15*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8206:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8178:/ clear"); /*clear *//*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IF___V13*/ meltfptr[12] = 0; @@ -8020,10 +7121,10 @@ meltlab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-normal.melt:8207:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8179:/ quasiblock"); - MELT_LOCATION ("warmelt-normal.melt:8208:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8180:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]) /*=obj*/ ; @@ -8031,7 +7132,7 @@ meltlab_endgetargs:; /*_.SLOC__V17*/ meltfptr[13] = slot; }; ; - MELT_LOCATION ("warmelt-normal.melt:8209:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8181:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]) /*=obj*/ ; @@ -8039,7 +7140,7 @@ meltlab_endgetargs:; /*_.MNAME__V18*/ meltfptr[17] = slot; }; ; - MELT_LOCATION ("warmelt-normal.melt:8210:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8182:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]) /*=obj*/ ; @@ -8047,7 +7148,7 @@ meltlab_endgetargs:; /*_.MVALEXP__V19*/ meltfptr[18] = slot; }; ; - MELT_LOCATION ("warmelt-normal.melt:8211:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8183:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]) /*=obj*/ ; @@ -8061,7 +7162,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8213:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8185:/ apply"); /*apply */ { union meltparam_un argtab[3]; @@ -8084,7 +7185,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8214:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8186:/ quasiblock"); /*^rawallocobj */ @@ -8116,7 +7217,7 @@ meltlab_endgetargs:; /*_.NREPNIL__V23*/ meltfptr[22] = /*_.INST__V24*/ meltfptr[23];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8216:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8188:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8142,7 +7243,7 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8216:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8188:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L6*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -8161,7 +7262,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8216:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8188:/ apply"); /*apply */ { union meltparam_un argtab[7]; @@ -8171,7 +7272,7 @@ meltlab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8216; + argtab[2].meltbp_long = 8188; /*^apply.arg */ argtab[3].meltbp_cstring = "normexp export_patmacro mname="; /*^apply.arg */ @@ -8197,7 +7298,7 @@ meltlab_endgetargs:; /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8216:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8188:/ clear"); /*clear *//*_#MELT_CALLCOUNT__L7*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V27*/ meltfptr[26] = 0; @@ -8210,7 +7311,7 @@ meltlab_endgetargs:; /*_._IF___V26*/ meltfptr[25] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8216:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8188:/ quasiblock"); /*_.PROGN___V28*/ meltfptr[26] = /*_._IF___V26*/ meltfptr[25];; @@ -8218,7 +7319,7 @@ meltlab_endgetargs:; /*_.IFCPP___V25*/ meltfptr[24] = /*_.PROGN___V28*/ meltfptr[26];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8216:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8188:/ clear"); /*clear *//*_#MELT_NEED_DBG__L6*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_._IF___V26*/ meltfptr[25] = 0; @@ -8233,7 +7334,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8217:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8189:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8245,7 +7346,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.MNAME__V18*/ meltfptr[17]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[7])));; - MELT_LOCATION ("warmelt-normal.melt:8217:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8189:/ cond"); /*cond */ if ( /*_#IS_A__L8*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -8253,7 +7354,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8217:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8189:/ cond.else"); /*^block */ /*anyblock */ @@ -8267,7 +7368,7 @@ meltlab_endgetargs:; melt_assert_failed (("check mname"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8217) ? (8217) : __LINE__, __FUNCTION__); + (8189) ? (8189) : __LINE__, __FUNCTION__); ; } ; @@ -8281,7 +7382,7 @@ meltlab_endgetargs:; /*_.IFCPP___V29*/ meltfptr[25] = /*_._IFELSE___V30*/ meltfptr[26];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8217:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8189:/ clear"); /*clear *//*_#IS_A__L8*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IFELSE___V30*/ meltfptr[26] = 0; @@ -8295,7 +7396,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8218:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8190:/ quasiblock"); /*^multimsend */ @@ -8325,7 +7426,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8221:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8193:/ apply"); /*apply */ { union meltparam_un argtab[1]; @@ -8343,7 +7444,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8222:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8194:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8369,7 +7470,7 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8222:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8194:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L9*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -8388,7 +7489,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8222:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8194:/ apply"); /*apply */ { union meltparam_un argtab[5]; @@ -8398,7 +7499,7 @@ meltlab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8222; + argtab[2].meltbp_long = 8194; /*^apply.arg */ argtab[3].meltbp_cstring = "normexp_export_patmacro nexpmac"; /*^apply.arg */ @@ -8418,7 +7519,7 @@ meltlab_endgetargs:; /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8222:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8194:/ clear"); /*clear *//*_#MELT_CALLCOUNT__L10*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = 0; @@ -8431,7 +7532,7 @@ meltlab_endgetargs:; /*_._IF___V36*/ meltfptr[35] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8222:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8194:/ quasiblock"); /*_.PROGN___V38*/ meltfptr[36] = /*_._IF___V36*/ meltfptr[35];; @@ -8439,7 +7540,7 @@ meltlab_endgetargs:; /*_.IFCPP___V35*/ meltfptr[34] = /*_.PROGN___V38*/ meltfptr[36];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8222:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8194:/ clear"); /*clear *//*_#MELT_NEED_DBG__L9*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_._IF___V36*/ meltfptr[35] = 0; @@ -8455,7 +7556,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8223:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8195:/ quasiblock"); /*^multimsend */ @@ -8485,7 +7586,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8226:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8198:/ apply"); /*apply */ { union meltparam_un argtab[1]; @@ -8503,7 +7604,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8227:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8199:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8529,7 +7630,7 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8227:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8199:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -8548,7 +7649,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8227:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8199:/ apply"); /*apply */ { union meltparam_un argtab[5]; @@ -8558,7 +7659,7 @@ meltlab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8227; + argtab[2].meltbp_long = 8199; /*^apply.arg */ argtab[3].meltbp_cstring = "normexp_export_patmacro nexppat"; /*^apply.arg */ @@ -8578,7 +7679,7 @@ meltlab_endgetargs:; /*_.MELT_DEBUG_FUN__V45*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8227:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8199:/ clear"); /*clear *//*_#MELT_CALLCOUNT__L12*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V45*/ meltfptr[44] = 0; @@ -8591,7 +7692,7 @@ meltlab_endgetargs:; /*_._IF___V44*/ meltfptr[43] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8227:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8199:/ quasiblock"); /*_.PROGN___V46*/ meltfptr[44] = /*_._IF___V44*/ meltfptr[43];; @@ -8599,7 +7700,7 @@ meltlab_endgetargs:; /*_.IFCPP___V43*/ meltfptr[42] = /*_.PROGN___V46*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8227:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8199:/ clear"); /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IF___V44*/ meltfptr[43] = 0; @@ -8612,7 +7713,7 @@ meltlab_endgetargs:; /*_.IFCPP___V43*/ meltfptr[42] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-normal.melt:8228:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8200:/ quasiblock"); @@ -8653,7 +7754,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8229:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8201:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8679,7 +7780,7 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8229:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8201:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L13*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -8698,7 +7799,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8229:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8201:/ apply"); /*apply */ { union meltparam_un argtab[5]; @@ -8708,7 +7809,7 @@ meltlab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8229; + argtab[2].meltbp_long = 8201; /*^apply.arg */ argtab[3].meltbp_cstring = "normexp_export_patmacro nexpm="; /*^apply.arg */ @@ -8728,7 +7829,7 @@ meltlab_endgetargs:; /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8229:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8201:/ clear"); /*clear *//*_#MELT_CALLCOUNT__L14*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V51*/ meltfptr[50] = 0; @@ -8741,7 +7842,7 @@ meltlab_endgetargs:; /*_._IF___V50*/ meltfptr[49] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8229:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8201:/ quasiblock"); /*_.PROGN___V52*/ meltfptr[50] = /*_._IF___V50*/ meltfptr[49];; @@ -8749,7 +7850,7 @@ meltlab_endgetargs:; /*_.IFCPP___V49*/ meltfptr[48] = /*_.PROGN___V52*/ meltfptr[50];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8229:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8201:/ clear"); /*clear *//*_#MELT_NEED_DBG__L13*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_._IF___V50*/ meltfptr[49] = 0; @@ -8764,7 +7865,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8230:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8202:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8790,7 +7891,7 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8230:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8202:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L15*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -8809,7 +7910,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8230:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8202:/ apply"); /*apply */ { union meltparam_un argtab[7]; @@ -8819,7 +7920,7 @@ meltlab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8230; + argtab[2].meltbp_long = 8202; /*^apply.arg */ argtab[3].meltbp_cstring = "normexp_export_patmacro final nrepnil="; @@ -8846,7 +7947,7 @@ meltlab_endgetargs:; /*_.MELT_DEBUG_FUN__V55*/ meltfptr[54];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8230:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8202:/ clear"); /*clear *//*_#MELT_CALLCOUNT__L16*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V55*/ meltfptr[54] = 0; @@ -8859,7 +7960,7 @@ meltlab_endgetargs:; /*_._IF___V54*/ meltfptr[50] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8230:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8202:/ quasiblock"); /*_.PROGN___V56*/ meltfptr[54] = /*_._IF___V54*/ meltfptr[50];; @@ -8867,7 +7968,7 @@ meltlab_endgetargs:; /*_.IFCPP___V53*/ meltfptr[49] = /*_.PROGN___V56*/ meltfptr[54];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8230:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8202:/ clear"); /*clear *//*_#MELT_NEED_DBG__L15*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IF___V54*/ meltfptr[50] = 0; @@ -8883,11 +7984,11 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8231:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8203:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.NREPNIL__V23*/ meltfptr[22];; - MELT_LOCATION ("warmelt-normal.melt:8231:/ putxtraresult"); + MELT_LOCATION ("warmelt-normal.melt:8203:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) @@ -8901,7 +8002,7 @@ meltlab_endgetargs:; /*finalret */ goto meltlabend_rout; /*_.LET___V47*/ meltfptr[43] = /*_.RETURN___V57*/ meltfptr[50];; - MELT_LOCATION ("warmelt-normal.melt:8228:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8200:/ clear"); /*clear *//*_.NEXPM__V48*/ meltfptr[44] = 0; /*^clear */ /*clear *//*_.IFCPP___V49*/ meltfptr[48] = 0; @@ -8914,7 +8015,7 @@ meltlab_endgetargs:; ; /*_.MULTI___V39*/ meltfptr[35] = /*_.LET___V47*/ meltfptr[43];; - MELT_LOCATION ("warmelt-normal.melt:8223:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8195:/ clear"); /*clear *//*_.LIST_APPEND2LIST__V42*/ meltfptr[41] = 0; /*^clear */ /*clear *//*_.IFCPP___V43*/ meltfptr[42] = 0; @@ -8928,7 +8029,7 @@ meltlab_endgetargs:; ; /*_.MULTI___V31*/ meltfptr[26] = /*_.MULTI___V39*/ meltfptr[35];; - MELT_LOCATION ("warmelt-normal.melt:8218:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8190:/ clear"); /*clear *//*_.LIST_APPEND2LIST__V34*/ meltfptr[33] = 0; /*^clear */ /*clear *//*_.IFCPP___V35*/ meltfptr[34] = 0; @@ -8939,7 +8040,7 @@ meltlab_endgetargs:; /*clear *//*_.NBINDMS__V33*/ meltfptr[32] = 0; /*_.LET___V16*/ meltfptr[12] = /*_.MULTI___V31*/ meltfptr[26];; - MELT_LOCATION ("warmelt-normal.melt:8207:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8179:/ clear"); /*clear *//*_.SLOC__V17*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.MNAME__V18*/ meltfptr[17] = 0; @@ -8962,13 +8063,13 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8202:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8174:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[12];; { - MELT_LOCATION ("warmelt-normal.melt:8202:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8174:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -9001,21 +8102,21 @@ meltlabend_rout: melt_trace_end ("NORMEXP_EXPORT_PATMACRO", meltcallcount); MELT_TRACE_EXIT_LOCATION (); melt_blocklevel_signals = - current_blocklevel_signals_meltrout_158_WARMELTmiNORMAL_NORMEXP_EXPORT_PATMACRO_melt; + current_blocklevel_signals_meltrout_157_WARMELTmiNORMAL_NORMEXP_EXPORT_PATMACRO_melt; melt_topframe = (struct melt_callframe_st *) meltfram__.mcfr_prev; return (melt_ptr_t) ( /*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_158_WARMELTmiNORMAL_NORMEXP_EXPORT_PATMACRO */ +} /*end meltrout_157_WARMELTmiNORMAL_NORMEXP_EXPORT_PATMACRO */ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_159_WARMELTmiNORMAL_NORMEXP_CURRENT_MODULE_ENVIRONMENT_REFERENCE +meltrout_158_WARMELTmiNORMAL_NORMEXP_CURRENT_MODULE_ENVIRONMENT_REFERENCE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un * meltxargtab_, @@ -9023,7 +8124,7 @@ meltrout_159_WARMELTmiNORMAL_NORMEXP_CURRENT_MODULE_ENVIRONMENT_REFERENCE union meltparam_un * meltxrestab_) { long - current_blocklevel_signals_meltrout_159_WARMELTmiNORMAL_NORMEXP_CURRENT_MODULE_ENVIRONMENT_REFERENCE_melt + current_blocklevel_signals_meltrout_158_WARMELTmiNORMAL_NORMEXP_CURRENT_MODULE_ENVIRONMENT_REFERENCE_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG @@ -9036,7 +8137,7 @@ meltrout_159_WARMELTmiNORMAL_NORMEXP_CURRENT_MODULE_ENVIRONMENT_REFERENCE #define meltcallcount 0L #endif - struct meltframe_meltrout_159_WARMELTmiNORMAL_NORMEXP_CURRENT_MODULE_ENVIRONMENT_REFERENCE_st + struct meltframe_meltrout_158_WARMELTmiNORMAL_NORMEXP_CURRENT_MODULE_ENVIRONMENT_REFERENCE_st { int mcfr_nbvar; #if MELT_HAVE_DEBUG @@ -9058,15 +8159,15 @@ meltrout_159_WARMELTmiNORMAL_NORMEXP_CURRENT_MODULE_ENVIRONMENT_REFERENCE } *meltframptr_ = 0, meltfram__; /*declfrastruct */ #define meltframe meltfram__ - /*meltrout_159_WARMELTmiNORMAL_NORMEXP_CURRENT_MODULE_ENVIRONMENT_REFERENCE is not initial declstructinit */ + /*meltrout_158_WARMELTmiNORMAL_NORMEXP_CURRENT_MODULE_ENVIRONMENT_REFERENCE is not initial declstructinit */ if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int meltix; meltframptr_ = (struct - meltframe_meltrout_159_WARMELTmiNORMAL_NORMEXP_CURRENT_MODULE_ENVIRONMENT_REFERENCE_st + meltframe_meltrout_158_WARMELTmiNORMAL_NORMEXP_CURRENT_MODULE_ENVIRONMENT_REFERENCE_st *) meltfirstargp_; - /* use arguments meltrout_159_WARMELTmiNORMAL_NORMEXP_CURRENT_MODULE_ENVIRONMENT_REFERENCE output_curframe_declstruct_init */ + /* use arguments meltrout_158_WARMELTmiNORMAL_NORMEXP_CURRENT_MODULE_ENVIRONMENT_REFERENCE output_curframe_declstruct_init */ (void) meltclosp_; (void) meltfirstargp_; (void) meltxargdescr_; @@ -9081,7 +8182,7 @@ meltrout_159_WARMELTmiNORMAL_NORMEXP_CURRENT_MODULE_ENVIRONMENT_REFERENCE return NULL; } /*end markggc */ ; memset (&meltfram__, 0, sizeof (meltfram__)); -/* declstructinit plain routine meltrout_159_WARMELTmiNORMAL_NORMEXP_CURRENT_MODULE_ENVIRONMENT_REFERENCE nbval 34*/ +/* declstructinit plain routine meltrout_158_WARMELTmiNORMAL_NORMEXP_CURRENT_MODULE_ENVIRONMENT_REFERENCE nbval 34*/ meltfram__.mcfr_nbvar = 34 /*nbval */ ; meltfram__.mcfr_clos = meltclosp_; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; @@ -9091,7 +8192,7 @@ meltrout_159_WARMELTmiNORMAL_NORMEXP_CURRENT_MODULE_ENVIRONMENT_REFERENCE /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-normal.melt:8239:/ getarg"); + MELT_LOCATION ("warmelt-normal.melt:8211:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -9131,7 +8232,7 @@ meltlab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8240:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8212:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9157,7 +8258,7 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8240:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8212:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -9176,7 +8277,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8240:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8212:/ apply"); /*apply */ { union meltparam_un argtab[5]; @@ -9186,7 +8287,7 @@ meltlab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8240; + argtab[2].meltbp_long = 8212; /*^apply.arg */ argtab[3].meltbp_cstring = "normexp_current_module_environment_reference recv="; @@ -9207,7 +8308,7 @@ meltlab_endgetargs:; /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8240:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8212:/ clear"); /*clear *//*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -9220,7 +8321,7 @@ meltlab_endgetargs:; /*_._IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8240:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8212:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_._IF___V7*/ meltfptr[6];; @@ -9228,7 +8329,7 @@ meltlab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8240:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8212:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IF___V7*/ meltfptr[6] = 0; @@ -9243,7 +8344,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8241:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8213:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9254,7 +8355,7 @@ meltlab_endgetargs:; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of ((melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-normal.melt:8241:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8213:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -9262,7 +8363,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8241:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8213:/ cond.else"); /*^block */ /*anyblock */ @@ -9273,7 +8374,7 @@ meltlab_endgetargs:; { /*^locexp */ - melt_assert_failed (("check current_module_environment_reference recv"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, (8241) ? (8241) : __LINE__, __FUNCTION__); + melt_assert_failed (("check current_module_environment_reference recv"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, (8213) ? (8213) : __LINE__, __FUNCTION__); ; } ; @@ -9287,7 +8388,7 @@ meltlab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_._IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8241:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8213:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_._IFELSE___V11*/ meltfptr[7] = 0; @@ -9300,7 +8401,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8242:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8214:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9312,7 +8413,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-normal.melt:8242:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8214:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -9320,7 +8421,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8242:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8214:/ cond.else"); /*^block */ /*anyblock */ @@ -9334,7 +8435,7 @@ meltlab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8242) ? (8242) : __LINE__, __FUNCTION__); + (8214) ? (8214) : __LINE__, __FUNCTION__); ; } ; @@ -9348,7 +8449,7 @@ meltlab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_._IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8242:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8214:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IFELSE___V13*/ meltfptr[12] = 0; @@ -9361,7 +8462,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8243:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8215:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9373,7 +8474,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_NORMALIZATION_CONTEXT */ meltfrout->tabval[3])));; - MELT_LOCATION ("warmelt-normal.melt:8243:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8215:/ cond"); /*cond */ if ( /*_#IS_A__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -9381,7 +8482,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8243:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8215:/ cond.else"); /*^block */ /*anyblock */ @@ -9395,7 +8496,7 @@ meltlab_endgetargs:; melt_assert_failed (("check nctxt"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8243) ? (8243) : __LINE__, __FUNCTION__); + (8215) ? (8215) : __LINE__, __FUNCTION__); ; } ; @@ -9409,7 +8510,7 @@ meltlab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8243:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8215:/ clear"); /*clear *//*_#IS_A__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_._IFELSE___V15*/ meltfptr[14] = 0; @@ -9420,10 +8521,10 @@ meltlab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-normal.melt:8244:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8216:/ quasiblock"); - MELT_LOCATION ("warmelt-normal.melt:8245:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8217:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]) /*=obj*/ ; @@ -9431,7 +8532,7 @@ meltlab_endgetargs:; /*_.SLOC__V17*/ meltfptr[16] = slot; }; ; - MELT_LOCATION ("warmelt-normal.melt:8246:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8218:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]) /*=obj*/ ; @@ -9439,7 +8540,7 @@ meltlab_endgetargs:; /*_.SCOMM__V18*/ meltfptr[17] = slot; }; ; - MELT_LOCATION ("warmelt-normal.melt:8247:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8219:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.NCX__V4*/ meltfptr[3]) /*=obj*/ ; @@ -9447,7 +8548,7 @@ meltlab_endgetargs:; /*_.NCURMODENVLIST__V19*/ meltfptr[18] = slot; }; ; - MELT_LOCATION ("warmelt-normal.melt:8248:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8220:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.NCX__V4*/ meltfptr[3]) /*=obj*/ ; @@ -9455,7 +8556,7 @@ meltlab_endgetargs:; /*_.CURPROC__V20*/ meltfptr[19] = slot; }; ; - MELT_LOCATION ("warmelt-normal.melt:8249:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8221:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.NCX__V4*/ meltfptr[3]) /*=obj*/ ; @@ -9466,7 +8567,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8250:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8222:/ quasiblock"); /*^rawallocobj */ @@ -9532,7 +8633,7 @@ meltlab_endgetargs:; /*_.NQUASI__V22*/ meltfptr[21] = /*_.INST__V23*/ meltfptr[22];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8258:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8230:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9543,7 +8644,7 @@ meltlab_endgetargs:; /*_#IS_A__L6*/ meltfnum[0] = melt_is_instance_of ((melt_ptr_t) ( /*_.QDATCUR__V21*/ meltfptr[20]), (melt_ptr_t) (( /*!CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_REFERENCE */ meltfrout->tabval[5])));; - MELT_LOCATION ("warmelt-normal.melt:8258:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8230:/ cond"); /*cond */ if ( /*_#IS_A__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -9551,7 +8652,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8258:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8230:/ cond.else"); /*^block */ /*anyblock */ @@ -9565,7 +8666,7 @@ meltlab_endgetargs:; melt_assert_failed (("check qdatcur"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8258) ? (8258) : __LINE__, __FUNCTION__); + (8230) ? (8230) : __LINE__, __FUNCTION__); ; } ; @@ -9579,7 +8680,7 @@ meltlab_endgetargs:; /*_.IFCPP___V24*/ meltfptr[23] = /*_._IFELSE___V25*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8258:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8230:/ clear"); /*clear *//*_#IS_A__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IFELSE___V25*/ meltfptr[24] = 0; @@ -9598,7 +8699,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.CURPROC__V20*/ meltfptr[19]), (melt_ptr_t) (( /*!CLASS_NREP_HOOKPROC */ meltfrout->tabval[6])));; - MELT_LOCATION ("warmelt-normal.melt:8259:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8231:/ cond"); /*cond */ if ( /*_#IS_A__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -9608,20 +8709,20 @@ meltlab_endgetargs:; { - MELT_LOCATION ("warmelt-normal.melt:8260:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8232:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.SLOC__V17*/ meltfptr[16]), ("(CURRENT_MODULE_ENVIRONMENT_REFERENCE) cannot be used within hooks"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-normal.melt:8261:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8233:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-normal.melt:8261:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8233:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -9634,7 +8735,7 @@ meltlab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto meltlabend_rout; - MELT_LOCATION ("warmelt-normal.melt:8259:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8231:/ quasiblock"); /*_.PROGN___V28*/ meltfptr[27] = /*_.RETURN___V27*/ meltfptr[26];; @@ -9642,7 +8743,7 @@ meltlab_endgetargs:; /*_._IF___V26*/ meltfptr[24] = /*_.PROGN___V28*/ meltfptr[27];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8259:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8231:/ clear"); /*clear *//*_.RETURN___V27*/ meltfptr[26] = 0; /*^clear */ /*clear *//*_.PROGN___V28*/ meltfptr[27] = 0; @@ -9663,7 +8764,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.CURPROC__V20*/ meltfptr[19]), (melt_ptr_t) (( /*!CLASS_NREP_ROUTPROC */ meltfrout->tabval[7])));; - MELT_LOCATION ("warmelt-normal.melt:8262:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8234:/ cond"); /*cond */ if ( /*_#IS_A__L8*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -9671,7 +8772,7 @@ meltlab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-normal.melt:8263:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8235:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.CURPROC__V20*/ meltfptr[19]) /*=obj*/ ; @@ -9690,14 +8791,14 @@ meltlab_endgetargs:; ; { - MELT_LOCATION ("warmelt-normal.melt:8264:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8236:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.NCURMODENVLIST__V19*/ meltfptr[18]), (melt_ptr_t) ( /*_.CURPROC__V20*/ meltfptr[19])); } ; - MELT_LOCATION ("warmelt-normal.melt:8262:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8234:/ quasiblock"); /*epilog */ @@ -9710,7 +8811,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8266:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8238:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9736,7 +8837,7 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8266:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8238:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -9755,7 +8856,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8266:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8238:/ apply"); /*apply */ { union meltparam_un argtab[5]; @@ -9765,7 +8866,7 @@ meltlab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8266; + argtab[2].meltbp_long = 8238; /*^apply.arg */ argtab[3].meltbp_cstring = "normexp_current_module_environment_reference nquasi"; @@ -9786,7 +8887,7 @@ meltlab_endgetargs:; /*_.MELT_DEBUG_FUN__V32*/ meltfptr[31];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8266:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8238:/ clear"); /*clear *//*_#MELT_CALLCOUNT__L10*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V32*/ meltfptr[31] = 0; @@ -9799,7 +8900,7 @@ meltlab_endgetargs:; /*_._IF___V31*/ meltfptr[26] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8266:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8238:/ quasiblock"); /*_.PROGN___V33*/ meltfptr[31] = /*_._IF___V31*/ meltfptr[26];; @@ -9807,7 +8908,7 @@ meltlab_endgetargs:; /*_.IFCPP___V30*/ meltfptr[27] = /*_.PROGN___V33*/ meltfptr[31];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8266:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8238:/ clear"); /*clear *//*_#MELT_NEED_DBG__L9*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_._IF___V31*/ meltfptr[26] = 0; @@ -9823,11 +8924,11 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8267:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8239:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.NQUASI__V22*/ meltfptr[21];; - MELT_LOCATION ("warmelt-normal.melt:8267:/ putxtraresult"); + MELT_LOCATION ("warmelt-normal.melt:8239:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) @@ -9840,7 +8941,7 @@ meltlab_endgetargs:; /*finalret */ goto meltlabend_rout; /*_.LET___V16*/ meltfptr[14] = /*_.RETURN___V34*/ meltfptr[26];; - MELT_LOCATION ("warmelt-normal.melt:8244:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8216:/ clear"); /*clear *//*_.SLOC__V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.SCOMM__V18*/ meltfptr[17] = 0; @@ -9867,13 +8968,13 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8239:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8211:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[14];; { - MELT_LOCATION ("warmelt-normal.melt:8239:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8211:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -9907,21 +9008,21 @@ meltlabend_rout: meltcallcount); MELT_TRACE_EXIT_LOCATION (); melt_blocklevel_signals = - current_blocklevel_signals_meltrout_159_WARMELTmiNORMAL_NORMEXP_CURRENT_MODULE_ENVIRONMENT_REFERENCE_melt; + current_blocklevel_signals_meltrout_158_WARMELTmiNORMAL_NORMEXP_CURRENT_MODULE_ENVIRONMENT_REFERENCE_melt; melt_topframe = (struct melt_callframe_st *) meltfram__.mcfr_prev; return (melt_ptr_t) ( /*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_159_WARMELTmiNORMAL_NORMEXP_CURRENT_MODULE_ENVIRONMENT_REFERENCE */ +} /*end meltrout_158_WARMELTmiNORMAL_NORMEXP_CURRENT_MODULE_ENVIRONMENT_REFERENCE */ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_160_WARMELTmiNORMAL_NORMEXP_PARENT_MODULE_ENVIRONMENT +meltrout_159_WARMELTmiNORMAL_NORMEXP_PARENT_MODULE_ENVIRONMENT (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un * meltxargtab_, @@ -9929,7 +9030,7 @@ meltrout_160_WARMELTmiNORMAL_NORMEXP_PARENT_MODULE_ENVIRONMENT union meltparam_un * meltxrestab_) { long - current_blocklevel_signals_meltrout_160_WARMELTmiNORMAL_NORMEXP_PARENT_MODULE_ENVIRONMENT_melt + current_blocklevel_signals_meltrout_159_WARMELTmiNORMAL_NORMEXP_PARENT_MODULE_ENVIRONMENT_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG @@ -9942,7 +9043,7 @@ meltrout_160_WARMELTmiNORMAL_NORMEXP_PARENT_MODULE_ENVIRONMENT #define meltcallcount 0L #endif - struct meltframe_meltrout_160_WARMELTmiNORMAL_NORMEXP_PARENT_MODULE_ENVIRONMENT_st + struct meltframe_meltrout_159_WARMELTmiNORMAL_NORMEXP_PARENT_MODULE_ENVIRONMENT_st { int mcfr_nbvar; #if MELT_HAVE_DEBUG @@ -9964,15 +9065,15 @@ meltrout_160_WARMELTmiNORMAL_NORMEXP_PARENT_MODULE_ENVIRONMENT } *meltframptr_ = 0, meltfram__; /*declfrastruct */ #define meltframe meltfram__ - /*meltrout_160_WARMELTmiNORMAL_NORMEXP_PARENT_MODULE_ENVIRONMENT is not initial declstructinit */ + /*meltrout_159_WARMELTmiNORMAL_NORMEXP_PARENT_MODULE_ENVIRONMENT is not initial declstructinit */ if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int meltix; meltframptr_ = (struct - meltframe_meltrout_160_WARMELTmiNORMAL_NORMEXP_PARENT_MODULE_ENVIRONMENT_st + meltframe_meltrout_159_WARMELTmiNORMAL_NORMEXP_PARENT_MODULE_ENVIRONMENT_st *) meltfirstargp_; - /* use arguments meltrout_160_WARMELTmiNORMAL_NORMEXP_PARENT_MODULE_ENVIRONMENT output_curframe_declstruct_init */ + /* use arguments meltrout_159_WARMELTmiNORMAL_NORMEXP_PARENT_MODULE_ENVIRONMENT output_curframe_declstruct_init */ (void) meltclosp_; (void) meltfirstargp_; (void) meltxargdescr_; @@ -9987,7 +9088,7 @@ meltrout_160_WARMELTmiNORMAL_NORMEXP_PARENT_MODULE_ENVIRONMENT return NULL; } /*end markggc */ ; memset (&meltfram__, 0, sizeof (meltfram__)); -/* declstructinit plain routine meltrout_160_WARMELTmiNORMAL_NORMEXP_PARENT_MODULE_ENVIRONMENT nbval 32*/ +/* declstructinit plain routine meltrout_159_WARMELTmiNORMAL_NORMEXP_PARENT_MODULE_ENVIRONMENT nbval 32*/ meltfram__.mcfr_nbvar = 32 /*nbval */ ; meltfram__.mcfr_clos = meltclosp_; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; @@ -9996,7 +9097,7 @@ meltrout_160_WARMELTmiNORMAL_NORMEXP_PARENT_MODULE_ENVIRONMENT /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-normal.melt:8273:/ getarg"); + MELT_LOCATION ("warmelt-normal.melt:8245:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -10036,7 +9137,7 @@ meltlab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8274:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8246:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10047,7 +9148,7 @@ meltlab_endgetargs:; /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of ((melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-normal.melt:8274:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8246:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -10055,7 +9156,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8274:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8246:/ cond.else"); /*^block */ /*anyblock */ @@ -10069,7 +9170,7 @@ meltlab_endgetargs:; melt_assert_failed (("check parent_module_environment recv"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8274) ? (8274) : __LINE__, __FUNCTION__); + (8246) ? (8246) : __LINE__, __FUNCTION__); ; } ; @@ -10083,7 +9184,7 @@ meltlab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_._IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8274:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8246:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IFELSE___V7*/ meltfptr[6] = 0; @@ -10096,7 +9197,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8275:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8247:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10108,7 +9209,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-normal.melt:8275:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8247:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -10116,7 +9217,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8275:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8247:/ cond.else"); /*^block */ /*anyblock */ @@ -10130,7 +9231,7 @@ meltlab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8275) ? (8275) : __LINE__, __FUNCTION__); + (8247) ? (8247) : __LINE__, __FUNCTION__); ; } ; @@ -10144,7 +9245,7 @@ meltlab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8275:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8247:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IFELSE___V9*/ meltfptr[8] = 0; @@ -10157,7 +9258,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8276:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8248:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10169,7 +9270,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_NORMALIZATION_CONTEXT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-normal.melt:8276:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8248:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -10177,7 +9278,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8276:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8248:/ cond.else"); /*^block */ /*anyblock */ @@ -10191,7 +9292,7 @@ meltlab_endgetargs:; melt_assert_failed (("check nctxt"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8276) ? (8276) : __LINE__, __FUNCTION__); + (8248) ? (8248) : __LINE__, __FUNCTION__); ; } ; @@ -10205,7 +9306,7 @@ meltlab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_._IFELSE___V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8276:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8248:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IFELSE___V11*/ meltfptr[10] = 0; @@ -10218,7 +9319,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8277:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8249:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10244,7 +9345,7 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8277:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8249:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -10263,7 +9364,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8277:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8249:/ apply"); /*apply */ { union meltparam_un argtab[5]; @@ -10273,7 +9374,7 @@ meltlab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8277; + argtab[2].meltbp_long = 8249; /*^apply.arg */ argtab[3].meltbp_cstring = "normexp_parent_module_environment recv"; @@ -10294,7 +9395,7 @@ meltlab_endgetargs:; /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8277:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8249:/ clear"); /*clear *//*_#MELT_CALLCOUNT__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] = 0; @@ -10307,7 +9408,7 @@ meltlab_endgetargs:; /*_._IF___V13*/ meltfptr[12] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8277:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8249:/ quasiblock"); /*_.PROGN___V15*/ meltfptr[13] = /*_._IF___V13*/ meltfptr[12];; @@ -10315,7 +9416,7 @@ meltlab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = /*_.PROGN___V15*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8277:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8249:/ clear"); /*clear *//*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IF___V13*/ meltfptr[12] = 0; @@ -10328,10 +9429,10 @@ meltlab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-normal.melt:8278:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8250:/ quasiblock"); - MELT_LOCATION ("warmelt-normal.melt:8279:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8251:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]) /*=obj*/ ; @@ -10339,7 +9440,7 @@ meltlab_endgetargs:; /*_.SLOC__V17*/ meltfptr[13] = slot; }; ; - MELT_LOCATION ("warmelt-normal.melt:8280:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8252:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.NCX__V4*/ meltfptr[3]) /*=obj*/ ; @@ -10347,7 +9448,7 @@ meltlab_endgetargs:; /*_.CURPROC__V18*/ meltfptr[17] = slot; }; ; - MELT_LOCATION ("warmelt-normal.melt:8281:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8253:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.NCX__V4*/ meltfptr[3]) /*=obj*/ ; @@ -10358,7 +9459,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8282:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8254:/ quasiblock"); /*^rawallocobj */ @@ -10421,7 +9522,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.CURPROC__V18*/ meltfptr[17]), (melt_ptr_t) (( /*!CLASS_NREP_HOOKPROC */ meltfrout->tabval[5])));; - MELT_LOCATION ("warmelt-normal.melt:8289:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8261:/ cond"); /*cond */ if ( /*_#IS_A__L6*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -10431,20 +9532,20 @@ meltlab_endgetargs:; { - MELT_LOCATION ("warmelt-normal.melt:8290:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8262:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.SLOC__V17*/ meltfptr[13]), ("(PARENT_MODULE_ENVIRONMENT) cannot be used within hooks"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-normal.melt:8291:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8263:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-normal.melt:8291:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8263:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -10457,7 +9558,7 @@ meltlab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto meltlabend_rout; - MELT_LOCATION ("warmelt-normal.melt:8289:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8261:/ quasiblock"); /*_.PROGN___V24*/ meltfptr[23] = /*_.RETURN___V23*/ meltfptr[22];; @@ -10465,7 +9566,7 @@ meltlab_endgetargs:; /*_._IF___V22*/ meltfptr[21] = /*_.PROGN___V24*/ meltfptr[23];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8289:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8261:/ clear"); /*clear *//*_.RETURN___V23*/ meltfptr[22] = 0; /*^clear */ /*clear *//*_.PROGN___V24*/ meltfptr[23] = 0; @@ -10480,7 +9581,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8292:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8264:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10491,7 +9592,7 @@ meltlab_endgetargs:; /*_#IS_A__L7*/ meltfnum[0] = melt_is_instance_of ((melt_ptr_t) ( /*_.QDATPAR__V19*/ meltfptr[18]), (melt_ptr_t) (( /*!CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT */ meltfrout->tabval[6])));; - MELT_LOCATION ("warmelt-normal.melt:8292:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8264:/ cond"); /*cond */ if ( /*_#IS_A__L7*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -10499,7 +9600,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8292:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8264:/ cond.else"); /*^block */ /*anyblock */ @@ -10513,7 +9614,7 @@ meltlab_endgetargs:; melt_assert_failed (("check qdatpar"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8292) ? (8292) : __LINE__, __FUNCTION__); + (8264) ? (8264) : __LINE__, __FUNCTION__); ; } ; @@ -10527,7 +9628,7 @@ meltlab_endgetargs:; /*_.IFCPP___V25*/ meltfptr[22] = /*_._IFELSE___V26*/ meltfptr[23];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8292:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8264:/ clear"); /*clear *//*_#IS_A__L7*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IFELSE___V26*/ meltfptr[23] = 0; @@ -10546,7 +9647,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.CURPROC__V18*/ meltfptr[17]), (melt_ptr_t) (( /*!CLASS_NREP_ROUTPROC */ meltfrout->tabval[7])));; - MELT_LOCATION ("warmelt-normal.melt:8293:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8265:/ cond"); /*cond */ if ( /*_#IS_A__L8*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -10554,7 +9655,7 @@ meltlab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-normal.melt:8294:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8266:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.CURPROC__V18*/ meltfptr[17]) /*=obj*/ ; @@ -10573,7 +9674,7 @@ meltlab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8293:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8265:/ clear"); /*clear *//*_.NRPRO_CONST__V27*/ meltfptr[23] = 0; } ; @@ -10581,7 +9682,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8295:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8267:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10607,7 +9708,7 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8295:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8267:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -10626,7 +9727,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8295:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8267:/ apply"); /*apply */ { union meltparam_un argtab[5]; @@ -10636,7 +9737,7 @@ meltlab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8295; + argtab[2].meltbp_long = 8267; /*^apply.arg */ argtab[3].meltbp_cstring = "normexp_parent_module_environment nquasi"; @@ -10657,7 +9758,7 @@ meltlab_endgetargs:; /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8295:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8267:/ clear"); /*clear *//*_#MELT_CALLCOUNT__L10*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = 0; @@ -10670,7 +9771,7 @@ meltlab_endgetargs:; /*_._IF___V29*/ meltfptr[28] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8295:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8267:/ quasiblock"); /*_.PROGN___V31*/ meltfptr[29] = /*_._IF___V29*/ meltfptr[28];; @@ -10678,7 +9779,7 @@ meltlab_endgetargs:; /*_.IFCPP___V28*/ meltfptr[23] = /*_.PROGN___V31*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8295:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8267:/ clear"); /*clear *//*_#MELT_NEED_DBG__L9*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_._IF___V29*/ meltfptr[28] = 0; @@ -10694,11 +9795,11 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8296:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8268:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.NQUASI__V20*/ meltfptr[19];; - MELT_LOCATION ("warmelt-normal.melt:8296:/ putxtraresult"); + MELT_LOCATION ("warmelt-normal.melt:8268:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) @@ -10711,7 +9812,7 @@ meltlab_endgetargs:; /*finalret */ goto meltlabend_rout; /*_.LET___V16*/ meltfptr[12] = /*_.RETURN___V32*/ meltfptr[28];; - MELT_LOCATION ("warmelt-normal.melt:8278:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8250:/ clear"); /*clear *//*_.SLOC__V17*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.CURPROC__V18*/ meltfptr[17] = 0; @@ -10734,13 +9835,13 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8273:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8245:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[12];; { - MELT_LOCATION ("warmelt-normal.melt:8273:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8245:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -10773,21 +9874,21 @@ meltlabend_rout: melt_trace_end ("NORMEXP_PARENT_MODULE_ENVIRONMENT", meltcallcount); MELT_TRACE_EXIT_LOCATION (); melt_blocklevel_signals = - current_blocklevel_signals_meltrout_160_WARMELTmiNORMAL_NORMEXP_PARENT_MODULE_ENVIRONMENT_melt; + current_blocklevel_signals_meltrout_159_WARMELTmiNORMAL_NORMEXP_PARENT_MODULE_ENVIRONMENT_melt; melt_topframe = (struct melt_callframe_st *) meltfram__.mcfr_prev; return (melt_ptr_t) ( /*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_160_WARMELTmiNORMAL_NORMEXP_PARENT_MODULE_ENVIRONMENT */ +} /*end meltrout_159_WARMELTmiNORMAL_NORMEXP_PARENT_MODULE_ENVIRONMENT */ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_161_WARMELTmiNORMAL_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE +meltrout_160_WARMELTmiNORMAL_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un * meltxargtab_, @@ -10795,7 +9896,7 @@ meltrout_161_WARMELTmiNORMAL_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE union meltparam_un * meltxrestab_) { long - current_blocklevel_signals_meltrout_161_WARMELTmiNORMAL_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE_melt + current_blocklevel_signals_meltrout_160_WARMELTmiNORMAL_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG @@ -10808,7 +9909,7 @@ meltrout_161_WARMELTmiNORMAL_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE #define meltcallcount 0L #endif - struct meltframe_meltrout_161_WARMELTmiNORMAL_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE_st + struct meltframe_meltrout_160_WARMELTmiNORMAL_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE_st { int mcfr_nbvar; #if MELT_HAVE_DEBUG @@ -10830,15 +9931,15 @@ meltrout_161_WARMELTmiNORMAL_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE } *meltframptr_ = 0, meltfram__; /*declfrastruct */ #define meltframe meltfram__ - /*meltrout_161_WARMELTmiNORMAL_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE is not initial declstructinit */ + /*meltrout_160_WARMELTmiNORMAL_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE is not initial declstructinit */ if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int meltix; meltframptr_ = (struct - meltframe_meltrout_161_WARMELTmiNORMAL_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE_st + meltframe_meltrout_160_WARMELTmiNORMAL_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE_st *) meltfirstargp_; - /* use arguments meltrout_161_WARMELTmiNORMAL_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE output_curframe_declstruct_init */ + /* use arguments meltrout_160_WARMELTmiNORMAL_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE output_curframe_declstruct_init */ (void) meltclosp_; (void) meltfirstargp_; (void) meltxargdescr_; @@ -10853,7 +9954,7 @@ meltrout_161_WARMELTmiNORMAL_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE return NULL; } /*end markggc */ ; memset (&meltfram__, 0, sizeof (meltfram__)); -/* declstructinit plain routine meltrout_161_WARMELTmiNORMAL_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE nbval 85*/ +/* declstructinit plain routine meltrout_160_WARMELTmiNORMAL_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE nbval 85*/ meltfram__.mcfr_nbvar = 85 /*nbval */ ; meltfram__.mcfr_clos = meltclosp_; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; @@ -10863,7 +9964,7 @@ meltrout_161_WARMELTmiNORMAL_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-normal.melt:8302:/ getarg"); + MELT_LOCATION ("warmelt-normal.melt:8274:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -10903,7 +10004,7 @@ meltlab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8303:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8275:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10914,7 +10015,7 @@ meltlab_endgetargs:; /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of ((melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-normal.melt:8303:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8275:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -10922,7 +10023,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8303:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8275:/ cond.else"); /*^block */ /*anyblock */ @@ -10933,7 +10034,7 @@ meltlab_endgetargs:; { /*^locexp */ - melt_assert_failed (("check update_current_module_environment_reference recv"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, (8303) ? (8303) : __LINE__, __FUNCTION__); + melt_assert_failed (("check update_current_module_environment_reference recv"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, (8275) ? (8275) : __LINE__, __FUNCTION__); ; } ; @@ -10947,7 +10048,7 @@ meltlab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_._IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8303:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8275:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IFELSE___V7*/ meltfptr[6] = 0; @@ -10960,7 +10061,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8304:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8276:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10972,7 +10073,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-normal.melt:8304:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8276:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -10980,7 +10081,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8304:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8276:/ cond.else"); /*^block */ /*anyblock */ @@ -10994,7 +10095,7 @@ meltlab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8304) ? (8304) : __LINE__, __FUNCTION__); + (8276) ? (8276) : __LINE__, __FUNCTION__); ; } ; @@ -11008,7 +10109,7 @@ meltlab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8304:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8276:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IFELSE___V9*/ meltfptr[8] = 0; @@ -11021,7 +10122,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8305:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8277:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11033,7 +10134,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_NORMALIZATION_CONTEXT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-normal.melt:8305:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8277:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -11041,7 +10142,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8305:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8277:/ cond.else"); /*^block */ /*anyblock */ @@ -11055,7 +10156,7 @@ meltlab_endgetargs:; melt_assert_failed (("check nctxt"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8305) ? (8305) : __LINE__, __FUNCTION__); + (8277) ? (8277) : __LINE__, __FUNCTION__); ; } ; @@ -11069,7 +10170,7 @@ meltlab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_._IFELSE___V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8305:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8277:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IFELSE___V11*/ meltfptr[10] = 0; @@ -11082,7 +10183,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8306:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8278:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11108,7 +10209,7 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8306:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8278:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -11127,7 +10228,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8306:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8278:/ apply"); /*apply */ { union meltparam_un argtab[9]; @@ -11137,7 +10238,7 @@ meltlab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8306; + argtab[2].meltbp_long = 8278; /*^apply.arg */ argtab[3].meltbp_cstring = "normexp_update_current_module_environment_reference recv="; @@ -11170,7 +10271,7 @@ meltlab_endgetargs:; /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8306:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8278:/ clear"); /*clear *//*_#MELT_CALLCOUNT__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] = 0; @@ -11183,7 +10284,7 @@ meltlab_endgetargs:; /*_._IF___V13*/ meltfptr[12] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8306:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8278:/ quasiblock"); /*_.PROGN___V15*/ meltfptr[13] = /*_._IF___V13*/ meltfptr[12];; @@ -11191,7 +10292,7 @@ meltlab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = /*_.PROGN___V15*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8306:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8278:/ clear"); /*clear *//*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IF___V13*/ meltfptr[12] = 0; @@ -11206,7 +10307,7 @@ meltlab_endgetargs:; ; { - MELT_LOCATION ("warmelt-normal.melt:8309:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8281:/ locexp"); #if MELT_HAVE_DEBUG if (melt_need_debug (0)) @@ -11215,10 +10316,10 @@ meltlab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-normal.melt:8310:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8282:/ quasiblock"); - MELT_LOCATION ("warmelt-normal.melt:8311:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8283:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]) /*=obj*/ ; @@ -11226,7 +10327,7 @@ meltlab_endgetargs:; /*_.SLOC__V17*/ meltfptr[13] = slot; }; ; - MELT_LOCATION ("warmelt-normal.melt:8312:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8284:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]) /*=obj*/ ; @@ -11234,7 +10335,7 @@ meltlab_endgetargs:; /*_.SCOMM__V18*/ meltfptr[17] = slot; }; ; - MELT_LOCATION ("warmelt-normal.melt:8313:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8285:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.NCX__V4*/ meltfptr[3]) /*=obj*/ ; @@ -11242,7 +10343,7 @@ meltlab_endgetargs:; /*_.CURPROC__V19*/ meltfptr[18] = slot; }; ; - MELT_LOCATION ("warmelt-normal.melt:8314:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8286:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.NCX__V4*/ meltfptr[3]) /*=obj*/ ; @@ -11250,7 +10351,7 @@ meltlab_endgetargs:; /*_.INIPROC__V20*/ meltfptr[19] = slot; }; ; - MELT_LOCATION ("warmelt-normal.melt:8315:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8287:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.NCX__V4*/ meltfptr[3]) /*=obj*/ ; @@ -11258,7 +10359,7 @@ meltlab_endgetargs:; /*_.MODCTX__V21*/ meltfptr[20] = slot; }; ; - MELT_LOCATION ("warmelt-normal.melt:8316:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8288:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -11289,7 +10390,7 @@ meltlab_endgetargs:; /*_#exeq__L6*/ meltfnum[4] = (( /*_.CURPROC__V19*/ meltfptr[18]) != ( /*_.INIPROC__V20*/ meltfptr[19]));; - MELT_LOCATION ("warmelt-normal.melt:8318:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8290:/ cond"); /*cond */ if ( /*_#exeq__L6*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -11299,20 +10400,20 @@ meltlab_endgetargs:; { - MELT_LOCATION ("warmelt-normal.melt:8320:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8292:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.SLOC__V17*/ meltfptr[13]), ("(UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE) not at toplevel"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-normal.melt:8321:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8293:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-normal.melt:8321:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8293:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -11325,7 +10426,7 @@ meltlab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto meltlabend_rout; - MELT_LOCATION ("warmelt-normal.melt:8319:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8291:/ quasiblock"); /*_.PROGN___V25*/ meltfptr[24] = /*_.RETURN___V24*/ meltfptr[23];; @@ -11333,7 +10434,7 @@ meltlab_endgetargs:; /*_._IF___V23*/ meltfptr[22] = /*_.PROGN___V25*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8318:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8290:/ clear"); /*clear *//*_.RETURN___V24*/ meltfptr[23] = 0; /*^clear */ /*clear *//*_.PROGN___V25*/ meltfptr[24] = 0; @@ -11348,7 +10449,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8322:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8294:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11374,7 +10475,7 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8322:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8294:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -11393,7 +10494,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8322:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8294:/ apply"); /*apply */ { union meltparam_un argtab[5]; @@ -11403,7 +10504,7 @@ meltlab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8322; + argtab[2].meltbp_long = 8294; /*^apply.arg */ argtab[3].meltbp_cstring = "normexp_update_current_module_environment_reference modctx="; @@ -11424,7 +10525,7 @@ meltlab_endgetargs:; /*_.MELT_DEBUG_FUN__V28*/ meltfptr[27];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8322:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8294:/ clear"); /*clear *//*_#MELT_CALLCOUNT__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V28*/ meltfptr[27] = 0; @@ -11437,7 +10538,7 @@ meltlab_endgetargs:; /*_._IF___V27*/ meltfptr[24] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8322:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8294:/ quasiblock"); /*_.PROGN___V29*/ meltfptr[27] = /*_._IF___V27*/ meltfptr[24];; @@ -11445,7 +10546,7 @@ meltlab_endgetargs:; /*_.IFCPP___V26*/ meltfptr[23] = /*_.PROGN___V29*/ meltfptr[27];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8322:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8294:/ clear"); /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IF___V27*/ meltfptr[24] = 0; @@ -11465,7 +10566,7 @@ meltlab_endgetargs:; /*_#IS_A__L9*/ meltfnum[7] = melt_is_instance_of ((melt_ptr_t) ( /*_.MODCTX__V21*/ meltfptr[20]), (melt_ptr_t) (( /*!CLASS_RUNNING_EXTENSION_MODULE_CONTEXT */ meltfrout->tabval[5])));; - MELT_LOCATION ("warmelt-normal.melt:8323:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8295:/ cond"); /*cond */ if ( /*_#IS_A__L9*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -11473,7 +10574,7 @@ meltlab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-normal.melt:8324:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8296:/ quasiblock"); @@ -11520,7 +10621,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8328:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8300:/ apply"); /*apply */ { /*_.CSYM__V34*/ meltfptr[33] = @@ -11535,7 +10636,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8329:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8301:/ quasiblock"); /*^rawallocobj */ @@ -11596,7 +10697,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8336:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8308:/ quasiblock"); /*^rawallocobj */ @@ -11655,7 +10756,7 @@ meltlab_endgetargs:; "newly made instance"); ; /*_.CLOCC__V37*/ meltfptr[36] = /*_.INST__V38*/ meltfptr[37];; - MELT_LOCATION ("warmelt-normal.melt:8342:/ blockmultialloc"); + MELT_LOCATION ("warmelt-normal.melt:8314:/ blockmultialloc"); /*multiallocblock */ { struct meltletrec_1_st @@ -11713,7 +10814,7 @@ meltlab_endgetargs:; /*_.BINDLIST__V39*/ meltfptr[38] = /*_.LIST___V41*/ meltfptr[40];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8342:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8314:/ clear"); /*clear *//*_.CBIND__V40*/ meltfptr[39] = 0; /*^clear */ /*clear *//*_.LIST___V41*/ meltfptr[40] = 0; @@ -11725,7 +10826,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8344:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8316:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11751,7 +10852,7 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8344:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8316:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L10*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -11770,7 +10871,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8344:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8316:/ apply"); /*apply */ { union meltparam_un argtab[9]; @@ -11781,7 +10882,7 @@ meltlab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8344; + argtab[2].meltbp_long = 8316; /*^apply.arg */ argtab[3].meltbp_cstring = "normexp_update_current_module_environment_reference gives nchk="; @@ -11815,7 +10916,7 @@ meltlab_endgetargs:; /*_.MELT_DEBUG_FUN__V44*/ meltfptr[43];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8344:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8316:/ clear"); /*clear *//*_#MELT_CALLCOUNT__L11*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V44*/ meltfptr[43] = 0; @@ -11828,7 +10929,7 @@ meltlab_endgetargs:; /*_._IF___V43*/ meltfptr[40] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8344:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8316:/ quasiblock"); /*_.PROGN___V45*/ meltfptr[43] = /*_._IF___V43*/ meltfptr[40];; @@ -11836,7 +10937,7 @@ meltlab_endgetargs:; /*_.IFCPP___V42*/ meltfptr[39] = /*_.PROGN___V45*/ meltfptr[43];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8344:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8316:/ clear"); /*clear *//*_#MELT_NEED_DBG__L10*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IF___V43*/ meltfptr[40] = 0; @@ -11852,11 +10953,11 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8346:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8318:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.CLOCC__V37*/ meltfptr[36];; - MELT_LOCATION ("warmelt-normal.melt:8346:/ putxtraresult"); + MELT_LOCATION ("warmelt-normal.melt:8318:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) @@ -11870,7 +10971,7 @@ meltlab_endgetargs:; /*finalret */ goto meltlabend_rout; /*_.LET___V31*/ meltfptr[27] = /*_.RETURN___V46*/ meltfptr[40];; - MELT_LOCATION ("warmelt-normal.melt:8324:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8296:/ clear"); /*clear *//*_.NCHK__V32*/ meltfptr[31] = 0; /*^clear */ /*clear *//*_.CSYM__V34*/ meltfptr[33] = 0; @@ -11887,7 +10988,7 @@ meltlab_endgetargs:; /*_._IFELSE___V30*/ meltfptr[24] = /*_.LET___V31*/ meltfptr[27];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8323:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8295:/ clear"); /*clear *//*_.LET___V31*/ meltfptr[27] = 0; } ; @@ -11906,7 +11007,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.MODCTX__V21*/ meltfptr[20]), (melt_ptr_t) (( /*!CLASS_ANY_MODULE_CONTEXT */ meltfrout->tabval[4])));; - MELT_LOCATION ("warmelt-normal.melt:8348:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8320:/ cond"); /*cond */ if ( /*_#IS_A__L12*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -11916,7 +11017,7 @@ meltlab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8349:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8321:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11928,7 +11029,7 @@ meltlab_endgetargs:; !melt_is_instance_of ((melt_ptr_t) ( /*_.MODCTX__V21*/ meltfptr[20]), (melt_ptr_t) (( /*!CLASS_RUNNING_EXTENSION_MODULE_CONTEXT */ meltfrout->tabval[5])));; - MELT_LOCATION ("warmelt-normal.melt:8349:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8321:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L13*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -11936,7 +11037,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8349:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8321:/ cond.else"); /*^block */ /*anyblock */ @@ -11951,7 +11052,7 @@ meltlab_endgetargs:; ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8349) ? (8349) : __LINE__, + (8321) ? (8321) : __LINE__, __FUNCTION__); ; } @@ -11967,7 +11068,7 @@ meltlab_endgetargs:; /*_._IFELSE___V49*/ meltfptr[33];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8349:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8321:/ clear"); /*clear *//*_#IS_NOT_A__L13*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IFELSE___V49*/ meltfptr[33] = 0; @@ -11978,7 +11079,7 @@ meltlab_endgetargs:; /*_.IFCPP___V48*/ meltfptr[31] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-normal.melt:8350:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8322:/ quasiblock"); @@ -12028,7 +11129,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8355:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8327:/ apply"); /*apply */ { /*_.CSYM__V53*/ meltfptr[39] = @@ -12040,7 +11141,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8356:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8328:/ quasiblock"); /*^rawallocobj */ @@ -12106,7 +11207,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8363:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8335:/ quasiblock"); /*^rawallocobj */ @@ -12169,7 +11270,7 @@ meltlab_endgetargs:; "newly made instance"); ; /*_.CLOCC__V56*/ meltfptr[33] = /*_.INST__V57*/ meltfptr[56];; - MELT_LOCATION ("warmelt-normal.melt:8369:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8341:/ quasiblock"); /*_.SB__V59*/ meltfptr[58] = @@ -12179,7 +11280,7 @@ meltlab_endgetargs:; tabval[14])), (const char *) 0);; { - MELT_LOCATION ("warmelt-normal.melt:8370:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8342:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.SB__V59*/ meltfptr[58]), @@ -12188,7 +11289,7 @@ meltlab_endgetargs:; ; { - MELT_LOCATION ("warmelt-normal.melt:8371:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8343:/ locexp"); /*add2sbuf_string */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.SB__V59*/ meltfptr[58]), @@ -12199,7 +11300,7 @@ meltlab_endgetargs:; ; /*_.LET___V58*/ meltfptr[57] = /*_.SB__V59*/ meltfptr[58];; - MELT_LOCATION ("warmelt-normal.melt:8369:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8341:/ clear"); /*clear *//*_.SB__V59*/ meltfptr[58] = 0; /*_.CSBUF__V60*/ meltfptr[58] = /*_.LET___V58*/ meltfptr[57];; @@ -12212,7 +11313,7 @@ meltlab_endgetargs:; (( /*!DISCR_STRING */ meltfrout->tabval[16])), melt_strbuf_str ((melt_ptr_t) ( /*_.CSBUF__V60*/ meltfptr[58]))));; - MELT_LOCATION ("warmelt-normal.melt:8373:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8345:/ quasiblock"); /*^rawallocobj */ @@ -12263,7 +11364,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8388:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8360:/ quasiblock"); /*^rawallocobj */ @@ -12293,35 +11394,35 @@ meltlab_endgetargs:; "newly made instance"); ; /*_.INST___V64*/ meltfptr[63] = /*_.INST__V65*/ meltfptr[64];; - MELT_LOCATION ("warmelt-normal.melt:8387:/ blockmultialloc"); + MELT_LOCATION ("warmelt-normal.melt:8359:/ blockmultialloc"); /*multiallocblock */ { struct meltletrec_2_st { - struct MELT_MULTIPLE_STRUCT (2) rtup_0__TUPLREC__x21; + struct MELT_MULTIPLE_STRUCT (2) rtup_0__TUPLREC__x22; long meltletrec_2_endgap; } *meltletrec_2_ptr = 0; meltletrec_2_ptr = (struct meltletrec_2_st *) meltgc_allocate (sizeof (struct meltletrec_2_st), 0); /*^blockmultialloc.initfill */ - /*inimult rtup_0__TUPLREC__x21 */ + /*inimult rtup_0__TUPLREC__x22 */ /*_.TUPLREC___V67*/ meltfptr[66] = - (melt_ptr_t) & meltletrec_2_ptr->rtup_0__TUPLREC__x21; - meltletrec_2_ptr->rtup_0__TUPLREC__x21.discr = + (melt_ptr_t) & meltletrec_2_ptr->rtup_0__TUPLREC__x22; + meltletrec_2_ptr->rtup_0__TUPLREC__x22.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_MULTIPLE)))); - meltletrec_2_ptr->rtup_0__TUPLREC__x21.nbval = 2; + meltletrec_2_ptr->rtup_0__TUPLREC__x22.nbval = 2; /*^putuple */ /*putupl#59 */ - melt_assertmsg ("putupl [:8387] #59 checktup", + melt_assertmsg ("putupl [:8359] #59 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V67*/ meltfptr[66])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:8387] #59 checkoff", + melt_assertmsg ("putupl [:8359] #59 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) @@ -12332,12 +11433,12 @@ meltlab_endgetargs:; ; /*^putuple */ /*putupl#60 */ - melt_assertmsg ("putupl [:8387] #60 checktup", + melt_assertmsg ("putupl [:8359] #60 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V67*/ meltfptr[66])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:8387] #60 checkoff", + melt_assertmsg ("putupl [:8359] #60 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) @@ -12354,13 +11455,13 @@ meltlab_endgetargs:; /*_.TUPLREC___V67*/ meltfptr[66];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8387:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8359:/ clear"); /*clear *//*_.TUPLREC___V67*/ meltfptr[66] = 0; /*^clear */ /*clear *//*_.TUPLREC___V67*/ meltfptr[66] = 0; } /*end multiallocblock */ ; - MELT_LOCATION ("warmelt-normal.melt:8383:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8355:/ quasiblock"); /*^rawallocobj */ @@ -12411,35 +11512,35 @@ meltlab_endgetargs:; "newly made instance"); ; /*_.INST___V68*/ meltfptr[66] = /*_.INST__V69*/ meltfptr[68];; - MELT_LOCATION ("warmelt-normal.melt:8381:/ blockmultialloc"); + MELT_LOCATION ("warmelt-normal.melt:8353:/ blockmultialloc"); /*multiallocblock */ { struct meltletrec_3_st { - struct MELT_MULTIPLE_STRUCT (2) rtup_0__TUPLREC__x20; + struct MELT_MULTIPLE_STRUCT (2) rtup_0__TUPLREC__x21; long meltletrec_3_endgap; } *meltletrec_3_ptr = 0; meltletrec_3_ptr = (struct meltletrec_3_st *) meltgc_allocate (sizeof (struct meltletrec_3_st), 0); /*^blockmultialloc.initfill */ - /*inimult rtup_0__TUPLREC__x20 */ + /*inimult rtup_0__TUPLREC__x21 */ /*_.TUPLREC___V71*/ meltfptr[70] = - (melt_ptr_t) & meltletrec_3_ptr->rtup_0__TUPLREC__x20; - meltletrec_3_ptr->rtup_0__TUPLREC__x20.discr = + (melt_ptr_t) & meltletrec_3_ptr->rtup_0__TUPLREC__x21; + meltletrec_3_ptr->rtup_0__TUPLREC__x21.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_MULTIPLE)))); - meltletrec_3_ptr->rtup_0__TUPLREC__x20.nbval = 2; + meltletrec_3_ptr->rtup_0__TUPLREC__x21.nbval = 2; /*^putuple */ /*putupl#61 */ - melt_assertmsg ("putupl [:8381] #61 checktup", + melt_assertmsg ("putupl [:8353] #61 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V71*/ meltfptr[70])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:8381] #61 checkoff", + melt_assertmsg ("putupl [:8353] #61 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) @@ -12451,12 +11552,12 @@ meltlab_endgetargs:; ; /*^putuple */ /*putupl#62 */ - melt_assertmsg ("putupl [:8381] #62 checktup", + melt_assertmsg ("putupl [:8353] #62 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V71*/ meltfptr[70])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:8381] #62 checkoff", + melt_assertmsg ("putupl [:8353] #62 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) @@ -12472,13 +11573,13 @@ meltlab_endgetargs:; /*_.TUPLREC___V71*/ meltfptr[70];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8381:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8353:/ clear"); /*clear *//*_.TUPLREC___V71*/ meltfptr[70] = 0; /*^clear */ /*clear *//*_.TUPLREC___V71*/ meltfptr[70] = 0; } /*end multiallocblock */ ; - MELT_LOCATION ("warmelt-normal.melt:8377:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8349:/ quasiblock"); /*^rawallocobj */ @@ -12523,7 +11624,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8394:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8366:/ quasiblock"); /*^multimsend */ @@ -12556,7 +11657,7 @@ meltlab_endgetargs:; { - MELT_LOCATION ("warmelt-normal.melt:8397:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8369:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.BINDLIST__V76*/ meltfptr[75]), (melt_ptr_t) ( /*_.CBIND__V54*/ @@ -12566,7 +11667,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8398:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8370:/ quasiblock"); /*^putslot */ @@ -12591,7 +11692,7 @@ meltlab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8399:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8371:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12617,7 +11718,7 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8399:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8371:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L14*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -12636,7 +11737,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8399:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8371:/ apply"); /*apply */ { union meltparam_un argtab[7]; @@ -12647,7 +11748,7 @@ meltlab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8399; + argtab[2].meltbp_long = 8371; /*^apply.arg */ argtab[3].meltbp_cstring = "normexp_update_current_module_environment_reference result bindlist="; @@ -12675,7 +11776,7 @@ meltlab_endgetargs:; /*_.MELT_DEBUG_FUN__V79*/ meltfptr[78];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8399:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8371:/ clear"); /*clear *//*_#MELT_CALLCOUNT__L15*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V79*/ meltfptr[78] = 0; @@ -12688,7 +11789,7 @@ meltlab_endgetargs:; /*_._IF___V78*/ meltfptr[77] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8399:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8371:/ quasiblock"); /*_.PROGN___V80*/ meltfptr[78] = @@ -12698,7 +11799,7 @@ meltlab_endgetargs:; /*_.PROGN___V80*/ meltfptr[78];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8399:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8371:/ clear"); /*clear *//*_#MELT_NEED_DBG__L14*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IF___V78*/ meltfptr[77] = 0; @@ -12714,12 +11815,12 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8400:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8372:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.CLOCC__V56*/ meltfptr[33];; - MELT_LOCATION ("warmelt-normal.melt:8400:/ putxtraresult"); + MELT_LOCATION ("warmelt-normal.melt:8372:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) @@ -12737,7 +11838,7 @@ meltlab_endgetargs:; /*_.MULTI___V74*/ meltfptr[73] = /*_.RETURN___V81*/ meltfptr[77];; - MELT_LOCATION ("warmelt-normal.melt:8394:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8366:/ clear"); /*clear *//*_.IFCPP___V77*/ meltfptr[76] = 0; /*^clear */ /*clear *//*_.RETURN___V81*/ meltfptr[77] = 0; @@ -12747,7 +11848,7 @@ meltlab_endgetargs:; /*_.LET___V50*/ meltfptr[34] = /*_.MULTI___V74*/ meltfptr[73];; - MELT_LOCATION ("warmelt-normal.melt:8350:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8322:/ clear"); /*clear *//*_.NUP__V51*/ meltfptr[36] = 0; /*^clear */ /*clear *//*_.CSYM__V53*/ meltfptr[39] = 0; @@ -12775,7 +11876,7 @@ meltlab_endgetargs:; /*clear *//*_.SGETCURENVBOX__V72*/ meltfptr[70] = 0; /*^clear */ /*clear *//*_.MULTI___V74*/ meltfptr[73] = 0; - MELT_LOCATION ("warmelt-normal.melt:8348:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8320:/ quasiblock"); /*_.PROGN___V82*/ meltfptr[78] = @@ -12785,7 +11886,7 @@ meltlab_endgetargs:; /*_.PROGN___V82*/ meltfptr[78];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8348:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8320:/ clear"); /*clear *//*_.IFCPP___V48*/ meltfptr[31] = 0; /*^clear */ /*clear *//*_.LET___V50*/ meltfptr[34] = 0; @@ -12803,7 +11904,7 @@ meltlab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8404:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8376:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12819,7 +11920,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8404:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8376:/ cond.else"); /*^block */ /*anyblock */ @@ -12832,7 +11933,7 @@ meltlab_endgetargs:; /*^locexp */ melt_assert_failed (("normexp_update_current_module_environment_reference unexpected module\ context"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8404) ? (8404) : __LINE__, __FUNCTION__); + (8376) ? (8376) : __LINE__, __FUNCTION__); ; } ; @@ -12847,7 +11948,7 @@ meltlab_endgetargs:; /*_._IFELSE___V84*/ meltfptr[77];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8404:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8376:/ clear"); /*clear *//*_._IFELSE___V84*/ meltfptr[77] = 0; } @@ -12856,7 +11957,7 @@ meltlab_endgetargs:; /*_.IFCPP___V83*/ meltfptr[76] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-normal.melt:8403:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8375:/ quasiblock"); /*_.PROGN___V85*/ meltfptr[74] = @@ -12866,7 +11967,7 @@ meltlab_endgetargs:; /*_.PROGN___V85*/ meltfptr[74];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8348:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8320:/ clear"); /*clear *//*_.IFCPP___V83*/ meltfptr[76] = 0; /*^clear */ /*clear *//*_.PROGN___V85*/ meltfptr[74] = 0; @@ -12878,7 +11979,7 @@ meltlab_endgetargs:; /*_._IFELSE___V47*/ meltfptr[43];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8323:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8295:/ clear"); /*clear *//*_#IS_A__L12*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_._IFELSE___V47*/ meltfptr[43] = 0; @@ -12888,7 +11989,7 @@ meltlab_endgetargs:; ; /*_.LET___V16*/ meltfptr[12] = /*_._IFELSE___V30*/ meltfptr[24];; - MELT_LOCATION ("warmelt-normal.melt:8310:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8282:/ clear"); /*clear *//*_.SLOC__V17*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.SCOMM__V18*/ meltfptr[17] = 0; @@ -12913,13 +12014,13 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8302:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8274:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[12];; { - MELT_LOCATION ("warmelt-normal.melt:8302:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8274:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -12953,21 +12054,21 @@ meltlabend_rout: meltcallcount); MELT_TRACE_EXIT_LOCATION (); melt_blocklevel_signals = - current_blocklevel_signals_meltrout_161_WARMELTmiNORMAL_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE_melt; + current_blocklevel_signals_meltrout_160_WARMELTmiNORMAL_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE_melt; melt_topframe = (struct melt_callframe_st *) meltfram__.mcfr_prev; return (melt_ptr_t) ( /*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_161_WARMELTmiNORMAL_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE */ +} /*end meltrout_160_WARMELTmiNORMAL_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE */ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_162_WARMELTmiNORMAL_NORMEXP_FETCH_PREDEFINED (meltclosure_ptr_t +meltrout_161_WARMELTmiNORMAL_NORMEXP_FETCH_PREDEFINED (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -12983,7 +12084,7 @@ meltrout_162_WARMELTmiNORMAL_NORMEXP_FETCH_PREDEFINED (meltclosure_ptr_t meltxrestab_) { long - current_blocklevel_signals_meltrout_162_WARMELTmiNORMAL_NORMEXP_FETCH_PREDEFINED_melt + current_blocklevel_signals_meltrout_161_WARMELTmiNORMAL_NORMEXP_FETCH_PREDEFINED_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG @@ -12996,7 +12097,7 @@ meltrout_162_WARMELTmiNORMAL_NORMEXP_FETCH_PREDEFINED (meltclosure_ptr_t #define meltcallcount 0L #endif - struct meltframe_meltrout_162_WARMELTmiNORMAL_NORMEXP_FETCH_PREDEFINED_st + struct meltframe_meltrout_161_WARMELTmiNORMAL_NORMEXP_FETCH_PREDEFINED_st { int mcfr_nbvar; #if MELT_HAVE_DEBUG @@ -13018,15 +12119,15 @@ meltrout_162_WARMELTmiNORMAL_NORMEXP_FETCH_PREDEFINED (meltclosure_ptr_t } *meltframptr_ = 0, meltfram__; /*declfrastruct */ #define meltframe meltfram__ - /*meltrout_162_WARMELTmiNORMAL_NORMEXP_FETCH_PREDEFINED is not initial declstructinit */ + /*meltrout_161_WARMELTmiNORMAL_NORMEXP_FETCH_PREDEFINED is not initial declstructinit */ if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int meltix; meltframptr_ = (struct - meltframe_meltrout_162_WARMELTmiNORMAL_NORMEXP_FETCH_PREDEFINED_st *) + meltframe_meltrout_161_WARMELTmiNORMAL_NORMEXP_FETCH_PREDEFINED_st *) meltfirstargp_; - /* use arguments meltrout_162_WARMELTmiNORMAL_NORMEXP_FETCH_PREDEFINED output_curframe_declstruct_init */ + /* use arguments meltrout_161_WARMELTmiNORMAL_NORMEXP_FETCH_PREDEFINED output_curframe_declstruct_init */ (void) meltclosp_; (void) meltfirstargp_; (void) meltxargdescr_; @@ -13041,7 +12142,7 @@ meltrout_162_WARMELTmiNORMAL_NORMEXP_FETCH_PREDEFINED (meltclosure_ptr_t return NULL; } /*end markggc */ ; memset (&meltfram__, 0, sizeof (meltfram__)); -/* declstructinit plain routine meltrout_162_WARMELTmiNORMAL_NORMEXP_FETCH_PREDEFINED nbval 39*/ +/* declstructinit plain routine meltrout_161_WARMELTmiNORMAL_NORMEXP_FETCH_PREDEFINED nbval 39*/ meltfram__.mcfr_nbvar = 39 /*nbval */ ; meltfram__.mcfr_clos = meltclosp_; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; @@ -13050,7 +12151,7 @@ meltrout_162_WARMELTmiNORMAL_NORMEXP_FETCH_PREDEFINED (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-normal.melt:8411:/ getarg"); + MELT_LOCATION ("warmelt-normal.melt:8383:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -13090,7 +12191,7 @@ meltlab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8412:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8384:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13101,7 +12202,7 @@ meltlab_endgetargs:; /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of ((melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SOURCE_FETCH_PREDEFINED */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-normal.melt:8412:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8384:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -13109,7 +12210,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8412:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8384:/ cond.else"); /*^block */ /*anyblock */ @@ -13123,7 +12224,7 @@ meltlab_endgetargs:; melt_assert_failed (("check fetch_predefined recv"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8412) ? (8412) : __LINE__, __FUNCTION__); + (8384) ? (8384) : __LINE__, __FUNCTION__); ; } ; @@ -13137,7 +12238,7 @@ meltlab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_._IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8412:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8384:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IFELSE___V7*/ meltfptr[6] = 0; @@ -13150,7 +12251,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8413:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8385:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13162,7 +12263,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-normal.melt:8413:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8385:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -13170,7 +12271,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8413:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8385:/ cond.else"); /*^block */ /*anyblock */ @@ -13184,7 +12285,7 @@ meltlab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8413) ? (8413) : __LINE__, __FUNCTION__); + (8385) ? (8385) : __LINE__, __FUNCTION__); ; } ; @@ -13198,7 +12299,7 @@ meltlab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8413:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8385:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IFELSE___V9*/ meltfptr[8] = 0; @@ -13211,7 +12312,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8414:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8386:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13223,7 +12324,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_NORMALIZATION_CONTEXT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-normal.melt:8414:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8386:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -13231,7 +12332,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8414:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8386:/ cond.else"); /*^block */ /*anyblock */ @@ -13245,7 +12346,7 @@ meltlab_endgetargs:; melt_assert_failed (("check nctxt"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8414) ? (8414) : __LINE__, __FUNCTION__); + (8386) ? (8386) : __LINE__, __FUNCTION__); ; } ; @@ -13259,7 +12360,7 @@ meltlab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_._IFELSE___V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8414:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8386:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IFELSE___V11*/ meltfptr[10] = 0; @@ -13272,7 +12373,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8415:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8387:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13298,7 +12399,7 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8415:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8387:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -13317,7 +12418,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8415:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8387:/ apply"); /*apply */ { union meltparam_un argtab[5]; @@ -13327,7 +12428,7 @@ meltlab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8415; + argtab[2].meltbp_long = 8387; /*^apply.arg */ argtab[3].meltbp_cstring = "normexp_fetch_predefined recv"; /*^apply.arg */ @@ -13347,7 +12448,7 @@ meltlab_endgetargs:; /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8415:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8387:/ clear"); /*clear *//*_#MELT_CALLCOUNT__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] = 0; @@ -13360,7 +12461,7 @@ meltlab_endgetargs:; /*_._IF___V13*/ meltfptr[12] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8415:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8387:/ quasiblock"); /*_.PROGN___V15*/ meltfptr[13] = /*_._IF___V13*/ meltfptr[12];; @@ -13368,7 +12469,7 @@ meltlab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = /*_.PROGN___V15*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8415:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8387:/ clear"); /*clear *//*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IF___V13*/ meltfptr[12] = 0; @@ -13381,10 +12482,10 @@ meltlab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-normal.melt:8416:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8388:/ quasiblock"); - MELT_LOCATION ("warmelt-normal.melt:8417:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8389:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]) /*=obj*/ ; @@ -13392,7 +12493,7 @@ meltlab_endgetargs:; /*_.SLOC__V17*/ meltfptr[13] = slot; }; ; - MELT_LOCATION ("warmelt-normal.melt:8418:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8390:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]) /*=obj*/ ; @@ -13400,7 +12501,7 @@ meltlab_endgetargs:; /*_.SPRED__V18*/ meltfptr[17] = slot; }; ; - MELT_LOCATION ("warmelt-normal.melt:8419:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8391:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.NCX__V4*/ meltfptr[3]) /*=obj*/ ; @@ -13415,7 +12516,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SPRED__V18*/ meltfptr[17]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[4])));; - MELT_LOCATION ("warmelt-normal.melt:8421:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8393:/ cond"); /*cond */ if ( /*_#IS_A__L6*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -13423,7 +12524,7 @@ meltlab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-normal.melt:8423:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8395:/ quasiblock"); @@ -13459,7 +12560,7 @@ meltlab_endgetargs:; "newly made instance"); ; /*_.CONTK__V21*/ meltfptr[20] = /*_.INST__V22*/ meltfptr[21];; - MELT_LOCATION ("warmelt-normal.melt:8426:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8398:/ quasiblock"); /*^newclosure */ @@ -13506,7 +12607,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8425:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8397:/ apply"); /*apply */ { union meltparam_un argtab[1]; @@ -13525,7 +12626,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8428:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8400:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -13553,7 +12654,7 @@ meltlab_endgetargs:; /*^compute */ /*_#NULL__L7*/ meltfnum[0] = (( /*_.REFERENCED_VALUE__V26*/ meltfptr[25]) == NULL);; - MELT_LOCATION ("warmelt-normal.melt:8428:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8400:/ cond"); /*cond */ if ( /*_#NULL__L7*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -13561,7 +12662,7 @@ meltlab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-normal.melt:8430:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8402:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -13572,7 +12673,7 @@ meltlab_endgetargs:; ; { - MELT_LOCATION ("warmelt-normal.melt:8429:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8401:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.SLOC__V17*/ meltfptr[13]), @@ -13583,7 +12684,7 @@ meltlab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8428:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8400:/ clear"); /*clear *//*_.NAMED_NAME__V27*/ meltfptr[26] = 0; } ; @@ -13592,7 +12693,7 @@ meltlab_endgetargs:; /*_._IFELSE___V20*/ meltfptr[19] = /*_.MAPOBJECT_EVERY__V25*/ meltfptr[24];; - MELT_LOCATION ("warmelt-normal.melt:8423:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8395:/ clear"); /*clear *//*_.CONTK__V21*/ meltfptr[20] = 0; /*^clear */ /*clear *//*_.LAMBDA___V23*/ meltfptr[22] = 0; @@ -13608,7 +12709,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8421:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8393:/ cond.else"); /*^block */ /*anyblock */ @@ -13620,7 +12721,7 @@ meltlab_endgetargs:; /*_#IS_INTEGERBOX__L8*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.SPRED__V18*/ meltfptr[17])) == MELTOBMAG_INT);; - MELT_LOCATION ("warmelt-normal.melt:8433:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8405:/ cond"); /*cond */ if ( /*_#IS_INTEGERBOX__L8*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -13628,7 +12729,7 @@ meltlab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-normal.melt:8435:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8407:/ quasiblock"); /*_#PREDRK__L9*/ meltfnum[8] = @@ -13640,7 +12741,7 @@ meltlab_endgetargs:; /*^compute */ /*_#lteqI__L10*/ meltfnum[9] = (( /*_#PREDRK__L9*/ meltfnum[8]) <= (0));; - MELT_LOCATION ("warmelt-normal.melt:8436:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8408:/ cond"); /*cond */ if ( /*_#lteqI__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -13649,7 +12750,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8436:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8408:/ cond.else"); /*^block */ /*anyblock */ @@ -13666,7 +12767,7 @@ meltlab_endgetargs:; /*_#gteqI__L13*/ meltfnum[12];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8436:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8408:/ clear"); /*clear *//*_#LAST_GLOBPREDEF_INDEX__L12*/ meltfnum[11] = 0; /*^clear */ @@ -13687,7 +12788,7 @@ meltlab_endgetargs:; { - MELT_LOCATION ("warmelt-normal.melt:8437:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8409:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.SLOC__V17*/ meltfptr[13]), @@ -13702,13 +12803,13 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8436:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8408:/ cond.else"); /*_._IFELSE___V28*/ meltfptr[26] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8435:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8407:/ clear"); /*clear *//*_#PREDRK__L9*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_#lteqI__L10*/ meltfnum[9] = 0; @@ -13720,7 +12821,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8433:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8405:/ cond.else"); /*^block */ /*anyblock */ @@ -13728,7 +12829,7 @@ meltlab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8441:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8413:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13744,7 +12845,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8441:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8413:/ cond.else"); /*^block */ /*anyblock */ @@ -13759,7 +12860,7 @@ meltlab_endgetargs:; ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8441) ? (8441) : __LINE__, + (8413) ? (8413) : __LINE__, __FUNCTION__); ; } @@ -13775,7 +12876,7 @@ meltlab_endgetargs:; /*_._IFELSE___V30*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8441:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8413:/ clear"); /*clear *//*_._IFELSE___V30*/ meltfptr[22] = 0; } @@ -13784,7 +12885,7 @@ meltlab_endgetargs:; /*_.IFCPP___V29*/ meltfptr[20] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-normal.melt:8440:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8412:/ quasiblock"); /*_.PROGN___V31*/ meltfptr[24] = @@ -13794,7 +12895,7 @@ meltlab_endgetargs:; /*_.PROGN___V31*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8433:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8405:/ clear"); /*clear *//*_.IFCPP___V29*/ meltfptr[20] = 0; /*^clear */ /*clear *//*_.PROGN___V31*/ meltfptr[24] = 0; @@ -13806,7 +12907,7 @@ meltlab_endgetargs:; /*_._IFELSE___V28*/ meltfptr[26];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8421:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8393:/ clear"); /*clear *//*_#IS_INTEGERBOX__L8*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IFELSE___V28*/ meltfptr[26] = 0; @@ -13814,7 +12915,7 @@ meltlab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-normal.melt:8443:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8415:/ quasiblock"); @@ -13861,7 +12962,7 @@ meltlab_endgetargs:; /*_.NPRE__V33*/ meltfptr[22] = /*_.INST__V34*/ meltfptr[20];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8448:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8420:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13887,7 +12988,7 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8448:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8420:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L14*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -13906,7 +13007,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8448:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8420:/ apply"); /*apply */ { union meltparam_un argtab[5]; @@ -13916,7 +13017,7 @@ meltlab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8448; + argtab[2].meltbp_long = 8420; /*^apply.arg */ argtab[3].meltbp_cstring = "normexp_fetch_predefined result npre"; @@ -13937,7 +13038,7 @@ meltlab_endgetargs:; /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8448:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8420:/ clear"); /*clear *//*_#MELT_CALLCOUNT__L15*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = 0; @@ -13950,7 +13051,7 @@ meltlab_endgetargs:; /*_._IF___V36*/ meltfptr[26] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8448:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8420:/ quasiblock"); /*_.PROGN___V38*/ meltfptr[36] = /*_._IF___V36*/ meltfptr[26];; @@ -13958,7 +13059,7 @@ meltlab_endgetargs:; /*_.IFCPP___V35*/ meltfptr[24] = /*_.PROGN___V38*/ meltfptr[36];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8448:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8420:/ clear"); /*clear *//*_#MELT_NEED_DBG__L14*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_._IF___V36*/ meltfptr[26] = 0; @@ -13974,11 +13075,11 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8449:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8421:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.NPRE__V33*/ meltfptr[22];; - MELT_LOCATION ("warmelt-normal.melt:8449:/ putxtraresult"); + MELT_LOCATION ("warmelt-normal.melt:8421:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) @@ -13991,7 +13092,7 @@ meltlab_endgetargs:; /*finalret */ goto meltlabend_rout; /*_.LET___V32*/ meltfptr[25] = /*_.RETURN___V39*/ meltfptr[26];; - MELT_LOCATION ("warmelt-normal.melt:8443:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8415:/ clear"); /*clear *//*_.NPRE__V33*/ meltfptr[22] = 0; /*^clear */ /*clear *//*_.IFCPP___V35*/ meltfptr[24] = 0; @@ -13999,7 +13100,7 @@ meltlab_endgetargs:; /*clear *//*_.RETURN___V39*/ meltfptr[26] = 0; /*_.LET___V16*/ meltfptr[12] = /*_.LET___V32*/ meltfptr[25];; - MELT_LOCATION ("warmelt-normal.melt:8416:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8388:/ clear"); /*clear *//*_.SLOC__V17*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.SPRED__V18*/ meltfptr[17] = 0; @@ -14014,13 +13115,13 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8411:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8383:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[12];; { - MELT_LOCATION ("warmelt-normal.melt:8411:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8383:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -14053,21 +13154,21 @@ meltlabend_rout: melt_trace_end ("NORMEXP_FETCH_PREDEFINED", meltcallcount); MELT_TRACE_EXIT_LOCATION (); melt_blocklevel_signals = - current_blocklevel_signals_meltrout_162_WARMELTmiNORMAL_NORMEXP_FETCH_PREDEFINED_melt; + current_blocklevel_signals_meltrout_161_WARMELTmiNORMAL_NORMEXP_FETCH_PREDEFINED_melt; melt_topframe = (struct melt_callframe_st *) meltfram__.mcfr_prev; return (melt_ptr_t) ( /*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_162_WARMELTmiNORMAL_NORMEXP_FETCH_PREDEFINED */ +} /*end meltrout_161_WARMELTmiNORMAL_NORMEXP_FETCH_PREDEFINED */ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_163_WARMELTmiNORMAL_LAMBDA_cl47 (meltclosure_ptr_t meltclosp_, +meltrout_162_WARMELTmiNORMAL_LAMBDA_cl47 (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -14077,7 +13178,7 @@ meltrout_163_WARMELTmiNORMAL_LAMBDA_cl47 (meltclosure_ptr_t meltclosp_, union meltparam_un * meltxrestab_) { long - current_blocklevel_signals_meltrout_163_WARMELTmiNORMAL_LAMBDA_cl47_melt = + current_blocklevel_signals_meltrout_162_WARMELTmiNORMAL_LAMBDA_cl47_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG @@ -14090,7 +13191,7 @@ meltrout_163_WARMELTmiNORMAL_LAMBDA_cl47 (meltclosure_ptr_t meltclosp_, #define meltcallcount 0L #endif - struct meltframe_meltrout_163_WARMELTmiNORMAL_LAMBDA_cl47_st + struct meltframe_meltrout_162_WARMELTmiNORMAL_LAMBDA_cl47_st { int mcfr_nbvar; #if MELT_HAVE_DEBUG @@ -14112,14 +13213,14 @@ meltrout_163_WARMELTmiNORMAL_LAMBDA_cl47 (meltclosure_ptr_t meltclosp_, } *meltframptr_ = 0, meltfram__; /*declfrastruct */ #define meltframe meltfram__ - /*meltrout_163_WARMELTmiNORMAL_LAMBDA_cl47 is not initial declstructinit */ + /*meltrout_162_WARMELTmiNORMAL_LAMBDA_cl47 is not initial declstructinit */ if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int meltix; meltframptr_ = - (struct meltframe_meltrout_163_WARMELTmiNORMAL_LAMBDA_cl47_st *) + (struct meltframe_meltrout_162_WARMELTmiNORMAL_LAMBDA_cl47_st *) meltfirstargp_; - /* use arguments meltrout_163_WARMELTmiNORMAL_LAMBDA_cl47 output_curframe_declstruct_init */ + /* use arguments meltrout_162_WARMELTmiNORMAL_LAMBDA_cl47 output_curframe_declstruct_init */ (void) meltclosp_; (void) meltfirstargp_; (void) meltxargdescr_; @@ -14134,7 +13235,7 @@ meltrout_163_WARMELTmiNORMAL_LAMBDA_cl47 (meltclosure_ptr_t meltclosp_, return NULL; } /*end markggc */ ; memset (&meltfram__, 0, sizeof (meltfram__)); -/* declstructinit plain routine meltrout_163_WARMELTmiNORMAL_LAMBDA_cl47 nbval 3*/ +/* declstructinit plain routine meltrout_162_WARMELTmiNORMAL_LAMBDA_cl47 nbval 3*/ meltfram__.mcfr_nbvar = 3 /*nbval */ ; meltfram__.mcfr_clos = meltclosp_; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; @@ -14143,7 +13244,7 @@ meltrout_163_WARMELTmiNORMAL_LAMBDA_cl47 (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-normal.melt:8426:/ getarg"); + MELT_LOCATION ("warmelt-normal.melt:8398:/ getarg"); /*_.KEY__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -14168,7 +13269,7 @@ meltlab_endgetargs:; /*_#eqeq__L1*/ meltfnum[0] = (( /*_.VAL__V3*/ meltfptr[2]) == (( /*~SPRED */ meltfclos->tabval[0])));; - MELT_LOCATION ("warmelt-normal.melt:8427:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8399:/ cond"); /*cond */ if ( /*_#eqeq__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -14224,7 +13325,7 @@ meltlab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8426:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8398:/ clear"); /*clear *//*_#eqeq__L1*/ meltfnum[0] = 0; } @@ -14234,21 +13335,21 @@ meltlabend_rout: melt_trace_end ("LAMBDA_cl47", meltcallcount); MELT_TRACE_EXIT_LOCATION (); melt_blocklevel_signals = - current_blocklevel_signals_meltrout_163_WARMELTmiNORMAL_LAMBDA_cl47_melt; + current_blocklevel_signals_meltrout_162_WARMELTmiNORMAL_LAMBDA_cl47_melt; melt_topframe = (struct melt_callframe_st *) meltfram__.mcfr_prev; return (melt_ptr_t) ( /*noretval */ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_163_WARMELTmiNORMAL_LAMBDA_cl47 */ +} /*end meltrout_162_WARMELTmiNORMAL_LAMBDA_cl47 */ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_164_WARMELTmiNORMAL_NORMEXP_STORE_PREDEFINED (meltclosure_ptr_t +meltrout_163_WARMELTmiNORMAL_NORMEXP_STORE_PREDEFINED (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, @@ -14264,7 +13365,7 @@ meltrout_164_WARMELTmiNORMAL_NORMEXP_STORE_PREDEFINED (meltclosure_ptr_t meltxrestab_) { long - current_blocklevel_signals_meltrout_164_WARMELTmiNORMAL_NORMEXP_STORE_PREDEFINED_melt + current_blocklevel_signals_meltrout_163_WARMELTmiNORMAL_NORMEXP_STORE_PREDEFINED_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG @@ -14277,7 +13378,7 @@ meltrout_164_WARMELTmiNORMAL_NORMEXP_STORE_PREDEFINED (meltclosure_ptr_t #define meltcallcount 0L #endif - struct meltframe_meltrout_164_WARMELTmiNORMAL_NORMEXP_STORE_PREDEFINED_st + struct meltframe_meltrout_163_WARMELTmiNORMAL_NORMEXP_STORE_PREDEFINED_st { int mcfr_nbvar; #if MELT_HAVE_DEBUG @@ -14299,15 +13400,15 @@ meltrout_164_WARMELTmiNORMAL_NORMEXP_STORE_PREDEFINED (meltclosure_ptr_t } *meltframptr_ = 0, meltfram__; /*declfrastruct */ #define meltframe meltfram__ - /*meltrout_164_WARMELTmiNORMAL_NORMEXP_STORE_PREDEFINED is not initial declstructinit */ + /*meltrout_163_WARMELTmiNORMAL_NORMEXP_STORE_PREDEFINED is not initial declstructinit */ if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int meltix; meltframptr_ = (struct - meltframe_meltrout_164_WARMELTmiNORMAL_NORMEXP_STORE_PREDEFINED_st *) + meltframe_meltrout_163_WARMELTmiNORMAL_NORMEXP_STORE_PREDEFINED_st *) meltfirstargp_; - /* use arguments meltrout_164_WARMELTmiNORMAL_NORMEXP_STORE_PREDEFINED output_curframe_declstruct_init */ + /* use arguments meltrout_163_WARMELTmiNORMAL_NORMEXP_STORE_PREDEFINED output_curframe_declstruct_init */ (void) meltclosp_; (void) meltfirstargp_; (void) meltxargdescr_; @@ -14322,7 +13423,7 @@ meltrout_164_WARMELTmiNORMAL_NORMEXP_STORE_PREDEFINED (meltclosure_ptr_t return NULL; } /*end markggc */ ; memset (&meltfram__, 0, sizeof (meltfram__)); -/* declstructinit plain routine meltrout_164_WARMELTmiNORMAL_NORMEXP_STORE_PREDEFINED nbval 51*/ +/* declstructinit plain routine meltrout_163_WARMELTmiNORMAL_NORMEXP_STORE_PREDEFINED nbval 51*/ meltfram__.mcfr_nbvar = 51 /*nbval */ ; meltfram__.mcfr_clos = meltclosp_; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; @@ -14331,7 +13432,7 @@ meltrout_164_WARMELTmiNORMAL_NORMEXP_STORE_PREDEFINED (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-normal.melt:8457:/ getarg"); + MELT_LOCATION ("warmelt-normal.melt:8429:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -14371,7 +13472,7 @@ meltlab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8458:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8430:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14382,7 +13483,7 @@ meltlab_endgetargs:; /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of ((melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SOURCE_STORE_PREDEFINED */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-normal.melt:8458:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8430:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -14390,7 +13491,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8458:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8430:/ cond.else"); /*^block */ /*anyblock */ @@ -14404,7 +13505,7 @@ meltlab_endgetargs:; melt_assert_failed (("check store_predefined recv"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8458) ? (8458) : __LINE__, __FUNCTION__); + (8430) ? (8430) : __LINE__, __FUNCTION__); ; } ; @@ -14418,7 +13519,7 @@ meltlab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_._IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8458:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8430:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IFELSE___V7*/ meltfptr[6] = 0; @@ -14431,7 +13532,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8459:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8431:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14443,7 +13544,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-normal.melt:8459:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8431:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -14451,7 +13552,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8459:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8431:/ cond.else"); /*^block */ /*anyblock */ @@ -14465,7 +13566,7 @@ meltlab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8459) ? (8459) : __LINE__, __FUNCTION__); + (8431) ? (8431) : __LINE__, __FUNCTION__); ; } ; @@ -14479,7 +13580,7 @@ meltlab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8459:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8431:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IFELSE___V9*/ meltfptr[8] = 0; @@ -14492,7 +13593,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8460:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8432:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14504,7 +13605,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_NORMALIZATION_CONTEXT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-normal.melt:8460:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8432:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -14512,7 +13613,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8460:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8432:/ cond.else"); /*^block */ /*anyblock */ @@ -14526,7 +13627,7 @@ meltlab_endgetargs:; melt_assert_failed (("check nctxt"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8460) ? (8460) : __LINE__, __FUNCTION__); + (8432) ? (8432) : __LINE__, __FUNCTION__); ; } ; @@ -14540,7 +13641,7 @@ meltlab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_._IFELSE___V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8460:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8432:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IFELSE___V11*/ meltfptr[10] = 0; @@ -14553,7 +13654,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8461:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8433:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14579,7 +13680,7 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8461:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8433:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -14598,7 +13699,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8461:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8433:/ apply"); /*apply */ { union meltparam_un argtab[5]; @@ -14608,7 +13709,7 @@ meltlab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8461; + argtab[2].meltbp_long = 8433; /*^apply.arg */ argtab[3].meltbp_cstring = "normexp_store_predefined recv"; /*^apply.arg */ @@ -14628,7 +13729,7 @@ meltlab_endgetargs:; /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8461:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8433:/ clear"); /*clear *//*_#MELT_CALLCOUNT__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] = 0; @@ -14641,7 +13742,7 @@ meltlab_endgetargs:; /*_._IF___V13*/ meltfptr[12] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8461:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8433:/ quasiblock"); /*_.PROGN___V15*/ meltfptr[13] = /*_._IF___V13*/ meltfptr[12];; @@ -14649,7 +13750,7 @@ meltlab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = /*_.PROGN___V15*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8461:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8433:/ clear"); /*clear *//*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IF___V13*/ meltfptr[12] = 0; @@ -14662,10 +13763,10 @@ meltlab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-normal.melt:8462:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8434:/ quasiblock"); - MELT_LOCATION ("warmelt-normal.melt:8463:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8435:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]) /*=obj*/ ; @@ -14673,7 +13774,7 @@ meltlab_endgetargs:; /*_.SLOC__V17*/ meltfptr[13] = slot; }; ; - MELT_LOCATION ("warmelt-normal.melt:8464:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8436:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]) /*=obj*/ ; @@ -14681,7 +13782,7 @@ meltlab_endgetargs:; /*_.SPRED__V18*/ meltfptr[17] = slot; }; ; - MELT_LOCATION ("warmelt-normal.melt:8465:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8437:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]) /*=obj*/ ; @@ -14689,7 +13790,7 @@ meltlab_endgetargs:; /*_.SVAL__V19*/ meltfptr[18] = slot; }; ; - MELT_LOCATION ("warmelt-normal.melt:8466:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8438:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.NCX__V4*/ meltfptr[3]) /*=obj*/ ; @@ -14704,7 +13805,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SPRED__V18*/ meltfptr[17]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[4])));; - MELT_LOCATION ("warmelt-normal.melt:8468:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8440:/ cond"); /*cond */ if ( /*_#IS_A__L6*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -14712,7 +13813,7 @@ meltlab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-normal.melt:8470:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8442:/ quasiblock"); @@ -14748,7 +13849,7 @@ meltlab_endgetargs:; "newly made instance"); ; /*_.CONTK__V22*/ meltfptr[21] = /*_.INST__V23*/ meltfptr[22];; - MELT_LOCATION ("warmelt-normal.melt:8473:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8445:/ quasiblock"); /*^newclosure */ @@ -14795,7 +13896,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8472:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8444:/ apply"); /*apply */ { union meltparam_un argtab[1]; @@ -14814,7 +13915,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8475:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8447:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -14842,7 +13943,7 @@ meltlab_endgetargs:; /*^compute */ /*_#NULL__L7*/ meltfnum[0] = (( /*_.REFERENCED_VALUE__V27*/ meltfptr[26]) == NULL);; - MELT_LOCATION ("warmelt-normal.melt:8475:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8447:/ cond"); /*cond */ if ( /*_#NULL__L7*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -14850,7 +13951,7 @@ meltlab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-normal.melt:8477:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8449:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -14861,7 +13962,7 @@ meltlab_endgetargs:; ; { - MELT_LOCATION ("warmelt-normal.melt:8476:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8448:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.SLOC__V17*/ meltfptr[13]), @@ -14872,7 +13973,7 @@ meltlab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8475:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8447:/ clear"); /*clear *//*_.NAMED_NAME__V28*/ meltfptr[27] = 0; } ; @@ -14881,7 +13982,7 @@ meltlab_endgetargs:; /*_._IFELSE___V21*/ meltfptr[20] = /*_.MAPOBJECT_EVERY__V26*/ meltfptr[25];; - MELT_LOCATION ("warmelt-normal.melt:8470:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8442:/ clear"); /*clear *//*_.CONTK__V22*/ meltfptr[21] = 0; /*^clear */ /*clear *//*_.LAMBDA___V24*/ meltfptr[23] = 0; @@ -14897,7 +13998,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8468:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8440:/ cond.else"); /*^block */ /*anyblock */ @@ -14909,7 +14010,7 @@ meltlab_endgetargs:; /*_#IS_INTEGERBOX__L8*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.SPRED__V18*/ meltfptr[17])) == MELTOBMAG_INT);; - MELT_LOCATION ("warmelt-normal.melt:8480:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8452:/ cond"); /*cond */ if ( /*_#IS_INTEGERBOX__L8*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -14917,7 +14018,7 @@ meltlab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-normal.melt:8482:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8454:/ quasiblock"); /*_#PREDRK__L9*/ meltfnum[8] = @@ -14929,7 +14030,7 @@ meltlab_endgetargs:; /*^compute */ /*_#lteqI__L10*/ meltfnum[9] = (( /*_#PREDRK__L9*/ meltfnum[8]) <= (0));; - MELT_LOCATION ("warmelt-normal.melt:8483:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8455:/ cond"); /*cond */ if ( /*_#lteqI__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -14938,7 +14039,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8483:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8455:/ cond.else"); /*^block */ /*anyblock */ @@ -14955,7 +14056,7 @@ meltlab_endgetargs:; /*_#gteqI__L13*/ meltfnum[12];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8483:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8455:/ clear"); /*clear *//*_#LAST_GLOBPREDEF_INDEX__L12*/ meltfnum[11] = 0; /*^clear */ @@ -14976,7 +14077,7 @@ meltlab_endgetargs:; { - MELT_LOCATION ("warmelt-normal.melt:8484:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8456:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.SLOC__V17*/ meltfptr[13]), @@ -14991,13 +14092,13 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8483:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8455:/ cond.else"); /*_._IFELSE___V29*/ meltfptr[27] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8482:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8454:/ clear"); /*clear *//*_#PREDRK__L9*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_#lteqI__L10*/ meltfnum[9] = 0; @@ -15009,7 +14110,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8480:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8452:/ cond.else"); /*^block */ /*anyblock */ @@ -15017,7 +14118,7 @@ meltlab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8488:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8460:/ cppif.then"); /*^block */ /*anyblock */ { @@ -15033,7 +14134,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8488:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8460:/ cond.else"); /*^block */ /*anyblock */ @@ -15048,7 +14149,7 @@ meltlab_endgetargs:; ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8488) ? (8488) : __LINE__, + (8460) ? (8460) : __LINE__, __FUNCTION__); ; } @@ -15064,7 +14165,7 @@ meltlab_endgetargs:; /*_._IFELSE___V31*/ meltfptr[23];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8488:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8460:/ clear"); /*clear *//*_._IFELSE___V31*/ meltfptr[23] = 0; } @@ -15073,7 +14174,7 @@ meltlab_endgetargs:; /*_.IFCPP___V30*/ meltfptr[21] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-normal.melt:8487:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8459:/ quasiblock"); /*_.PROGN___V32*/ meltfptr[25] = @@ -15083,7 +14184,7 @@ meltlab_endgetargs:; /*_.PROGN___V32*/ meltfptr[25];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8480:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8452:/ clear"); /*clear *//*_.IFCPP___V30*/ meltfptr[21] = 0; /*^clear */ /*clear *//*_.PROGN___V32*/ meltfptr[25] = 0; @@ -15095,7 +14196,7 @@ meltlab_endgetargs:; /*_._IFELSE___V29*/ meltfptr[27];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8468:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8440:/ clear"); /*clear *//*_#IS_INTEGERBOX__L8*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IFELSE___V29*/ meltfptr[27] = 0; @@ -15106,7 +14207,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8490:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8462:/ quasiblock"); /*^multimsend */ @@ -15138,7 +14239,7 @@ meltlab_endgetargs:; ; /*_#NULL__L14*/ meltfnum[11] = (( /*_.NBINDS__V35*/ meltfptr[21]) == NULL);; - MELT_LOCATION ("warmelt-normal.melt:8493:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8465:/ cond"); /*cond */ if ( /*_#NULL__L14*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -15150,13 +14251,13 @@ meltlab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[10]))));; - MELT_LOCATION ("warmelt-normal.melt:8494:/ compute"); + MELT_LOCATION ("warmelt-normal.melt:8466:/ compute"); /*_.NBINDS__V35*/ meltfptr[21] = /*_.SETQ___V38*/ meltfptr[37] = /*_.MAKE_LIST__V37*/ meltfptr[27];; /*_._IF___V36*/ meltfptr[25] = /*_.SETQ___V38*/ meltfptr[37];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8493:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8465:/ clear"); /*clear *//*_.MAKE_LIST__V37*/ meltfptr[27] = 0; /*^clear */ /*clear *//*_.SETQ___V38*/ meltfptr[37] = 0; @@ -15169,7 +14270,7 @@ meltlab_endgetargs:; /*_._IF___V36*/ meltfptr[25] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8495:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8467:/ quasiblock"); @@ -15189,7 +14290,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8496:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8468:/ quasiblock"); /*^rawallocobj */ @@ -15238,7 +14339,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8500:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8472:/ quasiblock"); /*^rawallocobj */ @@ -15290,7 +14391,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8504:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8476:/ quasiblock"); /*^rawallocobj */ @@ -15350,14 +14451,14 @@ meltlab_endgetargs:; /*_.SYOCC__V45*/ meltfptr[44] = /*_.INST__V46*/ meltfptr[45];; { - MELT_LOCATION ("warmelt-normal.melt:8510:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8482:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.NBINDS__V35*/ meltfptr[21]), (melt_ptr_t) ( /*_.CBIND__V43*/ meltfptr[42])); } ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8511:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8483:/ cppif.then"); /*^block */ /*anyblock */ { @@ -15383,7 +14484,7 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8511:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8483:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L15*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -15402,7 +14503,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8511:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8483:/ apply"); /*apply */ { union meltparam_un argtab[7]; @@ -15412,7 +14513,7 @@ meltlab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8511; + argtab[2].meltbp_long = 8483; /*^apply.arg */ argtab[3].meltbp_cstring = "normexp_store_predefined result nbinds="; @@ -15439,7 +14540,7 @@ meltlab_endgetargs:; /*_.MELT_DEBUG_FUN__V49*/ meltfptr[48];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8511:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8483:/ clear"); /*clear *//*_#MELT_CALLCOUNT__L16*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V49*/ meltfptr[48] = 0; @@ -15452,7 +14553,7 @@ meltlab_endgetargs:; /*_._IF___V48*/ meltfptr[47] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8511:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8483:/ quasiblock"); /*_.PROGN___V50*/ meltfptr[48] = /*_._IF___V48*/ meltfptr[47];; @@ -15460,7 +14561,7 @@ meltlab_endgetargs:; /*_.IFCPP___V47*/ meltfptr[46] = /*_.PROGN___V50*/ meltfptr[48];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8511:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8483:/ clear"); /*clear *//*_#MELT_NEED_DBG__L15*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_._IF___V48*/ meltfptr[47] = 0; @@ -15476,11 +14577,11 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8512:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8484:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.SYOCC__V45*/ meltfptr[44];; - MELT_LOCATION ("warmelt-normal.melt:8512:/ putxtraresult"); + MELT_LOCATION ("warmelt-normal.melt:8484:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) @@ -15494,7 +14595,7 @@ meltlab_endgetargs:; /*finalret */ goto meltlabend_rout; /*_.LET___V39*/ meltfptr[27] = /*_.RETURN___V51*/ meltfptr[47];; - MELT_LOCATION ("warmelt-normal.melt:8495:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8467:/ clear"); /*clear *//*_.CSYM__V40*/ meltfptr[37] = 0; /*^clear */ /*clear *//*_.NFPRE__V41*/ meltfptr[40] = 0; @@ -15511,7 +14612,7 @@ meltlab_endgetargs:; ; /*_.MULTI___V33*/ meltfptr[26] = /*_.LET___V39*/ meltfptr[27];; - MELT_LOCATION ("warmelt-normal.melt:8490:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8462:/ clear"); /*clear *//*_#NULL__L14*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_._IF___V36*/ meltfptr[25] = 0; @@ -15522,7 +14623,7 @@ meltlab_endgetargs:; /*clear *//*_.NBINDS__V35*/ meltfptr[21] = 0; /*_.LET___V16*/ meltfptr[12] = /*_.MULTI___V33*/ meltfptr[26];; - MELT_LOCATION ("warmelt-normal.melt:8462:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8434:/ clear"); /*clear *//*_.SLOC__V17*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.SPRED__V18*/ meltfptr[17] = 0; @@ -15539,13 +14640,13 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8457:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8429:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[12];; { - MELT_LOCATION ("warmelt-normal.melt:8457:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8429:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -15578,21 +14679,21 @@ meltlabend_rout: melt_trace_end ("NORMEXP_STORE_PREDEFINED", meltcallcount); MELT_TRACE_EXIT_LOCATION (); melt_blocklevel_signals = - current_blocklevel_signals_meltrout_164_WARMELTmiNORMAL_NORMEXP_STORE_PREDEFINED_melt; + current_blocklevel_signals_meltrout_163_WARMELTmiNORMAL_NORMEXP_STORE_PREDEFINED_melt; melt_topframe = (struct melt_callframe_st *) meltfram__.mcfr_prev; return (melt_ptr_t) ( /*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_164_WARMELTmiNORMAL_NORMEXP_STORE_PREDEFINED */ +} /*end meltrout_163_WARMELTmiNORMAL_NORMEXP_STORE_PREDEFINED */ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_165_WARMELTmiNORMAL_LAMBDA_cl48 (meltclosure_ptr_t meltclosp_, +meltrout_164_WARMELTmiNORMAL_LAMBDA_cl48 (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -15602,7 +14703,7 @@ meltrout_165_WARMELTmiNORMAL_LAMBDA_cl48 (meltclosure_ptr_t meltclosp_, union meltparam_un * meltxrestab_) { long - current_blocklevel_signals_meltrout_165_WARMELTmiNORMAL_LAMBDA_cl48_melt = + current_blocklevel_signals_meltrout_164_WARMELTmiNORMAL_LAMBDA_cl48_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG @@ -15615,7 +14716,7 @@ meltrout_165_WARMELTmiNORMAL_LAMBDA_cl48 (meltclosure_ptr_t meltclosp_, #define meltcallcount 0L #endif - struct meltframe_meltrout_165_WARMELTmiNORMAL_LAMBDA_cl48_st + struct meltframe_meltrout_164_WARMELTmiNORMAL_LAMBDA_cl48_st { int mcfr_nbvar; #if MELT_HAVE_DEBUG @@ -15637,14 +14738,14 @@ meltrout_165_WARMELTmiNORMAL_LAMBDA_cl48 (meltclosure_ptr_t meltclosp_, } *meltframptr_ = 0, meltfram__; /*declfrastruct */ #define meltframe meltfram__ - /*meltrout_165_WARMELTmiNORMAL_LAMBDA_cl48 is not initial declstructinit */ + /*meltrout_164_WARMELTmiNORMAL_LAMBDA_cl48 is not initial declstructinit */ if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int meltix; meltframptr_ = - (struct meltframe_meltrout_165_WARMELTmiNORMAL_LAMBDA_cl48_st *) + (struct meltframe_meltrout_164_WARMELTmiNORMAL_LAMBDA_cl48_st *) meltfirstargp_; - /* use arguments meltrout_165_WARMELTmiNORMAL_LAMBDA_cl48 output_curframe_declstruct_init */ + /* use arguments meltrout_164_WARMELTmiNORMAL_LAMBDA_cl48 output_curframe_declstruct_init */ (void) meltclosp_; (void) meltfirstargp_; (void) meltxargdescr_; @@ -15659,7 +14760,7 @@ meltrout_165_WARMELTmiNORMAL_LAMBDA_cl48 (meltclosure_ptr_t meltclosp_, return NULL; } /*end markggc */ ; memset (&meltfram__, 0, sizeof (meltfram__)); -/* declstructinit plain routine meltrout_165_WARMELTmiNORMAL_LAMBDA_cl48 nbval 3*/ +/* declstructinit plain routine meltrout_164_WARMELTmiNORMAL_LAMBDA_cl48 nbval 3*/ meltfram__.mcfr_nbvar = 3 /*nbval */ ; meltfram__.mcfr_clos = meltclosp_; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; @@ -15668,7 +14769,7 @@ meltrout_165_WARMELTmiNORMAL_LAMBDA_cl48 (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-normal.melt:8473:/ getarg"); + MELT_LOCATION ("warmelt-normal.melt:8445:/ getarg"); /*_.KEY__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -15693,7 +14794,7 @@ meltlab_endgetargs:; /*_#eqeq__L1*/ meltfnum[0] = (( /*_.VAL__V3*/ meltfptr[2]) == (( /*~SPRED */ meltfclos->tabval[0])));; - MELT_LOCATION ("warmelt-normal.melt:8474:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8446:/ cond"); /*cond */ if ( /*_#eqeq__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -15749,7 +14850,7 @@ meltlab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8473:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8445:/ clear"); /*clear *//*_#eqeq__L1*/ meltfnum[0] = 0; } @@ -15759,21 +14860,21 @@ meltlabend_rout: melt_trace_end ("LAMBDA_cl48", meltcallcount); MELT_TRACE_EXIT_LOCATION (); melt_blocklevel_signals = - current_blocklevel_signals_meltrout_165_WARMELTmiNORMAL_LAMBDA_cl48_melt; + current_blocklevel_signals_meltrout_164_WARMELTmiNORMAL_LAMBDA_cl48_melt; melt_topframe = (struct melt_callframe_st *) meltfram__.mcfr_prev; return (melt_ptr_t) ( /*noretval */ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_165_WARMELTmiNORMAL_LAMBDA_cl48 */ +} /*end meltrout_164_WARMELTmiNORMAL_LAMBDA_cl48 */ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_166_WARMELTmiNORMAL_NORMEXP_CHEADER (meltclosure_ptr_t meltclosp_, +meltrout_165_WARMELTmiNORMAL_NORMEXP_CHEADER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -15785,7 +14886,7 @@ meltrout_166_WARMELTmiNORMAL_NORMEXP_CHEADER (meltclosure_ptr_t meltclosp_, meltxrestab_) { long - current_blocklevel_signals_meltrout_166_WARMELTmiNORMAL_NORMEXP_CHEADER_melt + current_blocklevel_signals_meltrout_165_WARMELTmiNORMAL_NORMEXP_CHEADER_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG @@ -15798,7 +14899,7 @@ meltrout_166_WARMELTmiNORMAL_NORMEXP_CHEADER (meltclosure_ptr_t meltclosp_, #define meltcallcount 0L #endif - struct meltframe_meltrout_166_WARMELTmiNORMAL_NORMEXP_CHEADER_st + struct meltframe_meltrout_165_WARMELTmiNORMAL_NORMEXP_CHEADER_st { int mcfr_nbvar; #if MELT_HAVE_DEBUG @@ -15820,14 +14921,14 @@ meltrout_166_WARMELTmiNORMAL_NORMEXP_CHEADER (meltclosure_ptr_t meltclosp_, } *meltframptr_ = 0, meltfram__; /*declfrastruct */ #define meltframe meltfram__ - /*meltrout_166_WARMELTmiNORMAL_NORMEXP_CHEADER is not initial declstructinit */ + /*meltrout_165_WARMELTmiNORMAL_NORMEXP_CHEADER is not initial declstructinit */ if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int meltix; meltframptr_ = - (struct meltframe_meltrout_166_WARMELTmiNORMAL_NORMEXP_CHEADER_st *) + (struct meltframe_meltrout_165_WARMELTmiNORMAL_NORMEXP_CHEADER_st *) meltfirstargp_; - /* use arguments meltrout_166_WARMELTmiNORMAL_NORMEXP_CHEADER output_curframe_declstruct_init */ + /* use arguments meltrout_165_WARMELTmiNORMAL_NORMEXP_CHEADER output_curframe_declstruct_init */ (void) meltclosp_; (void) meltfirstargp_; (void) meltxargdescr_; @@ -15842,7 +14943,7 @@ meltrout_166_WARMELTmiNORMAL_NORMEXP_CHEADER (meltclosure_ptr_t meltclosp_, return NULL; } /*end markggc */ ; memset (&meltfram__, 0, sizeof (meltfram__)); -/* declstructinit plain routine meltrout_166_WARMELTmiNORMAL_NORMEXP_CHEADER nbval 32*/ +/* declstructinit plain routine meltrout_165_WARMELTmiNORMAL_NORMEXP_CHEADER nbval 32*/ meltfram__.mcfr_nbvar = 32 /*nbval */ ; meltfram__.mcfr_clos = meltclosp_; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; @@ -15851,7 +14952,7 @@ meltrout_166_WARMELTmiNORMAL_NORMEXP_CHEADER (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-normal.melt:8519:/ getarg"); + MELT_LOCATION ("warmelt-normal.melt:8491:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -15891,7 +14992,7 @@ meltlab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8520:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8492:/ cppif.then"); /*^block */ /*anyblock */ { @@ -15917,7 +15018,7 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8520:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8492:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -15936,7 +15037,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8520:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8492:/ apply"); /*apply */ { union meltparam_un argtab[7]; @@ -15946,7 +15047,7 @@ meltlab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8520; + argtab[2].meltbp_long = 8492; /*^apply.arg */ argtab[3].meltbp_cstring = "normexp_cheader recv="; /*^apply.arg */ @@ -15972,7 +15073,7 @@ meltlab_endgetargs:; /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8520:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8492:/ clear"); /*clear *//*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -15985,7 +15086,7 @@ meltlab_endgetargs:; /*_._IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8520:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8492:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_._IF___V7*/ meltfptr[6];; @@ -15993,7 +15094,7 @@ meltlab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8520:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8492:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IF___V7*/ meltfptr[6] = 0; @@ -16008,7 +15109,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8521:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8493:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16020,7 +15121,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SOURCE_CHEADER */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-normal.melt:8521:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8493:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -16028,7 +15129,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8521:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8493:/ cond.else"); /*^block */ /*anyblock */ @@ -16042,7 +15143,7 @@ meltlab_endgetargs:; melt_assert_failed (("check cheader recv"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8521) ? (8521) : __LINE__, __FUNCTION__); + (8493) ? (8493) : __LINE__, __FUNCTION__); ; } ; @@ -16056,7 +15157,7 @@ meltlab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_._IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8521:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8493:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_._IFELSE___V11*/ meltfptr[7] = 0; @@ -16069,7 +15170,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8522:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8494:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16081,7 +15182,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-normal.melt:8522:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8494:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -16089,7 +15190,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8522:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8494:/ cond.else"); /*^block */ /*anyblock */ @@ -16103,7 +15204,7 @@ meltlab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8522) ? (8522) : __LINE__, __FUNCTION__); + (8494) ? (8494) : __LINE__, __FUNCTION__); ; } ; @@ -16117,7 +15218,7 @@ meltlab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_._IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8522:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8494:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IFELSE___V13*/ meltfptr[12] = 0; @@ -16130,7 +15231,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8523:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8495:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16142,7 +15243,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_NORMALIZATION_CONTEXT */ meltfrout->tabval[3])));; - MELT_LOCATION ("warmelt-normal.melt:8523:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8495:/ cond"); /*cond */ if ( /*_#IS_A__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -16150,7 +15251,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8523:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8495:/ cond.else"); /*^block */ /*anyblock */ @@ -16164,7 +15265,7 @@ meltlab_endgetargs:; melt_assert_failed (("check nctxt"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8523) ? (8523) : __LINE__, __FUNCTION__); + (8495) ? (8495) : __LINE__, __FUNCTION__); ; } ; @@ -16178,7 +15279,7 @@ meltlab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8523:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8495:/ clear"); /*clear *//*_#IS_A__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_._IFELSE___V15*/ meltfptr[14] = 0; @@ -16189,10 +15290,10 @@ meltlab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-normal.melt:8524:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8496:/ quasiblock"); - MELT_LOCATION ("warmelt-normal.melt:8525:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8497:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]) /*=obj*/ ; @@ -16200,7 +15301,7 @@ meltlab_endgetargs:; /*_.SLOC__V17*/ meltfptr[16] = slot; }; ; - MELT_LOCATION ("warmelt-normal.melt:8526:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8498:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -16224,7 +15325,7 @@ meltlab_endgetargs:; /*_.MODCTX__V18*/ meltfptr[17] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8527:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8499:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -16250,7 +15351,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8529:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8501:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16276,7 +15377,7 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8529:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8501:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -16295,7 +15396,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8529:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8501:/ apply"); /*apply */ { union meltparam_un argtab[7]; @@ -16305,7 +15406,7 @@ meltlab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8529; + argtab[2].meltbp_long = 8501; /*^apply.arg */ argtab[3].meltbp_cstring = "normexp_cheader modctx="; /*^apply.arg */ @@ -16331,7 +15432,7 @@ meltlab_endgetargs:; /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8529:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8501:/ clear"); /*clear *//*_#MELT_CALLCOUNT__L7*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V22*/ meltfptr[21] = 0; @@ -16344,7 +15445,7 @@ meltlab_endgetargs:; /*_._IF___V21*/ meltfptr[20] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8529:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8501:/ quasiblock"); /*_.PROGN___V23*/ meltfptr[21] = /*_._IF___V21*/ meltfptr[20];; @@ -16352,7 +15453,7 @@ meltlab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[19] = /*_.PROGN___V23*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8529:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8501:/ clear"); /*clear *//*_#MELT_NEED_DBG__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IF___V21*/ meltfptr[20] = 0; @@ -16367,7 +15468,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8530:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8502:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16379,7 +15480,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.MODCTX__V18*/ meltfptr[17]), (melt_ptr_t) (( /*!CLASS_ANY_MODULE_CONTEXT */ meltfrout->tabval[4])));; - MELT_LOCATION ("warmelt-normal.melt:8530:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8502:/ cond"); /*cond */ if ( /*_#IS_A__L8*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -16387,7 +15488,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8530:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8502:/ cond.else"); /*^block */ /*anyblock */ @@ -16401,7 +15502,7 @@ meltlab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8530) ? (8530) : __LINE__, __FUNCTION__); + (8502) ? (8502) : __LINE__, __FUNCTION__); ; } ; @@ -16415,7 +15516,7 @@ meltlab_endgetargs:; /*_.IFCPP___V24*/ meltfptr[20] = /*_._IFELSE___V25*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8530:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8502:/ clear"); /*clear *//*_#IS_A__L8*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_._IFELSE___V25*/ meltfptr[21] = 0; @@ -16428,7 +15529,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8531:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8503:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16439,7 +15540,7 @@ meltlab_endgetargs:; /*_#IS_LIST__L9*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MCHEADLIST__V19*/ meltfptr[18])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-normal.melt:8531:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8503:/ cond"); /*cond */ if ( /*_#IS_LIST__L9*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -16447,7 +15548,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8531:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8503:/ cond.else"); /*^block */ /*anyblock */ @@ -16461,7 +15562,7 @@ meltlab_endgetargs:; melt_assert_failed (("check mcheadlist"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8531) ? (8531) : __LINE__, __FUNCTION__); + (8503) ? (8503) : __LINE__, __FUNCTION__); ; } ; @@ -16475,7 +15576,7 @@ meltlab_endgetargs:; /*_.IFCPP___V26*/ meltfptr[21] = /*_._IFELSE___V27*/ meltfptr[26];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8531:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8503:/ clear"); /*clear *//*_#IS_LIST__L9*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IFELSE___V27*/ meltfptr[26] = 0; @@ -16488,14 +15589,14 @@ meltlab_endgetargs:; ; { - MELT_LOCATION ("warmelt-normal.melt:8532:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8504:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.MCHEADLIST__V19*/ meltfptr[18]), (melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1])); } ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8533:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8505:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16521,7 +15622,7 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8533:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8505:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L10*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -16540,7 +15641,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8533:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8505:/ apply"); /*apply */ { union meltparam_un argtab[8]; @@ -16550,7 +15651,7 @@ meltlab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8533; + argtab[2].meltbp_long = 8505; /*^apply.arg */ argtab[3].meltbp_cstring = "normexp_cheader updated mcheadlist="; @@ -16579,7 +15680,7 @@ meltlab_endgetargs:; /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8533:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8505:/ clear"); /*clear *//*_#MELT_CALLCOUNT__L11*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = 0; @@ -16592,7 +15693,7 @@ meltlab_endgetargs:; /*_._IF___V29*/ meltfptr[28] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8533:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8505:/ quasiblock"); /*_.PROGN___V31*/ meltfptr[29] = /*_._IF___V29*/ meltfptr[28];; @@ -16600,7 +15701,7 @@ meltlab_endgetargs:; /*_.IFCPP___V28*/ meltfptr[26] = /*_.PROGN___V31*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8533:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8505:/ clear"); /*clear *//*_#MELT_NEED_DBG__L10*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_._IF___V29*/ meltfptr[28] = 0; @@ -16613,13 +15714,13 @@ meltlab_endgetargs:; /*_.IFCPP___V28*/ meltfptr[26] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-normal.melt:8534:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8506:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-normal.melt:8534:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8506:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -16634,7 +15735,7 @@ meltlab_endgetargs:; /*finalret */ goto meltlabend_rout; /*_.LET___V16*/ meltfptr[14] = /*_.RETURN___V32*/ meltfptr[28];; - MELT_LOCATION ("warmelt-normal.melt:8524:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8496:/ clear"); /*clear *//*_.SLOC__V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.MODCTX__V18*/ meltfptr[17] = 0; @@ -16653,13 +15754,13 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8519:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8491:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[14];; { - MELT_LOCATION ("warmelt-normal.melt:8519:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8491:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -16692,21 +15793,21 @@ meltlabend_rout: melt_trace_end ("NORMEXP_CHEADER", meltcallcount); MELT_TRACE_EXIT_LOCATION (); melt_blocklevel_signals = - current_blocklevel_signals_meltrout_166_WARMELTmiNORMAL_NORMEXP_CHEADER_melt; + current_blocklevel_signals_meltrout_165_WARMELTmiNORMAL_NORMEXP_CHEADER_melt; melt_topframe = (struct melt_callframe_st *) meltfram__.mcfr_prev; return (melt_ptr_t) ( /*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_166_WARMELTmiNORMAL_NORMEXP_CHEADER */ +} /*end meltrout_165_WARMELTmiNORMAL_NORMEXP_CHEADER */ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_167_WARMELTmiNORMAL_NORMEXP_CIMPLEMENT (meltclosure_ptr_t meltclosp_, +meltrout_166_WARMELTmiNORMAL_NORMEXP_CIMPLEMENT (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], @@ -16718,7 +15819,7 @@ meltrout_167_WARMELTmiNORMAL_NORMEXP_CIMPLEMENT (meltclosure_ptr_t meltclosp_, meltxrestab_) { long - current_blocklevel_signals_meltrout_167_WARMELTmiNORMAL_NORMEXP_CIMPLEMENT_melt + current_blocklevel_signals_meltrout_166_WARMELTmiNORMAL_NORMEXP_CIMPLEMENT_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG @@ -16731,7 +15832,7 @@ meltrout_167_WARMELTmiNORMAL_NORMEXP_CIMPLEMENT (meltclosure_ptr_t meltclosp_, #define meltcallcount 0L #endif - struct meltframe_meltrout_167_WARMELTmiNORMAL_NORMEXP_CIMPLEMENT_st + struct meltframe_meltrout_166_WARMELTmiNORMAL_NORMEXP_CIMPLEMENT_st { int mcfr_nbvar; #if MELT_HAVE_DEBUG @@ -16753,14 +15854,14 @@ meltrout_167_WARMELTmiNORMAL_NORMEXP_CIMPLEMENT (meltclosure_ptr_t meltclosp_, } *meltframptr_ = 0, meltfram__; /*declfrastruct */ #define meltframe meltfram__ - /*meltrout_167_WARMELTmiNORMAL_NORMEXP_CIMPLEMENT is not initial declstructinit */ + /*meltrout_166_WARMELTmiNORMAL_NORMEXP_CIMPLEMENT is not initial declstructinit */ if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int meltix; meltframptr_ = - (struct meltframe_meltrout_167_WARMELTmiNORMAL_NORMEXP_CIMPLEMENT_st + (struct meltframe_meltrout_166_WARMELTmiNORMAL_NORMEXP_CIMPLEMENT_st *) meltfirstargp_; - /* use arguments meltrout_167_WARMELTmiNORMAL_NORMEXP_CIMPLEMENT output_curframe_declstruct_init */ + /* use arguments meltrout_166_WARMELTmiNORMAL_NORMEXP_CIMPLEMENT output_curframe_declstruct_init */ (void) meltclosp_; (void) meltfirstargp_; (void) meltxargdescr_; @@ -16775,7 +15876,7 @@ meltrout_167_WARMELTmiNORMAL_NORMEXP_CIMPLEMENT (meltclosure_ptr_t meltclosp_, return NULL; } /*end markggc */ ; memset (&meltfram__, 0, sizeof (meltfram__)); -/* declstructinit plain routine meltrout_167_WARMELTmiNORMAL_NORMEXP_CIMPLEMENT nbval 32*/ +/* declstructinit plain routine meltrout_166_WARMELTmiNORMAL_NORMEXP_CIMPLEMENT nbval 32*/ meltfram__.mcfr_nbvar = 32 /*nbval */ ; meltfram__.mcfr_clos = meltclosp_; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; @@ -16784,7 +15885,7 @@ meltrout_167_WARMELTmiNORMAL_NORMEXP_CIMPLEMENT (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-normal.melt:8540:/ getarg"); + MELT_LOCATION ("warmelt-normal.melt:8512:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -16824,7 +15925,7 @@ meltlab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8541:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8513:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16850,7 +15951,7 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8541:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8513:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -16869,7 +15970,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8541:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8513:/ apply"); /*apply */ { union meltparam_un argtab[7]; @@ -16879,7 +15980,7 @@ meltlab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8541; + argtab[2].meltbp_long = 8513; /*^apply.arg */ argtab[3].meltbp_cstring = "normexp_cimplement recv="; /*^apply.arg */ @@ -16905,7 +16006,7 @@ meltlab_endgetargs:; /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8541:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8513:/ clear"); /*clear *//*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -16918,7 +16019,7 @@ meltlab_endgetargs:; /*_._IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8541:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8513:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_._IF___V7*/ meltfptr[6];; @@ -16926,7 +16027,7 @@ meltlab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8541:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8513:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IF___V7*/ meltfptr[6] = 0; @@ -16941,7 +16042,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8542:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8514:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16953,7 +16054,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SOURCE_CIMPLEMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-normal.melt:8542:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8514:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -16961,7 +16062,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8542:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8514:/ cond.else"); /*^block */ /*anyblock */ @@ -16975,7 +16076,7 @@ meltlab_endgetargs:; melt_assert_failed (("check cimplement recv"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8542) ? (8542) : __LINE__, __FUNCTION__); + (8514) ? (8514) : __LINE__, __FUNCTION__); ; } ; @@ -16989,7 +16090,7 @@ meltlab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_._IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8542:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8514:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_._IFELSE___V11*/ meltfptr[7] = 0; @@ -17002,7 +16103,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8543:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8515:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17014,7 +16115,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-normal.melt:8543:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8515:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -17022,7 +16123,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8543:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8515:/ cond.else"); /*^block */ /*anyblock */ @@ -17036,7 +16137,7 @@ meltlab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8543) ? (8543) : __LINE__, __FUNCTION__); + (8515) ? (8515) : __LINE__, __FUNCTION__); ; } ; @@ -17050,7 +16151,7 @@ meltlab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_._IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8543:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8515:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IFELSE___V13*/ meltfptr[12] = 0; @@ -17063,7 +16164,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8544:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8516:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17075,7 +16176,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_NORMALIZATION_CONTEXT */ meltfrout->tabval[3])));; - MELT_LOCATION ("warmelt-normal.melt:8544:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8516:/ cond"); /*cond */ if ( /*_#IS_A__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -17083,7 +16184,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8544:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8516:/ cond.else"); /*^block */ /*anyblock */ @@ -17097,7 +16198,7 @@ meltlab_endgetargs:; melt_assert_failed (("check nctxt"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8544) ? (8544) : __LINE__, __FUNCTION__); + (8516) ? (8516) : __LINE__, __FUNCTION__); ; } ; @@ -17111,7 +16212,7 @@ meltlab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8544:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8516:/ clear"); /*clear *//*_#IS_A__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_._IFELSE___V15*/ meltfptr[14] = 0; @@ -17122,10 +16223,10 @@ meltlab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-normal.melt:8545:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8517:/ quasiblock"); - MELT_LOCATION ("warmelt-normal.melt:8546:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8518:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]) /*=obj*/ ; @@ -17133,7 +16234,7 @@ meltlab_endgetargs:; /*_.SLOC__V17*/ meltfptr[16] = slot; }; ; - MELT_LOCATION ("warmelt-normal.melt:8547:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8519:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -17157,7 +16258,7 @@ meltlab_endgetargs:; /*_.MODCTX__V18*/ meltfptr[17] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8548:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8520:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -17183,7 +16284,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8550:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8522:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17209,7 +16310,7 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8550:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8522:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -17228,7 +16329,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8550:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8522:/ apply"); /*apply */ { union meltparam_un argtab[7]; @@ -17238,7 +16339,7 @@ meltlab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8550; + argtab[2].meltbp_long = 8522; /*^apply.arg */ argtab[3].meltbp_cstring = "normexp_cimplement modctx="; /*^apply.arg */ @@ -17264,7 +16365,7 @@ meltlab_endgetargs:; /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8550:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8522:/ clear"); /*clear *//*_#MELT_CALLCOUNT__L7*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V22*/ meltfptr[21] = 0; @@ -17277,7 +16378,7 @@ meltlab_endgetargs:; /*_._IF___V21*/ meltfptr[20] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8550:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8522:/ quasiblock"); /*_.PROGN___V23*/ meltfptr[21] = /*_._IF___V21*/ meltfptr[20];; @@ -17285,7 +16386,7 @@ meltlab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[19] = /*_.PROGN___V23*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8550:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8522:/ clear"); /*clear *//*_#MELT_NEED_DBG__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IF___V21*/ meltfptr[20] = 0; @@ -17300,7 +16401,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8551:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8523:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17312,7 +16413,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.MODCTX__V18*/ meltfptr[17]), (melt_ptr_t) (( /*!CLASS_ANY_MODULE_CONTEXT */ meltfrout->tabval[4])));; - MELT_LOCATION ("warmelt-normal.melt:8551:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8523:/ cond"); /*cond */ if ( /*_#IS_A__L8*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -17320,7 +16421,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8551:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8523:/ cond.else"); /*^block */ /*anyblock */ @@ -17334,7 +16435,7 @@ meltlab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8551) ? (8551) : __LINE__, __FUNCTION__); + (8523) ? (8523) : __LINE__, __FUNCTION__); ; } ; @@ -17348,7 +16449,7 @@ meltlab_endgetargs:; /*_.IFCPP___V24*/ meltfptr[20] = /*_._IFELSE___V25*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8551:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8523:/ clear"); /*clear *//*_#IS_A__L8*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_._IFELSE___V25*/ meltfptr[21] = 0; @@ -17361,7 +16462,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8552:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8524:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17373,7 +16474,7 @@ meltlab_endgetargs:; (melt_magic_discr ((melt_ptr_t) ( /*_.MCIMPLEMLIST__V19*/ meltfptr[18])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-normal.melt:8552:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8524:/ cond"); /*cond */ if ( /*_#IS_LIST__L9*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -17381,7 +16482,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8552:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8524:/ cond.else"); /*^block */ /*anyblock */ @@ -17395,7 +16496,7 @@ meltlab_endgetargs:; melt_assert_failed (("check mcimplemlist"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8552) ? (8552) : __LINE__, __FUNCTION__); + (8524) ? (8524) : __LINE__, __FUNCTION__); ; } ; @@ -17409,7 +16510,7 @@ meltlab_endgetargs:; /*_.IFCPP___V26*/ meltfptr[21] = /*_._IFELSE___V27*/ meltfptr[26];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8552:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8524:/ clear"); /*clear *//*_#IS_LIST__L9*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IFELSE___V27*/ meltfptr[26] = 0; @@ -17422,7 +16523,7 @@ meltlab_endgetargs:; ; { - MELT_LOCATION ("warmelt-normal.melt:8553:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8525:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.MCIMPLEMLIST__V19*/ meltfptr[18]), (melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1])); @@ -17430,7 +16531,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8554:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8526:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17456,7 +16557,7 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8554:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8526:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L10*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -17475,7 +16576,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8554:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8526:/ apply"); /*apply */ { union meltparam_un argtab[8]; @@ -17485,7 +16586,7 @@ meltlab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8554; + argtab[2].meltbp_long = 8526; /*^apply.arg */ argtab[3].meltbp_cstring = "normexp_cimplement updated mcimplemlist="; @@ -17514,7 +16615,7 @@ meltlab_endgetargs:; /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8554:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8526:/ clear"); /*clear *//*_#MELT_CALLCOUNT__L11*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = 0; @@ -17527,7 +16628,7 @@ meltlab_endgetargs:; /*_._IF___V29*/ meltfptr[28] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8554:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8526:/ quasiblock"); /*_.PROGN___V31*/ meltfptr[29] = /*_._IF___V29*/ meltfptr[28];; @@ -17535,7 +16636,7 @@ meltlab_endgetargs:; /*_.IFCPP___V28*/ meltfptr[26] = /*_.PROGN___V31*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8554:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8526:/ clear"); /*clear *//*_#MELT_NEED_DBG__L10*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_._IF___V29*/ meltfptr[28] = 0; @@ -17548,13 +16649,13 @@ meltlab_endgetargs:; /*_.IFCPP___V28*/ meltfptr[26] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-normal.melt:8555:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8527:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-normal.melt:8555:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8527:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -17569,7 +16670,7 @@ meltlab_endgetargs:; /*finalret */ goto meltlabend_rout; /*_.LET___V16*/ meltfptr[14] = /*_.RETURN___V32*/ meltfptr[28];; - MELT_LOCATION ("warmelt-normal.melt:8545:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8517:/ clear"); /*clear *//*_.SLOC__V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.MODCTX__V18*/ meltfptr[17] = 0; @@ -17588,13 +16689,13 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8540:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8512:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[14];; { - MELT_LOCATION ("warmelt-normal.melt:8540:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8512:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -17627,21 +16728,21 @@ meltlabend_rout: melt_trace_end ("NORMEXP_CIMPLEMENT", meltcallcount); MELT_TRACE_EXIT_LOCATION (); melt_blocklevel_signals = - current_blocklevel_signals_meltrout_167_WARMELTmiNORMAL_NORMEXP_CIMPLEMENT_melt; + current_blocklevel_signals_meltrout_166_WARMELTmiNORMAL_NORMEXP_CIMPLEMENT_melt; melt_topframe = (struct melt_callframe_st *) meltfram__.mcfr_prev; return (melt_ptr_t) ( /*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_167_WARMELTmiNORMAL_NORMEXP_CIMPLEMENT */ +} /*end meltrout_166_WARMELTmiNORMAL_NORMEXP_CIMPLEMENT */ melt_ptr_t MELT_MODULE_VISIBILITY -meltrout_168_WARMELTmiNORMAL_NORMEXP_USE_PACKAGE_FROM_PKG_CONFIG +meltrout_167_WARMELTmiNORMAL_NORMEXP_USE_PACKAGE_FROM_PKG_CONFIG (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un * meltxargtab_, @@ -17649,7 +16750,7 @@ meltrout_168_WARMELTmiNORMAL_NORMEXP_USE_PACKAGE_FROM_PKG_CONFIG union meltparam_un * meltxrestab_) { long - current_blocklevel_signals_meltrout_168_WARMELTmiNORMAL_NORMEXP_USE_PACKAGE_FROM_PKG_CONFIG_melt + current_blocklevel_signals_meltrout_167_WARMELTmiNORMAL_NORMEXP_USE_PACKAGE_FROM_PKG_CONFIG_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG @@ -17662,7 +16763,7 @@ meltrout_168_WARMELTmiNORMAL_NORMEXP_USE_PACKAGE_FROM_PKG_CONFIG #define meltcallcount 0L #endif - struct meltframe_meltrout_168_WARMELTmiNORMAL_NORMEXP_USE_PACKAGE_FROM_PKG_CONFIG_st + struct meltframe_meltrout_167_WARMELTmiNORMAL_NORMEXP_USE_PACKAGE_FROM_PKG_CONFIG_st { int mcfr_nbvar; #if MELT_HAVE_DEBUG @@ -17684,15 +16785,15 @@ meltrout_168_WARMELTmiNORMAL_NORMEXP_USE_PACKAGE_FROM_PKG_CONFIG } *meltframptr_ = 0, meltfram__; /*declfrastruct */ #define meltframe meltfram__ - /*meltrout_168_WARMELTmiNORMAL_NORMEXP_USE_PACKAGE_FROM_PKG_CONFIG is not initial declstructinit */ + /*meltrout_167_WARMELTmiNORMAL_NORMEXP_USE_PACKAGE_FROM_PKG_CONFIG is not initial declstructinit */ if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int meltix; meltframptr_ = (struct - meltframe_meltrout_168_WARMELTmiNORMAL_NORMEXP_USE_PACKAGE_FROM_PKG_CONFIG_st + meltframe_meltrout_167_WARMELTmiNORMAL_NORMEXP_USE_PACKAGE_FROM_PKG_CONFIG_st *) meltfirstargp_; - /* use arguments meltrout_168_WARMELTmiNORMAL_NORMEXP_USE_PACKAGE_FROM_PKG_CONFIG output_curframe_declstruct_init */ + /* use arguments meltrout_167_WARMELTmiNORMAL_NORMEXP_USE_PACKAGE_FROM_PKG_CONFIG output_curframe_declstruct_init */ (void) meltclosp_; (void) meltfirstargp_; (void) meltxargdescr_; @@ -17707,7 +16808,7 @@ meltrout_168_WARMELTmiNORMAL_NORMEXP_USE_PACKAGE_FROM_PKG_CONFIG return NULL; } /*end markggc */ ; memset (&meltfram__, 0, sizeof (meltfram__)); -/* declstructinit plain routine meltrout_168_WARMELTmiNORMAL_NORMEXP_USE_PACKAGE_FROM_PKG_CONFIG nbval 46*/ +/* declstructinit plain routine meltrout_167_WARMELTmiNORMAL_NORMEXP_USE_PACKAGE_FROM_PKG_CONFIG nbval 46*/ meltfram__.mcfr_nbvar = 46 /*nbval */ ; meltfram__.mcfr_clos = meltclosp_; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; @@ -17716,7 +16817,7 @@ meltrout_168_WARMELTmiNORMAL_NORMEXP_USE_PACKAGE_FROM_PKG_CONFIG /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-normal.melt:8563:/ getarg"); + MELT_LOCATION ("warmelt-normal.melt:8535:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -17756,7 +16857,7 @@ meltlab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8564:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8536:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17782,7 +16883,7 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8564:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8536:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -17801,7 +16902,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8564:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8536:/ apply"); /*apply */ { union meltparam_un argtab[7]; @@ -17811,7 +16912,7 @@ meltlab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8564; + argtab[2].meltbp_long = 8536; /*^apply.arg */ argtab[3].meltbp_cstring = "normexp_use_package_from_pkg_config recv="; @@ -17838,7 +16939,7 @@ meltlab_endgetargs:; /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8564:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8536:/ clear"); /*clear *//*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -17851,7 +16952,7 @@ meltlab_endgetargs:; /*_._IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8564:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8536:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_._IF___V7*/ meltfptr[6];; @@ -17859,7 +16960,7 @@ meltlab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8564:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8536:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IF___V7*/ meltfptr[6] = 0; @@ -17874,7 +16975,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8565:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8537:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17885,7 +16986,7 @@ meltlab_endgetargs:; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of ((melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-normal.melt:8565:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8537:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -17893,7 +16994,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8565:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8537:/ cond.else"); /*^block */ /*anyblock */ @@ -17907,7 +17008,7 @@ meltlab_endgetargs:; melt_assert_failed (("check cheader recv"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8565) ? (8565) : __LINE__, __FUNCTION__); + (8537) ? (8537) : __LINE__, __FUNCTION__); ; } ; @@ -17921,7 +17022,7 @@ meltlab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_._IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8565:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8537:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_._IFELSE___V11*/ meltfptr[7] = 0; @@ -17934,7 +17035,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8566:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8538:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17946,7 +17047,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-normal.melt:8566:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8538:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -17954,7 +17055,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8566:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8538:/ cond.else"); /*^block */ /*anyblock */ @@ -17968,7 +17069,7 @@ meltlab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8566) ? (8566) : __LINE__, __FUNCTION__); + (8538) ? (8538) : __LINE__, __FUNCTION__); ; } ; @@ -17982,7 +17083,7 @@ meltlab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_._IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8566:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8538:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IFELSE___V13*/ meltfptr[12] = 0; @@ -17995,7 +17096,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8567:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8539:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18007,7 +17108,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_NORMALIZATION_CONTEXT */ meltfrout->tabval[3])));; - MELT_LOCATION ("warmelt-normal.melt:8567:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8539:/ cond"); /*cond */ if ( /*_#IS_A__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -18015,7 +17116,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8567:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8539:/ cond.else"); /*^block */ /*anyblock */ @@ -18029,7 +17130,7 @@ meltlab_endgetargs:; melt_assert_failed (("check nctxt"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8567) ? (8567) : __LINE__, __FUNCTION__); + (8539) ? (8539) : __LINE__, __FUNCTION__); ; } ; @@ -18043,7 +17144,7 @@ meltlab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8567:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8539:/ clear"); /*clear *//*_#IS_A__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_._IFELSE___V15*/ meltfptr[14] = 0; @@ -18054,10 +17155,10 @@ meltlab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-normal.melt:8568:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8540:/ quasiblock"); - MELT_LOCATION ("warmelt-normal.melt:8569:/ getslot"); + MELT_LOCATION ("warmelt-normal.melt:8541:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.RECV__V2*/ meltfptr[1]) /*=obj*/ ; @@ -18065,7 +17166,7 @@ meltlab_endgetargs:; /*_.SLOC__V17*/ meltfptr[16] = slot; }; ; - MELT_LOCATION ("warmelt-normal.melt:8570:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8542:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -18089,7 +17190,7 @@ meltlab_endgetargs:; /*_.PKGTUP__V18*/ meltfptr[17] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8571:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8543:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -18113,7 +17214,7 @@ meltlab_endgetargs:; /*_.MODCTX__V19*/ meltfptr[18] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8572:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8544:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -18139,7 +17240,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8574:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8546:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18165,7 +17266,7 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8574:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8546:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -18184,7 +17285,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8574:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8546:/ apply"); /*apply */ { union meltparam_un argtab[5]; @@ -18194,7 +17295,7 @@ meltlab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8574; + argtab[2].meltbp_long = 8546; /*^apply.arg */ argtab[3].meltbp_cstring = "normexp_use_package_from_pkg_config initial mcpackagelist="; @@ -18215,7 +17316,7 @@ meltlab_endgetargs:; /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8574:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8546:/ clear"); /*clear *//*_#MELT_CALLCOUNT__L7*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V23*/ meltfptr[22] = 0; @@ -18228,7 +17329,7 @@ meltlab_endgetargs:; /*_._IF___V22*/ meltfptr[21] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8574:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8546:/ quasiblock"); /*_.PROGN___V24*/ meltfptr[22] = /*_._IF___V22*/ meltfptr[21];; @@ -18236,7 +17337,7 @@ meltlab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[20] = /*_.PROGN___V24*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8574:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8546:/ clear"); /*clear *//*_#MELT_NEED_DBG__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IF___V22*/ meltfptr[21] = 0; @@ -18251,7 +17352,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8575:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8547:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18263,7 +17364,7 @@ meltlab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.MODCTX__V19*/ meltfptr[18]), (melt_ptr_t) (( /*!CLASS_ANY_MODULE_CONTEXT */ meltfrout->tabval[4])));; - MELT_LOCATION ("warmelt-normal.melt:8575:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8547:/ cond"); /*cond */ if ( /*_#IS_A__L8*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -18271,7 +17372,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8575:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8547:/ cond.else"); /*^block */ /*anyblock */ @@ -18285,7 +17386,7 @@ meltlab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8575) ? (8575) : __LINE__, __FUNCTION__); + (8547) ? (8547) : __LINE__, __FUNCTION__); ; } ; @@ -18299,7 +17400,7 @@ meltlab_endgetargs:; /*_.IFCPP___V25*/ meltfptr[21] = /*_._IFELSE___V26*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8575:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8547:/ clear"); /*clear *//*_#IS_A__L8*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_._IFELSE___V26*/ meltfptr[22] = 0; @@ -18312,7 +17413,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8576:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8548:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18324,7 +17425,7 @@ meltlab_endgetargs:; (melt_magic_discr ((melt_ptr_t) ( /*_.MCPACKAGELIST__V20*/ meltfptr[19])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-normal.melt:8576:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8548:/ cond"); /*cond */ if ( /*_#IS_LIST__L9*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -18332,7 +17433,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8576:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8548:/ cond.else"); /*^block */ /*anyblock */ @@ -18346,7 +17447,7 @@ meltlab_endgetargs:; melt_assert_failed (("check mcpackagelist"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8576) ? (8576) : __LINE__, __FUNCTION__); + (8548) ? (8548) : __LINE__, __FUNCTION__); ; } ; @@ -18360,7 +17461,7 @@ meltlab_endgetargs:; /*_.IFCPP___V27*/ meltfptr[22] = /*_._IFELSE___V28*/ meltfptr[27];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8576:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8548:/ clear"); /*clear *//*_#IS_LIST__L9*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IFELSE___V28*/ meltfptr[27] = 0; @@ -18389,7 +17490,7 @@ meltlab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8581:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8553:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18415,7 +17516,7 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8581:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8553:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -18434,7 +17535,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8581:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8553:/ apply"); /*apply */ { union meltparam_un argtab[5]; @@ -18445,7 +17546,7 @@ meltlab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8581; + argtab[2].meltbp_long = 8553; /*^apply.arg */ argtab[3].meltbp_cstring = "normexp_use_package_from_pkg_config curpkgname="; @@ -18467,7 +17568,7 @@ meltlab_endgetargs:; /*_.MELT_DEBUG_FUN__V32*/ meltfptr[31];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8581:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8553:/ clear"); /*clear *//*_#MELT_CALLCOUNT__L12*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V32*/ meltfptr[31] = 0; @@ -18480,7 +17581,7 @@ meltlab_endgetargs:; /*_._IF___V31*/ meltfptr[30] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8581:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8553:/ quasiblock"); /*_.PROGN___V33*/ meltfptr[31] = /*_._IF___V31*/ meltfptr[30];; @@ -18488,7 +17589,7 @@ meltlab_endgetargs:; /*_.IFCPP___V30*/ meltfptr[29] = /*_.PROGN___V33*/ meltfptr[31];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8581:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8553:/ clear"); /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IF___V31*/ meltfptr[30] = 0; @@ -18503,7 +17604,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8582:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8554:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18515,7 +17616,7 @@ meltlab_endgetargs:; (melt_magic_discr ((melt_ptr_t) ( /*_.CURPKGNAME__V29*/ meltfptr[27])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-normal.melt:8582:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8554:/ cond"); /*cond */ if ( /*_#IS_STRING__L13*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -18523,7 +17624,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8582:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8554:/ cond.else"); /*^block */ /*anyblock */ @@ -18537,7 +17638,7 @@ meltlab_endgetargs:; melt_assert_failed (("check curpkgname"), ("warmelt-normal.melt") ? ("warmelt-normal.melt") : __FILE__, - (8582) ? (8582) : __LINE__, + (8554) ? (8554) : __LINE__, __FUNCTION__); ; } @@ -18553,7 +17654,7 @@ meltlab_endgetargs:; /*_._IFELSE___V35*/ meltfptr[31];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8582:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8554:/ clear"); /*clear *//*_#IS_STRING__L13*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_._IFELSE___V35*/ meltfptr[31] = 0; @@ -18564,7 +17665,7 @@ meltlab_endgetargs:; /*_.IFCPP___V34*/ meltfptr[30] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-normal.melt:8583:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8555:/ quasiblock"); /*_#FOUND__L14*/ meltfnum[0] = 0;; @@ -18593,7 +17694,7 @@ meltlab_endgetargs:; ( /*_.OLDPKGNAME__V38*/ meltfptr[37]), (melt_ptr_t) ( /*_.CURPKGNAME__V29*/ meltfptr[27]));; - MELT_LOCATION ("warmelt-normal.melt:8588:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8560:/ cond"); /*cond */ if ( /*_#eqeqS__L15*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -18601,13 +17702,13 @@ meltlab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-normal.melt:8589:/ compute"); + MELT_LOCATION ("warmelt-normal.melt:8561:/ compute"); /*_#FOUND__L14*/ meltfnum[0] = /*_#SETQ___L16*/ meltfnum[15] = 1;; - MELT_LOCATION ("warmelt-normal.melt:8590:/ compute"); + MELT_LOCATION ("warmelt-normal.melt:8562:/ compute"); /*_.CURPAIR__V37*/ meltfptr[36] = /*_.SETQ___V40*/ meltfptr[39] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-normal.melt:8588:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8560:/ quasiblock"); /*_.PROGN___V41*/ meltfptr[40] = @@ -18617,7 +17718,7 @@ meltlab_endgetargs:; /*_.PROGN___V41*/ meltfptr[40];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8588:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8560:/ clear"); /*clear *//*_#SETQ___L16*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.SETQ___V40*/ meltfptr[39] = 0; @@ -18639,7 +17740,7 @@ meltlab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-normal.melt:8585:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8557:/ clear"); /*clear *//*_.CURPAIR__V37*/ meltfptr[36] = 0; /*^clear */ /*clear *//*_.OLDPKGNAME__V38*/ meltfptr[37] = 0; @@ -18652,7 +17753,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8591:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8563:/ cond"); /*cond */ if ( /*_#FOUND__L14*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -18660,7 +17761,7 @@ meltlab_endgetargs:; } else { - MELT_LOCATION ("warmelt-normal.melt:8591:/ cond.else"); + MELT_LOCATION ("warmelt-normal.melt:8563:/ cond.else"); /*^block */ /*anyblock */ @@ -18668,7 +17769,7 @@ meltlab_endgetargs:; { - MELT_LOCATION ("warmelt-normal.melt:8592:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8564:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.MCPACKAGELIST__V20*/ meltfptr[19]), @@ -18676,7 +17777,7 @@ meltlab_endgetargs:; meltfptr[27])); } ; - MELT_LOCATION ("warmelt-normal.melt:8591:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8563:/ quasiblock"); /*epilog */ @@ -18686,7 +17787,7 @@ meltlab_endgetargs:; ; /*_.LET___V36*/ meltfptr[31] = /*_._IFELSE___V42*/ meltfptr[39];; - MELT_LOCATION ("warmelt-normal.melt:8583:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8555:/ clear"); /*clear *//*_#FOUND__L14*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_._IFELSE___V42*/ meltfptr[39] = 0; @@ -18696,7 +17797,7 @@ meltlab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-normal.melt:8578:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8550:/ clear"); /*clear *//*_.CURPKGNAME__V29*/ meltfptr[27] = 0; /*^clear */ /*clear *//*_#PKGIX__L10*/ meltfnum[1] = 0; @@ -18710,7 +17811,7 @@ meltlab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-normal.melt:8596:/ cppif.then"); + MELT_LOCATION ("warmelt-normal.melt:8568:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18736,7 +17837,7 @@ meltlab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-normal.melt:8596:/ cond"); + MELT_LOCATION ("warmelt-normal.melt:8568:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L17*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -18755,7 +17856,7 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8596:/ apply"); + MELT_LOCATION ("warmelt-normal.melt:8568:/ apply"); /*apply */ { union meltparam_un argtab[5]; @@ -18765,7 +17866,7 @@ meltlab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-normal.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 8596; + argtab[2].meltbp_long = 8568; /*^apply.arg */ argtab[3].meltbp_cstring = "normexp_use_package_from_pkg_config final mcpackagelist="; @@ -18786,7 +17887,7 @@ meltlab_endgetargs:; /*_.MELT_DEBUG_FUN__V45*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8596:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8568:/ clear"); /*clear *//*_#MELT_CALLCOUNT__L18*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V45*/ meltfptr[44] = 0; @@ -18799,7 +17900,7 @@ meltlab_endgetargs:; /*_._IF___V44*/ meltfptr[39] = NULL;; } ; - MELT_LOCATION ("warmelt-normal.melt:8596:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8568:/ quasiblock"); /*_.PROGN___V46*/ meltfptr[44] = /*_._IF___V44*/ meltfptr[39];; @@ -18807,7 +17908,7 @@ meltlab_endgetargs:; /*_.IFCPP___V43*/ meltfptr[40] = /*_.PROGN___V46*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-normal.melt:8596:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8568:/ clear"); /*clear *//*_#MELT_NEED_DBG__L17*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_._IF___V44*/ meltfptr[39] = 0; @@ -18823,7 +17924,7 @@ meltlab_endgetargs:; /*^compute */ /*_.LET___V16*/ meltfptr[14] = /*_.IFCPP___V43*/ meltfptr[40];; - MELT_LOCATION ("warmelt-normal.melt:8568:/ clear"); + MELT_LOCATION ("warmelt-normal.melt:8540:/ clear"); /*clear *//*_.SLOC__V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.PKGTUP__V18*/ meltfptr[17] = 0; @@ -18842,13 +17943,13 @@ meltlab_endgetargs:; MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-normal.melt:8563:/ quasiblock"); + MELT_LOCATION ("warmelt-normal.melt:8535:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[14];; { - MELT_LOCATION ("warmelt-normal.melt:8563:/ locexp"); + MELT_LOCATION ("warmelt-normal.melt:8535:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -18881,14 +17982,14 @@ meltlabend_rout: melt_trace_end ("NORMEXP_USE_PACKAGE_FROM_PKG_CONFIG", meltcallcount); MELT_TRACE_EXIT_LOCATION (); melt_blocklevel_signals = - current_blocklevel_signals_meltrout_168_WARMELTmiNORMAL_NORMEXP_USE_PACKAGE_FROM_PKG_CONFIG_melt; + current_blocklevel_signals_meltrout_167_WARMELTmiNORMAL_NORMEXP_USE_PACKAGE_FROM_PKG_CONFIG_melt; melt_topframe = (struct melt_callframe_st *) meltfram__.mcfr_prev; return (melt_ptr_t) ( /*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR -} /*end meltrout_168_WARMELTmiNORMAL_NORMEXP_USE_PACKAGE_FROM_PKG_CONFIG */ +} /*end meltrout_167_WARMELTmiNORMAL_NORMEXP_USE_PACKAGE_FROM_PKG_CONFIG */ |