diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-09-06 18:18:27 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-09-06 18:18:27 +0000 |
| commit | 24cae729901f40afe75f38222cb2070f426db24f (patch) | |
| tree | e078bb5e23551711b47c4cdacf055264fb8e2f9b /gcc/melt/generated/warmelt-outobj+05.c | |
| parent | 74dda70aa876c9f3a43c085f1e2a438fe8b3f185 (diff) | |
| download | gcc-24cae729901f40afe75f38222cb2070f426db24f.tar.gz | |
2012-09-06 Basile Starynkevitch <basile@starynkevitch.net>
{{Regenerate}}
* melt/generated/meltrunsup-inc.c: Regenerate.
* melt/generated/meltrunsup.h: Regenerate.
* melt/generated/warmelt-base+meltdesc.c: Regenerate.
* melt/generated/warmelt-base+melttime.h: Regenerate.
* melt/generated/warmelt-debug+meltdesc.c: Regenerate.
* melt/generated/warmelt-debug+melttime.h: Regenerate.
* melt/generated/warmelt-first+meltdesc.c: Regenerate.
* melt/generated/warmelt-first+melttime.h: Regenerate.
* melt/generated/warmelt-genobj+meltdesc.c: Regenerate.
* melt/generated/warmelt-genobj+melttime.h: Regenerate.
* melt/generated/warmelt-macro+meltdesc.c: Regenerate.
* melt/generated/warmelt-macro+melttime.h: Regenerate.
* melt/generated/warmelt-modes+meltdesc.c: Regenerate.
* melt/generated/warmelt-modes+melttime.h: Regenerate.
* melt/generated/warmelt-normal+meltdesc.c: Regenerate.
* melt/generated/warmelt-normal+melttime.h: Regenerate.
* melt/generated/warmelt-normatch+meltdesc.c: Regenerate.
* melt/generated/warmelt-normatch+melttime.h: Regenerate.
* melt/generated/warmelt-outobj+01.c: Regenerate.
* melt/generated/warmelt-outobj+02.c: Regenerate.
* melt/generated/warmelt-outobj+03.c: Regenerate.
* melt/generated/warmelt-outobj+04.c: Regenerate.
* melt/generated/warmelt-outobj+05.c: Regenerate.
* melt/generated/warmelt-outobj+meltdesc.c: Regenerate.
* melt/generated/warmelt-outobj+melttime.h: Regenerate.
* melt/generated/warmelt-outobj.c: Regenerate.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@191038 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/melt/generated/warmelt-outobj+05.c')
| -rw-r--r-- | gcc/melt/generated/warmelt-outobj+05.c | 5504 |
1 files changed, 3520 insertions, 1984 deletions
diff --git a/gcc/melt/generated/warmelt-outobj+05.c b/gcc/melt/generated/warmelt-outobj+05.c index 03b2e90b905..cc686eab5ff 100644 --- a/gcc/melt/generated/warmelt-outobj+05.c +++ b/gcc/melt/generated/warmelt-outobj+05.c @@ -2426,10 +2426,10 @@ meltrout_130_warmelt_outobj_NORMADECLB_MACROEXPANDED_LIST (meltclosure_ptr_t struct meltclosure_st *mcfr_clos; struct excepth_melt_st *mcfr_exh; struct melt_callframe_st *mcfr_prev; -#define MELTFRAM_NBVARPTR 81 - melt_ptr_t mcfr_varptr[81]; -#define MELTFRAM_NBVARNUM 28 - long mcfr_varnum[28]; +#define MELTFRAM_NBVARPTR 98 + melt_ptr_t mcfr_varptr[98]; +#define MELTFRAM_NBVARNUM 36 + long mcfr_varnum[36]; /*others*/ long _spare_; } @@ -2450,13 +2450,13 @@ meltrout_130_warmelt_outobj_NORMADECLB_MACROEXPANDED_LIST (meltclosure_ptr_t (void) meltxresdescr_; (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); - for (ix = 0; ix < 81; ix++) + for (ix = 0; ix < 98; ix++) if (meltframptr_->mcfr_varptr[ix]) gt_ggc_mx_melt_un (meltframptr_->mcfr_varptr[ix]); return NULL; } /*end markggc */ ; memset (&meltfram__, 0, sizeof (meltfram__)); - meltfram__.mcfr_nbvar = 81; + meltfram__.mcfr_nbvar = 98; meltfram__.mcfr_clos = meltclosp_; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; melt_topframe = (struct melt_callframe_st *) &meltfram__; @@ -2464,7 +2464,7 @@ meltrout_130_warmelt_outobj_NORMADECLB_MACROEXPANDED_LIST (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:5106:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:5098:/ getarg"); /*_.XLIST__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -2515,7 +2515,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5107:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5099:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2541,7 +2541,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5107:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5099:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2556,7 +2556,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5107:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5099:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -2569,7 +2569,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5107; + argtab[2].meltbp_long = 5099; /*^apply.arg */ argtab[3].meltbp_cstring = "normadeclb_macroexpanded_list start xlist= "; @@ -2613,7 +2613,7 @@ lab_endgetargs:; /*_.IF___V8*/ meltfptr[7] = /*_.MELT_DEBUG_FUN__V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5107:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5099:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V9*/ meltfptr[8] = 0; @@ -2626,7 +2626,7 @@ lab_endgetargs:; /*_.IF___V8*/ meltfptr[7] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5107:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5099:/ quasiblock"); /*_.PROGN___V10*/ meltfptr[8] = /*_.IF___V8*/ meltfptr[7];; @@ -2634,7 +2634,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[6] = /*_.PROGN___V10*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5107:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5099:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V8*/ meltfptr[7] = 0; @@ -2649,7 +2649,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5112:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5104:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2660,7 +2660,7 @@ lab_endgetargs:; /*_#IS_LIST__L3*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.XLIST__V2*/ meltfptr[1])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:5112:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5104:/ cond"); /*cond */ if ( /*_#IS_LIST__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -2668,7 +2668,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5112:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5104:/ cond.else"); /*^block */ /*anyblock */ @@ -2682,7 +2682,7 @@ lab_endgetargs:; melt_assert_failed (("check xlist"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5112) ? (5112) : __LINE__, __FUNCTION__); + (5104) ? (5104) : __LINE__, __FUNCTION__); ; } ; @@ -2696,7 +2696,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[7] = /*_.IFELSE___V12*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5112:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5104:/ clear"); /*clear *//*_#IS_LIST__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V12*/ meltfptr[8] = 0; @@ -2709,7 +2709,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5113:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5105:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2720,7 +2720,7 @@ lab_endgetargs:; /*_#IS_STRING__L4*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODNAMSTR__V3*/ meltfptr[2])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-outobj.melt:5113:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5105:/ cond"); /*cond */ if ( /*_#IS_STRING__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2728,7 +2728,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5113:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5105:/ cond.else"); /*^block */ /*anyblock */ @@ -2742,7 +2742,7 @@ lab_endgetargs:; melt_assert_failed (("check modnamstr"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5113) ? (5113) : __LINE__, __FUNCTION__); + (5105) ? (5105) : __LINE__, __FUNCTION__); ; } ; @@ -2756,7 +2756,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[8] = /*_.IFELSE___V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5113:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5105:/ clear"); /*clear *//*_#IS_STRING__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V14*/ meltfptr[13] = 0; @@ -2769,7 +2769,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5114:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5106:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2781,7 +2781,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.MODCTX__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_MODULE_CONTEXT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:5114:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5106:/ cond"); /*cond */ if ( /*_#IS_A__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -2789,7 +2789,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5114:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5106:/ cond.else"); /*^block */ /*anyblock */ @@ -2803,7 +2803,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5114) ? (5114) : __LINE__, __FUNCTION__); + (5106) ? (5106) : __LINE__, __FUNCTION__); ; } ; @@ -2817,7 +2817,7 @@ lab_endgetargs:; /*_.IFCPP___V15*/ meltfptr[13] = /*_.IFELSE___V16*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5114:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5106:/ clear"); /*clear *//*_#IS_A__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V16*/ meltfptr[15] = 0; @@ -2830,7 +2830,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5115:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5107:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2842,7 +2842,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.NCX__V5*/ meltfptr[4]), (melt_ptr_t) (( /*!CLASS_NORMALIZATION_CONTEXT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-outobj.melt:5115:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5107:/ cond"); /*cond */ if ( /*_#IS_A__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2850,7 +2850,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5115:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5107:/ cond.else"); /*^block */ /*anyblock */ @@ -2864,7 +2864,7 @@ lab_endgetargs:; melt_assert_failed (("check ncx"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5115) ? (5115) : __LINE__, __FUNCTION__); + (5107) ? (5107) : __LINE__, __FUNCTION__); ; } ; @@ -2878,7 +2878,7 @@ lab_endgetargs:; /*_.IFCPP___V17*/ meltfptr[15] = /*_.IFELSE___V18*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5115:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5107:/ clear"); /*clear *//*_#IS_A__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V18*/ meltfptr[17] = 0; @@ -2891,7 +2891,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5116:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5108:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2903,7 +2903,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.INIENV__V6*/ meltfptr[5]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[3])));; - MELT_LOCATION ("warmelt-outobj.melt:5116:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5108:/ cond"); /*cond */ if ( /*_#IS_A__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -2911,7 +2911,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5116:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5108:/ cond.else"); /*^block */ /*anyblock */ @@ -2925,7 +2925,7 @@ lab_endgetargs:; melt_assert_failed (("check inienv"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5116) ? (5116) : __LINE__, __FUNCTION__); + (5108) ? (5108) : __LINE__, __FUNCTION__); ; } ; @@ -2939,7 +2939,7 @@ lab_endgetargs:; /*_.IFCPP___V19*/ meltfptr[17] = /*_.IFELSE___V20*/ meltfptr[19];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5116:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5108:/ clear"); /*clear *//*_#IS_A__L7*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V20*/ meltfptr[19] = 0; @@ -2950,11 +2950,122 @@ lab_endgetargs:; /*_.IFCPP___V19*/ meltfptr[17] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5117:/ quasiblock"); + +#if MELT_HAVE_DEBUG + MELT_LOCATION ("warmelt-outobj.melt:5109:/ cppif.then"); + /*^block */ + /*anyblock */ + { + + + { + /*^locexp */ + /*melt_increment_dbgcounter */ +#if MELT_HAVE_DEBUG + melt_dbgcounter++; +#endif + ; + } + ; + /*^checksignal */ + MELT_CHECK_SIGNAL (); + ; + /*_#MELT_NEED_DBG__L8*/ 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-outobj.melt:5109:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L8*/ meltfnum[0]) /*then */ + { + /*^cond.then */ + /*^block */ + /*anyblock */ + { + + /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[1] = +#ifdef meltcallcount + meltcallcount /* the_meltcallcount */ +#else + 0L +#endif /* meltcallcount the_meltcallcount */ + ;; + MELT_LOCATION ("warmelt-outobj.melt:5109:/ checksignal"); + MELT_CHECK_SIGNAL (); + ; + /*^apply */ + /*apply */ + { + union meltparam_un argtab[5]; + memset (&argtab, 0, sizeof (argtab)); + /*^apply.arg */ + argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[1]; + /*^apply.arg */ + argtab[1].meltbp_cstring = "warmelt-outobj.melt"; + /*^apply.arg */ + argtab[2].meltbp_long = 5109; + /*^apply.arg */ + argtab[3].meltbp_cstring = + "normadeclb_macroexpanded_list modctx="; + /*^apply.arg */ + argtab[4].meltbp_aptr = + (melt_ptr_t *) & /*_.MODCTX__V4*/ meltfptr[3]; + /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22] = + 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); + } + ; + /*_.IF___V22*/ meltfptr[21] = + /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22];; + /*epilog */ + + MELT_LOCATION ("warmelt-outobj.melt:5109:/ clear"); + /*clear *//*_#THE_MELTCALLCOUNT__L9*/ meltfnum[1] = 0; + /*^clear */ + /*clear *//*_.MELT_DEBUG_FUN__V23*/ meltfptr[22] = 0; + } + ; + } + else + { /*^cond.else */ + + /*_.IF___V22*/ meltfptr[21] = NULL;; + } + ; + MELT_LOCATION ("warmelt-outobj.melt:5109:/ quasiblock"); + + + /*_.PROGN___V24*/ meltfptr[22] = /*_.IF___V22*/ meltfptr[21];; + /*^compute */ + /*_.IFCPP___V21*/ meltfptr[19] = /*_.PROGN___V24*/ meltfptr[22];; + /*epilog */ + + MELT_LOCATION ("warmelt-outobj.melt:5109:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L8*/ meltfnum[0] = 0; + /*^clear */ + /*clear *//*_.IF___V22*/ meltfptr[21] = 0; + /*^clear */ + /*clear *//*_.PROGN___V24*/ meltfptr[22] = 0; + } + +#else /*MELT_HAVE_DEBUG */ + /*^cppif.else */ + /*_.IFCPP___V21*/ meltfptr[19] = ( /*nil */ NULL); +#endif /*MELT_HAVE_DEBUG */ + ; + MELT_LOCATION ("warmelt-outobj.melt:5110:/ quasiblock"); - /*_#STARTCLOCK__L8*/ meltfnum[0] = 0;; - MELT_LOCATION ("warmelt-outobj.melt:5119:/ blockmultialloc"); + /*_#STARTCLOCK__L10*/ meltfnum[1] = 0;; + MELT_LOCATION ("warmelt-outobj.melt:5112:/ blockmultialloc"); /*multiallocblock */ { struct meltletrec_1_st @@ -2967,42 +3078,42 @@ lab_endgetargs:; meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill */ /*inilist rlist_0__LIST_ */ - /*_.LIST___V23*/ meltfptr[22] = + /*_.LIST___V27*/ meltfptr[26] = (melt_ptr_t) & meltletrec_1_ptr->rlist_0__LIST_; meltletrec_1_ptr->rlist_0__LIST_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_LIST)))); - /*_.NORMLIST__V22*/ meltfptr[21] = /*_.LIST___V23*/ meltfptr[22];; + /*_.NORMLIST__V26*/ meltfptr[22] = /*_.LIST___V27*/ meltfptr[26];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5119:/ clear"); - /*clear *//*_.LIST___V23*/ meltfptr[22] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5112:/ clear"); + /*clear *//*_.LIST___V27*/ meltfptr[26] = 0; /*^clear */ - /*clear *//*_.LIST___V23*/ meltfptr[22] = 0; + /*clear *//*_.LIST___V27*/ meltfptr[26] = 0; } /*end multiallocblock */ ; - /*_.DECLBUF__V24*/ meltfptr[22] = + /*_.DECLBUF__V28*/ meltfptr[26] = (melt_ptr_t) meltgc_new_strbuf ((meltobject_ptr_t) (( /*!DISCR_STRBUF */ meltfrout->tabval[4])), (const char *) 0);; /*^compute */ - /*_.LIST_FIRST__V25*/ meltfptr[24] = + /*_.LIST_FIRST__V29*/ meltfptr[28] = (melt_list_first ((melt_ptr_t) ( /*_.XLIST__V2*/ meltfptr[1])));; /*^compute */ - /*_.FIRSTX__V26*/ meltfptr[25] = - (melt_pair_head ((melt_ptr_t) ( /*_.LIST_FIRST__V25*/ meltfptr[24])));; - MELT_LOCATION ("warmelt-outobj.melt:5122:/ checksignal"); + /*_.FIRSTX__V30*/ meltfptr[29] = + (melt_pair_head ((melt_ptr_t) ( /*_.LIST_FIRST__V29*/ meltfptr[28])));; + MELT_LOCATION ("warmelt-outobj.melt:5115:/ checksignal"); MELT_CHECK_SIGNAL (); ; - /*_#IS_A__L9*/ meltfnum[1] = - melt_is_instance_of ((melt_ptr_t) ( /*_.FIRSTX__V26*/ meltfptr[25]), + /*_#IS_A__L11*/ meltfnum[0] = + melt_is_instance_of ((melt_ptr_t) ( /*_.FIRSTX__V30*/ meltfptr[29]), (melt_ptr_t) (( /*!CLASS_SOURCE */ meltfrout-> tabval[5])));; - MELT_LOCATION ("warmelt-outobj.melt:5122:/ cond"); - /*cond */ if ( /*_#IS_A__L9*/ meltfnum[1]) /*then */ + MELT_LOCATION ("warmelt-outobj.melt:5115:/ cond"); + /*cond */ if ( /*_#IS_A__L11*/ meltfnum[0]) /*then */ { /*^cond.then */ /*^block */ @@ -3013,8 +3124,8 @@ lab_endgetargs:; /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) - ( /*_.FIRSTX__V26*/ - meltfptr[25]), + ( /*_.FIRSTX__V30*/ + meltfptr[29]), (melt_ptr_t) (( /*!CLASS_LOCATED */ meltfrout->tabval[6]))) ) /*then */ { @@ -3023,35 +3134,35 @@ lab_endgetargs:; { melt_ptr_t slot = NULL, obj = NULL; obj = - (melt_ptr_t) ( /*_.FIRSTX__V26*/ meltfptr[25]) /*=obj*/ ; + (melt_ptr_t) ( /*_.FIRSTX__V30*/ meltfptr[29]) /*=obj*/ ; melt_object_get_field (slot, obj, 1, "LOCA_LOCATION"); - /*_.LOCA_LOCATION__V28*/ meltfptr[27] = slot; + /*_.LOCA_LOCATION__V32*/ meltfptr[31] = slot; }; ; } else { /*^cond.else */ - /*_.LOCA_LOCATION__V28*/ meltfptr[27] = NULL;; + /*_.LOCA_LOCATION__V32*/ meltfptr[31] = NULL;; } ; /*^compute */ - /*_.FIRSTLOC__V27*/ meltfptr[26] = - /*_.LOCA_LOCATION__V28*/ meltfptr[27];; + /*_.FIRSTLOC__V31*/ meltfptr[30] = + /*_.LOCA_LOCATION__V32*/ meltfptr[31];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5122:/ clear"); - /*clear *//*_.LOCA_LOCATION__V28*/ meltfptr[27] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5115:/ clear"); + /*clear *//*_.LOCA_LOCATION__V32*/ meltfptr[31] = 0; } ; } else { /*^cond.else */ - /*_.FIRSTLOC__V27*/ meltfptr[26] = NULL;; + /*_.FIRSTLOC__V31*/ meltfptr[30] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5123:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5116:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -3065,17 +3176,17 @@ lab_endgetargs:; melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.MODCTX__V4*/ meltfptr[3]) /*=obj*/ ; melt_object_get_field (slot, obj, 11, "MOCX_ERRORHANDLER"); - /*_.ERRORHDLR__V29*/ meltfptr[27] = slot; + /*_.ERRORHDLR__V33*/ meltfptr[31] = slot; }; ; } else { /*^cond.else */ - /*_.ERRORHDLR__V29*/ meltfptr[27] = NULL;; + /*_.ERRORHDLR__V33*/ meltfptr[31] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5124:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5117:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -3089,17 +3200,17 @@ lab_endgetargs:; melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.MODCTX__V4*/ meltfptr[3]) /*=obj*/ ; melt_object_get_field (slot, obj, 3, "MOCX_INITIALENV"); - /*_.MODINIENV__V30*/ meltfptr[29] = slot; + /*_.MODINIENV__V34*/ meltfptr[33] = slot; }; ; } else { /*^cond.else */ - /*_.MODINIENV__V30*/ meltfptr[29] = NULL;; + /*_.MODINIENV__V34*/ meltfptr[33] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5125:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5118:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -3113,17 +3224,17 @@ lab_endgetargs:; melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.NCX__V5*/ meltfptr[4]) /*=obj*/ ; melt_object_get_field (slot, obj, 0, "NCTX_INITPROC"); - /*_.INIPROC__V31*/ meltfptr[30] = slot; + /*_.INIPROC__V35*/ meltfptr[34] = slot; }; ; } else { /*^cond.else */ - /*_.INIPROC__V31*/ meltfptr[30] = NULL;; + /*_.INIPROC__V35*/ meltfptr[34] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5126:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5119:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -3137,17 +3248,17 @@ lab_endgetargs:; melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.MODCTX__V4*/ meltfptr[3]) /*=obj*/ ; melt_object_get_field (slot, obj, 8, "MOCX_CHEADERLIST"); - /*_.CHEADLIST__V32*/ meltfptr[31] = slot; + /*_.CHEADLIST__V36*/ meltfptr[35] = slot; }; ; } else { /*^cond.else */ - /*_.CHEADLIST__V32*/ meltfptr[31] = NULL;; + /*_.CHEADLIST__V36*/ meltfptr[35] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5128:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5121:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -3159,7 +3270,7 @@ lab_endgetargs:; melt_ptr_t newobj = 0; melt_raw_object_create (newobj, (melt_ptr_t) (( /*!CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER */ meltfrout->tabval[7])), (3), "CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER"); - /*_.INST__V34*/ meltfptr[33] = + /*_.INST__V38*/ meltfptr[37] = newobj; }; ; @@ -3167,31 +3278,31 @@ lab_endgetargs:; /*putslot */ melt_assertmsg ("putslot checkobj @LOCA_LOCATION", melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V34*/ meltfptr[33])) == + ( /*_.INST__V38*/ meltfptr[37])) == MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V34*/ meltfptr[33]), (1), - ( /*_.FIRSTLOC__V27*/ meltfptr[26]), + melt_putfield_object (( /*_.INST__V38*/ meltfptr[37]), (1), + ( /*_.FIRSTLOC__V31*/ meltfptr[30]), "LOCA_LOCATION"); ; /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj @SUCME_COMMENT", melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V34*/ meltfptr[33])) == + ( /*_.INST__V38*/ meltfptr[37])) == MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V34*/ meltfptr[33]), (2), + melt_putfield_object (( /*_.INST__V38*/ meltfptr[37]), (2), (( /*!konst_8 */ meltfrout->tabval[8])), "SUCME_COMMENT"); ; /*^touchobj */ - melt_dbgtrace_written_object ( /*_.INST__V34*/ meltfptr[33], + melt_dbgtrace_written_object ( /*_.INST__V38*/ meltfptr[37], "newly made instance"); ; - /*_.UCMEB1__V33*/ meltfptr[32] = /*_.INST__V34*/ meltfptr[33];; + /*_.UCMEB1__V37*/ meltfptr[36] = /*_.INST__V38*/ meltfptr[37];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5133:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5126:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3209,7 +3320,7 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - /*_#MELT_NEED_DBG__L10*/ meltfnum[9] = + /*_#MELT_NEED_DBG__L12*/ meltfnum[11] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -3217,22 +3328,22 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5133:/ cond"); - /*cond */ if ( /*_#MELT_NEED_DBG__L10*/ meltfnum[9]) /*then */ + MELT_LOCATION ("warmelt-outobj.melt:5126:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L12*/ meltfnum[11]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { - /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = + /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5133:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5126:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3242,18 +3353,18 @@ lab_endgetargs:; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = - /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10]; + /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5133; + argtab[2].meltbp_long = 5126; /*^apply.arg */ argtab[3].meltbp_cstring = - "normadeclb_macroexpanded_list cheadlist="; + "normadeclb_macroexpanded_list modctx="; /*^apply.arg */ argtab[4].meltbp_aptr = - (melt_ptr_t *) & /*_.CHEADLIST__V32*/ meltfptr[31]; - /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = + (melt_ptr_t *) & /*_.MODCTX__V4*/ meltfptr[3]; + /*_.MELT_DEBUG_FUN__V41*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t) (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])), (melt_ptr_t) (( /*nil */ NULL)), @@ -3263,50 +3374,162 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - /*_.IF___V36*/ meltfptr[35] = - /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36];; + /*_.IF___V40*/ meltfptr[39] = + /*_.MELT_DEBUG_FUN__V41*/ meltfptr[40];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5133:/ clear"); - /*clear *//*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5126:/ clear"); + /*clear *//*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12] = 0; /*^clear */ - /*clear *//*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = 0; + /*clear *//*_.MELT_DEBUG_FUN__V41*/ meltfptr[40] = 0; } ; } else { /*^cond.else */ - /*_.IF___V36*/ meltfptr[35] = NULL;; + /*_.IF___V40*/ meltfptr[39] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5133:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5126:/ quasiblock"); - /*_.PROGN___V38*/ meltfptr[36] = /*_.IF___V36*/ meltfptr[35];; + /*_.PROGN___V42*/ meltfptr[40] = /*_.IF___V40*/ meltfptr[39];; /*^compute */ - /*_.IFCPP___V35*/ meltfptr[34] = /*_.PROGN___V38*/ meltfptr[36];; + /*_.IFCPP___V39*/ meltfptr[38] = /*_.PROGN___V42*/ meltfptr[40];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5133:/ clear"); - /*clear *//*_#MELT_NEED_DBG__L10*/ meltfnum[9] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5126:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L12*/ meltfnum[11] = 0; /*^clear */ - /*clear *//*_.IF___V36*/ meltfptr[35] = 0; + /*clear *//*_.IF___V40*/ meltfptr[39] = 0; /*^clear */ - /*clear *//*_.PROGN___V38*/ meltfptr[36] = 0; + /*clear *//*_.PROGN___V42*/ meltfptr[40] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V35*/ meltfptr[34] = ( /*nil */ NULL); + /*_.IFCPP___V39*/ meltfptr[38] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; +#if MELT_HAVE_DEBUG + MELT_LOCATION ("warmelt-outobj.melt:5127:/ cppif.then"); + /*^block */ + /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:5135:/ locexp"); + + + { + /*^locexp */ + /*melt_increment_dbgcounter */ +#if MELT_HAVE_DEBUG + melt_dbgcounter++; +#endif + ; + } + ; + /*^checksignal */ + MELT_CHECK_SIGNAL (); + ; + /*_#MELT_NEED_DBG__L14*/ meltfnum[12] = + /*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-outobj.melt:5127:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L14*/ meltfnum[12]) /*then */ + { + /*^cond.then */ + /*^block */ + /*anyblock */ + { + + /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[11] = +#ifdef meltcallcount + meltcallcount /* the_meltcallcount */ +#else + 0L +#endif /* meltcallcount the_meltcallcount */ + ;; + MELT_LOCATION ("warmelt-outobj.melt:5127:/ checksignal"); + MELT_CHECK_SIGNAL (); + ; + /*^apply */ + /*apply */ + { + union meltparam_un argtab[5]; + memset (&argtab, 0, sizeof (argtab)); + /*^apply.arg */ + argtab[0].meltbp_long = + /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[11]; + /*^apply.arg */ + argtab[1].meltbp_cstring = "warmelt-outobj.melt"; + /*^apply.arg */ + argtab[2].meltbp_long = 5127; + /*^apply.arg */ + argtab[3].meltbp_cstring = + "normadeclb_macroexpanded_list @@cheadlist="; + /*^apply.arg */ + argtab[4].meltbp_aptr = + (melt_ptr_t *) & /*_.CHEADLIST__V36*/ meltfptr[35]; + /*_.MELT_DEBUG_FUN__V45*/ meltfptr[44] = + 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); + } + ; + /*_.IF___V44*/ meltfptr[40] = + /*_.MELT_DEBUG_FUN__V45*/ meltfptr[44];; + /*epilog */ + + MELT_LOCATION ("warmelt-outobj.melt:5127:/ clear"); + /*clear *//*_#THE_MELTCALLCOUNT__L15*/ meltfnum[11] = 0; + /*^clear */ + /*clear *//*_.MELT_DEBUG_FUN__V45*/ meltfptr[44] = 0; + } + ; + } + else + { /*^cond.else */ + + /*_.IF___V44*/ meltfptr[40] = NULL;; + } + ; + MELT_LOCATION ("warmelt-outobj.melt:5127:/ quasiblock"); + + + /*_.PROGN___V46*/ meltfptr[44] = /*_.IF___V44*/ meltfptr[40];; + /*^compute */ + /*_.IFCPP___V43*/ meltfptr[39] = /*_.PROGN___V46*/ meltfptr[44];; + /*epilog */ + + MELT_LOCATION ("warmelt-outobj.melt:5127:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L14*/ meltfnum[12] = 0; + /*^clear */ + /*clear *//*_.IF___V44*/ meltfptr[40] = 0; + /*^clear */ + /*clear *//*_.PROGN___V46*/ meltfptr[44] = 0; + } + +#else /*MELT_HAVE_DEBUG */ + /*^cppif.else */ + /*_.IFCPP___V43*/ meltfptr[39] = ( /*nil */ NULL); +#endif /*MELT_HAVE_DEBUG */ + ; + + { + MELT_LOCATION ("warmelt-outobj.melt:5129:/ locexp"); /* normadeclb_macroexpanded_list STARTMODNAM__1 */ #if HAVE_CLOCK - /*_#STARTCLOCK__L8*/ meltfnum[0] = (long) clock (); + /*_#STARTCLOCK__L10*/ meltfnum[1] = (long) clock (); #endif /*HAVE_CLOCK */ #if MELT_HAVE_DEBUG inform (UNKNOWN_LOCATION, @@ -3323,137 +3546,255 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5149:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5143:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) - ( /*_.DECLBUF__V24*/ meltfptr[22]), (0), 0); + ( /*_.DECLBUF__V28*/ meltfptr[26]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5153:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5147:/ checksignal"); MELT_CHECK_SIGNAL (); ; - /*_#IS_A__L12*/ meltfnum[10] = - melt_is_instance_of ((melt_ptr_t) ( /*_.FIRSTX__V26*/ meltfptr[25]), + /*_#IS_A__L16*/ meltfnum[11] = + melt_is_instance_of ((melt_ptr_t) ( /*_.FIRSTX__V30*/ meltfptr[29]), (melt_ptr_t) (( /*!CLASS_SOURCE_COMMENT */ meltfrout->tabval[9])));; - MELT_LOCATION ("warmelt-outobj.melt:5153:/ cond"); - /*cond */ if ( /*_#IS_A__L12*/ meltfnum[10]) /*then */ + MELT_LOCATION ("warmelt-outobj.melt:5147:/ cond"); + /*cond */ if ( /*_#IS_A__L16*/ meltfnum[11]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { - /*_.LIST_POPFIRST__V39*/ meltfptr[35] = + /*_.LIST_POPFIRST__V47*/ meltfptr[40] = (meltgc_popfirst_list ((melt_ptr_t) ( /*_.XLIST__V2*/ meltfptr[1])));; - MELT_LOCATION ("warmelt-outobj.melt:5155:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5149:/ quasiblock"); /*^getslot */ { melt_ptr_t slot = NULL, obj = NULL; - obj = (melt_ptr_t) ( /*_.FIRSTX__V26*/ meltfptr[25]) /*=obj*/ ; + obj = (melt_ptr_t) ( /*_.FIRSTX__V30*/ meltfptr[29]) /*=obj*/ ; melt_object_get_field (slot, obj, 1, "LOCA_LOCATION"); - /*_.SLOC__V40*/ meltfptr[36] = slot; + /*_.SLOC__V48*/ meltfptr[44] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:5156:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:5150:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; - obj = (melt_ptr_t) ( /*_.FIRSTX__V26*/ meltfptr[25]) /*=obj*/ ; + obj = (melt_ptr_t) ( /*_.FIRSTX__V30*/ meltfptr[29]) /*=obj*/ ; melt_object_get_field (slot, obj, 2, "SCOMM_STR"); - /*_.SCOMM__V41*/ meltfptr[40] = slot; + /*_.SCOMM__V49*/ meltfptr[48] = slot; }; ; { - MELT_LOCATION ("warmelt-outobj.melt:5158:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5152:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) - ( /*_.DECLBUF__V24*/ meltfptr[22]), (0), + ( /*_.DECLBUF__V28*/ meltfptr[26]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5159:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5153:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) - ( /*_.DECLBUF__V24*/ meltfptr[22]), + ( /*_.DECLBUF__V28*/ meltfptr[26]), ("/***************************************************")); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5162:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5156:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) - ( /*_.DECLBUF__V24*/ meltfptr[22]), (0), + ( /*_.DECLBUF__V28*/ meltfptr[26]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5163:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5157:/ locexp"); meltgc_add_strbuf_ccomment ((melt_ptr_t) - ( /*_.DECLBUF__V24*/ meltfptr[22]), + ( /*_.DECLBUF__V28*/ meltfptr[26]), melt_string_str ((melt_ptr_t) - ( /*_.SCOMM__V41*/ - meltfptr[40]))); + ( /*_.SCOMM__V49*/ + meltfptr[48]))); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5164:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5158:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) - ( /*_.DECLBUF__V24*/ meltfptr[22]), (0), + ( /*_.DECLBUF__V28*/ meltfptr[26]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5165:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5159:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) - ( /*_.DECLBUF__V24*/ meltfptr[22]), + ( /*_.DECLBUF__V28*/ meltfptr[26]), ("****************************************************/")); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5168:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5162:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) - ( /*_.DECLBUF__V24*/ meltfptr[22]), (0), + ( /*_.DECLBUF__V28*/ meltfptr[26]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5169:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5163:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) - ( /*_.DECLBUF__V24*/ meltfptr[22]), (0), + ( /*_.DECLBUF__V28*/ meltfptr[26]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5155:/ clear"); - /*clear *//*_.SLOC__V40*/ meltfptr[36] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5149:/ clear"); + /*clear *//*_.SLOC__V48*/ meltfptr[44] = 0; /*^clear */ - /*clear *//*_.SCOMM__V41*/ meltfptr[40] = 0; - MELT_LOCATION ("warmelt-outobj.melt:5153:/ quasiblock"); + /*clear *//*_.SCOMM__V49*/ meltfptr[48] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5147:/ quasiblock"); /*epilog */ /*^clear */ - /*clear *//*_.LIST_POPFIRST__V39*/ meltfptr[35] = 0; + /*clear *//*_.LIST_POPFIRST__V47*/ meltfptr[40] = 0; } ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:5173:/ checksignal"); + +#if MELT_HAVE_DEBUG + MELT_LOCATION ("warmelt-outobj.melt:5166:/ cppif.then"); + /*^block */ + /*anyblock */ + { + + + { + /*^locexp */ + /*melt_increment_dbgcounter */ +#if MELT_HAVE_DEBUG + melt_dbgcounter++; +#endif + ; + } + ; + /*^checksignal */ + MELT_CHECK_SIGNAL (); + ; + /*_#MELT_NEED_DBG__L17*/ meltfnum[12] = + /*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-outobj.melt:5166:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L17*/ meltfnum[12]) /*then */ + { + /*^cond.then */ + /*^block */ + /*anyblock */ + { + + /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[17] = +#ifdef meltcallcount + meltcallcount /* the_meltcallcount */ +#else + 0L +#endif /* meltcallcount the_meltcallcount */ + ;; + MELT_LOCATION ("warmelt-outobj.melt:5166:/ checksignal"); + MELT_CHECK_SIGNAL (); + ; + /*^apply */ + /*apply */ + { + union meltparam_un argtab[7]; + memset (&argtab, 0, sizeof (argtab)); + /*^apply.arg */ + argtab[0].meltbp_long = + /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[17]; + /*^apply.arg */ + argtab[1].meltbp_cstring = "warmelt-outobj.melt"; + /*^apply.arg */ + argtab[2].meltbp_long = 5166; + /*^apply.arg */ + argtab[3].meltbp_cstring = + "normadeclb_macroexpanded_list modctx="; + /*^apply.arg */ + argtab[4].meltbp_aptr = + (melt_ptr_t *) & /*_.MODCTX__V4*/ meltfptr[3]; + /*^apply.arg */ + argtab[5].meltbp_cstring = "\n with @@cheadlist="; + /*^apply.arg */ + argtab[6].meltbp_aptr = + (melt_ptr_t *) & /*_.CHEADLIST__V36*/ meltfptr[35]; + /*_.MELT_DEBUG_FUN__V52*/ meltfptr[40] = + 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 ""), argtab, "", + (union meltparam_un *) 0); + } + ; + /*_.IF___V51*/ meltfptr[48] = + /*_.MELT_DEBUG_FUN__V52*/ meltfptr[40];; + /*epilog */ + + MELT_LOCATION ("warmelt-outobj.melt:5166:/ clear"); + /*clear *//*_#THE_MELTCALLCOUNT__L18*/ meltfnum[17] = 0; + /*^clear */ + /*clear *//*_.MELT_DEBUG_FUN__V52*/ meltfptr[40] = 0; + } + ; + } + else + { /*^cond.else */ + + /*_.IF___V51*/ meltfptr[48] = NULL;; + } + ; + MELT_LOCATION ("warmelt-outobj.melt:5166:/ quasiblock"); + + + /*_.PROGN___V53*/ meltfptr[40] = /*_.IF___V51*/ meltfptr[48];; + /*^compute */ + /*_.IFCPP___V50*/ meltfptr[44] = /*_.PROGN___V53*/ meltfptr[40];; + /*epilog */ + + MELT_LOCATION ("warmelt-outobj.melt:5166:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L17*/ meltfnum[12] = 0; + /*^clear */ + /*clear *//*_.IF___V51*/ meltfptr[48] = 0; + /*^clear */ + /*clear *//*_.PROGN___V53*/ meltfptr[40] = 0; + } + +#else /*MELT_HAVE_DEBUG */ + /*^cppif.else */ + /*_.IFCPP___V50*/ meltfptr[44] = ( /*nil */ NULL); +#endif /*MELT_HAVE_DEBUG */ + ; + MELT_LOCATION ("warmelt-outobj.melt:5169:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ - /*cond */ if ( /*_.MODINIENV__V30*/ meltfptr[29]) /*then */ + /*cond */ if ( /*_.MODINIENV__V34*/ meltfptr[33]) /*then */ { /*^cond.then */ /*^block */ @@ -3462,7 +3803,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5175:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5171:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3480,7 +3821,7 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - /*_#MELT_NEED_DBG__L13*/ meltfnum[9] = + /*_#MELT_NEED_DBG__L19*/ meltfnum[17] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -3488,22 +3829,22 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5175:/ cond"); - /*cond */ if ( /*_#MELT_NEED_DBG__L13*/ meltfnum[9]) /*then */ + MELT_LOCATION ("warmelt-outobj.melt:5171:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L19*/ meltfnum[17]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { - /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13] = + /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[12] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5175:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5171:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3513,18 +3854,18 @@ lab_endgetargs:; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = - /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13]; + /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[12]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5175; + argtab[2].meltbp_long = 5171; /*^apply.arg */ argtab[3].meltbp_cstring = "normadeclb_macroexpanded_list usual modinienv="; /*^apply.arg */ argtab[4].meltbp_aptr = - (melt_ptr_t *) & /*_.MODINIENV__V30*/ meltfptr[29]; - /*_.MELT_DEBUG_FUN__V44*/ meltfptr[35] = + (melt_ptr_t *) & /*_.MODINIENV__V34*/ meltfptr[33]; + /*_.MELT_DEBUG_FUN__V56*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t) (( /*!MELT_DEBUG_FUN */ meltfrout-> tabval[0])), @@ -3535,77 +3876,77 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - /*_.IF___V43*/ meltfptr[40] = - /*_.MELT_DEBUG_FUN__V44*/ meltfptr[35];; + /*_.IF___V55*/ meltfptr[40] = + /*_.MELT_DEBUG_FUN__V56*/ meltfptr[55];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5175:/ clear"); - /*clear *//*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5171:/ clear"); + /*clear *//*_#THE_MELTCALLCOUNT__L20*/ meltfnum[12] = 0; /*^clear */ - /*clear *//*_.MELT_DEBUG_FUN__V44*/ meltfptr[35] = 0; + /*clear *//*_.MELT_DEBUG_FUN__V56*/ meltfptr[55] = 0; } ; } else { /*^cond.else */ - /*_.IF___V43*/ meltfptr[40] = NULL;; + /*_.IF___V55*/ meltfptr[40] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5175:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5171:/ quasiblock"); - /*_.PROGN___V45*/ meltfptr[35] = /*_.IF___V43*/ meltfptr[40];; + /*_.PROGN___V57*/ meltfptr[55] = /*_.IF___V55*/ meltfptr[40];; /*^compute */ - /*_.IFCPP___V42*/ meltfptr[36] = /*_.PROGN___V45*/ meltfptr[35];; + /*_.IFCPP___V54*/ meltfptr[48] = /*_.PROGN___V57*/ meltfptr[55];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5175:/ clear"); - /*clear *//*_#MELT_NEED_DBG__L13*/ meltfnum[9] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5171:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L19*/ meltfnum[17] = 0; /*^clear */ - /*clear *//*_.IF___V43*/ meltfptr[40] = 0; + /*clear *//*_.IF___V55*/ meltfptr[40] = 0; /*^clear */ - /*clear *//*_.PROGN___V45*/ meltfptr[35] = 0; + /*clear *//*_.PROGN___V57*/ meltfptr[55] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V42*/ meltfptr[36] = ( /*nil */ NULL); + /*_.IFCPP___V54*/ meltfptr[48] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; { - MELT_LOCATION ("warmelt-outobj.melt:5176:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5172:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) - ( /*_.DECLBUF__V24*/ meltfptr[22]), + ( /*_.DECLBUF__V28*/ meltfptr[26]), ("/* ordinary MELT module */")); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5177:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5173:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) - ( /*_.DECLBUF__V24*/ meltfptr[22]), (0), + ( /*_.DECLBUF__V28*/ meltfptr[26]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5178:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5174:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) - ( /*_.DECLBUF__V24*/ meltfptr[22]), + ( /*_.DECLBUF__V28*/ meltfptr[26]), ("#define MELT_HAS_INITIAL_ENVIRONMENT 1 /*usual*/")); } ; - MELT_LOCATION ("warmelt-outobj.melt:5174:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5170:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5173:/ clear"); - /*clear *//*_.IFCPP___V42*/ meltfptr[36] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5169:/ clear"); + /*clear *//*_.IFCPP___V54*/ meltfptr[48] = 0; } ; } @@ -3618,7 +3959,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5180:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5176:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3636,7 +3977,7 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - /*_#MELT_NEED_DBG__L15*/ meltfnum[13] = + /*_#MELT_NEED_DBG__L21*/ meltfnum[12] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -3644,22 +3985,22 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5180:/ cond"); - /*cond */ if ( /*_#MELT_NEED_DBG__L15*/ meltfnum[13]) /*then */ + MELT_LOCATION ("warmelt-outobj.melt:5176:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L21*/ meltfnum[12]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { - /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[9] = + /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[17] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5180:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5176:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3669,18 +4010,18 @@ lab_endgetargs:; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = - /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[9]; + /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[17]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5180; + argtab[2].meltbp_long = 5176; /*^apply.arg */ argtab[3].meltbp_cstring = "normadeclb_macroexpanded_list initial modinienv="; /*^apply.arg */ argtab[4].meltbp_aptr = - (melt_ptr_t *) & /*_.MODINIENV__V30*/ meltfptr[29]; - /*_.MELT_DEBUG_FUN__V48*/ meltfptr[36] = + (melt_ptr_t *) & /*_.MODINIENV__V34*/ meltfptr[33]; + /*_.MELT_DEBUG_FUN__V60*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t) (( /*!MELT_DEBUG_FUN */ meltfrout-> tabval[0])), @@ -3691,64 +4032,64 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - /*_.IF___V47*/ meltfptr[35] = - /*_.MELT_DEBUG_FUN__V48*/ meltfptr[36];; + /*_.IF___V59*/ meltfptr[55] = + /*_.MELT_DEBUG_FUN__V60*/ meltfptr[48];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5180:/ clear"); - /*clear *//*_#THE_MELTCALLCOUNT__L16*/ meltfnum[9] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5176:/ clear"); + /*clear *//*_#THE_MELTCALLCOUNT__L22*/ meltfnum[17] = 0; /*^clear */ - /*clear *//*_.MELT_DEBUG_FUN__V48*/ meltfptr[36] = 0; + /*clear *//*_.MELT_DEBUG_FUN__V60*/ meltfptr[48] = 0; } ; } else { /*^cond.else */ - /*_.IF___V47*/ meltfptr[35] = NULL;; + /*_.IF___V59*/ meltfptr[55] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5180:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5176:/ quasiblock"); - /*_.PROGN___V49*/ meltfptr[36] = /*_.IF___V47*/ meltfptr[35];; + /*_.PROGN___V61*/ meltfptr[48] = /*_.IF___V59*/ meltfptr[55];; /*^compute */ - /*_.IFCPP___V46*/ meltfptr[40] = /*_.PROGN___V49*/ meltfptr[36];; + /*_.IFCPP___V58*/ meltfptr[40] = /*_.PROGN___V61*/ meltfptr[48];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5180:/ clear"); - /*clear *//*_#MELT_NEED_DBG__L15*/ meltfnum[13] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5176:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L21*/ meltfnum[12] = 0; /*^clear */ - /*clear *//*_.IF___V47*/ meltfptr[35] = 0; + /*clear *//*_.IF___V59*/ meltfptr[55] = 0; /*^clear */ - /*clear *//*_.PROGN___V49*/ meltfptr[36] = 0; + /*clear *//*_.PROGN___V61*/ meltfptr[48] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V46*/ meltfptr[40] = ( /*nil */ NULL); + /*_.IFCPP___V58*/ meltfptr[40] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; { - MELT_LOCATION ("warmelt-outobj.melt:5181:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5177:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) - ( /*_.DECLBUF__V24*/ meltfptr[22]), + ( /*_.DECLBUF__V28*/ meltfptr[26]), ("/* initial MELT module */")); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5182:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5178:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) - ( /*_.DECLBUF__V24*/ meltfptr[22]), (0), + ( /*_.DECLBUF__V28*/ meltfptr[26]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5183:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5179:/ locexp"); /* CHECK_WARMELT_FIRST_BOOTSTRAPPING_CHUNK__1 */ melt_checkmsg ("bootstrapping first file", @@ -3765,70 +4106,166 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5191:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5187:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) - ( /*_.DECLBUF__V24*/ meltfptr[22]), + ( /*_.DECLBUF__V28*/ meltfptr[26]), ("#define MELT_HAS_INITIAL_ENVIRONMENT 0 /*initial*/")); } ; - MELT_LOCATION ("warmelt-outobj.melt:5179:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5175:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5173:/ clear"); - /*clear *//*_.IFCPP___V46*/ meltfptr[40] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5169:/ clear"); + /*clear *//*_.IFCPP___V58*/ meltfptr[40] = 0; } ; } ; { - MELT_LOCATION ("warmelt-outobj.melt:5193:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5189:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) - ( /*_.DECLBUF__V24*/ meltfptr[22]), (0), 0); + ( /*_.DECLBUF__V28*/ meltfptr[26]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5194:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5190:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) - ( /*_.DECLBUF__V24*/ meltfptr[22]), (0), 0); + ( /*_.DECLBUF__V28*/ meltfptr[26]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5195:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5191:/ locexp"); /*add2sbuf_strconst */ - meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V24*/ meltfptr[22]), + meltgc_add_strbuf ((melt_ptr_t) ( /*_.DECLBUF__V28*/ meltfptr[26]), ("struct melt_callframe_st; /*defined in melt-runtime.h*/")); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5196:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5192:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) - ( /*_.DECLBUF__V24*/ meltfptr[22]), (0), 0); + ( /*_.DECLBUF__V28*/ meltfptr[26]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5197:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5193:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) - ( /*_.DECLBUF__V24*/ meltfptr[22]), (0), 0); + ( /*_.DECLBUF__V28*/ meltfptr[26]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5198:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5194:/ locexp"); meltgc_prepend_list ((melt_ptr_t) ( /*_.XLIST__V2*/ meltfptr[1]), - (melt_ptr_t) ( /*_.UCMEB1__V33*/ meltfptr[32])); + (melt_ptr_t) ( /*_.UCMEB1__V37*/ meltfptr[36])); + } + ; + MELT_LOCATION ("warmelt-outobj.melt:5199:/ quasiblock"); + + + /*^newclosure */ + /*newclosure *//*_.LAMBDA___V63*/ meltfptr[48] = + (melt_ptr_t) + meltgc_new_closure ((meltobject_ptr_t) + (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))), + (meltroutine_ptr_t) (( /*!konst_18 */ meltfrout-> + tabval[18])), (5)); + ; + /*^putclosedv */ + /*putclosv */ + melt_assertmsg ("putclosv checkclo", + melt_magic_discr ((melt_ptr_t) + ( /*_.LAMBDA___V63*/ meltfptr[48])) == + MELTOBMAG_CLOSURE); + melt_assertmsg ("putclosv checkoff", 0 >= 0 + && 0 < + melt_closure_size ((melt_ptr_t) + ( /*_.LAMBDA___V63*/ meltfptr[48]))); + ((meltclosure_ptr_t) /*_.LAMBDA___V63*/ meltfptr[48])->tabval[0] = + (melt_ptr_t) ( /*_.DECLBUF__V28*/ meltfptr[26]); + ; + /*^putclosedv */ + /*putclosv */ + melt_assertmsg ("putclosv checkclo", + melt_magic_discr ((melt_ptr_t) + ( /*_.LAMBDA___V63*/ meltfptr[48])) == + MELTOBMAG_CLOSURE); + melt_assertmsg ("putclosv checkoff", 1 >= 0 + && 1 < + melt_closure_size ((melt_ptr_t) + ( /*_.LAMBDA___V63*/ meltfptr[48]))); + ((meltclosure_ptr_t) /*_.LAMBDA___V63*/ meltfptr[48])->tabval[1] = + (melt_ptr_t) ( /*_.INIENV__V6*/ meltfptr[5]); + ; + /*^putclosedv */ + /*putclosv */ + melt_assertmsg ("putclosv checkclo", + melt_magic_discr ((melt_ptr_t) + ( /*_.LAMBDA___V63*/ meltfptr[48])) == + MELTOBMAG_CLOSURE); + melt_assertmsg ("putclosv checkoff", 2 >= 0 + && 2 < + melt_closure_size ((melt_ptr_t) + ( /*_.LAMBDA___V63*/ meltfptr[48]))); + ((meltclosure_ptr_t) /*_.LAMBDA___V63*/ meltfptr[48])->tabval[2] = + (melt_ptr_t) ( /*_.NCX__V5*/ meltfptr[4]); + ; + /*^putclosedv */ + /*putclosv */ + melt_assertmsg ("putclosv checkclo", + melt_magic_discr ((melt_ptr_t) + ( /*_.LAMBDA___V63*/ meltfptr[48])) == + MELTOBMAG_CLOSURE); + melt_assertmsg ("putclosv checkoff", 3 >= 0 + && 3 < + melt_closure_size ((melt_ptr_t) + ( /*_.LAMBDA___V63*/ meltfptr[48]))); + ((meltclosure_ptr_t) /*_.LAMBDA___V63*/ meltfptr[48])->tabval[3] = + (melt_ptr_t) ( /*_.INIPROC__V35*/ meltfptr[34]); + ; + /*^putclosedv */ + /*putclosv */ + melt_assertmsg ("putclosv checkclo", + melt_magic_discr ((melt_ptr_t) + ( /*_.LAMBDA___V63*/ meltfptr[48])) == + MELTOBMAG_CLOSURE); + melt_assertmsg ("putclosv checkoff", 4 >= 0 + && 4 < + melt_closure_size ((melt_ptr_t) + ( /*_.LAMBDA___V63*/ meltfptr[48]))); + ((meltclosure_ptr_t) /*_.LAMBDA___V63*/ meltfptr[48])->tabval[4] = + (melt_ptr_t) ( /*_.NORMLIST__V26*/ meltfptr[22]); + ; + /*_.LAMBDA___V62*/ meltfptr[55] = /*_.LAMBDA___V63*/ meltfptr[48];; + MELT_LOCATION ("warmelt-outobj.melt:5197:/ checksignal"); + MELT_CHECK_SIGNAL (); + ; + /*^apply */ + /*apply */ + { + union meltparam_un argtab[1]; + memset (&argtab, 0, sizeof (argtab)); + /*^apply.arg */ + argtab[0].meltbp_aptr = + (melt_ptr_t *) & /*_.LAMBDA___V62*/ meltfptr[55]; + /*_.LIST_EVERY__V64*/ meltfptr[40] = + melt_apply ((meltclosure_ptr_t) + (( /*!LIST_EVERY */ meltfrout->tabval[10])), + (melt_ptr_t) ( /*_.XLIST__V2*/ meltfptr[1]), + (MELTBPARSTR_PTR ""), argtab, "", + (union meltparam_un *) 0); } ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5199:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5231:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3846,7 +4283,7 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - /*_#MELT_NEED_DBG__L17*/ meltfnum[9] = + /*_#MELT_NEED_DBG__L23*/ meltfnum[17] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -3854,22 +4291,22 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5199:/ cond"); - /*cond */ if ( /*_#MELT_NEED_DBG__L17*/ meltfnum[9]) /*then */ + MELT_LOCATION ("warmelt-outobj.melt:5231:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L23*/ meltfnum[17]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { - /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[13] = + /*_#THE_MELTCALLCOUNT__L24*/ meltfnum[12] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5199:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5231:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3879,23 +4316,23 @@ lab_endgetargs:; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = - /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[13]; + /*_#THE_MELTCALLCOUNT__L24*/ meltfnum[12]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5199; + argtab[2].meltbp_long = 5231; /*^apply.arg */ argtab[3].meltbp_cstring = - "normadeclb_macroexpanded_list xlist="; + "normadeclb_macroexpanded_list @@cheadlist="; /*^apply.arg */ argtab[4].meltbp_aptr = - (melt_ptr_t *) & /*_.XLIST__V2*/ meltfptr[1]; + (melt_ptr_t *) & /*_.CHEADLIST__V36*/ meltfptr[35]; /*^apply.arg */ - argtab[5].meltbp_cstring = " inienv="; + argtab[5].meltbp_cstring = "\n modctx="; /*^apply.arg */ argtab[6].meltbp_aptr = - (melt_ptr_t *) & /*_.INIENV__V6*/ meltfptr[5]; - /*_.MELT_DEBUG_FUN__V52*/ meltfptr[40] = + (melt_ptr_t *) & /*_.MODCTX__V4*/ meltfptr[3]; + /*_.MELT_DEBUG_FUN__V67*/ meltfptr[66] = melt_apply ((meltclosure_ptr_t) (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])), (melt_ptr_t) (( /*nil */ NULL)), @@ -3906,48 +4343,48 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - /*_.IF___V51*/ meltfptr[36] = - /*_.MELT_DEBUG_FUN__V52*/ meltfptr[40];; + /*_.IF___V66*/ meltfptr[65] = + /*_.MELT_DEBUG_FUN__V67*/ meltfptr[66];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5199:/ clear"); - /*clear *//*_#THE_MELTCALLCOUNT__L18*/ meltfnum[13] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5231:/ clear"); + /*clear *//*_#THE_MELTCALLCOUNT__L24*/ meltfnum[12] = 0; /*^clear */ - /*clear *//*_.MELT_DEBUG_FUN__V52*/ meltfptr[40] = 0; + /*clear *//*_.MELT_DEBUG_FUN__V67*/ meltfptr[66] = 0; } ; } else { /*^cond.else */ - /*_.IF___V51*/ meltfptr[36] = NULL;; + /*_.IF___V66*/ meltfptr[65] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5199:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5231:/ quasiblock"); - /*_.PROGN___V53*/ meltfptr[40] = /*_.IF___V51*/ meltfptr[36];; + /*_.PROGN___V68*/ meltfptr[66] = /*_.IF___V66*/ meltfptr[65];; /*^compute */ - /*_.IFCPP___V50*/ meltfptr[35] = /*_.PROGN___V53*/ meltfptr[40];; + /*_.IFCPP___V65*/ meltfptr[64] = /*_.PROGN___V68*/ meltfptr[66];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5199:/ clear"); - /*clear *//*_#MELT_NEED_DBG__L17*/ meltfnum[9] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5231:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L23*/ meltfnum[17] = 0; /*^clear */ - /*clear *//*_.IF___V51*/ meltfptr[36] = 0; + /*clear *//*_.IF___V66*/ meltfptr[65] = 0; /*^clear */ - /*clear *//*_.PROGN___V53*/ meltfptr[40] = 0; + /*clear *//*_.PROGN___V68*/ meltfptr[66] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V50*/ meltfptr[35] = ( /*nil */ NULL); + /*_.IFCPP___V65*/ meltfptr[64] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5201:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5233:/ quasiblock"); - MELT_LOCATION ("warmelt-outobj.melt:5202:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5234:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3957,21 +4394,21 @@ lab_endgetargs:; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = - (melt_ptr_t *) & ( /*!DISCR_MULTIPLE */ meltfrout->tabval[11]); - /*_.CHEADTUP__V54*/ meltfptr[36] = + (melt_ptr_t *) & ( /*!DISCR_MULTIPLE */ meltfrout->tabval[20]); + /*_.CHEADTUP__V70*/ meltfptr[66] = melt_apply ((meltclosure_ptr_t) - (( /*!LIST_TO_MULTIPLE */ meltfrout->tabval[10])), - (melt_ptr_t) ( /*_.CHEADLIST__V32*/ meltfptr[31]), + (( /*!LIST_TO_MULTIPLE */ meltfrout->tabval[19])), + (melt_ptr_t) ( /*_.CHEADLIST__V36*/ meltfptr[35]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; - /*_#NBCHEAD__L19*/ meltfnum[13] = + /*_#NBCHEAD__L25*/ meltfnum[12] = (melt_multiple_length - ((melt_ptr_t) ( /*_.CHEADTUP__V54*/ meltfptr[36])));; + ((melt_ptr_t) ( /*_.CHEADTUP__V70*/ meltfptr[66])));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5205:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5237:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3989,7 +4426,7 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - /*_#MELT_NEED_DBG__L20*/ meltfnum[9] = + /*_#MELT_NEED_DBG__L26*/ meltfnum[17] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -3997,102 +4434,108 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5205:/ cond"); - /*cond */ if ( /*_#MELT_NEED_DBG__L20*/ meltfnum[9]) /*then */ + MELT_LOCATION ("warmelt-outobj.melt:5237:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L26*/ meltfnum[17]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { - /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[20] = + /*_#THE_MELTCALLCOUNT__L27*/ meltfnum[26] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5205:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5237:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { - union meltparam_un argtab[7]; + union meltparam_un argtab[9]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = - /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[20]; + /*_#THE_MELTCALLCOUNT__L27*/ meltfnum[26]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5205; + argtab[2].meltbp_long = 5237; /*^apply.arg */ argtab[3].meltbp_cstring = "normadeclb_macroexpanded_list cheadtup="; /*^apply.arg */ argtab[4].meltbp_aptr = - (melt_ptr_t *) & /*_.CHEADTUP__V54*/ meltfptr[36]; + (melt_ptr_t *) & /*_.CHEADTUP__V70*/ meltfptr[66]; /*^apply.arg */ argtab[5].meltbp_cstring = "\n nbchead="; /*^apply.arg */ - argtab[6].meltbp_long = /*_#NBCHEAD__L19*/ meltfnum[13]; - /*_.MELT_DEBUG_FUN__V57*/ meltfptr[56] = + argtab[6].meltbp_long = /*_#NBCHEAD__L25*/ meltfnum[12]; + /*^apply.arg */ + argtab[7].meltbp_cstring = "\n @@cheadlist="; + /*^apply.arg */ + argtab[8].meltbp_aptr = + (melt_ptr_t *) & /*_.CHEADLIST__V36*/ meltfptr[35]; + /*_.MELT_DEBUG_FUN__V73*/ meltfptr[72] = 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_LONG ""), argtab, "", + MELTBPARSTR_LONG MELTBPARSTR_CSTRING + MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; - /*_.IF___V56*/ meltfptr[55] = - /*_.MELT_DEBUG_FUN__V57*/ meltfptr[56];; + /*_.IF___V72*/ meltfptr[71] = + /*_.MELT_DEBUG_FUN__V73*/ meltfptr[72];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5205:/ clear"); - /*clear *//*_#THE_MELTCALLCOUNT__L21*/ meltfnum[20] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5237:/ clear"); + /*clear *//*_#THE_MELTCALLCOUNT__L27*/ meltfnum[26] = 0; /*^clear */ - /*clear *//*_.MELT_DEBUG_FUN__V57*/ meltfptr[56] = 0; + /*clear *//*_.MELT_DEBUG_FUN__V73*/ meltfptr[72] = 0; } ; } else { /*^cond.else */ - /*_.IF___V56*/ meltfptr[55] = NULL;; + /*_.IF___V72*/ meltfptr[71] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5205:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5237:/ quasiblock"); - /*_.PROGN___V58*/ meltfptr[56] = /*_.IF___V56*/ meltfptr[55];; + /*_.PROGN___V74*/ meltfptr[72] = /*_.IF___V72*/ meltfptr[71];; /*^compute */ - /*_.IFCPP___V55*/ meltfptr[40] = /*_.PROGN___V58*/ meltfptr[56];; + /*_.IFCPP___V71*/ meltfptr[70] = /*_.PROGN___V74*/ meltfptr[72];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5205:/ clear"); - /*clear *//*_#MELT_NEED_DBG__L20*/ meltfnum[9] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5237:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L26*/ meltfnum[17] = 0; /*^clear */ - /*clear *//*_.IF___V56*/ meltfptr[55] = 0; + /*clear *//*_.IF___V72*/ meltfptr[71] = 0; /*^clear */ - /*clear *//*_.PROGN___V58*/ meltfptr[56] = 0; + /*clear *//*_.PROGN___V74*/ meltfptr[72] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V55*/ meltfptr[40] = ( /*nil */ NULL); + /*_.IFCPP___V71*/ meltfptr[70] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5206:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5239:/ checksignal"); MELT_CHECK_SIGNAL (); ; - /*_#I__L22*/ meltfnum[20] = - (( /*_#NBCHEAD__L19*/ meltfnum[13]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:5206:/ cond"); - /*cond */ if ( /*_#I__L22*/ meltfnum[20]) /*then */ + /*_#I__L28*/ meltfnum[26] = + (( /*_#NBCHEAD__L25*/ meltfnum[12]) > (0));; + MELT_LOCATION ("warmelt-outobj.melt:5239:/ cond"); + /*cond */ if ( /*_#I__L28*/ meltfnum[26]) /*then */ { /*^cond.then */ /*^block */ @@ -4101,21 +4544,21 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:5208:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5241:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) - ( /*_.DECLBUF__V24*/ meltfptr[22]), (0), + ( /*_.DECLBUF__V28*/ meltfptr[26]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5209:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5242:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) - ( /*_.DECLBUF__V24*/ meltfptr[22]), (0), + ( /*_.DECLBUF__V28*/ meltfptr[26]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5210:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5243:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4126,13 +4569,13 @@ lab_endgetargs:; /*^apply.arg */ argtab[0].meltbp_cstring = "/***** "; /*^apply.arg */ - argtab[1].meltbp_long = /*_#NBCHEAD__L19*/ meltfnum[13]; + argtab[1].meltbp_long = /*_#NBCHEAD__L25*/ meltfnum[12]; /*^apply.arg */ argtab[2].meltbp_cstring = " extra C headers *****/"; - /*_.ADD2OUT__V59*/ meltfptr[55] = + /*_.ADD2OUT__V75*/ meltfptr[71] = melt_apply ((meltclosure_ptr_t) - (( /*!ADD2OUT */ meltfrout->tabval[12])), - (melt_ptr_t) ( /*_.DECLBUF__V24*/ meltfptr[22]), + (( /*!ADD2OUT */ meltfrout->tabval[21])), + (melt_ptr_t) ( /*_.DECLBUF__V28*/ meltfptr[26]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); @@ -4140,17 +4583,17 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5211:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5244:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) - ( /*_.DECLBUF__V24*/ meltfptr[22]), (0), + ( /*_.DECLBUF__V28*/ meltfptr[26]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5212:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5245:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) - ( /*_.DECLBUF__V24*/ meltfptr[22]), (0), + ( /*_.DECLBUF__V28*/ meltfptr[26]), (0), 0); } ; @@ -4158,23 +4601,23 @@ lab_endgetargs:; { /* start foreach_in_multiple meltcit1__EACHTUP */ long meltcit1__EACHTUP_ln = - melt_multiple_length ((melt_ptr_t) /*_.CHEADTUP__V54*/ - meltfptr[36]); - for ( /*_#HIX__L23*/ meltfnum[9] = 0; - ( /*_#HIX__L23*/ meltfnum[9] >= 0) - && ( /*_#HIX__L23*/ meltfnum[9] < meltcit1__EACHTUP_ln); - /*_#HIX__L23*/ meltfnum[9]++) + melt_multiple_length ((melt_ptr_t) /*_.CHEADTUP__V70*/ + meltfptr[66]); + for ( /*_#HIX__L29*/ meltfnum[17] = 0; + ( /*_#HIX__L29*/ meltfnum[17] >= 0) + && ( /*_#HIX__L29*/ meltfnum[17] < meltcit1__EACHTUP_ln); + /*_#HIX__L29*/ meltfnum[17]++) { - /*_.CURCHEAD__V60*/ meltfptr[56] = + /*_.CURCHEAD__V76*/ meltfptr[72] = melt_multiple_nth ((melt_ptr_t) - ( /*_.CHEADTUP__V54*/ meltfptr[36]), - /*_#HIX__L23*/ meltfnum[9]); + ( /*_.CHEADTUP__V70*/ meltfptr[66]), + /*_#HIX__L29*/ meltfnum[17]); #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5216:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5249:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4192,7 +4635,7 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - /*_#MELT_NEED_DBG__L24*/ meltfnum[23] = + /*_#MELT_NEED_DBG__L30*/ meltfnum[29] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -4200,15 +4643,15 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5216:/ cond"); - /*cond */ if ( /*_#MELT_NEED_DBG__L24*/ meltfnum[23]) /*then */ + MELT_LOCATION ("warmelt-outobj.melt:5249:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L30*/ meltfnum[29]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { - /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[24] = + /*_#THE_MELTCALLCOUNT__L31*/ meltfnum[30] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else @@ -4216,7 +4659,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-outobj.melt:5216:/ checksignal"); + ("warmelt-outobj.melt:5249:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4226,22 +4669,22 @@ lab_endgetargs:; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = - /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[24]; + /*_#THE_MELTCALLCOUNT__L31*/ meltfnum[30]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5216; + argtab[2].meltbp_long = 5249; /*^apply.arg */ argtab[3].meltbp_cstring = "normadeclb_macroexpanded_list curchead="; /*^apply.arg */ argtab[4].meltbp_aptr = - (melt_ptr_t *) & /*_.CURCHEAD__V60*/ meltfptr[56]; + (melt_ptr_t *) & /*_.CURCHEAD__V76*/ meltfptr[72]; /*^apply.arg */ argtab[5].meltbp_cstring = " hix="; /*^apply.arg */ - argtab[6].meltbp_long = /*_#HIX__L23*/ meltfnum[9]; - /*_.MELT_DEBUG_FUN__V63*/ meltfptr[62] = + argtab[6].meltbp_long = /*_#HIX__L29*/ meltfnum[17]; + /*_.MELT_DEBUG_FUN__V79*/ meltfptr[78] = melt_apply ((meltclosure_ptr_t) (( /*!MELT_DEBUG_FUN */ meltfrout-> tabval[0])), @@ -4253,50 +4696,50 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - /*_.IF___V62*/ meltfptr[61] = - /*_.MELT_DEBUG_FUN__V63*/ meltfptr[62];; + /*_.IF___V78*/ meltfptr[77] = + /*_.MELT_DEBUG_FUN__V79*/ meltfptr[78];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5216:/ clear"); - /*clear *//*_#THE_MELTCALLCOUNT__L25*/ meltfnum[24] = + MELT_LOCATION ("warmelt-outobj.melt:5249:/ clear"); + /*clear *//*_#THE_MELTCALLCOUNT__L31*/ meltfnum[30] = 0; /*^clear */ - /*clear *//*_.MELT_DEBUG_FUN__V63*/ meltfptr[62] = 0; + /*clear *//*_.MELT_DEBUG_FUN__V79*/ meltfptr[78] = 0; } ; } else { /*^cond.else */ - /*_.IF___V62*/ meltfptr[61] = NULL;; + /*_.IF___V78*/ meltfptr[77] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5216:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5249:/ quasiblock"); - /*_.PROGN___V64*/ meltfptr[62] = - /*_.IF___V62*/ meltfptr[61];; + /*_.PROGN___V80*/ meltfptr[78] = + /*_.IF___V78*/ meltfptr[77];; /*^compute */ - /*_.IFCPP___V61*/ meltfptr[60] = - /*_.PROGN___V64*/ meltfptr[62];; + /*_.IFCPP___V77*/ meltfptr[76] = + /*_.PROGN___V80*/ meltfptr[78];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5216:/ clear"); - /*clear *//*_#MELT_NEED_DBG__L24*/ meltfnum[23] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5249:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L30*/ meltfnum[29] = 0; /*^clear */ - /*clear *//*_.IF___V62*/ meltfptr[61] = 0; + /*clear *//*_.IF___V78*/ meltfptr[77] = 0; /*^clear */ - /*clear *//*_.PROGN___V64*/ meltfptr[62] = 0; + /*clear *//*_.PROGN___V80*/ meltfptr[78] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V61*/ meltfptr[60] = ( /*nil */ NULL); + /*_.IFCPP___V77*/ meltfptr[76] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5217:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5250:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4304,19 +4747,19 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - /*_#IS_A__L26*/ meltfnum[24] = + /*_#IS_A__L32*/ meltfnum[30] = melt_is_instance_of ((melt_ptr_t) - ( /*_.CURCHEAD__V60*/ meltfptr[56]), - (melt_ptr_t) (( /*!CLASS_SOURCE_CHEADER */ meltfrout->tabval[13])));; - MELT_LOCATION ("warmelt-outobj.melt:5217:/ cond"); - /*cond */ if ( /*_#IS_A__L26*/ meltfnum[24]) /*then */ + ( /*_.CURCHEAD__V76*/ meltfptr[72]), + (melt_ptr_t) (( /*!CLASS_SOURCE_CHEADER */ meltfrout->tabval[22])));; + MELT_LOCATION ("warmelt-outobj.melt:5250:/ cond"); + /*cond */ if ( /*_#IS_A__L32*/ meltfnum[30]) /*then */ { /*^cond.then */ - /*_.IFELSE___V66*/ meltfptr[62] = ( /*nil */ NULL);; + /*_.IFELSE___V82*/ meltfptr[78] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-outobj.melt:5217:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5250:/ cond.else"); /*^block */ /*anyblock */ @@ -4331,42 +4774,42 @@ lab_endgetargs:; ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5217) ? (5217) : __LINE__, + (5250) ? (5250) : __LINE__, __FUNCTION__); ; } ; - /*clear *//*_.IFELSE___V66*/ meltfptr[62] = 0; + /*clear *//*_.IFELSE___V82*/ meltfptr[78] = 0; /*epilog */ } ; } ; /*^compute */ - /*_.IFCPP___V65*/ meltfptr[61] = - /*_.IFELSE___V66*/ meltfptr[62];; + /*_.IFCPP___V81*/ meltfptr[77] = + /*_.IFELSE___V82*/ meltfptr[78];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5217:/ clear"); - /*clear *//*_#IS_A__L26*/ meltfnum[24] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5250:/ clear"); + /*clear *//*_#IS_A__L32*/ meltfnum[30] = 0; /*^clear */ - /*clear *//*_.IFELSE___V66*/ meltfptr[62] = 0; + /*clear *//*_.IFELSE___V82*/ meltfptr[78] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V65*/ meltfptr[61] = ( /*nil */ NULL); + /*_.IFCPP___V81*/ meltfptr[77] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; { - MELT_LOCATION ("warmelt-outobj.melt:5218:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5251:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) - ( /*_.DECLBUF__V24*/ - meltfptr[22]), (0), 0); + ( /*_.DECLBUF__V28*/ + meltfptr[26]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5219:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5252:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4377,14 +4820,14 @@ lab_endgetargs:; /*^apply.arg */ argtab[0].meltbp_cstring = "/** header #"; /*^apply.arg */ - argtab[1].meltbp_long = /*_#HIX__L23*/ meltfnum[9]; + argtab[1].meltbp_long = /*_#HIX__L29*/ meltfnum[17]; /*^apply.arg */ argtab[2].meltbp_cstring = ": **/"; - /*_.ADD2OUT__V67*/ meltfptr[62] = + /*_.ADD2OUT__V83*/ meltfptr[78] = melt_apply ((meltclosure_ptr_t) - (( /*!ADD2OUT */ meltfrout->tabval[12])), - (melt_ptr_t) ( /*_.DECLBUF__V24*/ - meltfptr[22]), + (( /*!ADD2OUT */ meltfrout->tabval[21])), + (melt_ptr_t) ( /*_.DECLBUF__V28*/ + meltfptr[26]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); @@ -4392,21 +4835,21 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5220:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5253:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) - ( /*_.DECLBUF__V24*/ - meltfptr[22]), (0), 0); + ( /*_.DECLBUF__V28*/ + meltfptr[26]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5221:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5254:/ quasiblock"); /*^cond */ /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) - ( /*_.CURCHEAD__V60*/ - meltfptr[56]), + ( /*_.CURCHEAD__V76*/ + meltfptr[72]), (melt_ptr_t) (( /*!CLASS_LOCATED */ meltfrout->tabval[6]))) ) /*then */ { @@ -4415,26 +4858,26 @@ lab_endgetargs:; { melt_ptr_t slot = NULL, obj = NULL; obj = - (melt_ptr_t) ( /*_.CURCHEAD__V60*/ meltfptr[56]) + (melt_ptr_t) ( /*_.CURCHEAD__V76*/ meltfptr[72]) /*=obj*/ ; melt_object_get_field (slot, obj, 1, "LOCA_LOCATION"); - /*_.HLOC__V68*/ meltfptr[67] = slot; + /*_.HLOC__V84*/ meltfptr[83] = slot; }; ; } else { /*^cond.else */ - /*_.HLOC__V68*/ meltfptr[67] = NULL;; + /*_.HLOC__V84*/ meltfptr[83] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5222:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5255:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) - ( /*_.CURCHEAD__V60*/ - meltfptr[56]), - (melt_ptr_t) (( /*!CLASS_SOURCE_CHEADER */ meltfrout->tabval[13]))) + ( /*_.CURCHEAD__V76*/ + meltfptr[72]), + (melt_ptr_t) (( /*!CLASS_SOURCE_CHEADER */ meltfrout->tabval[22]))) ) /*then */ { /*^cond.then */ @@ -4442,25 +4885,25 @@ lab_endgetargs:; { melt_ptr_t slot = NULL, obj = NULL; obj = - (melt_ptr_t) ( /*_.CURCHEAD__V60*/ meltfptr[56]) + (melt_ptr_t) ( /*_.CURCHEAD__V76*/ meltfptr[72]) /*=obj*/ ; melt_object_get_field (slot, obj, 2, "SCHEADER_CODESTRING"); - /*_.CHSTR__V69*/ meltfptr[68] = slot; + /*_.CHSTR__V85*/ meltfptr[84] = slot; }; ; } else { /*^cond.else */ - /*_.CHSTR__V69*/ meltfptr[68] = NULL;; + /*_.CHSTR__V85*/ meltfptr[84] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5224:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5257:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ - /*cond */ if ( /*_.HLOC__V68*/ meltfptr[67]) /*then */ + /*cond */ if ( /*_.HLOC__V84*/ meltfptr[83]) /*then */ { /*^cond.then */ /*^block */ @@ -4468,7 +4911,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:5225:/ checksignal"); + ("warmelt-outobj.melt:5258:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4478,28 +4921,28 @@ lab_endgetargs:; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = - (melt_ptr_t *) & /*_.DECLBUF__V24*/ meltfptr[22]; + (melt_ptr_t *) & /*_.DECLBUF__V28*/ meltfptr[26]; /*^apply.arg */ argtab[1].meltbp_long = 0; /*^apply.arg */ argtab[2].meltbp_cstring = "cheader"; - /*_.OUTPUT_RAW_LOCATION__V71*/ meltfptr[70] = + /*_.OUTPUT_RAW_LOCATION__V87*/ meltfptr[86] = melt_apply ((meltclosure_ptr_t) (( /*!OUTPUT_RAW_LOCATION */ meltfrout-> - tabval[14])), - (melt_ptr_t) ( /*_.HLOC__V68*/ - meltfptr[67]), + tabval[23])), + (melt_ptr_t) ( /*_.HLOC__V84*/ + meltfptr[83]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } ; - /*_.IF___V70*/ meltfptr[69] = - /*_.OUTPUT_RAW_LOCATION__V71*/ meltfptr[70];; + /*_.IF___V86*/ meltfptr[85] = + /*_.OUTPUT_RAW_LOCATION__V87*/ meltfptr[86];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5224:/ clear"); - /*clear *//*_.OUTPUT_RAW_LOCATION__V71*/ meltfptr[70] = + MELT_LOCATION ("warmelt-outobj.melt:5257:/ clear"); + /*clear *//*_.OUTPUT_RAW_LOCATION__V87*/ meltfptr[86] = 0; } ; @@ -4507,10 +4950,10 @@ lab_endgetargs:; else { /*^cond.else */ - /*_.IF___V70*/ meltfptr[69] = NULL;; + /*_.IF___V86*/ meltfptr[85] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5226:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5259:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4520,68 +4963,68 @@ lab_endgetargs:; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = - (melt_ptr_t *) & /*_.CHSTR__V69*/ meltfptr[68]; - /*_.ADD2OUT__V72*/ meltfptr[70] = + (melt_ptr_t *) & /*_.CHSTR__V85*/ meltfptr[84]; + /*_.ADD2OUT__V88*/ meltfptr[86] = melt_apply ((meltclosure_ptr_t) - (( /*!ADD2OUT */ meltfrout->tabval[12])), - (melt_ptr_t) ( /*_.DECLBUF__V24*/ - meltfptr[22]), + (( /*!ADD2OUT */ meltfrout->tabval[21])), + (melt_ptr_t) ( /*_.DECLBUF__V28*/ + meltfptr[26]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5227:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5260:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) - ( /*_.DECLBUF__V24*/ - meltfptr[22]), (0), 0); + ( /*_.DECLBUF__V28*/ + meltfptr[26]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5221:/ clear"); - /*clear *//*_.HLOC__V68*/ meltfptr[67] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5254:/ clear"); + /*clear *//*_.HLOC__V84*/ meltfptr[83] = 0; /*^clear */ - /*clear *//*_.CHSTR__V69*/ meltfptr[68] = 0; + /*clear *//*_.CHSTR__V85*/ meltfptr[84] = 0; /*^clear */ - /*clear *//*_.IF___V70*/ meltfptr[69] = 0; + /*clear *//*_.IF___V86*/ meltfptr[85] = 0; /*^clear */ - /*clear *//*_.ADD2OUT__V72*/ meltfptr[70] = 0; - if ( /*_#HIX__L23*/ meltfnum[9] < 0) + /*clear *//*_.ADD2OUT__V88*/ meltfptr[86] = 0; + if ( /*_#HIX__L29*/ meltfnum[17] < 0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:5213:/ clear"); - /*clear *//*_.CURCHEAD__V60*/ meltfptr[56] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5246:/ clear"); + /*clear *//*_.CURCHEAD__V76*/ meltfptr[72] = 0; /*^clear */ - /*clear *//*_#HIX__L23*/ meltfnum[9] = 0; + /*clear *//*_#HIX__L29*/ meltfnum[17] = 0; /*^clear */ - /*clear *//*_.IFCPP___V61*/ meltfptr[60] = 0; + /*clear *//*_.IFCPP___V77*/ meltfptr[76] = 0; /*^clear */ - /*clear *//*_.IFCPP___V65*/ meltfptr[61] = 0; + /*clear *//*_.IFCPP___V81*/ meltfptr[77] = 0; /*^clear */ - /*clear *//*_.ADD2OUT__V67*/ meltfptr[62] = 0; + /*clear *//*_.ADD2OUT__V83*/ meltfptr[78] = 0; } /*endciterblock FOREACH_IN_MULTIPLE */ ; { - MELT_LOCATION ("warmelt-outobj.melt:5230:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5263:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) - ( /*_.DECLBUF__V24*/ meltfptr[22]), (0), + ( /*_.DECLBUF__V28*/ meltfptr[26]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5231:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5264:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) - ( /*_.DECLBUF__V24*/ meltfptr[22]), (0), + ( /*_.DECLBUF__V28*/ meltfptr[26]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5232:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5265:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4592,13 +5035,13 @@ lab_endgetargs:; /*^apply.arg */ argtab[0].meltbp_cstring = "/***** end of "; /*^apply.arg */ - argtab[1].meltbp_long = /*_#NBCHEAD__L19*/ meltfnum[13]; + argtab[1].meltbp_long = /*_#NBCHEAD__L25*/ meltfnum[12]; /*^apply.arg */ argtab[2].meltbp_cstring = " extra C headers *****/"; - /*_.ADD2OUT__V73*/ meltfptr[67] = + /*_.ADD2OUT__V89*/ meltfptr[83] = melt_apply ((meltclosure_ptr_t) - (( /*!ADD2OUT */ meltfrout->tabval[12])), - (melt_ptr_t) ( /*_.DECLBUF__V24*/ meltfptr[22]), + (( /*!ADD2OUT */ meltfrout->tabval[21])), + (melt_ptr_t) ( /*_.DECLBUF__V28*/ meltfptr[26]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); @@ -4606,45 +5049,161 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5233:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5266:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) - ( /*_.DECLBUF__V24*/ meltfptr[22]), (0), + ( /*_.DECLBUF__V28*/ meltfptr[26]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5234:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5267:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) - ( /*_.DECLBUF__V24*/ meltfptr[22]), (0), + ( /*_.DECLBUF__V28*/ meltfptr[26]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5207:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5240:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5206:/ clear"); - /*clear *//*_.ADD2OUT__V59*/ meltfptr[55] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5239:/ clear"); + /*clear *//*_.ADD2OUT__V75*/ meltfptr[71] = 0; /*^clear */ - /*clear *//*_.ADD2OUT__V73*/ meltfptr[67] = 0; + /*clear *//*_.ADD2OUT__V89*/ meltfptr[83] = 0; } ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:5201:/ clear"); - /*clear *//*_.CHEADTUP__V54*/ meltfptr[36] = 0; +#if MELT_HAVE_DEBUG + MELT_LOCATION ("warmelt-outobj.melt:5269:/ cppif.then"); + /*^block */ + /*anyblock */ + { + + + { + /*^locexp */ + /*melt_increment_dbgcounter */ +#if MELT_HAVE_DEBUG + melt_dbgcounter++; +#endif + ; + } + ; + /*^checksignal */ + MELT_CHECK_SIGNAL (); + ; + /*_#MELT_NEED_DBG__L33*/ meltfnum[29] = + /*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-outobj.melt:5269:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L33*/ meltfnum[29]) /*then */ + { + /*^cond.then */ + /*^block */ + /*anyblock */ + { + + /*_#THE_MELTCALLCOUNT__L34*/ meltfnum[30] = +#ifdef meltcallcount + meltcallcount /* the_meltcallcount */ +#else + 0L +#endif /* meltcallcount the_meltcallcount */ + ;; + MELT_LOCATION ("warmelt-outobj.melt:5269:/ checksignal"); + MELT_CHECK_SIGNAL (); + ; + /*^apply */ + /*apply */ + { + union meltparam_un argtab[5]; + memset (&argtab, 0, sizeof (argtab)); + /*^apply.arg */ + argtab[0].meltbp_long = + /*_#THE_MELTCALLCOUNT__L34*/ meltfnum[30]; + /*^apply.arg */ + argtab[1].meltbp_cstring = "warmelt-outobj.melt"; + /*^apply.arg */ + argtab[2].meltbp_long = 5269; + /*^apply.arg */ + argtab[3].meltbp_cstring = + "normadeclb_macroexpanded_list @@cheadlist="; + /*^apply.arg */ + argtab[4].meltbp_aptr = + (melt_ptr_t *) & /*_.CHEADLIST__V36*/ meltfptr[35]; + /*_.MELT_DEBUG_FUN__V92*/ meltfptr[86] = + 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); + } + ; + /*_.IF___V91*/ meltfptr[85] = + /*_.MELT_DEBUG_FUN__V92*/ meltfptr[86];; + /*epilog */ + + MELT_LOCATION ("warmelt-outobj.melt:5269:/ clear"); + /*clear *//*_#THE_MELTCALLCOUNT__L34*/ meltfnum[30] = 0; + /*^clear */ + /*clear *//*_.MELT_DEBUG_FUN__V92*/ meltfptr[86] = 0; + } + ; + } + else + { /*^cond.else */ + + /*_.IF___V91*/ meltfptr[85] = NULL;; + } + ; + MELT_LOCATION ("warmelt-outobj.melt:5269:/ quasiblock"); + + + /*_.PROGN___V93*/ meltfptr[71] = /*_.IF___V91*/ meltfptr[85];; + /*^compute */ + /*_.IFCPP___V90*/ meltfptr[84] = /*_.PROGN___V93*/ meltfptr[71];; + /*epilog */ + + MELT_LOCATION ("warmelt-outobj.melt:5269:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L33*/ meltfnum[29] = 0; + /*^clear */ + /*clear *//*_.IF___V91*/ meltfptr[85] = 0; + /*^clear */ + /*clear *//*_.PROGN___V93*/ meltfptr[71] = 0; + } + +#else /*MELT_HAVE_DEBUG */ + /*^cppif.else */ + /*_.IFCPP___V90*/ meltfptr[84] = ( /*nil */ NULL); +#endif /*MELT_HAVE_DEBUG */ + ; + /*^compute */ + /*_.LET___V69*/ meltfptr[65] = /*_.IFCPP___V90*/ meltfptr[84];; + + MELT_LOCATION ("warmelt-outobj.melt:5233:/ clear"); + /*clear *//*_.CHEADTUP__V70*/ meltfptr[66] = 0; + /*^clear */ + /*clear *//*_#NBCHEAD__L25*/ meltfnum[12] = 0; /*^clear */ - /*clear *//*_#NBCHEAD__L19*/ meltfnum[13] = 0; + /*clear *//*_.IFCPP___V71*/ meltfptr[70] = 0; /*^clear */ - /*clear *//*_.IFCPP___V55*/ meltfptr[40] = 0; + /*clear *//*_#I__L28*/ meltfnum[26] = 0; /*^clear */ - /*clear *//*_#I__L22*/ meltfnum[20] = 0; + /*clear *//*_.IFCPP___V90*/ meltfptr[84] = 0; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5238:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5272:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4652,19 +5211,19 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - /*_#IS_A__L27*/ meltfnum[23] = - melt_is_instance_of ((melt_ptr_t) ( /*_.INIPROC__V31*/ meltfptr[30]), + /*_#IS_A__L35*/ meltfnum[30] = + melt_is_instance_of ((melt_ptr_t) ( /*_.INIPROC__V35*/ meltfptr[34]), (melt_ptr_t) (( /*!CLASS_NREP_INITPROC */ - meltfrout->tabval[15])));; - MELT_LOCATION ("warmelt-outobj.melt:5238:/ cond"); - /*cond */ if ( /*_#IS_A__L27*/ meltfnum[23]) /*then */ + meltfrout->tabval[24])));; + MELT_LOCATION ("warmelt-outobj.melt:5272:/ cond"); + /*cond */ if ( /*_#IS_A__L35*/ meltfnum[30]) /*then */ { /*^cond.then */ - /*_.IFELSE___V75*/ meltfptr[69] = ( /*nil */ NULL);; + /*_.IFELSE___V95*/ meltfptr[86] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-outobj.melt:5238:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5272:/ cond.else"); /*^block */ /*anyblock */ @@ -4678,34 +5237,34 @@ lab_endgetargs:; melt_assert_failed (("check iniproc"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5238) ? (5238) : __LINE__, __FUNCTION__); + (5272) ? (5272) : __LINE__, __FUNCTION__); ; } ; - /*clear *//*_.IFELSE___V75*/ meltfptr[69] = 0; + /*clear *//*_.IFELSE___V95*/ meltfptr[86] = 0; /*epilog */ } ; } ; /*^compute */ - /*_.IFCPP___V74*/ meltfptr[68] = /*_.IFELSE___V75*/ meltfptr[69];; + /*_.IFCPP___V94*/ meltfptr[83] = /*_.IFELSE___V95*/ meltfptr[86];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5238:/ clear"); - /*clear *//*_#IS_A__L27*/ meltfnum[23] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5272:/ clear"); + /*clear *//*_#IS_A__L35*/ meltfnum[30] = 0; /*^clear */ - /*clear *//*_.IFELSE___V75*/ meltfptr[69] = 0; + /*clear *//*_.IFELSE___V95*/ meltfptr[86] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V74*/ meltfptr[68] = ( /*nil */ NULL); + /*_.IFCPP___V94*/ meltfptr[83] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5239:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5273:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4713,18 +5272,18 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - /*_#IS_LIST__L28*/ meltfnum[24] = + /*_#IS_LIST__L36*/ meltfnum[29] = (melt_magic_discr ((melt_ptr_t) ( /*_.XLIST__V2*/ meltfptr[1])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:5239:/ cond"); - /*cond */ if ( /*_#IS_LIST__L28*/ meltfnum[24]) /*then */ + MELT_LOCATION ("warmelt-outobj.melt:5273:/ cond"); + /*cond */ if ( /*_#IS_LIST__L36*/ meltfnum[29]) /*then */ { /*^cond.then */ - /*_.IFELSE___V77*/ meltfptr[55] = ( /*nil */ NULL);; + /*_.IFELSE___V97*/ meltfptr[71] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-outobj.melt:5239:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5273:/ cond.else"); /*^block */ /*anyblock */ @@ -4738,142 +5297,46 @@ lab_endgetargs:; melt_assert_failed (("check xlist"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5239) ? (5239) : __LINE__, __FUNCTION__); + (5273) ? (5273) : __LINE__, __FUNCTION__); ; } ; - /*clear *//*_.IFELSE___V77*/ meltfptr[55] = 0; + /*clear *//*_.IFELSE___V97*/ meltfptr[71] = 0; /*epilog */ } ; } ; /*^compute */ - /*_.IFCPP___V76*/ meltfptr[70] = /*_.IFELSE___V77*/ meltfptr[55];; + /*_.IFCPP___V96*/ meltfptr[85] = /*_.IFELSE___V97*/ meltfptr[71];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5239:/ clear"); - /*clear *//*_#IS_LIST__L28*/ meltfnum[24] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5273:/ clear"); + /*clear *//*_#IS_LIST__L36*/ meltfnum[29] = 0; /*^clear */ - /*clear *//*_.IFELSE___V77*/ meltfptr[55] = 0; + /*clear *//*_.IFELSE___V97*/ meltfptr[71] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V76*/ meltfptr[70] = ( /*nil */ NULL); + /*_.IFCPP___V96*/ meltfptr[85] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5243:/ quasiblock"); - - - /*^newclosure */ - /*newclosure *//*_.LAMBDA___V79*/ meltfptr[36] = - (melt_ptr_t) - meltgc_new_closure ((meltobject_ptr_t) - (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))), - (meltroutine_ptr_t) (( /*!konst_24 */ meltfrout-> - tabval[24])), (5)); - ; - /*^putclosedv */ - /*putclosv */ - melt_assertmsg ("putclosv checkclo", - melt_magic_discr ((melt_ptr_t) - ( /*_.LAMBDA___V79*/ meltfptr[36])) == - MELTOBMAG_CLOSURE); - melt_assertmsg ("putclosv checkoff", 0 >= 0 - && 0 < - melt_closure_size ((melt_ptr_t) - ( /*_.LAMBDA___V79*/ meltfptr[36]))); - ((meltclosure_ptr_t) /*_.LAMBDA___V79*/ meltfptr[36])->tabval[0] = - (melt_ptr_t) ( /*_.DECLBUF__V24*/ meltfptr[22]); - ; - /*^putclosedv */ - /*putclosv */ - melt_assertmsg ("putclosv checkclo", - melt_magic_discr ((melt_ptr_t) - ( /*_.LAMBDA___V79*/ meltfptr[36])) == - MELTOBMAG_CLOSURE); - melt_assertmsg ("putclosv checkoff", 1 >= 0 - && 1 < - melt_closure_size ((melt_ptr_t) - ( /*_.LAMBDA___V79*/ meltfptr[36]))); - ((meltclosure_ptr_t) /*_.LAMBDA___V79*/ meltfptr[36])->tabval[1] = - (melt_ptr_t) ( /*_.INIENV__V6*/ meltfptr[5]); - ; - /*^putclosedv */ - /*putclosv */ - melt_assertmsg ("putclosv checkclo", - melt_magic_discr ((melt_ptr_t) - ( /*_.LAMBDA___V79*/ meltfptr[36])) == - MELTOBMAG_CLOSURE); - melt_assertmsg ("putclosv checkoff", 2 >= 0 - && 2 < - melt_closure_size ((melt_ptr_t) - ( /*_.LAMBDA___V79*/ meltfptr[36]))); - ((meltclosure_ptr_t) /*_.LAMBDA___V79*/ meltfptr[36])->tabval[2] = - (melt_ptr_t) ( /*_.NCX__V5*/ meltfptr[4]); - ; - /*^putclosedv */ - /*putclosv */ - melt_assertmsg ("putclosv checkclo", - melt_magic_discr ((melt_ptr_t) - ( /*_.LAMBDA___V79*/ meltfptr[36])) == - MELTOBMAG_CLOSURE); - melt_assertmsg ("putclosv checkoff", 3 >= 0 - && 3 < - melt_closure_size ((melt_ptr_t) - ( /*_.LAMBDA___V79*/ meltfptr[36]))); - ((meltclosure_ptr_t) /*_.LAMBDA___V79*/ meltfptr[36])->tabval[3] = - (melt_ptr_t) ( /*_.INIPROC__V31*/ meltfptr[30]); - ; - /*^putclosedv */ - /*putclosv */ - melt_assertmsg ("putclosv checkclo", - melt_magic_discr ((melt_ptr_t) - ( /*_.LAMBDA___V79*/ meltfptr[36])) == - MELTOBMAG_CLOSURE); - melt_assertmsg ("putclosv checkoff", 4 >= 0 - && 4 < - melt_closure_size ((melt_ptr_t) - ( /*_.LAMBDA___V79*/ meltfptr[36]))); - ((meltclosure_ptr_t) /*_.LAMBDA___V79*/ meltfptr[36])->tabval[4] = - (melt_ptr_t) ( /*_.NORMLIST__V22*/ meltfptr[21]); - ; - /*_.LAMBDA___V78*/ meltfptr[67] = /*_.LAMBDA___V79*/ meltfptr[36];; - MELT_LOCATION ("warmelt-outobj.melt:5241:/ checksignal"); - MELT_CHECK_SIGNAL (); - ; - /*^apply */ - /*apply */ - { - union meltparam_un argtab[1]; - memset (&argtab, 0, sizeof (argtab)); - /*^apply.arg */ - argtab[0].meltbp_aptr = - (melt_ptr_t *) & /*_.LAMBDA___V78*/ meltfptr[67]; - /*_.LIST_EVERY__V80*/ meltfptr[40] = - melt_apply ((meltclosure_ptr_t) - (( /*!LIST_EVERY */ meltfrout->tabval[16])), - (melt_ptr_t) ( /*_.XLIST__V2*/ meltfptr[1]), - (MELTBPARSTR_PTR ""), argtab, "", - (union meltparam_un *) 0); - } - ; - MELT_LOCATION ("warmelt-outobj.melt:5274:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5276:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ - /*_.RETVAL___V1*/ meltfptr[0] = /*_.NORMLIST__V22*/ meltfptr[21];; - MELT_LOCATION ("warmelt-outobj.melt:5274:/ putxtraresult"); + /*_.RETVAL___V1*/ meltfptr[0] = /*_.NORMLIST__V26*/ meltfptr[22];; + MELT_LOCATION ("warmelt-outobj.melt:5276:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto labend_rout; if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = - (melt_ptr_t) ( /*_.DECLBUF__V24*/ meltfptr[22]); + (melt_ptr_t) ( /*_.DECLBUF__V28*/ meltfptr[26]); ; /*^putxtraresult */ if (!meltxrestab_ || !meltxresdescr_) @@ -4881,63 +5344,70 @@ lab_endgetargs:; if (meltxresdescr_[1] != MELTBPAR_LONG) goto labend_rout; if (meltxrestab_[1].meltbp_longptr) - *(meltxrestab_[1].meltbp_longptr) = ( /*_#STARTCLOCK__L8*/ meltfnum[0]); + *(meltxrestab_[1].meltbp_longptr) = + ( /*_#STARTCLOCK__L10*/ meltfnum[1]); ; /*^finalreturn */ ; /*finalret */ goto labend_rout; - /*_.LET___V21*/ meltfptr[19] = /*_.RETURN___V81*/ meltfptr[69];; + /*_.LET___V25*/ meltfptr[21] = /*_.RETURN___V98*/ meltfptr[66];; - MELT_LOCATION ("warmelt-outobj.melt:5117:/ clear"); - /*clear *//*_#STARTCLOCK__L8*/ meltfnum[0] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5110:/ clear"); + /*clear *//*_#STARTCLOCK__L10*/ meltfnum[1] = 0; + /*^clear */ + /*clear *//*_.NORMLIST__V26*/ meltfptr[22] = 0; + /*^clear */ + /*clear *//*_.DECLBUF__V28*/ meltfptr[26] = 0; /*^clear */ - /*clear *//*_.NORMLIST__V22*/ meltfptr[21] = 0; + /*clear *//*_.LIST_FIRST__V29*/ meltfptr[28] = 0; /*^clear */ - /*clear *//*_.DECLBUF__V24*/ meltfptr[22] = 0; + /*clear *//*_.FIRSTX__V30*/ meltfptr[29] = 0; /*^clear */ - /*clear *//*_.LIST_FIRST__V25*/ meltfptr[24] = 0; + /*clear *//*_#IS_A__L11*/ meltfnum[0] = 0; /*^clear */ - /*clear *//*_.FIRSTX__V26*/ meltfptr[25] = 0; + /*clear *//*_.FIRSTLOC__V31*/ meltfptr[30] = 0; /*^clear */ - /*clear *//*_#IS_A__L9*/ meltfnum[1] = 0; + /*clear *//*_.ERRORHDLR__V33*/ meltfptr[31] = 0; /*^clear */ - /*clear *//*_.FIRSTLOC__V27*/ meltfptr[26] = 0; + /*clear *//*_.MODINIENV__V34*/ meltfptr[33] = 0; /*^clear */ - /*clear *//*_.ERRORHDLR__V29*/ meltfptr[27] = 0; + /*clear *//*_.INIPROC__V35*/ meltfptr[34] = 0; /*^clear */ - /*clear *//*_.MODINIENV__V30*/ meltfptr[29] = 0; + /*clear *//*_.CHEADLIST__V36*/ meltfptr[35] = 0; /*^clear */ - /*clear *//*_.INIPROC__V31*/ meltfptr[30] = 0; + /*clear *//*_.UCMEB1__V37*/ meltfptr[36] = 0; /*^clear */ - /*clear *//*_.CHEADLIST__V32*/ meltfptr[31] = 0; + /*clear *//*_.IFCPP___V39*/ meltfptr[38] = 0; /*^clear */ - /*clear *//*_.UCMEB1__V33*/ meltfptr[32] = 0; + /*clear *//*_.IFCPP___V43*/ meltfptr[39] = 0; /*^clear */ - /*clear *//*_.IFCPP___V35*/ meltfptr[34] = 0; + /*clear *//*_#IS_A__L16*/ meltfnum[11] = 0; /*^clear */ - /*clear *//*_#IS_A__L12*/ meltfnum[10] = 0; + /*clear *//*_.IFCPP___V50*/ meltfptr[44] = 0; /*^clear */ - /*clear *//*_.IFCPP___V50*/ meltfptr[35] = 0; + /*clear *//*_.LAMBDA___V62*/ meltfptr[55] = 0; /*^clear */ - /*clear *//*_.IFCPP___V74*/ meltfptr[68] = 0; + /*clear *//*_.LIST_EVERY__V64*/ meltfptr[40] = 0; /*^clear */ - /*clear *//*_.IFCPP___V76*/ meltfptr[70] = 0; + /*clear *//*_.IFCPP___V65*/ meltfptr[64] = 0; /*^clear */ - /*clear *//*_.LAMBDA___V78*/ meltfptr[67] = 0; + /*clear *//*_.LET___V69*/ meltfptr[65] = 0; /*^clear */ - /*clear *//*_.LIST_EVERY__V80*/ meltfptr[40] = 0; + /*clear *//*_.IFCPP___V94*/ meltfptr[83] = 0; /*^clear */ - /*clear *//*_.RETURN___V81*/ meltfptr[69] = 0; - MELT_LOCATION ("warmelt-outobj.melt:5106:/ checksignal"); + /*clear *//*_.IFCPP___V96*/ meltfptr[85] = 0; + /*^clear */ + /*clear *//*_.RETURN___V98*/ meltfptr[66] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5098:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ - /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V21*/ meltfptr[19];; + /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V25*/ meltfptr[21];; { - MELT_LOCATION ("warmelt-outobj.melt:5106:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5098:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -4965,7 +5435,9 @@ lab_endgetargs:; /*^clear */ /*clear *//*_.IFCPP___V19*/ meltfptr[17] = 0; /*^clear */ - /*clear *//*_.LET___V21*/ meltfptr[19] = 0; + /*clear *//*_.IFCPP___V21*/ meltfptr[19] = 0; + /*^clear */ + /*clear *//*_.LET___V25*/ meltfptr[21] = 0; } ; @@ -5058,7 +5530,7 @@ meltrout_131_warmelt_outobj_LAMBDA___26__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:5243:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:5199:/ getarg"); /*_.SEXP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -5076,7 +5548,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5244:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5200:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5102,7 +5574,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5244:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5200:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -5117,7 +5589,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5244:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5200:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -5130,7 +5602,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5244; + argtab[2].meltbp_long = 5200; /*^apply.arg */ argtab[3].meltbp_cstring = "normadeclb_macroexpanded_list sexp="; @@ -5155,7 +5627,7 @@ lab_endgetargs:; /*_.IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5244:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5200:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L3*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0; @@ -5168,7 +5640,7 @@ lab_endgetargs:; /*_.IF___V4*/ meltfptr[3] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5244:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5200:/ quasiblock"); /*_.PROGN___V6*/ meltfptr[4] = /*_.IF___V4*/ meltfptr[3];; @@ -5176,7 +5648,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = /*_.PROGN___V6*/ meltfptr[4];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5244:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5200:/ clear"); /*clear *//*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V4*/ meltfptr[3] = 0; @@ -5189,17 +5661,17 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5245:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5201:/ quasiblock"); - MELT_LOCATION ("warmelt-outobj.melt:5246:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5202:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L4*/ meltfnum[2] = melt_is_instance_of ((melt_ptr_t) ( /*_.SEXP__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_LOCATED */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:5246:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5202:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[2]) /*then */ { /*^cond.then */ @@ -5218,7 +5690,7 @@ lab_endgetargs:; /*_.PSLOC__V7*/ meltfptr[3] = /*_.LOCA_LOCATION__V8*/ meltfptr[4];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5246:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5202:/ clear"); /*clear *//*_.LOCA_LOCATION__V8*/ meltfptr[4] = 0; } ; @@ -5229,14 +5701,14 @@ lab_endgetargs:; /*_.PSLOC__V7*/ meltfptr[3] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5250:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5206:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L5*/ meltfnum[1] = melt_is_instance_of ((melt_ptr_t) ( /*_.SEXP__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SOURCE_COMMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-outobj.melt:5250:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5206:/ cond"); /*cond */ if ( /*_#IS_A__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -5244,7 +5716,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:5251:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5207:/ quasiblock"); /*^getslot */ @@ -5255,7 +5727,7 @@ lab_endgetargs:; /*_.SLOC__V9*/ meltfptr[4] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:5252:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:5208:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXP__V2*/ meltfptr[1]) /*=obj*/ ; @@ -5265,7 +5737,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5254:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5210:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) (( /*~DECLBUF */ meltfclos->tabval[0])), (0), 0); @@ -5273,7 +5745,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5255:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5211:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~DECLBUF */ meltfclos->tabval[0])), @@ -5282,7 +5754,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5256:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5212:/ locexp"); meltgc_add_strbuf_ccomment ((melt_ptr_t) (( /*~DECLBUF */ meltfclos-> tabval[0])), @@ -5293,7 +5765,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5257:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5213:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) (( /*~DECLBUF */ meltfclos->tabval[0])), @@ -5302,14 +5774,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5258:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5214:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) (( /*~DECLBUF */ meltfclos->tabval[0])), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5251:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5207:/ clear"); /*clear *//*_.SLOC__V9*/ meltfptr[4] = 0; /*^clear */ /*clear *//*_.SCOMM__V10*/ meltfptr[9] = 0; @@ -5319,16 +5791,16 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5250:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5206:/ cond.else"); /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:5263:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5219:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-outobj.melt:5261:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5217:/ quasiblock"); /*^multimsend */ @@ -5358,7 +5830,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5264:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5220:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5384,7 +5856,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5264:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5220:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -5399,7 +5871,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5264:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5220:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -5413,7 +5885,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5264; + argtab[2].meltbp_long = 5220; /*^apply.arg */ argtab[3].meltbp_cstring = "normadeclb_macroexpanded_list nexp="; @@ -5441,7 +5913,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5264:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5220:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V15*/ meltfptr[14] = 0; @@ -5454,7 +5926,7 @@ lab_endgetargs:; /*_.IF___V14*/ meltfptr[13] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5264:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5220:/ quasiblock"); /*_.PROGN___V16*/ meltfptr[14] = /*_.IF___V14*/ meltfptr[13];; @@ -5462,7 +5934,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[12] = /*_.PROGN___V16*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5264:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5220:/ clear"); /*clear *//*_#MELT_NEED_DBG__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.IF___V14*/ meltfptr[13] = 0; @@ -5475,7 +5947,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5265:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5221:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^checksignal */ @@ -5485,7 +5957,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.NEXP__V11*/ meltfptr[4]), (melt_ptr_t) (( /*!CLASS_NREP */ meltfrout-> tabval[4])));; - MELT_LOCATION ("warmelt-outobj.melt:5265:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5221:/ cond"); /*cond */ if ( /*_#IS_A__L8*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -5504,7 +5976,7 @@ lab_endgetargs:; /*_#IF___L9*/ meltfnum[5] = /*_#NOT__L11*/ meltfnum[10];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5265:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5221:/ clear"); /*clear *//*_#IS_A__L10*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_#NOT__L11*/ meltfnum[10] = 0; @@ -5517,7 +5989,7 @@ lab_endgetargs:; /*_#IF___L9*/ meltfnum[5] = 0;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5265:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5221:/ cond"); /*cond */ if ( /*_#IF___L9*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -5525,7 +5997,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:5267:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5223:/ quasiblock"); /*^checksignal */ @@ -5553,7 +6025,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5268:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5224:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5579,7 +6051,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5268:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5224:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L12*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -5595,7 +6067,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-outobj.melt:5268:/ checksignal"); + ("warmelt-outobj.melt:5224:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -5609,7 +6081,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5268; + argtab[2].meltbp_long = 5224; /*^apply.arg */ argtab[3].meltbp_cstring = "normadeclb_macroexpanded_list wnexp="; @@ -5631,7 +6103,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V20*/ meltfptr[19];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5268:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5224:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L13*/ meltfnum[10] = 0; /*^clear */ @@ -5645,7 +6117,7 @@ lab_endgetargs:; /*_.IF___V19*/ meltfptr[18] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5268:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5224:/ quasiblock"); /*_.PROGN___V21*/ meltfptr[19] = @@ -5655,7 +6127,7 @@ lab_endgetargs:; /*_.PROGN___V21*/ meltfptr[19];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5268:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5224:/ clear"); /*clear *//*_#MELT_NEED_DBG__L12*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.IF___V19*/ meltfptr[18] = 0; @@ -5668,7 +6140,7 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5269:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:5225:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -5688,7 +6160,7 @@ lab_endgetargs:; } ; - MELT_LOCATION ("warmelt-outobj.melt:5267:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5223:/ clear"); /*clear *//*_.WNEXP__V17*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.IFCPP___V18*/ meltfptr[14] = 0; @@ -5701,13 +6173,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5272:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5228:/ locexp"); meltgc_append_list ((melt_ptr_t) (( /*~NORMLIST */ meltfclos->tabval[4])), (melt_ptr_t) ( /*_.NEXP__V11*/ meltfptr[4])); } ; - MELT_LOCATION ("warmelt-outobj.melt:5261:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5217:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -5726,13 +6198,13 @@ lab_endgetargs:; } ; - MELT_LOCATION ("warmelt-outobj.melt:5245:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5201:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_.PSLOC__V7*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_#IS_A__L5*/ meltfnum[1] = 0; - MELT_LOCATION ("warmelt-outobj.melt:5243:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5199:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -5800,10 +6272,10 @@ meltrout_132_warmelt_outobj_TRANSLATE_MACROEXPANDED_LIST (meltclosure_ptr_t struct meltclosure_st *mcfr_clos; struct excepth_melt_st *mcfr_exh; struct melt_callframe_st *mcfr_prev; -#define MELTFRAM_NBVARPTR 140 - melt_ptr_t mcfr_varptr[140]; -#define MELTFRAM_NBVARNUM 76 - long mcfr_varnum[76]; +#define MELTFRAM_NBVARPTR 160 + melt_ptr_t mcfr_varptr[160]; +#define MELTFRAM_NBVARNUM 86 + long mcfr_varnum[86]; /*others*/ long _spare_; } @@ -5824,13 +6296,13 @@ meltrout_132_warmelt_outobj_TRANSLATE_MACROEXPANDED_LIST (meltclosure_ptr_t (void) meltxresdescr_; (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); - for (ix = 0; ix < 140; ix++) + for (ix = 0; ix < 160; ix++) if (meltframptr_->mcfr_varptr[ix]) gt_ggc_mx_melt_un (meltframptr_->mcfr_varptr[ix]); return NULL; } /*end markggc */ ; memset (&meltfram__, 0, sizeof (meltfram__)); - meltfram__.mcfr_nbvar = 140; + meltfram__.mcfr_nbvar = 160; meltfram__.mcfr_clos = meltclosp_; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; melt_topframe = (struct melt_callframe_st *) &meltfram__; @@ -5838,7 +6310,7 @@ meltrout_132_warmelt_outobj_TRANSLATE_MACROEXPANDED_LIST (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:5282:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:5284:/ getarg"); /*_.XLIST__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -5899,7 +6371,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5283:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5285:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5925,7 +6397,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5283:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5285:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -5940,7 +6412,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5283:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5285:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -5953,7 +6425,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5283; + argtab[2].meltbp_long = 5285; /*^apply.arg */ argtab[3].meltbp_cstring = "translate_macroexpanded_list modnamstr="; @@ -5992,7 +6464,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5283:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5285:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V10*/ meltfptr[9] = 0; @@ -6005,7 +6477,7 @@ lab_endgetargs:; /*_.IF___V9*/ meltfptr[8] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5283:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5285:/ quasiblock"); /*_.PROGN___V11*/ meltfptr[9] = /*_.IF___V9*/ meltfptr[8];; @@ -6013,7 +6485,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[7] = /*_.PROGN___V11*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5283:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5285:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V9*/ meltfptr[8] = 0; @@ -6028,7 +6500,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5286:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5288:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6039,7 +6511,7 @@ lab_endgetargs:; /*_#IS_LIST__L3*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.XLIST__V2*/ meltfptr[1])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:5286:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5288:/ cond"); /*cond */ if ( /*_#IS_LIST__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -6047,7 +6519,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5286:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5288:/ cond.else"); /*^block */ /*anyblock */ @@ -6061,7 +6533,7 @@ lab_endgetargs:; melt_assert_failed (("check xlist"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5286) ? (5286) : __LINE__, __FUNCTION__); + (5288) ? (5288) : __LINE__, __FUNCTION__); ; } ; @@ -6075,7 +6547,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[8] = /*_.IFELSE___V13*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5286:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5288:/ clear"); /*clear *//*_#IS_LIST__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[9] = 0; @@ -6088,7 +6560,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5287:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5289:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6099,7 +6571,7 @@ lab_endgetargs:; /*_#IS_STRING__L4*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODNAMSTR__V3*/ meltfptr[2])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-outobj.melt:5287:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5289:/ cond"); /*cond */ if ( /*_#IS_STRING__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -6107,7 +6579,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5287:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5289:/ cond.else"); /*^block */ /*anyblock */ @@ -6121,7 +6593,7 @@ lab_endgetargs:; melt_assert_failed (("check modnamstr"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5287) ? (5287) : __LINE__, __FUNCTION__); + (5289) ? (5289) : __LINE__, __FUNCTION__); ; } ; @@ -6135,7 +6607,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[9] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5287:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5289:/ clear"); /*clear *//*_#IS_STRING__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -6148,7 +6620,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5288:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5290:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6160,7 +6632,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.MODCTX__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_MODULE_CONTEXT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:5288:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5290:/ cond"); /*cond */ if ( /*_#IS_A__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -6168,7 +6640,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5288:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5290:/ cond.else"); /*^block */ /*anyblock */ @@ -6182,7 +6654,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5288) ? (5288) : __LINE__, __FUNCTION__); + (5290) ? (5290) : __LINE__, __FUNCTION__); ; } ; @@ -6196,7 +6668,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5288:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5290:/ clear"); /*clear *//*_#IS_A__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -6209,7 +6681,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5289:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5291:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6221,7 +6693,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.NCX__V5*/ meltfptr[4]), (melt_ptr_t) (( /*!CLASS_NORMALIZATION_CONTEXT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-outobj.melt:5289:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5291:/ cond"); /*cond */ if ( /*_#IS_A__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -6229,7 +6701,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5289:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5291:/ cond.else"); /*^block */ /*anyblock */ @@ -6243,7 +6715,7 @@ lab_endgetargs:; melt_assert_failed (("check ncx"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5289) ? (5289) : __LINE__, __FUNCTION__); + (5291) ? (5291) : __LINE__, __FUNCTION__); ; } ; @@ -6257,7 +6729,7 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[16] = /*_.IFELSE___V19*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5289:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5291:/ clear"); /*clear *//*_#IS_A__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V19*/ meltfptr[18] = 0; @@ -6270,7 +6742,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5290:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5292:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6282,7 +6754,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.INIENV__V6*/ meltfptr[5]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[3])));; - MELT_LOCATION ("warmelt-outobj.melt:5290:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5292:/ cond"); /*cond */ if ( /*_#IS_A__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -6290,7 +6762,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5290:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5292:/ cond.else"); /*^block */ /*anyblock */ @@ -6304,7 +6776,7 @@ lab_endgetargs:; melt_assert_failed (("check inienv"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5290) ? (5290) : __LINE__, __FUNCTION__); + (5292) ? (5292) : __LINE__, __FUNCTION__); ; } ; @@ -6318,7 +6790,7 @@ lab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[18] = /*_.IFELSE___V21*/ meltfptr[20];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5290:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5292:/ clear"); /*clear *//*_#IS_A__L7*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V21*/ meltfptr[20] = 0; @@ -6331,7 +6803,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5291:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5293:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6346,7 +6818,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L9*/ meltfnum[1] = (!( /*_#STRING_DYNLOADED_SUFFIXED__L8*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-outobj.melt:5291:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5293:/ cond"); /*cond */ if ( /*_#NOT__L9*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -6354,7 +6826,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5291:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5293:/ cond.else"); /*^block */ /*anyblock */ @@ -6365,7 +6837,7 @@ lab_endgetargs:; { /*^locexp */ - melt_assert_failed (("translate_macroexpanded_list modulename not ended with MELT_DYNLOADED_SUFFIX."), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5291) ? (5291) : __LINE__, __FUNCTION__); + melt_assert_failed (("translate_macroexpanded_list modulename not ended with MELT_DYNLOADED_SUFFIX."), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5293) ? (5293) : __LINE__, __FUNCTION__); ; } ; @@ -6379,7 +6851,7 @@ lab_endgetargs:; /*_.IFCPP___V22*/ meltfptr[20] = /*_.IFELSE___V23*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5291:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5293:/ clear"); /*clear *//*_#STRING_DYNLOADED_SUFFIXED__L8*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_#NOT__L9*/ meltfnum[1] = 0; @@ -6394,7 +6866,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5293:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5295:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6409,7 +6881,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L11*/ meltfnum[1] = (!( /*_#STRING_SUFFIXED__L10*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-outobj.melt:5293:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5295:/ cond"); /*cond */ if ( /*_#NOT__L11*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -6417,7 +6889,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5293:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5295:/ cond.else"); /*^block */ /*anyblock */ @@ -6428,7 +6900,7 @@ lab_endgetargs:; { /*^locexp */ - melt_assert_failed (("translate_macroexpanded_list modulename not ended with .melt"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5293) ? (5293) : __LINE__, __FUNCTION__); + melt_assert_failed (("translate_macroexpanded_list modulename not ended with .melt"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5295) ? (5295) : __LINE__, __FUNCTION__); ; } ; @@ -6442,7 +6914,7 @@ lab_endgetargs:; /*_.IFCPP___V24*/ meltfptr[22] = /*_.IFELSE___V25*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5293:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5295:/ clear"); /*clear *//*_#STRING_SUFFIXED__L10*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_#NOT__L11*/ meltfnum[1] = 0; @@ -6457,7 +6929,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5295:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5297:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6472,7 +6944,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L13*/ meltfnum[1] = (!( /*_#STRING_SUFFIXED__L12*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-outobj.melt:5295:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5297:/ cond"); /*cond */ if ( /*_#NOT__L13*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -6480,7 +6952,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5295:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5297:/ cond.else"); /*^block */ /*anyblock */ @@ -6491,7 +6963,7 @@ lab_endgetargs:; { /*^locexp */ - melt_assert_failed (("translate_macroexpanded_list modulename not ended with .c"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5295) ? (5295) : __LINE__, __FUNCTION__); + melt_assert_failed (("translate_macroexpanded_list modulename not ended with .c"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5297) ? (5297) : __LINE__, __FUNCTION__); ; } ; @@ -6505,7 +6977,7 @@ lab_endgetargs:; /*_.IFCPP___V26*/ meltfptr[24] = /*_.IFELSE___V27*/ meltfptr[26];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5295:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5297:/ clear"); /*clear *//*_#STRING_SUFFIXED__L12*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_#NOT__L13*/ meltfnum[1] = 0; @@ -6518,11 +6990,11 @@ lab_endgetargs:; /*_.IFCPP___V26*/ meltfptr[24] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5297:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5299:/ quasiblock"); /*_#ENDCLOCK__L14*/ meltfnum[0] = 0;; - MELT_LOCATION ("warmelt-outobj.melt:5299:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5301:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -6546,7 +7018,7 @@ lab_endgetargs:; /*_.ERRORHDLR__V29*/ meltfptr[28] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5300:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5302:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -6570,7 +7042,7 @@ lab_endgetargs:; /*_.GENDEVLIST__V30*/ meltfptr[29] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5301:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5303:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -6594,7 +7066,7 @@ lab_endgetargs:; /*_.MODINIENV__V31*/ meltfptr[30] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5302:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5304:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -6626,7 +7098,7 @@ lab_endgetargs:; (const char *) 0);; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5305:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5307:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6652,7 +7124,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5305:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5307:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L15*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -6667,13 +7139,13 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5305:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5307:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { - union meltparam_un argtab[7]; + union meltparam_un argtab[9]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = @@ -6681,7 +7153,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5305; + argtab[2].meltbp_long = 5307; /*^apply.arg */ argtab[3].meltbp_cstring = "translate_macroexpanded_list modinienv="; @@ -6693,6 +7165,12 @@ lab_endgetargs:; /*^apply.arg */ argtab[6].meltbp_aptr = (melt_ptr_t *) & /*_.MODNAMSTR__V3*/ meltfptr[2]; + /*^apply.arg */ + argtab[7].meltbp_cstring = + " before normadeclb_macroexpanded_list modctx="; + /*^apply.arg */ + argtab[8].meltbp_aptr = + (melt_ptr_t *) & /*_.MODCTX__V4*/ meltfptr[3]; /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t) (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])), @@ -6700,6 +7178,7 @@ lab_endgetargs:; (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING + MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } @@ -6708,7 +7187,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5305:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5307:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L16*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V36*/ meltfptr[35] = 0; @@ -6721,7 +7200,7 @@ lab_endgetargs:; /*_.IF___V35*/ meltfptr[34] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5305:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5307:/ quasiblock"); /*_.PROGN___V37*/ meltfptr[35] = /*_.IF___V35*/ meltfptr[34];; @@ -6729,7 +7208,7 @@ lab_endgetargs:; /*_.IFCPP___V34*/ meltfptr[33] = /*_.PROGN___V37*/ meltfptr[35];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5305:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5307:/ clear"); /*clear *//*_#MELT_NEED_DBG__L15*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V35*/ meltfptr[34] = 0; @@ -6742,10 +7221,10 @@ lab_endgetargs:; /*_.IFCPP___V34*/ meltfptr[33] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5308:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5311:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-outobj.melt:5306:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5309:/ quasiblock"); /*^multiapply */ @@ -6782,7 +7261,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5309:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5312:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6793,7 +7272,7 @@ lab_endgetargs:; /*_#IS_LIST__L18*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.NORMLIST__V39*/ meltfptr[35])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:5309:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5312:/ cond"); /*cond */ if ( /*_#IS_LIST__L18*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -6801,7 +7280,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5309:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5312:/ cond.else"); /*^block */ /*anyblock */ @@ -6815,7 +7294,7 @@ lab_endgetargs:; melt_assert_failed (("check normlist"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5309) ? (5309) : __LINE__, __FUNCTION__); + (5312) ? (5312) : __LINE__, __FUNCTION__); ; } ; @@ -6829,7 +7308,7 @@ lab_endgetargs:; /*_.IFCPP___V41*/ meltfptr[40] = /*_.IFELSE___V42*/ meltfptr[41];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5309:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5312:/ clear"); /*clear *//*_#IS_LIST__L18*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V42*/ meltfptr[41] = 0; @@ -6842,7 +7321,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5310:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5313:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6853,7 +7332,7 @@ lab_endgetargs:; /*_#IS_STRBUF__L19*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.DECLBUF__V40*/ meltfptr[39])) == MELTOBMAG_STRBUF);; - MELT_LOCATION ("warmelt-outobj.melt:5310:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5313:/ cond"); /*cond */ if ( /*_#IS_STRBUF__L19*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -6861,7 +7340,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5310:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5313:/ cond.else"); /*^block */ /*anyblock */ @@ -6875,7 +7354,7 @@ lab_endgetargs:; melt_assert_failed (("check declbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5310) ? (5310) : __LINE__, __FUNCTION__); + (5313) ? (5313) : __LINE__, __FUNCTION__); ; } ; @@ -6889,7 +7368,7 @@ lab_endgetargs:; /*_.IFCPP___V43*/ meltfptr[41] = /*_.IFELSE___V44*/ meltfptr[43];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5310:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5313:/ clear"); /*clear *//*_#IS_STRBUF__L19*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V44*/ meltfptr[43] = 0; @@ -6900,41 +7379,153 @@ lab_endgetargs:; /*_.IFCPP___V43*/ meltfptr[41] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5313:/ checksignal"); + +#if MELT_HAVE_DEBUG + MELT_LOCATION ("warmelt-outobj.melt:5314:/ cppif.then"); + /*^block */ + /*anyblock */ + { + + + { + /*^locexp */ + /*melt_increment_dbgcounter */ +#if MELT_HAVE_DEBUG + melt_dbgcounter++; +#endif + ; + } + ; + /*^checksignal */ + MELT_CHECK_SIGNAL (); + ; + /*_#MELT_NEED_DBG__L20*/ meltfnum[1] = + /*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-outobj.melt:5314:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L20*/ meltfnum[1]) /*then */ + { + /*^cond.then */ + /*^block */ + /*anyblock */ + { + + /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[20] = +#ifdef meltcallcount + meltcallcount /* the_meltcallcount */ +#else + 0L +#endif /* meltcallcount the_meltcallcount */ + ;; + MELT_LOCATION ("warmelt-outobj.melt:5314:/ checksignal"); + MELT_CHECK_SIGNAL (); + ; + /*^apply */ + /*apply */ + { + union meltparam_un argtab[5]; + memset (&argtab, 0, sizeof (argtab)); + /*^apply.arg */ + argtab[0].meltbp_long = + /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[20]; + /*^apply.arg */ + argtab[1].meltbp_cstring = "warmelt-outobj.melt"; + /*^apply.arg */ + argtab[2].meltbp_long = 5314; + /*^apply.arg */ + argtab[3].meltbp_cstring = + "translate_macroexpanded_list after normadeclb_macroexpanded_list modctx="; + /*^apply.arg */ + argtab[4].meltbp_aptr = + (melt_ptr_t *) & /*_.MODCTX__V4*/ meltfptr[3]; + /*_.MELT_DEBUG_FUN__V47*/ meltfptr[46] = + 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); + } + ; + /*_.IF___V46*/ meltfptr[45] = + /*_.MELT_DEBUG_FUN__V47*/ meltfptr[46];; + /*epilog */ + + MELT_LOCATION ("warmelt-outobj.melt:5314:/ clear"); + /*clear *//*_#THE_MELTCALLCOUNT__L21*/ meltfnum[20] = 0; + /*^clear */ + /*clear *//*_.MELT_DEBUG_FUN__V47*/ meltfptr[46] = 0; + } + ; + } + else + { /*^cond.else */ + + /*_.IF___V46*/ meltfptr[45] = NULL;; + } + ; + MELT_LOCATION ("warmelt-outobj.melt:5314:/ quasiblock"); + + + /*_.PROGN___V48*/ meltfptr[46] = /*_.IF___V46*/ meltfptr[45];; + /*^compute */ + /*_.IFCPP___V45*/ meltfptr[43] = /*_.PROGN___V48*/ meltfptr[46];; + /*epilog */ + + MELT_LOCATION ("warmelt-outobj.melt:5314:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L20*/ meltfnum[1] = 0; + /*^clear */ + /*clear *//*_.IF___V46*/ meltfptr[45] = 0; + /*^clear */ + /*clear *//*_.PROGN___V48*/ meltfptr[46] = 0; + } + +#else /*MELT_HAVE_DEBUG */ + /*^cppif.else */ + /*_.IFCPP___V45*/ meltfptr[43] = ( /*nil */ NULL); +#endif /*MELT_HAVE_DEBUG */ + ; + MELT_LOCATION ("warmelt-outobj.melt:5317:/ checksignal"); MELT_CHECK_SIGNAL (); ; - /*_#MELT_ERROR_COUNTER__L20*/ meltfnum[1] = + /*_#MELT_ERROR_COUNTER__L22*/ meltfnum[20] = melt_error_counter;; - MELT_LOCATION ("warmelt-outobj.melt:5313:/ cond"); - /*cond */ if ( /*_#MELT_ERROR_COUNTER__L20*/ meltfnum[1]) /*then */ + MELT_LOCATION ("warmelt-outobj.melt:5317:/ cond"); + /*cond */ if ( /*_#MELT_ERROR_COUNTER__L22*/ meltfnum[20]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:5314:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5318:/ checksignal"); MELT_CHECK_SIGNAL (); ; - /*_#IS_CLOSURE__L21*/ meltfnum[20] = + /*_#IS_CLOSURE__L23*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.ERRORHDLR__V29*/ meltfptr[28])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-outobj.melt:5314:/ cond"); - /*cond */ if ( /*_#IS_CLOSURE__L21*/ meltfnum[20]) /*then */ + MELT_LOCATION ("warmelt-outobj.melt:5318:/ cond"); + /*cond */ if ( /*_#IS_CLOSURE__L23*/ meltfnum[1]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:5315:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5319:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { - /*_.ERRORHDLR__V47*/ meltfptr[46] = + /*_.ERRORHDLR__V51*/ meltfptr[50] = melt_apply ((meltclosure_ptr_t) ( /*_.ERRORHDLR__V29*/ meltfptr[28]), (melt_ptr_t) (( /*!konst_6 */ meltfrout-> @@ -6943,24 +7534,24 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - /*_.IF___V46*/ meltfptr[45] = - /*_.ERRORHDLR__V47*/ meltfptr[46];; + /*_.IF___V50*/ meltfptr[46] = + /*_.ERRORHDLR__V51*/ meltfptr[50];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5314:/ clear"); - /*clear *//*_.ERRORHDLR__V47*/ meltfptr[46] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5318:/ clear"); + /*clear *//*_.ERRORHDLR__V51*/ meltfptr[50] = 0; } ; } else { /*^cond.else */ - /*_.IF___V46*/ meltfptr[45] = NULL;; + /*_.IF___V50*/ meltfptr[46] = NULL;; } ; { - MELT_LOCATION ("warmelt-outobj.melt:5317:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5321:/ locexp"); /* translate_macroexpanded_list ERROREDNORMAL_WARNCHK__1 */ warning (0, "MELT translation of %s got after normalization %ld MELT errors", @@ -6969,13 +7560,13 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-outobj.melt:5321:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5325:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-outobj.melt:5321:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5325:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -6988,32 +7579,32 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-outobj.melt:5313:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5317:/ quasiblock"); - /*_.PROGN___V49*/ meltfptr[48] = /*_.RETURN___V48*/ meltfptr[46];; + /*_.PROGN___V53*/ meltfptr[52] = /*_.RETURN___V52*/ meltfptr[50];; /*^compute */ - /*_.IF___V45*/ meltfptr[43] = /*_.PROGN___V49*/ meltfptr[48];; + /*_.IF___V49*/ meltfptr[45] = /*_.PROGN___V53*/ meltfptr[52];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5313:/ clear"); - /*clear *//*_#IS_CLOSURE__L21*/ meltfnum[20] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5317:/ clear"); + /*clear *//*_#IS_CLOSURE__L23*/ meltfnum[1] = 0; /*^clear */ - /*clear *//*_.IF___V46*/ meltfptr[45] = 0; + /*clear *//*_.IF___V50*/ meltfptr[46] = 0; /*^clear */ - /*clear *//*_.RETURN___V48*/ meltfptr[46] = 0; + /*clear *//*_.RETURN___V52*/ meltfptr[50] = 0; /*^clear */ - /*clear *//*_.PROGN___V49*/ meltfptr[48] = 0; + /*clear *//*_.PROGN___V53*/ meltfptr[52] = 0; } ; } else { /*^cond.else */ - /*_.IF___V45*/ meltfptr[43] = NULL;; + /*_.IF___V49*/ meltfptr[45] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5324:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5328:/ quasiblock"); /*^getslot */ @@ -7021,34 +7612,34 @@ lab_endgetargs:; melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.NCX__V5*/ meltfptr[4]) /*=obj*/ ; melt_object_get_field (slot, obj, 1, "NCTX_PROCLIST"); - /*_.PROLIST__V51*/ meltfptr[46] = slot; + /*_.PROLIST__V55*/ meltfptr[50] = slot; }; ; - /*_.OBJLIST__V52*/ meltfptr[48] = + /*_.OBJLIST__V56*/ meltfptr[52] = (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[7]))));; /*^compute */ - /*_#LIST_LENGTH__L22*/ meltfnum[20] = + /*_#LIST_LENGTH__L24*/ meltfnum[1] = (melt_list_length ((melt_ptr_t) ( /*_.XLIST__V2*/ meltfptr[1])));; /*^compute */ - /*_#I__L23*/ meltfnum[22] = - ((20) * ( /*_#LIST_LENGTH__L22*/ meltfnum[20]));; + /*_#I__L25*/ meltfnum[24] = + ((20) * ( /*_#LIST_LENGTH__L24*/ meltfnum[1]));; /*^compute */ - /*_#I__L24*/ meltfnum[23] = - ((10) + ( /*_#I__L23*/ meltfnum[22]));; + /*_#I__L26*/ meltfnum[25] = + ((10) + ( /*_#I__L25*/ meltfnum[24]));; /*^compute */ - /*_.COMPICACHE__V53*/ meltfptr[52] = + /*_.COMPICACHE__V57*/ meltfptr[56] = (meltgc_new_mapobjects ((meltobject_ptr_t) (( /*!DISCR_MAP_OBJECTS */ meltfrout->tabval[8])), - ( /*_#I__L24*/ meltfnum[23])));; + ( /*_#I__L26*/ meltfnum[25])));; /*^compute */ - /*_.COUNTBOX__V54*/ meltfptr[53] = + /*_.COUNTBOX__V58*/ meltfptr[57] = (meltgc_new_int ((meltobject_ptr_t) (( /*!DISCR_INTEGER */ meltfrout->tabval[9])), (0)));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5329:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5333:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7066,7 +7657,7 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - /*_#MELT_NEED_DBG__L25*/ meltfnum[24] = + /*_#MELT_NEED_DBG__L27*/ meltfnum[26] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -7074,22 +7665,22 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5329:/ cond"); - /*cond */ if ( /*_#MELT_NEED_DBG__L25*/ meltfnum[24]) /*then */ + MELT_LOCATION ("warmelt-outobj.melt:5333:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L27*/ meltfnum[26]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { - /*_#THE_MELTCALLCOUNT__L26*/ meltfnum[25] = + /*_#THE_MELTCALLCOUNT__L28*/ meltfnum[27] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5329:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5333:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7099,18 +7690,18 @@ lab_endgetargs:; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = - /*_#THE_MELTCALLCOUNT__L26*/ meltfnum[25]; + /*_#THE_MELTCALLCOUNT__L28*/ meltfnum[27]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5329; + argtab[2].meltbp_long = 5333; /*^apply.arg */ argtab[3].meltbp_cstring = "translate_macroexpanded_list prolist="; /*^apply.arg */ argtab[4].meltbp_aptr = - (melt_ptr_t *) & /*_.PROLIST__V51*/ meltfptr[46]; - /*_.MELT_DEBUG_FUN__V57*/ meltfptr[56] = + (melt_ptr_t *) & /*_.PROLIST__V55*/ meltfptr[50]; + /*_.MELT_DEBUG_FUN__V61*/ meltfptr[60] = melt_apply ((meltclosure_ptr_t) (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])), (melt_ptr_t) (( /*nil */ NULL)), @@ -7120,47 +7711,47 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - /*_.IF___V56*/ meltfptr[55] = - /*_.MELT_DEBUG_FUN__V57*/ meltfptr[56];; + /*_.IF___V60*/ meltfptr[59] = + /*_.MELT_DEBUG_FUN__V61*/ meltfptr[60];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5329:/ clear"); - /*clear *//*_#THE_MELTCALLCOUNT__L26*/ meltfnum[25] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5333:/ clear"); + /*clear *//*_#THE_MELTCALLCOUNT__L28*/ meltfnum[27] = 0; /*^clear */ - /*clear *//*_.MELT_DEBUG_FUN__V57*/ meltfptr[56] = 0; + /*clear *//*_.MELT_DEBUG_FUN__V61*/ meltfptr[60] = 0; } ; } else { /*^cond.else */ - /*_.IF___V56*/ meltfptr[55] = NULL;; + /*_.IF___V60*/ meltfptr[59] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5329:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5333:/ quasiblock"); - /*_.PROGN___V58*/ meltfptr[56] = /*_.IF___V56*/ meltfptr[55];; + /*_.PROGN___V62*/ meltfptr[60] = /*_.IF___V60*/ meltfptr[59];; /*^compute */ - /*_.IFCPP___V55*/ meltfptr[54] = /*_.PROGN___V58*/ meltfptr[56];; + /*_.IFCPP___V59*/ meltfptr[58] = /*_.PROGN___V62*/ meltfptr[60];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5329:/ clear"); - /*clear *//*_#MELT_NEED_DBG__L25*/ meltfnum[24] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5333:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L27*/ meltfnum[26] = 0; /*^clear */ - /*clear *//*_.IF___V56*/ meltfptr[55] = 0; + /*clear *//*_.IF___V60*/ meltfptr[59] = 0; /*^clear */ - /*clear *//*_.PROGN___V58*/ meltfptr[56] = 0; + /*clear *//*_.PROGN___V62*/ meltfptr[60] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V55*/ meltfptr[54] = ( /*nil */ NULL); + /*_.IFCPP___V59*/ meltfptr[58] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5332:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5336:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7168,18 +7759,18 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - /*_#IS_LIST__L27*/ meltfnum[25] = - (melt_magic_discr ((melt_ptr_t) ( /*_.PROLIST__V51*/ meltfptr[46])) == + /*_#IS_LIST__L29*/ meltfnum[27] = + (melt_magic_discr ((melt_ptr_t) ( /*_.PROLIST__V55*/ meltfptr[50])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:5332:/ cond"); - /*cond */ if ( /*_#IS_LIST__L27*/ meltfnum[25]) /*then */ + MELT_LOCATION ("warmelt-outobj.melt:5336:/ cond"); + /*cond */ if ( /*_#IS_LIST__L29*/ meltfnum[27]) /*then */ { /*^cond.then */ - /*_.IFELSE___V60*/ meltfptr[56] = ( /*nil */ NULL);; + /*_.IFELSE___V64*/ meltfptr[60] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-outobj.melt:5332:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5336:/ cond.else"); /*^block */ /*anyblock */ @@ -7193,36 +7784,36 @@ lab_endgetargs:; melt_assert_failed (("check prolist"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5332) ? (5332) : __LINE__, __FUNCTION__); + (5336) ? (5336) : __LINE__, __FUNCTION__); ; } ; - /*clear *//*_.IFELSE___V60*/ meltfptr[56] = 0; + /*clear *//*_.IFELSE___V64*/ meltfptr[60] = 0; /*epilog */ } ; } ; /*^compute */ - /*_.IFCPP___V59*/ meltfptr[55] = /*_.IFELSE___V60*/ meltfptr[56];; + /*_.IFCPP___V63*/ meltfptr[59] = /*_.IFELSE___V64*/ meltfptr[60];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5332:/ clear"); - /*clear *//*_#IS_LIST__L27*/ meltfnum[25] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5336:/ clear"); + /*clear *//*_#IS_LIST__L29*/ meltfnum[27] = 0; /*^clear */ - /*clear *//*_.IFELSE___V60*/ meltfptr[56] = 0; + /*clear *//*_.IFELSE___V64*/ meltfptr[60] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V59*/ meltfptr[55] = ( /*nil */ NULL); + /*_.IFCPP___V63*/ meltfptr[59] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5335:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5339:/ quasiblock"); /*^newclosure */ - /*newclosure *//*_.LAMBDA___V62*/ meltfptr[61] = + /*newclosure *//*_.LAMBDA___V66*/ meltfptr[65] = (melt_ptr_t) meltgc_new_closure ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))), @@ -7233,56 +7824,56 @@ lab_endgetargs:; /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) - ( /*_.LAMBDA___V62*/ meltfptr[61])) == + ( /*_.LAMBDA___V66*/ meltfptr[65])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosv checkoff", 0 >= 0 && 0 < melt_closure_size ((melt_ptr_t) - ( /*_.LAMBDA___V62*/ meltfptr[61]))); - ((meltclosure_ptr_t) /*_.LAMBDA___V62*/ meltfptr[61])->tabval[0] = - (melt_ptr_t) ( /*_.COUNTBOX__V54*/ meltfptr[53]); + ( /*_.LAMBDA___V66*/ meltfptr[65]))); + ((meltclosure_ptr_t) /*_.LAMBDA___V66*/ meltfptr[65])->tabval[0] = + (melt_ptr_t) ( /*_.COUNTBOX__V58*/ meltfptr[57]); ; /*^putclosedv */ /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) - ( /*_.LAMBDA___V62*/ meltfptr[61])) == + ( /*_.LAMBDA___V66*/ meltfptr[65])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosv checkoff", 1 >= 0 && 1 < melt_closure_size ((melt_ptr_t) - ( /*_.LAMBDA___V62*/ meltfptr[61]))); - ((meltclosure_ptr_t) /*_.LAMBDA___V62*/ meltfptr[61])->tabval[1] = + ( /*_.LAMBDA___V66*/ meltfptr[65]))); + ((meltclosure_ptr_t) /*_.LAMBDA___V66*/ meltfptr[65])->tabval[1] = (melt_ptr_t) ( /*_.MODCTX__V4*/ meltfptr[3]); ; /*^putclosedv */ /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) - ( /*_.LAMBDA___V62*/ meltfptr[61])) == + ( /*_.LAMBDA___V66*/ meltfptr[65])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosv checkoff", 2 >= 0 && 2 < melt_closure_size ((melt_ptr_t) - ( /*_.LAMBDA___V62*/ meltfptr[61]))); - ((meltclosure_ptr_t) /*_.LAMBDA___V62*/ meltfptr[61])->tabval[2] = - (melt_ptr_t) ( /*_.COMPICACHE__V53*/ meltfptr[52]); + ( /*_.LAMBDA___V66*/ meltfptr[65]))); + ((meltclosure_ptr_t) /*_.LAMBDA___V66*/ meltfptr[65])->tabval[2] = + (melt_ptr_t) ( /*_.COMPICACHE__V57*/ meltfptr[56]); ; /*^putclosedv */ /*putclosv */ melt_assertmsg ("putclosv checkclo", melt_magic_discr ((melt_ptr_t) - ( /*_.LAMBDA___V62*/ meltfptr[61])) == + ( /*_.LAMBDA___V66*/ meltfptr[65])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosv checkoff", 3 >= 0 && 3 < melt_closure_size ((melt_ptr_t) - ( /*_.LAMBDA___V62*/ meltfptr[61]))); - ((meltclosure_ptr_t) /*_.LAMBDA___V62*/ meltfptr[61])->tabval[3] = - (melt_ptr_t) ( /*_.OBJLIST__V52*/ meltfptr[48]); + ( /*_.LAMBDA___V66*/ meltfptr[65]))); + ((meltclosure_ptr_t) /*_.LAMBDA___V66*/ meltfptr[65])->tabval[3] = + (melt_ptr_t) ( /*_.OBJLIST__V56*/ meltfptr[52]); ; - /*_.LAMBDA___V61*/ meltfptr[56] = /*_.LAMBDA___V62*/ meltfptr[61];; - MELT_LOCATION ("warmelt-outobj.melt:5333:/ checksignal"); + /*_.LAMBDA___V65*/ meltfptr[60] = /*_.LAMBDA___V66*/ meltfptr[65];; + MELT_LOCATION ("warmelt-outobj.melt:5337:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7292,50 +7883,50 @@ lab_endgetargs:; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = - (melt_ptr_t *) & /*_.LAMBDA___V61*/ meltfptr[56]; - /*_.LIST_EVERY__V63*/ meltfptr[62] = + (melt_ptr_t *) & /*_.LAMBDA___V65*/ meltfptr[60]; + /*_.LIST_EVERY__V67*/ meltfptr[66] = melt_apply ((meltclosure_ptr_t) (( /*!LIST_EVERY */ meltfrout->tabval[10])), - (melt_ptr_t) ( /*_.PROLIST__V51*/ meltfptr[46]), + (melt_ptr_t) ( /*_.PROLIST__V55*/ meltfptr[50]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5342:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5346:/ checksignal"); MELT_CHECK_SIGNAL (); ; - /*_#MELT_ERROR_COUNTER__L28*/ meltfnum[24] = + /*_#MELT_ERROR_COUNTER__L30*/ meltfnum[26] = melt_error_counter;; - MELT_LOCATION ("warmelt-outobj.melt:5342:/ cond"); - /*cond */ if ( /*_#MELT_ERROR_COUNTER__L28*/ meltfnum[24]) /*then */ + MELT_LOCATION ("warmelt-outobj.melt:5346:/ cond"); + /*cond */ if ( /*_#MELT_ERROR_COUNTER__L30*/ meltfnum[26]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:5343:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5347:/ checksignal"); MELT_CHECK_SIGNAL (); ; - /*_#IS_CLOSURE__L29*/ meltfnum[25] = + /*_#IS_CLOSURE__L31*/ meltfnum[27] = (melt_magic_discr ((melt_ptr_t) ( /*_.ERRORHDLR__V29*/ meltfptr[28])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-outobj.melt:5343:/ cond"); - /*cond */ if ( /*_#IS_CLOSURE__L29*/ meltfnum[25]) /*then */ + MELT_LOCATION ("warmelt-outobj.melt:5347:/ cond"); + /*cond */ if ( /*_#IS_CLOSURE__L31*/ meltfnum[27]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:5344:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5348:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { - /*_.ERRORHDLR__V66*/ meltfptr[65] = + /*_.ERRORHDLR__V70*/ meltfptr[69] = melt_apply ((meltclosure_ptr_t) ( /*_.ERRORHDLR__V29*/ meltfptr[28]), (melt_ptr_t) (( /*!konst_15 */ meltfrout-> @@ -7344,24 +7935,24 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - /*_.IF___V65*/ meltfptr[64] = - /*_.ERRORHDLR__V66*/ meltfptr[65];; + /*_.IF___V69*/ meltfptr[68] = + /*_.ERRORHDLR__V70*/ meltfptr[69];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5343:/ clear"); - /*clear *//*_.ERRORHDLR__V66*/ meltfptr[65] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5347:/ clear"); + /*clear *//*_.ERRORHDLR__V70*/ meltfptr[69] = 0; } ; } else { /*^cond.else */ - /*_.IF___V65*/ meltfptr[64] = NULL;; + /*_.IF___V69*/ meltfptr[68] = NULL;; } ; { - MELT_LOCATION ("warmelt-outobj.melt:5346:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5350:/ locexp"); /* translate_macroexpanded_list ERROREDGENER_WARNCHK__1 */ warning (0, "MELT translation of %s got after generation %ld MELT errors", @@ -7370,13 +7961,13 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-outobj.melt:5350:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5354:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-outobj.melt:5350:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5354:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -7389,34 +7980,34 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-outobj.melt:5342:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5346:/ quasiblock"); - /*_.PROGN___V68*/ meltfptr[67] = /*_.RETURN___V67*/ meltfptr[65];; + /*_.PROGN___V72*/ meltfptr[71] = /*_.RETURN___V71*/ meltfptr[69];; /*^compute */ - /*_.IF___V64*/ meltfptr[63] = /*_.PROGN___V68*/ meltfptr[67];; + /*_.IF___V68*/ meltfptr[67] = /*_.PROGN___V72*/ meltfptr[71];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5342:/ clear"); - /*clear *//*_#IS_CLOSURE__L29*/ meltfnum[25] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5346:/ clear"); + /*clear *//*_#IS_CLOSURE__L31*/ meltfnum[27] = 0; /*^clear */ - /*clear *//*_.IF___V65*/ meltfptr[64] = 0; + /*clear *//*_.IF___V69*/ meltfptr[68] = 0; /*^clear */ - /*clear *//*_.RETURN___V67*/ meltfptr[65] = 0; + /*clear *//*_.RETURN___V71*/ meltfptr[69] = 0; /*^clear */ - /*clear *//*_.PROGN___V68*/ meltfptr[67] = 0; + /*clear *//*_.PROGN___V72*/ meltfptr[71] = 0; } ; } else { /*^cond.else */ - /*_.IF___V64*/ meltfptr[63] = NULL;; + /*_.IF___V68*/ meltfptr[67] = NULL;; } ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5353:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5357:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7424,18 +8015,18 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - /*_#IS_LIST__L30*/ meltfnum[25] = - (melt_magic_discr ((melt_ptr_t) ( /*_.OBJLIST__V52*/ meltfptr[48])) == + /*_#IS_LIST__L32*/ meltfnum[27] = + (melt_magic_discr ((melt_ptr_t) ( /*_.OBJLIST__V56*/ meltfptr[52])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:5353:/ cond"); - /*cond */ if ( /*_#IS_LIST__L30*/ meltfnum[25]) /*then */ + MELT_LOCATION ("warmelt-outobj.melt:5357:/ cond"); + /*cond */ if ( /*_#IS_LIST__L32*/ meltfnum[27]) /*then */ { /*^cond.then */ - /*_.IFELSE___V70*/ meltfptr[65] = ( /*nil */ NULL);; + /*_.IFELSE___V74*/ meltfptr[69] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-outobj.melt:5353:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5357:/ cond.else"); /*^block */ /*anyblock */ @@ -7449,32 +8040,32 @@ lab_endgetargs:; melt_assert_failed (("check objlist"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5353) ? (5353) : __LINE__, __FUNCTION__); + (5357) ? (5357) : __LINE__, __FUNCTION__); ; } ; - /*clear *//*_.IFELSE___V70*/ meltfptr[65] = 0; + /*clear *//*_.IFELSE___V74*/ meltfptr[69] = 0; /*epilog */ } ; } ; /*^compute */ - /*_.IFCPP___V69*/ meltfptr[64] = /*_.IFELSE___V70*/ meltfptr[65];; + /*_.IFCPP___V73*/ meltfptr[68] = /*_.IFELSE___V74*/ meltfptr[69];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5353:/ clear"); - /*clear *//*_#IS_LIST__L30*/ meltfnum[25] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5357:/ clear"); + /*clear *//*_#IS_LIST__L32*/ meltfnum[27] = 0; /*^clear */ - /*clear *//*_.IFELSE___V70*/ meltfptr[65] = 0; + /*clear *//*_.IFELSE___V74*/ meltfptr[69] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V69*/ meltfptr[64] = ( /*nil */ NULL); + /*_.IFCPP___V73*/ meltfptr[68] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5354:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5358:/ quasiblock"); /*^getslot */ @@ -7482,36 +8073,36 @@ lab_endgetargs:; melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.NCX__V5*/ meltfptr[4]) /*=obj*/ ; melt_object_get_field (slot, obj, 0, "NCTX_INITPROC"); - /*_.INIPRO__V72*/ meltfptr[65] = slot; + /*_.INIPRO__V76*/ meltfptr[69] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:5355:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:5359:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.NCX__V5*/ meltfptr[4]) /*=obj*/ ; melt_object_get_field (slot, obj, 2, "NCTX_DATALIST"); - /*_.INIDATA__V73*/ meltfptr[72] = slot; + /*_.INIDATA__V77*/ meltfptr[76] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:5356:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:5360:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.NCX__V5*/ meltfptr[4]) /*=obj*/ ; melt_object_get_field (slot, obj, 3, "NCTX_VALUELIST"); - /*_.IMPORTVALUES__V74*/ meltfptr[73] = slot; + /*_.IMPORTVALUES__V78*/ meltfptr[77] = slot; }; ; - MELT_LOCATION ("warmelt-outobj.melt:5357:/ getslot"); + MELT_LOCATION ("warmelt-outobj.melt:5361:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.NCX__V5*/ meltfptr[4]) /*=obj*/ ; melt_object_get_field (slot, obj, 14, "NCTX_PROCURMODENVLIST"); - /*_.PROCURMODENVLIST__V75*/ meltfptr[74] = slot; + /*_.PROCURMODENVLIST__V79*/ meltfptr[78] = slot; }; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5359:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5363:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7529,7 +8120,7 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - /*_#MELT_NEED_DBG__L31*/ meltfnum[25] = + /*_#MELT_NEED_DBG__L33*/ meltfnum[27] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -7537,22 +8128,22 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5359:/ cond"); - /*cond */ if ( /*_#MELT_NEED_DBG__L31*/ meltfnum[25]) /*then */ + MELT_LOCATION ("warmelt-outobj.melt:5363:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L33*/ meltfnum[27]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { - /*_#THE_MELTCALLCOUNT__L32*/ meltfnum[31] = + /*_#THE_MELTCALLCOUNT__L34*/ meltfnum[33] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5359:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5363:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7562,23 +8153,23 @@ lab_endgetargs:; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = - /*_#THE_MELTCALLCOUNT__L32*/ meltfnum[31]; + /*_#THE_MELTCALLCOUNT__L34*/ meltfnum[33]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5359; + argtab[2].meltbp_long = 5363; /*^apply.arg */ argtab[3].meltbp_cstring = "translate_macroexpanded_list before compiling initproc inipro="; /*^apply.arg */ argtab[4].meltbp_aptr = - (melt_ptr_t *) & /*_.INIPRO__V72*/ meltfptr[65]; + (melt_ptr_t *) & /*_.INIPRO__V76*/ meltfptr[69]; /*^apply.arg */ argtab[5].meltbp_cstring = "\n iniproctransl="; /*^apply.arg */ argtab[6].meltbp_aptr = (melt_ptr_t *) & /*_.INIPROCTRANSL__V7*/ meltfptr[6]; - /*_.MELT_DEBUG_FUN__V78*/ meltfptr[77] = + /*_.MELT_DEBUG_FUN__V82*/ meltfptr[81] = melt_apply ((meltclosure_ptr_t) (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])), (melt_ptr_t) (( /*nil */ NULL)), @@ -7589,47 +8180,47 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - /*_.IF___V77*/ meltfptr[76] = - /*_.MELT_DEBUG_FUN__V78*/ meltfptr[77];; + /*_.IF___V81*/ meltfptr[80] = + /*_.MELT_DEBUG_FUN__V82*/ meltfptr[81];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5359:/ clear"); - /*clear *//*_#THE_MELTCALLCOUNT__L32*/ meltfnum[31] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5363:/ clear"); + /*clear *//*_#THE_MELTCALLCOUNT__L34*/ meltfnum[33] = 0; /*^clear */ - /*clear *//*_.MELT_DEBUG_FUN__V78*/ meltfptr[77] = 0; + /*clear *//*_.MELT_DEBUG_FUN__V82*/ meltfptr[81] = 0; } ; } else { /*^cond.else */ - /*_.IF___V77*/ meltfptr[76] = NULL;; + /*_.IF___V81*/ meltfptr[80] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5359:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5363:/ quasiblock"); - /*_.PROGN___V79*/ meltfptr[77] = /*_.IF___V77*/ meltfptr[76];; + /*_.PROGN___V83*/ meltfptr[81] = /*_.IF___V81*/ meltfptr[80];; /*^compute */ - /*_.IFCPP___V76*/ meltfptr[75] = /*_.PROGN___V79*/ meltfptr[77];; + /*_.IFCPP___V80*/ meltfptr[79] = /*_.PROGN___V83*/ meltfptr[81];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5359:/ clear"); - /*clear *//*_#MELT_NEED_DBG__L31*/ meltfnum[25] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5363:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L33*/ meltfnum[27] = 0; /*^clear */ - /*clear *//*_.IF___V77*/ meltfptr[76] = 0; + /*clear *//*_.IF___V81*/ meltfptr[80] = 0; /*^clear */ - /*clear *//*_.PROGN___V79*/ meltfptr[77] = 0; + /*clear *//*_.PROGN___V83*/ meltfptr[81] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V76*/ meltfptr[75] = ( /*nil */ NULL); + /*_.IFCPP___V80*/ meltfptr[79] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5361:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5365:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7637,19 +8228,19 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - /*_#IS_A__L33*/ meltfnum[31] = - melt_is_instance_of ((melt_ptr_t) ( /*_.INIPRO__V72*/ meltfptr[65]), + /*_#IS_A__L35*/ meltfnum[33] = + melt_is_instance_of ((melt_ptr_t) ( /*_.INIPRO__V76*/ meltfptr[69]), (melt_ptr_t) (( /*!CLASS_NREP_INITPROC */ meltfrout->tabval[16])));; - MELT_LOCATION ("warmelt-outobj.melt:5361:/ cond"); - /*cond */ if ( /*_#IS_A__L33*/ meltfnum[31]) /*then */ + MELT_LOCATION ("warmelt-outobj.melt:5365:/ cond"); + /*cond */ if ( /*_#IS_A__L35*/ meltfnum[33]) /*then */ { /*^cond.then */ - /*_.IFELSE___V81*/ meltfptr[77] = ( /*nil */ NULL);; + /*_.IFELSE___V85*/ meltfptr[81] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-outobj.melt:5361:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5365:/ cond.else"); /*^block */ /*anyblock */ @@ -7663,34 +8254,34 @@ lab_endgetargs:; melt_assert_failed (("check inipro"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5361) ? (5361) : __LINE__, __FUNCTION__); + (5365) ? (5365) : __LINE__, __FUNCTION__); ; } ; - /*clear *//*_.IFELSE___V81*/ meltfptr[77] = 0; + /*clear *//*_.IFELSE___V85*/ meltfptr[81] = 0; /*epilog */ } ; } ; /*^compute */ - /*_.IFCPP___V80*/ meltfptr[76] = /*_.IFELSE___V81*/ meltfptr[77];; + /*_.IFCPP___V84*/ meltfptr[80] = /*_.IFELSE___V85*/ meltfptr[81];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5361:/ clear"); - /*clear *//*_#IS_A__L33*/ meltfnum[31] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5365:/ clear"); + /*clear *//*_#IS_A__L35*/ meltfnum[33] = 0; /*^clear */ - /*clear *//*_.IFELSE___V81*/ meltfptr[77] = 0; + /*clear *//*_.IFELSE___V85*/ meltfptr[81] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V80*/ meltfptr[76] = ( /*nil */ NULL); + /*_.IFCPP___V84*/ meltfptr[80] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5362:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5366:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7698,19 +8289,19 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - /*_#IS_CLOSURE__L34*/ meltfnum[25] = + /*_#IS_CLOSURE__L36*/ meltfnum[27] = (melt_magic_discr ((melt_ptr_t) ( /*_.INIPROCTRANSL__V7*/ meltfptr[6])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-outobj.melt:5362:/ cond"); - /*cond */ if ( /*_#IS_CLOSURE__L34*/ meltfnum[25]) /*then */ + MELT_LOCATION ("warmelt-outobj.melt:5366:/ cond"); + /*cond */ if ( /*_#IS_CLOSURE__L36*/ meltfnum[27]) /*then */ { /*^cond.then */ - /*_.IFELSE___V83*/ meltfptr[82] = ( /*nil */ NULL);; + /*_.IFELSE___V87*/ meltfptr[86] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-outobj.melt:5362:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5366:/ cond.else"); /*^block */ /*anyblock */ @@ -7724,35 +8315,35 @@ lab_endgetargs:; melt_assert_failed (("check iniproctransl"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5362) ? (5362) : __LINE__, __FUNCTION__); + (5366) ? (5366) : __LINE__, __FUNCTION__); ; } ; - /*clear *//*_.IFELSE___V83*/ meltfptr[82] = 0; + /*clear *//*_.IFELSE___V87*/ meltfptr[86] = 0; /*epilog */ } ; } ; /*^compute */ - /*_.IFCPP___V82*/ meltfptr[77] = /*_.IFELSE___V83*/ meltfptr[82];; + /*_.IFCPP___V86*/ meltfptr[81] = /*_.IFELSE___V87*/ meltfptr[86];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5362:/ clear"); - /*clear *//*_#IS_CLOSURE__L34*/ meltfnum[25] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5366:/ clear"); + /*clear *//*_#IS_CLOSURE__L36*/ meltfnum[27] = 0; /*^clear */ - /*clear *//*_.IFELSE___V83*/ meltfptr[82] = 0; + /*clear *//*_.IFELSE___V87*/ meltfptr[86] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V82*/ meltfptr[77] = ( /*nil */ NULL); + /*_.IFCPP___V86*/ meltfptr[81] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5363:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5367:/ quasiblock"); - MELT_LOCATION ("warmelt-outobj.melt:5364:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5368:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7764,20 +8355,20 @@ lab_endgetargs:; argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_aptr = - (melt_ptr_t *) & /*_.INIDATA__V73*/ meltfptr[72]; + (melt_ptr_t *) & /*_.INIDATA__V77*/ meltfptr[76]; /*^apply.arg */ argtab[2].meltbp_aptr = - (melt_ptr_t *) & /*_.COMPICACHE__V53*/ meltfptr[52]; + (melt_ptr_t *) & /*_.COMPICACHE__V57*/ meltfptr[56]; /*^apply.arg */ argtab[3].meltbp_aptr = - (melt_ptr_t *) & /*_.PROCURMODENVLIST__V75*/ meltfptr[74]; + (melt_ptr_t *) & /*_.PROCURMODENVLIST__V79*/ meltfptr[78]; /*^apply.arg */ argtab[4].meltbp_aptr = - (melt_ptr_t *) & /*_.IMPORTVALUES__V74*/ meltfptr[73]; - /*_.INIOBJ__V85*/ meltfptr[84] = + (melt_ptr_t *) & /*_.IMPORTVALUES__V78*/ meltfptr[77]; + /*_.INIOBJ__V89*/ meltfptr[88] = melt_apply ((meltclosure_ptr_t) ( /*_.INIPROCTRANSL__V7*/ meltfptr[6]), - (melt_ptr_t) ( /*_.INIPRO__V72*/ meltfptr[65]), + (melt_ptr_t) ( /*_.INIPRO__V76*/ meltfptr[69]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); @@ -7786,20 +8377,20 @@ lab_endgetargs:; /*citerblock FOREACH_IN_LIST */ { /* start foreach_in_list meltcit1__EACHLIST */ - for ( /*_.PAIREL__V86*/ meltfptr[85] = - melt_list_first ((melt_ptr_t) /*_.OBJLIST__V52*/ meltfptr[48]); - melt_magic_discr ((melt_ptr_t) /*_.PAIREL__V86*/ meltfptr[85]) == + for ( /*_.PAIREL__V90*/ meltfptr[89] = + melt_list_first ((melt_ptr_t) /*_.OBJLIST__V56*/ meltfptr[52]); + melt_magic_discr ((melt_ptr_t) /*_.PAIREL__V90*/ meltfptr[89]) == MELTOBMAG_PAIR; - /*_.PAIREL__V86*/ meltfptr[85] = - melt_pair_tail ((melt_ptr_t) /*_.PAIREL__V86*/ meltfptr[85])) + /*_.PAIREL__V90*/ meltfptr[89] = + melt_pair_tail ((melt_ptr_t) /*_.PAIREL__V90*/ meltfptr[89])) { - /*_.OBEL__V87*/ meltfptr[86] = - melt_pair_head ((melt_ptr_t) /*_.PAIREL__V86*/ meltfptr[85]); + /*_.OBEL__V91*/ meltfptr[90] = + melt_pair_head ((melt_ptr_t) /*_.PAIREL__V90*/ meltfptr[89]); #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5370:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5374:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7817,7 +8408,7 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - /*_#MELT_NEED_DBG__L35*/ meltfnum[31] = + /*_#MELT_NEED_DBG__L37*/ meltfnum[33] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -7825,22 +8416,22 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5370:/ cond"); - /*cond */ if ( /*_#MELT_NEED_DBG__L35*/ meltfnum[31]) /*then */ + MELT_LOCATION ("warmelt-outobj.melt:5374:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L37*/ meltfnum[33]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { - /*_#THE_MELTCALLCOUNT__L36*/ meltfnum[25] = + /*_#THE_MELTCALLCOUNT__L38*/ meltfnum[27] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5370:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5374:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7850,18 +8441,18 @@ lab_endgetargs:; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = - /*_#THE_MELTCALLCOUNT__L36*/ meltfnum[25]; + /*_#THE_MELTCALLCOUNT__L38*/ meltfnum[27]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5370; + argtab[2].meltbp_long = 5374; /*^apply.arg */ argtab[3].meltbp_cstring = "translate_macroexpanded_list obel="; /*^apply.arg */ argtab[4].meltbp_aptr = - (melt_ptr_t *) & /*_.OBEL__V87*/ meltfptr[86]; - /*_.MELT_DEBUG_FUN__V90*/ meltfptr[89] = + (melt_ptr_t *) & /*_.OBEL__V91*/ meltfptr[90]; + /*_.MELT_DEBUG_FUN__V94*/ meltfptr[93] = melt_apply ((meltclosure_ptr_t) (( /*!MELT_DEBUG_FUN */ meltfrout-> tabval[0])), @@ -7872,68 +8463,68 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - /*_.IF___V89*/ meltfptr[88] = - /*_.MELT_DEBUG_FUN__V90*/ meltfptr[89];; + /*_.IF___V93*/ meltfptr[92] = + /*_.MELT_DEBUG_FUN__V94*/ meltfptr[93];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5370:/ clear"); - /*clear *//*_#THE_MELTCALLCOUNT__L36*/ meltfnum[25] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5374:/ clear"); + /*clear *//*_#THE_MELTCALLCOUNT__L38*/ meltfnum[27] = 0; /*^clear */ - /*clear *//*_.MELT_DEBUG_FUN__V90*/ meltfptr[89] = 0; + /*clear *//*_.MELT_DEBUG_FUN__V94*/ meltfptr[93] = 0; } ; } else { /*^cond.else */ - /*_.IF___V89*/ meltfptr[88] = NULL;; + /*_.IF___V93*/ meltfptr[92] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5370:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5374:/ quasiblock"); - /*_.PROGN___V91*/ meltfptr[89] = /*_.IF___V89*/ meltfptr[88];; + /*_.PROGN___V95*/ meltfptr[93] = /*_.IF___V93*/ meltfptr[92];; /*^compute */ - /*_.IFCPP___V88*/ meltfptr[87] = /*_.PROGN___V91*/ meltfptr[89];; + /*_.IFCPP___V92*/ meltfptr[91] = /*_.PROGN___V95*/ meltfptr[93];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5370:/ clear"); - /*clear *//*_#MELT_NEED_DBG__L35*/ meltfnum[31] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5374:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L37*/ meltfnum[33] = 0; /*^clear */ - /*clear *//*_.IF___V89*/ meltfptr[88] = 0; + /*clear *//*_.IF___V93*/ meltfptr[92] = 0; /*^clear */ - /*clear *//*_.PROGN___V91*/ meltfptr[89] = 0; + /*clear *//*_.PROGN___V95*/ meltfptr[93] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V88*/ meltfptr[87] = ( /*nil */ NULL); + /*_.IFCPP___V92*/ meltfptr[91] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5372:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5376:/ quasiblock"); - MELT_LOCATION ("warmelt-outobj.melt:5373:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5377:/ checksignal"); MELT_CHECK_SIGNAL (); ; - /*_#IS_A__L37*/ meltfnum[25] = - melt_is_instance_of ((melt_ptr_t) ( /*_.OBEL__V87*/ meltfptr[86]), + /*_#IS_A__L39*/ meltfnum[27] = + melt_is_instance_of ((melt_ptr_t) ( /*_.OBEL__V91*/ meltfptr[90]), (melt_ptr_t) (( /*!CLASS_PROCROUTINEOBJ */ meltfrout->tabval[17])));; - MELT_LOCATION ("warmelt-outobj.melt:5373:/ cond"); - /*cond */ if ( /*_#IS_A__L37*/ meltfnum[25]) /*then */ + MELT_LOCATION ("warmelt-outobj.melt:5377:/ cond"); + /*cond */ if ( /*_#IS_A__L39*/ meltfnum[27]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:5374:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5378:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) - ( /*_.OBEL__V87*/ - meltfptr[86]), + ( /*_.OBEL__V91*/ + meltfptr[90]), (melt_ptr_t) (( /*!CLASS_PROCROUTINEOBJ */ meltfrout->tabval[17]))) ) /*then */ { @@ -7942,46 +8533,46 @@ lab_endgetargs:; { melt_ptr_t slot = NULL, obj = NULL; obj = - (melt_ptr_t) ( /*_.OBEL__V87*/ meltfptr[86]) /*=obj*/ + (melt_ptr_t) ( /*_.OBEL__V91*/ meltfptr[90]) /*=obj*/ ; melt_object_get_field (slot, obj, 14, "OPROUT_FILENUM"); - /*_.OPROUT_FILENUM__V93*/ meltfptr[89] = slot; + /*_.OPROUT_FILENUM__V97*/ meltfptr[93] = slot; }; ; } else { /*^cond.else */ - /*_.OPROUT_FILENUM__V93*/ meltfptr[89] = NULL;; + /*_.OPROUT_FILENUM__V97*/ meltfptr[93] = NULL;; } ; /*^compute */ - /*_#GET_INT__L39*/ meltfnum[38] = + /*_#GET_INT__L41*/ meltfnum[40] = (melt_get_int - ((melt_ptr_t) ( /*_.OPROUT_FILENUM__V93*/ meltfptr[89])));; + ((melt_ptr_t) ( /*_.OPROUT_FILENUM__V97*/ meltfptr[93])));; /*^compute */ - /*_#FILNUM__L38*/ meltfnum[31] = - /*_#GET_INT__L39*/ meltfnum[38];; + /*_#FILNUM__L40*/ meltfnum[33] = + /*_#GET_INT__L41*/ meltfnum[40];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5373:/ clear"); - /*clear *//*_.OPROUT_FILENUM__V93*/ meltfptr[89] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5377:/ clear"); + /*clear *//*_.OPROUT_FILENUM__V97*/ meltfptr[93] = 0; /*^clear */ - /*clear *//*_#GET_INT__L39*/ meltfnum[38] = 0; + /*clear *//*_#GET_INT__L41*/ meltfnum[40] = 0; } ; } else { /*^cond.else */ - /*_#FILNUM__L38*/ meltfnum[31] = 0;; + /*_#FILNUM__L40*/ meltfnum[33] = 0;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5376:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5380:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ - /*cond */ if ( /*_#FILNUM__L38*/ meltfnum[31]) /*then */ + /*cond */ if ( /*_#FILNUM__L40*/ meltfnum[33]) /*then */ { /*^cond.then */ /*^block */ @@ -8003,8 +8594,8 @@ lab_endgetargs:; argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.DECLBUF__V40*/ meltfptr[39]; /*^apply.arg */ - argtab[2].meltbp_long = /*_#FILNUM__L38*/ meltfnum[31]; - /*_.NTH_SECUNDARY_FILE__V95*/ meltfptr[94] = + argtab[2].meltbp_long = /*_#FILNUM__L40*/ meltfnum[33]; + /*_.NTH_SECUNDARY_FILE__V99*/ meltfptr[98] = melt_apply ((meltclosure_ptr_t) (( /*!NTH_SECUNDARY_FILE */ meltfrout-> tabval[18])), @@ -8014,26 +8605,26 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - /*_.SECFIL__V94*/ meltfptr[89] = - /*_.NTH_SECUNDARY_FILE__V95*/ meltfptr[94];; + /*_.SECFIL__V98*/ meltfptr[93] = + /*_.NTH_SECUNDARY_FILE__V99*/ meltfptr[98];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5376:/ clear"); - /*clear *//*_.NTH_SECUNDARY_FILE__V95*/ meltfptr[94] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5380:/ clear"); + /*clear *//*_.NTH_SECUNDARY_FILE__V99*/ meltfptr[98] = 0; } ; } else { /*^cond.else */ - /*_.SECFIL__V94*/ meltfptr[89] = NULL;; + /*_.SECFIL__V98*/ meltfptr[93] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5378:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5382:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ - /*cond */ if ( /*_.SECFIL__V94*/ meltfptr[89]) /*then */ + /*cond */ if ( /*_.SECFIL__V98*/ meltfptr[93]) /*then */ { /*^cond.then */ /*^block */ @@ -8044,8 +8635,8 @@ lab_endgetargs:; /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) - ( /*_.SECFIL__V94*/ - meltfptr[89]), + ( /*_.SECFIL__V98*/ + meltfptr[93]), (melt_ptr_t) (( /*!CLASS_SECONDARY_C_FILE */ meltfrout->tabval[19]))) ) /*then */ { @@ -8054,37 +8645,37 @@ lab_endgetargs:; { melt_ptr_t slot = NULL, obj = NULL; obj = - (melt_ptr_t) ( /*_.SECFIL__V94*/ meltfptr[89]) + (melt_ptr_t) ( /*_.SECFIL__V98*/ meltfptr[93]) /*=obj*/ ; melt_object_get_field (slot, obj, 3, "SECFIL_IMPLBUF"); - /*_.SECFIL_IMPLBUF__V97*/ meltfptr[96] = slot; + /*_.SECFIL_IMPLBUF__V101*/ meltfptr[100] = slot; }; ; } else { /*^cond.else */ - /*_.SECFIL_IMPLBUF__V97*/ meltfptr[96] = NULL;; + /*_.SECFIL_IMPLBUF__V101*/ meltfptr[100] = NULL;; } ; /*^compute */ - /*_.OUTIMPLBUF__V96*/ meltfptr[94] = - /*_.SECFIL_IMPLBUF__V97*/ meltfptr[96];; + /*_.OUTIMPLBUF__V100*/ meltfptr[98] = + /*_.SECFIL_IMPLBUF__V101*/ meltfptr[100];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5378:/ clear"); - /*clear *//*_.SECFIL_IMPLBUF__V97*/ meltfptr[96] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5382:/ clear"); + /*clear *//*_.SECFIL_IMPLBUF__V101*/ meltfptr[100] = 0; } ; } else { /*^cond.else */ - /*_.OUTIMPLBUF__V96*/ meltfptr[94] = + /*_.OUTIMPLBUF__V100*/ meltfptr[98] = /*_.IMPLBUF__V33*/ meltfptr[32];; } ; - MELT_LOCATION ("warmelt-outobj.melt:5380:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5384:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -8097,50 +8688,50 @@ lab_endgetargs:; (melt_ptr_t *) & /*_.DECLBUF__V40*/ meltfptr[39]; /*^ojbmsend.arg */ argtab[1].meltbp_aptr = - (melt_ptr_t *) & /*_.OUTIMPLBUF__V96*/ meltfptr[94]; + (melt_ptr_t *) & /*_.OUTIMPLBUF__V100*/ meltfptr[98]; /*^ojbmsend.arg */ argtab[2].meltbp_long = 0; - /*_.OUTPUT_C_CODE__V98*/ meltfptr[96] = - meltgc_send ((melt_ptr_t) ( /*_.OBEL__V87*/ meltfptr[86]), + /*_.OUTPUT_C_CODE__V102*/ meltfptr[100] = + meltgc_send ((melt_ptr_t) ( /*_.OBEL__V91*/ meltfptr[90]), (melt_ptr_t) (( /*!OUTPUT_C_CODE */ meltfrout-> tabval[20])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un *) 0); } ; - /*_.LET___V92*/ meltfptr[88] = - /*_.OUTPUT_C_CODE__V98*/ meltfptr[96];; + /*_.LET___V96*/ meltfptr[92] = + /*_.OUTPUT_C_CODE__V102*/ meltfptr[100];; - MELT_LOCATION ("warmelt-outobj.melt:5372:/ clear"); - /*clear *//*_#IS_A__L37*/ meltfnum[25] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5376:/ clear"); + /*clear *//*_#IS_A__L39*/ meltfnum[27] = 0; /*^clear */ - /*clear *//*_#FILNUM__L38*/ meltfnum[31] = 0; + /*clear *//*_#FILNUM__L40*/ meltfnum[33] = 0; /*^clear */ - /*clear *//*_.SECFIL__V94*/ meltfptr[89] = 0; + /*clear *//*_.SECFIL__V98*/ meltfptr[93] = 0; /*^clear */ - /*clear *//*_.OUTIMPLBUF__V96*/ meltfptr[94] = 0; + /*clear *//*_.OUTIMPLBUF__V100*/ meltfptr[98] = 0; /*^clear */ - /*clear *//*_.OUTPUT_C_CODE__V98*/ meltfptr[96] = 0; + /*clear *//*_.OUTPUT_C_CODE__V102*/ meltfptr[100] = 0; } /* end foreach_in_list meltcit1__EACHLIST */ - /*_.PAIREL__V86*/ meltfptr[85] = NULL; - /*_.OBEL__V87*/ meltfptr[86] = NULL; + /*_.PAIREL__V90*/ meltfptr[89] = NULL; + /*_.OBEL__V91*/ meltfptr[90] = NULL; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:5367:/ clear"); - /*clear *//*_.PAIREL__V86*/ meltfptr[85] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5371:/ clear"); + /*clear *//*_.PAIREL__V90*/ meltfptr[89] = 0; /*^clear */ - /*clear *//*_.OBEL__V87*/ meltfptr[86] = 0; + /*clear *//*_.OBEL__V91*/ meltfptr[90] = 0; /*^clear */ - /*clear *//*_.IFCPP___V88*/ meltfptr[87] = 0; + /*clear *//*_.IFCPP___V92*/ meltfptr[91] = 0; /*^clear */ - /*clear *//*_.LET___V92*/ meltfptr[88] = 0; + /*clear *//*_.LET___V96*/ meltfptr[92] = 0; } /*endciterblock FOREACH_IN_LIST */ ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5382:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5386:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8158,7 +8749,7 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - /*_#MELT_NEED_DBG__L40*/ meltfnum[38] = + /*_#MELT_NEED_DBG__L42*/ meltfnum[40] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -8166,22 +8757,22 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5382:/ cond"); - /*cond */ if ( /*_#MELT_NEED_DBG__L40*/ meltfnum[38]) /*then */ + MELT_LOCATION ("warmelt-outobj.melt:5386:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L42*/ meltfnum[40]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { - /*_#THE_MELTCALLCOUNT__L41*/ meltfnum[25] = + /*_#THE_MELTCALLCOUNT__L43*/ meltfnum[27] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5382:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5386:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -8191,11 +8782,11 @@ lab_endgetargs:; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = - /*_#THE_MELTCALLCOUNT__L41*/ meltfnum[25]; + /*_#THE_MELTCALLCOUNT__L43*/ meltfnum[27]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5382; + argtab[2].meltbp_long = 5386; /*^apply.arg */ argtab[3].meltbp_cstring = "translate_macroexpanded_list final modnamstr="; @@ -8206,8 +8797,8 @@ lab_endgetargs:; argtab[5].meltbp_cstring = " iniobj="; /*^apply.arg */ argtab[6].meltbp_aptr = - (melt_ptr_t *) & /*_.INIOBJ__V85*/ meltfptr[84]; - /*_.MELT_DEBUG_FUN__V101*/ meltfptr[96] = + (melt_ptr_t *) & /*_.INIOBJ__V89*/ meltfptr[88]; + /*_.MELT_DEBUG_FUN__V105*/ meltfptr[100] = melt_apply ((meltclosure_ptr_t) (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])), (melt_ptr_t) (( /*nil */ NULL)), @@ -8218,59 +8809,59 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - /*_.IF___V100*/ meltfptr[94] = - /*_.MELT_DEBUG_FUN__V101*/ meltfptr[96];; + /*_.IF___V104*/ meltfptr[98] = + /*_.MELT_DEBUG_FUN__V105*/ meltfptr[100];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5382:/ clear"); - /*clear *//*_#THE_MELTCALLCOUNT__L41*/ meltfnum[25] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5386:/ clear"); + /*clear *//*_#THE_MELTCALLCOUNT__L43*/ meltfnum[27] = 0; /*^clear */ - /*clear *//*_.MELT_DEBUG_FUN__V101*/ meltfptr[96] = 0; + /*clear *//*_.MELT_DEBUG_FUN__V105*/ meltfptr[100] = 0; } ; } else { /*^cond.else */ - /*_.IF___V100*/ meltfptr[94] = NULL;; + /*_.IF___V104*/ meltfptr[98] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5382:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5386:/ quasiblock"); - /*_.PROGN___V102*/ meltfptr[96] = /*_.IF___V100*/ meltfptr[94];; + /*_.PROGN___V106*/ meltfptr[100] = /*_.IF___V104*/ meltfptr[98];; /*^compute */ - /*_.IFCPP___V99*/ meltfptr[89] = /*_.PROGN___V102*/ meltfptr[96];; + /*_.IFCPP___V103*/ meltfptr[93] = /*_.PROGN___V106*/ meltfptr[100];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5382:/ clear"); - /*clear *//*_#MELT_NEED_DBG__L40*/ meltfnum[38] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5386:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L42*/ meltfnum[40] = 0; /*^clear */ - /*clear *//*_.IF___V100*/ meltfptr[94] = 0; + /*clear *//*_.IF___V104*/ meltfptr[98] = 0; /*^clear */ - /*clear *//*_.PROGN___V102*/ meltfptr[96] = 0; + /*clear *//*_.PROGN___V106*/ meltfptr[100] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V99*/ meltfptr[89] = ( /*nil */ NULL); + /*_.IFCPP___V103*/ meltfptr[93] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; { - MELT_LOCATION ("warmelt-outobj.melt:5383:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5387:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V33*/ meltfptr[32]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5384:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5388:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V33*/ meltfptr[32]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5386:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5390:/ quasiblock"); /*^checksignal */ @@ -8284,7 +8875,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & ( /*!DISCR_MULTIPLE */ meltfrout->tabval[22]); - /*_.GENDEVTUP__V104*/ meltfptr[96] = + /*_.GENDEVTUP__V108*/ meltfptr[100] = melt_apply ((meltclosure_ptr_t) (( /*!LIST_TO_MULTIPLE */ meltfrout->tabval[21])), (melt_ptr_t) ( /*_.GENDEVLIST__V30*/ meltfptr[29]), @@ -8292,12 +8883,12 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - /*_#NBGENDEV__L42*/ meltfnum[31] = + /*_#NBGENDEV__L44*/ meltfnum[33] = (melt_multiple_length - ((melt_ptr_t) ( /*_.GENDEVTUP__V104*/ meltfptr[96])));; + ((melt_ptr_t) ( /*_.GENDEVTUP__V108*/ meltfptr[100])));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5389:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5393:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8315,7 +8906,7 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - /*_#MELT_NEED_DBG__L43*/ meltfnum[25] = + /*_#MELT_NEED_DBG__L45*/ meltfnum[27] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -8323,22 +8914,22 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5389:/ cond"); - /*cond */ if ( /*_#MELT_NEED_DBG__L43*/ meltfnum[25]) /*then */ + MELT_LOCATION ("warmelt-outobj.melt:5393:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L45*/ meltfnum[27]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { - /*_#THE_MELTCALLCOUNT__L44*/ meltfnum[38] = + /*_#THE_MELTCALLCOUNT__L46*/ meltfnum[40] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5389:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5393:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -8348,23 +8939,23 @@ lab_endgetargs:; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = - /*_#THE_MELTCALLCOUNT__L44*/ meltfnum[38]; + /*_#THE_MELTCALLCOUNT__L46*/ meltfnum[40]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5389; + argtab[2].meltbp_long = 5393; /*^apply.arg */ argtab[3].meltbp_cstring = "translate_macroexpanded_list before emit_syntax_testing_routine gendevtup="; /*^apply.arg */ argtab[4].meltbp_aptr = - (melt_ptr_t *) & /*_.GENDEVTUP__V104*/ meltfptr[96]; + (melt_ptr_t *) & /*_.GENDEVTUP__V108*/ meltfptr[100]; /*^apply.arg */ argtab[5].meltbp_cstring = " gendevlist="; /*^apply.arg */ argtab[6].meltbp_aptr = (melt_ptr_t *) & /*_.GENDEVLIST__V30*/ meltfptr[29]; - /*_.MELT_DEBUG_FUN__V107*/ meltfptr[106] = + /*_.MELT_DEBUG_FUN__V111*/ meltfptr[110] = melt_apply ((meltclosure_ptr_t) (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])), (melt_ptr_t) (( /*nil */ NULL)), @@ -8375,56 +8966,56 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - /*_.IF___V106*/ meltfptr[105] = - /*_.MELT_DEBUG_FUN__V107*/ meltfptr[106];; + /*_.IF___V110*/ meltfptr[109] = + /*_.MELT_DEBUG_FUN__V111*/ meltfptr[110];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5389:/ clear"); - /*clear *//*_#THE_MELTCALLCOUNT__L44*/ meltfnum[38] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5393:/ clear"); + /*clear *//*_#THE_MELTCALLCOUNT__L46*/ meltfnum[40] = 0; /*^clear */ - /*clear *//*_.MELT_DEBUG_FUN__V107*/ meltfptr[106] = 0; + /*clear *//*_.MELT_DEBUG_FUN__V111*/ meltfptr[110] = 0; } ; } else { /*^cond.else */ - /*_.IF___V106*/ meltfptr[105] = NULL;; + /*_.IF___V110*/ meltfptr[109] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5389:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5393:/ quasiblock"); - /*_.PROGN___V108*/ meltfptr[106] = /*_.IF___V106*/ meltfptr[105];; + /*_.PROGN___V112*/ meltfptr[110] = /*_.IF___V110*/ meltfptr[109];; /*^compute */ - /*_.IFCPP___V105*/ meltfptr[104] = /*_.PROGN___V108*/ meltfptr[106];; + /*_.IFCPP___V109*/ meltfptr[108] = /*_.PROGN___V112*/ meltfptr[110];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5389:/ clear"); - /*clear *//*_#MELT_NEED_DBG__L43*/ meltfnum[25] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5393:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L45*/ meltfnum[27] = 0; /*^clear */ - /*clear *//*_.IF___V106*/ meltfptr[105] = 0; + /*clear *//*_.IF___V110*/ meltfptr[109] = 0; /*^clear */ - /*clear *//*_.PROGN___V108*/ meltfptr[106] = 0; + /*clear *//*_.PROGN___V112*/ meltfptr[110] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V105*/ meltfptr[104] = ( /*nil */ NULL); + /*_.IFCPP___V109*/ meltfptr[108] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5391:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5395:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ - /*cond */ if ( /*_#NBGENDEV__L42*/ meltfnum[31]) /*then */ + /*cond */ if ( /*_#NBGENDEV__L44*/ meltfnum[33]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:5392:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5396:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -8438,21 +9029,21 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.IMPLBUF__V33*/ meltfptr[32]; - /*_.EMIT_SYNTAX_TESTING_ROUTINE__V110*/ meltfptr[106] = + /*_.EMIT_SYNTAX_TESTING_ROUTINE__V114*/ meltfptr[110] = melt_apply ((meltclosure_ptr_t) (( /*!EMIT_SYNTAX_TESTING_ROUTINE */ meltfrout-> tabval[23])), - (melt_ptr_t) ( /*_.GENDEVTUP__V104*/ meltfptr[96]), + (melt_ptr_t) ( /*_.GENDEVTUP__V108*/ meltfptr[100]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; - /*_.IFELSE___V109*/ meltfptr[105] = - /*_.EMIT_SYNTAX_TESTING_ROUTINE__V110*/ meltfptr[106];; + /*_.IFELSE___V113*/ meltfptr[109] = + /*_.EMIT_SYNTAX_TESTING_ROUTINE__V114*/ meltfptr[110];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5391:/ clear"); - /*clear *//*_.EMIT_SYNTAX_TESTING_ROUTINE__V110*/ meltfptr[106] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5395:/ clear"); + /*clear *//*_.EMIT_SYNTAX_TESTING_ROUTINE__V114*/ meltfptr[110] = 0; } ; } @@ -8467,38 +9058,38 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:5393:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5397:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.IMPLBUF__V33*/ meltfptr[32]), ("/*no syntax testing generated*/")); } ; - /*clear *//*_.IFELSE___V109*/ meltfptr[105] = 0; + /*clear *//*_.IFELSE___V113*/ meltfptr[109] = 0; /*epilog */ } ; } ; /*^compute */ - /*_.LET___V103*/ meltfptr[94] = /*_.IFELSE___V109*/ meltfptr[105];; + /*_.LET___V107*/ meltfptr[98] = /*_.IFELSE___V113*/ meltfptr[109];; - MELT_LOCATION ("warmelt-outobj.melt:5386:/ clear"); - /*clear *//*_.GENDEVTUP__V104*/ meltfptr[96] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5390:/ clear"); + /*clear *//*_.GENDEVTUP__V108*/ meltfptr[100] = 0; /*^clear */ - /*clear *//*_#NBGENDEV__L42*/ meltfnum[31] = 0; + /*clear *//*_#NBGENDEV__L44*/ meltfnum[33] = 0; /*^clear */ - /*clear *//*_.IFCPP___V105*/ meltfptr[104] = 0; + /*clear *//*_.IFCPP___V109*/ meltfptr[108] = 0; /*^clear */ - /*clear *//*_.IFELSE___V109*/ meltfptr[105] = 0; + /*clear *//*_.IFELSE___V113*/ meltfptr[109] = 0; { - MELT_LOCATION ("warmelt-outobj.melt:5396:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5400:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.IMPLBUF__V33*/ meltfptr[32]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5398:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5402:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^msend */ @@ -8514,15 +9105,15 @@ lab_endgetargs:; (melt_ptr_t *) & /*_.IMPLBUF__V33*/ meltfptr[32]; /*^ojbmsend.arg */ argtab[2].meltbp_long = 0; - /*_.OUTPUT_C_CODE__V111*/ meltfptr[106] = - meltgc_send ((melt_ptr_t) ( /*_.INIOBJ__V85*/ meltfptr[84]), + /*_.OUTPUT_C_CODE__V115*/ meltfptr[110] = + meltgc_send ((melt_ptr_t) ( /*_.INIOBJ__V89*/ meltfptr[88]), (melt_ptr_t) (( /*!OUTPUT_C_CODE */ meltfrout-> tabval[20])), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5399:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5403:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -8536,7 +9127,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.IMPLBUF__V33*/ meltfptr[32]; - /*_.OUTPUT_EXPORTED_OFFSETS__V112*/ meltfptr[96] = + /*_.OUTPUT_EXPORTED_OFFSETS__V116*/ meltfptr[100] = melt_apply ((meltclosure_ptr_t) (( /*!OUTPUT_EXPORTED_OFFSETS */ meltfrout->tabval[24])), (melt_ptr_t) ( /*_.MODCTX__V4*/ meltfptr[3]), @@ -8544,13 +9135,13 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5401:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5405:/ checksignal"); MELT_CHECK_SIGNAL (); ; - /*_#STRBUF_USEDLENGTH__L45*/ meltfnum[38] = + /*_#STRBUF_USEDLENGTH__L47*/ meltfnum[40] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.DECLBUF__V40*/ meltfptr[39]));; - MELT_LOCATION ("warmelt-outobj.melt:5401:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5405:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -8569,29 +9160,29 @@ lab_endgetargs:; (melt_ptr_t) (( /*!BUFFER_LIMIT_CONT */ meltfrout-> tabval[25])) /*=obj*/ ; melt_object_get_field (slot, obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V113*/ meltfptr[104] = slot; + /*_.REFERENCED_VALUE__V117*/ meltfptr[108] = slot; }; ; } else { /*^cond.else */ - /*_.REFERENCED_VALUE__V113*/ meltfptr[104] = NULL;; + /*_.REFERENCED_VALUE__V117*/ meltfptr[108] = NULL;; } ; /*^compute */ - /*_#GET_INT__L46*/ meltfnum[25] = + /*_#GET_INT__L48*/ meltfnum[27] = (melt_get_int - ((melt_ptr_t) ( /*_.REFERENCED_VALUE__V113*/ meltfptr[104])));; + ((melt_ptr_t) ( /*_.REFERENCED_VALUE__V117*/ meltfptr[108])));; /*^compute */ - /*_#IRAW__L47*/ meltfnum[31] = - (( /*_#GET_INT__L46*/ meltfnum[25]) / (2));; + /*_#IRAW__L49*/ meltfnum[33] = + (( /*_#GET_INT__L48*/ meltfnum[27]) / (2));; /*^compute */ - /*_#I__L48*/ meltfnum[47] = - (( /*_#STRBUF_USEDLENGTH__L45*/ meltfnum[38]) > - ( /*_#IRAW__L47*/ meltfnum[31]));; - MELT_LOCATION ("warmelt-outobj.melt:5401:/ cond"); - /*cond */ if ( /*_#I__L48*/ meltfnum[47]) /*then */ + /*_#I__L50*/ meltfnum[49] = + (( /*_#STRBUF_USEDLENGTH__L47*/ meltfnum[40]) > + ( /*_#IRAW__L49*/ meltfnum[33]));; + MELT_LOCATION ("warmelt-outobj.melt:5405:/ cond"); + /*cond */ if ( /*_#I__L50*/ meltfnum[49]) /*then */ { /*^cond.then */ /*^block */ @@ -8600,7 +9191,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:5402:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5406:/ locexp"); warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ("very large declaration string buffer for module "), melt_string_str ((melt_ptr_t) @@ -8612,13 +9203,13 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:5403:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5407:/ checksignal"); MELT_CHECK_SIGNAL (); ; - /*_#STRBUF_USEDLENGTH__L49*/ meltfnum[48] = + /*_#STRBUF_USEDLENGTH__L51*/ meltfnum[50] = melt_strbuf_usedlength ((melt_ptr_t) ( /*_.IMPLBUF__V33*/ meltfptr[32]));; - MELT_LOCATION ("warmelt-outobj.melt:5403:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5407:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -8637,29 +9228,29 @@ lab_endgetargs:; (melt_ptr_t) (( /*!BUFFER_LIMIT_CONT */ meltfrout-> tabval[25])) /*=obj*/ ; melt_object_get_field (slot, obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V114*/ meltfptr[105] = slot; + /*_.REFERENCED_VALUE__V118*/ meltfptr[109] = slot; }; ; } else { /*^cond.else */ - /*_.REFERENCED_VALUE__V114*/ meltfptr[105] = NULL;; + /*_.REFERENCED_VALUE__V118*/ meltfptr[109] = NULL;; } ; /*^compute */ - /*_#GET_INT__L50*/ meltfnum[49] = + /*_#GET_INT__L52*/ meltfnum[51] = (melt_get_int - ((melt_ptr_t) ( /*_.REFERENCED_VALUE__V114*/ meltfptr[105])));; + ((melt_ptr_t) ( /*_.REFERENCED_VALUE__V118*/ meltfptr[109])));; /*^compute */ - /*_#IRAW__L51*/ meltfnum[50] = - (( /*_#GET_INT__L50*/ meltfnum[49]) / (2));; + /*_#IRAW__L53*/ meltfnum[52] = + (( /*_#GET_INT__L52*/ meltfnum[51]) / (2));; /*^compute */ - /*_#I__L52*/ meltfnum[51] = - (( /*_#STRBUF_USEDLENGTH__L49*/ meltfnum[48]) > - ( /*_#IRAW__L51*/ meltfnum[50]));; - MELT_LOCATION ("warmelt-outobj.melt:5403:/ cond"); - /*cond */ if ( /*_#I__L52*/ meltfnum[51]) /*then */ + /*_#I__L54*/ meltfnum[53] = + (( /*_#STRBUF_USEDLENGTH__L51*/ meltfnum[50]) > + ( /*_#IRAW__L53*/ meltfnum[52]));; + MELT_LOCATION ("warmelt-outobj.melt:5407:/ cond"); + /*cond */ if ( /*_#I__L54*/ meltfnum[53]) /*then */ { /*^cond.then */ /*^block */ @@ -8668,7 +9259,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:5404:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5408:/ locexp"); warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ("very large implementation string buffer module for "), melt_string_str ((melt_ptr_t) @@ -8682,7 +9273,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5407:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5411:/ locexp"); /* translate_macroexpanded_list OUTPUTCFILE__1: */ melt_output_cfile_decl_impl ((melt_ptr_t) ( /*_.MODNAMSTR__V3*/ meltfptr[2]), @@ -8691,7 +9282,7 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-outobj.melt:5414:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5418:/ quasiblock"); /*^cond */ @@ -8708,27 +9299,27 @@ lab_endgetargs:; melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.MODCTX__V4*/ meltfptr[3]) /*=obj*/ ; melt_object_get_field (slot, obj, 5, "MOCX_FILETUPLE"); - /*_.SECFILES__V116*/ meltfptr[115] = slot; + /*_.SECFILES__V120*/ meltfptr[119] = slot; }; ; } else { /*^cond.else */ - /*_.SECFILES__V116*/ meltfptr[115] = NULL;; + /*_.SECFILES__V120*/ meltfptr[119] = NULL;; } ; /*^compute */ - /*_#NBSECFILES__L53*/ meltfnum[52] = 0;; + /*_#NBSECFILES__L55*/ meltfnum[54] = 0;; /*^compute */ - /*_#LGSECFILES__L54*/ meltfnum[53] = + /*_#LGSECFILES__L56*/ meltfnum[55] = (melt_multiple_length - ((melt_ptr_t) ( /*_.SECFILES__V116*/ meltfptr[115])));; + ((melt_ptr_t) ( /*_.SECFILES__V120*/ meltfptr[119])));; /*^compute */ - /*_#HISECFILERK__L55*/ meltfnum[54] = 0;; + /*_#HISECFILERK__L57*/ meltfnum[56] = 0;; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5419:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5423:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8746,7 +9337,7 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - /*_#MELT_NEED_DBG__L56*/ meltfnum[55] = + /*_#MELT_NEED_DBG__L58*/ meltfnum[57] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -8754,22 +9345,22 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5419:/ cond"); - /*cond */ if ( /*_#MELT_NEED_DBG__L56*/ meltfnum[55]) /*then */ + MELT_LOCATION ("warmelt-outobj.melt:5423:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L58*/ meltfnum[57]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { - /*_#THE_MELTCALLCOUNT__L57*/ meltfnum[56] = + /*_#THE_MELTCALLCOUNT__L59*/ meltfnum[58] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5419:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5423:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -8779,18 +9370,18 @@ lab_endgetargs:; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = - /*_#THE_MELTCALLCOUNT__L57*/ meltfnum[56]; + /*_#THE_MELTCALLCOUNT__L59*/ meltfnum[58]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5419; + argtab[2].meltbp_long = 5423; /*^apply.arg */ argtab[3].meltbp_cstring = "translate_macroexpanded_list secfiles="; /*^apply.arg */ argtab[4].meltbp_aptr = - (melt_ptr_t *) & /*_.SECFILES__V116*/ meltfptr[115]; - /*_.MELT_DEBUG_FUN__V119*/ meltfptr[118] = + (melt_ptr_t *) & /*_.SECFILES__V120*/ meltfptr[119]; + /*_.MELT_DEBUG_FUN__V123*/ meltfptr[122] = melt_apply ((meltclosure_ptr_t) (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])), (melt_ptr_t) (( /*nil */ NULL)), @@ -8800,67 +9391,67 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - /*_.IF___V118*/ meltfptr[117] = - /*_.MELT_DEBUG_FUN__V119*/ meltfptr[118];; + /*_.IF___V122*/ meltfptr[121] = + /*_.MELT_DEBUG_FUN__V123*/ meltfptr[122];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5419:/ clear"); - /*clear *//*_#THE_MELTCALLCOUNT__L57*/ meltfnum[56] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5423:/ clear"); + /*clear *//*_#THE_MELTCALLCOUNT__L59*/ meltfnum[58] = 0; /*^clear */ - /*clear *//*_.MELT_DEBUG_FUN__V119*/ meltfptr[118] = 0; + /*clear *//*_.MELT_DEBUG_FUN__V123*/ meltfptr[122] = 0; } ; } else { /*^cond.else */ - /*_.IF___V118*/ meltfptr[117] = NULL;; + /*_.IF___V122*/ meltfptr[121] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5419:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5423:/ quasiblock"); - /*_.PROGN___V120*/ meltfptr[118] = /*_.IF___V118*/ meltfptr[117];; + /*_.PROGN___V124*/ meltfptr[122] = /*_.IF___V122*/ meltfptr[121];; /*^compute */ - /*_.IFCPP___V117*/ meltfptr[116] = /*_.PROGN___V120*/ meltfptr[118];; + /*_.IFCPP___V121*/ meltfptr[120] = /*_.PROGN___V124*/ meltfptr[122];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5419:/ clear"); - /*clear *//*_#MELT_NEED_DBG__L56*/ meltfnum[55] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5423:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L58*/ meltfnum[57] = 0; /*^clear */ - /*clear *//*_.IF___V118*/ meltfptr[117] = 0; + /*clear *//*_.IF___V122*/ meltfptr[121] = 0; /*^clear */ - /*clear *//*_.PROGN___V120*/ meltfptr[118] = 0; + /*clear *//*_.PROGN___V124*/ meltfptr[122] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V117*/ meltfptr[116] = ( /*nil */ NULL); + /*_.IFCPP___V121*/ meltfptr[120] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; /*citerblock FOREACH_IN_MULTIPLE */ { /* start foreach_in_multiple meltcit2__EACHTUP */ long meltcit2__EACHTUP_ln = - melt_multiple_length ((melt_ptr_t) /*_.SECFILES__V116*/ - meltfptr[115]); - for ( /*_#FILIX__L58*/ meltfnum[56] = 0; - ( /*_#FILIX__L58*/ meltfnum[56] >= 0) - && ( /*_#FILIX__L58*/ meltfnum[56] < meltcit2__EACHTUP_ln); - /*_#FILIX__L58*/ meltfnum[56]++) + melt_multiple_length ((melt_ptr_t) /*_.SECFILES__V120*/ + meltfptr[119]); + for ( /*_#FILIX__L60*/ meltfnum[58] = 0; + ( /*_#FILIX__L60*/ meltfnum[58] >= 0) + && ( /*_#FILIX__L60*/ meltfnum[58] < meltcit2__EACHTUP_ln); + /*_#FILIX__L60*/ meltfnum[58]++) { - /*_.CURFIL__V121*/ meltfptr[117] = + /*_.CURFIL__V125*/ meltfptr[121] = melt_multiple_nth ((melt_ptr_t) - ( /*_.SECFILES__V116*/ meltfptr[115]), - /*_#FILIX__L58*/ meltfnum[56]); + ( /*_.SECFILES__V120*/ meltfptr[119]), + /*_#FILIX__L60*/ meltfnum[58]); - MELT_LOCATION ("warmelt-outobj.melt:5423:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5427:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ - /*cond */ if ( /*_.CURFIL__V121*/ meltfptr[117]) /*then */ + /*cond */ if ( /*_.CURFIL__V125*/ meltfptr[121]) /*then */ { /*^cond.then */ /*^block */ @@ -8869,7 +9460,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5425:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5429:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8877,19 +9468,19 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - /*_#IS_A__L59*/ meltfnum[55] = + /*_#IS_A__L61*/ meltfnum[57] = melt_is_instance_of ((melt_ptr_t) - ( /*_.CURFIL__V121*/ meltfptr[117]), + ( /*_.CURFIL__V125*/ meltfptr[121]), (melt_ptr_t) (( /*!CLASS_SECONDARY_C_FILE */ meltfrout->tabval[19])));; - MELT_LOCATION ("warmelt-outobj.melt:5425:/ cond"); - /*cond */ if ( /*_#IS_A__L59*/ meltfnum[55]) /*then */ + MELT_LOCATION ("warmelt-outobj.melt:5429:/ cond"); + /*cond */ if ( /*_#IS_A__L61*/ meltfnum[57]) /*then */ { /*^cond.then */ - /*_.IFELSE___V123*/ meltfptr[122] = ( /*nil */ NULL);; + /*_.IFELSE___V127*/ meltfptr[126] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-outobj.melt:5425:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5429:/ cond.else"); /*^block */ /*anyblock */ @@ -8904,36 +9495,36 @@ lab_endgetargs:; ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5425) ? (5425) : __LINE__, + (5429) ? (5429) : __LINE__, __FUNCTION__); ; } ; - /*clear *//*_.IFELSE___V123*/ meltfptr[122] = 0; + /*clear *//*_.IFELSE___V127*/ meltfptr[126] = 0; /*epilog */ } ; } ; /*^compute */ - /*_.IFCPP___V122*/ meltfptr[118] = - /*_.IFELSE___V123*/ meltfptr[122];; + /*_.IFCPP___V126*/ meltfptr[122] = + /*_.IFELSE___V127*/ meltfptr[126];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5425:/ clear"); - /*clear *//*_#IS_A__L59*/ meltfnum[55] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5429:/ clear"); + /*clear *//*_#IS_A__L61*/ meltfnum[57] = 0; /*^clear */ - /*clear *//*_.IFELSE___V123*/ meltfptr[122] = 0; + /*clear *//*_.IFELSE___V127*/ meltfptr[126] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V122*/ meltfptr[118] = ( /*nil */ NULL); + /*_.IFCPP___V126*/ meltfptr[122] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5427:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5431:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8941,22 +9532,22 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - /*_#GET_INT__L60*/ meltfnum[55] = + /*_#GET_INT__L62*/ meltfnum[57] = (melt_get_int - ((melt_ptr_t) ( /*_.CURFIL__V121*/ meltfptr[117])));; + ((melt_ptr_t) ( /*_.CURFIL__V125*/ meltfptr[121])));; /*^compute */ - /*_#I__L61*/ meltfnum[60] = - (( /*_#GET_INT__L60*/ meltfnum[55]) == - ( /*_#FILIX__L58*/ meltfnum[56]));; - MELT_LOCATION ("warmelt-outobj.melt:5427:/ cond"); - /*cond */ if ( /*_#I__L61*/ meltfnum[60]) /*then */ + /*_#I__L63*/ meltfnum[62] = + (( /*_#GET_INT__L62*/ meltfnum[57]) == + ( /*_#FILIX__L60*/ meltfnum[58]));; + MELT_LOCATION ("warmelt-outobj.melt:5431:/ cond"); + /*cond */ if ( /*_#I__L63*/ meltfnum[62]) /*then */ { /*^cond.then */ - /*_.IFELSE___V125*/ meltfptr[124] = ( /*nil */ NULL);; + /*_.IFELSE___V129*/ meltfptr[128] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-outobj.melt:5427:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5431:/ cond.else"); /*^block */ /*anyblock */ @@ -8971,55 +9562,55 @@ lab_endgetargs:; ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5427) ? (5427) : __LINE__, + (5431) ? (5431) : __LINE__, __FUNCTION__); ; } ; - /*clear *//*_.IFELSE___V125*/ meltfptr[124] = 0; + /*clear *//*_.IFELSE___V129*/ meltfptr[128] = 0; /*epilog */ } ; } ; /*^compute */ - /*_.IFCPP___V124*/ meltfptr[122] = - /*_.IFELSE___V125*/ meltfptr[124];; + /*_.IFCPP___V128*/ meltfptr[126] = + /*_.IFELSE___V129*/ meltfptr[128];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5427:/ clear"); - /*clear *//*_#GET_INT__L60*/ meltfnum[55] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5431:/ clear"); + /*clear *//*_#GET_INT__L62*/ meltfnum[57] = 0; /*^clear */ - /*clear *//*_#I__L61*/ meltfnum[60] = 0; + /*clear *//*_#I__L63*/ meltfnum[62] = 0; /*^clear */ - /*clear *//*_.IFELSE___V125*/ meltfptr[124] = 0; + /*clear *//*_.IFELSE___V129*/ meltfptr[128] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V124*/ meltfptr[122] = ( /*nil */ NULL); + /*_.IFCPP___V128*/ meltfptr[126] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5429:/ compute"); - /*_#HISECFILERK__L55*/ meltfnum[54] = - /*_#SETQ___L62*/ meltfnum[55] = - /*_#FILIX__L58*/ meltfnum[56];; + MELT_LOCATION ("warmelt-outobj.melt:5433:/ compute"); + /*_#HISECFILERK__L57*/ meltfnum[56] = + /*_#SETQ___L64*/ meltfnum[57] = + /*_#FILIX__L60*/ meltfnum[58];; { - MELT_LOCATION ("warmelt-outobj.melt:5430:/ locexp"); - /*increment *//*_#NBSECFILES__L53*/ meltfnum[52] += 1; + MELT_LOCATION ("warmelt-outobj.melt:5434:/ locexp"); + /*increment *//*_#NBSECFILES__L55*/ meltfnum[54] += 1; ; } ; - MELT_LOCATION ("warmelt-outobj.melt:5432:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5436:/ quasiblock"); /*^cond */ /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) - ( /*_.CURFIL__V121*/ - meltfptr[117]), + ( /*_.CURFIL__V125*/ + meltfptr[121]), (melt_ptr_t) (( /*!CLASS_SECONDARY_C_FILE */ meltfrout->tabval[19]))) ) /*then */ { @@ -9028,25 +9619,25 @@ lab_endgetargs:; { melt_ptr_t slot = NULL, obj = NULL; obj = - (melt_ptr_t) ( /*_.CURFIL__V121*/ meltfptr[117]) + (melt_ptr_t) ( /*_.CURFIL__V125*/ meltfptr[121]) /*=obj*/ ; melt_object_get_field (slot, obj, 1, "SECFIL_PATH"); - /*_.SECFILPATH__V126*/ meltfptr[124] = slot; + /*_.SECFILPATH__V130*/ meltfptr[128] = slot; }; ; } else { /*^cond.else */ - /*_.SECFILPATH__V126*/ meltfptr[124] = NULL;; + /*_.SECFILPATH__V130*/ meltfptr[128] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5433:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5437:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) - ( /*_.CURFIL__V121*/ - meltfptr[117]), + ( /*_.CURFIL__V125*/ + meltfptr[121]), (melt_ptr_t) (( /*!CLASS_SECONDARY_C_FILE */ meltfrout->tabval[19]))) ) /*then */ { @@ -9055,25 +9646,25 @@ lab_endgetargs:; { melt_ptr_t slot = NULL, obj = NULL; obj = - (melt_ptr_t) ( /*_.CURFIL__V121*/ meltfptr[117]) + (melt_ptr_t) ( /*_.CURFIL__V125*/ meltfptr[121]) /*=obj*/ ; melt_object_get_field (slot, obj, 2, "SECFIL_DECLBUF"); - /*_.SECDECLBUF__V127*/ meltfptr[126] = slot; + /*_.SECDECLBUF__V131*/ meltfptr[130] = slot; }; ; } else { /*^cond.else */ - /*_.SECDECLBUF__V127*/ meltfptr[126] = NULL;; + /*_.SECDECLBUF__V131*/ meltfptr[130] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5434:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5438:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) - ( /*_.CURFIL__V121*/ - meltfptr[117]), + ( /*_.CURFIL__V125*/ + meltfptr[121]), (melt_ptr_t) (( /*!CLASS_SECONDARY_C_FILE */ meltfrout->tabval[19]))) ) /*then */ { @@ -9082,27 +9673,27 @@ lab_endgetargs:; { melt_ptr_t slot = NULL, obj = NULL; obj = - (melt_ptr_t) ( /*_.CURFIL__V121*/ meltfptr[117]) + (melt_ptr_t) ( /*_.CURFIL__V125*/ meltfptr[121]) /*=obj*/ ; melt_object_get_field (slot, obj, 3, "SECFIL_IMPLBUF"); - /*_.SECIMPLBUF__V128*/ meltfptr[127] = slot; + /*_.SECIMPLBUF__V132*/ meltfptr[131] = slot; }; ; } else { /*^cond.else */ - /*_.SECIMPLBUF__V128*/ meltfptr[127] = NULL;; + /*_.SECIMPLBUF__V132*/ meltfptr[131] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5437:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5441:/ checksignal"); MELT_CHECK_SIGNAL (); ; - /*_#STRBUF_USEDLENGTH__L63*/ meltfnum[60] = + /*_#STRBUF_USEDLENGTH__L65*/ meltfnum[62] = melt_strbuf_usedlength ((melt_ptr_t) - ( /*_.SECDECLBUF__V127*/ - meltfptr[126]));; - MELT_LOCATION ("warmelt-outobj.melt:5437:/ cond"); + ( /*_.SECDECLBUF__V131*/ + meltfptr[130]));; + MELT_LOCATION ("warmelt-outobj.melt:5441:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -9120,30 +9711,30 @@ lab_endgetargs:; tabval[25])) /*=obj*/ ; melt_object_get_field (slot, obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V129*/ meltfptr[128] = slot; + /*_.REFERENCED_VALUE__V133*/ meltfptr[132] = slot; }; ; } else { /*^cond.else */ - /*_.REFERENCED_VALUE__V129*/ meltfptr[128] = NULL;; + /*_.REFERENCED_VALUE__V133*/ meltfptr[132] = NULL;; } ; /*^compute */ - /*_#GET_INT__L64*/ meltfnum[63] = + /*_#GET_INT__L66*/ meltfnum[65] = (melt_get_int ((melt_ptr_t) - ( /*_.REFERENCED_VALUE__V129*/ meltfptr[128])));; + ( /*_.REFERENCED_VALUE__V133*/ meltfptr[132])));; /*^compute */ - /*_#IRAW__L65*/ meltfnum[64] = - (( /*_#GET_INT__L64*/ meltfnum[63]) / (2));; + /*_#IRAW__L67*/ meltfnum[66] = + (( /*_#GET_INT__L66*/ meltfnum[65]) / (2));; /*^compute */ - /*_#I__L66*/ meltfnum[65] = - (( /*_#STRBUF_USEDLENGTH__L63*/ meltfnum[60]) > - ( /*_#IRAW__L65*/ meltfnum[64]));; - MELT_LOCATION ("warmelt-outobj.melt:5437:/ cond"); - /*cond */ if ( /*_#I__L66*/ meltfnum[65]) /*then */ + /*_#I__L68*/ meltfnum[67] = + (( /*_#STRBUF_USEDLENGTH__L65*/ meltfnum[62]) > + ( /*_#IRAW__L67*/ meltfnum[66]));; + MELT_LOCATION ("warmelt-outobj.melt:5441:/ cond"); + /*cond */ if ( /*_#I__L68*/ meltfnum[67]) /*then */ { /*^cond.then */ /*^block */ @@ -9152,13 +9743,13 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:5438:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5442:/ locexp"); warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ("very large declaration string buffer for secondary file "), melt_string_str ((melt_ptr_t) - ( /*_.SECFILPATH__V126*/ - meltfptr[124]))); + ( /*_.SECFILPATH__V130*/ + meltfptr[128]))); } ; /*epilog */ @@ -9166,14 +9757,14 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:5439:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5443:/ checksignal"); MELT_CHECK_SIGNAL (); ; - /*_#STRBUF_USEDLENGTH__L67*/ meltfnum[66] = + /*_#STRBUF_USEDLENGTH__L69*/ meltfnum[68] = melt_strbuf_usedlength ((melt_ptr_t) - ( /*_.SECIMPLBUF__V128*/ - meltfptr[127]));; - MELT_LOCATION ("warmelt-outobj.melt:5439:/ cond"); + ( /*_.SECIMPLBUF__V132*/ + meltfptr[131]));; + MELT_LOCATION ("warmelt-outobj.melt:5443:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -9191,30 +9782,30 @@ lab_endgetargs:; tabval[25])) /*=obj*/ ; melt_object_get_field (slot, obj, 0, "REFERENCED_VALUE"); - /*_.REFERENCED_VALUE__V130*/ meltfptr[129] = slot; + /*_.REFERENCED_VALUE__V134*/ meltfptr[133] = slot; }; ; } else { /*^cond.else */ - /*_.REFERENCED_VALUE__V130*/ meltfptr[129] = NULL;; + /*_.REFERENCED_VALUE__V134*/ meltfptr[133] = NULL;; } ; /*^compute */ - /*_#GET_INT__L68*/ meltfnum[67] = + /*_#GET_INT__L70*/ meltfnum[69] = (melt_get_int ((melt_ptr_t) - ( /*_.REFERENCED_VALUE__V130*/ meltfptr[129])));; + ( /*_.REFERENCED_VALUE__V134*/ meltfptr[133])));; /*^compute */ - /*_#IRAW__L69*/ meltfnum[68] = - (( /*_#GET_INT__L68*/ meltfnum[67]) / (2));; + /*_#IRAW__L71*/ meltfnum[70] = + (( /*_#GET_INT__L70*/ meltfnum[69]) / (2));; /*^compute */ - /*_#I__L70*/ meltfnum[69] = - (( /*_#STRBUF_USEDLENGTH__L67*/ meltfnum[66]) > - ( /*_#IRAW__L69*/ meltfnum[68]));; - MELT_LOCATION ("warmelt-outobj.melt:5439:/ cond"); - /*cond */ if ( /*_#I__L70*/ meltfnum[69]) /*then */ + /*_#I__L72*/ meltfnum[71] = + (( /*_#STRBUF_USEDLENGTH__L69*/ meltfnum[68]) > + ( /*_#IRAW__L71*/ meltfnum[70]));; + MELT_LOCATION ("warmelt-outobj.melt:5443:/ cond"); + /*cond */ if ( /*_#I__L72*/ meltfnum[71]) /*then */ { /*^cond.then */ /*^block */ @@ -9223,13 +9814,13 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:5440:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5444:/ locexp"); warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ("very large implementation string buffer for secondary file "), melt_string_str ((melt_ptr_t) - ( /*_.SECFILPATH__V126*/ - meltfptr[124]))); + ( /*_.SECFILPATH__V130*/ + meltfptr[128]))); } ; /*epilog */ @@ -9239,71 +9830,183 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5444:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5448:/ locexp"); /* translate_macroexpanded_list SECFILOUT__1: */ melt_output_cfile_decl_impl_secondary - ((melt_ptr_t) ( /*_.SECFILPATH__V126*/ meltfptr[124]), - (melt_ptr_t) ( /*_.SECDECLBUF__V127*/ meltfptr[126]), - (melt_ptr_t) ( /*_.SECIMPLBUF__V128*/ meltfptr[127]), - /*_#FILIX__L58*/ meltfnum[56]); + ((melt_ptr_t) ( /*_.SECFILPATH__V130*/ meltfptr[128]), + (melt_ptr_t) ( /*_.SECDECLBUF__V131*/ meltfptr[130]), + (melt_ptr_t) ( /*_.SECIMPLBUF__V132*/ meltfptr[131]), + /*_#FILIX__L60*/ meltfnum[58]); ; } ; - MELT_LOCATION ("warmelt-outobj.melt:5432:/ clear"); - /*clear *//*_.SECFILPATH__V126*/ meltfptr[124] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5436:/ clear"); + /*clear *//*_.SECFILPATH__V130*/ meltfptr[128] = 0; /*^clear */ - /*clear *//*_.SECDECLBUF__V127*/ meltfptr[126] = 0; + /*clear *//*_.SECDECLBUF__V131*/ meltfptr[130] = 0; /*^clear */ - /*clear *//*_.SECIMPLBUF__V128*/ meltfptr[127] = 0; + /*clear *//*_.SECIMPLBUF__V132*/ meltfptr[131] = 0; /*^clear */ - /*clear *//*_#STRBUF_USEDLENGTH__L63*/ meltfnum[60] = 0; + /*clear *//*_#STRBUF_USEDLENGTH__L65*/ meltfnum[62] = 0; /*^clear */ - /*clear *//*_.REFERENCED_VALUE__V129*/ meltfptr[128] = 0; + /*clear *//*_.REFERENCED_VALUE__V133*/ meltfptr[132] = 0; /*^clear */ - /*clear *//*_#GET_INT__L64*/ meltfnum[63] = 0; + /*clear *//*_#GET_INT__L66*/ meltfnum[65] = 0; /*^clear */ - /*clear *//*_#IRAW__L65*/ meltfnum[64] = 0; + /*clear *//*_#IRAW__L67*/ meltfnum[66] = 0; /*^clear */ - /*clear *//*_#I__L66*/ meltfnum[65] = 0; + /*clear *//*_#I__L68*/ meltfnum[67] = 0; /*^clear */ - /*clear *//*_#STRBUF_USEDLENGTH__L67*/ meltfnum[66] = 0; + /*clear *//*_#STRBUF_USEDLENGTH__L69*/ meltfnum[68] = 0; /*^clear */ - /*clear *//*_.REFERENCED_VALUE__V130*/ meltfptr[129] = 0; + /*clear *//*_.REFERENCED_VALUE__V134*/ meltfptr[133] = 0; /*^clear */ - /*clear *//*_#GET_INT__L68*/ meltfnum[67] = 0; + /*clear *//*_#GET_INT__L70*/ meltfnum[69] = 0; /*^clear */ - /*clear *//*_#IRAW__L69*/ meltfnum[68] = 0; + /*clear *//*_#IRAW__L71*/ meltfnum[70] = 0; /*^clear */ - /*clear *//*_#I__L70*/ meltfnum[69] = 0; - MELT_LOCATION ("warmelt-outobj.melt:5424:/ quasiblock"); + /*clear *//*_#I__L72*/ meltfnum[71] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5428:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5423:/ clear"); - /*clear *//*_.IFCPP___V122*/ meltfptr[118] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5427:/ clear"); + /*clear *//*_.IFCPP___V126*/ meltfptr[122] = 0; /*^clear */ - /*clear *//*_.IFCPP___V124*/ meltfptr[122] = 0; + /*clear *//*_.IFCPP___V128*/ meltfptr[126] = 0; /*^clear */ - /*clear *//*_#SETQ___L62*/ meltfnum[55] = 0; + /*clear *//*_#SETQ___L64*/ meltfnum[57] = 0; } ; } /*noelse */ ; - if ( /*_#FILIX__L58*/ meltfnum[56] < 0) + if ( /*_#FILIX__L60*/ meltfnum[58] < 0) break; } /* end foreach_in_multiple meltcit2__EACHTUP */ /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:5420:/ clear"); - /*clear *//*_.CURFIL__V121*/ meltfptr[117] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5424:/ clear"); + /*clear *//*_.CURFIL__V125*/ meltfptr[121] = 0; /*^clear */ - /*clear *//*_#FILIX__L58*/ meltfnum[56] = 0; + /*clear *//*_#FILIX__L60*/ meltfnum[58] = 0; } /*endciterblock FOREACH_IN_MULTIPLE */ ; - MELT_LOCATION ("warmelt-outobj.melt:5456:/ checksignal"); + +#if MELT_HAVE_DEBUG + MELT_LOCATION ("warmelt-outobj.melt:5460:/ cppif.then"); + /*^block */ + /*anyblock */ + { + + + { + /*^locexp */ + /*melt_increment_dbgcounter */ +#if MELT_HAVE_DEBUG + melt_dbgcounter++; +#endif + ; + } + ; + /*^checksignal */ + MELT_CHECK_SIGNAL (); + ; + /*_#MELT_NEED_DBG__L73*/ meltfnum[62] = + /*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-outobj.melt:5460:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L73*/ meltfnum[62]) /*then */ + { + /*^cond.then */ + /*^block */ + /*anyblock */ + { + + /*_#THE_MELTCALLCOUNT__L74*/ meltfnum[65] = +#ifdef meltcallcount + meltcallcount /* the_meltcallcount */ +#else + 0L +#endif /* meltcallcount the_meltcallcount */ + ;; + MELT_LOCATION ("warmelt-outobj.melt:5460:/ checksignal"); + MELT_CHECK_SIGNAL (); + ; + /*^apply */ + /*apply */ + { + union meltparam_un argtab[5]; + memset (&argtab, 0, sizeof (argtab)); + /*^apply.arg */ + argtab[0].meltbp_long = + /*_#THE_MELTCALLCOUNT__L74*/ meltfnum[65]; + /*^apply.arg */ + argtab[1].meltbp_cstring = "warmelt-outobj.melt"; + /*^apply.arg */ + argtab[2].meltbp_long = 5460; + /*^apply.arg */ + argtab[3].meltbp_cstring = + "translate_macroexpanded_list before output descrfil modctx="; + /*^apply.arg */ + argtab[4].meltbp_aptr = + (melt_ptr_t *) & /*_.MODCTX__V4*/ meltfptr[3]; + /*_.MELT_DEBUG_FUN__V137*/ meltfptr[131] = + 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); + } + ; + /*_.IF___V136*/ meltfptr[130] = + /*_.MELT_DEBUG_FUN__V137*/ meltfptr[131];; + /*epilog */ + + MELT_LOCATION ("warmelt-outobj.melt:5460:/ clear"); + /*clear *//*_#THE_MELTCALLCOUNT__L74*/ meltfnum[65] = 0; + /*^clear */ + /*clear *//*_.MELT_DEBUG_FUN__V137*/ meltfptr[131] = 0; + } + ; + } + else + { /*^cond.else */ + + /*_.IF___V136*/ meltfptr[130] = NULL;; + } + ; + MELT_LOCATION ("warmelt-outobj.melt:5460:/ quasiblock"); + + + /*_.PROGN___V138*/ meltfptr[132] = /*_.IF___V136*/ meltfptr[130];; + /*^compute */ + /*_.IFCPP___V135*/ meltfptr[128] = /*_.PROGN___V138*/ meltfptr[132];; + /*epilog */ + + MELT_LOCATION ("warmelt-outobj.melt:5460:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L73*/ meltfnum[62] = 0; + /*^clear */ + /*clear *//*_.IF___V136*/ meltfptr[130] = 0; + /*^clear */ + /*clear *//*_.PROGN___V138*/ meltfptr[132] = 0; + } + +#else /*MELT_HAVE_DEBUG */ + /*^cppif.else */ + /*_.IFCPP___V135*/ meltfptr[128] = ( /*nil */ NULL); +#endif /*MELT_HAVE_DEBUG */ + ; + MELT_LOCATION ("warmelt-outobj.melt:5461:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -9313,10 +10016,10 @@ lab_endgetargs:; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = - (melt_ptr_t *) & /*_.SECFILES__V116*/ meltfptr[115]; + (melt_ptr_t *) & /*_.SECFILES__V120*/ meltfptr[119]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V4*/ meltfptr[3]; - /*_.OUTPUT_MELT_DESCRIPTOR__V131*/ meltfptr[124] = + /*_.OUTPUT_MELT_DESCRIPTOR__V139*/ meltfptr[133] = melt_apply ((meltclosure_ptr_t) (( /*!OUTPUT_MELT_DESCRIPTOR */ meltfrout->tabval[27])), (melt_ptr_t) ( /*_.MODNAMSTR__V3*/ meltfptr[2]), @@ -9324,56 +10027,56 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - /*_#I__L71*/ meltfnum[60] = - (( /*_#HISECFILERK__L55*/ meltfnum[54]) + (1));; + /*_#I__L75*/ meltfnum[66] = + (( /*_#HISECFILERK__L57*/ meltfnum[56]) + (1));; /*^compute */ - /*_#I__L72*/ meltfnum[63] = - (( /*_#HISECFILERK__L55*/ meltfnum[54]) + (25));; + /*_#I__L76*/ meltfnum[67] = + (( /*_#HISECFILERK__L57*/ meltfnum[56]) + (25));; /*citerblock FOREACH_LONG_UPTO */ { /* foreach_long_upto start meltcit3__EACHLONG */ - long meltcit3__EACHLONG_min = /*_#I__L71*/ meltfnum[60]; - long meltcit3__EACHLONG_max = /*_#I__L72*/ meltfnum[63]; + long meltcit3__EACHLONG_min = /*_#I__L75*/ meltfnum[66]; + long meltcit3__EACHLONG_max = /*_#I__L76*/ meltfnum[67]; long meltcit3__EACHLONG_cur = 0; for (meltcit3__EACHLONG_cur = meltcit3__EACHLONG_min; meltcit3__EACHLONG_cur <= meltcit3__EACHLONG_max; meltcit3__EACHLONG_cur++) { - /*_#DELFILIX__L73*/ meltfnum[64] = meltcit3__EACHLONG_cur; + /*_#DELFILIX__L77*/ meltfnum[68] = meltcit3__EACHLONG_cur; - MELT_LOCATION ("warmelt-outobj.melt:5461:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5466:/ checksignal"); MELT_CHECK_SIGNAL (); ; - /*_#I__L74*/ meltfnum[65] = - (( /*_#DELFILIX__L73*/ meltfnum[64]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:5461:/ cond"); - /*cond */ if ( /*_#I__L74*/ meltfnum[65]) /*then */ + /*_#I__L78*/ meltfnum[69] = + (( /*_#DELFILIX__L77*/ meltfnum[68]) > (0));; + MELT_LOCATION ("warmelt-outobj.melt:5466:/ cond"); + /*cond */ if ( /*_#I__L78*/ meltfnum[69]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:5462:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5467:/ quasiblock"); - /*_.DELFILNAM__V132*/ meltfptr[126] = + /*_.DELFILNAM__V140*/ meltfptr[122] = meltgc_new_string_generated_c_filename /* generated_c_filename */ ((meltobject_ptr_t) (( /*!DISCR_STRING */ meltfrout->tabval[28])), melt_string_str ((melt_ptr_t) ( /*_.MODNAMSTR__V3*/ meltfptr[2])), melt_string_str ((melt_ptr_t) (( /*nil */ NULL))), - ( /*_#DELFILIX__L73*/ meltfnum[64]));; + ( /*_#DELFILIX__L77*/ meltfnum[68]));; /*^compute */ - /*_.BAKSBUF__V133*/ meltfptr[127] = + /*_.BAKSBUF__V141*/ meltfptr[126] = (melt_ptr_t) meltgc_new_strbuf ((meltobject_ptr_t) (( /*!DISCR_STRBUF */ meltfrout-> tabval[4])), (const char *) 0);; - MELT_LOCATION ("warmelt-outobj.melt:5465:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5470:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -9383,38 +10086,156 @@ lab_endgetargs:; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = - (melt_ptr_t *) & /*_.DELFILNAM__V132*/ meltfptr[126]; + (melt_ptr_t *) & /*_.DELFILNAM__V140*/ meltfptr[122]; /*^apply.arg */ argtab[1].meltbp_cstring = "~"; - /*_.ADD2OUT__V134*/ meltfptr[128] = + /*_.ADD2OUT__V142*/ meltfptr[131] = melt_apply ((meltclosure_ptr_t) (( /*!ADD2OUT */ meltfrout->tabval[29])), - (melt_ptr_t) ( /*_.BAKSBUF__V133*/ - meltfptr[127]), + (melt_ptr_t) ( /*_.BAKSBUF__V141*/ + meltfptr[126]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5466:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5471:/ quasiblock"); - /*_.BAKFILNAM__V135*/ meltfptr[129] = + /*_.BAKFILNAM__V143*/ meltfptr[130] = (meltgc_new_stringdup ((meltobject_ptr_t) (( /*!DISCR_STRING */ meltfrout->tabval[28])), melt_strbuf_str ((melt_ptr_t) - ( /*_.BAKSBUF__V133*/ meltfptr[127]))));; + ( /*_.BAKSBUF__V141*/ meltfptr[126]))));; + +#if MELT_HAVE_DEBUG + MELT_LOCATION ("warmelt-outobj.melt:5473:/ cppif.then"); + /*^block */ + /*anyblock */ + { + + + { + /*^locexp */ + /*melt_increment_dbgcounter */ +#if MELT_HAVE_DEBUG + melt_dbgcounter++; +#endif + ; + } + ; + /*^checksignal */ + MELT_CHECK_SIGNAL (); + ; + /*_#MELT_NEED_DBG__L79*/ meltfnum[70] = + /*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-outobj.melt:5473:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L79*/ meltfnum[70]) /*then */ + { + /*^cond.then */ + /*^block */ + /*anyblock */ + { + + /*_#THE_MELTCALLCOUNT__L80*/ meltfnum[71] = +#ifdef meltcallcount + meltcallcount /* the_meltcallcount */ +#else + 0L +#endif /* meltcallcount the_meltcallcount */ + ;; + MELT_LOCATION + ("warmelt-outobj.melt:5473:/ checksignal"); + MELT_CHECK_SIGNAL (); + ; + /*^apply */ + /*apply */ + { + union meltparam_un argtab[5]; + memset (&argtab, 0, sizeof (argtab)); + /*^apply.arg */ + argtab[0].meltbp_long = + /*_#THE_MELTCALLCOUNT__L80*/ meltfnum[71]; + /*^apply.arg */ + argtab[1].meltbp_cstring = "warmelt-outobj.melt"; + /*^apply.arg */ + argtab[2].meltbp_long = 5473; + /*^apply.arg */ + argtab[3].meltbp_cstring = + "translate_macroexpanded_list delfilix="; + /*^apply.arg */ + argtab[4].meltbp_long = + /*_#DELFILIX__L77*/ meltfnum[68]; + /*_.MELT_DEBUG_FUN__V146*/ meltfptr[145] = + 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_LONG ""), argtab, "", + (union meltparam_un *) 0); + } + ; + /*_.IF___V145*/ meltfptr[144] = + /*_.MELT_DEBUG_FUN__V146*/ meltfptr[145];; + /*epilog */ + + MELT_LOCATION ("warmelt-outobj.melt:5473:/ clear"); + /*clear *//*_#THE_MELTCALLCOUNT__L80*/ meltfnum[71] = + 0; + /*^clear */ + /*clear *//*_.MELT_DEBUG_FUN__V146*/ meltfptr[145] = + 0; + } + ; + } + else + { /*^cond.else */ + + /*_.IF___V145*/ meltfptr[144] = NULL;; + } + ; + MELT_LOCATION ("warmelt-outobj.melt:5473:/ quasiblock"); + + + /*_.PROGN___V147*/ meltfptr[145] = + /*_.IF___V145*/ meltfptr[144];; + /*^compute */ + /*_.IFCPP___V144*/ meltfptr[132] = + /*_.PROGN___V147*/ meltfptr[145];; + /*epilog */ + + MELT_LOCATION ("warmelt-outobj.melt:5473:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L79*/ meltfnum[70] = 0; + /*^clear */ + /*clear *//*_.IF___V145*/ meltfptr[144] = 0; + /*^clear */ + /*clear *//*_.PROGN___V147*/ meltfptr[145] = 0; + } + +#else /*MELT_HAVE_DEBUG */ + /*^cppif.else */ + /*_.IFCPP___V144*/ meltfptr[132] = ( /*nil */ NULL); +#endif /*MELT_HAVE_DEBUG */ + ; { - MELT_LOCATION ("warmelt-outobj.melt:5470:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5476:/ locexp"); /*translate_macroexpanded_list BACKUPCHK__1 */ { const char *BACKUPCHK__1_delfilnamstr = - melt_string_str ((melt_ptr_t) /*_.DELFILNAM__V132*/ - meltfptr[126]); + melt_string_str ((melt_ptr_t) /*_.DELFILNAM__V140*/ + meltfptr[122]); const char *BACKUPCHK__1_bakfilnamstr = - melt_string_str ((melt_ptr_t) /*_.BAKFILNAM__V135*/ - meltfptr[129]); + melt_string_str ((melt_ptr_t) /*_.BAKFILNAM__V143*/ + meltfptr[130]); if (BACKUPCHK__1_delfilnamstr && BACKUPCHK__1_bakfilnamstr && !access (BACKUPCHK__1_delfilnamstr, F_OK)) { @@ -9432,15 +10253,17 @@ lab_endgetargs:; } ; - MELT_LOCATION ("warmelt-outobj.melt:5466:/ clear"); - /*clear *//*_.BAKFILNAM__V135*/ meltfptr[129] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5471:/ clear"); + /*clear *//*_.BAKFILNAM__V143*/ meltfptr[130] = 0; + /*^clear */ + /*clear *//*_.IFCPP___V144*/ meltfptr[132] = 0; - MELT_LOCATION ("warmelt-outobj.melt:5462:/ clear"); - /*clear *//*_.DELFILNAM__V132*/ meltfptr[126] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5467:/ clear"); + /*clear *//*_.DELFILNAM__V140*/ meltfptr[122] = 0; /*^clear */ - /*clear *//*_.BAKSBUF__V133*/ meltfptr[127] = 0; + /*clear *//*_.BAKSBUF__V141*/ meltfptr[126] = 0; /*^clear */ - /*clear *//*_.ADD2OUT__V134*/ meltfptr[128] = 0; + /*clear *//*_.ADD2OUT__V142*/ meltfptr[131] = 0; /*epilog */ } ; @@ -9450,15 +10273,127 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:5458:/ clear"); - /*clear *//*_#DELFILIX__L73*/ meltfnum[64] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5463:/ clear"); + /*clear *//*_#DELFILIX__L77*/ meltfnum[68] = 0; /*^clear */ - /*clear *//*_#I__L74*/ meltfnum[65] = 0; + /*clear *//*_#I__L78*/ meltfnum[69] = 0; } /*endciterblock FOREACH_LONG_UPTO */ ; +#if MELT_HAVE_DEBUG + MELT_LOCATION ("warmelt-outobj.melt:5492:/ cppif.then"); + /*^block */ + /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:5488:/ locexp"); + + + { + /*^locexp */ + /*melt_increment_dbgcounter */ +#if MELT_HAVE_DEBUG + melt_dbgcounter++; +#endif + ; + } + ; + /*^checksignal */ + MELT_CHECK_SIGNAL (); + ; + /*_#MELT_NEED_DBG__L81*/ meltfnum[57] = + /*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-outobj.melt:5492:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L81*/ meltfnum[57]) /*then */ + { + /*^cond.then */ + /*^block */ + /*anyblock */ + { + + /*_#THE_MELTCALLCOUNT__L82*/ meltfnum[65] = +#ifdef meltcallcount + meltcallcount /* the_meltcallcount */ +#else + 0L +#endif /* meltcallcount the_meltcallcount */ + ;; + MELT_LOCATION ("warmelt-outobj.melt:5492:/ checksignal"); + MELT_CHECK_SIGNAL (); + ; + /*^apply */ + /*apply */ + { + union meltparam_un argtab[5]; + memset (&argtab, 0, sizeof (argtab)); + /*^apply.arg */ + argtab[0].meltbp_long = + /*_#THE_MELTCALLCOUNT__L82*/ meltfnum[65]; + /*^apply.arg */ + argtab[1].meltbp_cstring = "warmelt-outobj.melt"; + /*^apply.arg */ + argtab[2].meltbp_long = 5492; + /*^apply.arg */ + argtab[3].meltbp_cstring = + "translate_macroexpanded_list before endmodnamchk modctx="; + /*^apply.arg */ + argtab[4].meltbp_aptr = + (melt_ptr_t *) & /*_.MODCTX__V4*/ meltfptr[3]; + /*_.MELT_DEBUG_FUN__V150*/ meltfptr[130] = + 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); + } + ; + /*_.IF___V149*/ meltfptr[145] = + /*_.MELT_DEBUG_FUN__V150*/ meltfptr[130];; + /*epilog */ + + MELT_LOCATION ("warmelt-outobj.melt:5492:/ clear"); + /*clear *//*_#THE_MELTCALLCOUNT__L82*/ meltfnum[65] = 0; + /*^clear */ + /*clear *//*_.MELT_DEBUG_FUN__V150*/ meltfptr[130] = 0; + } + ; + } + else + { /*^cond.else */ + + /*_.IF___V149*/ meltfptr[145] = NULL;; + } + ; + MELT_LOCATION ("warmelt-outobj.melt:5492:/ quasiblock"); + + + /*_.PROGN___V151*/ meltfptr[132] = /*_.IF___V149*/ meltfptr[145];; + /*^compute */ + /*_.IFCPP___V148*/ meltfptr[144] = /*_.PROGN___V151*/ meltfptr[132];; + /*epilog */ + + MELT_LOCATION ("warmelt-outobj.melt:5492:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L81*/ meltfnum[57] = 0; + /*^clear */ + /*clear *//*_.IF___V149*/ meltfptr[145] = 0; + /*^clear */ + /*clear *//*_.PROGN___V151*/ meltfptr[132] = 0; + } + +#else /*MELT_HAVE_DEBUG */ + /*^cppif.else */ + /*_.IFCPP___V148*/ meltfptr[144] = ( /*nil */ NULL); +#endif /*MELT_HAVE_DEBUG */ + ; + + { + MELT_LOCATION ("warmelt-outobj.melt:5495:/ locexp"); /* translate_macroexpanded_list ENDMODNAM__1 */ #if HAVE_CLOCK && defined (CLOCKS_PER_SEC) /*_#ENDCLOCK__L14*/ meltfnum[0] = (long) clock (); @@ -9466,8 +10401,8 @@ lab_endgetargs:; inform (UNKNOWN_LOCATION, "MELT generated C code of module %s with %ld secondary files in %ld CPU millisec [#%ld].", melt_string_str ((melt_ptr_t) /*_.MODNAMSTR__V3*/ - meltfptr[2]), /*_#NBSECFILES__L53*/ - meltfnum[52], + meltfptr[2]), /*_#NBSECFILES__L55*/ + meltfnum[54], ( /*_#ENDCLOCK__L14*/ meltfnum[0] - /*_#STARTCLOCK__L17*/ meltfnum[15]) / (CLOCKS_PER_SEC / 1000), @@ -9476,8 +10411,8 @@ lab_endgetargs:; inform (UNKNOWN_LOCATION, "MELT generated C code of module %s with %ld secondary files in %ld CPU millisec.", melt_string_str ((melt_ptr_t) /*_.MODNAMSTR__V3*/ - meltfptr[2]), /*_#NBSECFILES__L53*/ - meltfnum[52], + meltfptr[2]), /*_#NBSECFILES__L55*/ + meltfnum[54], ( /*_#ENDCLOCK__L14*/ meltfnum[0] - /*_#STARTCLOCK__L17*/ meltfnum[15]) / (CLOCKS_PER_SEC / 1000)); @@ -9485,14 +10420,126 @@ lab_endgetargs:; inform (UNKNOWN_LOCATION, "MELT generated C code of module %s with %ld secondary files", melt_string_str ((melt_ptr_t) /*_.MODNAMSTR__V3*/ meltfptr[2]), - /*_#NBSECFILES__L53*/ meltfnum[52]); + /*_#NBSECFILES__L55*/ meltfnum[54]); #endif /* HAVE_CLOCK && CLOCKS_PER_SEC */ /* end translate_macroexpanded_list ENDMODNAM__1 */ ; } ; +#if MELT_HAVE_DEBUG + MELT_LOCATION ("warmelt-outobj.melt:5514:/ cppif.then"); + /*^block */ + /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:5507:/ locexp"); + + + { + /*^locexp */ + /*melt_increment_dbgcounter */ +#if MELT_HAVE_DEBUG + melt_dbgcounter++; +#endif + ; + } + ; + /*^checksignal */ + MELT_CHECK_SIGNAL (); + ; + /*_#MELT_NEED_DBG__L83*/ meltfnum[62] = + /*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-outobj.melt:5514:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L83*/ meltfnum[62]) /*then */ + { + /*^cond.then */ + /*^block */ + /*anyblock */ + { + + /*_#THE_MELTCALLCOUNT__L84*/ meltfnum[71] = +#ifdef meltcallcount + meltcallcount /* the_meltcallcount */ +#else + 0L +#endif /* meltcallcount the_meltcallcount */ + ;; + MELT_LOCATION ("warmelt-outobj.melt:5514:/ checksignal"); + MELT_CHECK_SIGNAL (); + ; + /*^apply */ + /*apply */ + { + union meltparam_un argtab[5]; + memset (&argtab, 0, sizeof (argtab)); + /*^apply.arg */ + argtab[0].meltbp_long = + /*_#THE_MELTCALLCOUNT__L84*/ meltfnum[71]; + /*^apply.arg */ + argtab[1].meltbp_cstring = "warmelt-outobj.melt"; + /*^apply.arg */ + argtab[2].meltbp_long = 5514; + /*^apply.arg */ + argtab[3].meltbp_cstring = + "translate_macroexpanded_list ending modctx="; + /*^apply.arg */ + argtab[4].meltbp_aptr = + (melt_ptr_t *) & /*_.MODCTX__V4*/ meltfptr[3]; + /*_.MELT_DEBUG_FUN__V154*/ meltfptr[131] = + 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); + } + ; + /*_.IF___V153*/ meltfptr[126] = + /*_.MELT_DEBUG_FUN__V154*/ meltfptr[131];; + /*epilog */ + + MELT_LOCATION ("warmelt-outobj.melt:5514:/ clear"); + /*clear *//*_#THE_MELTCALLCOUNT__L84*/ meltfnum[71] = 0; + /*^clear */ + /*clear *//*_.MELT_DEBUG_FUN__V154*/ meltfptr[131] = 0; + } + ; + } + else + { /*^cond.else */ + + /*_.IF___V153*/ meltfptr[126] = NULL;; + } + ; + MELT_LOCATION ("warmelt-outobj.melt:5514:/ quasiblock"); + + + /*_.PROGN___V155*/ meltfptr[130] = /*_.IF___V153*/ meltfptr[126];; + /*^compute */ + /*_.IFCPP___V152*/ meltfptr[122] = /*_.PROGN___V155*/ meltfptr[130];; + /*epilog */ + + MELT_LOCATION ("warmelt-outobj.melt:5514:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L83*/ meltfnum[62] = 0; + /*^clear */ + /*clear *//*_.IF___V153*/ meltfptr[126] = 0; + /*^clear */ + /*clear *//*_.PROGN___V155*/ meltfptr[130] = 0; + } + +#else /*MELT_HAVE_DEBUG */ + /*^cppif.else */ + /*_.IFCPP___V152*/ meltfptr[122] = ( /*nil */ NULL); +#endif /*MELT_HAVE_DEBUG */ + ; + + { + MELT_LOCATION ("warmelt-outobj.melt:5515:/ locexp"); #if MELT_HAVE_DEBUG if (melt_need_debug (0)) @@ -9501,41 +10548,41 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-outobj.melt:5508:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5516:/ checksignal"); MELT_CHECK_SIGNAL (); ; - /*_#MELT_ERROR_COUNTER__L75*/ meltfnum[66] = + /*_#MELT_ERROR_COUNTER__L85*/ meltfnum[70] = melt_error_counter;; - MELT_LOCATION ("warmelt-outobj.melt:5508:/ cond"); - /*cond */ if ( /*_#MELT_ERROR_COUNTER__L75*/ meltfnum[66]) /*then */ + MELT_LOCATION ("warmelt-outobj.melt:5516:/ cond"); + /*cond */ if ( /*_#MELT_ERROR_COUNTER__L85*/ meltfnum[70]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:5509:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5517:/ checksignal"); MELT_CHECK_SIGNAL (); ; - /*_#IS_CLOSURE__L76*/ meltfnum[67] = + /*_#IS_CLOSURE__L86*/ meltfnum[65] = (melt_magic_discr ((melt_ptr_t) ( /*_.ERRORHDLR__V29*/ meltfptr[28])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-outobj.melt:5509:/ cond"); - /*cond */ if ( /*_#IS_CLOSURE__L76*/ meltfnum[67]) /*then */ + MELT_LOCATION ("warmelt-outobj.melt:5517:/ cond"); + /*cond */ if ( /*_#IS_CLOSURE__L86*/ meltfnum[65]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:5510:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5518:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { - /*_.ERRORHDLR__V138*/ meltfptr[129] = + /*_.ERRORHDLR__V158*/ meltfptr[131] = melt_apply ((meltclosure_ptr_t) ( /*_.ERRORHDLR__V29*/ meltfptr[28]), (melt_ptr_t) (( /*!konst_30 */ meltfrout-> @@ -9544,24 +10591,24 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - /*_.IF___V137*/ meltfptr[122] = - /*_.ERRORHDLR__V138*/ meltfptr[129];; + /*_.IF___V157*/ meltfptr[132] = + /*_.ERRORHDLR__V158*/ meltfptr[131];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5509:/ clear"); - /*clear *//*_.ERRORHDLR__V138*/ meltfptr[129] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5517:/ clear"); + /*clear *//*_.ERRORHDLR__V158*/ meltfptr[131] = 0; } ; } else { /*^cond.else */ - /*_.IF___V137*/ meltfptr[122] = NULL;; + /*_.IF___V157*/ meltfptr[132] = NULL;; } ; { - MELT_LOCATION ("warmelt-outobj.melt:5512:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5520:/ locexp"); /* translate_macroexpanded_list ERROREDNORMAL_WARNCHK__2 */ warning (0, "MELT translation of %s got after emission %ld MELT errors", @@ -9570,13 +10617,13 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-outobj.melt:5516:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5524:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-outobj.melt:5516:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5524:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -9589,154 +10636,162 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-outobj.melt:5508:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5516:/ quasiblock"); - /*_.PROGN___V140*/ meltfptr[127] = - /*_.RETURN___V139*/ meltfptr[126];; + /*_.PROGN___V160*/ meltfptr[130] = + /*_.RETURN___V159*/ meltfptr[126];; /*^compute */ - /*_.IF___V136*/ meltfptr[118] = /*_.PROGN___V140*/ meltfptr[127];; + /*_.IF___V156*/ meltfptr[145] = /*_.PROGN___V160*/ meltfptr[130];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5508:/ clear"); - /*clear *//*_#IS_CLOSURE__L76*/ meltfnum[67] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5516:/ clear"); + /*clear *//*_#IS_CLOSURE__L86*/ meltfnum[65] = 0; /*^clear */ - /*clear *//*_.IF___V137*/ meltfptr[122] = 0; + /*clear *//*_.IF___V157*/ meltfptr[132] = 0; /*^clear */ - /*clear *//*_.RETURN___V139*/ meltfptr[126] = 0; + /*clear *//*_.RETURN___V159*/ meltfptr[126] = 0; /*^clear */ - /*clear *//*_.PROGN___V140*/ meltfptr[127] = 0; + /*clear *//*_.PROGN___V160*/ meltfptr[130] = 0; } ; } else { /*^cond.else */ - /*_.IF___V136*/ meltfptr[118] = NULL;; + /*_.IF___V156*/ meltfptr[145] = NULL;; } ; /*^compute */ - /*_.LET___V115*/ meltfptr[114] = /*_.IF___V136*/ meltfptr[118];; + /*_.LET___V119*/ meltfptr[118] = /*_.IF___V156*/ meltfptr[145];; - MELT_LOCATION ("warmelt-outobj.melt:5414:/ clear"); - /*clear *//*_.SECFILES__V116*/ meltfptr[115] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5418:/ clear"); + /*clear *//*_.SECFILES__V120*/ meltfptr[119] = 0; + /*^clear */ + /*clear *//*_#NBSECFILES__L55*/ meltfnum[54] = 0; /*^clear */ - /*clear *//*_#NBSECFILES__L53*/ meltfnum[52] = 0; + /*clear *//*_#LGSECFILES__L56*/ meltfnum[55] = 0; /*^clear */ - /*clear *//*_#LGSECFILES__L54*/ meltfnum[53] = 0; + /*clear *//*_#HISECFILERK__L57*/ meltfnum[56] = 0; /*^clear */ - /*clear *//*_#HISECFILERK__L55*/ meltfnum[54] = 0; + /*clear *//*_.IFCPP___V121*/ meltfptr[120] = 0; /*^clear */ - /*clear *//*_.IFCPP___V117*/ meltfptr[116] = 0; + /*clear *//*_.IFCPP___V135*/ meltfptr[128] = 0; /*^clear */ - /*clear *//*_.OUTPUT_MELT_DESCRIPTOR__V131*/ meltfptr[124] = 0; + /*clear *//*_.OUTPUT_MELT_DESCRIPTOR__V139*/ meltfptr[133] = 0; /*^clear */ - /*clear *//*_#I__L71*/ meltfnum[60] = 0; + /*clear *//*_#I__L75*/ meltfnum[66] = 0; /*^clear */ - /*clear *//*_#I__L72*/ meltfnum[63] = 0; + /*clear *//*_#I__L76*/ meltfnum[67] = 0; /*^clear */ - /*clear *//*_#MELT_ERROR_COUNTER__L75*/ meltfnum[66] = 0; + /*clear *//*_.IFCPP___V148*/ meltfptr[144] = 0; /*^clear */ - /*clear *//*_.IF___V136*/ meltfptr[118] = 0; - /*_.LET___V84*/ meltfptr[82] = /*_.LET___V115*/ meltfptr[114];; + /*clear *//*_.IFCPP___V152*/ meltfptr[122] = 0; + /*^clear */ + /*clear *//*_#MELT_ERROR_COUNTER__L85*/ meltfnum[70] = 0; + /*^clear */ + /*clear *//*_.IF___V156*/ meltfptr[145] = 0; + /*_.LET___V88*/ meltfptr[86] = /*_.LET___V119*/ meltfptr[118];; - MELT_LOCATION ("warmelt-outobj.melt:5363:/ clear"); - /*clear *//*_.INIOBJ__V85*/ meltfptr[84] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5367:/ clear"); + /*clear *//*_.INIOBJ__V89*/ meltfptr[88] = 0; /*^clear */ - /*clear *//*_.IFCPP___V99*/ meltfptr[89] = 0; + /*clear *//*_.IFCPP___V103*/ meltfptr[93] = 0; /*^clear */ - /*clear *//*_.LET___V103*/ meltfptr[94] = 0; + /*clear *//*_.LET___V107*/ meltfptr[98] = 0; /*^clear */ - /*clear *//*_.OUTPUT_C_CODE__V111*/ meltfptr[106] = 0; + /*clear *//*_.OUTPUT_C_CODE__V115*/ meltfptr[110] = 0; /*^clear */ - /*clear *//*_.OUTPUT_EXPORTED_OFFSETS__V112*/ meltfptr[96] = 0; + /*clear *//*_.OUTPUT_EXPORTED_OFFSETS__V116*/ meltfptr[100] = 0; /*^clear */ - /*clear *//*_#STRBUF_USEDLENGTH__L45*/ meltfnum[38] = 0; + /*clear *//*_#STRBUF_USEDLENGTH__L47*/ meltfnum[40] = 0; /*^clear */ - /*clear *//*_.REFERENCED_VALUE__V113*/ meltfptr[104] = 0; + /*clear *//*_.REFERENCED_VALUE__V117*/ meltfptr[108] = 0; /*^clear */ - /*clear *//*_#GET_INT__L46*/ meltfnum[25] = 0; + /*clear *//*_#GET_INT__L48*/ meltfnum[27] = 0; /*^clear */ - /*clear *//*_#IRAW__L47*/ meltfnum[31] = 0; + /*clear *//*_#IRAW__L49*/ meltfnum[33] = 0; /*^clear */ - /*clear *//*_#I__L48*/ meltfnum[47] = 0; + /*clear *//*_#I__L50*/ meltfnum[49] = 0; /*^clear */ - /*clear *//*_#STRBUF_USEDLENGTH__L49*/ meltfnum[48] = 0; + /*clear *//*_#STRBUF_USEDLENGTH__L51*/ meltfnum[50] = 0; /*^clear */ - /*clear *//*_.REFERENCED_VALUE__V114*/ meltfptr[105] = 0; + /*clear *//*_.REFERENCED_VALUE__V118*/ meltfptr[109] = 0; /*^clear */ - /*clear *//*_#GET_INT__L50*/ meltfnum[49] = 0; + /*clear *//*_#GET_INT__L52*/ meltfnum[51] = 0; /*^clear */ - /*clear *//*_#IRAW__L51*/ meltfnum[50] = 0; + /*clear *//*_#IRAW__L53*/ meltfnum[52] = 0; /*^clear */ - /*clear *//*_#I__L52*/ meltfnum[51] = 0; + /*clear *//*_#I__L54*/ meltfnum[53] = 0; /*^clear */ - /*clear *//*_.LET___V115*/ meltfptr[114] = 0; - /*_.LET___V71*/ meltfptr[67] = /*_.LET___V84*/ meltfptr[82];; + /*clear *//*_.LET___V119*/ meltfptr[118] = 0; + /*_.LET___V75*/ meltfptr[71] = /*_.LET___V88*/ meltfptr[86];; - MELT_LOCATION ("warmelt-outobj.melt:5354:/ clear"); - /*clear *//*_.INIPRO__V72*/ meltfptr[65] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5358:/ clear"); + /*clear *//*_.INIPRO__V76*/ meltfptr[69] = 0; /*^clear */ - /*clear *//*_.INIDATA__V73*/ meltfptr[72] = 0; + /*clear *//*_.INIDATA__V77*/ meltfptr[76] = 0; /*^clear */ - /*clear *//*_.IMPORTVALUES__V74*/ meltfptr[73] = 0; + /*clear *//*_.IMPORTVALUES__V78*/ meltfptr[77] = 0; /*^clear */ - /*clear *//*_.PROCURMODENVLIST__V75*/ meltfptr[74] = 0; + /*clear *//*_.PROCURMODENVLIST__V79*/ meltfptr[78] = 0; /*^clear */ - /*clear *//*_.IFCPP___V76*/ meltfptr[75] = 0; + /*clear *//*_.IFCPP___V80*/ meltfptr[79] = 0; /*^clear */ - /*clear *//*_.IFCPP___V80*/ meltfptr[76] = 0; + /*clear *//*_.IFCPP___V84*/ meltfptr[80] = 0; /*^clear */ - /*clear *//*_.IFCPP___V82*/ meltfptr[77] = 0; + /*clear *//*_.IFCPP___V86*/ meltfptr[81] = 0; /*^clear */ - /*clear *//*_.LET___V84*/ meltfptr[82] = 0; - /*_.LET___V50*/ meltfptr[45] = /*_.LET___V71*/ meltfptr[67];; + /*clear *//*_.LET___V88*/ meltfptr[86] = 0; + /*_.LET___V54*/ meltfptr[46] = /*_.LET___V75*/ meltfptr[71];; - MELT_LOCATION ("warmelt-outobj.melt:5324:/ clear"); - /*clear *//*_.PROLIST__V51*/ meltfptr[46] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5328:/ clear"); + /*clear *//*_.PROLIST__V55*/ meltfptr[50] = 0; /*^clear */ - /*clear *//*_.OBJLIST__V52*/ meltfptr[48] = 0; + /*clear *//*_.OBJLIST__V56*/ meltfptr[52] = 0; /*^clear */ - /*clear *//*_#LIST_LENGTH__L22*/ meltfnum[20] = 0; + /*clear *//*_#LIST_LENGTH__L24*/ meltfnum[1] = 0; /*^clear */ - /*clear *//*_#I__L23*/ meltfnum[22] = 0; + /*clear *//*_#I__L25*/ meltfnum[24] = 0; /*^clear */ - /*clear *//*_#I__L24*/ meltfnum[23] = 0; + /*clear *//*_#I__L26*/ meltfnum[25] = 0; /*^clear */ - /*clear *//*_.COMPICACHE__V53*/ meltfptr[52] = 0; + /*clear *//*_.COMPICACHE__V57*/ meltfptr[56] = 0; /*^clear */ - /*clear *//*_.COUNTBOX__V54*/ meltfptr[53] = 0; + /*clear *//*_.COUNTBOX__V58*/ meltfptr[57] = 0; /*^clear */ - /*clear *//*_.IFCPP___V55*/ meltfptr[54] = 0; + /*clear *//*_.IFCPP___V59*/ meltfptr[58] = 0; /*^clear */ - /*clear *//*_.IFCPP___V59*/ meltfptr[55] = 0; + /*clear *//*_.IFCPP___V63*/ meltfptr[59] = 0; /*^clear */ - /*clear *//*_.LAMBDA___V61*/ meltfptr[56] = 0; + /*clear *//*_.LAMBDA___V65*/ meltfptr[60] = 0; /*^clear */ - /*clear *//*_.LIST_EVERY__V63*/ meltfptr[62] = 0; + /*clear *//*_.LIST_EVERY__V67*/ meltfptr[66] = 0; /*^clear */ - /*clear *//*_#MELT_ERROR_COUNTER__L28*/ meltfnum[24] = 0; + /*clear *//*_#MELT_ERROR_COUNTER__L30*/ meltfnum[26] = 0; /*^clear */ - /*clear *//*_.IF___V64*/ meltfptr[63] = 0; + /*clear *//*_.IF___V68*/ meltfptr[67] = 0; /*^clear */ - /*clear *//*_.IFCPP___V69*/ meltfptr[64] = 0; + /*clear *//*_.IFCPP___V73*/ meltfptr[68] = 0; /*^clear */ - /*clear *//*_.LET___V71*/ meltfptr[67] = 0; - MELT_LOCATION ("warmelt-outobj.melt:5306:/ checksignal"); + /*clear *//*_.LET___V75*/ meltfptr[71] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5309:/ checksignal"); MELT_CHECK_SIGNAL (); ; - /*_.MULTI___V38*/ meltfptr[34] = /*_.LET___V50*/ meltfptr[45];; + /*_.MULTI___V38*/ meltfptr[34] = /*_.LET___V54*/ meltfptr[46];; - MELT_LOCATION ("warmelt-outobj.melt:5306:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5309:/ clear"); /*clear *//*_.IFCPP___V41*/ meltfptr[40] = 0; /*^clear */ /*clear *//*_.IFCPP___V43*/ meltfptr[41] = 0; /*^clear */ - /*clear *//*_#MELT_ERROR_COUNTER__L20*/ meltfnum[1] = 0; + /*clear *//*_.IFCPP___V45*/ meltfptr[43] = 0; + /*^clear */ + /*clear *//*_#MELT_ERROR_COUNTER__L22*/ meltfnum[20] = 0; /*^clear */ - /*clear *//*_.IF___V45*/ meltfptr[43] = 0; + /*clear *//*_.IF___V49*/ meltfptr[45] = 0; /*^clear */ - /*clear *//*_.LET___V50*/ meltfptr[45] = 0; + /*clear *//*_.LET___V54*/ meltfptr[46] = 0; /*^clear */ /*clear *//*_.DECLBUF__V40*/ meltfptr[39] = 0; @@ -9744,7 +10799,7 @@ lab_endgetargs:; /*clear *//*_#STARTCLOCK__L17*/ meltfnum[15] = 0; /*_.LET___V28*/ meltfptr[26] = /*_.MULTI___V38*/ meltfptr[34];; - MELT_LOCATION ("warmelt-outobj.melt:5297:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5299:/ clear"); /*clear *//*_#ENDCLOCK__L14*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.ERRORHDLR__V29*/ meltfptr[28] = 0; @@ -9760,7 +10815,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V34*/ meltfptr[33] = 0; /*^clear */ /*clear *//*_.MULTI___V38*/ meltfptr[34] = 0; - MELT_LOCATION ("warmelt-outobj.melt:5282:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5284:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -9769,7 +10824,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V28*/ meltfptr[26];; { - MELT_LOCATION ("warmelt-outobj.melt:5282:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5284:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -9896,7 +10951,7 @@ meltrout_133_warmelt_outobj_LAMBDA___27__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:5335:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:5339:/ getarg"); /*_.PRO__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -9908,7 +10963,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5336:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5340:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9920,7 +10975,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.PRO__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_NREP_ANYPROC */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:5336:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5340:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -9928,7 +10983,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5336:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5340:/ cond.else"); /*^block */ /*anyblock */ @@ -9942,7 +10997,7 @@ lab_endgetargs:; melt_assert_failed (("check pro"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5336) ? (5336) : __LINE__, __FUNCTION__); + (5340) ? (5340) : __LINE__, __FUNCTION__); ; } ; @@ -9956,7 +11011,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5336:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5340:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V4*/ meltfptr[3] = 0; @@ -9975,17 +11030,17 @@ lab_endgetargs:; (( /*_#GET_INT__L2*/ meltfnum[0]) + (1));; { - MELT_LOCATION ("warmelt-outobj.melt:5337:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5341:/ locexp"); melt_put_int ((melt_ptr_t) (( /*~COUNTBOX */ meltfclos->tabval[0])), ( /*_#I__L3*/ meltfnum[2])); } ; - MELT_LOCATION ("warmelt-outobj.melt:5338:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5342:/ quasiblock"); /*_#GET_INT__L4*/ meltfnum[3] = (melt_get_int ((melt_ptr_t) (( /*~COUNTBOX */ meltfclos->tabval[0]))));; - MELT_LOCATION ("warmelt-outobj.melt:5338:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5342:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -10011,7 +11066,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5339:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5343:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10037,7 +11092,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5339:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5343:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -10052,7 +11107,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5339:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5343:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -10065,7 +11120,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5339; + argtab[2].meltbp_long = 5343; /*^apply.arg */ argtab[3].meltbp_cstring = "translate_macroexpanded_list objpro="; @@ -10091,7 +11146,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5339:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5343:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -10104,7 +11159,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5339:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5343:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -10112,7 +11167,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5339:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5343:/ clear"); /*clear *//*_#MELT_NEED_DBG__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -10127,20 +11182,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5340:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5344:/ locexp"); meltgc_append_list ((melt_ptr_t) (( /*~OBJLIST */ meltfclos->tabval[3])), (melt_ptr_t) ( /*_.OBJPRO__V5*/ meltfptr[3])); } ; - MELT_LOCATION ("warmelt-outobj.melt:5338:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5342:/ clear"); /*clear *//*_#GET_INT__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.OBJPRO__V5*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.IFCPP___V6*/ meltfptr[5] = 0; - MELT_LOCATION ("warmelt-outobj.melt:5335:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5339:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -10245,7 +11300,7 @@ meltrout_134_warmelt_outobj_FATAL_COMPILE_ERROR (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:5523:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:5531:/ getarg"); /*_.MODNAMSTR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -10264,13 +11319,13 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-outobj.melt:5524:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5532:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L1*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.V__V3*/ meltfptr[2])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-outobj.melt:5524:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5532:/ cond"); /*cond */ if ( /*_#IS_STRING__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -10280,8 +11335,8 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:5527:/ locexp"); - /* compile_list_sexpr FATALERRORMSG_CHK__1 */ + MELT_LOCATION ("warmelt-outobj.melt:5535:/ locexp"); + /*fatal_compile_error FATALERRORMSG_CHK__1 */ melt_fatal_error ("MELT failed to compile module %s (%ld errors): %s", melt_string_str ((melt_ptr_t) /*_.MODNAMSTR__V2*/ meltfptr[1]), @@ -10296,7 +11351,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5524:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5532:/ cond.else"); /*^block */ /*anyblock */ @@ -10304,8 +11359,8 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:5535:/ locexp"); - /* compile_list_sexpr FATALERROR_CHK__1 */ + MELT_LOCATION ("warmelt-outobj.melt:5543:/ locexp"); + /* fatal_compile_error FATALERROR_CHK__1 */ melt_fatal_error ("MELT failed to compile module %s (%ld errors)", melt_string_str ((melt_ptr_t) /*_.MODNAMSTR__V2*/ @@ -10321,7 +11376,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5523:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5531:/ clear"); /*clear *//*_#IS_STRING__L1*/ meltfnum[0] = 0; } @@ -10380,10 +11435,10 @@ meltrout_135_warmelt_outobj_COMPILE_LIST_SEXPR (meltclosure_ptr_t meltclosp_, struct meltclosure_st *mcfr_clos; struct excepth_melt_st *mcfr_exh; struct melt_callframe_st *mcfr_prev; -#define MELTFRAM_NBVARPTR 45 - melt_ptr_t mcfr_varptr[45]; -#define MELTFRAM_NBVARNUM 19 - long mcfr_varnum[19]; +#define MELTFRAM_NBVARPTR 62 + melt_ptr_t mcfr_varptr[62]; +#define MELTFRAM_NBVARNUM 27 + long mcfr_varnum[27]; /*others*/ long _spare_; } @@ -10403,13 +11458,13 @@ meltrout_135_warmelt_outobj_COMPILE_LIST_SEXPR (meltclosure_ptr_t meltclosp_, (void) meltxresdescr_; (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); - for (ix = 0; ix < 45; ix++) + for (ix = 0; ix < 62; ix++) if (meltframptr_->mcfr_varptr[ix]) gt_ggc_mx_melt_un (meltframptr_->mcfr_varptr[ix]); return NULL; } /*end markggc */ ; memset (&meltfram__, 0, sizeof (meltfram__)); - meltfram__.mcfr_nbvar = 45; + meltfram__.mcfr_nbvar = 62; meltfram__.mcfr_clos = meltclosp_; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; melt_topframe = (struct melt_callframe_st *) &meltfram__; @@ -10417,7 +11472,7 @@ meltrout_135_warmelt_outobj_COMPILE_LIST_SEXPR (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:5544:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:5552:/ getarg"); /*_.LSEXP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -10449,13 +11504,13 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:5545:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5553:/ locexp"); debugeputs (("starting compile_list_sexpr")); } ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5546:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5554:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10481,7 +11536,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5546:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5554:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -10496,7 +11551,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5546:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5554:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -10509,7 +11564,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5546; + argtab[2].meltbp_long = 5554; /*^apply.arg */ argtab[3].meltbp_cstring = "@*@@@@ compile_list_sexpr lsexp="; /*^apply.arg */ @@ -10540,7 +11595,7 @@ lab_endgetargs:; /*_.IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5546:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5554:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0; @@ -10553,7 +11608,7 @@ lab_endgetargs:; /*_.IF___V6*/ meltfptr[5] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5546:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5554:/ quasiblock"); /*_.PROGN___V8*/ meltfptr[6] = /*_.IF___V6*/ meltfptr[5];; @@ -10561,7 +11616,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.PROGN___V8*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5546:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5554:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V6*/ meltfptr[5] = 0; @@ -10576,7 +11631,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5548:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5556:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10587,7 +11642,7 @@ lab_endgetargs:; /*_#IS_LIST__L3*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.LSEXP__V2*/ meltfptr[1])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:5548:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5556:/ cond"); /*cond */ if ( /*_#IS_LIST__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -10595,7 +11650,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5548:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5556:/ cond.else"); /*^block */ /*anyblock */ @@ -10609,7 +11664,7 @@ lab_endgetargs:; melt_assert_failed (("check lsexp"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5548) ? (5548) : __LINE__, __FUNCTION__); + (5556) ? (5556) : __LINE__, __FUNCTION__); ; } ; @@ -10623,7 +11678,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[5] = /*_.IFELSE___V10*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5548:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5556:/ clear"); /*clear *//*_#IS_LIST__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V10*/ meltfptr[6] = 0; @@ -10636,7 +11691,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5549:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5557:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10647,7 +11702,7 @@ lab_endgetargs:; /*_#IS_STRING__L4*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODNAMSTR__V4*/ meltfptr[3])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-outobj.melt:5549:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5557:/ cond"); /*cond */ if ( /*_#IS_STRING__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -10655,7 +11710,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5549:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5557:/ cond.else"); /*^block */ /*anyblock */ @@ -10669,7 +11724,7 @@ lab_endgetargs:; melt_assert_failed (("check modnamstr"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5549) ? (5549) : __LINE__, __FUNCTION__); + (5557) ? (5557) : __LINE__, __FUNCTION__); ; } ; @@ -10683,7 +11738,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[6] = /*_.IFELSE___V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5549:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5557:/ clear"); /*clear *//*_#IS_STRING__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V12*/ meltfptr[11] = 0; @@ -10696,7 +11751,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5550:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5558:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10706,7 +11761,7 @@ lab_endgetargs:; ; /*_#NULL__L5*/ meltfnum[1] = (( /*_.INIENV__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-outobj.melt:5550:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5558:/ cond"); /*cond */ if ( /*_#NULL__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -10714,7 +11769,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5550:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5558:/ cond.else"); /*^block */ /*anyblock */ @@ -10729,7 +11784,7 @@ lab_endgetargs:; /*_#OR___L6*/ meltfnum[0] = /*_#IS_A__L7*/ meltfnum[6];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5550:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5558:/ clear"); /*clear *//*_#IS_A__L7*/ meltfnum[6] = 0; } ; @@ -10743,7 +11798,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5550:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5558:/ cond.else"); /*^block */ /*anyblock */ @@ -10757,7 +11812,7 @@ lab_endgetargs:; melt_assert_failed (("check inienv"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5550) ? (5550) : __LINE__, __FUNCTION__); + (5558) ? (5558) : __LINE__, __FUNCTION__); ; } ; @@ -10771,7 +11826,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[11] = /*_.IFELSE___V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5550:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5558:/ clear"); /*clear *//*_#NULL__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_#OR___L6*/ meltfnum[0] = 0; @@ -10786,7 +11841,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5551:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5559:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10801,7 +11856,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L9*/ meltfnum[1] = (!( /*_#STRING_DYNLOADED_SUFFIXED__L8*/ meltfnum[6]));; - MELT_LOCATION ("warmelt-outobj.melt:5551:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5559:/ cond"); /*cond */ if ( /*_#NOT__L9*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -10809,7 +11864,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5551:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5559:/ cond.else"); /*^block */ /*anyblock */ @@ -10820,7 +11875,7 @@ lab_endgetargs:; { /*^locexp */ - melt_assert_failed (("compile_list_sexpr modulename not ended with MELT_DYNLOADED_SUFFIX."), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5551) ? (5551) : __LINE__, __FUNCTION__); + melt_assert_failed (("compile_list_sexpr modulename not ended with MELT_DYNLOADED_SUFFIX."), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5559) ? (5559) : __LINE__, __FUNCTION__); ; } ; @@ -10834,7 +11889,7 @@ lab_endgetargs:; /*_.IFCPP___V15*/ meltfptr[13] = /*_.IFELSE___V16*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5551:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5559:/ clear"); /*clear *//*_#STRING_DYNLOADED_SUFFIXED__L8*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_#NOT__L9*/ meltfnum[1] = 0; @@ -10849,7 +11904,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5553:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5561:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10864,7 +11919,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L11*/ meltfnum[6] = (!( /*_#STRING_SUFFIXED__L10*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-outobj.melt:5553:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5561:/ cond"); /*cond */ if ( /*_#NOT__L11*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -10872,7 +11927,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5553:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5561:/ cond.else"); /*^block */ /*anyblock */ @@ -10883,7 +11938,7 @@ lab_endgetargs:; { /*^locexp */ - melt_assert_failed (("compile_list_sexpr modulename not ended with .melt"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5553) ? (5553) : __LINE__, __FUNCTION__); + melt_assert_failed (("compile_list_sexpr modulename not ended with .melt"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5561) ? (5561) : __LINE__, __FUNCTION__); ; } ; @@ -10897,7 +11952,7 @@ lab_endgetargs:; /*_.IFCPP___V17*/ meltfptr[15] = /*_.IFELSE___V18*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5553:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5561:/ clear"); /*clear *//*_#STRING_SUFFIXED__L10*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_#NOT__L11*/ meltfnum[6] = 0; @@ -10912,7 +11967,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5555:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5563:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10927,7 +11982,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L13*/ meltfnum[0] = (!( /*_#STRING_SUFFIXED__L12*/ meltfnum[1]));; - MELT_LOCATION ("warmelt-outobj.melt:5555:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5563:/ cond"); /*cond */ if ( /*_#NOT__L13*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -10935,7 +11990,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5555:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5563:/ cond.else"); /*^block */ /*anyblock */ @@ -10946,7 +12001,7 @@ lab_endgetargs:; { /*^locexp */ - melt_assert_failed (("compile_list_sexpr modulename not ended with .c"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5555) ? (5555) : __LINE__, __FUNCTION__); + melt_assert_failed (("compile_list_sexpr modulename not ended with .c"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5563) ? (5563) : __LINE__, __FUNCTION__); ; } ; @@ -10960,7 +12015,7 @@ lab_endgetargs:; /*_.IFCPP___V19*/ meltfptr[17] = /*_.IFELSE___V20*/ meltfptr[19];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5555:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5563:/ clear"); /*clear *//*_#STRING_SUFFIXED__L12*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_#NOT__L13*/ meltfnum[0] = 0; @@ -10973,14 +12028,14 @@ lab_endgetargs:; /*_.IFCPP___V19*/ meltfptr[17] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5557:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5565:/ quasiblock"); /*_.MODNAKEDNAME__V22*/ meltfptr[21] = (meltgc_new_string_nakedbasename ((meltobject_ptr_t) (( /*!DISCR_STRING */ meltfrout->tabval[2])), melt_string_str ((melt_ptr_t) ( /*_.MODNAMSTR__V4*/ meltfptr[3]))));; - MELT_LOCATION ("warmelt-outobj.melt:5559:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5567:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.MAKE_MAPSTRING__V23*/ meltfptr[22] = @@ -11009,7 +12064,7 @@ lab_endgetargs:; /*_.MAKE_LIST__V28*/ meltfptr[27] = (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[6]))));; - MELT_LOCATION ("warmelt-outobj.melt:5571:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5579:/ quasiblock"); /*^newclosure */ @@ -11034,7 +12089,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.MODNAMSTR__V4*/ meltfptr[3]); ; /*_.LAMBDA___V29*/ meltfptr[28] = /*_.LAMBDA___V30*/ meltfptr[29];; - MELT_LOCATION ("warmelt-outobj.melt:5559:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5567:/ quasiblock"); /*^rawallocobj */ @@ -11153,7 +12208,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.MODCTX__V31*/ meltfptr[30] = /*_.INST__V32*/ meltfptr[31];; - MELT_LOCATION ("warmelt-outobj.melt:5573:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5581:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11166,13 +12221,137 @@ lab_endgetargs:; (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5577:/ checksignal"); + +#if MELT_HAVE_DEBUG + MELT_LOCATION ("warmelt-outobj.melt:5583:/ cppif.then"); + /*^block */ + /*anyblock */ + { + + + { + /*^locexp */ + /*melt_increment_dbgcounter */ +#if MELT_HAVE_DEBUG + melt_dbgcounter++; +#endif + ; + } + ; + /*^checksignal */ + MELT_CHECK_SIGNAL (); + ; + /*_#MELT_NEED_DBG__L14*/ meltfnum[6] = + /*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-outobj.melt:5583:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L14*/ meltfnum[6]) /*then */ + { + /*^cond.then */ + /*^block */ + /*anyblock */ + { + + /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[1] = +#ifdef meltcallcount + meltcallcount /* the_meltcallcount */ +#else + 0L +#endif /* meltcallcount the_meltcallcount */ + ;; + /*^compute */ + /*_.DISCRIM__V36*/ meltfptr[35] = + ((melt_ptr_t) + (melt_discr + ((melt_ptr_t) ( /*_.MODCTX__V31*/ meltfptr[30]))));; + MELT_LOCATION ("warmelt-outobj.melt:5583:/ checksignal"); + MELT_CHECK_SIGNAL (); + ; + /*^apply */ + /*apply */ + { + union meltparam_un argtab[7]; + memset (&argtab, 0, sizeof (argtab)); + /*^apply.arg */ + argtab[0].meltbp_long = + /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[1]; + /*^apply.arg */ + argtab[1].meltbp_cstring = "warmelt-outobj.melt"; + /*^apply.arg */ + argtab[2].meltbp_long = 5583; + /*^apply.arg */ + argtab[3].meltbp_cstring = "compile_list_sexpr modctx="; + /*^apply.arg */ + argtab[4].meltbp_aptr = + (melt_ptr_t *) & /*_.MODCTX__V31*/ meltfptr[30]; + /*^apply.arg */ + argtab[5].meltbp_cstring = "\n of class "; + /*^apply.arg */ + argtab[6].meltbp_aptr = + (melt_ptr_t *) & /*_.DISCRIM__V36*/ meltfptr[35]; + /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = + 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 ""), argtab, "", + (union meltparam_un *) 0); + } + ; + /*_.IF___V35*/ meltfptr[34] = + /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36];; + /*epilog */ + + MELT_LOCATION ("warmelt-outobj.melt:5583:/ clear"); + /*clear *//*_#THE_MELTCALLCOUNT__L15*/ meltfnum[1] = 0; + /*^clear */ + /*clear *//*_.DISCRIM__V36*/ meltfptr[35] = 0; + /*^clear */ + /*clear *//*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = 0; + } + ; + } + else + { /*^cond.else */ + + /*_.IF___V35*/ meltfptr[34] = NULL;; + } + ; + MELT_LOCATION ("warmelt-outobj.melt:5583:/ quasiblock"); + + + /*_.PROGN___V38*/ meltfptr[35] = /*_.IF___V35*/ meltfptr[34];; + /*^compute */ + /*_.IFCPP___V34*/ meltfptr[33] = /*_.PROGN___V38*/ meltfptr[35];; + /*epilog */ + + MELT_LOCATION ("warmelt-outobj.melt:5583:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L14*/ meltfnum[6] = 0; + /*^clear */ + /*clear *//*_.IF___V35*/ meltfptr[34] = 0; + /*^clear */ + /*clear *//*_.PROGN___V38*/ meltfptr[35] = 0; + } + +#else /*MELT_HAVE_DEBUG */ + /*^cppif.else */ + /*_.IFCPP___V34*/ meltfptr[33] = ( /*nil */ NULL); +#endif /*MELT_HAVE_DEBUG */ + ; + MELT_LOCATION ("warmelt-outobj.melt:5587:/ checksignal"); MELT_CHECK_SIGNAL (); ; - /*_#NULL__L14*/ meltfnum[6] = + /*_#NULL__L16*/ meltfnum[0] = (( /*_.INIENV__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-outobj.melt:5577:/ cond"); - /*cond */ if ( /*_#NULL__L14*/ meltfnum[6]) /*then */ + MELT_LOCATION ("warmelt-outobj.melt:5587:/ cond"); + /*cond */ if ( /*_#NULL__L16*/ meltfnum[0]) /*then */ { /*^cond.then */ /*^block */ @@ -11181,7 +12360,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:5580:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5590:/ locexp"); /* CHECKBOOTSTRAPPING_CHK__1 */ if (!melt_flag_bootstrapping) melt_fatal_error @@ -11191,33 +12370,33 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-outobj.melt:5586:/ compute"); - /*_.INIENV__V3*/ meltfptr[2] = /*_.SETQ___V35*/ meltfptr[34] = + MELT_LOCATION ("warmelt-outobj.melt:5596:/ compute"); + /*_.INIENV__V3*/ meltfptr[2] = /*_.SETQ___V40*/ meltfptr[34] = ( /*!INITIAL_ENVIRONMENT */ meltfrout->tabval[10]);; - MELT_LOCATION ("warmelt-outobj.melt:5577:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5587:/ quasiblock"); - /*_.PROGN___V36*/ meltfptr[35] = /*_.SETQ___V35*/ meltfptr[34];; + /*_.PROGN___V41*/ meltfptr[35] = /*_.SETQ___V40*/ meltfptr[34];; /*^compute */ - /*_.IF___V34*/ meltfptr[33] = /*_.PROGN___V36*/ meltfptr[35];; + /*_.IF___V39*/ meltfptr[36] = /*_.PROGN___V41*/ meltfptr[35];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5577:/ clear"); - /*clear *//*_.SETQ___V35*/ meltfptr[34] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5587:/ clear"); + /*clear *//*_.SETQ___V40*/ meltfptr[34] = 0; /*^clear */ - /*clear *//*_.PROGN___V36*/ meltfptr[35] = 0; + /*clear *//*_.PROGN___V41*/ meltfptr[35] = 0; } ; } else { /*^cond.else */ - /*_.IF___V34*/ meltfptr[33] = NULL;; + /*_.IF___V39*/ meltfptr[36] = NULL;; } ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5587:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5597:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11235,7 +12414,7 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - /*_#MELT_NEED_DBG__L15*/ meltfnum[1] = + /*_#MELT_NEED_DBG__L17*/ meltfnum[1] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -11243,22 +12422,22 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5587:/ cond"); - /*cond */ if ( /*_#MELT_NEED_DBG__L15*/ meltfnum[1]) /*then */ + MELT_LOCATION ("warmelt-outobj.melt:5597:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L17*/ meltfnum[1]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { - /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[0] = + /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[6] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5587:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5597:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11268,17 +12447,17 @@ lab_endgetargs:; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = - /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[0]; + /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[6]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5587; + argtab[2].meltbp_long = 5597; /*^apply.arg */ argtab[3].meltbp_cstring = "compile_list_sexpr initial ncx="; /*^apply.arg */ argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.NCX__V33*/ meltfptr[32]; - /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38] = + /*_.MELT_DEBUG_FUN__V44*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t) (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])), (melt_ptr_t) (( /*nil */ NULL)), @@ -11288,47 +12467,47 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - /*_.IF___V38*/ meltfptr[35] = - /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38];; + /*_.IF___V43*/ meltfptr[35] = + /*_.MELT_DEBUG_FUN__V44*/ meltfptr[43];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5587:/ clear"); - /*clear *//*_#THE_MELTCALLCOUNT__L16*/ meltfnum[0] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5597:/ clear"); + /*clear *//*_#THE_MELTCALLCOUNT__L18*/ meltfnum[6] = 0; /*^clear */ - /*clear *//*_.MELT_DEBUG_FUN__V39*/ meltfptr[38] = 0; + /*clear *//*_.MELT_DEBUG_FUN__V44*/ meltfptr[43] = 0; } ; } else { /*^cond.else */ - /*_.IF___V38*/ meltfptr[35] = NULL;; + /*_.IF___V43*/ meltfptr[35] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5587:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5597:/ quasiblock"); - /*_.PROGN___V40*/ meltfptr[38] = /*_.IF___V38*/ meltfptr[35];; + /*_.PROGN___V45*/ meltfptr[43] = /*_.IF___V43*/ meltfptr[35];; /*^compute */ - /*_.IFCPP___V37*/ meltfptr[34] = /*_.PROGN___V40*/ meltfptr[38];; + /*_.IFCPP___V42*/ meltfptr[34] = /*_.PROGN___V45*/ meltfptr[43];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5587:/ clear"); - /*clear *//*_#MELT_NEED_DBG__L15*/ meltfnum[1] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5597:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L17*/ meltfnum[1] = 0; /*^clear */ - /*clear *//*_.IF___V38*/ meltfptr[35] = 0; + /*clear *//*_.IF___V43*/ meltfptr[35] = 0; /*^clear */ - /*clear *//*_.PROGN___V40*/ meltfptr[38] = 0; + /*clear *//*_.PROGN___V45*/ meltfptr[43] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V37*/ meltfptr[34] = ( /*nil */ NULL); + /*_.IFCPP___V42*/ meltfptr[34] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5588:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5598:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11336,19 +12515,19 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - /*_#IS_A__L17*/ meltfnum[0] = + /*_#IS_A__L19*/ meltfnum[6] = melt_is_instance_of ((melt_ptr_t) ( /*_.NCX__V33*/ meltfptr[32]), (melt_ptr_t) (( /*!CLASS_NORMALIZATION_CONTEXT */ meltfrout->tabval[11])));; - MELT_LOCATION ("warmelt-outobj.melt:5588:/ cond"); - /*cond */ if ( /*_#IS_A__L17*/ meltfnum[0]) /*then */ + MELT_LOCATION ("warmelt-outobj.melt:5598:/ cond"); + /*cond */ if ( /*_#IS_A__L19*/ meltfnum[6]) /*then */ { /*^cond.then */ - /*_.IFELSE___V42*/ meltfptr[38] = ( /*nil */ NULL);; + /*_.IFELSE___V47*/ meltfptr[43] = ( /*nil */ NULL);; } else { - MELT_LOCATION ("warmelt-outobj.melt:5588:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5598:/ cond.else"); /*^block */ /*anyblock */ @@ -11362,32 +12541,32 @@ lab_endgetargs:; melt_assert_failed (("check ncx"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5588) ? (5588) : __LINE__, __FUNCTION__); + (5598) ? (5598) : __LINE__, __FUNCTION__); ; } ; - /*clear *//*_.IFELSE___V42*/ meltfptr[38] = 0; + /*clear *//*_.IFELSE___V47*/ meltfptr[43] = 0; /*epilog */ } ; } ; /*^compute */ - /*_.IFCPP___V41*/ meltfptr[35] = /*_.IFELSE___V42*/ meltfptr[38];; + /*_.IFCPP___V46*/ meltfptr[35] = /*_.IFELSE___V47*/ meltfptr[43];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5588:/ clear"); - /*clear *//*_#IS_A__L17*/ meltfnum[0] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5598:/ clear"); + /*clear *//*_#IS_A__L19*/ meltfnum[6] = 0; /*^clear */ - /*clear *//*_.IFELSE___V42*/ meltfptr[38] = 0; + /*clear *//*_.IFELSE___V47*/ meltfptr[43] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V41*/ meltfptr[35] = ( /*nil */ NULL); + /*_.IFCPP___V46*/ meltfptr[35] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5589:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5599:/ quasiblock"); /*^checksignal */ @@ -11405,7 +12584,7 @@ lab_endgetargs:; (melt_ptr_t *) & ( /*!MACROEXPAND_1 */ meltfrout->tabval[13]); /*^apply.arg */ argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V31*/ meltfptr[30]; - /*_.XLIST__V44*/ meltfptr[43] = + /*_.XLIST__V49*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t) (( /*!MACROEXPAND_TOPLEVEL_LIST */ meltfrout-> tabval[12])), @@ -11414,15 +12593,127 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - /*_#LENXLIST__L18*/ meltfnum[1] = - (melt_list_length ((melt_ptr_t) ( /*_.XLIST__V44*/ meltfptr[43])));; - MELT_LOCATION ("warmelt-outobj.melt:5592:/ checksignal"); + /*_#LENXLIST__L20*/ meltfnum[1] = + (melt_list_length ((melt_ptr_t) ( /*_.XLIST__V49*/ meltfptr[48])));; + +#if MELT_HAVE_DEBUG + MELT_LOCATION ("warmelt-outobj.melt:5602:/ cppif.then"); + /*^block */ + /*anyblock */ + { + + + { + /*^locexp */ + /*melt_increment_dbgcounter */ +#if MELT_HAVE_DEBUG + melt_dbgcounter++; +#endif + ; + } + ; + /*^checksignal */ + MELT_CHECK_SIGNAL (); + ; + /*_#MELT_NEED_DBG__L21*/ meltfnum[6] = + /*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-outobj.melt:5602:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L21*/ meltfnum[6]) /*then */ + { + /*^cond.then */ + /*^block */ + /*anyblock */ + { + + /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[21] = +#ifdef meltcallcount + meltcallcount /* the_meltcallcount */ +#else + 0L +#endif /* meltcallcount the_meltcallcount */ + ;; + MELT_LOCATION ("warmelt-outobj.melt:5602:/ checksignal"); + MELT_CHECK_SIGNAL (); + ; + /*^apply */ + /*apply */ + { + union meltparam_un argtab[5]; + memset (&argtab, 0, sizeof (argtab)); + /*^apply.arg */ + argtab[0].meltbp_long = + /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[21]; + /*^apply.arg */ + argtab[1].meltbp_cstring = "warmelt-outobj.melt"; + /*^apply.arg */ + argtab[2].meltbp_long = 5602; + /*^apply.arg */ + argtab[3].meltbp_cstring = + "compile_list_sexpr after macroexpansion modctx="; + /*^apply.arg */ + argtab[4].meltbp_aptr = + (melt_ptr_t *) & /*_.MODCTX__V31*/ meltfptr[30]; + /*_.MELT_DEBUG_FUN__V52*/ meltfptr[51] = + 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); + } + ; + /*_.IF___V51*/ meltfptr[50] = + /*_.MELT_DEBUG_FUN__V52*/ meltfptr[51];; + /*epilog */ + + MELT_LOCATION ("warmelt-outobj.melt:5602:/ clear"); + /*clear *//*_#THE_MELTCALLCOUNT__L22*/ meltfnum[21] = 0; + /*^clear */ + /*clear *//*_.MELT_DEBUG_FUN__V52*/ meltfptr[51] = 0; + } + ; + } + else + { /*^cond.else */ + + /*_.IF___V51*/ meltfptr[50] = NULL;; + } + ; + MELT_LOCATION ("warmelt-outobj.melt:5602:/ quasiblock"); + + + /*_.PROGN___V53*/ meltfptr[51] = /*_.IF___V51*/ meltfptr[50];; + /*^compute */ + /*_.IFCPP___V50*/ meltfptr[49] = /*_.PROGN___V53*/ meltfptr[51];; + /*epilog */ + + MELT_LOCATION ("warmelt-outobj.melt:5602:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L21*/ meltfnum[6] = 0; + /*^clear */ + /*clear *//*_.IF___V51*/ meltfptr[50] = 0; + /*^clear */ + /*clear *//*_.PROGN___V53*/ meltfptr[51] = 0; + } + +#else /*MELT_HAVE_DEBUG */ + /*^cppif.else */ + /*_.IFCPP___V50*/ meltfptr[49] = ( /*nil */ NULL); +#endif /*MELT_HAVE_DEBUG */ + ; + MELT_LOCATION ("warmelt-outobj.melt:5604:/ checksignal"); MELT_CHECK_SIGNAL (); ; - /*_#I__L19*/ meltfnum[0] = - (( /*_#LENXLIST__L18*/ meltfnum[1]) <= (3));; - MELT_LOCATION ("warmelt-outobj.melt:5592:/ cond"); - /*cond */ if ( /*_#I__L19*/ meltfnum[0]) /*then */ + /*_#I__L23*/ meltfnum[21] = + (( /*_#LENXLIST__L20*/ meltfnum[1]) <= (3));; + MELT_LOCATION ("warmelt-outobj.melt:5604:/ cond"); + /*cond */ if ( /*_#I__L23*/ meltfnum[21]) /*then */ { /*^cond.then */ /*^block */ @@ -11431,10 +12722,10 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:5594:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5606:/ locexp"); /* compile_list_sexpr WARNSHORTCHK__1 */ warning (0, "MELT expanded few (%d) expressions", - (int) /*_#LENXLIST__L18*/ meltfnum[1]); + (int) /*_#LENXLIST__L20*/ meltfnum[1]); ; } ; @@ -11443,7 +12734,119 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:5598:/ checksignal"); + +#if MELT_HAVE_DEBUG + MELT_LOCATION ("warmelt-outobj.melt:5609:/ cppif.then"); + /*^block */ + /*anyblock */ + { + + + { + /*^locexp */ + /*melt_increment_dbgcounter */ +#if MELT_HAVE_DEBUG + melt_dbgcounter++; +#endif + ; + } + ; + /*^checksignal */ + MELT_CHECK_SIGNAL (); + ; + /*_#MELT_NEED_DBG__L24*/ meltfnum[6] = + /*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-outobj.melt:5609:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L24*/ meltfnum[6]) /*then */ + { + /*^cond.then */ + /*^block */ + /*anyblock */ + { + + /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[24] = +#ifdef meltcallcount + meltcallcount /* the_meltcallcount */ +#else + 0L +#endif /* meltcallcount the_meltcallcount */ + ;; + MELT_LOCATION ("warmelt-outobj.melt:5609:/ checksignal"); + MELT_CHECK_SIGNAL (); + ; + /*^apply */ + /*apply */ + { + union meltparam_un argtab[5]; + memset (&argtab, 0, sizeof (argtab)); + /*^apply.arg */ + argtab[0].meltbp_long = + /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[24]; + /*^apply.arg */ + argtab[1].meltbp_cstring = "warmelt-outobj.melt"; + /*^apply.arg */ + argtab[2].meltbp_long = 5609; + /*^apply.arg */ + argtab[3].meltbp_cstring = + "compile_list_sexpr before translation modctx="; + /*^apply.arg */ + argtab[4].meltbp_aptr = + (melt_ptr_t *) & /*_.MODCTX__V31*/ meltfptr[30]; + /*_.MELT_DEBUG_FUN__V56*/ meltfptr[55] = + 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); + } + ; + /*_.IF___V55*/ meltfptr[51] = + /*_.MELT_DEBUG_FUN__V56*/ meltfptr[55];; + /*epilog */ + + MELT_LOCATION ("warmelt-outobj.melt:5609:/ clear"); + /*clear *//*_#THE_MELTCALLCOUNT__L25*/ meltfnum[24] = 0; + /*^clear */ + /*clear *//*_.MELT_DEBUG_FUN__V56*/ meltfptr[55] = 0; + } + ; + } + else + { /*^cond.else */ + + /*_.IF___V55*/ meltfptr[51] = NULL;; + } + ; + MELT_LOCATION ("warmelt-outobj.melt:5609:/ quasiblock"); + + + /*_.PROGN___V57*/ meltfptr[55] = /*_.IF___V55*/ meltfptr[51];; + /*^compute */ + /*_.IFCPP___V54*/ meltfptr[50] = /*_.PROGN___V57*/ meltfptr[55];; + /*epilog */ + + MELT_LOCATION ("warmelt-outobj.melt:5609:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L24*/ meltfnum[6] = 0; + /*^clear */ + /*clear *//*_.IF___V55*/ meltfptr[51] = 0; + /*^clear */ + /*clear *//*_.PROGN___V57*/ meltfptr[55] = 0; + } + +#else /*MELT_HAVE_DEBUG */ + /*^cppif.else */ + /*_.IFCPP___V54*/ meltfptr[50] = ( /*nil */ NULL); +#endif /*MELT_HAVE_DEBUG */ + ; + MELT_LOCATION ("warmelt-outobj.melt:5611:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11463,30 +12866,148 @@ lab_endgetargs:; /*^apply.arg */ argtab[4].meltbp_aptr = (melt_ptr_t *) & ( /*!COMPILE2OBJ_INITPROC */ meltfrout->tabval[15]); - /*_.TRANSLATE_MACROEXPANDED_LIST__V45*/ meltfptr[44] = + /*_.TRANSLATE_MACROEXPANDED_LIST__V58*/ meltfptr[51] = melt_apply ((meltclosure_ptr_t) (( /*!TRANSLATE_MACROEXPANDED_LIST */ meltfrout-> tabval[14])), - (melt_ptr_t) ( /*_.XLIST__V44*/ meltfptr[43]), + (melt_ptr_t) ( /*_.XLIST__V49*/ meltfptr[48]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; - /*_.LET___V43*/ meltfptr[38] = - /*_.TRANSLATE_MACROEXPANDED_LIST__V45*/ meltfptr[44];; - MELT_LOCATION ("warmelt-outobj.melt:5589:/ clear"); - /*clear *//*_.XLIST__V44*/ meltfptr[43] = 0; +#if MELT_HAVE_DEBUG + MELT_LOCATION ("warmelt-outobj.melt:5612:/ cppif.then"); + /*^block */ + /*anyblock */ + { + + + { + /*^locexp */ + /*melt_increment_dbgcounter */ +#if MELT_HAVE_DEBUG + melt_dbgcounter++; +#endif + ; + } + ; + /*^checksignal */ + MELT_CHECK_SIGNAL (); + ; + /*_#MELT_NEED_DBG__L26*/ meltfnum[24] = + /*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-outobj.melt:5612:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L26*/ meltfnum[24]) /*then */ + { + /*^cond.then */ + /*^block */ + /*anyblock */ + { + + /*_#THE_MELTCALLCOUNT__L27*/ meltfnum[6] = +#ifdef meltcallcount + meltcallcount /* the_meltcallcount */ +#else + 0L +#endif /* meltcallcount the_meltcallcount */ + ;; + MELT_LOCATION ("warmelt-outobj.melt:5612:/ checksignal"); + MELT_CHECK_SIGNAL (); + ; + /*^apply */ + /*apply */ + { + union meltparam_un argtab[5]; + memset (&argtab, 0, sizeof (argtab)); + /*^apply.arg */ + argtab[0].meltbp_long = + /*_#THE_MELTCALLCOUNT__L27*/ meltfnum[6]; + /*^apply.arg */ + argtab[1].meltbp_cstring = "warmelt-outobj.melt"; + /*^apply.arg */ + argtab[2].meltbp_long = 5612; + /*^apply.arg */ + argtab[3].meltbp_cstring = + "compile_list_sexpr after translation modctx="; + /*^apply.arg */ + argtab[4].meltbp_aptr = + (melt_ptr_t *) & /*_.MODCTX__V31*/ meltfptr[30]; + /*_.MELT_DEBUG_FUN__V61*/ meltfptr[60] = + 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); + } + ; + /*_.IF___V60*/ meltfptr[59] = + /*_.MELT_DEBUG_FUN__V61*/ meltfptr[60];; + /*epilog */ + + MELT_LOCATION ("warmelt-outobj.melt:5612:/ clear"); + /*clear *//*_#THE_MELTCALLCOUNT__L27*/ meltfnum[6] = 0; + /*^clear */ + /*clear *//*_.MELT_DEBUG_FUN__V61*/ meltfptr[60] = 0; + } + ; + } + else + { /*^cond.else */ + + /*_.IF___V60*/ meltfptr[59] = NULL;; + } + ; + MELT_LOCATION ("warmelt-outobj.melt:5612:/ quasiblock"); + + + /*_.PROGN___V62*/ meltfptr[60] = /*_.IF___V60*/ meltfptr[59];; + /*^compute */ + /*_.IFCPP___V59*/ meltfptr[55] = /*_.PROGN___V62*/ meltfptr[60];; + /*epilog */ + + MELT_LOCATION ("warmelt-outobj.melt:5612:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L26*/ meltfnum[24] = 0; + /*^clear */ + /*clear *//*_.IF___V60*/ meltfptr[59] = 0; + /*^clear */ + /*clear *//*_.PROGN___V62*/ meltfptr[60] = 0; + } + +#else /*MELT_HAVE_DEBUG */ + /*^cppif.else */ + /*_.IFCPP___V59*/ meltfptr[55] = ( /*nil */ NULL); +#endif /*MELT_HAVE_DEBUG */ + ; + /*^compute */ + /*_.LET___V48*/ meltfptr[43] = /*_.IFCPP___V59*/ meltfptr[55];; + + MELT_LOCATION ("warmelt-outobj.melt:5599:/ clear"); + /*clear *//*_.XLIST__V49*/ meltfptr[48] = 0; + /*^clear */ + /*clear *//*_#LENXLIST__L20*/ meltfnum[1] = 0; /*^clear */ - /*clear *//*_#LENXLIST__L18*/ meltfnum[1] = 0; + /*clear *//*_.IFCPP___V50*/ meltfptr[49] = 0; /*^clear */ - /*clear *//*_#I__L19*/ meltfnum[0] = 0; + /*clear *//*_#I__L23*/ meltfnum[21] = 0; /*^clear */ - /*clear *//*_.TRANSLATE_MACROEXPANDED_LIST__V45*/ meltfptr[44] = 0; - /*_.LET___V21*/ meltfptr[19] = /*_.LET___V43*/ meltfptr[38];; + /*clear *//*_.IFCPP___V54*/ meltfptr[50] = 0; + /*^clear */ + /*clear *//*_.TRANSLATE_MACROEXPANDED_LIST__V58*/ meltfptr[51] = 0; + /*^clear */ + /*clear *//*_.IFCPP___V59*/ meltfptr[55] = 0; + /*_.LET___V21*/ meltfptr[19] = /*_.LET___V48*/ meltfptr[43];; - MELT_LOCATION ("warmelt-outobj.melt:5557:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5565:/ clear"); /*clear *//*_.MODNAKEDNAME__V22*/ meltfptr[21] = 0; /*^clear */ /*clear *//*_.MAKE_MAPSTRING__V23*/ meltfptr[22] = 0; @@ -11507,24 +13028,39 @@ lab_endgetargs:; /*^clear */ /*clear *//*_.NCX__V33*/ meltfptr[32] = 0; /*^clear */ - /*clear *//*_#NULL__L14*/ meltfnum[6] = 0; + /*clear *//*_.IFCPP___V34*/ meltfptr[33] = 0; + /*^clear */ + /*clear *//*_#NULL__L16*/ meltfnum[0] = 0; /*^clear */ - /*clear *//*_.IF___V34*/ meltfptr[33] = 0; + /*clear *//*_.IF___V39*/ meltfptr[36] = 0; /*^clear */ - /*clear *//*_.IFCPP___V37*/ meltfptr[34] = 0; + /*clear *//*_.IFCPP___V42*/ meltfptr[34] = 0; /*^clear */ - /*clear *//*_.IFCPP___V41*/ meltfptr[35] = 0; + /*clear *//*_.IFCPP___V46*/ meltfptr[35] = 0; /*^clear */ - /*clear *//*_.LET___V43*/ meltfptr[38] = 0; + /*clear *//*_.LET___V48*/ meltfptr[43] = 0; + MELT_LOCATION ("warmelt-outobj.melt:5552:/ checksignal"); + MELT_CHECK_SIGNAL (); + ; + /*^quasiblock */ + + + /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V21*/ meltfptr[19];; { - MELT_LOCATION ("warmelt-outobj.melt:5601:/ locexp"); - debugeputs (("ended compile_list_sexpr")); + MELT_LOCATION ("warmelt-outobj.melt:5552:/ 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 */ + ; } ; - MELT_LOCATION ("warmelt-outobj.melt:5544:/ checksignal"); - MELT_CHECK_SIGNAL (); + /*^finalreturn */ ; + /*finalret */ goto labend_rout; /*epilog */ /*^clear */ @@ -11552,7 +13088,7 @@ labend_rout: melt_blocklevel_signals = current_blocklevel_signals_meltrout_135_warmelt_outobj_COMPILE_LIST_SEXPR_melt; melt_topframe = (struct melt_callframe_st *) meltfram__.mcfr_prev; - return (melt_ptr_t) ( /*noretval */ NULL); + return (melt_ptr_t) ( /*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM @@ -11635,7 +13171,7 @@ meltrout_136_warmelt_outobj_LAMBDA___28__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:5571:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:5579:/ getarg"); /*_.V__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -11670,7 +13206,7 @@ lab_endgetargs:; /*_.FATAL_COMPILE_ERROR__V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-outobj.melt:5571:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5579:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -11786,7 +13322,7 @@ meltrout_137_warmelt_outobj_TRANSLATE_RUN_MELT_EXPRESSIONS (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:5606:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:5617:/ getarg"); /*_.EXPRS__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -11807,7 +13343,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5608:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5619:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11833,7 +13369,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5608:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5619:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -11848,7 +13384,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5608:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5619:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11861,7 +13397,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5608; + argtab[2].meltbp_long = 5619; /*^apply.arg */ argtab[3].meltbp_cstring = "translate_run_melt_expressions start exprs="; @@ -11887,7 +13423,7 @@ lab_endgetargs:; /*_.IF___V5*/ meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5608:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5619:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = 0; @@ -11900,7 +13436,7 @@ lab_endgetargs:; /*_.IF___V5*/ meltfptr[4] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5608:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5619:/ quasiblock"); /*_.PROGN___V7*/ meltfptr[5] = /*_.IF___V5*/ meltfptr[4];; @@ -11908,7 +13444,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.PROGN___V7*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5608:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5619:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V5*/ meltfptr[4] = 0; @@ -11921,12 +13457,12 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5609:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5620:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L3*/ meltfnum[1] = (( /*_.EXPRS__V2*/ meltfptr[1]) == NULL);; - MELT_LOCATION ("warmelt-outobj.melt:5609:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5620:/ cond"); /*cond */ if ( /*_#NULL__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -11936,7 +13472,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5610:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5621:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11962,7 +13498,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5610:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5621:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -11977,7 +13513,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5610:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5621:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11991,7 +13527,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5610; + argtab[2].meltbp_long = 5621; /*^apply.arg */ argtab[3].meltbp_cstring = "translate_run_melt_expressions gets and gives null"; @@ -12009,7 +13545,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5610:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5621:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V11*/ meltfptr[10] = 0; @@ -12022,7 +13558,7 @@ lab_endgetargs:; /*_.IF___V10*/ meltfptr[9] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5610:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5621:/ quasiblock"); /*_.PROGN___V12*/ meltfptr[10] = /*_.IF___V10*/ meltfptr[9];; @@ -12030,7 +13566,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[5] = /*_.PROGN___V12*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5610:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5621:/ clear"); /*clear *//*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V10*/ meltfptr[9] = 0; @@ -12043,7 +13579,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5611:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5622:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -12052,7 +13588,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; { - MELT_LOCATION ("warmelt-outobj.melt:5611:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5622:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -12065,7 +13601,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-outobj.melt:5609:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5620:/ quasiblock"); /*_.PROGN___V14*/ meltfptr[10] = /*_.RETURN___V13*/ meltfptr[9];; @@ -12073,7 +13609,7 @@ lab_endgetargs:; /*_.IF___V8*/ meltfptr[4] = /*_.PROGN___V14*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5609:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5620:/ clear"); /*clear *//*_.IFCPP___V9*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.RETURN___V13*/ meltfptr[9] = 0; @@ -12090,7 +13626,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5612:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5623:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12102,7 +13638,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:5612:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5623:/ cond"); /*cond */ if ( /*_#IS_A__L6*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -12110,7 +13646,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5612:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5623:/ cond.else"); /*^block */ /*anyblock */ @@ -12124,7 +13660,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5612) ? (5612) : __LINE__, __FUNCTION__); + (5623) ? (5623) : __LINE__, __FUNCTION__); ; } ; @@ -12138,7 +13674,7 @@ lab_endgetargs:; /*_.IFCPP___V15*/ meltfptr[5] = /*_.IFELSE___V16*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5612:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5623:/ clear"); /*clear *//*_#IS_A__L6*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.IFELSE___V16*/ meltfptr[9] = 0; @@ -12149,7 +13685,7 @@ lab_endgetargs:; /*_.IFCPP___V15*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5613:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5624:/ quasiblock"); /*_#NUM__L7*/ meltfnum[0] = 0;; @@ -12158,7 +13694,7 @@ lab_endgetargs:; melt_error_counter;; /*^compute */ /*_.NAKEDBASNAM__V18*/ meltfptr[9] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-outobj.melt:5616:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5627:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -12184,7 +13720,7 @@ lab_endgetargs:; /*_.REFERR__V19*/ meltfptr[18] = /*_.INST__V20*/ meltfptr[19];; { - MELT_LOCATION ("warmelt-outobj.melt:5618:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5629:/ locexp"); /* translate_run_melt_expressions NUMCHK__1 */ static long num_NUMCHK__1; char basbuf_NUMCHK__1[64]; @@ -12202,7 +13738,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5628:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5639:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12228,7 +13764,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5628:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5639:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -12243,7 +13779,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5628:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5639:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12257,7 +13793,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5628; + argtab[2].meltbp_long = 5639; /*^apply.arg */ argtab[3].meltbp_cstring = "translate_run_melt_expressions nakedbasnam="; @@ -12288,7 +13824,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5628:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5639:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V23*/ meltfptr[22] = 0; @@ -12301,7 +13837,7 @@ lab_endgetargs:; /*_.IF___V22*/ meltfptr[21] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5628:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5639:/ quasiblock"); /*_.PROGN___V24*/ meltfptr[22] = /*_.IF___V22*/ meltfptr[21];; @@ -12309,7 +13845,7 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[20] = /*_.PROGN___V24*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5628:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5639:/ clear"); /*clear *//*_#MELT_NEED_DBG__L9*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.IF___V22*/ meltfptr[21] = 0; @@ -12322,10 +13858,10 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[20] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5629:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5640:/ quasiblock"); - MELT_LOCATION ("warmelt-outobj.melt:5630:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5641:/ quasiblock"); /*^newclosure */ @@ -12363,7 +13899,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.REFERR__V19*/ meltfptr[18]); ; /*_.RUNERRORHDLR__V26*/ meltfptr[22] = /*_.LAMBDA___V27*/ meltfptr[26];; - MELT_LOCATION ("warmelt-outobj.melt:5648:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5659:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.MAKE_MAPSTRING__V28*/ meltfptr[27] = @@ -12392,7 +13928,7 @@ lab_endgetargs:; /*_.MAKE_LIST__V33*/ meltfptr[32] = (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[9]))));; - MELT_LOCATION ("warmelt-outobj.melt:5648:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5659:/ quasiblock"); /*^rawallocobj */ @@ -12511,7 +14047,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.MODCTX__V34*/ meltfptr[33] = /*_.INST__V35*/ meltfptr[34];; - MELT_LOCATION ("warmelt-outobj.melt:5662:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5673:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12530,13 +14066,13 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5664:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5675:/ quasiblock"); /*_.LS__V38*/ meltfptr[37] = (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[9]))));; - MELT_LOCATION ("warmelt-outobj.melt:5667:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5678:/ quasiblock"); /*^newclosure */ @@ -12587,12 +14123,12 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.RUNERRORHDLR__V26*/ meltfptr[22]); ; /*_.ADDEXP__V39*/ meltfptr[38] = /*_.LAMBDA___V40*/ meltfptr[39];; - MELT_LOCATION ("warmelt-outobj.melt:5699:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5710:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L11*/ meltfnum[9] = (( /*_.EXPRS__V2*/ meltfptr[1]) == NULL);; - MELT_LOCATION ("warmelt-outobj.melt:5699:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5710:/ cond"); /*cond */ if ( /*_#NULL__L11*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -12604,7 +14140,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:5700:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5711:/ locexp"); /*void */ (void) 0; } ; @@ -12615,19 +14151,19 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5699:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5710:/ cond.else"); /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:5701:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5712:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_MULTIPLE__L12*/ meltfnum[8] = (melt_magic_discr ((melt_ptr_t) ( /*_.EXPRS__V2*/ meltfptr[1])) == MELTOBMAG_MULTIPLE);; - MELT_LOCATION ("warmelt-outobj.melt:5701:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5712:/ cond"); /*cond */ if ( /*_#IS_MULTIPLE__L12*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -12655,7 +14191,7 @@ lab_endgetargs:; MELT_LOCATION - ("warmelt-outobj.melt:5705:/ checksignal"); + ("warmelt-outobj.melt:5716:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12682,7 +14218,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:5702:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5713:/ clear"); /*clear *//*_.CUREXP__V43*/ meltfptr[42] = 0; /*^clear */ /*clear *//*_#IX__L13*/ meltfnum[12] = 0; @@ -12696,20 +14232,20 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5701:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5712:/ cond.else"); /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:5707:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5718:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_LIST__L14*/ meltfnum[13] = (melt_magic_discr ((melt_ptr_t) ( /*_.EXPRS__V2*/ meltfptr[1])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:5707:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5718:/ cond"); /*cond */ if ( /*_#IS_LIST__L14*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -12717,7 +14253,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:5708:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5719:/ quasiblock"); /*_#IX__L15*/ meltfnum[14] = 0;; @@ -12742,12 +14278,12 @@ lab_endgetargs:; /*_#I__L16*/ meltfnum[15] = (( /*_#IX__L15*/ meltfnum[14]) - (1));; MELT_LOCATION - ("warmelt-outobj.melt:5712:/ compute"); + ("warmelt-outobj.melt:5723:/ compute"); /*_#IX__L15*/ meltfnum[14] = /*_#SETQ___L17*/ meltfnum[16] = /*_#I__L16*/ meltfnum[15];; MELT_LOCATION - ("warmelt-outobj.melt:5713:/ checksignal"); + ("warmelt-outobj.melt:5724:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12776,7 +14312,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:5709:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5720:/ clear"); /*clear *//*_.CURPAIR__V46*/ meltfptr[45] = 0; /*^clear */ /*clear *//*_.CUREXP__V47*/ meltfptr[46] = 0; @@ -12789,7 +14325,7 @@ lab_endgetargs:; } /*endciterblock FOREACH_IN_LIST */ ; - MELT_LOCATION ("warmelt-outobj.melt:5708:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5719:/ clear"); /*clear *//*_#IX__L15*/ meltfnum[14] = 0; /*epilog */ } @@ -12797,14 +14333,14 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5707:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5718:/ cond.else"); /*^block */ /*anyblock */ { MELT_LOCATION - ("warmelt-outobj.melt:5714:/ checksignal"); + ("warmelt-outobj.melt:5725:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L18*/ meltfnum[14] = @@ -12813,7 +14349,7 @@ lab_endgetargs:; (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[16])));; - MELT_LOCATION ("warmelt-outobj.melt:5714:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5725:/ cond"); /*cond */ if ( /*_#IS_A__L18*/ meltfnum[14]) /*then */ { /*^cond.then */ @@ -12822,7 +14358,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:5715:/ checksignal"); + ("warmelt-outobj.melt:5726:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12846,7 +14382,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:5714:/ clear"); + ("warmelt-outobj.melt:5725:/ clear"); /*clear *//*_.ADDEXP__V50*/ meltfptr[49] = 0; } ; @@ -12859,7 +14395,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:5717:/ checksignal"); + ("warmelt-outobj.melt:5728:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12877,7 +14413,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-outobj.melt:5716:/ quasiblock"); + ("warmelt-outobj.melt:5727:/ quasiblock"); /*_.PROGN___V52*/ meltfptr[51] = @@ -12888,7 +14424,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:5714:/ clear"); + ("warmelt-outobj.melt:5725:/ clear"); /*clear *//*_.RUNERRORHDLR__V51*/ meltfptr[49] = 0; /*^clear */ @@ -12901,7 +14437,7 @@ lab_endgetargs:; /*_.IFELSE___V49*/ meltfptr[48];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5707:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5718:/ clear"); /*clear *//*_#IS_A__L18*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.IFELSE___V49*/ meltfptr[48] = 0; @@ -12913,7 +14449,7 @@ lab_endgetargs:; /*_.IFELSE___V45*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5701:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5712:/ clear"); /*clear *//*_#IS_LIST__L14*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.IFELSE___V45*/ meltfptr[44] = 0; @@ -12924,7 +14460,7 @@ lab_endgetargs:; /*_.IFELSE___V41*/ meltfptr[40] = /*_.IFELSE___V42*/ meltfptr[41];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5699:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5710:/ clear"); /*clear *//*_#IS_MULTIPLE__L12*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.IFELSE___V42*/ meltfptr[41] = 0; @@ -12934,7 +14470,7 @@ lab_endgetargs:; ; /*_.LET___V37*/ meltfptr[36] = /*_.LS__V38*/ meltfptr[37];; - MELT_LOCATION ("warmelt-outobj.melt:5664:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5675:/ clear"); /*clear *//*_.LS__V38*/ meltfptr[37] = 0; /*^clear */ /*clear *//*_.ADDEXP__V39*/ meltfptr[38] = 0; @@ -12945,7 +14481,7 @@ lab_endgetargs:; /*_.LSEXP__V53*/ meltfptr[49] = /*_.LET___V37*/ meltfptr[36];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5721:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5732:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12971,7 +14507,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5721:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5732:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L19*/ meltfnum[14]) /*then */ { /*^cond.then */ @@ -12986,7 +14522,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5721:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5732:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13000,7 +14536,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5721; + argtab[2].meltbp_long = 5732; /*^apply.arg */ argtab[3].meltbp_cstring = "translate_run_melt_expressions modctx="; @@ -13033,7 +14569,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V56*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5721:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5732:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L20*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V56*/ meltfptr[44] = 0; @@ -13046,7 +14582,7 @@ lab_endgetargs:; /*_.IF___V55*/ meltfptr[48] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5721:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5732:/ quasiblock"); /*_.PROGN___V57*/ meltfptr[41] = /*_.IF___V55*/ meltfptr[48];; @@ -13054,7 +14590,7 @@ lab_endgetargs:; /*_.IFCPP___V54*/ meltfptr[51] = /*_.PROGN___V57*/ meltfptr[41];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5721:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5732:/ clear"); /*clear *//*_#MELT_NEED_DBG__L19*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.IF___V55*/ meltfptr[48] = 0; @@ -13067,7 +14603,7 @@ lab_endgetargs:; /*_.IFCPP___V54*/ meltfptr[51] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5722:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5733:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -13095,7 +14631,7 @@ lab_endgetargs:; /*_.REFERENCED_VALUE__V58*/ meltfptr[37] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5722:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5733:/ cond"); /*cond */ if ( /*_.REFERENCED_VALUE__V58*/ meltfptr[37]) /*then */ { /*^cond.then */ @@ -13103,7 +14639,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:5723:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5734:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13118,14 +14654,14 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5724:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5735:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-outobj.melt:5724:/ putxtraresult"); + MELT_LOCATION ("warmelt-outobj.melt:5735:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) @@ -13136,7 +14672,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-outobj.melt:5722:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5733:/ quasiblock"); /*_.PROGN___V62*/ meltfptr[48] = /*_.RETURN___V61*/ meltfptr[44];; @@ -13144,7 +14680,7 @@ lab_endgetargs:; /*_.IF___V59*/ meltfptr[38] = /*_.PROGN___V62*/ meltfptr[48];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5722:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5733:/ clear"); /*clear *//*_.RUNERRORHDLR__V60*/ meltfptr[40] = 0; /*^clear */ /*clear *//*_.RETURN___V61*/ meltfptr[44] = 0; @@ -13159,7 +14695,7 @@ lab_endgetargs:; /*_.IF___V59*/ meltfptr[38] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5725:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5736:/ quasiblock"); /*^checksignal */ @@ -13190,7 +14726,7 @@ lab_endgetargs:; (melt_list_length ((melt_ptr_t) ( /*_.XLIST__V64*/ meltfptr[40])));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5728:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5739:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13216,7 +14752,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5728:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5739:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L22*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -13231,7 +14767,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5728:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5739:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13245,7 +14781,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5728; + argtab[2].meltbp_long = 5739; /*^apply.arg */ argtab[3].meltbp_cstring = "translate_run_melt_expressions xlist="; @@ -13266,7 +14802,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V67*/ meltfptr[66];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5728:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5739:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L23*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V67*/ meltfptr[66] = 0; @@ -13279,7 +14815,7 @@ lab_endgetargs:; /*_.IF___V66*/ meltfptr[48] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5728:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5739:/ quasiblock"); /*_.PROGN___V68*/ meltfptr[66] = /*_.IF___V66*/ meltfptr[48];; @@ -13287,7 +14823,7 @@ lab_endgetargs:; /*_.IFCPP___V65*/ meltfptr[44] = /*_.PROGN___V68*/ meltfptr[66];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5728:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5739:/ clear"); /*clear *//*_#MELT_NEED_DBG__L22*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.IF___V66*/ meltfptr[48] = 0; @@ -13300,7 +14836,7 @@ lab_endgetargs:; /*_.IFCPP___V65*/ meltfptr[44] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5729:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5740:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -13331,7 +14867,7 @@ lab_endgetargs:; /*^compute */ /*_#NOTNULL__L24*/ meltfnum[14] = (( /*_.REFERENCED_VALUE__V69*/ meltfptr[48]) != NULL);; - MELT_LOCATION ("warmelt-outobj.melt:5729:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5740:/ cond"); /*cond */ if ( /*_#NOTNULL__L24*/ meltfnum[14]) /*then */ { /*^cond.then */ @@ -13339,7 +14875,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5729:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5740:/ cond.else"); /*^block */ /*anyblock */ @@ -13355,7 +14891,7 @@ lab_endgetargs:; /*_#OR___L25*/ meltfnum[13] = /*_#I__L27*/ meltfnum[26];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5729:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5740:/ clear"); /*clear *//*_#MELT_ERROR_COUNTER__L26*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_#I__L27*/ meltfnum[26] = 0; @@ -13371,7 +14907,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:5730:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5741:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13386,14 +14922,14 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5731:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5742:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-outobj.melt:5731:/ putxtraresult"); + MELT_LOCATION ("warmelt-outobj.melt:5742:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) @@ -13404,7 +14940,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-outobj.melt:5729:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5740:/ quasiblock"); /*_.PROGN___V73*/ meltfptr[72] = /*_.RETURN___V72*/ meltfptr[71];; @@ -13412,7 +14948,7 @@ lab_endgetargs:; /*_.IF___V70*/ meltfptr[66] = /*_.PROGN___V73*/ meltfptr[72];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5729:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5740:/ clear"); /*clear *//*_.RUNERRORHDLR__V71*/ meltfptr[70] = 0; /*^clear */ /*clear *//*_.RETURN___V72*/ meltfptr[71] = 0; @@ -13427,7 +14963,7 @@ lab_endgetargs:; /*_.IF___V70*/ meltfptr[66] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5733:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5744:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13458,7 +14994,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5734:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5745:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -13489,7 +15025,7 @@ lab_endgetargs:; /*^compute */ /*_#NOTNULL__L28*/ meltfnum[9] = (( /*_.REFERENCED_VALUE__V75*/ meltfptr[71]) != NULL);; - MELT_LOCATION ("warmelt-outobj.melt:5734:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5745:/ cond"); /*cond */ if ( /*_#NOTNULL__L28*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -13497,7 +15033,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5734:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5745:/ cond.else"); /*^block */ /*anyblock */ @@ -13513,7 +15049,7 @@ lab_endgetargs:; /*_#OR___L29*/ meltfnum[26] = /*_#I__L31*/ meltfnum[30];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5734:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5745:/ clear"); /*clear *//*_#MELT_ERROR_COUNTER__L30*/ meltfnum[29] = 0; /*^clear */ /*clear *//*_#I__L31*/ meltfnum[30] = 0; @@ -13529,7 +15065,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:5735:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5746:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13544,14 +15080,14 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5736:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5747:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-outobj.melt:5736:/ putxtraresult"); + MELT_LOCATION ("warmelt-outobj.melt:5747:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) @@ -13562,7 +15098,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-outobj.melt:5734:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5745:/ quasiblock"); /*_.PROGN___V79*/ meltfptr[78] = /*_.RETURN___V78*/ meltfptr[77];; @@ -13570,7 +15106,7 @@ lab_endgetargs:; /*_.IF___V76*/ meltfptr[72] = /*_.PROGN___V79*/ meltfptr[78];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5734:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5745:/ clear"); /*clear *//*_.RUNERRORHDLR__V77*/ meltfptr[76] = 0; /*^clear */ /*clear *//*_.RETURN___V78*/ meltfptr[77] = 0; @@ -13587,7 +15123,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5738:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5749:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13603,7 +15139,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5738:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5749:/ cond.else"); /*^block */ /*anyblock */ @@ -13614,7 +15150,7 @@ lab_endgetargs:; { /*^locexp */ - melt_assert_failed (("@$@translate_run_melt_expressions incomplete"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5738) ? (5738) : __LINE__, __FUNCTION__); + melt_assert_failed (("@$@translate_run_melt_expressions incomplete"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5749) ? (5749) : __LINE__, __FUNCTION__); ; } ; @@ -13628,7 +15164,7 @@ lab_endgetargs:; /*_.IFCPP___V80*/ meltfptr[76] = /*_.IFELSE___V81*/ meltfptr[77];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5738:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5749:/ clear"); /*clear *//*_.IFELSE___V81*/ meltfptr[77] = 0; } @@ -13640,7 +15176,7 @@ lab_endgetargs:; /*^compute */ /*_.LET___V63*/ meltfptr[41] = /*_.IFCPP___V80*/ meltfptr[76];; - MELT_LOCATION ("warmelt-outobj.melt:5725:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5736:/ clear"); /*clear *//*_.XLIST__V64*/ meltfptr[40] = 0; /*^clear */ /*clear *//*_#LENXLIST__L21*/ meltfnum[8] = 0; @@ -13668,7 +15204,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V80*/ meltfptr[76] = 0; /*_.LET___V25*/ meltfptr[21] = /*_.LET___V63*/ meltfptr[41];; - MELT_LOCATION ("warmelt-outobj.melt:5629:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5640:/ clear"); /*clear *//*_.RUNERRORHDLR__V26*/ meltfptr[22] = 0; /*^clear */ /*clear *//*_.MAKE_MAPSTRING__V28*/ meltfptr[27] = 0; @@ -13700,7 +15236,7 @@ lab_endgetargs:; /*clear *//*_.LET___V63*/ meltfptr[41] = 0; /*_.LET___V17*/ meltfptr[10] = /*_.LET___V25*/ meltfptr[21];; - MELT_LOCATION ("warmelt-outobj.melt:5613:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5624:/ clear"); /*clear *//*_#NUM__L7*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_#STARTERRCOUNT__L8*/ meltfnum[4] = 0; @@ -13712,7 +15248,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V21*/ meltfptr[20] = 0; /*^clear */ /*clear *//*_.LET___V25*/ meltfptr[21] = 0; - MELT_LOCATION ("warmelt-outobj.melt:5606:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5617:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -13721,7 +15257,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[10];; { - MELT_LOCATION ("warmelt-outobj.melt:5606:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5617:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -13838,7 +15374,7 @@ meltrout_138_warmelt_outobj_LAMBDA___29__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:5630:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:5641:/ getarg"); /*_.V__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -13850,7 +15386,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5631:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5642:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13876,7 +15412,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5631:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5642:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -13891,7 +15427,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5631:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5642:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13904,7 +15440,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5631; + argtab[2].meltbp_long = 5642; /*^apply.arg */ argtab[3].meltbp_cstring = "runerrorhdlr v="; /*^apply.arg */ @@ -13923,7 +15459,7 @@ lab_endgetargs:; /*_.IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5631:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5642:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0; @@ -13936,7 +15472,7 @@ lab_endgetargs:; /*_.IF___V4*/ meltfptr[3] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5631:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5642:/ quasiblock"); /*_.PROGN___V6*/ meltfptr[4] = /*_.IF___V4*/ meltfptr[3];; @@ -13944,7 +15480,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = /*_.PROGN___V6*/ meltfptr[4];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5631:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5642:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V4*/ meltfptr[3] = 0; @@ -13957,13 +15493,13 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5633:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5644:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L3*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.V__V2*/ meltfptr[1])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-outobj.melt:5633:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5644:/ cond"); /*cond */ if ( /*_#IS_STRING__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -13973,7 +15509,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:5635:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5646:/ locexp"); /* translate_run_melt_expressions WARNRUNSTR_CHK__1 */ warning (0, "MELT running expression {%s} error - %s", melt_string_str ((melt_ptr_t) @@ -13988,7 +15524,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5633:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5644:/ cond.else"); /*^block */ /*anyblock */ @@ -13996,7 +15532,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:5642:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5653:/ locexp"); /* translate_run_melt_expressions WARNRUN_CHK__1 */ warning (0, "MELT running expression {%s} errored", melt_string_str ((melt_ptr_t) @@ -14004,7 +15540,7 @@ lab_endgetargs:; tabval[0])));; } ; - MELT_LOCATION ("warmelt-outobj.melt:5640:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5651:/ quasiblock"); /*epilog */ @@ -14012,7 +15548,7 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-outobj.melt:5647:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5658:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -14023,13 +15559,13 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5647:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5658:/ cond.else"); /*_.OR___V7*/ meltfptr[3] = ( /*!konst_1_TRUE */ meltfrout->tabval[1]);; } ; - MELT_LOCATION ("warmelt-outobj.melt:5647:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5658:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -14068,7 +15604,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-outobj.melt:5630:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5641:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -14171,7 +15707,7 @@ meltrout_139_warmelt_outobj_LAMBDA___30__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:5667:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:5678:/ getarg"); /*_.CUREXP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -14187,12 +15723,12 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-outobj.melt:5669:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5680:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L2*/ meltfnum[1] = (( /*_.CUREXP__V2*/ meltfptr[1]) == NULL);; - MELT_LOCATION ("warmelt-outobj.melt:5669:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5680:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -14204,7 +15740,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:5670:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5681:/ locexp"); /*void */ (void) 0; } ; @@ -14215,20 +15751,20 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5669:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5680:/ cond.else"); /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:5671:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5682:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L3*/ meltfnum[2] = melt_is_instance_of ((melt_ptr_t) ( /*_.CUREXP__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-outobj.melt:5671:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5682:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[2]) /*then */ { /*^cond.then */ @@ -14240,7 +15776,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:5672:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5683:/ locexp"); meltgc_append_list ((melt_ptr_t) (( /*~LS */ meltfclos->tabval[0])), (melt_ptr_t) ( /*_.CUREXP__V2*/ @@ -14254,13 +15790,13 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5671:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5682:/ cond.else"); /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:5673:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5684:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L4*/ meltfnum[3] = @@ -14269,7 +15805,7 @@ lab_endgetargs:; (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:5673:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5684:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -14281,7 +15817,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:5674:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5685:/ locexp"); meltgc_append_list ((melt_ptr_t) (( /*~LS */ meltfclos-> tabval[0])), @@ -14296,21 +15832,21 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5673:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5684:/ cond.else"); /*^block */ /*anyblock */ { MELT_LOCATION - ("warmelt-outobj.melt:5675:/ checksignal"); + ("warmelt-outobj.melt:5686:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L5*/ meltfnum[4] = (melt_magic_discr ((melt_ptr_t) ( /*_.CUREXP__V2*/ meltfptr[1])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-outobj.melt:5675:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5686:/ cond"); /*cond */ if ( /*_#IS_STRING__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -14323,7 +15859,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:5676:/ locexp"); + ("warmelt-outobj.melt:5687:/ locexp"); meltgc_append_list ((melt_ptr_t) (( /*~LS */ meltfclos-> tabval[0])), @@ -14338,21 +15874,21 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-outobj.melt:5675:/ cond.else"); + ("warmelt-outobj.melt:5686:/ cond.else"); /*^block */ /*anyblock */ { MELT_LOCATION - ("warmelt-outobj.melt:5677:/ checksignal"); + ("warmelt-outobj.melt:5688:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_INTEGERBOX__L6*/ meltfnum[5] = (melt_magic_discr ((melt_ptr_t) ( /*_.CUREXP__V2*/ meltfptr[1])) == MELTOBMAG_INT);; - MELT_LOCATION ("warmelt-outobj.melt:5677:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5688:/ cond"); /*cond */ if ( /*_#IS_INTEGERBOX__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -14365,7 +15901,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:5678:/ locexp"); + ("warmelt-outobj.melt:5689:/ locexp"); meltgc_append_list ((melt_ptr_t) (( /*~LS */ meltfclos-> @@ -14381,14 +15917,14 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-outobj.melt:5677:/ cond.else"); + ("warmelt-outobj.melt:5688:/ cond.else"); /*^block */ /*anyblock */ { MELT_LOCATION - ("warmelt-outobj.melt:5679:/ checksignal"); + ("warmelt-outobj.melt:5690:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_CLOSURE__L7*/ meltfnum[6] = @@ -14397,7 +15933,7 @@ lab_endgetargs:; ( /*_.CUREXP__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION - ("warmelt-outobj.melt:5679:/ cond"); + ("warmelt-outobj.melt:5690:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -14408,7 +15944,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-outobj.melt:5680:/ cppif.then"); + ("warmelt-outobj.melt:5691:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14437,7 +15973,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-outobj.melt:5680:/ cond"); + ("warmelt-outobj.melt:5691:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -14454,7 +15990,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-outobj.melt:5680:/ checksignal"); + ("warmelt-outobj.melt:5691:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14473,7 +16009,7 @@ lab_endgetargs:; "warmelt-outobj.melt"; /*^apply.arg */ argtab[2].meltbp_long = - 5680; + 5691; /*^apply.arg */ argtab[3].meltbp_cstring = "translate_run_melt_expressions closure curexp="; @@ -14499,7 +16035,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:5680:/ clear"); + ("warmelt-outobj.melt:5691:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = 0; /*^clear */ @@ -14516,7 +16052,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-outobj.melt:5680:/ quasiblock"); + ("warmelt-outobj.melt:5691:/ quasiblock"); /*_.PROGN___V12*/ meltfptr[10] = @@ -14527,7 +16063,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:5680:/ clear"); + ("warmelt-outobj.melt:5691:/ clear"); /*clear *//*_#MELT_NEED_DBG__L8*/ meltfnum[7] = 0; /*^clear */ @@ -14545,7 +16081,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-outobj.melt:5681:/ checksignal"); + ("warmelt-outobj.melt:5692:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14559,7 +16095,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-outobj.melt:5679:/ quasiblock"); + ("warmelt-outobj.melt:5690:/ quasiblock"); /*_.PROGN___V14*/ meltfptr[10] = @@ -14570,7 +16106,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:5679:/ clear"); + ("warmelt-outobj.melt:5690:/ clear"); /*clear *//*_.IFCPP___V9*/ meltfptr[8] = 0; /*^clear */ @@ -14592,7 +16128,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-outobj.melt:5683:/ cppif.then"); + ("warmelt-outobj.melt:5694:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14621,7 +16157,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-outobj.melt:5683:/ cond"); + ("warmelt-outobj.melt:5694:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L10*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -14638,7 +16174,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-outobj.melt:5683:/ checksignal"); + ("warmelt-outobj.melt:5694:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14657,7 +16193,7 @@ lab_endgetargs:; "warmelt-outobj.melt"; /*^apply.arg */ argtab[2].meltbp_long = - 5683; + 5694; /*^apply.arg */ argtab[3].meltbp_cstring = "translate_run_melt_expressions bad curexp="; @@ -14683,7 +16219,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:5683:/ clear"); + ("warmelt-outobj.melt:5694:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L11*/ meltfnum[7] = 0; /*^clear */ @@ -14700,7 +16236,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-outobj.melt:5683:/ quasiblock"); + ("warmelt-outobj.melt:5694:/ quasiblock"); /*_.PROGN___V18*/ meltfptr[10] = @@ -14711,7 +16247,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:5683:/ clear"); + ("warmelt-outobj.melt:5694:/ clear"); /*clear *//*_#MELT_NEED_DBG__L10*/ meltfnum[8] = 0; /*^clear */ @@ -14729,7 +16265,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-outobj.melt:5684:/ quasiblock"); + ("warmelt-outobj.melt:5695:/ quasiblock"); /*_.CURDIS__V20*/ meltfptr[10] = @@ -14739,7 +16275,7 @@ lab_endgetargs:; ( /*_.CUREXP__V2*/ meltfptr[1]))));; MELT_LOCATION - ("warmelt-outobj.melt:5685:/ cond"); + ("warmelt-outobj.melt:5696:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.CURDIS__V20*/ meltfptr[10]), @@ -14771,7 +16307,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:5688:/ locexp"); + ("warmelt-outobj.melt:5699:/ locexp"); /* translate_run_melt_expressions BADEXP_CHK__1 */ warning (0, "MELT run %s expression #%d has bad disciminant %s", @@ -14784,7 +16320,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-outobj.melt:5694:/ checksignal"); + ("warmelt-outobj.melt:5705:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14804,7 +16340,7 @@ lab_endgetargs:; meltfptr[21];; MELT_LOCATION - ("warmelt-outobj.melt:5684:/ clear"); + ("warmelt-outobj.melt:5695:/ clear"); /*clear *//*_.CURDIS__V20*/ meltfptr[10] = 0; /*^clear */ @@ -14814,7 +16350,7 @@ lab_endgetargs:; /*clear *//*_.RUNERRORHDLR__V22*/ meltfptr[21] = 0; MELT_LOCATION - ("warmelt-outobj.melt:5682:/ quasiblock"); + ("warmelt-outobj.melt:5693:/ quasiblock"); /*_.PROGN___V23*/ meltfptr[10] = @@ -14825,7 +16361,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:5679:/ clear"); + ("warmelt-outobj.melt:5690:/ clear"); /*clear *//*_.IFCPP___V15*/ meltfptr[8] = 0; /*^clear */ @@ -14843,7 +16379,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:5677:/ clear"); + ("warmelt-outobj.melt:5688:/ clear"); /*clear *//*_#IS_CLOSURE__L7*/ meltfnum[6] = 0; /*^clear */ @@ -14857,7 +16393,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:5675:/ clear"); + ("warmelt-outobj.melt:5686:/ clear"); /*clear *//*_#IS_INTEGERBOX__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -14869,7 +16405,7 @@ lab_endgetargs:; /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5673:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5684:/ clear"); /*clear *//*_#IS_STRING__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -14881,7 +16417,7 @@ lab_endgetargs:; /*_.IFELSE___V5*/ meltfptr[4];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5671:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5682:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V5*/ meltfptr[4] = 0; @@ -14892,7 +16428,7 @@ lab_endgetargs:; /*_.IFELSE___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5669:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5680:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_.IFELSE___V4*/ meltfptr[3] = 0; @@ -14900,13 +16436,13 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-outobj.melt:5667:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5678:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFELSE___V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-outobj.melt:5667:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5678:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -15020,7 +16556,7 @@ meltrout_140_warmelt_outobj_READ_MELT_EXPRESSIONS (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:5744:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:5755:/ getarg"); /*_.SRC__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -15048,7 +16584,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5745:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5756:/ cppif.then"); /*^block */ /*anyblock */ { @@ -15074,7 +16610,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5745:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5756:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -15093,7 +16629,7 @@ lab_endgetargs:; /*_#LIST_LENGTH__L4*/ meltfnum[3] = (melt_list_length ((melt_ptr_t) ( /*_.RLIST__V3*/ meltfptr[2])));; - MELT_LOCATION ("warmelt-outobj.melt:5745:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5756:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15106,7 +16642,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5745; + argtab[2].meltbp_long = 5756; /*^apply.arg */ argtab[3].meltbp_cstring = "read_melt_expressions src="; /*^apply.arg */ @@ -15135,7 +16671,7 @@ lab_endgetargs:; /*_.IF___V5*/ meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5745:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5756:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L3*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_#LIST_LENGTH__L4*/ meltfnum[3] = 0; @@ -15150,7 +16686,7 @@ lab_endgetargs:; /*_.IF___V5*/ meltfptr[4] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5745:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5756:/ quasiblock"); /*_.PROGN___V7*/ meltfptr[5] = /*_.IF___V5*/ meltfptr[4];; @@ -15158,7 +16694,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.PROGN___V7*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5745:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5756:/ clear"); /*clear *//*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V5*/ meltfptr[4] = 0; @@ -15173,7 +16709,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5746:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5757:/ cppif.then"); /*^block */ /*anyblock */ { @@ -15184,7 +16720,7 @@ lab_endgetargs:; /*_#IS_LIST__L5*/ meltfnum[2] = (melt_magic_discr ((melt_ptr_t) ( /*_.RLIST__V3*/ meltfptr[2])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:5746:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5757:/ cond"); /*cond */ if ( /*_#IS_LIST__L5*/ meltfnum[2]) /*then */ { /*^cond.then */ @@ -15192,7 +16728,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5746:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5757:/ cond.else"); /*^block */ /*anyblock */ @@ -15206,7 +16742,7 @@ lab_endgetargs:; melt_assert_failed (("check rlist"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5746) ? (5746) : __LINE__, __FUNCTION__); + (5757) ? (5757) : __LINE__, __FUNCTION__); ; } ; @@ -15220,7 +16756,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[4] = /*_.IFELSE___V9*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5746:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5757:/ clear"); /*clear *//*_#IS_LIST__L5*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[5] = 0; @@ -15233,7 +16769,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5747:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5758:/ cppif.then"); /*^block */ /*anyblock */ { @@ -15243,7 +16779,7 @@ lab_endgetargs:; ; /*_#I__L6*/ meltfnum[3] = (( /*_#DEPTH__L1*/ meltfnum[0]) < (100));; - MELT_LOCATION ("warmelt-outobj.melt:5747:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5758:/ cond"); /*cond */ if ( /*_#I__L6*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -15251,7 +16787,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5747:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5758:/ cond.else"); /*^block */ /*anyblock */ @@ -15265,7 +16801,7 @@ lab_endgetargs:; melt_assert_failed (("check depth"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5747) ? (5747) : __LINE__, __FUNCTION__); + (5758) ? (5758) : __LINE__, __FUNCTION__); ; } ; @@ -15279,7 +16815,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[5] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5747:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5758:/ clear"); /*clear *//*_#I__L6*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0; @@ -15290,12 +16826,12 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5749:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5760:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L7*/ meltfnum[1] = (( /*_.SRC__V2*/ meltfptr[1]) == NULL);; - MELT_LOCATION ("warmelt-outobj.melt:5749:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5760:/ cond"); /*cond */ if ( /*_#NULL__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -15303,13 +16839,13 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:5750:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5761:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-outobj.melt:5750:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5761:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -15325,7 +16861,7 @@ lab_endgetargs:; /*_.IFELSE___V12*/ meltfptr[10] = /*_.RETURN___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5749:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5760:/ clear"); /*clear *//*_.RETURN___V13*/ meltfptr[12] = 0; } ; @@ -15337,13 +16873,13 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:5751:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5762:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L8*/ meltfnum[2] = (melt_magic_discr ((melt_ptr_t) ( /*_.SRC__V2*/ meltfptr[1])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-outobj.melt:5751:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5762:/ cond"); /*cond */ if ( /*_#IS_STRING__L8*/ meltfnum[2]) /*then */ { /*^cond.then */ @@ -15353,7 +16889,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:5752:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5763:/ locexp"); inform (UNKNOWN_LOCATION, "MELT INFORM [#%ld]: %s - %s", melt_dbgcounter, ("reading from MELT file source"), melt_string_str ((melt_ptr_t) @@ -15365,7 +16901,7 @@ lab_endgetargs:; (melt_string_str ((melt_ptr_t) ( /*_.SRC__V2*/ meltfptr[1])), (char *) 0));; - MELT_LOCATION ("warmelt-outobj.melt:5753:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5764:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15385,7 +16921,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5751:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5762:/ quasiblock"); /*_.PROGN___V17*/ meltfptr[16] = @@ -15395,7 +16931,7 @@ lab_endgetargs:; /*_.PROGN___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5751:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5762:/ clear"); /*clear *//*_.READ_FILE__V15*/ meltfptr[14] = 0; /*^clear */ /*clear *//*_.LIST_APPEND2LIST__V16*/ meltfptr[15] = 0; @@ -15411,14 +16947,14 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-outobj.melt:5754:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5765:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_LIST__L9*/ meltfnum[3] = (melt_magic_discr ((melt_ptr_t) ( /*_.SRC__V2*/ meltfptr[1])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-outobj.melt:5754:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5765:/ cond"); /*cond */ if ( /*_#IS_LIST__L9*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -15447,7 +16983,7 @@ lab_endgetargs:; /*_#I__L10*/ meltfnum[9] = (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; MELT_LOCATION - ("warmelt-outobj.melt:5758:/ checksignal"); + ("warmelt-outobj.melt:5769:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15481,7 +17017,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-outobj.melt:5755:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5766:/ clear"); /*clear *//*_.CURPAIR__V18*/ meltfptr[14] = 0; /*^clear */ /*clear *//*_.CURSRC__V19*/ meltfptr[15] = 0; @@ -15498,21 +17034,21 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5754:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5765:/ cond.else"); /*^block */ /*anyblock */ { MELT_LOCATION - ("warmelt-outobj.melt:5759:/ checksignal"); + ("warmelt-outobj.melt:5770:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_MULTIPLE__L11*/ meltfnum[10] = (melt_magic_discr ((melt_ptr_t) ( /*_.SRC__V2*/ meltfptr[1])) == MELTOBMAG_MULTIPLE);; - MELT_LOCATION ("warmelt-outobj.melt:5759:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5770:/ cond"); /*cond */ if ( /*_#IS_MULTIPLE__L11*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -15545,7 +17081,7 @@ lab_endgetargs:; /*_#I__L13*/ meltfnum[12] = (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; MELT_LOCATION - ("warmelt-outobj.melt:5763:/ checksignal"); + ("warmelt-outobj.melt:5774:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15576,7 +17112,7 @@ lab_endgetargs:; /*citerepilog */ MELT_LOCATION - ("warmelt-outobj.melt:5760:/ clear"); + ("warmelt-outobj.melt:5771:/ clear"); /*clear *//*_.CURSRC__V21*/ meltfptr[20] = 0; /*^clear */ /*clear *//*_#SIX__L12*/ meltfnum[11] = 0; @@ -15594,21 +17130,21 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-outobj.melt:5759:/ cond.else"); + ("warmelt-outobj.melt:5770:/ cond.else"); /*^block */ /*anyblock */ { MELT_LOCATION - ("warmelt-outobj.melt:5764:/ checksignal"); + ("warmelt-outobj.melt:5775:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_OBJECT__L14*/ meltfnum[13] = (melt_magic_discr ((melt_ptr_t) ( /*_.SRC__V2*/ meltfptr[1])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-outobj.melt:5764:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5775:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L14*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -15621,7 +17157,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:5765:/ locexp"); + ("warmelt-outobj.melt:5776:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.RLIST__V3*/ meltfptr[2]), @@ -15637,14 +17173,14 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-outobj.melt:5764:/ cond.else"); + ("warmelt-outobj.melt:5775:/ cond.else"); /*^block */ /*anyblock */ { MELT_LOCATION - ("warmelt-outobj.melt:5766:/ checksignal"); + ("warmelt-outobj.melt:5777:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_CLOSURE__L15*/ meltfnum[14] = @@ -15653,7 +17189,7 @@ lab_endgetargs:; ( /*_.SRC__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION - ("warmelt-outobj.melt:5766:/ cond"); + ("warmelt-outobj.melt:5777:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L15*/ meltfnum[14]) /*then */ { /*^cond.then */ @@ -15662,14 +17198,14 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:5767:/ quasiblock"); + ("warmelt-outobj.melt:5778:/ quasiblock"); /*_#I__L16*/ meltfnum[15] = (( /*_#DEPTH__L1*/ meltfnum[0]) + (1));; MELT_LOCATION - ("warmelt-outobj.melt:5767:/ checksignal"); + ("warmelt-outobj.melt:5778:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15691,7 +17227,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-outobj.melt:5769:/ cppif.then"); + ("warmelt-outobj.melt:5780:/ cppif.then"); /*^block */ /*anyblock */ { @@ -15720,7 +17256,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-outobj.melt:5769:/ cond"); + ("warmelt-outobj.melt:5780:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L17*/ meltfnum[16]) /*then */ { /*^cond.then */ @@ -15737,7 +17273,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-outobj.melt:5769:/ checksignal"); + ("warmelt-outobj.melt:5780:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15756,7 +17292,7 @@ lab_endgetargs:; "warmelt-outobj.melt"; /*^apply.arg */ argtab[2].meltbp_long = - 5769; + 5780; /*^apply.arg */ argtab[3].meltbp_cstring = "read_melt_expressions xsrc="; @@ -15783,7 +17319,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:5769:/ clear"); + ("warmelt-outobj.melt:5780:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L18*/ meltfnum[17] = 0; /*^clear */ @@ -15800,7 +17336,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-outobj.melt:5769:/ quasiblock"); + ("warmelt-outobj.melt:5780:/ quasiblock"); /*_.PROGN___V27*/ meltfptr[25] = @@ -15811,7 +17347,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:5769:/ clear"); + ("warmelt-outobj.melt:5780:/ clear"); /*clear *//*_#MELT_NEED_DBG__L17*/ meltfnum[16] = 0; /*^clear */ @@ -15829,14 +17365,14 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-outobj.melt:5770:/ checksignal"); + ("warmelt-outobj.melt:5781:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L19*/ meltfnum[17] = (( /*_.XSRC__V23*/ meltfptr[22]) == NULL);; MELT_LOCATION - ("warmelt-outobj.melt:5770:/ cond"); + ("warmelt-outobj.melt:5781:/ cond"); /*cond */ if ( /*_#NULL__L19*/ meltfnum[17]) /*then */ { /*^cond.then */ @@ -15852,7 +17388,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:5770:/ locexp"); + ("warmelt-outobj.melt:5781:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ @@ -15874,7 +17410,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:5770:/ clear"); + ("warmelt-outobj.melt:5781:/ clear"); /*clear *//*_.RETURN___V29*/ meltfptr[25] = 0; } @@ -15890,7 +17426,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-outobj.melt:5771:/ cppif.then"); + ("warmelt-outobj.melt:5782:/ cppif.then"); /*^block */ /*anyblock */ { @@ -15902,7 +17438,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.XSRC__V23*/ meltfptr[22]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout->tabval[4])));; MELT_LOCATION - ("warmelt-outobj.melt:5771:/ cond"); + ("warmelt-outobj.melt:5782:/ cond"); /*cond */ if ( /*_#IS_A__L20*/ meltfnum[16]) /*then */ { /*^cond.then */ @@ -15912,7 +17448,7 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-outobj.melt:5771:/ cond.else"); + ("warmelt-outobj.melt:5782:/ cond.else"); /*^block */ /*anyblock */ @@ -15927,7 +17463,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:5771:/ clear"); + ("warmelt-outobj.melt:5782:/ clear"); /*clear *//*_#IS_A__L22*/ meltfnum[21] = 0; } @@ -15944,7 +17480,7 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-outobj.melt:5771:/ cond.else"); + ("warmelt-outobj.melt:5782:/ cond.else"); /*^block */ /*anyblock */ @@ -15955,7 +17491,7 @@ lab_endgetargs:; { /*^locexp */ - melt_assert_failed (("check xsrc"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5771) ? (5771) : __LINE__, __FUNCTION__); + melt_assert_failed (("check xsrc"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5782) ? (5782) : __LINE__, __FUNCTION__); ; } ; @@ -15972,7 +17508,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:5771:/ clear"); + ("warmelt-outobj.melt:5782:/ clear"); /*clear *//*_#IS_A__L20*/ meltfnum[16] = 0; /*^clear */ @@ -15992,7 +17528,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:5772:/ locexp"); + ("warmelt-outobj.melt:5783:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.RLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.XSRC__V23*/ meltfptr[22])); } @@ -16001,7 +17537,7 @@ lab_endgetargs:; /*_.IFCPP___V30*/ meltfptr[25];; MELT_LOCATION - ("warmelt-outobj.melt:5767:/ clear"); + ("warmelt-outobj.melt:5778:/ clear"); /*clear *//*_#I__L16*/ meltfnum[15] = 0; /*^clear */ @@ -16026,7 +17562,7 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-outobj.melt:5766:/ cond.else"); + ("warmelt-outobj.melt:5777:/ cond.else"); /*^block */ /*anyblock */ @@ -16038,7 +17574,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.SRC__V2*/ meltfptr[1]))));; MELT_LOCATION - ("warmelt-outobj.melt:5775:/ cond"); + ("warmelt-outobj.melt:5786:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.DISCRIM__V32*/ meltfptr[30]), @@ -16070,7 +17606,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-outobj.melt:5774:/ locexp"); + ("warmelt-outobj.melt:5785:/ locexp"); melt_error_str ((melt_ptr_t) (( /*nil */ NULL)), ("invalid MELT expression to read, with discriminant"), @@ -16078,13 +17614,13 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-outobj.melt:5773:/ quasiblock"); + ("warmelt-outobj.melt:5784:/ quasiblock"); /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:5766:/ clear"); + ("warmelt-outobj.melt:5777:/ clear"); /*clear *//*_.DISCRIM__V32*/ meltfptr[30] = 0; /*^clear */ @@ -16097,7 +17633,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:5764:/ clear"); + ("warmelt-outobj.melt:5775:/ clear"); /*clear *//*_#IS_CLOSURE__L15*/ meltfnum[14] = 0; } @@ -16107,7 +17643,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-outobj.melt:5759:/ clear"); + ("warmelt-outobj.melt:5770:/ clear"); /*clear *//*_#IS_OBJECT__L14*/ meltfnum[13] = 0; } ; @@ -16115,7 +17651,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5754:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5765:/ clear"); /*clear *//*_#IS_MULTIPLE__L11*/ meltfnum[10] = 0; } ; @@ -16123,7 +17659,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5751:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5762:/ clear"); /*clear *//*_#IS_LIST__L9*/ meltfnum[3] = 0; } ; @@ -16132,7 +17668,7 @@ lab_endgetargs:; /*_.IFELSE___V12*/ meltfptr[10] = /*_.IFELSE___V14*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5749:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5760:/ clear"); /*clear *//*_#IS_STRING__L8*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_.IFELSE___V14*/ meltfptr[12] = 0; @@ -16140,7 +17676,7 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-outobj.melt:5744:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5755:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -16149,7 +17685,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFELSE___V12*/ meltfptr[10];; { - MELT_LOCATION ("warmelt-outobj.melt:5744:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5755:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -16265,7 +17801,7 @@ meltrout_141_warmelt_outobj_TRANSLATE_TO_C_MODULE_MELT_SOURCES /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:5782:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:5793:/ getarg"); /*_.SOURCES__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -16297,7 +17833,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5783:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5794:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16323,7 +17859,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5783:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5794:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -16338,7 +17874,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5783:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5794:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -16351,7 +17887,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5783; + argtab[2].meltbp_long = 5794; /*^apply.arg */ argtab[3].meltbp_cstring = "translate_to_c_module_melt_sources sources="; @@ -16377,7 +17913,7 @@ lab_endgetargs:; /*_.IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5783:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5794:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0; @@ -16390,7 +17926,7 @@ lab_endgetargs:; /*_.IF___V6*/ meltfptr[5] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5783:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5794:/ quasiblock"); /*_.PROGN___V8*/ meltfptr[6] = /*_.IF___V6*/ meltfptr[5];; @@ -16398,7 +17934,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.PROGN___V8*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5783:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5794:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V6*/ meltfptr[5] = 0; @@ -16413,7 +17949,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5784:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5795:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16425,7 +17961,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.CURENV__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-outobj.melt:5784:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5795:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -16433,7 +17969,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5784:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5795:/ cond.else"); /*^block */ /*anyblock */ @@ -16447,7 +17983,7 @@ lab_endgetargs:; melt_assert_failed (("check curenv"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5784) ? (5784) : __LINE__, __FUNCTION__); + (5795) ? (5795) : __LINE__, __FUNCTION__); ; } ; @@ -16461,7 +17997,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[5] = /*_.IFELSE___V10*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5784:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5795:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V10*/ meltfptr[6] = 0; @@ -16474,7 +18010,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5785:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5796:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16485,7 +18021,7 @@ lab_endgetargs:; /*_#IS_STRING__L4*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODSRCNAME__V3*/ meltfptr[2])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-outobj.melt:5785:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5796:/ cond"); /*cond */ if ( /*_#IS_STRING__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -16493,7 +18029,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5785:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5796:/ cond.else"); /*^block */ /*anyblock */ @@ -16507,7 +18043,7 @@ lab_endgetargs:; melt_assert_failed (("check modsrcname"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5785) ? (5785) : __LINE__, __FUNCTION__); + (5796) ? (5796) : __LINE__, __FUNCTION__); ; } ; @@ -16521,7 +18057,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[6] = /*_.IFELSE___V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5785:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5796:/ clear"); /*clear *//*_#IS_STRING__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V12*/ meltfptr[11] = 0; @@ -16532,14 +18068,14 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5786:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5797:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#STRING_DYNLOADED_SUFFIXED__L5*/ meltfnum[1] = /*string_dynloaded_suffixed: */ (melt_string_is_ending ((melt_ptr_t) /*_.MODSRCNAME__V3*/ meltfptr[2], MELT_DYNLOADED_SUFFIX));; - MELT_LOCATION ("warmelt-outobj.melt:5786:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5797:/ cond"); /*cond */ if ( /*_#STRING_DYNLOADED_SUFFIXED__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -16548,7 +18084,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5786:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5797:/ cond.else"); /*^block */ /*anyblock */ @@ -16558,7 +18094,7 @@ lab_endgetargs:; /*string_suffixed: */ (melt_string_is_ending ((melt_ptr_t) /*_.MODSRCNAME__V3*/ meltfptr[2], ".melt"));; - MELT_LOCATION ("warmelt-outobj.melt:5786:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5797:/ cond"); /*cond */ if ( /*_#STRING_SUFFIXED__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -16567,7 +18103,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5786:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5797:/ cond.else"); /*^block */ /*anyblock */ @@ -16582,7 +18118,7 @@ lab_endgetargs:; /*_#STRING_SUFFIXED__L9*/ meltfnum[8];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5786:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5797:/ clear"); /*clear *//*_#STRING_SUFFIXED__L9*/ meltfnum[8] = 0; } ; @@ -16591,7 +18127,7 @@ lab_endgetargs:; /*_#OR___L6*/ meltfnum[0] = /*_#OR___L8*/ meltfnum[7];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5786:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5797:/ clear"); /*clear *//*_#STRING_SUFFIXED__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_#OR___L8*/ meltfnum[7] = 0; @@ -16609,7 +18145,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:5789:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5800:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s - %s", melt_dbgcounter, ("invalid MELT source name - should not be suffixed"), melt_string_str ((melt_ptr_t) @@ -16623,7 +18159,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5791:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5802:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16638,7 +18174,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L11*/ meltfnum[6] = (!( /*_#STRING_DYNLOADED_SUFFIXED__L10*/ meltfnum[8]));; - MELT_LOCATION ("warmelt-outobj.melt:5791:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5802:/ cond"); /*cond */ if ( /*_#NOT__L11*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -16646,7 +18182,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5791:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5802:/ cond.else"); /*^block */ /*anyblock */ @@ -16657,7 +18193,7 @@ lab_endgetargs:; { /*^locexp */ - melt_assert_failed (("translate_to_c_module_melt_sources modsrcname not ended with MELT_DYNLOADED_SUFFIX"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5791) ? (5791) : __LINE__, __FUNCTION__); + melt_assert_failed (("translate_to_c_module_melt_sources modsrcname not ended with MELT_DYNLOADED_SUFFIX"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5802) ? (5802) : __LINE__, __FUNCTION__); ; } ; @@ -16671,7 +18207,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[11] = /*_.IFELSE___V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5791:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5802:/ clear"); /*clear *//*_#STRING_DYNLOADED_SUFFIXED__L10*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_#NOT__L11*/ meltfnum[6] = 0; @@ -16686,7 +18222,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5793:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5804:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16701,7 +18237,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L13*/ meltfnum[8] = (!( /*_#STRING_SUFFIXED__L12*/ meltfnum[7]));; - MELT_LOCATION ("warmelt-outobj.melt:5793:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5804:/ cond"); /*cond */ if ( /*_#NOT__L13*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -16709,7 +18245,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5793:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5804:/ cond.else"); /*^block */ /*anyblock */ @@ -16720,7 +18256,7 @@ lab_endgetargs:; { /*^locexp */ - melt_assert_failed (("translate_to_c_module_melt_sources modulename not ended with .melt"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5793) ? (5793) : __LINE__, __FUNCTION__); + melt_assert_failed (("translate_to_c_module_melt_sources modulename not ended with .melt"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5804) ? (5804) : __LINE__, __FUNCTION__); ; } ; @@ -16734,7 +18270,7 @@ lab_endgetargs:; /*_.IFCPP___V15*/ meltfptr[13] = /*_.IFELSE___V16*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5793:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5804:/ clear"); /*clear *//*_#STRING_SUFFIXED__L12*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_#NOT__L13*/ meltfnum[8] = 0; @@ -16749,7 +18285,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5795:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5806:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16764,7 +18300,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L15*/ meltfnum[7] = (!( /*_#STRING_SUFFIXED__L14*/ meltfnum[6]));; - MELT_LOCATION ("warmelt-outobj.melt:5795:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5806:/ cond"); /*cond */ if ( /*_#NOT__L15*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -16772,7 +18308,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5795:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5806:/ cond.else"); /*^block */ /*anyblock */ @@ -16783,7 +18319,7 @@ lab_endgetargs:; { /*^locexp */ - melt_assert_failed (("translate_to_c_module_melt_sources modulename not ended with .c"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5795) ? (5795) : __LINE__, __FUNCTION__); + melt_assert_failed (("translate_to_c_module_melt_sources modulename not ended with .c"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, (5806) ? (5806) : __LINE__, __FUNCTION__); ; } ; @@ -16797,7 +18333,7 @@ lab_endgetargs:; /*_.IFCPP___V17*/ meltfptr[15] = /*_.IFELSE___V18*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5795:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5806:/ clear"); /*clear *//*_#STRING_SUFFIXED__L14*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_#NOT__L15*/ meltfnum[7] = 0; @@ -16810,7 +18346,7 @@ lab_endgetargs:; /*_.IFCPP___V17*/ meltfptr[15] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5797:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5808:/ quasiblock"); /*_#ISVALIDMODSRC__L16*/ meltfnum[8] = 0;; @@ -16820,7 +18356,7 @@ lab_endgetargs:; ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; { - MELT_LOCATION ("warmelt-outobj.melt:5802:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5813:/ locexp"); /* translate_to_c_module_melt_sources SETISVALIDMODSRCCH__1 */ { const char *modsrcstr = @@ -16834,12 +18370,12 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-outobj.melt:5810:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5821:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NOT__L17*/ meltfnum[6] = (!( /*_#ISVALIDMODSRC__L16*/ meltfnum[8]));; - MELT_LOCATION ("warmelt-outobj.melt:5810:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5821:/ cond"); /*cond */ if ( /*_#NOT__L17*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -16849,7 +18385,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5812:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5823:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16875,7 +18411,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5812:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5823:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L18*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -16890,7 +18426,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5812:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5823:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -16904,7 +18440,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5812; + argtab[2].meltbp_long = 5823; /*^apply.arg */ argtab[3].meltbp_cstring = "translate_to_c_module_melt_sources bad generated modsrcname="; @@ -16926,7 +18462,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5812:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5823:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L19*/ meltfnum[18] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = 0; @@ -16939,7 +18475,7 @@ lab_endgetargs:; /*_.IF___V23*/ meltfptr[22] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5812:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5823:/ quasiblock"); /*_.PROGN___V25*/ meltfptr[23] = /*_.IF___V23*/ meltfptr[22];; @@ -16947,7 +18483,7 @@ lab_endgetargs:; /*_.IFCPP___V22*/ meltfptr[21] = /*_.PROGN___V25*/ meltfptr[23];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5812:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5823:/ clear"); /*clear *//*_#MELT_NEED_DBG__L18*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IF___V23*/ meltfptr[22] = 0; @@ -16962,20 +18498,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5813:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5824:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s - %s", melt_dbgcounter, ("invalid generated source name [basename should have no dot or plus]"), melt_string_str ((melt_ptr_t) ( /*_.MODSRCNAME__V3*/ meltfptr[2]))); } ; - MELT_LOCATION ("warmelt-outobj.melt:5816:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5827:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-outobj.melt:5816:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5827:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -16988,7 +18524,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-outobj.melt:5811:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5822:/ quasiblock"); /*_.PROGN___V27*/ meltfptr[23] = /*_.RETURN___V26*/ meltfptr[22];; @@ -16996,7 +18532,7 @@ lab_endgetargs:; /*_.IF___V21*/ meltfptr[20] = /*_.PROGN___V27*/ meltfptr[23];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5810:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5821:/ clear"); /*clear *//*_.IFCPP___V22*/ meltfptr[21] = 0; /*^clear */ /*clear *//*_.RETURN___V26*/ meltfptr[22] = 0; @@ -17011,7 +18547,7 @@ lab_endgetargs:; /*_.IF___V21*/ meltfptr[20] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5818:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5829:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -17033,7 +18569,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5819:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5830:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17059,7 +18595,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5819:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5830:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L20*/ meltfnum[18]) /*then */ { /*^cond.then */ @@ -17074,7 +18610,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5819:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5830:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -17088,7 +18624,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5819; + argtab[2].meltbp_long = 5830; /*^apply.arg */ argtab[3].meltbp_cstring = "after read translate_to_c_module_melt_sources rlist="; @@ -17109,7 +18645,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5819:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5830:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L21*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V31*/ meltfptr[30] = 0; @@ -17122,7 +18658,7 @@ lab_endgetargs:; /*_.IF___V30*/ meltfptr[23] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5819:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5830:/ quasiblock"); /*_.PROGN___V32*/ meltfptr[30] = /*_.IF___V30*/ meltfptr[23];; @@ -17130,7 +18666,7 @@ lab_endgetargs:; /*_.IFCPP___V29*/ meltfptr[22] = /*_.PROGN___V32*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5819:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5830:/ clear"); /*clear *//*_#MELT_NEED_DBG__L20*/ meltfnum[18] = 0; /*^clear */ /*clear *//*_.IF___V30*/ meltfptr[23] = 0; @@ -17145,7 +18681,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5820:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5831:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17158,7 +18694,7 @@ lab_endgetargs:; /*^compute */ /*_#I__L23*/ meltfnum[18] = (( /*_#LIST_LENGTH__L22*/ meltfnum[7]) > (0));; - MELT_LOCATION ("warmelt-outobj.melt:5820:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5831:/ cond"); /*cond */ if ( /*_#I__L23*/ meltfnum[18]) /*then */ { /*^cond.then */ @@ -17166,7 +18702,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5820:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5831:/ cond.else"); /*^block */ /*anyblock */ @@ -17180,7 +18716,7 @@ lab_endgetargs:; melt_assert_failed (("check non empty rlist"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5820) ? (5820) : __LINE__, __FUNCTION__); + (5831) ? (5831) : __LINE__, __FUNCTION__); ; } ; @@ -17194,7 +18730,7 @@ lab_endgetargs:; /*_.IFCPP___V33*/ meltfptr[23] = /*_.IFELSE___V34*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5820:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5831:/ clear"); /*clear *//*_#LIST_LENGTH__L22*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_#I__L23*/ meltfnum[18] = 0; @@ -17207,7 +18743,7 @@ lab_endgetargs:; /*_.IFCPP___V33*/ meltfptr[23] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-outobj.melt:5821:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5832:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -17230,7 +18766,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5822:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5833:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17256,7 +18792,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5822:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5833:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L24*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -17271,7 +18807,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-outobj.melt:5822:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5833:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -17285,7 +18821,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5822; + argtab[2].meltbp_long = 5833; /*^apply.arg */ argtab[3].meltbp_cstring = "translate_to_c_module_melt_sources done modsrcname="; @@ -17308,7 +18844,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5822:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5833:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L25*/ meltfnum[18] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V38*/ meltfptr[37] = 0; @@ -17321,7 +18857,7 @@ lab_endgetargs:; /*_.IF___V37*/ meltfptr[36] = NULL;; } ; - MELT_LOCATION ("warmelt-outobj.melt:5822:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5833:/ quasiblock"); /*_.PROGN___V39*/ meltfptr[37] = /*_.IF___V37*/ meltfptr[36];; @@ -17329,7 +18865,7 @@ lab_endgetargs:; /*_.IFCPP___V36*/ meltfptr[35] = /*_.PROGN___V39*/ meltfptr[37];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5822:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5833:/ clear"); /*clear *//*_#MELT_NEED_DBG__L24*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IF___V37*/ meltfptr[36] = 0; @@ -17345,7 +18881,7 @@ lab_endgetargs:; /*^compute */ /*_.LET___V19*/ meltfptr[17] = /*_.IFCPP___V36*/ meltfptr[35];; - MELT_LOCATION ("warmelt-outobj.melt:5797:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5808:/ clear"); /*clear *//*_#ISVALIDMODSRC__L16*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.RLIST__V20*/ meltfptr[19] = 0; @@ -17363,7 +18899,7 @@ lab_endgetargs:; /*clear *//*_.COMPILE_LIST_SEXPR__V35*/ meltfptr[30] = 0; /*^clear */ /*clear *//*_.IFCPP___V36*/ meltfptr[35] = 0; - MELT_LOCATION ("warmelt-outobj.melt:5782:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5793:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -17372,7 +18908,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V19*/ meltfptr[17];; { - MELT_LOCATION ("warmelt-outobj.melt:5782:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5793:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -17497,7 +19033,7 @@ meltrout_142_warmelt_outobj_GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-outobj.melt:5827:/ getarg"); + MELT_LOCATION ("warmelt-outobj.melt:5838:/ getarg"); /*_.SBUF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -17519,7 +19055,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-outobj.melt:5830:/ cppif.then"); + MELT_LOCATION ("warmelt-outobj.melt:5841:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17530,7 +19066,7 @@ lab_endgetargs:; /*_#IS_STRBUF__L1*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1])) == MELTOBMAG_STRBUF);; - MELT_LOCATION ("warmelt-outobj.melt:5830:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5841:/ cond"); /*cond */ if ( /*_#IS_STRBUF__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -17538,7 +19074,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-outobj.melt:5830:/ cond.else"); + MELT_LOCATION ("warmelt-outobj.melt:5841:/ cond.else"); /*^block */ /*anyblock */ @@ -17552,7 +19088,7 @@ lab_endgetargs:; melt_assert_failed (("check sbuf"), ("warmelt-outobj.melt") ? ("warmelt-outobj.melt") : __FILE__, - (5830) ? (5830) : __LINE__, __FUNCTION__); + (5841) ? (5841) : __LINE__, __FUNCTION__); ; } ; @@ -17566,7 +19102,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.IFELSE___V5*/ meltfptr[4];; /*epilog */ - MELT_LOCATION ("warmelt-outobj.melt:5830:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5841:/ clear"); /*clear *//*_#IS_STRBUF__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V5*/ meltfptr[4] = 0; @@ -17579,19 +19115,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5831:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5842:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1]), ("/** Copyright (C) ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:5832:/ quasiblock"); + MELT_LOCATION ("warmelt-outobj.melt:5843:/ quasiblock"); /*_#YEAR__L2*/ meltfnum[0] = 0;; { - MELT_LOCATION ("warmelt-outobj.melt:5835:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5846:/ locexp"); /*+ generate_gplv3plus_copyright_notice_c_comment GETYEAR__1 */ { time_t GETYEAR__1_now = 0; @@ -17607,17 +19143,17 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5845:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5856:/ locexp"); meltgc_add_strbuf_dec ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1]), ( /*_#YEAR__L2*/ meltfnum[0])); } ; - MELT_LOCATION ("warmelt-outobj.melt:5832:/ clear"); + MELT_LOCATION ("warmelt-outobj.melt:5843:/ clear"); /*clear *//*_#YEAR__L2*/ meltfnum[0] = 0; { - MELT_LOCATION ("warmelt-outobj.melt:5847:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5858:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1]), (" Free Software Foundation, Inc.")); @@ -17625,26 +19161,26 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5848:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5859:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5849:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5860:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1]), (" This generated file ")); } ; - MELT_LOCATION ("warmelt-outobj.melt:5850:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5861:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L3*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.NAME__V3*/ meltfptr[2])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-outobj.melt:5850:/ cond"); + MELT_LOCATION ("warmelt-outobj.melt:5861:/ cond"); /*cond */ if ( /*_#IS_STRING__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -17654,7 +19190,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-outobj.melt:5853:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5864:/ locexp"); /*ADDBASENAME__1 + */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1]), lbasename (melt_string_str @@ -17670,7 +19206,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5858:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5869:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1]), (" is part of GCC.")); @@ -17678,21 +19214,21 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5859:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5870:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5860:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5871:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5861:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5872:/ locexp"); /*add2sbuf_strconst */ meltgc_add_strbuf ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1]), (" [DON\'T EDIT THIS GENERATED FILE]\n\n GCC is free software; you can redistribute it and/or modify\n it under the terms of the GNU General Public License as published by\n the Free Software Foundation; either version 3, or (at your option)\n any later version.\n\n GCC is distributed in the hope that it will be useful,\n but WITHOUT ANY WARRANTY; without even the implied warranty of\n MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n GNU General Public License for more details.\n\n You should have received a copy of the GNU General Public License\n along with GCC; see the file COPYING3. If not see\n <http://www.gnu.org/licenses/>.\n**/")); @@ -17700,19 +19236,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-outobj.melt:5877:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5888:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1]), (0), 0); } ; { - MELT_LOCATION ("warmelt-outobj.melt:5878:/ locexp"); + MELT_LOCATION ("warmelt-outobj.melt:5889:/ locexp"); meltgc_strbuf_add_indent ((melt_ptr_t) ( /*_.SBUF__V2*/ meltfptr[1]), (0), 0); } ; - MELT_LOCATION ("warmelt-outobj.melt:5827:/ checksignal"); + MELT_LOCATION ("warmelt-outobj.melt:5838:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ |