diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-11-04 17:53:22 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-11-04 17:53:22 +0000 |
| commit | f4611c69d5ce71c1b276c4dd5390b38480497f7e (patch) | |
| tree | 3f384098f799dd8a23ab30a7ac7afcf006111dff /gcc/melt/generated/warmelt-macro+07.cc | |
| parent | b9d1da9f8e8a658ace25f7c52ac7704aea9e4d67 (diff) | |
| download | gcc-f4611c69d5ce71c1b276c4dd5390b38480497f7e.tar.gz | |
2014-11-04 Basile Starynkevitch <basile@starynkevitch.net>
* melt/generated/*: Regenerate all.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@217095 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/melt/generated/warmelt-macro+07.cc')
| -rw-r--r-- | gcc/melt/generated/warmelt-macro+07.cc | 7174 |
1 files changed, 2701 insertions, 4473 deletions
diff --git a/gcc/melt/generated/warmelt-macro+07.cc b/gcc/melt/generated/warmelt-macro+07.cc index 3b8b6ffb163..3d97857bf5b 100644 --- a/gcc/melt/generated/warmelt-macro+07.cc +++ b/gcc/melt/generated/warmelt-macro+07.cc @@ -39,8 +39,8 @@ MELT_EXTERN const char meltrun_used_md5_melt_f7[] = MELT_RUN_HASHMD5 /* from mel -class Melt_InitialClassyFrame_WARMELTmiMACRO_h1070124239; // forward declaration fromline 6691 -typedef Melt_InitialClassyFrame_WARMELTmiMACRO_h1070124239 Melt_InitialFrame; +class Melt_InitialClassyFrame_WARMELTmiMACRO_h755721962; // forward declaration fromline 6691 +typedef Melt_InitialClassyFrame_WARMELTmiMACRO_h755721962 Melt_InitialFrame; /*** 6 MELT module variables declarations ****/ MELT_EXTERN void melt_forwarding_module_data (void); MELT_EXTERN void melt_marking_module_data (void); @@ -936,7 +936,7 @@ MELT_EXTERN const char melt_module_is_gpl_compatible[]; /*declare opaque initial frame: */ -typedef Melt_InitialClassyFrame_WARMELTmiMACRO_h1070124239 /*opaqueinitialclassy*/ meltinitial_frame_t; +typedef Melt_InitialClassyFrame_WARMELTmiMACRO_h755721962 /*opaqueinitialclassy*/ meltinitial_frame_t; /* define different names when debugging or not */ @@ -1133,8 +1133,7 @@ meltrout_150_WARMELTmiMACRO_MEXPAND_ASSERT_MSG(meltclosure_ptr_t meltclosp_, mel /* end of frame for routine meltrout_150_WARMELTmiMACRO_MEXPAND_ASSERT_MSG fromline 1756 */ - /* classy proc frame meltrout_150_WARMELTmiMACRO_MEXPAND_ASSERT_MSG */ - MeltFrame_meltrout_150_WARMELTmiMACRO_MEXPAND_ASSERT_MSG + /* classy proc frame meltrout_150_WARMELTmiMACRO_MEXPAND_ASSERT_MSG */ MeltFrame_meltrout_150_WARMELTmiMACRO_MEXPAND_ASSERT_MSG meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_150_WARMELTmiMACRO_MEXPAND_ASSERT_MSG fromline 1785*/ #if ENABLE_CHECKING @@ -1147,8 +1146,7 @@ meltrout_150_WARMELTmiMACRO_MEXPAND_ASSERT_MSG(meltclosure_ptr_t meltclosp_, mel #define meltframe meltfram__ melt_trace_start("MEXPAND_ASSERT_MSG", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -1157,31 +1155,27 @@ meltrout_150_WARMELTmiMACRO_MEXPAND_ASSERT_MSG(meltclosure_ptr_t meltclosp_, mel /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:8471:/ getarg"); - /*_.SEXPR__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + MELT_LOCATION("warmelt-macro.melt:8470:/ getarg"); + /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MEXPANDER__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.MEXPANDER__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODCTX__V5*/ - meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.MODCTX__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) != NULL); ; @@ -1195,7 +1189,7 @@ meltlab_endgetargs: #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8472:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8471:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -1213,8 +1207,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -1222,9 +1215,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:8472:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8471:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1242,7 +1234,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8472:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8471:/ apply"); /*apply*/ { union meltparam_un argtab[5]; @@ -1252,25 +1244,21 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8472; + argtab[2].meltbp_long = 8471; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_assert_msg sexpr="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 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); + /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 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___V6*/ - meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8472:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8471:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; } ; } @@ -1282,9 +1270,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:8472:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:8471:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -1293,11 +1280,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1319,7 +1304,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8473:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8472:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -1327,19 +1312,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ - meltfnum[1] = + /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:8473:/ cond"); - /*cond*/ - if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8472:/ cond"); + /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:8473:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8472:/ cond.else"); /*^block*/ /*anyblock*/ @@ -1358,34 +1341,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8473; + argtab[2].meltbp_long = 8472; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8473:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8472:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ - meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8473:/ clear"); - /*clear*/ /*_#IS_A__L3*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8472:/ clear"); + /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V9*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1395,7 +1372,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8474:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8473:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -1403,19 +1380,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ - meltfnum[0] = + /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:8474:/ cond"); - /*cond*/ - if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8473:/ cond"); + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:8474:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8473:/ cond.else"); /*^block*/ /*anyblock*/ @@ -1434,34 +1409,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8474; + argtab[2].meltbp_long = 8473; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8474:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8473:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ - meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8474:/ clear"); - /*clear*/ /*_#IS_A__L4*/ - meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8473:/ clear"); + /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1473,12 +1442,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#NULL__L5*/ - meltfnum[1] = + /*_#NULL__L5*/ meltfnum[1] = (/*null*/(/*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:8475:/ cond"); - /*cond*/ - if (/*_#NULL__L5*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8474:/ cond"); + /*cond*/ if (/*_#NULL__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1487,13 +1454,11 @@ meltlab_endgetargs: /*^compute*/ /*_.MEXPANDER__V4*/ meltfptr[3] = /*_.SETQ___V15*/ meltfptr[5] = (/*!MACROEXPAND_1*/ meltfrout->tabval[4]);; - /*_._IF___V14*/ - meltfptr[12] = /*_.SETQ___V15*/ meltfptr[5];; + /*_._IF___V14*/ meltfptr[12] = /*_.SETQ___V15*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8475:/ clear"); - /*clear*/ /*_.SETQ___V15*/ - meltfptr[5] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8474:/ clear"); + /*clear*/ /*_.SETQ___V15*/ meltfptr[5] = 0 ; } ; } @@ -1505,7 +1470,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8476:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8475:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -1513,19 +1478,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_OBJECT__L6*/ - meltfnum[0] = + /*_#IS_OBJECT__L6*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION("warmelt-macro.melt:8476:/ cond"); - /*cond*/ - if (/*_#IS_OBJECT__L6*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8475:/ cond"); + /*cond*/ if (/*_#IS_OBJECT__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V17*/ meltfptr[16] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:8476:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8475:/ cond.else"); /*^block*/ /*anyblock*/ @@ -1544,34 +1507,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8476; + argtab[2].meltbp_long = 8475; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; - /*_.MELT_ASSERT_FAILURE_FUN__V18*/ - meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V17*/ - meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];; + /*_._IFELSE___V17*/ meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8476:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/ - meltfptr[17] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8475:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17] = 0 ; } ; } ; - /*_.IFCPP___V16*/ - meltfptr[5] = /*_._IFELSE___V17*/ meltfptr[16];; + /*_.IFCPP___V16*/ meltfptr[5] = /*_._IFELSE___V17*/ meltfptr[16];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8476:/ clear"); - /*clear*/ /*_#IS_OBJECT__L6*/ - meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8475:/ clear"); + /*clear*/ /*_#IS_OBJECT__L6*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V17*/ - meltfptr[16] = 0 ; + /*clear*/ /*_._IFELSE___V17*/ meltfptr[16] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1579,42 +1536,37 @@ meltlab_endgetargs: /*_.IFCPP___V16*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; - MELT_LOCATION("warmelt-macro.melt:8477:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8476:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:8478:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:8477:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS"); - /*_.CONT__V20*/ - meltfptr[16] = slot; + /*_.CONT__V20*/ meltfptr[16] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:8479:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:8478:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.LOC__V21*/ - meltfptr[20] = slot; + /*_.LOC__V21*/ meltfptr[20] = slot; }; ; - /*_.LIST_FIRST__V22*/ - meltfptr[21] = + /*_.LIST_FIRST__V22*/ meltfptr[21] = (melt_list_first((melt_ptr_t)(/*_.CONT__V20*/ meltfptr[16])));; /*^compute*/ - /*_.CURPAIR__V23*/ - meltfptr[22] = + /*_.CURPAIR__V23*/ meltfptr[22] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V22*/ meltfptr[21])));; /*^compute*/ - /*_.PAIR_HEAD__V24*/ - meltfptr[23] = + /*_.PAIR_HEAD__V24*/ meltfptr[23] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V23*/ meltfptr[22])));; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8481:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8480:/ apply"); /*apply*/ { union meltparam_un argtab[3]; @@ -1625,42 +1577,35 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; - /*_.XMSG__V25*/ - meltfptr[24] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.PAIR_HEAD__V24*/ meltfptr[23]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.XMSG__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.PAIR_HEAD__V24*/ meltfptr[23]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.XTEST__V26*/ - meltfptr[25] = (/*nil*/NULL);; + /*_.XTEST__V26*/ meltfptr[25] = (/*nil*/NULL);; /*^compute*/ - /*_.XARGLIST__V27*/ - meltfptr[26] = (/*nil*/NULL);; + /*_.XARGLIST__V27*/ meltfptr[26] = (/*nil*/NULL);; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8484:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8483:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_6_MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[6]); - /*_.ASSFAIL_BINDING__V28*/ - meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ASSFAIL_BINDING__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L7*/ - meltfnum[0] = + /*_#IS_STRING__L7*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.XMSG__V25*/ meltfptr[24])) == MELTOBMAG_STRING);; /*^compute*/ - /*_#NOT__L8*/ - meltfnum[7] = + /*_#NOT__L8*/ meltfnum[7] = (!(/*_#IS_STRING__L7*/ meltfnum[0]));; - MELT_LOCATION("warmelt-macro.melt:8486:/ cond"); - /*cond*/ - if (/*_#NOT__L8*/ meltfnum[7]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8485:/ cond"); + /*cond*/ if (/*_#NOT__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1669,9 +1614,8 @@ meltlab_endgetargs: { - MELT_LOCATION("warmelt-macro.melt:8487:/ locexp"); - /* error_plain */ - melt_error_str((melt_ptr_t)(/*_.LOC__V21*/ meltfptr[20]), ( "non string message in (ASSERT_MSG <msg> <test>)"), (melt_ptr_t)0); + MELT_LOCATION("warmelt-macro.melt:8486:/ locexp"); + /* error_plain */ melt_error_str((melt_ptr_t)(/*_.LOC__V21*/ meltfptr[20]), ( "non string message in (ASSERT_MSG <msg> <test>)"), (melt_ptr_t)0); } ; /*epilog*/ @@ -1679,21 +1623,17 @@ meltlab_endgetargs: ; } /*noelse*/ ; - /*_.PAIR_TAIL__V29*/ - meltfptr[28] = + /*_.PAIR_TAIL__V29*/ meltfptr[28] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V23*/ meltfptr[22])));; - MELT_LOCATION("warmelt-macro.melt:8488:/ compute"); - /*_.CURPAIR__V23*/ - meltfptr[22] = /*_.SETQ___V30*/ meltfptr[29] = /*_.PAIR_TAIL__V29*/ meltfptr[28];; + MELT_LOCATION("warmelt-macro.melt:8487:/ compute"); + /*_.CURPAIR__V23*/ meltfptr[22] = /*_.SETQ___V30*/ meltfptr[29] = /*_.PAIR_TAIL__V29*/ meltfptr[28];; MELT_CHECK_SIGNAL(); ; - /*_#IS_PAIR__L9*/ - meltfnum[8] = + /*_#IS_PAIR__L9*/ meltfnum[8] = (melt_magic_discr((melt_ptr_t)(/*_.CURPAIR__V23*/ meltfptr[22])) == MELTOBMAG_PAIR);; - MELT_LOCATION("warmelt-macro.melt:8489:/ cond"); - /*cond*/ - if (/*_#IS_PAIR__L9*/ meltfnum[8]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8488:/ cond"); + /*cond*/ if (/*_#IS_PAIR__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1705,7 +1645,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8490:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8489:/ apply"); /*apply*/ { union meltparam_un argtab[3]; @@ -1716,20 +1656,17 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; - /*_.MEXPANDER__V33*/ - meltfptr[32] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.PAIR_HEAD__V32*/ meltfptr[31]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MEXPANDER__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.PAIR_HEAD__V32*/ meltfptr[31]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^compute*/ - /*_.XTEST__V26*/ - meltfptr[25] = /*_.SETQ___V34*/ meltfptr[33] = /*_.MEXPANDER__V33*/ meltfptr[32];; - /*_.PAIR_TAIL__V35*/ - meltfptr[34] = + /*_.XTEST__V26*/ meltfptr[25] = /*_.SETQ___V34*/ meltfptr[33] = /*_.MEXPANDER__V33*/ meltfptr[32];; + /*_.PAIR_TAIL__V35*/ meltfptr[34] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V23*/ meltfptr[22])));; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8491:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8490:/ apply"); /*apply*/ { union meltparam_un argtab[3]; @@ -1740,44 +1677,33 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; - /*_.EXPAND_PAIRLIST_AS_LIST__V36*/ - meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_PAIRLIST_AS_LIST*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.PAIR_TAIL__V35*/ meltfptr[34]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.EXPAND_PAIRLIST_AS_LIST__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_PAIRLIST_AS_LIST*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.PAIR_TAIL__V35*/ meltfptr[34]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^compute*/ - /*_.XARGLIST__V27*/ - meltfptr[26] = /*_.SETQ___V37*/ meltfptr[36] = /*_.EXPAND_PAIRLIST_AS_LIST__V36*/ meltfptr[35];; - MELT_LOCATION("warmelt-macro.melt:8489:/ quasiblock"); + /*_.XARGLIST__V27*/ meltfptr[26] = /*_.SETQ___V37*/ meltfptr[36] = /*_.EXPAND_PAIRLIST_AS_LIST__V36*/ meltfptr[35];; + MELT_LOCATION("warmelt-macro.melt:8488:/ quasiblock"); - /*_.PROGN___V38*/ - meltfptr[37] = /*_.SETQ___V37*/ meltfptr[36];; + /*_.PROGN___V38*/ meltfptr[37] = /*_.SETQ___V37*/ meltfptr[36];; /*^compute*/ - /*_._IFELSE___V31*/ - meltfptr[30] = /*_.PROGN___V38*/ meltfptr[37];; + /*_._IFELSE___V31*/ meltfptr[30] = /*_.PROGN___V38*/ meltfptr[37];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8489:/ clear"); - /*clear*/ /*_.PAIR_HEAD__V32*/ - meltfptr[31] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8488:/ clear"); + /*clear*/ /*_.PAIR_HEAD__V32*/ meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.MEXPANDER__V33*/ - meltfptr[32] = 0 ; + /*clear*/ /*_.MEXPANDER__V33*/ meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V34*/ - meltfptr[33] = 0 ; + /*clear*/ /*_.SETQ___V34*/ meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V35*/ - meltfptr[34] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V35*/ meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.EXPAND_PAIRLIST_AS_LIST__V36*/ - meltfptr[35] = 0 ; + /*clear*/ /*_.EXPAND_PAIRLIST_AS_LIST__V36*/ meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V37*/ - meltfptr[36] = 0 ; + /*clear*/ /*_.SETQ___V37*/ meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V38*/ - meltfptr[37] = 0 ; + /*clear*/ /*_.PROGN___V38*/ meltfptr[37] = 0 ; } ; } @@ -1790,11 +1716,11 @@ meltlab_endgetargs: { - MELT_LOCATION("warmelt-macro.melt:8494:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:8493:/ locexp"); melt_warning_str(0, (melt_ptr_t)(/*_.LOC__V21*/ meltfptr[20]), ( "empty ASSERT_MSG"), (melt_ptr_t)(/*_.XMSG__V25*/ meltfptr[24])); } ; - MELT_LOCATION("warmelt-macro.melt:8493:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8492:/ quasiblock"); /*epilog*/ @@ -1802,18 +1728,16 @@ meltlab_endgetargs: ; } ; - MELT_LOCATION("warmelt-macro.melt:8496:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8495:/ quasiblock"); MELT_CHECK_SIGNAL(); ; - /*_#NULL__L10*/ - meltfnum[9] = + /*_#NULL__L10*/ meltfnum[9] = (/*null*/(/*_.ASSFAIL_BINDING__V28*/ meltfptr[27]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:8499:/ cond"); - /*cond*/ - if (/*_#NULL__L10*/ meltfnum[9]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8498:/ cond"); + /*cond*/ if (/*_#NULL__L10*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1822,14 +1746,13 @@ meltlab_endgetargs: { - MELT_LOCATION("warmelt-macro.melt:8500:/ locexp"); - /* error_plain */ - melt_error_str((melt_ptr_t)(/*_.LOC__V21*/ meltfptr[20]), ( "unbound MELT_ASSERT_FAILURE in (ASSERT_MSG <msg> <test>)"), (melt_ptr_t)0); + MELT_LOCATION("warmelt-macro.melt:8499:/ locexp"); + /* error_plain */ melt_error_str((melt_ptr_t)(/*_.LOC__V21*/ meltfptr[20]), ( "unbound MELT_ASSERT_FAILURE in (ASSERT_MSG <msg> <test>)"), (melt_ptr_t)0); } ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8501:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8500:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -1847,8 +1770,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L11*/ - meltfnum[10] = + /*_#MELT_NEED_DBG__L11*/ meltfnum[10] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -1856,9 +1778,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:8501:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L11*/ meltfnum[10]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8500:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L11*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1874,27 +1795,25 @@ meltlab_endgetargs: #endif /* MELT_HAVE_DEBUG melt_callcount */ ;; /*^compute*/ - /*_.DISCRIM__V42*/ - meltfptr[34] = + /*_.DISCRIM__V42*/ meltfptr[34] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]))));; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8503:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8502:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_6_MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[6]); - /*_.FIND_ENV_DEBUG__V43*/ - meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV_DEBUG*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.FIND_ENV_DEBUG__V43*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV_DEBUG*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8501:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8500:/ apply"); /*apply*/ { union meltparam_un argtab[11]; @@ -1904,7 +1823,7 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8501; + argtab[2].meltbp_long = 8500; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_assert_msg without MELT_ASSERT_FAILURE env="; /*^apply.arg*/ @@ -1921,26 +1840,20 @@ meltlab_endgetargs: argtab[9].meltbp_cstring = "\'melt_assert_failure_fun="; /*^apply.arg*/ argtab[10].meltbp_aptr = (melt_ptr_t*) &(/*!konst_6_MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[6]); - /*_.MELT_DEBUG_FUN__V44*/ - 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_DEBUG_FUN__V44*/ 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V41*/ - meltfptr[33] = /*_.MELT_DEBUG_FUN__V44*/ meltfptr[36];; + /*_._IF___V41*/ meltfptr[33] = /*_.MELT_DEBUG_FUN__V44*/ meltfptr[36];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8501:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L12*/ - meltfnum[11] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8500:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L12*/ meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.DISCRIM__V42*/ - meltfptr[34] = 0 ; + /*clear*/ /*_.DISCRIM__V42*/ meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.FIND_ENV_DEBUG__V43*/ - meltfptr[35] = 0 ; + /*clear*/ /*_.FIND_ENV_DEBUG__V43*/ meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V44*/ - meltfptr[36] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V44*/ meltfptr[36] = 0 ; } ; } @@ -1952,9 +1865,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:8501:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:8500:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -1963,11 +1875,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L11*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L11*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V41*/ - meltfptr[33] = 0 ; + /*clear*/ /*_._IF___V41*/ meltfptr[33] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -1989,7 +1899,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8505:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8504:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -1998,15 +1908,14 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ - if ((/*nil*/NULL)) /*then*/ + /*cond*/ if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V46*/ meltfptr[34] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:8505:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8504:/ cond.else"); /*^block*/ /*anyblock*/ @@ -2025,29 +1934,24 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8505; - /*_.MELT_ASSERT_FAILURE_FUN__V47*/ - meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + argtab[2].meltbp_long = 8504; + /*_.MELT_ASSERT_FAILURE_FUN__V47*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V46*/ - meltfptr[34] = /*_.MELT_ASSERT_FAILURE_FUN__V47*/ meltfptr[35];; + /*_._IFELSE___V46*/ meltfptr[34] = /*_.MELT_ASSERT_FAILURE_FUN__V47*/ meltfptr[35];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8505:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V47*/ - meltfptr[35] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8504:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V47*/ meltfptr[35] = 0 ; } ; } ; - /*_.IFCPP___V45*/ - meltfptr[37] = /*_._IFELSE___V46*/ meltfptr[34];; + /*_.IFCPP___V45*/ meltfptr[37] = /*_._IFELSE___V46*/ meltfptr[34];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8505:/ clear"); - /*clear*/ /*_._IFELSE___V46*/ - meltfptr[34] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8504:/ clear"); + /*clear*/ /*_._IFELSE___V46*/ meltfptr[34] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2055,14 +1959,13 @@ meltlab_endgetargs: /*_.IFCPP___V45*/ meltfptr[37] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; - MELT_LOCATION("warmelt-macro.melt:8506:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8505:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { - MELT_LOCATION("warmelt-macro.melt:8506:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:8505:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -2074,27 +1977,21 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - MELT_LOCATION("warmelt-macro.melt:8499:/ quasiblock"); + /*finalret*/ goto meltlabend_rout ; + MELT_LOCATION("warmelt-macro.melt:8498:/ quasiblock"); - /*_.PROGN___V49*/ - meltfptr[33] = /*_.RETURN___V48*/ meltfptr[36];; + /*_.PROGN___V49*/ meltfptr[33] = /*_.RETURN___V48*/ meltfptr[36];; /*^compute*/ - /*_.ASSFAILFUN__V40*/ - meltfptr[32] = /*_.PROGN___V49*/ meltfptr[33];; + /*_.ASSFAILFUN__V40*/ meltfptr[32] = /*_.PROGN___V49*/ meltfptr[33];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8499:/ clear"); - /*clear*/ /*_.IFCPP___V45*/ - meltfptr[37] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8498:/ clear"); + /*clear*/ /*_.IFCPP___V45*/ meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V48*/ - meltfptr[36] = 0 ; + /*clear*/ /*_.RETURN___V48*/ meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V49*/ - meltfptr[33] = 0 ; + /*clear*/ /*_.PROGN___V49*/ meltfptr[33] = 0 ; } ; } @@ -2108,72 +2005,62 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L13*/ - meltfnum[11] = + /*_#IS_A__L13*/ meltfnum[11] = melt_is_instance_of((melt_ptr_t)(/*_.ASSFAIL_BINDING__V28*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_FUNCTION_BINDING*/ meltfrout->tabval[11])));; - MELT_LOCATION("warmelt-macro.melt:8507:/ cond"); - /*cond*/ - if (/*_#IS_A__L13*/ meltfnum[11]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8506:/ cond"); + /*cond*/ if (/*_#IS_A__L13*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { - MELT_LOCATION("warmelt-macro.melt:8509:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:8508:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.ASSFAIL_BINDING__V28*/ meltfptr[27]) /*=obj*/; melt_object_get_field(slot,obj, 1, "FIXBIND_DATA"); - /*_.FIXBIND_DATA__V51*/ - meltfptr[34] = slot; + /*_.FIXBIND_DATA__V51*/ meltfptr[34] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:8508:/ cond"); - /*cond*/ - if (/*_.FIXBIND_DATA__V51*/ meltfptr[34]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8507:/ cond"); + /*cond*/ if (/*_.FIXBIND_DATA__V51*/ meltfptr[34]) /*then*/ { /*^cond.then*/ /*_.OR___V52*/ meltfptr[37] = /*_.FIXBIND_DATA__V51*/ meltfptr[34];; } else { - MELT_LOCATION("warmelt-macro.melt:8508:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8507:/ cond.else"); /*^block*/ /*anyblock*/ { - MELT_LOCATION("warmelt-macro.melt:8510:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:8509:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.ASSFAIL_BINDING__V28*/ meltfptr[27]) /*=obj*/; melt_object_get_field(slot,obj, 2, "FUBIND_DEFUN"); - /*_.FUBIND_DEFUN__V53*/ - meltfptr[36] = slot; + /*_.FUBIND_DEFUN__V53*/ meltfptr[36] = slot; }; ; - /*_.OR___V52*/ - meltfptr[37] = /*_.FUBIND_DEFUN__V53*/ meltfptr[36];; + /*_.OR___V52*/ meltfptr[37] = /*_.FUBIND_DEFUN__V53*/ meltfptr[36];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8508:/ clear"); - /*clear*/ /*_.FUBIND_DEFUN__V53*/ - meltfptr[36] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8507:/ clear"); + /*clear*/ /*_.FUBIND_DEFUN__V53*/ meltfptr[36] = 0 ; } ; } ; - /*_._IFELSE___V50*/ - meltfptr[35] = /*_.OR___V52*/ meltfptr[37];; + /*_._IFELSE___V50*/ meltfptr[35] = /*_.OR___V52*/ meltfptr[37];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8507:/ clear"); - /*clear*/ /*_.FIXBIND_DATA__V51*/ - meltfptr[34] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8506:/ clear"); + /*clear*/ /*_.FIXBIND_DATA__V51*/ meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.OR___V52*/ - meltfptr[37] = 0 ; + /*clear*/ /*_.OR___V52*/ meltfptr[37] = 0 ; } ; } @@ -2190,41 +2077,34 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L14*/ - meltfnum[10] = + /*_#IS_A__L14*/ meltfnum[10] = melt_is_instance_of((melt_ptr_t)(/*_.ASSFAIL_BINDING__V28*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ meltfrout->tabval[12])));; - MELT_LOCATION("warmelt-macro.melt:8512:/ cond"); - /*cond*/ - if (/*_#IS_A__L14*/ meltfnum[10]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8511:/ cond"); + /*cond*/ if (/*_#IS_A__L14*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { - MELT_LOCATION("warmelt-macro.melt:8513:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:8512:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.ASSFAIL_BINDING__V28*/ meltfptr[27]) /*=obj*/; melt_object_get_field(slot,obj, 1, "VBIND_VALUE"); - /*_.VBIND_VALUE__V54*/ - meltfptr[33] = slot; + /*_.VBIND_VALUE__V54*/ meltfptr[33] = slot; }; ; - /*_#IS_CLOSURE__L16*/ - meltfnum[15] = + /*_#IS_CLOSURE__L16*/ meltfnum[15] = (melt_magic_discr((melt_ptr_t)(/*_.VBIND_VALUE__V54*/ meltfptr[33])) == MELTOBMAG_CLOSURE);; /*^compute*/ - /*_#_IF___L15*/ - meltfnum[14] = /*_#IS_CLOSURE__L16*/ meltfnum[15];; + /*_#_IF___L15*/ meltfnum[14] = /*_#IS_CLOSURE__L16*/ meltfnum[15];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8512:/ clear"); - /*clear*/ /*_.VBIND_VALUE__V54*/ - meltfptr[33] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8511:/ clear"); + /*clear*/ /*_.VBIND_VALUE__V54*/ meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_CLOSURE__L16*/ - meltfnum[15] = 0 ; + /*clear*/ /*_#IS_CLOSURE__L16*/ meltfnum[15] = 0 ; } ; } @@ -2234,31 +2114,27 @@ meltlab_endgetargs: /*_#_IF___L15*/ meltfnum[14] = 0;; } ; - MELT_LOCATION("warmelt-macro.melt:8512:/ cond"); - /*cond*/ - if (/*_#_IF___L15*/ meltfnum[14]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8511:/ cond"); + /*cond*/ if (/*_#_IF___L15*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { - MELT_LOCATION("warmelt-macro.melt:8514:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:8513:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.ASSFAIL_BINDING__V28*/ meltfptr[27]) /*=obj*/; melt_object_get_field(slot,obj, 1, "VBIND_VALUE"); - /*_.VBIND_VALUE__V56*/ - meltfptr[34] = slot; + /*_.VBIND_VALUE__V56*/ meltfptr[34] = slot; }; ; - /*_._IFELSE___V55*/ - meltfptr[36] = /*_.VBIND_VALUE__V56*/ meltfptr[34];; + /*_._IFELSE___V55*/ meltfptr[36] = /*_.VBIND_VALUE__V56*/ meltfptr[34];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8512:/ clear"); - /*clear*/ /*_.VBIND_VALUE__V56*/ - meltfptr[34] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8511:/ clear"); + /*clear*/ /*_.VBIND_VALUE__V56*/ meltfptr[34] = 0 ; } ; } @@ -2271,7 +2147,7 @@ meltlab_endgetargs: #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8516:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8515:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -2289,8 +2165,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L17*/ - meltfnum[15] = + /*_#MELT_NEED_DBG__L17*/ meltfnum[15] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -2298,9 +2173,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:8516:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L17*/ meltfnum[15]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8515:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L17*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2318,7 +2192,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8516:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8515:/ apply"); /*apply*/ { union meltparam_un argtab[5]; @@ -2328,25 +2202,21 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8516; + argtab[2].meltbp_long = 8515; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_assert_msg bad assfail_binding="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.ASSFAIL_BINDING__V28*/ meltfptr[27]; - /*_.MELT_DEBUG_FUN__V58*/ - meltfptr[33] = 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); + /*_.MELT_DEBUG_FUN__V58*/ meltfptr[33] = 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___V57*/ - meltfptr[37] = /*_.MELT_DEBUG_FUN__V58*/ meltfptr[33];; + /*_._IF___V57*/ meltfptr[37] = /*_.MELT_DEBUG_FUN__V58*/ meltfptr[33];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8516:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L18*/ - meltfnum[17] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8515:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L18*/ meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V58*/ - meltfptr[33] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V58*/ meltfptr[33] = 0 ; } ; } @@ -2358,9 +2228,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:8516:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:8515:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -2369,11 +2238,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L17*/ - meltfnum[15] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L17*/ meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V57*/ - meltfptr[37] = 0 ; + /*clear*/ /*_._IF___V57*/ meltfptr[37] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2395,19 +2262,17 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:8517:/ locexp"); - /* error_plain */ - melt_error_str((melt_ptr_t)(/*_.LOC__V21*/ meltfptr[20]), ( "MELT_ASSERT_FAILURE badly bound in (ASSERT_MSG <msg> <test>)"), (melt_ptr_t)0); + MELT_LOCATION("warmelt-macro.melt:8516:/ locexp"); + /* error_plain */ melt_error_str((melt_ptr_t)(/*_.LOC__V21*/ meltfptr[20]), ( "MELT_ASSERT_FAILURE badly bound in (ASSERT_MSG <msg> <test>)"), (melt_ptr_t)0); } ; - MELT_LOCATION("warmelt-macro.melt:8518:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8517:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { - MELT_LOCATION("warmelt-macro.melt:8518:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:8517:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -2419,55 +2284,43 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - MELT_LOCATION("warmelt-macro.melt:8515:/ quasiblock"); + /*finalret*/ goto meltlabend_rout ; + MELT_LOCATION("warmelt-macro.melt:8514:/ quasiblock"); - /*_.PROGN___V60*/ - meltfptr[33] = /*_.RETURN___V59*/ meltfptr[34];; + /*_.PROGN___V60*/ meltfptr[33] = /*_.RETURN___V59*/ meltfptr[34];; /*^compute*/ - /*_._IFELSE___V55*/ - meltfptr[36] = /*_.PROGN___V60*/ meltfptr[33];; + /*_._IFELSE___V55*/ meltfptr[36] = /*_.PROGN___V60*/ meltfptr[33];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8512:/ clear"); - /*clear*/ /*_.RETURN___V59*/ - meltfptr[34] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8511:/ clear"); + /*clear*/ /*_.RETURN___V59*/ meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V60*/ - meltfptr[33] = 0 ; + /*clear*/ /*_.PROGN___V60*/ meltfptr[33] = 0 ; } ; } ; - /*_._IFELSE___V50*/ - meltfptr[35] = /*_._IFELSE___V55*/ meltfptr[36];; + /*_._IFELSE___V50*/ meltfptr[35] = /*_._IFELSE___V55*/ meltfptr[36];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8507:/ clear"); - /*clear*/ /*_#IS_A__L14*/ - meltfnum[10] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8506:/ clear"); + /*clear*/ /*_#IS_A__L14*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_#_IF___L15*/ - meltfnum[14] = 0 ; + /*clear*/ /*_#_IF___L15*/ meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V55*/ - meltfptr[36] = 0 ; + /*clear*/ /*_._IFELSE___V55*/ meltfptr[36] = 0 ; } ; } ; - /*_.ASSFAILFUN__V40*/ - meltfptr[32] = /*_._IFELSE___V50*/ meltfptr[35];; + /*_.ASSFAILFUN__V40*/ meltfptr[32] = /*_._IFELSE___V50*/ meltfptr[35];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8499:/ clear"); - /*clear*/ /*_#IS_A__L13*/ - meltfnum[11] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8498:/ clear"); + /*clear*/ /*_#IS_A__L13*/ meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V50*/ - meltfptr[35] = 0 ; + /*clear*/ /*_._IFELSE___V50*/ meltfptr[35] = 0 ; } ; } @@ -2475,12 +2328,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MIXINT__L19*/ - meltfnum[17] = + /*_#IS_MIXINT__L19*/ meltfnum[17] = (melt_magic_discr((melt_ptr_t)(/*_.LOC__V21*/ meltfptr[20])) == MELTOBMAG_MIXINT);; - MELT_LOCATION("warmelt-macro.melt:8521:/ cond"); - /*cond*/ - if (/*_#IS_MIXINT__L19*/ meltfnum[17]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8520:/ cond"); + /*cond*/ if (/*_#IS_MIXINT__L19*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2490,13 +2341,11 @@ meltlab_endgetargs: /*_.MIXINT_VAL__V62*/ meltfptr[34] = (melt_val_mixint((melt_ptr_t)(/*_.LOC__V21*/ meltfptr[20])));; /*^compute*/ - /*_.FILNAM__V61*/ - meltfptr[37] = /*_.MIXINT_VAL__V62*/ meltfptr[34];; + /*_.FILNAM__V61*/ meltfptr[37] = /*_.MIXINT_VAL__V62*/ meltfptr[34];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8521:/ clear"); - /*clear*/ /*_.MIXINT_VAL__V62*/ - meltfptr[34] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8520:/ clear"); + /*clear*/ /*_.MIXINT_VAL__V62*/ meltfptr[34] = 0 ; } ; } @@ -2510,12 +2359,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MIXLOC__L20*/ - meltfnum[15] = + /*_#IS_MIXLOC__L20*/ meltfnum[15] = (melt_magic_discr((melt_ptr_t)(/*_.LOC__V21*/ meltfptr[20])) == MELTOBMAG_MIXLOC);; - MELT_LOCATION("warmelt-macro.melt:8522:/ cond"); - /*cond*/ - if (/*_#IS_MIXLOC__L20*/ meltfnum[15]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8521:/ cond"); + /*cond*/ if (/*_#IS_MIXLOC__L20*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2525,13 +2372,11 @@ meltlab_endgetargs: /*_.MIXLOC_VAL__V64*/ meltfptr[36] = (melt_val_mixloc((melt_ptr_t)(/*_.LOC__V21*/ meltfptr[20])));; /*^compute*/ - /*_._IFELSE___V63*/ - meltfptr[33] = /*_.MIXLOC_VAL__V64*/ meltfptr[36];; + /*_._IFELSE___V63*/ meltfptr[33] = /*_.MIXLOC_VAL__V64*/ meltfptr[36];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8522:/ clear"); - /*clear*/ /*_.MIXLOC_VAL__V64*/ - meltfptr[36] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8521:/ clear"); + /*clear*/ /*_.MIXLOC_VAL__V64*/ meltfptr[36] = 0 ; } ; } @@ -2542,16 +2387,13 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.FILNAM__V61*/ - meltfptr[37] = /*_._IFELSE___V63*/ meltfptr[33];; + /*_.FILNAM__V61*/ meltfptr[37] = /*_._IFELSE___V63*/ meltfptr[33];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8521:/ clear"); - /*clear*/ /*_#IS_MIXLOC__L20*/ - meltfnum[15] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8520:/ clear"); + /*clear*/ /*_#IS_MIXLOC__L20*/ meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V63*/ - meltfptr[33] = 0 ; + /*clear*/ /*_._IFELSE___V63*/ meltfptr[33] = 0 ; } ; } @@ -2559,14 +2401,12 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#GET_INT__L21*/ - meltfnum[10] = + /*_#GET_INT__L21*/ meltfnum[10] = (melt_get_int((melt_ptr_t)(/*_.LOC__V21*/ meltfptr[20])));; /*^compute*/ - /*_.MAKE_INTEGERBOX__V65*/ - meltfptr[35] = + /*_.MAKE_INTEGERBOX__V65*/ meltfptr[35] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[17])), (/*_#GET_INT__L21*/ meltfnum[10])));; - MELT_LOCATION("warmelt-macro.melt:8529:/ blockmultialloc"); + MELT_LOCATION("warmelt-macro.melt:8528:/ blockmultialloc"); /*multiallocblock*/ { struct meltletrec_1_st @@ -2581,28 +2421,23 @@ meltlab_endgetargs: meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill*/ /*inipair rpair_0___PAIROFLIST_x1*/ - /*_._PAIROFLIST__V67*/ - meltfptr[36] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0___PAIROFLIST_x1; + /*_._PAIROFLIST__V67*/ meltfptr[36] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0___PAIROFLIST_x1; meltletrec_1_ptr->rpair_0___PAIROFLIST_x1.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_PAIR)))); /*inipair rpair_1__XMSG_x1*/ - /*_.XMSG__V68*/ - meltfptr[33] = (melt_ptr_t) &meltletrec_1_ptr->rpair_1__XMSG_x1; + /*_.XMSG__V68*/ meltfptr[33] = (melt_ptr_t) &meltletrec_1_ptr->rpair_1__XMSG_x1; meltletrec_1_ptr->rpair_1__XMSG_x1.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_PAIR)))); /*inipair rpair_2__FILNAM_x1*/ - /*_.FILNAM__V69*/ - meltfptr[68] = (melt_ptr_t) &meltletrec_1_ptr->rpair_2__FILNAM_x1; + /*_.FILNAM__V69*/ meltfptr[68] = (melt_ptr_t) &meltletrec_1_ptr->rpair_2__FILNAM_x1; meltletrec_1_ptr->rpair_2__FILNAM_x1.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_PAIR)))); /*inipair rpair_3___PAIROFLIST_x2*/ - /*_._PAIROFLIST__V70*/ - meltfptr[69] = (melt_ptr_t) &meltletrec_1_ptr->rpair_3___PAIROFLIST_x2; + /*_._PAIROFLIST__V70*/ meltfptr[69] = (melt_ptr_t) &meltletrec_1_ptr->rpair_3___PAIROFLIST_x2; meltletrec_1_ptr->rpair_3___PAIROFLIST_x2.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_PAIR)))); /*inilist rlist_4__LIST_*/ - /*_.LIST___V71*/ - meltfptr[70] = (melt_ptr_t) &meltletrec_1_ptr->rlist_4__LIST_; + /*_.LIST___V71*/ meltfptr[70] = (melt_ptr_t) &meltletrec_1_ptr->rlist_4__LIST_; meltletrec_1_ptr->rlist_4__LIST_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_LIST)))); @@ -2614,7 +2449,7 @@ meltlab_endgetargs: ; /*^putpairtail*/ /*putpairtail*/ - melt_assertmsg("putpairtail /1f250759 checkpair", melt_magic_discr((melt_ptr_t)(/*_._PAIROFLIST__V67*/ meltfptr[36]))== MELTOBMAG_PAIR); + melt_assertmsg("putpairtail /22cb5f07 checkpair", melt_magic_discr((melt_ptr_t)(/*_._PAIROFLIST__V67*/ meltfptr[36]))== MELTOBMAG_PAIR); ((meltpair_ptr_t)(/*_._PAIROFLIST__V67*/ meltfptr[36]))->tl = (meltpair_ptr_t) (/*_.XMSG__V68*/ meltfptr[33]); ; /*^touch*/ @@ -2627,7 +2462,7 @@ meltlab_endgetargs: ; /*^putpairtail*/ /*putpairtail*/ - melt_assertmsg("putpairtail /32da8d65 checkpair", melt_magic_discr((melt_ptr_t)(/*_.XMSG__V68*/ meltfptr[33]))== MELTOBMAG_PAIR); + melt_assertmsg("putpairtail /21c16e1d checkpair", melt_magic_discr((melt_ptr_t)(/*_.XMSG__V68*/ meltfptr[33]))== MELTOBMAG_PAIR); ((meltpair_ptr_t)(/*_.XMSG__V68*/ meltfptr[33]))->tl = (meltpair_ptr_t) (/*_.FILNAM__V69*/ meltfptr[68]); ; /*^touch*/ @@ -2640,13 +2475,13 @@ meltlab_endgetargs: ; /*^putpairtail*/ /*putpairtail*/ - melt_assertmsg("putpairtail /2f338c43 checkpair", melt_magic_discr((melt_ptr_t)(/*_.FILNAM__V69*/ meltfptr[68]))== MELTOBMAG_PAIR); + melt_assertmsg("putpairtail /26a8337b checkpair", melt_magic_discr((melt_ptr_t)(/*_.FILNAM__V69*/ meltfptr[68]))== MELTOBMAG_PAIR); ((meltpair_ptr_t)(/*_.FILNAM__V69*/ meltfptr[68]))->tl = (meltpair_ptr_t) (/*_._PAIROFLIST__V70*/ meltfptr[69]); ; /*^touch*/ meltgc_touch(/*_.FILNAM__V69*/ meltfptr[68]); ; - MELT_LOCATION("warmelt-macro.melt:8533:/ putpairhead"); + MELT_LOCATION("warmelt-macro.melt:8532:/ putpairhead"); /*putpairhead*/ melt_assertmsg("putpairhead /4 checkpair", melt_magic_discr((melt_ptr_t)(/*_._PAIROFLIST__V70*/ meltfptr[69]))== MELTOBMAG_PAIR); ((meltpair_ptr_t)(/*_._PAIROFLIST__V70*/ meltfptr[69]))->hd = (melt_ptr_t) (/*_.MAKE_INTEGERBOX__V65*/ meltfptr[35]); @@ -2654,7 +2489,7 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_._PAIROFLIST__V70*/ meltfptr[69]); ; - MELT_LOCATION("warmelt-macro.melt:8529:/ putlist"); + MELT_LOCATION("warmelt-macro.melt:8528:/ putlist"); /*putlist*/ melt_assertmsg("putlist checklist", melt_magic_discr((melt_ptr_t)(/*_.LIST___V71*/ meltfptr[70]))== MELTOBMAG_LIST); ((meltlist_ptr_t)(/*_.LIST___V71*/ meltfptr[70]))->first = (meltpair_ptr_t) (/*_._PAIROFLIST__V67*/ meltfptr[36]); @@ -2663,66 +2498,54 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.LIST___V71*/ meltfptr[70]); ; - /*_.LIST___V66*/ - meltfptr[34] = /*_.LIST___V71*/ meltfptr[70];; + /*_.LIST___V66*/ meltfptr[34] = /*_.LIST___V71*/ meltfptr[70];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8529:/ clear"); - /*clear*/ /*_._PAIROFLIST__V67*/ - meltfptr[36] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8528:/ clear"); + /*clear*/ /*_._PAIROFLIST__V67*/ meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.XMSG__V68*/ - meltfptr[33] = 0 ; + /*clear*/ /*_.XMSG__V68*/ meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.FILNAM__V69*/ - meltfptr[68] = 0 ; + /*clear*/ /*_.FILNAM__V69*/ meltfptr[68] = 0 ; /*^clear*/ - /*clear*/ /*_._PAIROFLIST__V70*/ - meltfptr[69] = 0 ; + /*clear*/ /*_._PAIROFLIST__V70*/ meltfptr[69] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V71*/ - meltfptr[70] = 0 ; + /*clear*/ /*_.LIST___V71*/ meltfptr[70] = 0 ; /*^clear*/ - /*clear*/ /*_._PAIROFLIST__V67*/ - meltfptr[36] = 0 ; + /*clear*/ /*_._PAIROFLIST__V67*/ meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.XMSG__V68*/ - meltfptr[33] = 0 ; + /*clear*/ /*_.XMSG__V68*/ meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.FILNAM__V69*/ - meltfptr[68] = 0 ; + /*clear*/ /*_.FILNAM__V69*/ meltfptr[68] = 0 ; /*^clear*/ - /*clear*/ /*_._PAIROFLIST__V70*/ - meltfptr[69] = 0 ; + /*clear*/ /*_._PAIROFLIST__V70*/ meltfptr[69] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V71*/ - meltfptr[70] = 0 ; + /*clear*/ /*_.LIST___V71*/ meltfptr[70] = 0 ; } /*end multiallocblock*/ ; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8528:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8527:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.XARGLIST__V27*/ meltfptr[26]; - /*_.LIST_APPEND2LIST__V72*/ - meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.LIST___V66*/ meltfptr[34]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_APPEND2LIST__V72*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[16])), (melt_ptr_t)(/*_.LIST___V66*/ meltfptr[34]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8527:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8526:/ apply"); /*apply*/ { /*_.LIST_TO_MULTIPLE__V73*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[15])), (melt_ptr_t)(/*_.LIST_APPEND2LIST__V72*/ meltfptr[36]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:8523:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8522:/ quasiblock"); /*^rawallocobj*/ @@ -2730,8 +2553,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_APPLY*/ meltfrout->tabval[13])), (4), "CLASS_SOURCE_APPLY"); - /*_.INST__V75*/ - meltfptr[69] = + /*_.INST__V75*/ meltfptr[69] = newobj; }; ; @@ -2754,12 +2576,11 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V75*/ meltfptr[69], "newly made instance"); ; - /*_.AFAPPLY__V74*/ - meltfptr[68] = /*_.INST__V75*/ meltfptr[69];; + /*_.AFAPPLY__V74*/ meltfptr[68] = /*_.INST__V75*/ meltfptr[69];; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8538:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8537:/ quasiblock"); /*^rawallocobj*/ @@ -2767,8 +2588,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_IFELSE*/ meltfrout->tabval[18])), (5), "CLASS_SOURCE_IFELSE"); - /*_.INST__V77*/ - meltfptr[76] = + /*_.INST__V77*/ meltfptr[76] = newobj; }; ; @@ -2796,12 +2616,11 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V77*/ meltfptr[76], "newly made instance"); ; - /*_.ATEST__V76*/ - meltfptr[70] = /*_.INST__V77*/ meltfptr[76];; + /*_.ATEST__V76*/ meltfptr[70] = /*_.INST__V77*/ meltfptr[76];; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8544:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8543:/ quasiblock"); /*^rawallocobj*/ @@ -2809,8 +2628,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_CPPIF*/ meltfrout->tabval[19])), (5), "CLASS_SOURCE_CPPIF"); - /*_.INST__V79*/ - meltfptr[78] = + /*_.INST__V79*/ meltfptr[78] = newobj; }; ; @@ -2838,11 +2656,10 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V79*/ meltfptr[78], "newly made instance"); ; - /*_.ACPPIF__V78*/ - meltfptr[77] = /*_.INST__V79*/ meltfptr[78];; + /*_.ACPPIF__V78*/ meltfptr[77] = /*_.INST__V79*/ meltfptr[78];; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8551:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8550:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -2860,8 +2677,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L22*/ - meltfnum[14] = + /*_#MELT_NEED_DBG__L22*/ meltfnum[14] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -2869,9 +2685,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:8551:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L22*/ meltfnum[14]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8550:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L22*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2889,7 +2704,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8551:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8550:/ apply"); /*apply*/ { union meltparam_un argtab[5]; @@ -2899,25 +2714,21 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8551; + argtab[2].meltbp_long = 8550; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_assert_msg result acppif"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.ACPPIF__V78*/ meltfptr[77]; - /*_.MELT_DEBUG_FUN__V81*/ - meltfptr[80] = 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); + /*_.MELT_DEBUG_FUN__V81*/ meltfptr[80] = 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___V80*/ - meltfptr[79] = /*_.MELT_DEBUG_FUN__V81*/ meltfptr[80];; + /*_._IF___V80*/ meltfptr[79] = /*_.MELT_DEBUG_FUN__V81*/ meltfptr[80];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8551:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L23*/ - meltfnum[11] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8550:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L23*/ meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V81*/ - meltfptr[80] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V81*/ meltfptr[80] = 0 ; } ; } @@ -2929,9 +2740,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:8551:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:8550:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -2940,11 +2750,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L22*/ - meltfnum[14] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L22*/ meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V80*/ - meltfptr[79] = 0 ; + /*clear*/ /*_._IF___V80*/ meltfptr[79] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -2967,14 +2775,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8552:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8551:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.ACPPIF__V78*/ meltfptr[77];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.ACPPIF__V78*/ meltfptr[77];; { - MELT_LOCATION("warmelt-macro.melt:8552:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:8551:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -2986,112 +2793,79 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - /*_.LET___V39*/ - meltfptr[31] = /*_.RETURN___V82*/ meltfptr[80];; + /*finalret*/ goto meltlabend_rout ; + /*_.LET___V39*/ meltfptr[31] = /*_.RETURN___V82*/ meltfptr[80];; - MELT_LOCATION("warmelt-macro.melt:8496:/ clear"); - /*clear*/ /*_#NULL__L10*/ - meltfnum[9] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8495:/ clear"); + /*clear*/ /*_#NULL__L10*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.ASSFAILFUN__V40*/ - meltfptr[32] = 0 ; + /*clear*/ /*_.ASSFAILFUN__V40*/ meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_MIXINT__L19*/ - meltfnum[17] = 0 ; + /*clear*/ /*_#IS_MIXINT__L19*/ meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_.FILNAM__V61*/ - meltfptr[37] = 0 ; + /*clear*/ /*_.FILNAM__V61*/ meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_#GET_INT__L21*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#GET_INT__L21*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_INTEGERBOX__V65*/ - meltfptr[35] = 0 ; + /*clear*/ /*_.MAKE_INTEGERBOX__V65*/ meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V66*/ - meltfptr[34] = 0 ; + /*clear*/ /*_.LIST___V66*/ meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_APPEND2LIST__V72*/ - meltfptr[36] = 0 ; + /*clear*/ /*_.LIST_APPEND2LIST__V72*/ meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_TO_MULTIPLE__V73*/ - meltfptr[33] = 0 ; + /*clear*/ /*_.LIST_TO_MULTIPLE__V73*/ meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.AFAPPLY__V74*/ - meltfptr[68] = 0 ; + /*clear*/ /*_.AFAPPLY__V74*/ meltfptr[68] = 0 ; /*^clear*/ - /*clear*/ /*_.ATEST__V76*/ - meltfptr[70] = 0 ; + /*clear*/ /*_.ATEST__V76*/ meltfptr[70] = 0 ; /*^clear*/ - /*clear*/ /*_.ACPPIF__V78*/ - meltfptr[77] = 0 ; + /*clear*/ /*_.ACPPIF__V78*/ meltfptr[77] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V82*/ - meltfptr[80] = 0 ; - /*_.LET___V19*/ - meltfptr[17] = /*_.LET___V39*/ meltfptr[31];; + /*clear*/ /*_.RETURN___V82*/ meltfptr[80] = 0 ; + /*_.LET___V19*/ meltfptr[17] = /*_.LET___V39*/ meltfptr[31];; - MELT_LOCATION("warmelt-macro.melt:8477:/ clear"); - /*clear*/ /*_.CONT__V20*/ - meltfptr[16] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8476:/ clear"); + /*clear*/ /*_.CONT__V20*/ meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.LOC__V21*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.LOC__V21*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_FIRST__V22*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.LIST_FIRST__V22*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.CURPAIR__V23*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.CURPAIR__V23*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_HEAD__V24*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.PAIR_HEAD__V24*/ meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.XMSG__V25*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.XMSG__V25*/ meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.XTEST__V26*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.XTEST__V26*/ meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.XARGLIST__V27*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.XARGLIST__V27*/ meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.ASSFAIL_BINDING__V28*/ - meltfptr[27] = 0 ; + /*clear*/ /*_.ASSFAIL_BINDING__V28*/ meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_STRING__L7*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_STRING__L7*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L8*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#NOT__L8*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V29*/ - meltfptr[28] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V29*/ meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V30*/ - meltfptr[29] = 0 ; + /*clear*/ /*_.SETQ___V30*/ meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_PAIR__L9*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#IS_PAIR__L9*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V31*/ - meltfptr[30] = 0 ; + /*clear*/ /*_._IFELSE___V31*/ meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V39*/ - meltfptr[31] = 0 ; + /*clear*/ /*_.LET___V39*/ meltfptr[31] = 0 ; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8471:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8470:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V19*/ meltfptr[17];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V19*/ meltfptr[17];; { - MELT_LOCATION("warmelt-macro.melt:8471:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:8470:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -3103,28 +2877,21 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L5*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#NULL__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V14*/ - meltfptr[12] = 0 ; + /*clear*/ /*_._IF___V14*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V16*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.IFCPP___V16*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V19*/ - meltfptr[17] = 0 ; + /*clear*/ /*_.LET___V19*/ meltfptr[17] = 0 ; } ; @@ -3206,8 +2973,7 @@ meltrout_151_WARMELTmiMACRO_MEXPAND_THIS_LINE(meltclosure_ptr_t meltclosp_, melt /* end of frame for routine meltrout_151_WARMELTmiMACRO_MEXPAND_THIS_LINE fromline 1756 */ - /* classy proc frame meltrout_151_WARMELTmiMACRO_MEXPAND_THIS_LINE */ - MeltFrame_meltrout_151_WARMELTmiMACRO_MEXPAND_THIS_LINE + /* classy proc frame meltrout_151_WARMELTmiMACRO_MEXPAND_THIS_LINE */ MeltFrame_meltrout_151_WARMELTmiMACRO_MEXPAND_THIS_LINE meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_151_WARMELTmiMACRO_MEXPAND_THIS_LINE fromline 1785*/ #if ENABLE_CHECKING @@ -3220,8 +2986,7 @@ meltrout_151_WARMELTmiMACRO_MEXPAND_THIS_LINE(meltclosure_ptr_t meltclosp_, melt #define meltframe meltfram__ melt_trace_start("MEXPAND_THIS_LINE", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -3230,31 +2995,27 @@ meltrout_151_WARMELTmiMACRO_MEXPAND_THIS_LINE(meltclosure_ptr_t meltclosp_, melt /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:8565:/ getarg"); - /*_.SEXPR__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + MELT_LOCATION("warmelt-macro.melt:8564:/ getarg"); + /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MEXPANDER__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.MEXPANDER__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODCTX__V5*/ - meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.MODCTX__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) != NULL); ; @@ -3268,7 +3029,7 @@ meltlab_endgetargs: #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8566:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8565:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -3286,8 +3047,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -3295,9 +3055,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:8566:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8565:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3315,7 +3074,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8566:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8565:/ apply"); /*apply*/ { union meltparam_un argtab[5]; @@ -3325,25 +3084,21 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8566; + argtab[2].meltbp_long = 8565; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_this_line sexpr="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 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); + /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 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___V6*/ - meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8566:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8565:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; } ; } @@ -3355,9 +3110,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:8566:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:8565:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -3366,11 +3120,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3392,7 +3144,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8567:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8566:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -3400,19 +3152,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ - meltfnum[1] = + /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:8567:/ cond"); - /*cond*/ - if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8566:/ cond"); + /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:8567:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8566:/ cond.else"); /*^block*/ /*anyblock*/ @@ -3431,34 +3181,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8567; + argtab[2].meltbp_long = 8566; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8567:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8566:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ - meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8567:/ clear"); - /*clear*/ /*_#IS_A__L3*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8566:/ clear"); + /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V9*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3468,7 +3212,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8568:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8567:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -3476,19 +3220,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ - meltfnum[0] = + /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:8568:/ cond"); - /*cond*/ - if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8567:/ cond"); + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:8568:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8567:/ cond.else"); /*^block*/ /*anyblock*/ @@ -3507,34 +3249,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8568; + argtab[2].meltbp_long = 8567; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8568:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8567:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ - meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8568:/ clear"); - /*clear*/ /*_#IS_A__L4*/ - meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8567:/ clear"); + /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3544,7 +3280,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8569:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8568:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -3552,19 +3288,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_OBJECT__L5*/ - meltfnum[1] = + /*_#IS_OBJECT__L5*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION("warmelt-macro.melt:8569:/ cond"); - /*cond*/ - if (/*_#IS_OBJECT__L5*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8568:/ cond"); + /*cond*/ if (/*_#IS_OBJECT__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:8569:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8568:/ cond.else"); /*^block*/ /*anyblock*/ @@ -3583,34 +3317,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8569; + argtab[2].meltbp_long = 8568; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ - meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8569:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ - meltfptr[15] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8568:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ - meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8569:/ clear"); - /*clear*/ /*_#IS_OBJECT__L5*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8568:/ clear"); + /*clear*/ /*_#IS_OBJECT__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3618,33 +3346,30 @@ meltlab_endgetargs: /*_.IFCPP___V14*/ meltfptr[12] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; - MELT_LOCATION("warmelt-macro.melt:8570:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8569:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:8571:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:8570:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS"); - /*_.CONT__V18*/ - meltfptr[5] = slot; + /*_.CONT__V18*/ meltfptr[5] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:8572:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:8571:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.LOC__V19*/ - meltfptr[18] = slot; + /*_.LOC__V19*/ meltfptr[18] = slot; }; ; - /*_#DLINE__L6*/ - meltfnum[0] = + /*_#DLINE__L6*/ meltfnum[0] = (melt_get_int((melt_ptr_t)(/*_.LOC__V19*/ meltfptr[18])));; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8575:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8574:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -3662,8 +3387,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L7*/ - meltfnum[1] = + /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -3671,9 +3395,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:8575:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8574:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3691,7 +3414,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8575:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8574:/ apply"); /*apply*/ { union meltparam_un argtab[5]; @@ -3701,25 +3424,21 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8575; + argtab[2].meltbp_long = 8574; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_this_line dline="; /*^apply.arg*/ argtab[4].meltbp_long = /*_#DLINE__L6*/ meltfnum[0]; - /*_.MELT_DEBUG_FUN__V21*/ - meltfptr[20] = 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); + /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20] = 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___V20*/ - meltfptr[19] = /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20];; + /*_._IF___V20*/ meltfptr[19] = /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8575:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ - meltfnum[7] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8574:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V21*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20] = 0 ; } ; } @@ -3731,9 +3450,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:8575:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:8574:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -3742,11 +3460,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V20*/ - meltfptr[19] = 0 ; + /*clear*/ /*_._IF___V20*/ meltfptr[19] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -3769,12 +3485,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#gtI__L9*/ - meltfnum[7] = + /*_#gtI__L9*/ meltfnum[7] = ((/*_#DLINE__L6*/ meltfnum[0]) > (0));; - MELT_LOCATION("warmelt-macro.melt:8576:/ cond"); - /*cond*/ - if (/*_#gtI__L9*/ meltfnum[7]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8575:/ cond"); + /*cond*/ if (/*_#gtI__L9*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3784,13 +3498,11 @@ meltlab_endgetargs: /*_.BOX__V23*/ meltfptr[19] = /*full constboxing*/ /*boxing ctype_long*/ meltgc_new_int((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))), (/*_#DLINE__L6*/ meltfnum[0]));; /*^compute*/ - /*_._IF___V22*/ - meltfptr[20] = /*_.BOX__V23*/ meltfptr[19];; + /*_._IF___V22*/ meltfptr[20] = /*_.BOX__V23*/ meltfptr[19];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8576:/ clear"); - /*clear*/ /*_.BOX__V23*/ - meltfptr[19] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8575:/ clear"); + /*clear*/ /*_.BOX__V23*/ meltfptr[19] = 0 ; } ; } @@ -3803,52 +3515,42 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8576:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8575:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_._IF___V22*/ meltfptr[20];; - MELT_LOCATION("warmelt-macro.melt:8576:/ putxtraresult"); + /*_._RETVAL___V1*/ meltfptr[0] = /*_._IF___V22*/ meltfptr[20];; + MELT_LOCATION("warmelt-macro.melt:8575:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto meltlabend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) goto meltlabend_rout; if (meltxrestab_[0].meltbp_aptr) *(meltxrestab_[0].meltbp_aptr) = (melt_ptr_t) ((/*nil*/NULL)); ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - /*_.LET___V17*/ - meltfptr[15] = /*_.RETURN___V24*/ meltfptr[19];; + /*finalret*/ goto meltlabend_rout ; + /*_.LET___V17*/ meltfptr[15] = /*_.RETURN___V24*/ meltfptr[19];; - MELT_LOCATION("warmelt-macro.melt:8570:/ clear"); - /*clear*/ /*_.CONT__V18*/ - meltfptr[5] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8569:/ clear"); + /*clear*/ /*_.CONT__V18*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.LOC__V19*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.LOC__V19*/ meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_#DLINE__L6*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#DLINE__L6*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#gtI__L9*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#gtI__L9*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V22*/ - meltfptr[20] = 0 ; + /*clear*/ /*_._IF___V22*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V24*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.RETURN___V24*/ meltfptr[19] = 0 ; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8565:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8564:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { - MELT_LOCATION("warmelt-macro.melt:8565:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:8564:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -3860,22 +3562,17 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; } ; @@ -3957,8 +3654,7 @@ meltrout_152_WARMELTmiMACRO_MEXPAND_THIS_FILE(meltclosure_ptr_t meltclosp_, melt /* end of frame for routine meltrout_152_WARMELTmiMACRO_MEXPAND_THIS_FILE fromline 1756 */ - /* classy proc frame meltrout_152_WARMELTmiMACRO_MEXPAND_THIS_FILE */ - MeltFrame_meltrout_152_WARMELTmiMACRO_MEXPAND_THIS_FILE + /* classy proc frame meltrout_152_WARMELTmiMACRO_MEXPAND_THIS_FILE */ MeltFrame_meltrout_152_WARMELTmiMACRO_MEXPAND_THIS_FILE meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_152_WARMELTmiMACRO_MEXPAND_THIS_FILE fromline 1785*/ #if ENABLE_CHECKING @@ -3971,8 +3667,7 @@ meltrout_152_WARMELTmiMACRO_MEXPAND_THIS_FILE(meltclosure_ptr_t meltclosp_, melt #define meltframe meltfram__ melt_trace_start("MEXPAND_THIS_FILE", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -3981,31 +3676,27 @@ meltrout_152_WARMELTmiMACRO_MEXPAND_THIS_FILE(meltclosure_ptr_t meltclosp_, melt /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:8589:/ getarg"); - /*_.SEXPR__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + MELT_LOCATION("warmelt-macro.melt:8588:/ getarg"); + /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MEXPANDER__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.MEXPANDER__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODCTX__V5*/ - meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.MODCTX__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) != NULL); ; @@ -4019,7 +3710,7 @@ meltlab_endgetargs: #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8590:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8589:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -4037,8 +3728,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -4046,9 +3736,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:8590:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8589:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4066,7 +3755,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8590:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8589:/ apply"); /*apply*/ { union meltparam_un argtab[5]; @@ -4076,25 +3765,21 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8590; + argtab[2].meltbp_long = 8589; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_this_file sexpr="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 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); + /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 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___V6*/ - meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8590:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8589:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; } ; } @@ -4106,9 +3791,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:8590:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:8589:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -4117,11 +3801,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4143,7 +3825,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8591:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8590:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -4151,19 +3833,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ - meltfnum[1] = + /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:8591:/ cond"); - /*cond*/ - if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8590:/ cond"); + /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:8591:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8590:/ cond.else"); /*^block*/ /*anyblock*/ @@ -4182,34 +3862,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8591; + argtab[2].meltbp_long = 8590; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8591:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8590:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ - meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8591:/ clear"); - /*clear*/ /*_#IS_A__L3*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8590:/ clear"); + /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V9*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4219,7 +3893,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8592:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8591:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -4227,19 +3901,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ - meltfnum[0] = + /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:8592:/ cond"); - /*cond*/ - if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8591:/ cond"); + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:8592:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8591:/ cond.else"); /*^block*/ /*anyblock*/ @@ -4258,34 +3930,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8592; + argtab[2].meltbp_long = 8591; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8592:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8591:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ - meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8592:/ clear"); - /*clear*/ /*_#IS_A__L4*/ - meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8591:/ clear"); + /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4295,7 +3961,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8593:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8592:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -4303,19 +3969,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_OBJECT__L5*/ - meltfnum[1] = + /*_#IS_OBJECT__L5*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION("warmelt-macro.melt:8593:/ cond"); - /*cond*/ - if (/*_#IS_OBJECT__L5*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8592:/ cond"); + /*cond*/ if (/*_#IS_OBJECT__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:8593:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8592:/ cond.else"); /*^block*/ /*anyblock*/ @@ -4334,34 +3998,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8593; + argtab[2].meltbp_long = 8592; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ - meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8593:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ - meltfptr[15] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8592:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ - meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8593:/ clear"); - /*clear*/ /*_#IS_OBJECT__L5*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8592:/ clear"); + /*clear*/ /*_#IS_OBJECT__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4369,36 +4027,32 @@ meltlab_endgetargs: /*_.IFCPP___V14*/ meltfptr[12] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; - MELT_LOCATION("warmelt-macro.melt:8594:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8593:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:8595:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:8594:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS"); - /*_.CONT__V18*/ - meltfptr[5] = slot; + /*_.CONT__V18*/ meltfptr[5] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:8596:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:8595:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.LOC__V19*/ - meltfptr[18] = slot; + /*_.LOC__V19*/ meltfptr[18] = slot; }; ; MELT_CHECK_SIGNAL(); ; - /*_#IS_MIXINT__L6*/ - meltfnum[0] = + /*_#IS_MIXINT__L6*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.LOC__V19*/ meltfptr[18])) == MELTOBMAG_MIXINT);; - MELT_LOCATION("warmelt-macro.melt:8598:/ cond"); - /*cond*/ - if (/*_#IS_MIXINT__L6*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8597:/ cond"); + /*cond*/ if (/*_#IS_MIXINT__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4408,13 +4062,11 @@ meltlab_endgetargs: /*_.MIXINT_VAL__V21*/ meltfptr[20] = (melt_val_mixint((melt_ptr_t)(/*_.LOC__V19*/ meltfptr[18])));; /*^compute*/ - /*_.DFILNAM__V20*/ - meltfptr[19] = /*_.MIXINT_VAL__V21*/ meltfptr[20];; + /*_.DFILNAM__V20*/ meltfptr[19] = /*_.MIXINT_VAL__V21*/ meltfptr[20];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8598:/ clear"); - /*clear*/ /*_.MIXINT_VAL__V21*/ - meltfptr[20] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8597:/ clear"); + /*clear*/ /*_.MIXINT_VAL__V21*/ meltfptr[20] = 0 ; } ; } @@ -4428,12 +4080,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MIXLOC__L7*/ - meltfnum[1] = + /*_#IS_MIXLOC__L7*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.LOC__V19*/ meltfptr[18])) == MELTOBMAG_MIXLOC);; - MELT_LOCATION("warmelt-macro.melt:8599:/ cond"); - /*cond*/ - if (/*_#IS_MIXLOC__L7*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8598:/ cond"); + /*cond*/ if (/*_#IS_MIXLOC__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4443,13 +4093,11 @@ meltlab_endgetargs: /*_.MIXLOC_VAL__V23*/ meltfptr[22] = (melt_val_mixloc((melt_ptr_t)(/*_.LOC__V19*/ meltfptr[18])));; /*^compute*/ - /*_._IFELSE___V22*/ - meltfptr[20] = /*_.MIXLOC_VAL__V23*/ meltfptr[22];; + /*_._IFELSE___V22*/ meltfptr[20] = /*_.MIXLOC_VAL__V23*/ meltfptr[22];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8599:/ clear"); - /*clear*/ /*_.MIXLOC_VAL__V23*/ - meltfptr[22] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8598:/ clear"); + /*clear*/ /*_.MIXLOC_VAL__V23*/ meltfptr[22] = 0 ; } ; } @@ -4460,23 +4108,20 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.DFILNAM__V20*/ - meltfptr[19] = /*_._IFELSE___V22*/ meltfptr[20];; + /*_.DFILNAM__V20*/ meltfptr[19] = /*_._IFELSE___V22*/ meltfptr[20];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8598:/ clear"); - /*clear*/ /*_#IS_MIXLOC__L7*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8597:/ clear"); + /*clear*/ /*_#IS_MIXLOC__L7*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V22*/ - meltfptr[20] = 0 ; + /*clear*/ /*_._IFELSE___V22*/ meltfptr[20] = 0 ; } ; } ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8601:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8600:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -4494,8 +4139,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L8*/ - meltfnum[1] = + /*_#MELT_NEED_DBG__L8*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -4503,9 +4147,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:8601:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L8*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8600:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4523,7 +4166,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8601:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8600:/ apply"); /*apply*/ { union meltparam_un argtab[5]; @@ -4533,25 +4176,21 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8601; + argtab[2].meltbp_long = 8600; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_this_file dfilnam="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.DFILNAM__V20*/ meltfptr[19]; - /*_.MELT_DEBUG_FUN__V25*/ - meltfptr[20] = 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); + /*_.MELT_DEBUG_FUN__V25*/ meltfptr[20] = 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___V24*/ - meltfptr[22] = /*_.MELT_DEBUG_FUN__V25*/ meltfptr[20];; + /*_._IF___V24*/ meltfptr[22] = /*_.MELT_DEBUG_FUN__V25*/ meltfptr[20];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8601:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L9*/ - meltfnum[8] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8600:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V25*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V25*/ meltfptr[20] = 0 ; } ; } @@ -4563,9 +4202,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:8601:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:8600:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -4574,11 +4212,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L8*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V24*/ - meltfptr[22] = 0 ; + /*clear*/ /*_._IF___V24*/ meltfptr[22] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4601,14 +4237,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8602:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8601:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.DFILNAM__V20*/ meltfptr[19];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.DFILNAM__V20*/ meltfptr[19];; { - MELT_LOCATION("warmelt-macro.melt:8602:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:8601:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -4620,37 +4255,29 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - /*_.LET___V17*/ - meltfptr[15] = /*_.RETURN___V26*/ meltfptr[20];; + /*finalret*/ goto meltlabend_rout ; + /*_.LET___V17*/ meltfptr[15] = /*_.RETURN___V26*/ meltfptr[20];; - MELT_LOCATION("warmelt-macro.melt:8594:/ clear"); - /*clear*/ /*_.CONT__V18*/ - meltfptr[5] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8593:/ clear"); + /*clear*/ /*_.CONT__V18*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.LOC__V19*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.LOC__V19*/ meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_MIXINT__L6*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_MIXINT__L6*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.DFILNAM__V20*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.DFILNAM__V20*/ meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V26*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.RETURN___V26*/ meltfptr[20] = 0 ; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8589:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8588:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { - MELT_LOCATION("warmelt-macro.melt:8589:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:8588:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -4662,22 +4289,17 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; } ; @@ -4759,8 +4381,7 @@ meltrout_153_WARMELTmiMACRO_MEXPAND_DEBUG(meltclosure_ptr_t meltclosp_, melt_ptr /* end of frame for routine meltrout_153_WARMELTmiMACRO_MEXPAND_DEBUG fromline 1756 */ - /* classy proc frame meltrout_153_WARMELTmiMACRO_MEXPAND_DEBUG */ - MeltFrame_meltrout_153_WARMELTmiMACRO_MEXPAND_DEBUG + /* classy proc frame meltrout_153_WARMELTmiMACRO_MEXPAND_DEBUG */ MeltFrame_meltrout_153_WARMELTmiMACRO_MEXPAND_DEBUG meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_153_WARMELTmiMACRO_MEXPAND_DEBUG fromline 1785*/ #if ENABLE_CHECKING @@ -4773,8 +4394,7 @@ meltrout_153_WARMELTmiMACRO_MEXPAND_DEBUG(meltclosure_ptr_t meltclosp_, melt_ptr #define meltframe meltfram__ melt_trace_start("MEXPAND_DEBUG", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -4783,31 +4403,27 @@ meltrout_153_WARMELTmiMACRO_MEXPAND_DEBUG(meltclosure_ptr_t meltclosp_, melt_ptr /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:8615:/ getarg"); - /*_.SEXPR__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + MELT_LOCATION("warmelt-macro.melt:8614:/ getarg"); + /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MEXPANDER__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.MEXPANDER__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODCTX__V5*/ - meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.MODCTX__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) != NULL); ; @@ -4821,7 +4437,7 @@ meltlab_endgetargs: #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8616:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8615:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -4839,8 +4455,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -4848,9 +4463,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:8616:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8615:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4868,7 +4482,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8616:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8615:/ apply"); /*apply*/ { union meltparam_un argtab[5]; @@ -4878,25 +4492,21 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8616; + argtab[2].meltbp_long = 8615; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_debug sexpr="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 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); + /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 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___V6*/ - meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8616:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8615:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; } ; } @@ -4908,9 +4518,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:8616:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:8615:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -4919,11 +4528,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -4945,7 +4552,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8617:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8616:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -4953,19 +4560,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ - meltfnum[1] = + /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:8617:/ cond"); - /*cond*/ - if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8616:/ cond"); + /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:8617:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8616:/ cond.else"); /*^block*/ /*anyblock*/ @@ -4984,34 +4589,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8617; + argtab[2].meltbp_long = 8616; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8617:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8616:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ - meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8617:/ clear"); - /*clear*/ /*_#IS_A__L3*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8616:/ clear"); + /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V9*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5021,7 +4620,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8618:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8617:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -5029,19 +4628,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ - meltfnum[0] = + /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:8618:/ cond"); - /*cond*/ - if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8617:/ cond"); + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:8618:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8617:/ cond.else"); /*^block*/ /*anyblock*/ @@ -5060,34 +4657,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8618; + argtab[2].meltbp_long = 8617; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8618:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8617:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ - meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8618:/ clear"); - /*clear*/ /*_#IS_A__L4*/ - meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8617:/ clear"); + /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5097,7 +4688,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8619:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8618:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -5105,19 +4696,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_OBJECT__L5*/ - meltfnum[1] = + /*_#IS_OBJECT__L5*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION("warmelt-macro.melt:8619:/ cond"); - /*cond*/ - if (/*_#IS_OBJECT__L5*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8618:/ cond"); + /*cond*/ if (/*_#IS_OBJECT__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:8619:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8618:/ cond.else"); /*^block*/ /*anyblock*/ @@ -5136,34 +4725,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8619; + argtab[2].meltbp_long = 8618; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ - meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8619:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ - meltfptr[15] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8618:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ - meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8619:/ clear"); - /*clear*/ /*_#IS_OBJECT__L5*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8618:/ clear"); + /*clear*/ /*_#IS_OBJECT__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -5171,36 +4754,32 @@ meltlab_endgetargs: /*_.IFCPP___V14*/ meltfptr[12] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; - MELT_LOCATION("warmelt-macro.melt:8620:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8619:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:8621:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:8620:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS"); - /*_.CONT__V18*/ - meltfptr[5] = slot; + /*_.CONT__V18*/ meltfptr[5] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:8622:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:8621:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.LOC__V19*/ - meltfptr[18] = slot; + /*_.LOC__V19*/ meltfptr[18] = slot; }; ; MELT_CHECK_SIGNAL(); ; - /*_#IS_MIXINT__L6*/ - meltfnum[0] = + /*_#IS_MIXINT__L6*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.LOC__V19*/ meltfptr[18])) == MELTOBMAG_MIXINT);; - MELT_LOCATION("warmelt-macro.melt:8624:/ cond"); - /*cond*/ - if (/*_#IS_MIXINT__L6*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8623:/ cond"); + /*cond*/ if (/*_#IS_MIXINT__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5210,13 +4789,11 @@ meltlab_endgetargs: /*_.MIXINT_VAL__V21*/ meltfptr[20] = (melt_val_mixint((melt_ptr_t)(/*_.LOC__V19*/ meltfptr[18])));; /*^compute*/ - /*_.DFILNAM__V20*/ - meltfptr[19] = /*_.MIXINT_VAL__V21*/ meltfptr[20];; + /*_.DFILNAM__V20*/ meltfptr[19] = /*_.MIXINT_VAL__V21*/ meltfptr[20];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8624:/ clear"); - /*clear*/ /*_.MIXINT_VAL__V21*/ - meltfptr[20] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8623:/ clear"); + /*clear*/ /*_.MIXINT_VAL__V21*/ meltfptr[20] = 0 ; } ; } @@ -5230,12 +4807,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_MIXLOC__L7*/ - meltfnum[1] = + /*_#IS_MIXLOC__L7*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.LOC__V19*/ meltfptr[18])) == MELTOBMAG_MIXLOC);; - MELT_LOCATION("warmelt-macro.melt:8625:/ cond"); - /*cond*/ - if (/*_#IS_MIXLOC__L7*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8624:/ cond"); + /*cond*/ if (/*_#IS_MIXLOC__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5245,13 +4820,11 @@ meltlab_endgetargs: /*_.MIXLOC_VAL__V23*/ meltfptr[22] = (melt_val_mixloc((melt_ptr_t)(/*_.LOC__V19*/ meltfptr[18])));; /*^compute*/ - /*_._IFELSE___V22*/ - meltfptr[20] = /*_.MIXLOC_VAL__V23*/ meltfptr[22];; + /*_._IFELSE___V22*/ meltfptr[20] = /*_.MIXLOC_VAL__V23*/ meltfptr[22];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8625:/ clear"); - /*clear*/ /*_.MIXLOC_VAL__V23*/ - meltfptr[22] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8624:/ clear"); + /*clear*/ /*_.MIXLOC_VAL__V23*/ meltfptr[22] = 0 ; } ; } @@ -5262,90 +4835,80 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.DFILNAM__V20*/ - meltfptr[19] = /*_._IFELSE___V22*/ meltfptr[20];; + /*_.DFILNAM__V20*/ meltfptr[19] = /*_._IFELSE___V22*/ meltfptr[20];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8624:/ clear"); - /*clear*/ /*_#IS_MIXLOC__L7*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8623:/ clear"); + /*clear*/ /*_#IS_MIXLOC__L7*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V22*/ - meltfptr[20] = 0 ; + /*clear*/ /*_._IFELSE___V22*/ meltfptr[20] = 0 ; } ; } ; - /*_#DLINE__L8*/ - meltfnum[1] = + /*_#DLINE__L8*/ meltfnum[1] = (melt_get_int((melt_ptr_t)(/*_.LOC__V19*/ meltfptr[18])));; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8627:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8626:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_5_MELT_DEBUG_FUN*/ meltfrout->tabval[5]); - /*_.DEBUGFUNBIND__V24*/ - meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.DEBUGFUNBIND__V24*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8628:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8627:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_6_MELT_CALLCOUNT*/ meltfrout->tabval[6]); - /*_.THECOUNTBIND__V25*/ - meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.THECOUNTBIND__V25*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8629:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8628:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_7_MELT_NEED_DBG*/ meltfrout->tabval[7]); - /*_.THENEEDDBGBIND__V26*/ - meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.THENEEDDBGBIND__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8630:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8629:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_8_MELT_INCREMENT_DBGCOUNTER*/ meltfrout->tabval[8]); - /*_.THEINCRDBGBIND__V27*/ - meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.THEINCRDBGBIND__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.LIST_FIRST__V28*/ - meltfptr[27] = + /*_.LIST_FIRST__V28*/ meltfptr[27] = (melt_list_first((melt_ptr_t)(/*_.CONT__V18*/ meltfptr[5])));; /*^compute*/ - /*_.CURPAIR__V29*/ - meltfptr[28] = + /*_.CURPAIR__V29*/ meltfptr[28] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V28*/ meltfptr[27])));; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8632:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8631:/ apply"); /*apply*/ { union meltparam_un argtab[3]; @@ -5356,11 +4919,10 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; - /*_.XARGLIST__V30*/ - meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_PAIRLIST_AS_LIST*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.CURPAIR__V29*/ meltfptr[28]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.XARGLIST__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_PAIRLIST_AS_LIST*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.CURPAIR__V29*/ meltfptr[28]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:8633:/ blockmultialloc"); + MELT_LOCATION("warmelt-macro.melt:8632:/ blockmultialloc"); /*multiallocblock*/ { struct meltletrec_1_st @@ -5372,13 +4934,11 @@ meltlab_endgetargs: meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill*/ /*inipair rpair_0___PAIROFLIST_x3*/ - /*_._PAIROFLIST__V32*/ - meltfptr[31] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0___PAIROFLIST_x3; + /*_._PAIROFLIST__V32*/ meltfptr[31] = (melt_ptr_t) &meltletrec_1_ptr->rpair_0___PAIROFLIST_x3; meltletrec_1_ptr->rpair_0___PAIROFLIST_x3.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_PAIR)))); /*inilist rlist_1__LIST_*/ - /*_.LIST___V33*/ - meltfptr[32] = (melt_ptr_t) &meltletrec_1_ptr->rlist_1__LIST_; + /*_.LIST___V33*/ meltfptr[32] = (melt_ptr_t) &meltletrec_1_ptr->rlist_1__LIST_; meltletrec_1_ptr->rlist_1__LIST_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_LIST)))); @@ -5400,25 +4960,20 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.LIST___V33*/ meltfptr[32]); ; - /*_.DBGARGLIST__V31*/ - meltfptr[30] = /*_.LIST___V33*/ meltfptr[32];; + /*_.DBGARGLIST__V31*/ meltfptr[30] = /*_.LIST___V33*/ meltfptr[32];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8633:/ clear"); - /*clear*/ /*_._PAIROFLIST__V32*/ - meltfptr[31] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8632:/ clear"); + /*clear*/ /*_._PAIROFLIST__V32*/ meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V33*/ - meltfptr[32] = 0 ; + /*clear*/ /*_.LIST___V33*/ meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_._PAIROFLIST__V32*/ - meltfptr[31] = 0 ; + /*clear*/ /*_._PAIROFLIST__V32*/ meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST___V33*/ - meltfptr[32] = 0 ; + /*clear*/ /*_.LIST___V33*/ meltfptr[32] = 0 ; } /*end multiallocblock*/ ; - MELT_LOCATION("warmelt-macro.melt:8636:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8635:/ quasiblock"); @@ -5430,26 +4985,23 @@ meltlab_endgetargs: /*_.SEXPW__V34*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!S_EXPR_WEIGHT*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; - /*_#NBSEPW__L9*/ - meltfnum[8] = + /*_#NBSEPW__L9*/ meltfnum[8] = (melt_get_int((melt_ptr_t)(/*_.SEXPW__V34*/ meltfptr[31])));; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#gtI__L10*/ - meltfnum[9] = + /*_#gtI__L10*/ meltfnum[9] = ((/*_#NBSEPW__L9*/ meltfnum[8]) > (26));; - MELT_LOCATION("warmelt-macro.melt:8639:/ cond"); - /*cond*/ - if (/*_#gtI__L10*/ meltfnum[9]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8638:/ cond"); + /*cond*/ if (/*_#gtI__L10*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*_#OR___L11*/ meltfnum[10] = /*_#gtI__L10*/ meltfnum[9];; } else { - MELT_LOCATION("warmelt-macro.melt:8639:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8638:/ cond.else"); /*^block*/ /*anyblock*/ @@ -5458,20 +5010,17 @@ meltlab_endgetargs: /*_#NULL__L12*/ meltfnum[11] = (/*null*/(/*_.SEXPW__V34*/ meltfptr[31]) == NULL);; /*^compute*/ - /*_#OR___L11*/ - meltfnum[10] = /*_#NULL__L12*/ meltfnum[11];; + /*_#OR___L11*/ meltfnum[10] = /*_#NULL__L12*/ meltfnum[11];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8639:/ clear"); - /*clear*/ /*_#NULL__L12*/ - meltfnum[11] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8638:/ clear"); + /*clear*/ /*_#NULL__L12*/ meltfnum[11] = 0 ; } ; } ; /*^cond*/ - /*cond*/ - if (/*_#OR___L11*/ meltfnum[10]) /*then*/ + /*cond*/ if (/*_#OR___L11*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5481,7 +5030,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8644:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8643:/ apply"); /*apply*/ { union meltparam_un argtab[2]; @@ -5490,51 +5039,42 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "weight:"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPW__V34*/ meltfptr[31]; - /*_.STRING4OUT__V35*/ - meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!STRING4OUT*/ meltfrout->tabval[11])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[12])), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.STRING4OUT__V35*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!STRING4OUT*/ meltfrout->tabval[11])), (melt_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[12])), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; { - MELT_LOCATION("warmelt-macro.melt:8642:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:8641:/ locexp"); melt_warning_str(0, (melt_ptr_t)(/*_.LOC__V19*/ meltfptr[18]), ( "suspicious very heavy (DEBUG ....)"), (melt_ptr_t)(/*_.STRING4OUT__V35*/ meltfptr[32])); } ; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8639:/ clear"); - /*clear*/ /*_.STRING4OUT__V35*/ - meltfptr[32] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8638:/ clear"); + /*clear*/ /*_.STRING4OUT__V35*/ meltfptr[32] = 0 ; } ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:8636:/ clear"); - /*clear*/ /*_.SEXPW__V34*/ - meltfptr[31] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8635:/ clear"); + /*clear*/ /*_.SEXPW__V34*/ meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_#NBSEPW__L9*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#NBSEPW__L9*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_#gtI__L10*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#gtI__L10*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_#OR___L11*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#OR___L11*/ meltfnum[10] = 0 ; MELT_CHECK_SIGNAL(); ; - /*_#IS_STRING__L13*/ - meltfnum[11] = + /*_#IS_STRING__L13*/ meltfnum[11] = (melt_magic_discr((melt_ptr_t)(/*_.DFILNAM__V20*/ meltfptr[19])) == MELTOBMAG_STRING);; /*^compute*/ - /*_#NOT__L14*/ - meltfnum[8] = + /*_#NOT__L14*/ meltfnum[8] = (!(/*_#IS_STRING__L13*/ meltfnum[11]));; - MELT_LOCATION("warmelt-macro.melt:8646:/ cond"); - /*cond*/ - if (/*_#NOT__L14*/ meltfnum[8]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8645:/ cond"); + /*cond*/ if (/*_#NOT__L14*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5543,19 +5083,17 @@ meltlab_endgetargs: { - MELT_LOCATION("warmelt-macro.melt:8648:/ locexp"); - /* error_plain */ - melt_error_str((melt_ptr_t)(/*_.LOC__V19*/ meltfptr[18]), ( "(DEBUG ...) used without file location"), (melt_ptr_t)0); + MELT_LOCATION("warmelt-macro.melt:8647:/ locexp"); + /* error_plain */ melt_error_str((melt_ptr_t)(/*_.LOC__V19*/ meltfptr[18]), ( "(DEBUG ...) used without file location"), (melt_ptr_t)0); } ; - MELT_LOCATION("warmelt-macro.melt:8649:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8648:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { - MELT_LOCATION("warmelt-macro.melt:8649:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:8648:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -5567,24 +5105,19 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - MELT_LOCATION("warmelt-macro.melt:8647:/ quasiblock"); + /*finalret*/ goto meltlabend_rout ; + MELT_LOCATION("warmelt-macro.melt:8646:/ quasiblock"); - /*_.PROGN___V38*/ - meltfptr[37] = /*_.RETURN___V37*/ meltfptr[31];; + /*_.PROGN___V38*/ meltfptr[37] = /*_.RETURN___V37*/ meltfptr[31];; /*^compute*/ - /*_._IF___V36*/ - meltfptr[32] = /*_.PROGN___V38*/ meltfptr[37];; + /*_._IF___V36*/ meltfptr[32] = /*_.PROGN___V38*/ meltfptr[37];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8646:/ clear"); - /*clear*/ /*_.RETURN___V37*/ - meltfptr[31] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8645:/ clear"); + /*clear*/ /*_.RETURN___V37*/ meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V38*/ - meltfptr[37] = 0 ; + /*clear*/ /*_.PROGN___V38*/ meltfptr[37] = 0 ; } ; } @@ -5598,19 +5131,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_A__L15*/ - meltfnum[9] = + /*_#IS_A__L15*/ meltfnum[9] = melt_is_instance_of((melt_ptr_t)(/*_.DEBUGFUNBIND__V24*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_FUNCTION_BINDING*/ meltfrout->tabval[14])));; - MELT_LOCATION("warmelt-macro.melt:8650:/ cond"); - /*cond*/ - if (/*_#IS_A__L15*/ meltfnum[9]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8649:/ cond"); + /*cond*/ if (/*_#IS_A__L15*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*_#OR___L16*/ meltfnum[10] = /*_#IS_A__L15*/ meltfnum[9];; } else { - MELT_LOCATION("warmelt-macro.melt:8650:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8649:/ cond.else"); /*^block*/ /*anyblock*/ @@ -5619,23 +5150,19 @@ meltlab_endgetargs: /*_#IS_A__L17*/ meltfnum[16] = melt_is_instance_of((melt_ptr_t)(/*_.DEBUGFUNBIND__V24*/ meltfptr[22]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ meltfrout->tabval[13])));; /*^compute*/ - /*_#OR___L16*/ - meltfnum[10] = /*_#IS_A__L17*/ meltfnum[16];; + /*_#OR___L16*/ meltfnum[10] = /*_#IS_A__L17*/ meltfnum[16];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8650:/ clear"); - /*clear*/ /*_#IS_A__L17*/ - meltfnum[16] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8649:/ clear"); + /*clear*/ /*_#IS_A__L17*/ meltfnum[16] = 0 ; } ; } ; - /*_#NOT__L18*/ - meltfnum[16] = + /*_#NOT__L18*/ meltfnum[16] = (!(/*_#OR___L16*/ meltfnum[10]));; - MELT_LOCATION("warmelt-macro.melt:8650:/ cond"); - /*cond*/ - if (/*_#NOT__L18*/ meltfnum[16]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8649:/ cond"); + /*cond*/ if (/*_#NOT__L18*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5644,19 +5171,17 @@ meltlab_endgetargs: { - MELT_LOCATION("warmelt-macro.melt:8653:/ locexp"); - /* error_plain */ - melt_error_str((melt_ptr_t)(/*_.LOC__V19*/ meltfptr[18]), ( "(DEBUG ...) used in context with bad MELT_DEBUG_FUN"), (melt_ptr_t)0); + MELT_LOCATION("warmelt-macro.melt:8652:/ locexp"); + /* error_plain */ melt_error_str((melt_ptr_t)(/*_.LOC__V19*/ meltfptr[18]), ( "(DEBUG ...) used in context with bad MELT_DEBUG_FUN"), (melt_ptr_t)0); } ; - MELT_LOCATION("warmelt-macro.melt:8654:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8653:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { - MELT_LOCATION("warmelt-macro.melt:8654:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:8653:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -5668,24 +5193,19 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - MELT_LOCATION("warmelt-macro.melt:8652:/ quasiblock"); + /*finalret*/ goto meltlabend_rout ; + MELT_LOCATION("warmelt-macro.melt:8651:/ quasiblock"); - /*_.PROGN___V41*/ - meltfptr[40] = /*_.RETURN___V40*/ meltfptr[37];; + /*_.PROGN___V41*/ meltfptr[40] = /*_.RETURN___V40*/ meltfptr[37];; /*^compute*/ - /*_._IF___V39*/ - meltfptr[31] = /*_.PROGN___V41*/ meltfptr[40];; + /*_._IF___V39*/ meltfptr[31] = /*_.PROGN___V41*/ meltfptr[40];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8650:/ clear"); - /*clear*/ /*_.RETURN___V40*/ - meltfptr[37] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8649:/ clear"); + /*clear*/ /*_.RETURN___V40*/ meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V41*/ - meltfptr[40] = 0 ; + /*clear*/ /*_.PROGN___V41*/ meltfptr[40] = 0 ; } ; } @@ -5695,27 +5215,24 @@ meltlab_endgetargs: /*_._IF___V39*/ meltfptr[31] = /*reallynil*/ NULL ;; } ; - MELT_LOCATION("warmelt-macro.melt:8655:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8654:/ quasiblock"); MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L19*/ - meltfnum[18] = + /*_#IS_A__L19*/ meltfnum[18] = melt_is_instance_of((melt_ptr_t)(/*_.THECOUNTBIND__V25*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_PRIMITIVE_BINDING*/ meltfrout->tabval[15])));; - MELT_LOCATION("warmelt-macro.melt:8658:/ cond"); - /*cond*/ - if (/*_#IS_A__L19*/ meltfnum[18]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8657:/ cond"); + /*cond*/ if (/*_#IS_A__L19*/ meltfnum[18]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { - MELT_LOCATION("warmelt-macro.melt:8659:/ cond"); - /*cond*/ - if ( + MELT_LOCATION("warmelt-macro.melt:8658:/ cond"); + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.THECOUNTBIND__V25*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_PRIMITIVE_BINDING*/ meltfrout->tabval[15]))) ) /*then*/ @@ -5726,8 +5243,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.THECOUNTBIND__V25*/ meltfptr[20]) /*=obj*/; melt_object_get_field(slot,obj, 3, "PBIND_PRIMITIVE"); - /*_.PBIND_PRIMITIVE__V43*/ - meltfptr[40] = slot; + /*_.PBIND_PRIMITIVE__V43*/ meltfptr[40] = slot; }; ; } @@ -5738,13 +5254,11 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.THECOUNTPRIM__V42*/ - meltfptr[37] = /*_.PBIND_PRIMITIVE__V43*/ meltfptr[40];; + /*_.THECOUNTPRIM__V42*/ meltfptr[37] = /*_.PBIND_PRIMITIVE__V43*/ meltfptr[40];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8658:/ clear"); - /*clear*/ /*_.PBIND_PRIMITIVE__V43*/ - meltfptr[40] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8657:/ clear"); + /*clear*/ /*_.PBIND_PRIMITIVE__V43*/ meltfptr[40] = 0 ; } ; } @@ -5758,21 +5272,18 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L20*/ - meltfnum[19] = + /*_#IS_A__L20*/ meltfnum[19] = melt_is_instance_of((melt_ptr_t)(/*_.THECOUNTBIND__V25*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ meltfrout->tabval[13])));; - MELT_LOCATION("warmelt-macro.melt:8660:/ cond"); - /*cond*/ - if (/*_#IS_A__L20*/ meltfnum[19]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8659:/ cond"); + /*cond*/ if (/*_#IS_A__L20*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { - MELT_LOCATION("warmelt-macro.melt:8661:/ cond"); - /*cond*/ - if ( + MELT_LOCATION("warmelt-macro.melt:8660:/ cond"); + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.THECOUNTBIND__V25*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ meltfrout->tabval[13]))) ) /*then*/ @@ -5783,8 +5294,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.THECOUNTBIND__V25*/ meltfptr[20]) /*=obj*/; melt_object_get_field(slot,obj, 1, "VBIND_VALUE"); - /*_.VBIND_VALUE__V45*/ - meltfptr[44] = slot; + /*_.VBIND_VALUE__V45*/ meltfptr[44] = slot; }; ; } @@ -5795,13 +5305,11 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_._IFELSE___V44*/ - meltfptr[40] = /*_.VBIND_VALUE__V45*/ meltfptr[44];; + /*_._IFELSE___V44*/ meltfptr[40] = /*_.VBIND_VALUE__V45*/ meltfptr[44];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8660:/ clear"); - /*clear*/ /*_.VBIND_VALUE__V45*/ - meltfptr[44] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8659:/ clear"); + /*clear*/ /*_.VBIND_VALUE__V45*/ meltfptr[44] = 0 ; } ; } @@ -5814,19 +5322,17 @@ meltlab_endgetargs: { - MELT_LOCATION("warmelt-macro.melt:8663:/ locexp"); - /* error_plain */ - melt_error_str((melt_ptr_t)(/*_.LOC__V19*/ meltfptr[18]), ( "(DEBUG ...) used in context with bad THE_MELTCALLCOUNT"), (melt_ptr_t)0); + MELT_LOCATION("warmelt-macro.melt:8662:/ locexp"); + /* error_plain */ melt_error_str((melt_ptr_t)(/*_.LOC__V19*/ meltfptr[18]), ( "(DEBUG ...) used in context with bad THE_MELTCALLCOUNT"), (melt_ptr_t)0); } ; - MELT_LOCATION("warmelt-macro.melt:8664:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8663:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { - MELT_LOCATION("warmelt-macro.melt:8664:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:8663:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -5838,38 +5344,30 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - MELT_LOCATION("warmelt-macro.melt:8662:/ quasiblock"); + /*finalret*/ goto meltlabend_rout ; + MELT_LOCATION("warmelt-macro.melt:8661:/ quasiblock"); - /*_.PROGN___V47*/ - meltfptr[46] = /*_.RETURN___V46*/ meltfptr[44];; + /*_.PROGN___V47*/ meltfptr[46] = /*_.RETURN___V46*/ meltfptr[44];; /*^compute*/ - /*_._IFELSE___V44*/ - meltfptr[40] = /*_.PROGN___V47*/ meltfptr[46];; + /*_._IFELSE___V44*/ meltfptr[40] = /*_.PROGN___V47*/ meltfptr[46];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8660:/ clear"); - /*clear*/ /*_.RETURN___V46*/ - meltfptr[44] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8659:/ clear"); + /*clear*/ /*_.RETURN___V46*/ meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V47*/ - meltfptr[46] = 0 ; + /*clear*/ /*_.PROGN___V47*/ meltfptr[46] = 0 ; } ; } ; - /*_.THECOUNTPRIM__V42*/ - meltfptr[37] = /*_._IFELSE___V44*/ meltfptr[40];; + /*_.THECOUNTPRIM__V42*/ meltfptr[37] = /*_._IFELSE___V44*/ meltfptr[40];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8658:/ clear"); - /*clear*/ /*_#IS_A__L20*/ - meltfnum[19] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8657:/ clear"); + /*clear*/ /*_#IS_A__L20*/ meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V44*/ - meltfptr[40] = 0 ; + /*clear*/ /*_._IFELSE___V44*/ meltfptr[40] = 0 ; } ; } @@ -5877,7 +5375,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8668:/ blockmultialloc"); + MELT_LOCATION("warmelt-macro.melt:8667:/ blockmultialloc"); /*multiallocblock*/ { struct meltletrec_2_st @@ -5888,8 +5386,7 @@ meltlab_endgetargs: meltletrec_2_ptr = (struct meltletrec_2_st *) meltgc_allocate (sizeof (struct meltletrec_2_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x10*/ - /*_.TUPLREC___V49*/ - meltfptr[46] = (melt_ptr_t) &meltletrec_2_ptr->rtup_0__TUPLREC__x10; + /*_.TUPLREC___V49*/ meltfptr[46] = (melt_ptr_t) &meltletrec_2_ptr->rtup_0__TUPLREC__x10; meltletrec_2_ptr->rtup_0__TUPLREC__x10.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_2_ptr->rtup_0__TUPLREC__x10.nbval = 0; @@ -5897,19 +5394,16 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.TUPLREC___V49*/ meltfptr[46]); ; - /*_.TUPLE___V48*/ - meltfptr[44] = /*_.TUPLREC___V49*/ meltfptr[46];; + /*_.TUPLE___V48*/ meltfptr[44] = /*_.TUPLREC___V49*/ meltfptr[46];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8668:/ clear"); - /*clear*/ /*_.TUPLREC___V49*/ - meltfptr[46] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8667:/ clear"); + /*clear*/ /*_.TUPLREC___V49*/ meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLREC___V49*/ - meltfptr[46] = 0 ; + /*clear*/ /*_.TUPLREC___V49*/ meltfptr[46] = 0 ; } /*end multiallocblock*/ ; - MELT_LOCATION("warmelt-macro.melt:8665:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8664:/ quasiblock"); /*^rawallocobj*/ @@ -5917,8 +5411,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_PRIMITIVE*/ meltfrout->tabval[16])), (4), "CLASS_SOURCE_PRIMITIVE"); - /*_.INST__V51*/ - meltfptr[46] = + /*_.INST__V51*/ meltfptr[46] = newobj; }; ; @@ -5941,59 +5434,52 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V51*/ meltfptr[46], "newly made instance"); ; - /*_.DCOUNT__V50*/ - meltfptr[40] = /*_.INST__V51*/ meltfptr[46];; + /*_.DCOUNT__V50*/ meltfptr[40] = /*_.INST__V51*/ meltfptr[46];; { - MELT_LOCATION("warmelt-macro.melt:8670:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:8669:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.DBGARGLIST__V31*/ meltfptr[30]), (melt_ptr_t)(/*_.DCOUNT__V50*/ meltfptr[40])); } ; - MELT_LOCATION("warmelt-macro.melt:8655:/ clear"); - /*clear*/ /*_#IS_A__L19*/ - meltfnum[18] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8654:/ clear"); + /*clear*/ /*_#IS_A__L19*/ meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_.THECOUNTPRIM__V42*/ - meltfptr[37] = 0 ; + /*clear*/ /*_.THECOUNTPRIM__V42*/ meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLE___V48*/ - meltfptr[44] = 0 ; + /*clear*/ /*_.TUPLE___V48*/ meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.DCOUNT__V50*/ - meltfptr[40] = 0 ; + /*clear*/ /*_.DCOUNT__V50*/ meltfptr[40] = 0 ; { - MELT_LOCATION("warmelt-macro.melt:8672:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:8671:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.DBGARGLIST__V31*/ meltfptr[30]), (melt_ptr_t)(/*_.DFILNAM__V20*/ meltfptr[19])); } ; - /*_.MAKE_INTEGERBOX__V52*/ - meltfptr[37] = + /*_.MAKE_INTEGERBOX__V52*/ meltfptr[37] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_CONSTANT_INTEGER*/ meltfrout->tabval[17])), (/*_#DLINE__L8*/ meltfnum[1])));; { - MELT_LOCATION("warmelt-macro.melt:8673:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:8672:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.DBGARGLIST__V31*/ meltfptr[30]), (melt_ptr_t)(/*_.MAKE_INTEGERBOX__V52*/ meltfptr[37])); } ; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8674:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8673:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.XARGLIST__V30*/ meltfptr[29]; - /*_.LIST_APPEND2LIST__V53*/ - meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.DBGARGLIST__V31*/ meltfptr[30]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_APPEND2LIST__V53*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[18])), (melt_ptr_t)(/*_.DBGARGLIST__V31*/ meltfptr[30]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8675:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8674:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -6011,8 +5497,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L21*/ - meltfnum[19] = + /*_#MELT_NEED_DBG__L21*/ meltfnum[19] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -6020,9 +5505,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:8675:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L21*/ meltfnum[19]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8674:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L21*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6040,7 +5524,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8675:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8674:/ apply"); /*apply*/ { union meltparam_un argtab[5]; @@ -6050,25 +5534,21 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8675; + argtab[2].meltbp_long = 8674; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_debug dbgarglist"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.DBGARGLIST__V31*/ meltfptr[30]; - /*_.MELT_DEBUG_FUN__V55*/ - meltfptr[54] = 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); + /*_.MELT_DEBUG_FUN__V55*/ meltfptr[54] = 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___V54*/ - meltfptr[40] = /*_.MELT_DEBUG_FUN__V55*/ meltfptr[54];; + /*_._IF___V54*/ meltfptr[40] = /*_.MELT_DEBUG_FUN__V55*/ meltfptr[54];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8675:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L22*/ - meltfnum[18] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8674:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L22*/ meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V55*/ - meltfptr[54] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V55*/ meltfptr[54] = 0 ; } ; } @@ -6080,9 +5560,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:8675:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:8674:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -6091,11 +5570,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L21*/ - meltfnum[19] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L21*/ meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V54*/ - meltfptr[40] = 0 ; + /*clear*/ /*_._IF___V54*/ meltfptr[40] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -6115,31 +5592,27 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; - MELT_LOCATION("warmelt-macro.melt:8676:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8675:/ quasiblock"); - /*_#NBDBGARG__L23*/ - meltfnum[18] = + /*_#NBDBGARG__L23*/ meltfnum[18] = (melt_list_length((melt_ptr_t)(/*_.DBGARGLIST__V31*/ meltfptr[30])));; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_A__L24*/ - meltfnum[19] = + /*_#IS_A__L24*/ meltfnum[19] = melt_is_instance_of((melt_ptr_t)(/*_.THENEEDDBGBIND__V26*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_PRIMITIVE_BINDING*/ meltfrout->tabval[15])));; - MELT_LOCATION("warmelt-macro.melt:8680:/ cond"); - /*cond*/ - if (/*_#IS_A__L24*/ meltfnum[19]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8679:/ cond"); + /*cond*/ if (/*_#IS_A__L24*/ meltfnum[19]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { - MELT_LOCATION("warmelt-macro.melt:8681:/ cond"); - /*cond*/ - if ( + MELT_LOCATION("warmelt-macro.melt:8680:/ cond"); + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.THENEEDDBGBIND__V26*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_PRIMITIVE_BINDING*/ meltfrout->tabval[15]))) ) /*then*/ @@ -6150,8 +5623,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.THENEEDDBGBIND__V26*/ meltfptr[25]) /*=obj*/; melt_object_get_field(slot,obj, 3, "PBIND_PRIMITIVE"); - /*_.PBIND_PRIMITIVE__V58*/ - meltfptr[57] = slot; + /*_.PBIND_PRIMITIVE__V58*/ meltfptr[57] = slot; }; ; } @@ -6162,13 +5634,11 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.THENEEDDBG__V57*/ - meltfptr[40] = /*_.PBIND_PRIMITIVE__V58*/ meltfptr[57];; + /*_.THENEEDDBG__V57*/ meltfptr[40] = /*_.PBIND_PRIMITIVE__V58*/ meltfptr[57];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8680:/ clear"); - /*clear*/ /*_.PBIND_PRIMITIVE__V58*/ - meltfptr[57] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8679:/ clear"); + /*clear*/ /*_.PBIND_PRIMITIVE__V58*/ meltfptr[57] = 0 ; } ; } @@ -6182,21 +5652,18 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L25*/ - meltfnum[24] = + /*_#IS_A__L25*/ meltfnum[24] = melt_is_instance_of((melt_ptr_t)(/*_.THENEEDDBGBIND__V26*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ meltfrout->tabval[13])));; - MELT_LOCATION("warmelt-macro.melt:8682:/ cond"); - /*cond*/ - if (/*_#IS_A__L25*/ meltfnum[24]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8681:/ cond"); + /*cond*/ if (/*_#IS_A__L25*/ meltfnum[24]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { - MELT_LOCATION("warmelt-macro.melt:8683:/ cond"); - /*cond*/ - if ( + MELT_LOCATION("warmelt-macro.melt:8682:/ cond"); + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.THENEEDDBGBIND__V26*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ meltfrout->tabval[13]))) ) /*then*/ @@ -6207,8 +5674,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.THENEEDDBGBIND__V26*/ meltfptr[25]) /*=obj*/; melt_object_get_field(slot,obj, 1, "VBIND_VALUE"); - /*_.VBIND_VALUE__V60*/ - meltfptr[59] = slot; + /*_.VBIND_VALUE__V60*/ meltfptr[59] = slot; }; ; } @@ -6219,13 +5685,11 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_._IFELSE___V59*/ - meltfptr[57] = /*_.VBIND_VALUE__V60*/ meltfptr[59];; + /*_._IFELSE___V59*/ meltfptr[57] = /*_.VBIND_VALUE__V60*/ meltfptr[59];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8682:/ clear"); - /*clear*/ /*_.VBIND_VALUE__V60*/ - meltfptr[59] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8681:/ clear"); + /*clear*/ /*_.VBIND_VALUE__V60*/ meltfptr[59] = 0 ; } ; } @@ -6238,19 +5702,17 @@ meltlab_endgetargs: { - MELT_LOCATION("warmelt-macro.melt:8685:/ locexp"); - /* error_plain */ - melt_error_str((melt_ptr_t)(/*_.LOC__V19*/ meltfptr[18]), ( "(DEBUG ...) used in context with bad MELT_NEED_DBG"), (melt_ptr_t)0); + MELT_LOCATION("warmelt-macro.melt:8684:/ locexp"); + /* error_plain */ melt_error_str((melt_ptr_t)(/*_.LOC__V19*/ meltfptr[18]), ( "(DEBUG ...) used in context with bad MELT_NEED_DBG"), (melt_ptr_t)0); } ; - MELT_LOCATION("warmelt-macro.melt:8686:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8685:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { - MELT_LOCATION("warmelt-macro.melt:8686:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:8685:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -6262,38 +5724,30 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - MELT_LOCATION("warmelt-macro.melt:8684:/ quasiblock"); + /*finalret*/ goto meltlabend_rout ; + MELT_LOCATION("warmelt-macro.melt:8683:/ quasiblock"); - /*_.PROGN___V62*/ - meltfptr[61] = /*_.RETURN___V61*/ meltfptr[59];; + /*_.PROGN___V62*/ meltfptr[61] = /*_.RETURN___V61*/ meltfptr[59];; /*^compute*/ - /*_._IFELSE___V59*/ - meltfptr[57] = /*_.PROGN___V62*/ meltfptr[61];; + /*_._IFELSE___V59*/ meltfptr[57] = /*_.PROGN___V62*/ meltfptr[61];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8682:/ clear"); - /*clear*/ /*_.RETURN___V61*/ - meltfptr[59] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8681:/ clear"); + /*clear*/ /*_.RETURN___V61*/ meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V62*/ - meltfptr[61] = 0 ; + /*clear*/ /*_.PROGN___V62*/ meltfptr[61] = 0 ; } ; } ; - /*_.THENEEDDBG__V57*/ - meltfptr[40] = /*_._IFELSE___V59*/ meltfptr[57];; + /*_.THENEEDDBG__V57*/ meltfptr[40] = /*_._IFELSE___V59*/ meltfptr[57];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8680:/ clear"); - /*clear*/ /*_#IS_A__L25*/ - meltfnum[24] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8679:/ clear"); + /*clear*/ /*_#IS_A__L25*/ meltfnum[24] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V59*/ - meltfptr[57] = 0 ; + /*clear*/ /*_._IFELSE___V59*/ meltfptr[57] = 0 ; } ; } @@ -6301,7 +5755,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8690:/ blockmultialloc"); + MELT_LOCATION("warmelt-macro.melt:8689:/ blockmultialloc"); /*multiallocblock*/ { struct meltletrec_3_st @@ -6312,34 +5766,30 @@ meltlab_endgetargs: meltletrec_3_ptr = (struct meltletrec_3_st *) meltgc_allocate (sizeof (struct meltletrec_3_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x11*/ - /*_.TUPLREC___V64*/ - meltfptr[61] = (melt_ptr_t) &meltletrec_3_ptr->rtup_0__TUPLREC__x11; + /*_.TUPLREC___V64*/ meltfptr[61] = (melt_ptr_t) &meltletrec_3_ptr->rtup_0__TUPLREC__x11; meltletrec_3_ptr->rtup_0__TUPLREC__x11.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_3_ptr->rtup_0__TUPLREC__x11.nbval = 1; /*^putuple*/ /*putupl#13*/ - melt_assertmsg("putupl [:8690] #13 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V64*/ meltfptr[61]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl [:8690] #13 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V64*/ meltfptr[61])))); + melt_assertmsg("putupl [:8689] #13 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V64*/ meltfptr[61]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl [:8689] #13 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V64*/ meltfptr[61])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V64*/ meltfptr[61]))->tabval[0] = (melt_ptr_t)((/*!konst_19*/ meltfrout->tabval[19])); ; /*^touch*/ meltgc_touch(/*_.TUPLREC___V64*/ meltfptr[61]); ; - /*_.TUPLE___V63*/ - meltfptr[59] = /*_.TUPLREC___V64*/ meltfptr[61];; + /*_.TUPLE___V63*/ meltfptr[59] = /*_.TUPLREC___V64*/ meltfptr[61];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8690:/ clear"); - /*clear*/ /*_.TUPLREC___V64*/ - meltfptr[61] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8689:/ clear"); + /*clear*/ /*_.TUPLREC___V64*/ meltfptr[61] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLREC___V64*/ - meltfptr[61] = 0 ; + /*clear*/ /*_.TUPLREC___V64*/ meltfptr[61] = 0 ; } /*end multiallocblock*/ ; - MELT_LOCATION("warmelt-macro.melt:8687:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8686:/ quasiblock"); /*^rawallocobj*/ @@ -6347,8 +5797,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_PRIMITIVE*/ meltfrout->tabval[16])), (4), "CLASS_SOURCE_PRIMITIVE"); - /*_.INST__V66*/ - meltfptr[61] = + /*_.INST__V66*/ meltfptr[61] = newobj; }; ; @@ -6371,26 +5820,24 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V66*/ meltfptr[61], "newly made instance"); ; - /*_.DNEEDBG__V65*/ - meltfptr[57] = /*_.INST__V66*/ meltfptr[61];; + /*_.DNEEDBG__V65*/ meltfptr[57] = /*_.INST__V66*/ meltfptr[61];; MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8695:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8694:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!DISCR_MULTIPLE*/ meltfrout->tabval[23]); - /*_.LIST_TO_MULTIPLE__V67*/ - meltfptr[66] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[22])), (melt_ptr_t)(/*_.DBGARGLIST__V31*/ meltfptr[30]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.LIST_TO_MULTIPLE__V67*/ meltfptr[66] = melt_apply ((meltclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ meltfrout->tabval[22])), (melt_ptr_t)(/*_.DBGARGLIST__V31*/ meltfptr[30]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:8691:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8690:/ quasiblock"); /*^rawallocobj*/ @@ -6398,8 +5845,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_APPLY*/ meltfrout->tabval[20])), (4), "CLASS_SOURCE_APPLY"); - /*_.INST__V69*/ - meltfptr[68] = + /*_.INST__V69*/ meltfptr[68] = newobj; }; ; @@ -6422,27 +5868,23 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V69*/ meltfptr[68], "newly made instance"); ; - /*_.DCALL__V68*/ - meltfptr[67] = /*_.INST__V69*/ meltfptr[68];; + /*_.DCALL__V68*/ meltfptr[67] = /*_.INST__V69*/ meltfptr[68];; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_A__L26*/ - meltfnum[24] = + /*_#IS_A__L26*/ meltfnum[24] = melt_is_instance_of((melt_ptr_t)(/*_.THEINCRDBGBIND__V27*/ meltfptr[26]), (melt_ptr_t)((/*!CLASS_PRIMITIVE_BINDING*/ meltfrout->tabval[15])));; - MELT_LOCATION("warmelt-macro.melt:8698:/ cond"); - /*cond*/ - if (/*_#IS_A__L26*/ meltfnum[24]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8697:/ cond"); + /*cond*/ if (/*_#IS_A__L26*/ meltfnum[24]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { - MELT_LOCATION("warmelt-macro.melt:8699:/ cond"); - /*cond*/ - if ( + MELT_LOCATION("warmelt-macro.melt:8698:/ cond"); + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.THEINCRDBGBIND__V27*/ meltfptr[26]), (melt_ptr_t)((/*!CLASS_PRIMITIVE_BINDING*/ meltfrout->tabval[15]))) ) /*then*/ @@ -6453,8 +5895,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.THEINCRDBGBIND__V27*/ meltfptr[26]) /*=obj*/; melt_object_get_field(slot,obj, 3, "PBIND_PRIMITIVE"); - /*_.PBIND_PRIMITIVE__V71*/ - meltfptr[70] = slot; + /*_.PBIND_PRIMITIVE__V71*/ meltfptr[70] = slot; }; ; } @@ -6465,13 +5906,11 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_.THEINCRDBG__V70*/ - meltfptr[69] = /*_.PBIND_PRIMITIVE__V71*/ meltfptr[70];; + /*_.THEINCRDBG__V70*/ meltfptr[69] = /*_.PBIND_PRIMITIVE__V71*/ meltfptr[70];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8698:/ clear"); - /*clear*/ /*_.PBIND_PRIMITIVE__V71*/ - meltfptr[70] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8697:/ clear"); + /*clear*/ /*_.PBIND_PRIMITIVE__V71*/ meltfptr[70] = 0 ; } ; } @@ -6485,21 +5924,18 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L27*/ - meltfnum[26] = + /*_#IS_A__L27*/ meltfnum[26] = melt_is_instance_of((melt_ptr_t)(/*_.THEINCRDBGBIND__V27*/ meltfptr[26]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ meltfrout->tabval[13])));; - MELT_LOCATION("warmelt-macro.melt:8700:/ cond"); - /*cond*/ - if (/*_#IS_A__L27*/ meltfnum[26]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8699:/ cond"); + /*cond*/ if (/*_#IS_A__L27*/ meltfnum[26]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { - MELT_LOCATION("warmelt-macro.melt:8701:/ cond"); - /*cond*/ - if ( + MELT_LOCATION("warmelt-macro.melt:8700:/ cond"); + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.THEINCRDBGBIND__V27*/ meltfptr[26]), (melt_ptr_t)((/*!CLASS_VALUE_BINDING*/ meltfrout->tabval[13]))) ) /*then*/ @@ -6510,8 +5946,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.THEINCRDBGBIND__V27*/ meltfptr[26]) /*=obj*/; melt_object_get_field(slot,obj, 1, "VBIND_VALUE"); - /*_.VBIND_VALUE__V73*/ - meltfptr[72] = slot; + /*_.VBIND_VALUE__V73*/ meltfptr[72] = slot; }; ; } @@ -6522,13 +5957,11 @@ meltlab_endgetargs: } ; /*^compute*/ - /*_._IFELSE___V72*/ - meltfptr[70] = /*_.VBIND_VALUE__V73*/ meltfptr[72];; + /*_._IFELSE___V72*/ meltfptr[70] = /*_.VBIND_VALUE__V73*/ meltfptr[72];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8700:/ clear"); - /*clear*/ /*_.VBIND_VALUE__V73*/ - meltfptr[72] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8699:/ clear"); + /*clear*/ /*_.VBIND_VALUE__V73*/ meltfptr[72] = 0 ; } ; } @@ -6541,19 +5974,17 @@ meltlab_endgetargs: { - MELT_LOCATION("warmelt-macro.melt:8703:/ locexp"); - /* error_plain */ - melt_error_str((melt_ptr_t)(/*_.LOC__V19*/ meltfptr[18]), ( "(DEBUG ...) used in context with bad MELT_INCREMENT_DBGCOUNTER"), (melt_ptr_t)0); + MELT_LOCATION("warmelt-macro.melt:8702:/ locexp"); + /* error_plain */ melt_error_str((melt_ptr_t)(/*_.LOC__V19*/ meltfptr[18]), ( "(DEBUG ...) used in context with bad MELT_INCREMENT_DBGCOUNTER"), (melt_ptr_t)0); } ; - MELT_LOCATION("warmelt-macro.melt:8706:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8705:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { - MELT_LOCATION("warmelt-macro.melt:8706:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:8705:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -6565,38 +5996,30 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - MELT_LOCATION("warmelt-macro.melt:8702:/ quasiblock"); + /*finalret*/ goto meltlabend_rout ; + MELT_LOCATION("warmelt-macro.melt:8701:/ quasiblock"); - /*_.PROGN___V75*/ - meltfptr[74] = /*_.RETURN___V74*/ meltfptr[72];; + /*_.PROGN___V75*/ meltfptr[74] = /*_.RETURN___V74*/ meltfptr[72];; /*^compute*/ - /*_._IFELSE___V72*/ - meltfptr[70] = /*_.PROGN___V75*/ meltfptr[74];; + /*_._IFELSE___V72*/ meltfptr[70] = /*_.PROGN___V75*/ meltfptr[74];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8700:/ clear"); - /*clear*/ /*_.RETURN___V74*/ - meltfptr[72] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8699:/ clear"); + /*clear*/ /*_.RETURN___V74*/ meltfptr[72] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V75*/ - meltfptr[74] = 0 ; + /*clear*/ /*_.PROGN___V75*/ meltfptr[74] = 0 ; } ; } ; - /*_.THEINCRDBG__V70*/ - meltfptr[69] = /*_._IFELSE___V72*/ meltfptr[70];; + /*_.THEINCRDBG__V70*/ meltfptr[69] = /*_._IFELSE___V72*/ meltfptr[70];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8698:/ clear"); - /*clear*/ /*_#IS_A__L27*/ - meltfnum[26] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8697:/ clear"); + /*clear*/ /*_#IS_A__L27*/ meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V72*/ - meltfptr[70] = 0 ; + /*clear*/ /*_._IFELSE___V72*/ meltfptr[70] = 0 ; } ; } @@ -6604,7 +6027,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8711:/ blockmultialloc"); + MELT_LOCATION("warmelt-macro.melt:8710:/ blockmultialloc"); /*multiallocblock*/ { struct meltletrec_4_st @@ -6615,8 +6038,7 @@ meltlab_endgetargs: meltletrec_4_ptr = (struct meltletrec_4_st *) meltgc_allocate (sizeof (struct meltletrec_4_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x12*/ - /*_.TUPLREC___V77*/ - meltfptr[74] = (melt_ptr_t) &meltletrec_4_ptr->rtup_0__TUPLREC__x12; + /*_.TUPLREC___V77*/ meltfptr[74] = (melt_ptr_t) &meltletrec_4_ptr->rtup_0__TUPLREC__x12; meltletrec_4_ptr->rtup_0__TUPLREC__x12.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_4_ptr->rtup_0__TUPLREC__x12.nbval = 0; @@ -6624,19 +6046,16 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.TUPLREC___V77*/ meltfptr[74]); ; - /*_.TUPLE___V76*/ - meltfptr[72] = /*_.TUPLREC___V77*/ meltfptr[74];; + /*_.TUPLE___V76*/ meltfptr[72] = /*_.TUPLREC___V77*/ meltfptr[74];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8711:/ clear"); - /*clear*/ /*_.TUPLREC___V77*/ - meltfptr[74] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8710:/ clear"); + /*clear*/ /*_.TUPLREC___V77*/ meltfptr[74] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLREC___V77*/ - meltfptr[74] = 0 ; + /*clear*/ /*_.TUPLREC___V77*/ meltfptr[74] = 0 ; } /*end multiallocblock*/ ; - MELT_LOCATION("warmelt-macro.melt:8707:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8706:/ quasiblock"); /*^rawallocobj*/ @@ -6644,8 +6063,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_PRIMITIVE*/ meltfrout->tabval[16])), (4), "CLASS_SOURCE_PRIMITIVE"); - /*_.INST__V79*/ - meltfptr[74] = + /*_.INST__V79*/ meltfptr[74] = newobj; }; ; @@ -6668,12 +6086,11 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V79*/ meltfptr[74], "newly made instance"); ; - /*_.DINCRDBG__V78*/ - meltfptr[70] = /*_.INST__V79*/ meltfptr[74];; + /*_.DINCRDBG__V78*/ meltfptr[70] = /*_.INST__V79*/ meltfptr[74];; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8712:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8711:/ quasiblock"); /*^rawallocobj*/ @@ -6681,8 +6098,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_IF*/ meltfrout->tabval[24])), (4), "CLASS_SOURCE_IF"); - /*_.INST__V81*/ - meltfptr[80] = + /*_.INST__V81*/ meltfptr[80] = newobj; }; ; @@ -6705,12 +6121,11 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V81*/ meltfptr[80], "newly made instance"); ; - /*_.DIFDBG__V80*/ - meltfptr[79] = /*_.INST__V81*/ meltfptr[80];; + /*_.DIFDBG__V80*/ meltfptr[79] = /*_.INST__V81*/ meltfptr[80];; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8721:/ blockmultialloc"); + MELT_LOCATION("warmelt-macro.melt:8720:/ blockmultialloc"); /*multiallocblock*/ { struct meltletrec_5_st @@ -6721,8 +6136,7 @@ meltlab_endgetargs: meltletrec_5_ptr = (struct meltletrec_5_st *) meltgc_allocate (sizeof (struct meltletrec_5_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x13*/ - /*_.TUPLREC___V83*/ - meltfptr[82] = (melt_ptr_t) &meltletrec_5_ptr->rtup_0__TUPLREC__x13; + /*_.TUPLREC___V83*/ meltfptr[82] = (melt_ptr_t) &meltletrec_5_ptr->rtup_0__TUPLREC__x13; meltletrec_5_ptr->rtup_0__TUPLREC__x13.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_5_ptr->rtup_0__TUPLREC__x13.nbval = 0; @@ -6730,19 +6144,16 @@ meltlab_endgetargs: /*^touch*/ meltgc_touch(/*_.TUPLREC___V83*/ meltfptr[82]); ; - /*_.TUPLE___V82*/ - meltfptr[81] = /*_.TUPLREC___V83*/ meltfptr[82];; + /*_.TUPLE___V82*/ meltfptr[81] = /*_.TUPLREC___V83*/ meltfptr[82];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8721:/ clear"); - /*clear*/ /*_.TUPLREC___V83*/ - meltfptr[82] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8720:/ clear"); + /*clear*/ /*_.TUPLREC___V83*/ meltfptr[82] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLREC___V83*/ - meltfptr[82] = 0 ; + /*clear*/ /*_.TUPLREC___V83*/ meltfptr[82] = 0 ; } /*end multiallocblock*/ ; - MELT_LOCATION("warmelt-macro.melt:8717:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8716:/ quasiblock"); /*^rawallocobj*/ @@ -6750,8 +6161,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_PRIMITIVE*/ meltfrout->tabval[16])), (4), "CLASS_SOURCE_PRIMITIVE"); - /*_.INST__V85*/ - meltfptr[84] = + /*_.INST__V85*/ meltfptr[84] = newobj; }; ; @@ -6774,12 +6184,11 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V85*/ meltfptr[84], "newly made instance"); ; - /*_.DVOID__V84*/ - meltfptr[82] = /*_.INST__V85*/ meltfptr[84];; + /*_.DVOID__V84*/ meltfptr[82] = /*_.INST__V85*/ meltfptr[84];; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8725:/ blockmultialloc"); + MELT_LOCATION("warmelt-macro.melt:8724:/ blockmultialloc"); /*multiallocblock*/ { struct meltletrec_6_st @@ -6790,46 +6199,42 @@ meltlab_endgetargs: meltletrec_6_ptr = (struct meltletrec_6_st *) meltgc_allocate (sizeof (struct meltletrec_6_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x14*/ - /*_.TUPLREC___V87*/ - meltfptr[86] = (melt_ptr_t) &meltletrec_6_ptr->rtup_0__TUPLREC__x14; + /*_.TUPLREC___V87*/ meltfptr[86] = (melt_ptr_t) &meltletrec_6_ptr->rtup_0__TUPLREC__x14; meltletrec_6_ptr->rtup_0__TUPLREC__x14.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_6_ptr->rtup_0__TUPLREC__x14.nbval = 3; /*^putuple*/ /*putupl#14*/ - melt_assertmsg("putupl [:8725] #14 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V87*/ meltfptr[86]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl [:8725] #14 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V87*/ meltfptr[86])))); + melt_assertmsg("putupl [:8724] #14 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V87*/ meltfptr[86]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl [:8724] #14 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V87*/ meltfptr[86])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V87*/ meltfptr[86]))->tabval[0] = (melt_ptr_t)(/*_.DINCRDBG__V78*/ meltfptr[70]); ; /*^putuple*/ /*putupl#15*/ - melt_assertmsg("putupl [:8725] #15 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V87*/ meltfptr[86]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl [:8725] #15 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V87*/ meltfptr[86])))); + melt_assertmsg("putupl [:8724] #15 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V87*/ meltfptr[86]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl [:8724] #15 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V87*/ meltfptr[86])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V87*/ meltfptr[86]))->tabval[1] = (melt_ptr_t)(/*_.DIFDBG__V80*/ meltfptr[79]); ; /*^putuple*/ /*putupl#16*/ - melt_assertmsg("putupl [:8725] #16 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V87*/ meltfptr[86]))== MELTOBMAG_MULTIPLE); - melt_assertmsg("putupl [:8725] #16 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V87*/ meltfptr[86])))); + melt_assertmsg("putupl [:8724] #16 checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V87*/ meltfptr[86]))== MELTOBMAG_MULTIPLE); + melt_assertmsg("putupl [:8724] #16 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V87*/ meltfptr[86])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V87*/ meltfptr[86]))->tabval[2] = (melt_ptr_t)(/*_.DVOID__V84*/ meltfptr[82]); ; /*^touch*/ meltgc_touch(/*_.TUPLREC___V87*/ meltfptr[86]); ; - /*_.TUPLE___V86*/ - meltfptr[85] = /*_.TUPLREC___V87*/ meltfptr[86];; + /*_.TUPLE___V86*/ meltfptr[85] = /*_.TUPLREC___V87*/ meltfptr[86];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8725:/ clear"); - /*clear*/ /*_.TUPLREC___V87*/ - meltfptr[86] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8724:/ clear"); + /*clear*/ /*_.TUPLREC___V87*/ meltfptr[86] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLREC___V87*/ - meltfptr[86] = 0 ; + /*clear*/ /*_.TUPLREC___V87*/ meltfptr[86] = 0 ; } /*end multiallocblock*/ ; - MELT_LOCATION("warmelt-macro.melt:8722:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8721:/ quasiblock"); /*^rawallocobj*/ @@ -6837,8 +6242,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_PROGN*/ meltfrout->tabval[26])), (3), "CLASS_SOURCE_PROGN"); - /*_.INST__V89*/ - meltfptr[88] = + /*_.INST__V89*/ meltfptr[88] = newobj; }; ; @@ -6856,12 +6260,11 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V89*/ meltfptr[88], "newly made instance"); ; - /*_.DPROGN__V88*/ - meltfptr[86] = /*_.INST__V89*/ meltfptr[88];; + /*_.DPROGN__V88*/ meltfptr[86] = /*_.INST__V89*/ meltfptr[88];; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8727:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8726:/ quasiblock"); /*^rawallocobj*/ @@ -6869,8 +6272,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_CPPIF*/ meltfrout->tabval[27])), (5), "CLASS_SOURCE_CPPIF"); - /*_.INST__V91*/ - meltfptr[90] = + /*_.INST__V91*/ meltfptr[90] = newobj; }; ; @@ -6898,11 +6300,10 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V91*/ meltfptr[90], "newly made instance"); ; - /*_.DCPPIF__V90*/ - meltfptr[89] = /*_.INST__V91*/ meltfptr[90];; + /*_.DCPPIF__V90*/ meltfptr[89] = /*_.INST__V91*/ meltfptr[90];; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8736:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8735:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -6920,8 +6321,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L28*/ - meltfnum[26] = + /*_#MELT_NEED_DBG__L28*/ meltfnum[26] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -6929,9 +6329,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:8736:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L28*/ meltfnum[26]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8735:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L28*/ meltfnum[26]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -6949,7 +6348,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8736:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8735:/ apply"); /*apply*/ { union meltparam_un argtab[7]; @@ -6959,7 +6358,7 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8736; + argtab[2].meltbp_long = 8735; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_debug dcall="; /*^apply.arg*/ @@ -6968,20 +6367,16 @@ meltlab_endgetargs: argtab[5].meltbp_cstring = " return dcppif="; /*^apply.arg*/ argtab[6].meltbp_aptr = (melt_ptr_t*) &/*_.DCPPIF__V90*/ meltfptr[89]; - /*_.MELT_DEBUG_FUN__V93*/ - meltfptr[92] = 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); + /*_.MELT_DEBUG_FUN__V93*/ meltfptr[92] = 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___V92*/ - meltfptr[91] = /*_.MELT_DEBUG_FUN__V93*/ meltfptr[92];; + /*_._IF___V92*/ meltfptr[91] = /*_.MELT_DEBUG_FUN__V93*/ meltfptr[92];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8736:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L29*/ - meltfnum[28] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8735:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L29*/ meltfnum[28] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V93*/ - meltfptr[92] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V93*/ meltfptr[92] = 0 ; } ; } @@ -6993,9 +6388,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:8736:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:8735:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -7004,11 +6398,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L28*/ - meltfnum[26] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L28*/ meltfnum[26] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V92*/ - meltfptr[91] = 0 ; + /*clear*/ /*_._IF___V92*/ meltfptr[91] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7031,14 +6423,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8737:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8736:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.DCPPIF__V90*/ meltfptr[89];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.DCPPIF__V90*/ meltfptr[89];; { - MELT_LOCATION("warmelt-macro.melt:8737:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:8736:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -7050,148 +6441,103 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - /*_.LET___V56*/ - meltfptr[54] = /*_.RETURN___V94*/ meltfptr[92];; + /*finalret*/ goto meltlabend_rout ; + /*_.LET___V56*/ meltfptr[54] = /*_.RETURN___V94*/ meltfptr[92];; - MELT_LOCATION("warmelt-macro.melt:8676:/ clear"); - /*clear*/ /*_#NBDBGARG__L23*/ - meltfnum[18] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8675:/ clear"); + /*clear*/ /*_#NBDBGARG__L23*/ meltfnum[18] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L24*/ - meltfnum[19] = 0 ; + /*clear*/ /*_#IS_A__L24*/ meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_.THENEEDDBG__V57*/ - meltfptr[40] = 0 ; + /*clear*/ /*_.THENEEDDBG__V57*/ meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLE___V63*/ - meltfptr[59] = 0 ; + /*clear*/ /*_.TUPLE___V63*/ meltfptr[59] = 0 ; /*^clear*/ - /*clear*/ /*_.DNEEDBG__V65*/ - meltfptr[57] = 0 ; + /*clear*/ /*_.DNEEDBG__V65*/ meltfptr[57] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_TO_MULTIPLE__V67*/ - meltfptr[66] = 0 ; + /*clear*/ /*_.LIST_TO_MULTIPLE__V67*/ meltfptr[66] = 0 ; /*^clear*/ - /*clear*/ /*_.DCALL__V68*/ - meltfptr[67] = 0 ; + /*clear*/ /*_.DCALL__V68*/ meltfptr[67] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L26*/ - meltfnum[24] = 0 ; + /*clear*/ /*_#IS_A__L26*/ meltfnum[24] = 0 ; /*^clear*/ - /*clear*/ /*_.THEINCRDBG__V70*/ - meltfptr[69] = 0 ; + /*clear*/ /*_.THEINCRDBG__V70*/ meltfptr[69] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLE___V76*/ - meltfptr[72] = 0 ; + /*clear*/ /*_.TUPLE___V76*/ meltfptr[72] = 0 ; /*^clear*/ - /*clear*/ /*_.DINCRDBG__V78*/ - meltfptr[70] = 0 ; + /*clear*/ /*_.DINCRDBG__V78*/ meltfptr[70] = 0 ; /*^clear*/ - /*clear*/ /*_.DIFDBG__V80*/ - meltfptr[79] = 0 ; + /*clear*/ /*_.DIFDBG__V80*/ meltfptr[79] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLE___V82*/ - meltfptr[81] = 0 ; + /*clear*/ /*_.TUPLE___V82*/ meltfptr[81] = 0 ; /*^clear*/ - /*clear*/ /*_.DVOID__V84*/ - meltfptr[82] = 0 ; + /*clear*/ /*_.DVOID__V84*/ meltfptr[82] = 0 ; /*^clear*/ - /*clear*/ /*_.TUPLE___V86*/ - meltfptr[85] = 0 ; + /*clear*/ /*_.TUPLE___V86*/ meltfptr[85] = 0 ; /*^clear*/ - /*clear*/ /*_.DPROGN__V88*/ - meltfptr[86] = 0 ; + /*clear*/ /*_.DPROGN__V88*/ meltfptr[86] = 0 ; /*^clear*/ - /*clear*/ /*_.DCPPIF__V90*/ - meltfptr[89] = 0 ; + /*clear*/ /*_.DCPPIF__V90*/ meltfptr[89] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V94*/ - meltfptr[92] = 0 ; - /*_.LET___V17*/ - meltfptr[15] = /*_.LET___V56*/ meltfptr[54];; + /*clear*/ /*_.RETURN___V94*/ meltfptr[92] = 0 ; + /*_.LET___V17*/ meltfptr[15] = /*_.LET___V56*/ meltfptr[54];; - MELT_LOCATION("warmelt-macro.melt:8620:/ clear"); - /*clear*/ /*_.CONT__V18*/ - meltfptr[5] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8619:/ clear"); + /*clear*/ /*_.CONT__V18*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.LOC__V19*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.LOC__V19*/ meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_MIXINT__L6*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_MIXINT__L6*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.DFILNAM__V20*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.DFILNAM__V20*/ meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_#DLINE__L8*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#DLINE__L8*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.DEBUGFUNBIND__V24*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.DEBUGFUNBIND__V24*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.THECOUNTBIND__V25*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.THECOUNTBIND__V25*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.THENEEDDBGBIND__V26*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.THENEEDDBGBIND__V26*/ meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.THEINCRDBGBIND__V27*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.THEINCRDBGBIND__V27*/ meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_FIRST__V28*/ - meltfptr[27] = 0 ; + /*clear*/ /*_.LIST_FIRST__V28*/ meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.CURPAIR__V29*/ - meltfptr[28] = 0 ; + /*clear*/ /*_.CURPAIR__V29*/ meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.XARGLIST__V30*/ - meltfptr[29] = 0 ; + /*clear*/ /*_.XARGLIST__V30*/ meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.DBGARGLIST__V31*/ - meltfptr[30] = 0 ; + /*clear*/ /*_.DBGARGLIST__V31*/ meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_STRING__L13*/ - meltfnum[11] = 0 ; + /*clear*/ /*_#IS_STRING__L13*/ meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L14*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#NOT__L14*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V36*/ - meltfptr[32] = 0 ; + /*clear*/ /*_._IF___V36*/ meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L15*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#IS_A__L15*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_#OR___L16*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#OR___L16*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L18*/ - meltfnum[16] = 0 ; + /*clear*/ /*_#NOT__L18*/ meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V39*/ - meltfptr[31] = 0 ; + /*clear*/ /*_._IF___V39*/ meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_INTEGERBOX__V52*/ - meltfptr[37] = 0 ; + /*clear*/ /*_.MAKE_INTEGERBOX__V52*/ meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_APPEND2LIST__V53*/ - meltfptr[44] = 0 ; + /*clear*/ /*_.LIST_APPEND2LIST__V53*/ meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V56*/ - meltfptr[54] = 0 ; + /*clear*/ /*_.LET___V56*/ meltfptr[54] = 0 ; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8615:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8614:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { - MELT_LOCATION("warmelt-macro.melt:8615:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:8614:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -7203,22 +6549,17 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; } ; @@ -7300,8 +6641,7 @@ meltrout_154_WARMELTmiMACRO_MEXPAND_EXPORT_VALUES(meltclosure_ptr_t meltclosp_, /* end of frame for routine meltrout_154_WARMELTmiMACRO_MEXPAND_EXPORT_VALUES fromline 1756 */ - /* classy proc frame meltrout_154_WARMELTmiMACRO_MEXPAND_EXPORT_VALUES */ - MeltFrame_meltrout_154_WARMELTmiMACRO_MEXPAND_EXPORT_VALUES + /* classy proc frame meltrout_154_WARMELTmiMACRO_MEXPAND_EXPORT_VALUES */ MeltFrame_meltrout_154_WARMELTmiMACRO_MEXPAND_EXPORT_VALUES meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_154_WARMELTmiMACRO_MEXPAND_EXPORT_VALUES fromline 1785*/ #if ENABLE_CHECKING @@ -7314,8 +6654,7 @@ meltrout_154_WARMELTmiMACRO_MEXPAND_EXPORT_VALUES(meltclosure_ptr_t meltclosp_, #define meltframe meltfram__ melt_trace_start("MEXPAND_EXPORT_VALUES", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -7324,31 +6663,27 @@ meltrout_154_WARMELTmiMACRO_MEXPAND_EXPORT_VALUES(meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:8755:/ getarg"); - /*_.SEXPR__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + MELT_LOCATION("warmelt-macro.melt:8754:/ getarg"); + /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MEXPANDER__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.MEXPANDER__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODCTX__V5*/ - meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.MODCTX__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) != NULL); ; @@ -7362,7 +6697,7 @@ meltlab_endgetargs: #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8756:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8755:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -7380,8 +6715,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -7389,9 +6723,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:8756:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8755:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7409,7 +6742,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8756:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8755:/ apply"); /*apply*/ { union meltparam_un argtab[5]; @@ -7419,25 +6752,21 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8756; + argtab[2].meltbp_long = 8755; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_export_values sexpr="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 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); + /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 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___V6*/ - meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8756:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8755:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; } ; } @@ -7449,9 +6778,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:8756:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:8755:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -7460,11 +6788,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7486,7 +6812,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8757:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8756:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -7494,19 +6820,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ - meltfnum[1] = + /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:8757:/ cond"); - /*cond*/ - if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8756:/ cond"); + /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:8757:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8756:/ cond.else"); /*^block*/ /*anyblock*/ @@ -7525,34 +6849,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8757; + argtab[2].meltbp_long = 8756; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8757:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8756:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ - meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8757:/ clear"); - /*clear*/ /*_#IS_A__L3*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8756:/ clear"); + /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V9*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7562,7 +6880,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8758:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8757:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -7570,19 +6888,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ - meltfnum[0] = + /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:8758:/ cond"); - /*cond*/ - if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8757:/ cond"); + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:8758:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8757:/ cond.else"); /*^block*/ /*anyblock*/ @@ -7601,34 +6917,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8758; + argtab[2].meltbp_long = 8757; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8758:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8757:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ - meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8758:/ clear"); - /*clear*/ /*_#IS_A__L4*/ - meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8757:/ clear"); + /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7638,7 +6948,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8759:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8758:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -7646,19 +6956,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_CLOSURE__L5*/ - meltfnum[1] = + /*_#IS_CLOSURE__L5*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION("warmelt-macro.melt:8759:/ cond"); - /*cond*/ - if (/*_#IS_CLOSURE__L5*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8758:/ cond"); + /*cond*/ if (/*_#IS_CLOSURE__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:8759:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8758:/ cond.else"); /*^block*/ /*anyblock*/ @@ -7677,34 +6985,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8759; + argtab[2].meltbp_long = 8758; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ - meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8759:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ - meltfptr[15] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8758:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ - meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8759:/ clear"); - /*clear*/ /*_#IS_CLOSURE__L5*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8758:/ clear"); + /*clear*/ /*_#IS_CLOSURE__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7714,7 +7016,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8760:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8759:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -7722,19 +7024,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_OBJECT__L6*/ - meltfnum[0] = + /*_#IS_OBJECT__L6*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION("warmelt-macro.melt:8760:/ cond"); - /*cond*/ - if (/*_#IS_OBJECT__L6*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8759:/ cond"); + /*cond*/ if (/*_#IS_OBJECT__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V18*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:8760:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8759:/ cond.else"); /*^block*/ /*anyblock*/ @@ -7753,34 +7053,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8760; + argtab[2].meltbp_long = 8759; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; - /*_.MELT_ASSERT_FAILURE_FUN__V19*/ - meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V18*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18];; + /*_._IFELSE___V18*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8760:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V19*/ - meltfptr[18] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8759:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18] = 0 ; } ; } ; - /*_.IFCPP___V17*/ - meltfptr[15] = /*_._IFELSE___V18*/ meltfptr[5];; + /*_.IFCPP___V17*/ meltfptr[15] = /*_._IFELSE___V18*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8760:/ clear"); - /*clear*/ /*_#IS_OBJECT__L6*/ - meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8759:/ clear"); + /*clear*/ /*_#IS_OBJECT__L6*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V18*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V18*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -7788,38 +7082,34 @@ meltlab_endgetargs: /*_.IFCPP___V17*/ meltfptr[15] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; - MELT_LOCATION("warmelt-macro.melt:8761:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8760:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:8762:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:8761:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS"); - /*_.CONT__V21*/ - meltfptr[5] = slot; + /*_.CONT__V21*/ meltfptr[5] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:8763:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:8762:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.LOC__V22*/ - meltfptr[21] = slot; + /*_.LOC__V22*/ meltfptr[21] = slot; }; ; - /*_.LIST_FIRST__V23*/ - meltfptr[22] = + /*_.LIST_FIRST__V23*/ meltfptr[22] = (melt_list_first((melt_ptr_t)(/*_.CONT__V21*/ meltfptr[5])));; /*^compute*/ - /*_.CURPAIR__V24*/ - meltfptr[23] = + /*_.CURPAIR__V24*/ meltfptr[23] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V23*/ meltfptr[22])));; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8765:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8764:/ apply"); /*apply*/ { union meltparam_un argtab[3]; @@ -7830,14 +7120,13 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; - /*_.SYMBTUP__V25*/ - meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_PAIRLIST_AS_TUPLE*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.CURPAIR__V24*/ meltfptr[23]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.SYMBTUP__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_PAIRLIST_AS_TUPLE*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.CURPAIR__V24*/ meltfptr[23]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8766:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8765:/ quasiblock"); /*^rawallocobj*/ @@ -7845,8 +7134,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_VALUES*/ meltfrout->tabval[5])), (3), "CLASS_SOURCE_EXPORT_VALUES"); - /*_.INST__V27*/ - meltfptr[26] = + /*_.INST__V27*/ meltfptr[26] = newobj; }; ; @@ -7864,8 +7152,7 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V27*/ meltfptr[26], "newly made instance"); ; - /*_.RES__V26*/ - meltfptr[25] = /*_.INST__V27*/ meltfptr[26];; + /*_.RES__V26*/ meltfptr[25] = /*_.INST__V27*/ meltfptr[26];; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit1__EACHTUP */ @@ -7881,12 +7168,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_NOT_A__L8*/ - meltfnum[0] = + /*_#IS_NOT_A__L8*/ meltfnum[0] = !melt_is_instance_of((melt_ptr_t)(/*_.CURSYMB__V28*/ meltfptr[27]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[6])));; - MELT_LOCATION("warmelt-macro.melt:8773:/ cond"); - /*cond*/ - if (/*_#IS_NOT_A__L8*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8772:/ cond"); + /*cond*/ if (/*_#IS_NOT_A__L8*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7896,7 +7181,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8774:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8773:/ apply"); /*apply*/ { union meltparam_un argtab[2]; @@ -7905,17 +7190,14 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "(EXPORT_VALUES <symbol> ...) with non-symbol argument of rank $1"; /*^apply.arg*/ argtab[1].meltbp_long = /*_#SIX__L7*/ meltfnum[1]; - /*_.ERROR_AT__V30*/ - meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.LOC__V22*/ meltfptr[21]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.LOC__V22*/ meltfptr[21]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V29*/ - meltfptr[28] = /*_.ERROR_AT__V30*/ meltfptr[29];; + /*_._IF___V29*/ meltfptr[28] = /*_.ERROR_AT__V30*/ meltfptr[29];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8773:/ clear"); - /*clear*/ /*_.ERROR_AT__V30*/ - meltfptr[29] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8772:/ clear"); + /*clear*/ /*_.ERROR_AT__V30*/ meltfptr[29] = 0 ; } ; } @@ -7930,23 +7212,19 @@ meltlab_endgetargs: /*citerepilog*/ - MELT_LOCATION("warmelt-macro.melt:8770:/ clear"); - /*clear*/ /*_.CURSYMB__V28*/ - meltfptr[27] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8769:/ clear"); + /*clear*/ /*_.CURSYMB__V28*/ meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_#SIX__L7*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#SIX__L7*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L8*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_NOT_A__L8*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V29*/ - meltfptr[28] = 0 ; + /*clear*/ /*_._IF___V29*/ meltfptr[28] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8775:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8774:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -7964,8 +7242,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L9*/ - meltfnum[8] = + /*_#MELT_NEED_DBG__L9*/ meltfnum[8] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -7973,9 +7250,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:8775:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8774:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -7993,7 +7269,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8775:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8774:/ apply"); /*apply*/ { union meltparam_un argtab[5]; @@ -8003,25 +7279,21 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8775; + argtab[2].meltbp_long = 8774; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_export_values result res"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RES__V26*/ meltfptr[25]; - /*_.MELT_DEBUG_FUN__V32*/ - meltfptr[31] = 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); + /*_.MELT_DEBUG_FUN__V32*/ meltfptr[31] = 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___V31*/ - meltfptr[29] = /*_.MELT_DEBUG_FUN__V32*/ meltfptr[31];; + /*_._IF___V31*/ meltfptr[29] = /*_.MELT_DEBUG_FUN__V32*/ meltfptr[31];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8775:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L10*/ - meltfnum[9] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8774:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V32*/ - meltfptr[31] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V32*/ meltfptr[31] = 0 ; } ; } @@ -8033,9 +7305,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:8775:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:8774:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -8044,11 +7315,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L9*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V31*/ - meltfptr[29] = 0 ; + /*clear*/ /*_._IF___V31*/ meltfptr[29] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8071,14 +7340,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8776:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8775:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.RES__V26*/ meltfptr[25];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.RES__V26*/ meltfptr[25];; { - MELT_LOCATION("warmelt-macro.melt:8776:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:8775:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -8090,43 +7358,33 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - /*_.LET___V20*/ - meltfptr[18] = /*_.RETURN___V33*/ meltfptr[31];; + /*finalret*/ goto meltlabend_rout ; + /*_.LET___V20*/ meltfptr[18] = /*_.RETURN___V33*/ meltfptr[31];; - MELT_LOCATION("warmelt-macro.melt:8761:/ clear"); - /*clear*/ /*_.CONT__V21*/ - meltfptr[5] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8760:/ clear"); + /*clear*/ /*_.CONT__V21*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.LOC__V22*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.LOC__V22*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_FIRST__V23*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.LIST_FIRST__V23*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.CURPAIR__V24*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.CURPAIR__V24*/ meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.SYMBTUP__V25*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.SYMBTUP__V25*/ meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.RES__V26*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.RES__V26*/ meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V33*/ - meltfptr[31] = 0 ; + /*clear*/ /*_.RETURN___V33*/ meltfptr[31] = 0 ; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8755:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8754:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V20*/ meltfptr[18];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V20*/ meltfptr[18];; { - MELT_LOCATION("warmelt-macro.melt:8755:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:8754:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -8138,25 +7396,19 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V17*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.IFCPP___V17*/ meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V20*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.LET___V20*/ meltfptr[18] = 0 ; } ; @@ -8238,8 +7490,7 @@ meltrout_155_WARMELTmiMACRO_MEXPAND_EXPORT_MACRO(meltclosure_ptr_t meltclosp_, m /* end of frame for routine meltrout_155_WARMELTmiMACRO_MEXPAND_EXPORT_MACRO fromline 1756 */ - /* classy proc frame meltrout_155_WARMELTmiMACRO_MEXPAND_EXPORT_MACRO */ - MeltFrame_meltrout_155_WARMELTmiMACRO_MEXPAND_EXPORT_MACRO + /* classy proc frame meltrout_155_WARMELTmiMACRO_MEXPAND_EXPORT_MACRO */ MeltFrame_meltrout_155_WARMELTmiMACRO_MEXPAND_EXPORT_MACRO meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_155_WARMELTmiMACRO_MEXPAND_EXPORT_MACRO fromline 1785*/ #if ENABLE_CHECKING @@ -8252,8 +7503,7 @@ meltrout_155_WARMELTmiMACRO_MEXPAND_EXPORT_MACRO(meltclosure_ptr_t meltclosp_, m #define meltframe meltfram__ melt_trace_start("MEXPAND_EXPORT_MACRO", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -8262,31 +7512,27 @@ meltrout_155_WARMELTmiMACRO_MEXPAND_EXPORT_MACRO(meltclosure_ptr_t meltclosp_, m /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:8790:/ getarg"); - /*_.SEXPR__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + MELT_LOCATION("warmelt-macro.melt:8789:/ getarg"); + /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MEXPANDER__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.MEXPANDER__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODCTX__V5*/ - meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.MODCTX__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) != NULL); ; @@ -8300,7 +7546,7 @@ meltlab_endgetargs: #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8791:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8790:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -8318,8 +7564,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -8327,9 +7572,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:8791:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8790:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8347,7 +7591,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8791:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8790:/ apply"); /*apply*/ { union meltparam_un argtab[5]; @@ -8357,25 +7601,21 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8791; + argtab[2].meltbp_long = 8790; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_export_macro sexpr="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 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); + /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 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___V6*/ - meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8791:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8790:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; } ; } @@ -8387,9 +7627,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:8791:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:8790:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -8398,11 +7637,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8424,7 +7661,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8792:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8791:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -8432,19 +7669,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ - meltfnum[1] = + /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:8792:/ cond"); - /*cond*/ - if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8791:/ cond"); + /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:8792:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8791:/ cond.else"); /*^block*/ /*anyblock*/ @@ -8463,34 +7698,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8792; + argtab[2].meltbp_long = 8791; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8792:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8791:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ - meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8792:/ clear"); - /*clear*/ /*_#IS_A__L3*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8791:/ clear"); + /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V9*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8500,7 +7729,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8793:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8792:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -8508,19 +7737,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ - meltfnum[0] = + /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:8793:/ cond"); - /*cond*/ - if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8792:/ cond"); + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:8793:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8792:/ cond.else"); /*^block*/ /*anyblock*/ @@ -8539,34 +7766,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8793; + argtab[2].meltbp_long = 8792; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8793:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8792:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ - meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8793:/ clear"); - /*clear*/ /*_#IS_A__L4*/ - meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8792:/ clear"); + /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8576,7 +7797,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8794:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8793:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -8584,19 +7805,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_CLOSURE__L5*/ - meltfnum[1] = + /*_#IS_CLOSURE__L5*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION("warmelt-macro.melt:8794:/ cond"); - /*cond*/ - if (/*_#IS_CLOSURE__L5*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8793:/ cond"); + /*cond*/ if (/*_#IS_CLOSURE__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:8794:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8793:/ cond.else"); /*^block*/ /*anyblock*/ @@ -8615,34 +7834,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8794; + argtab[2].meltbp_long = 8793; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ - meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8794:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ - meltfptr[15] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8793:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ - meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8794:/ clear"); - /*clear*/ /*_#IS_CLOSURE__L5*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8793:/ clear"); + /*clear*/ /*_#IS_CLOSURE__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8652,7 +7865,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8795:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8794:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -8660,19 +7873,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_OBJECT__L6*/ - meltfnum[0] = + /*_#IS_OBJECT__L6*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION("warmelt-macro.melt:8795:/ cond"); - /*cond*/ - if (/*_#IS_OBJECT__L6*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8794:/ cond"); + /*cond*/ if (/*_#IS_OBJECT__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V18*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:8795:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8794:/ cond.else"); /*^block*/ /*anyblock*/ @@ -8691,34 +7902,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8795; + argtab[2].meltbp_long = 8794; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; - /*_.MELT_ASSERT_FAILURE_FUN__V19*/ - meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V18*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18];; + /*_._IFELSE___V18*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8795:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V19*/ - meltfptr[18] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8794:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18] = 0 ; } ; } ; - /*_.IFCPP___V17*/ - meltfptr[15] = /*_._IFELSE___V18*/ meltfptr[5];; + /*_.IFCPP___V17*/ meltfptr[15] = /*_._IFELSE___V18*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8795:/ clear"); - /*clear*/ /*_#IS_OBJECT__L6*/ - meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8794:/ clear"); + /*clear*/ /*_#IS_OBJECT__L6*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V18*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V18*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8726,42 +7931,37 @@ meltlab_endgetargs: /*_.IFCPP___V17*/ meltfptr[15] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; - MELT_LOCATION("warmelt-macro.melt:8796:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8795:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:8797:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:8796:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS"); - /*_.CONT__V21*/ - meltfptr[5] = slot; + /*_.CONT__V21*/ meltfptr[5] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:8798:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:8797:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.LOC__V22*/ - meltfptr[21] = slot; + /*_.LOC__V22*/ meltfptr[21] = slot; }; ; - /*_.LIST_FIRST__V23*/ - meltfptr[22] = + /*_.LIST_FIRST__V23*/ meltfptr[22] = (melt_list_first((melt_ptr_t)(/*_.CONT__V21*/ meltfptr[5])));; /*^compute*/ - /*_.CURPAIR__V24*/ - meltfptr[23] = + /*_.CURPAIR__V24*/ meltfptr[23] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V23*/ meltfptr[22])));; /*^compute*/ - /*_.PAIR_HEAD__V25*/ - meltfptr[24] = + /*_.PAIR_HEAD__V25*/ meltfptr[24] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V24*/ meltfptr[23])));; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8800:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8799:/ apply"); /*apply*/ { union meltparam_un argtab[3]; @@ -8772,22 +7972,18 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; - /*_.SYMB__V26*/ - meltfptr[25] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.PAIR_HEAD__V25*/ meltfptr[24]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.SYMB__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.PAIR_HEAD__V25*/ meltfptr[24]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.DOC__V27*/ - meltfptr[26] = (/*nil*/NULL);; + /*_.DOC__V27*/ meltfptr[26] = (/*nil*/NULL);; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_NOT_A__L7*/ - meltfnum[1] = + /*_#IS_NOT_A__L7*/ meltfnum[1] = !melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V26*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-macro.melt:8803:/ cond"); - /*cond*/ - if (/*_#IS_NOT_A__L7*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8802:/ cond"); + /*cond*/ if (/*_#IS_NOT_A__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8796,9 +7992,8 @@ meltlab_endgetargs: { - MELT_LOCATION("warmelt-macro.melt:8804:/ locexp"); - /* error_plain */ - melt_error_str((melt_ptr_t)(/*_.LOC__V22*/ meltfptr[21]), ( "(EXPORT_MACRO <sym> [<expander>]) expecting symbol"), (melt_ptr_t)0); + MELT_LOCATION("warmelt-macro.melt:8803:/ locexp"); + /* error_plain */ melt_error_str((melt_ptr_t)(/*_.LOC__V22*/ meltfptr[21]), ( "(EXPORT_MACRO <sym> [<expander>]) expecting symbol"), (melt_ptr_t)0); } ; /*epilog*/ @@ -8806,18 +8001,15 @@ meltlab_endgetargs: ; } /*noelse*/ ; - /*_.PAIR_TAIL__V28*/ - meltfptr[27] = + /*_.PAIR_TAIL__V28*/ meltfptr[27] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V24*/ meltfptr[23])));; - MELT_LOCATION("warmelt-macro.melt:8805:/ compute"); - /*_.CURPAIR__V24*/ - meltfptr[23] = /*_.SETQ___V29*/ meltfptr[28] = /*_.PAIR_TAIL__V28*/ meltfptr[27];; - MELT_LOCATION("warmelt-macro.melt:8806:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8804:/ compute"); + /*_.CURPAIR__V24*/ meltfptr[23] = /*_.SETQ___V29*/ meltfptr[28] = /*_.PAIR_TAIL__V28*/ meltfptr[27];; + MELT_LOCATION("warmelt-macro.melt:8805:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:8807:/ cond"); - /*cond*/ - if ( + MELT_LOCATION("warmelt-macro.melt:8806:/ cond"); + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V26*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[5]))) ) /*then*/ @@ -8828,8 +8020,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SYMB__V26*/ meltfptr[25]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); - /*_.SYMBNAME__V31*/ - meltfptr[30] = slot; + /*_.SYMBNAME__V31*/ meltfptr[30] = slot; }; ; } @@ -8839,15 +8030,14 @@ meltlab_endgetargs: /*_.SYMBNAME__V31*/ meltfptr[30] = /*reallynil*/ NULL ;; } ; - MELT_LOCATION("warmelt-macro.melt:8808:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8807:/ quasiblock"); - /*_.SE__V33*/ - meltfptr[32] = + /*_.SE__V33*/ meltfptr[32] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V24*/ meltfptr[23])));; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8810:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8809:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -8865,8 +8055,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L8*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L8*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -8874,9 +8063,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:8810:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L8*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8809:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -8894,7 +8082,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8810:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8809:/ apply"); /*apply*/ { union meltparam_un argtab[5]; @@ -8904,25 +8092,21 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8810; + argtab[2].meltbp_long = 8809; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_export_macro sexpv="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SE__V33*/ meltfptr[32]; - /*_.MELT_DEBUG_FUN__V35*/ - meltfptr[34] = 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); + /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34] = 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___V34*/ - meltfptr[33] = /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34];; + /*_._IF___V34*/ meltfptr[33] = /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8810:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L9*/ - meltfnum[8] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8809:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V35*/ - meltfptr[34] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34] = 0 ; } ; } @@ -8934,9 +8118,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:8810:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:8809:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -8945,11 +8128,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L8*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V34*/ - meltfptr[33] = 0 ; + /*clear*/ /*_._IF___V34*/ meltfptr[33] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -8969,15 +8150,12 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; - /*_.LET___V32*/ - meltfptr[31] = /*_.SE__V33*/ meltfptr[32];; + /*_.LET___V32*/ meltfptr[31] = /*_.SE__V33*/ meltfptr[32];; - MELT_LOCATION("warmelt-macro.melt:8808:/ clear"); - /*clear*/ /*_.SE__V33*/ - meltfptr[32] = 0 ; - /*_.SEXPV__V36*/ - meltfptr[34] = /*_.LET___V32*/ meltfptr[31];; - MELT_LOCATION("warmelt-macro.melt:8812:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8807:/ clear"); + /*clear*/ /*_.SE__V33*/ meltfptr[32] = 0 ; + /*_.SEXPV__V36*/ meltfptr[34] = /*_.LET___V32*/ meltfptr[31];; + MELT_LOCATION("warmelt-macro.melt:8811:/ quasiblock"); @@ -8990,13 +8168,12 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.SYMB__V26*/ meltfptr[25]; - /*_.CB__V38*/ - meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.CB__V38*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8814:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8813:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -9014,8 +8191,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L10*/ - meltfnum[8] = + /*_#MELT_NEED_DBG__L10*/ meltfnum[8] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -9023,9 +8199,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:8814:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L10*/ meltfnum[8]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8813:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9043,7 +8218,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8814:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8813:/ apply"); /*apply*/ { union meltparam_un argtab[5]; @@ -9053,25 +8228,21 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8814; + argtab[2].meltbp_long = 8813; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_export_macro cbind="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.CB__V38*/ meltfptr[32]; - /*_.MELT_DEBUG_FUN__V40*/ - meltfptr[39] = 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); + /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39] = 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___V39*/ - meltfptr[38] = /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39];; + /*_._IF___V39*/ meltfptr[38] = /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8814:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L11*/ - meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8813:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V40*/ - meltfptr[39] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39] = 0 ; } ; } @@ -9083,9 +8254,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:8814:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:8813:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -9094,11 +8264,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L10*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V39*/ - meltfptr[38] = 0 ; + /*clear*/ /*_._IF___V39*/ meltfptr[38] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9118,28 +8286,22 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; - /*_.LET___V37*/ - meltfptr[33] = /*_.CB__V38*/ meltfptr[32];; + /*_.LET___V37*/ meltfptr[33] = /*_.CB__V38*/ meltfptr[32];; - MELT_LOCATION("warmelt-macro.melt:8812:/ clear"); - /*clear*/ /*_.CB__V38*/ - meltfptr[32] = 0 ; - /*_.CBIND__V41*/ - meltfptr[39] = /*_.LET___V37*/ meltfptr[33];; + MELT_LOCATION("warmelt-macro.melt:8811:/ clear"); + /*clear*/ /*_.CB__V38*/ meltfptr[32] = 0 ; + /*_.CBIND__V41*/ meltfptr[39] = /*_.LET___V37*/ meltfptr[33];; /*^compute*/ - /*_#ISDEFMACRO__L12*/ - meltfnum[0] = + /*_#ISDEFMACRO__L12*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CBIND__V41*/ meltfptr[39]), (melt_ptr_t)((/*!CLASS_DEFINED_MACRO_BINDING*/ meltfrout->tabval[7])));; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#NULL__L13*/ - meltfnum[8] = + /*_#NULL__L13*/ meltfnum[8] = (/*null*/(/*_.SEXPV__V36*/ meltfptr[34]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:8817:/ cond"); - /*cond*/ - if (/*_#NULL__L13*/ meltfnum[8]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8816:/ cond"); + /*cond*/ if (/*_#NULL__L13*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9149,12 +8311,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#NOT__L14*/ - meltfnum[13] = + /*_#NOT__L14*/ meltfnum[13] = (!(/*_#ISDEFMACRO__L12*/ meltfnum[0]));; - MELT_LOCATION("warmelt-macro.melt:8818:/ cond"); - /*cond*/ - if (/*_#NOT__L14*/ meltfnum[13]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8817:/ cond"); + /*cond*/ if (/*_#NOT__L14*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9164,7 +8324,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8819:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8818:/ apply"); /*apply*/ { union meltparam_un argtab[2]; @@ -9173,18 +8333,16 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "(EXPORT_MACRO $1 <expander>) needs an expander for non-defmacro symbol"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SYMBNAME__V31*/ meltfptr[30]; - /*_.ERROR_AT__V44*/ - meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.LOC__V22*/ meltfptr[21]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V44*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.LOC__V22*/ meltfptr[21]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:8821:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8820:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*reallynil*/ NULL ;; + /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { - MELT_LOCATION("warmelt-macro.melt:8821:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:8820:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -9196,27 +8354,21 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - MELT_LOCATION("warmelt-macro.melt:8818:/ quasiblock"); + /*finalret*/ goto meltlabend_rout ; + MELT_LOCATION("warmelt-macro.melt:8817:/ quasiblock"); - /*_.PROGN___V46*/ - meltfptr[45] = /*_.RETURN___V45*/ meltfptr[44];; + /*_.PROGN___V46*/ meltfptr[45] = /*_.RETURN___V45*/ meltfptr[44];; /*^compute*/ - /*_._IF___V43*/ - meltfptr[32] = /*_.PROGN___V46*/ meltfptr[45];; + /*_._IF___V43*/ meltfptr[32] = /*_.PROGN___V46*/ meltfptr[45];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8818:/ clear"); - /*clear*/ /*_.ERROR_AT__V44*/ - meltfptr[43] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8817:/ clear"); + /*clear*/ /*_.ERROR_AT__V44*/ meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V45*/ - meltfptr[44] = 0 ; + /*clear*/ /*_.RETURN___V45*/ meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V46*/ - meltfptr[45] = 0 ; + /*clear*/ /*_.PROGN___V46*/ meltfptr[45] = 0 ; } ; } @@ -9226,25 +8378,20 @@ meltlab_endgetargs: /*_._IF___V43*/ meltfptr[32] = /*reallynil*/ NULL ;; } ; - MELT_LOCATION("warmelt-macro.melt:8817:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8816:/ quasiblock"); - /*_.PROGN___V47*/ - meltfptr[43] = /*_.SYMB__V26*/ meltfptr[25];; + /*_.PROGN___V47*/ meltfptr[43] = /*_.SYMB__V26*/ meltfptr[25];; /*^compute*/ - /*_.EXPV__V42*/ - meltfptr[38] = /*_.PROGN___V47*/ meltfptr[43];; + /*_.EXPV__V42*/ meltfptr[38] = /*_.PROGN___V47*/ meltfptr[43];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8817:/ clear"); - /*clear*/ /*_#NOT__L14*/ - meltfnum[13] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8816:/ clear"); + /*clear*/ /*_#NOT__L14*/ meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V43*/ - meltfptr[32] = 0 ; + /*clear*/ /*_._IF___V43*/ meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V47*/ - meltfptr[43] = 0 ; + /*clear*/ /*_.PROGN___V47*/ meltfptr[43] = 0 ; } ; } @@ -9258,7 +8405,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8825:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8824:/ apply"); /*apply*/ { union meltparam_un argtab[3]; @@ -9269,49 +8416,39 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; - /*_.MEXPANDER__V48*/ - meltfptr[44] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.SEXPV__V36*/ meltfptr[34]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MEXPANDER__V48*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.SEXPV__V36*/ meltfptr[34]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - MELT_LOCATION("warmelt-macro.melt:8824:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8823:/ quasiblock"); - /*_.PROGN___V49*/ - meltfptr[45] = /*_.MEXPANDER__V48*/ meltfptr[44];; + /*_.PROGN___V49*/ meltfptr[45] = /*_.MEXPANDER__V48*/ meltfptr[44];; /*^compute*/ - /*_.EXPV__V42*/ - meltfptr[38] = /*_.PROGN___V49*/ meltfptr[45];; + /*_.EXPV__V42*/ meltfptr[38] = /*_.PROGN___V49*/ meltfptr[45];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8817:/ clear"); - /*clear*/ /*_.MEXPANDER__V48*/ - meltfptr[44] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8816:/ clear"); + /*clear*/ /*_.MEXPANDER__V48*/ meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V49*/ - meltfptr[45] = 0 ; + /*clear*/ /*_.PROGN___V49*/ meltfptr[45] = 0 ; } ; } ; - /*_.PAIR_TAIL__V50*/ - meltfptr[32] = + /*_.PAIR_TAIL__V50*/ meltfptr[32] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V24*/ meltfptr[23])));; - MELT_LOCATION("warmelt-macro.melt:8827:/ compute"); - /*_.CURPAIR__V24*/ - meltfptr[23] = /*_.SETQ___V51*/ meltfptr[43] = /*_.PAIR_TAIL__V50*/ meltfptr[32];; + MELT_LOCATION("warmelt-macro.melt:8826:/ compute"); + /*_.CURPAIR__V24*/ meltfptr[23] = /*_.SETQ___V51*/ meltfptr[43] = /*_.PAIR_TAIL__V50*/ meltfptr[32];; MELT_CHECK_SIGNAL(); ; - /*_.PAIR_HEAD__V52*/ - meltfptr[44] = + /*_.PAIR_HEAD__V52*/ meltfptr[44] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V24*/ meltfptr[23])));; /*^compute*/ - /*_#eqeq__L15*/ - meltfnum[13] = + /*_#eqeq__L15*/ meltfnum[13] = ((/*_.PAIR_HEAD__V52*/ meltfptr[44]) == ((/*!konst_9_DOC*/ meltfrout->tabval[9])));; - MELT_LOCATION("warmelt-macro.melt:8828:/ cond"); - /*cond*/ - if (/*_#eqeq__L15*/ meltfnum[13]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8827:/ cond"); + /*cond*/ if (/*_#eqeq__L15*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9320,40 +8457,30 @@ meltlab_endgetargs: /*_.PAIR_TAIL__V54*/ meltfptr[53] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V24*/ meltfptr[23])));; - MELT_LOCATION("warmelt-macro.melt:8830:/ compute"); - /*_.CURPAIR__V24*/ - meltfptr[23] = /*_.SETQ___V55*/ meltfptr[54] = /*_.PAIR_TAIL__V54*/ meltfptr[53];; - /*_.PAIR_HEAD__V56*/ - meltfptr[55] = + MELT_LOCATION("warmelt-macro.melt:8829:/ compute"); + /*_.CURPAIR__V24*/ meltfptr[23] = /*_.SETQ___V55*/ meltfptr[54] = /*_.PAIR_TAIL__V54*/ meltfptr[53];; + /*_.PAIR_HEAD__V56*/ meltfptr[55] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V24*/ meltfptr[23])));; - MELT_LOCATION("warmelt-macro.melt:8831:/ compute"); - /*_.DOC__V27*/ - meltfptr[26] = /*_.SETQ___V57*/ meltfptr[56] = /*_.PAIR_HEAD__V56*/ meltfptr[55];; - MELT_LOCATION("warmelt-macro.melt:8829:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8830:/ compute"); + /*_.DOC__V27*/ meltfptr[26] = /*_.SETQ___V57*/ meltfptr[56] = /*_.PAIR_HEAD__V56*/ meltfptr[55];; + MELT_LOCATION("warmelt-macro.melt:8828:/ quasiblock"); - /*_.PROGN___V58*/ - meltfptr[57] = /*_.SETQ___V57*/ meltfptr[56];; + /*_.PROGN___V58*/ meltfptr[57] = /*_.SETQ___V57*/ meltfptr[56];; /*^compute*/ - /*_._IF___V53*/ - meltfptr[45] = /*_.PROGN___V58*/ meltfptr[57];; + /*_._IF___V53*/ meltfptr[45] = /*_.PROGN___V58*/ meltfptr[57];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8828:/ clear"); - /*clear*/ /*_.PAIR_TAIL__V54*/ - meltfptr[53] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8827:/ clear"); + /*clear*/ /*_.PAIR_TAIL__V54*/ meltfptr[53] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V55*/ - meltfptr[54] = 0 ; + /*clear*/ /*_.SETQ___V55*/ meltfptr[54] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_HEAD__V56*/ - meltfptr[55] = 0 ; + /*clear*/ /*_.PAIR_HEAD__V56*/ meltfptr[55] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V57*/ - meltfptr[56] = 0 ; + /*clear*/ /*_.SETQ___V57*/ meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V58*/ - meltfptr[57] = 0 ; + /*clear*/ /*_.PROGN___V58*/ meltfptr[57] = 0 ; } ; } @@ -9367,12 +8494,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#NULL__L16*/ - meltfnum[15] = + /*_#NULL__L16*/ meltfnum[15] = (/*null*/(/*_.EXPV__V42*/ meltfptr[38]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:8832:/ cond"); - /*cond*/ - if (/*_#NULL__L16*/ meltfnum[15]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8831:/ cond"); + /*cond*/ if (/*_#NULL__L16*/ meltfnum[15]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9382,7 +8507,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8833:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8832:/ apply"); /*apply*/ { union meltparam_un argtab[2]; @@ -9391,17 +8516,14 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "(EXPORT_MACRO $1 <expander> [:doc <docum>]) expecting expander"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.SYMBNAME__V31*/ meltfptr[30]; - /*_.ERROR_AT__V60*/ - meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.LOC__V22*/ meltfptr[21]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V60*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.LOC__V22*/ meltfptr[21]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V59*/ - meltfptr[53] = /*_.ERROR_AT__V60*/ meltfptr[54];; + /*_._IF___V59*/ meltfptr[53] = /*_.ERROR_AT__V60*/ meltfptr[54];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8832:/ clear"); - /*clear*/ /*_.ERROR_AT__V60*/ - meltfptr[54] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8831:/ clear"); + /*clear*/ /*_.ERROR_AT__V60*/ meltfptr[54] = 0 ; } ; } @@ -9411,7 +8533,7 @@ meltlab_endgetargs: /*_._IF___V59*/ meltfptr[53] = /*reallynil*/ NULL ;; } ; - MELT_LOCATION("warmelt-macro.melt:8834:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8833:/ quasiblock"); @@ -9421,8 +8543,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^cond*/ - /*cond*/ - if (/*_#ISDEFMACRO__L12*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#ISDEFMACRO__L12*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9432,13 +8553,11 @@ meltlab_endgetargs: /*_#NULL__L18*/ meltfnum[17] = (/*null*/(/*_.SEXPV__V36*/ meltfptr[34]) == NULL);; /*^compute*/ - /*_#_IF___L17*/ - meltfnum[16] = /*_#NULL__L18*/ meltfnum[17];; + /*_#_IF___L17*/ meltfnum[16] = /*_#NULL__L18*/ meltfnum[17];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8834:/ clear"); - /*clear*/ /*_#NULL__L18*/ - meltfnum[17] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8833:/ clear"); + /*clear*/ /*_#NULL__L18*/ meltfnum[17] = 0 ; } ; } @@ -9448,9 +8567,8 @@ meltlab_endgetargs: /*_#_IF___L17*/ meltfnum[16] = 0;; } ; - MELT_LOCATION("warmelt-macro.melt:8834:/ cond"); - /*cond*/ - if (/*_#_IF___L17*/ meltfnum[16]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8833:/ cond"); + /*cond*/ if (/*_#_IF___L17*/ meltfnum[16]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9460,7 +8578,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8835:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8834:/ quasiblock"); /*^rawallocobj*/ @@ -9468,8 +8586,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_DEFMACRO*/ meltfrout->tabval[10])), (4), "CLASS_SOURCE_EXPORT_DEFMACRO"); - /*_.INST__V64*/ - meltfptr[54] = + /*_.INST__V64*/ meltfptr[54] = newobj; }; ; @@ -9492,16 +8609,13 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V64*/ meltfptr[54], "newly made instance"); ; - /*_.INST___V63*/ - meltfptr[57] = /*_.INST__V64*/ meltfptr[54];; + /*_.INST___V63*/ meltfptr[57] = /*_.INST__V64*/ meltfptr[54];; /*^compute*/ - /*_.RES__V62*/ - meltfptr[56] = /*_.INST___V63*/ meltfptr[57];; + /*_.RES__V62*/ meltfptr[56] = /*_.INST___V63*/ meltfptr[57];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8834:/ clear"); - /*clear*/ /*_.INST___V63*/ - meltfptr[57] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8833:/ clear"); + /*clear*/ /*_.INST___V63*/ meltfptr[57] = 0 ; } ; } @@ -9515,7 +8629,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8839:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8838:/ quasiblock"); /*^rawallocobj*/ @@ -9523,8 +8637,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_MACRO*/ meltfrout->tabval[11])), (5), "CLASS_SOURCE_EXPORT_MACRO"); - /*_.INST__V66*/ - meltfptr[65] = + /*_.INST__V66*/ meltfptr[65] = newobj; }; ; @@ -9552,23 +8665,20 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V66*/ meltfptr[65], "newly made instance"); ; - /*_.INST___V65*/ - meltfptr[57] = /*_.INST__V66*/ meltfptr[65];; + /*_.INST___V65*/ meltfptr[57] = /*_.INST__V66*/ meltfptr[65];; /*^compute*/ - /*_.RES__V62*/ - meltfptr[56] = /*_.INST___V65*/ meltfptr[57];; + /*_.RES__V62*/ meltfptr[56] = /*_.INST___V65*/ meltfptr[57];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8834:/ clear"); - /*clear*/ /*_.INST___V65*/ - meltfptr[57] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8833:/ clear"); + /*clear*/ /*_.INST___V65*/ meltfptr[57] = 0 ; } ; } ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8846:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8845:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -9586,8 +8696,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L19*/ - meltfnum[17] = + /*_#MELT_NEED_DBG__L19*/ meltfnum[17] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -9595,9 +8704,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:8846:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L19*/ meltfnum[17]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8845:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L19*/ meltfnum[17]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -9615,7 +8723,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8846:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8845:/ apply"); /*apply*/ { union meltparam_un argtab[5]; @@ -9625,25 +8733,21 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8846; + argtab[2].meltbp_long = 8845; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_export_macro result res="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RES__V62*/ meltfptr[56]; - /*_.MELT_DEBUG_FUN__V68*/ - meltfptr[67] = 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); + /*_.MELT_DEBUG_FUN__V68*/ meltfptr[67] = 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___V67*/ - meltfptr[57] = /*_.MELT_DEBUG_FUN__V68*/ meltfptr[67];; + /*_._IF___V67*/ meltfptr[57] = /*_.MELT_DEBUG_FUN__V68*/ meltfptr[67];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8846:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L20*/ - meltfnum[19] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8845:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L20*/ meltfnum[19] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V68*/ - meltfptr[67] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V68*/ meltfptr[67] = 0 ; } ; } @@ -9655,9 +8759,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:8846:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:8845:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -9666,11 +8769,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L19*/ - meltfnum[17] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L19*/ meltfnum[17] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V67*/ - meltfptr[57] = 0 ; + /*clear*/ /*_._IF___V67*/ meltfptr[57] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -9693,14 +8794,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8847:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8846:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.RES__V62*/ meltfptr[56];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.RES__V62*/ meltfptr[56];; { - MELT_LOCATION("warmelt-macro.melt:8847:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:8846:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -9712,118 +8812,83 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - /*_.LET___V61*/ - meltfptr[55] = /*_.RETURN___V69*/ meltfptr[67];; + /*finalret*/ goto meltlabend_rout ; + /*_.LET___V61*/ meltfptr[55] = /*_.RETURN___V69*/ meltfptr[67];; - MELT_LOCATION("warmelt-macro.melt:8834:/ clear"); - /*clear*/ /*_#_IF___L17*/ - meltfnum[16] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8833:/ clear"); + /*clear*/ /*_#_IF___L17*/ meltfnum[16] = 0 ; /*^clear*/ - /*clear*/ /*_.RES__V62*/ - meltfptr[56] = 0 ; + /*clear*/ /*_.RES__V62*/ meltfptr[56] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V69*/ - meltfptr[67] = 0 ; - /*_.LET___V30*/ - meltfptr[29] = /*_.LET___V61*/ meltfptr[55];; + /*clear*/ /*_.RETURN___V69*/ meltfptr[67] = 0 ; + /*_.LET___V30*/ meltfptr[29] = /*_.LET___V61*/ meltfptr[55];; - MELT_LOCATION("warmelt-macro.melt:8806:/ clear"); - /*clear*/ /*_.SYMBNAME__V31*/ - meltfptr[30] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8805:/ clear"); + /*clear*/ /*_.SYMBNAME__V31*/ meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V32*/ - meltfptr[31] = 0 ; + /*clear*/ /*_.LET___V32*/ meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.SEXPV__V36*/ - meltfptr[34] = 0 ; + /*clear*/ /*_.SEXPV__V36*/ meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V37*/ - meltfptr[33] = 0 ; + /*clear*/ /*_.LET___V37*/ meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.CBIND__V41*/ - meltfptr[39] = 0 ; + /*clear*/ /*_.CBIND__V41*/ meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_#ISDEFMACRO__L12*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#ISDEFMACRO__L12*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L13*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#NULL__L13*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.EXPV__V42*/ - meltfptr[38] = 0 ; + /*clear*/ /*_.EXPV__V42*/ meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V50*/ - meltfptr[32] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V50*/ meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V51*/ - meltfptr[43] = 0 ; + /*clear*/ /*_.SETQ___V51*/ meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_HEAD__V52*/ - meltfptr[44] = 0 ; + /*clear*/ /*_.PAIR_HEAD__V52*/ meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L15*/ - meltfnum[13] = 0 ; + /*clear*/ /*_#eqeq__L15*/ meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V53*/ - meltfptr[45] = 0 ; + /*clear*/ /*_._IF___V53*/ meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L16*/ - meltfnum[15] = 0 ; + /*clear*/ /*_#NULL__L16*/ meltfnum[15] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V59*/ - meltfptr[53] = 0 ; + /*clear*/ /*_._IF___V59*/ meltfptr[53] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V61*/ - meltfptr[55] = 0 ; - /*_.LET___V20*/ - meltfptr[18] = /*_.LET___V30*/ meltfptr[29];; + /*clear*/ /*_.LET___V61*/ meltfptr[55] = 0 ; + /*_.LET___V20*/ meltfptr[18] = /*_.LET___V30*/ meltfptr[29];; - MELT_LOCATION("warmelt-macro.melt:8796:/ clear"); - /*clear*/ /*_.CONT__V21*/ - meltfptr[5] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8795:/ clear"); + /*clear*/ /*_.CONT__V21*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.LOC__V22*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.LOC__V22*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_FIRST__V23*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.LIST_FIRST__V23*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.CURPAIR__V24*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.CURPAIR__V24*/ meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_HEAD__V25*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.PAIR_HEAD__V25*/ meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.SYMB__V26*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.SYMB__V26*/ meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.DOC__V27*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.DOC__V27*/ meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L7*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_NOT_A__L7*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V28*/ - meltfptr[27] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V28*/ meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V29*/ - meltfptr[28] = 0 ; + /*clear*/ /*_.SETQ___V29*/ meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V30*/ - meltfptr[29] = 0 ; + /*clear*/ /*_.LET___V30*/ meltfptr[29] = 0 ; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8790:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8789:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V20*/ meltfptr[18];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V20*/ meltfptr[18];; { - MELT_LOCATION("warmelt-macro.melt:8790:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:8789:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -9835,25 +8900,19 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V17*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.IFCPP___V17*/ meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V20*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.LET___V20*/ meltfptr[18] = 0 ; } ; @@ -9935,8 +8994,7 @@ meltrout_156_WARMELTmiMACRO_MEXPAND_EXPORT_PATMACRO(meltclosure_ptr_t meltclosp_ /* end of frame for routine meltrout_156_WARMELTmiMACRO_MEXPAND_EXPORT_PATMACRO fromline 1756 */ - /* classy proc frame meltrout_156_WARMELTmiMACRO_MEXPAND_EXPORT_PATMACRO */ - MeltFrame_meltrout_156_WARMELTmiMACRO_MEXPAND_EXPORT_PATMACRO + /* classy proc frame meltrout_156_WARMELTmiMACRO_MEXPAND_EXPORT_PATMACRO */ MeltFrame_meltrout_156_WARMELTmiMACRO_MEXPAND_EXPORT_PATMACRO meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_156_WARMELTmiMACRO_MEXPAND_EXPORT_PATMACRO fromline 1785*/ #if ENABLE_CHECKING @@ -9949,8 +9007,7 @@ meltrout_156_WARMELTmiMACRO_MEXPAND_EXPORT_PATMACRO(meltclosure_ptr_t meltclosp_ #define meltframe meltfram__ melt_trace_start("MEXPAND_EXPORT_PATMACRO", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -9959,31 +9016,27 @@ meltrout_156_WARMELTmiMACRO_MEXPAND_EXPORT_PATMACRO(meltclosure_ptr_t meltclosp_ /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:8858:/ getarg"); - /*_.SEXPR__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + MELT_LOCATION("warmelt-macro.melt:8857:/ getarg"); + /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MEXPANDER__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.MEXPANDER__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODCTX__V5*/ - meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.MODCTX__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) != NULL); ; @@ -9997,7 +9050,7 @@ meltlab_endgetargs: #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8859:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8858:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -10015,8 +9068,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -10024,9 +9076,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:8859:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8858:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10044,7 +9095,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8859:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8858:/ apply"); /*apply*/ { union meltparam_un argtab[5]; @@ -10054,25 +9105,21 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8859; + argtab[2].meltbp_long = 8858; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_export_patmacro sexpr"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 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); + /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 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___V6*/ - meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8859:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8858:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; } ; } @@ -10084,9 +9131,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:8859:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:8858:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -10095,11 +9141,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10121,7 +9165,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8860:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8859:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -10129,19 +9173,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ - meltfnum[1] = + /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:8860:/ cond"); - /*cond*/ - if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8859:/ cond"); + /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:8860:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8859:/ cond.else"); /*^block*/ /*anyblock*/ @@ -10160,34 +9202,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8860; + argtab[2].meltbp_long = 8859; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8860:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8859:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ - meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8860:/ clear"); - /*clear*/ /*_#IS_A__L3*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8859:/ clear"); + /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V9*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10197,7 +9233,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8861:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8860:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -10205,19 +9241,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ - meltfnum[0] = + /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:8861:/ cond"); - /*cond*/ - if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8860:/ cond"); + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:8861:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8860:/ cond.else"); /*^block*/ /*anyblock*/ @@ -10236,34 +9270,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8861; + argtab[2].meltbp_long = 8860; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8861:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8860:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ - meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8861:/ clear"); - /*clear*/ /*_#IS_A__L4*/ - meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8860:/ clear"); + /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10273,7 +9301,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8862:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8861:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -10281,19 +9309,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_CLOSURE__L5*/ - meltfnum[1] = + /*_#IS_CLOSURE__L5*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION("warmelt-macro.melt:8862:/ cond"); - /*cond*/ - if (/*_#IS_CLOSURE__L5*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8861:/ cond"); + /*cond*/ if (/*_#IS_CLOSURE__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:8862:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8861:/ cond.else"); /*^block*/ /*anyblock*/ @@ -10312,34 +9338,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8862; + argtab[2].meltbp_long = 8861; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ - meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8862:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ - meltfptr[15] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8861:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ - meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8862:/ clear"); - /*clear*/ /*_#IS_CLOSURE__L5*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8861:/ clear"); + /*clear*/ /*_#IS_CLOSURE__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10349,7 +9369,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8863:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8862:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -10357,19 +9377,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_OBJECT__L6*/ - meltfnum[0] = + /*_#IS_OBJECT__L6*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION("warmelt-macro.melt:8863:/ cond"); - /*cond*/ - if (/*_#IS_OBJECT__L6*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8862:/ cond"); + /*cond*/ if (/*_#IS_OBJECT__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V18*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:8863:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8862:/ cond.else"); /*^block*/ /*anyblock*/ @@ -10388,34 +9406,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8863; + argtab[2].meltbp_long = 8862; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; - /*_.MELT_ASSERT_FAILURE_FUN__V19*/ - meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V18*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18];; + /*_._IFELSE___V18*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8863:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V19*/ - meltfptr[18] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8862:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V19*/ meltfptr[18] = 0 ; } ; } ; - /*_.IFCPP___V17*/ - meltfptr[15] = /*_._IFELSE___V18*/ meltfptr[5];; + /*_.IFCPP___V17*/ meltfptr[15] = /*_._IFELSE___V18*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8863:/ clear"); - /*clear*/ /*_#IS_OBJECT__L6*/ - meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8862:/ clear"); + /*clear*/ /*_#IS_OBJECT__L6*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V18*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V18*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10423,42 +9435,37 @@ meltlab_endgetargs: /*_.IFCPP___V17*/ meltfptr[15] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; - MELT_LOCATION("warmelt-macro.melt:8864:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8863:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:8865:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:8864:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS"); - /*_.CONT__V21*/ - meltfptr[5] = slot; + /*_.CONT__V21*/ meltfptr[5] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:8866:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:8865:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.LOC__V22*/ - meltfptr[21] = slot; + /*_.LOC__V22*/ meltfptr[21] = slot; }; ; - /*_.LIST_FIRST__V23*/ - meltfptr[22] = + /*_.LIST_FIRST__V23*/ meltfptr[22] = (melt_list_first((melt_ptr_t)(/*_.CONT__V21*/ meltfptr[5])));; /*^compute*/ - /*_.CURPAIR__V24*/ - meltfptr[23] = + /*_.CURPAIR__V24*/ meltfptr[23] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V23*/ meltfptr[22])));; /*^compute*/ - /*_.PAIR_HEAD__V25*/ - meltfptr[24] = + /*_.PAIR_HEAD__V25*/ meltfptr[24] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V24*/ meltfptr[23])));; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8868:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8867:/ apply"); /*apply*/ { union meltparam_un argtab[3]; @@ -10469,28 +9476,22 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; - /*_.SYMB__V26*/ - meltfptr[25] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.PAIR_HEAD__V25*/ meltfptr[24]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.SYMB__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.PAIR_HEAD__V25*/ meltfptr[24]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.PATEXPV__V27*/ - meltfptr[26] = (/*nil*/NULL);; + /*_.PATEXPV__V27*/ meltfptr[26] = (/*nil*/NULL);; /*^compute*/ - /*_.MACEXPV__V28*/ - meltfptr[27] = (/*nil*/NULL);; + /*_.MACEXPV__V28*/ meltfptr[27] = (/*nil*/NULL);; /*^compute*/ - /*_.DOC__V29*/ - meltfptr[28] = (/*nil*/NULL);; + /*_.DOC__V29*/ meltfptr[28] = (/*nil*/NULL);; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#IS_NOT_A__L7*/ - meltfnum[1] = + /*_#IS_NOT_A__L7*/ meltfnum[1] = !melt_is_instance_of((melt_ptr_t)(/*_.SYMB__V26*/ meltfptr[25]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[4])));; - MELT_LOCATION("warmelt-macro.melt:8873:/ cond"); - /*cond*/ - if (/*_#IS_NOT_A__L7*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8872:/ cond"); + /*cond*/ if (/*_#IS_NOT_A__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10499,9 +9500,8 @@ meltlab_endgetargs: { - MELT_LOCATION("warmelt-macro.melt:8874:/ locexp"); - /* error_plain */ - melt_error_str((melt_ptr_t)(/*_.LOC__V22*/ meltfptr[21]), ( "(EXPORT_PATMACRO <sym> <patexpander> <macexpander> [:doc <docum>])\ + MELT_LOCATION("warmelt-macro.melt:8873:/ locexp"); + /* error_plain */ melt_error_str((melt_ptr_t)(/*_.LOC__V22*/ meltfptr[21]), ( "(EXPORT_PATMACRO <sym> <patexpander> <macexpander> [:doc <docum>])\ expecting symbol"), (melt_ptr_t)0); } ; @@ -10510,19 +9510,16 @@ meltlab_endgetargs: ; } /*noelse*/ ; - /*_.PAIR_TAIL__V30*/ - meltfptr[29] = + /*_.PAIR_TAIL__V30*/ meltfptr[29] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V24*/ meltfptr[23])));; - MELT_LOCATION("warmelt-macro.melt:8875:/ compute"); - /*_.CURPAIR__V24*/ - meltfptr[23] = /*_.SETQ___V31*/ meltfptr[30] = /*_.PAIR_TAIL__V30*/ meltfptr[29];; - /*_.PAIR_HEAD__V32*/ - meltfptr[31] = + MELT_LOCATION("warmelt-macro.melt:8874:/ compute"); + /*_.CURPAIR__V24*/ meltfptr[23] = /*_.SETQ___V31*/ meltfptr[30] = /*_.PAIR_TAIL__V30*/ meltfptr[29];; + /*_.PAIR_HEAD__V32*/ meltfptr[31] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V24*/ meltfptr[23])));; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8876:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8875:/ apply"); /*apply*/ { union meltparam_un argtab[3]; @@ -10533,22 +9530,18 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; - /*_.MEXPANDER__V33*/ - meltfptr[32] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.PAIR_HEAD__V32*/ meltfptr[31]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MEXPANDER__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.PAIR_HEAD__V32*/ meltfptr[31]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^compute*/ - /*_.PATEXPV__V27*/ - meltfptr[26] = /*_.SETQ___V34*/ meltfptr[33] = /*_.MEXPANDER__V33*/ meltfptr[32];; + /*_.PATEXPV__V27*/ meltfptr[26] = /*_.SETQ___V34*/ meltfptr[33] = /*_.MEXPANDER__V33*/ meltfptr[32];; MELT_CHECK_SIGNAL(); ; - /*_#NULL__L8*/ - meltfnum[0] = + /*_#NULL__L8*/ meltfnum[0] = (/*null*/(/*_.PATEXPV__V27*/ meltfptr[26]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:8877:/ cond"); - /*cond*/ - if (/*_#NULL__L8*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8876:/ cond"); + /*cond*/ if (/*_#NULL__L8*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10557,9 +9550,8 @@ meltlab_endgetargs: { - MELT_LOCATION("warmelt-macro.melt:8878:/ locexp"); - /* error_plain */ - melt_error_str((melt_ptr_t)(/*_.LOC__V22*/ meltfptr[21]), ( "(EXPORT_PATMACRO <sym> <patexpander> <macexpander> [:doc <docum>])\ + MELT_LOCATION("warmelt-macro.melt:8877:/ locexp"); + /* error_plain */ melt_error_str((melt_ptr_t)(/*_.LOC__V22*/ meltfptr[21]), ( "(EXPORT_PATMACRO <sym> <patexpander> <macexpander> [:doc <docum>])\ expecting patexpander"), (melt_ptr_t)0); } ; @@ -10568,19 +9560,16 @@ meltlab_endgetargs: ; } /*noelse*/ ; - /*_.PAIR_TAIL__V35*/ - meltfptr[34] = + /*_.PAIR_TAIL__V35*/ meltfptr[34] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V24*/ meltfptr[23])));; - MELT_LOCATION("warmelt-macro.melt:8879:/ compute"); - /*_.CURPAIR__V24*/ - meltfptr[23] = /*_.SETQ___V36*/ meltfptr[35] = /*_.PAIR_TAIL__V35*/ meltfptr[34];; - /*_.PAIR_HEAD__V37*/ - meltfptr[36] = + MELT_LOCATION("warmelt-macro.melt:8878:/ compute"); + /*_.CURPAIR__V24*/ meltfptr[23] = /*_.SETQ___V36*/ meltfptr[35] = /*_.PAIR_TAIL__V35*/ meltfptr[34];; + /*_.PAIR_HEAD__V37*/ meltfptr[36] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V24*/ meltfptr[23])));; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8880:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8879:/ apply"); /*apply*/ { union meltparam_un argtab[3]; @@ -10591,22 +9580,18 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; - /*_.MEXPANDER__V38*/ - meltfptr[37] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.PAIR_HEAD__V37*/ meltfptr[36]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MEXPANDER__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.PAIR_HEAD__V37*/ meltfptr[36]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^compute*/ - /*_.MACEXPV__V28*/ - meltfptr[27] = /*_.SETQ___V39*/ meltfptr[38] = /*_.MEXPANDER__V38*/ meltfptr[37];; + /*_.MACEXPV__V28*/ meltfptr[27] = /*_.SETQ___V39*/ meltfptr[38] = /*_.MEXPANDER__V38*/ meltfptr[37];; MELT_CHECK_SIGNAL(); ; - /*_#NULL__L9*/ - meltfnum[8] = + /*_#NULL__L9*/ meltfnum[8] = (/*null*/(/*_.MACEXPV__V28*/ meltfptr[27]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:8881:/ cond"); - /*cond*/ - if (/*_#NULL__L9*/ meltfnum[8]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8880:/ cond"); + /*cond*/ if (/*_#NULL__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10615,9 +9600,8 @@ meltlab_endgetargs: { - MELT_LOCATION("warmelt-macro.melt:8882:/ locexp"); - /* error_plain */ - melt_error_str((melt_ptr_t)(/*_.LOC__V22*/ meltfptr[21]), ( "(EXPORT_PATMACRO <sym> <patexpander> <macexpander> [:doc <docum>])\ + MELT_LOCATION("warmelt-macro.melt:8881:/ locexp"); + /* error_plain */ melt_error_str((melt_ptr_t)(/*_.LOC__V22*/ meltfptr[21]), ( "(EXPORT_PATMACRO <sym> <patexpander> <macexpander> [:doc <docum>])\ expecting macexpander"), (melt_ptr_t)0); } ; @@ -10626,25 +9610,20 @@ meltlab_endgetargs: ; } /*noelse*/ ; - /*_.PAIR_TAIL__V40*/ - meltfptr[39] = + /*_.PAIR_TAIL__V40*/ meltfptr[39] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V24*/ meltfptr[23])));; - MELT_LOCATION("warmelt-macro.melt:8883:/ compute"); - /*_.CURPAIR__V24*/ - meltfptr[23] = /*_.SETQ___V41*/ meltfptr[40] = /*_.PAIR_TAIL__V40*/ meltfptr[39];; + MELT_LOCATION("warmelt-macro.melt:8882:/ compute"); + /*_.CURPAIR__V24*/ meltfptr[23] = /*_.SETQ___V41*/ meltfptr[40] = /*_.PAIR_TAIL__V40*/ meltfptr[39];; MELT_CHECK_SIGNAL(); ; - /*_.PAIR_HEAD__V42*/ - meltfptr[41] = + /*_.PAIR_HEAD__V42*/ meltfptr[41] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V24*/ meltfptr[23])));; /*^compute*/ - /*_#eqeq__L10*/ - meltfnum[9] = + /*_#eqeq__L10*/ meltfnum[9] = ((/*_.PAIR_HEAD__V42*/ meltfptr[41]) == ((/*!konst_5_DOC*/ meltfrout->tabval[5])));; - MELT_LOCATION("warmelt-macro.melt:8884:/ cond"); - /*cond*/ - if (/*_#eqeq__L10*/ meltfnum[9]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8883:/ cond"); + /*cond*/ if (/*_#eqeq__L10*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10653,40 +9632,30 @@ meltlab_endgetargs: /*_.PAIR_TAIL__V44*/ meltfptr[43] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V24*/ meltfptr[23])));; - MELT_LOCATION("warmelt-macro.melt:8886:/ compute"); - /*_.CURPAIR__V24*/ - meltfptr[23] = /*_.SETQ___V45*/ meltfptr[44] = /*_.PAIR_TAIL__V44*/ meltfptr[43];; - /*_.PAIR_HEAD__V46*/ - meltfptr[45] = + MELT_LOCATION("warmelt-macro.melt:8885:/ compute"); + /*_.CURPAIR__V24*/ meltfptr[23] = /*_.SETQ___V45*/ meltfptr[44] = /*_.PAIR_TAIL__V44*/ meltfptr[43];; + /*_.PAIR_HEAD__V46*/ meltfptr[45] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V24*/ meltfptr[23])));; - MELT_LOCATION("warmelt-macro.melt:8887:/ compute"); - /*_.DOC__V29*/ - meltfptr[28] = /*_.SETQ___V47*/ meltfptr[46] = /*_.PAIR_HEAD__V46*/ meltfptr[45];; - MELT_LOCATION("warmelt-macro.melt:8885:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8886:/ compute"); + /*_.DOC__V29*/ meltfptr[28] = /*_.SETQ___V47*/ meltfptr[46] = /*_.PAIR_HEAD__V46*/ meltfptr[45];; + MELT_LOCATION("warmelt-macro.melt:8884:/ quasiblock"); - /*_.PROGN___V48*/ - meltfptr[47] = /*_.SETQ___V47*/ meltfptr[46];; + /*_.PROGN___V48*/ meltfptr[47] = /*_.SETQ___V47*/ meltfptr[46];; /*^compute*/ - /*_._IF___V43*/ - meltfptr[42] = /*_.PROGN___V48*/ meltfptr[47];; + /*_._IF___V43*/ meltfptr[42] = /*_.PROGN___V48*/ meltfptr[47];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8884:/ clear"); - /*clear*/ /*_.PAIR_TAIL__V44*/ - meltfptr[43] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8883:/ clear"); + /*clear*/ /*_.PAIR_TAIL__V44*/ meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V45*/ - meltfptr[44] = 0 ; + /*clear*/ /*_.SETQ___V45*/ meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_HEAD__V46*/ - meltfptr[45] = 0 ; + /*clear*/ /*_.PAIR_HEAD__V46*/ meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V47*/ - meltfptr[46] = 0 ; + /*clear*/ /*_.SETQ___V47*/ meltfptr[46] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V48*/ - meltfptr[47] = 0 ; + /*clear*/ /*_.PROGN___V48*/ meltfptr[47] = 0 ; } ; } @@ -10696,7 +9665,7 @@ meltlab_endgetargs: /*_._IF___V43*/ meltfptr[42] = /*reallynil*/ NULL ;; } ; - MELT_LOCATION("warmelt-macro.melt:8890:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8889:/ quasiblock"); @@ -10710,8 +9679,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_PATMACRO*/ meltfrout->tabval[6])), (6), "CLASS_SOURCE_EXPORT_PATMACRO"); - /*_.INST__V51*/ - meltfptr[45] = + /*_.INST__V51*/ meltfptr[45] = newobj; }; ; @@ -10744,11 +9712,10 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V51*/ meltfptr[45], "newly made instance"); ; - /*_.RES__V50*/ - meltfptr[44] = /*_.INST__V51*/ meltfptr[45];; + /*_.RES__V50*/ meltfptr[44] = /*_.INST__V51*/ meltfptr[45];; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8898:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8897:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -10766,8 +9733,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L11*/ - meltfnum[10] = + /*_#MELT_NEED_DBG__L11*/ meltfnum[10] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -10775,9 +9741,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:8898:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L11*/ meltfnum[10]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8897:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L11*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -10795,7 +9760,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8898:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8897:/ apply"); /*apply*/ { union meltparam_un argtab[5]; @@ -10805,25 +9770,21 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8898; + argtab[2].meltbp_long = 8897; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_export_patmacro result res"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RES__V50*/ meltfptr[44]; - /*_.MELT_DEBUG_FUN__V53*/ - meltfptr[47] = 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); + /*_.MELT_DEBUG_FUN__V53*/ meltfptr[47] = 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___V52*/ - meltfptr[46] = /*_.MELT_DEBUG_FUN__V53*/ meltfptr[47];; + /*_._IF___V52*/ meltfptr[46] = /*_.MELT_DEBUG_FUN__V53*/ meltfptr[47];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8898:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L12*/ - meltfnum[11] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8897:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L12*/ meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V53*/ - meltfptr[47] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V53*/ meltfptr[47] = 0 ; } ; } @@ -10835,9 +9796,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:8898:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:8897:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -10846,11 +9806,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L11*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L11*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V52*/ - meltfptr[46] = 0 ; + /*clear*/ /*_._IF___V52*/ meltfptr[46] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -10873,14 +9831,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8899:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8898:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.RES__V50*/ meltfptr[44];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.RES__V50*/ meltfptr[44];; { - MELT_LOCATION("warmelt-macro.melt:8899:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:8898:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -10892,115 +9849,81 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - /*_.LET___V49*/ - meltfptr[43] = /*_.RETURN___V54*/ meltfptr[47];; + /*finalret*/ goto meltlabend_rout ; + /*_.LET___V49*/ meltfptr[43] = /*_.RETURN___V54*/ meltfptr[47];; - MELT_LOCATION("warmelt-macro.melt:8890:/ clear"); - /*clear*/ /*_.RES__V50*/ - meltfptr[44] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8889:/ clear"); + /*clear*/ /*_.RES__V50*/ meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V54*/ - meltfptr[47] = 0 ; - /*_.LET___V20*/ - meltfptr[18] = /*_.LET___V49*/ meltfptr[43];; + /*clear*/ /*_.RETURN___V54*/ meltfptr[47] = 0 ; + /*_.LET___V20*/ meltfptr[18] = /*_.LET___V49*/ meltfptr[43];; - MELT_LOCATION("warmelt-macro.melt:8864:/ clear"); - /*clear*/ /*_.CONT__V21*/ - meltfptr[5] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8863:/ clear"); + /*clear*/ /*_.CONT__V21*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.LOC__V22*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.LOC__V22*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_FIRST__V23*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.LIST_FIRST__V23*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.CURPAIR__V24*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.CURPAIR__V24*/ meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_HEAD__V25*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.PAIR_HEAD__V25*/ meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.SYMB__V26*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.SYMB__V26*/ meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.PATEXPV__V27*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.PATEXPV__V27*/ meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.MACEXPV__V28*/ - meltfptr[27] = 0 ; + /*clear*/ /*_.MACEXPV__V28*/ meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.DOC__V29*/ - meltfptr[28] = 0 ; + /*clear*/ /*_.DOC__V29*/ meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L7*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#IS_NOT_A__L7*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V30*/ - meltfptr[29] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V30*/ meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V31*/ - meltfptr[30] = 0 ; + /*clear*/ /*_.SETQ___V31*/ meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_HEAD__V32*/ - meltfptr[31] = 0 ; + /*clear*/ /*_.PAIR_HEAD__V32*/ meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_.MEXPANDER__V33*/ - meltfptr[32] = 0 ; + /*clear*/ /*_.MEXPANDER__V33*/ meltfptr[32] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V34*/ - meltfptr[33] = 0 ; + /*clear*/ /*_.SETQ___V34*/ meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L8*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#NULL__L8*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V35*/ - meltfptr[34] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V35*/ meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V36*/ - meltfptr[35] = 0 ; + /*clear*/ /*_.SETQ___V36*/ meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_HEAD__V37*/ - meltfptr[36] = 0 ; + /*clear*/ /*_.PAIR_HEAD__V37*/ meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.MEXPANDER__V38*/ - meltfptr[37] = 0 ; + /*clear*/ /*_.MEXPANDER__V38*/ meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V39*/ - meltfptr[38] = 0 ; + /*clear*/ /*_.SETQ___V39*/ meltfptr[38] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L9*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#NULL__L9*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V40*/ - meltfptr[39] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V40*/ meltfptr[39] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V41*/ - meltfptr[40] = 0 ; + /*clear*/ /*_.SETQ___V41*/ meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_HEAD__V42*/ - meltfptr[41] = 0 ; + /*clear*/ /*_.PAIR_HEAD__V42*/ meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L10*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#eqeq__L10*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V43*/ - meltfptr[42] = 0 ; + /*clear*/ /*_._IF___V43*/ meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V49*/ - meltfptr[43] = 0 ; + /*clear*/ /*_.LET___V49*/ meltfptr[43] = 0 ; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8858:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8857:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V20*/ meltfptr[18];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V20*/ meltfptr[18];; { - MELT_LOCATION("warmelt-macro.melt:8858:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:8857:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -11012,25 +9935,19 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V17*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.IFCPP___V17*/ meltfptr[15] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V20*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.LET___V20*/ meltfptr[18] = 0 ; } ; @@ -11112,8 +10029,7 @@ meltrout_157_WARMELTmiMACRO_MEXPAND_EXPORT_CLASS(meltclosure_ptr_t meltclosp_, m /* end of frame for routine meltrout_157_WARMELTmiMACRO_MEXPAND_EXPORT_CLASS fromline 1756 */ - /* classy proc frame meltrout_157_WARMELTmiMACRO_MEXPAND_EXPORT_CLASS */ - MeltFrame_meltrout_157_WARMELTmiMACRO_MEXPAND_EXPORT_CLASS + /* classy proc frame meltrout_157_WARMELTmiMACRO_MEXPAND_EXPORT_CLASS */ MeltFrame_meltrout_157_WARMELTmiMACRO_MEXPAND_EXPORT_CLASS meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_157_WARMELTmiMACRO_MEXPAND_EXPORT_CLASS fromline 1785*/ #if ENABLE_CHECKING @@ -11126,8 +10042,7 @@ meltrout_157_WARMELTmiMACRO_MEXPAND_EXPORT_CLASS(meltclosure_ptr_t meltclosp_, m #define meltframe meltfram__ melt_trace_start("MEXPAND_EXPORT_CLASS", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -11136,31 +10051,27 @@ meltrout_157_WARMELTmiMACRO_MEXPAND_EXPORT_CLASS(meltclosure_ptr_t meltclosp_, m /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:8908:/ getarg"); - /*_.SEXPR__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + MELT_LOCATION("warmelt-macro.melt:8907:/ getarg"); + /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MEXPANDER__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.MEXPANDER__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODCTX__V5*/ - meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.MODCTX__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) != NULL); ; @@ -11174,7 +10085,7 @@ meltlab_endgetargs: #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8909:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8908:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -11192,8 +10103,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -11201,9 +10111,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:8909:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8908:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11221,7 +10130,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8909:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8908:/ apply"); /*apply*/ { union meltparam_un argtab[5]; @@ -11231,25 +10140,21 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8909; + argtab[2].meltbp_long = 8908; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_export_class sexpr="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 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); + /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 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___V6*/ - meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8909:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8908:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; } ; } @@ -11261,9 +10166,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:8909:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:8908:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -11272,11 +10176,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11298,7 +10200,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8910:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8909:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -11306,19 +10208,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ - meltfnum[1] = + /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:8910:/ cond"); - /*cond*/ - if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8909:/ cond"); + /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:8910:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8909:/ cond.else"); /*^block*/ /*anyblock*/ @@ -11337,34 +10237,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8910; + argtab[2].meltbp_long = 8909; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8910:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8909:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ - meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8910:/ clear"); - /*clear*/ /*_#IS_A__L3*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8909:/ clear"); + /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V9*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11374,7 +10268,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8911:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8910:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -11382,19 +10276,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ - meltfnum[0] = + /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:8911:/ cond"); - /*cond*/ - if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8910:/ cond"); + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:8911:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8910:/ cond.else"); /*^block*/ /*anyblock*/ @@ -11413,34 +10305,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8911; + argtab[2].meltbp_long = 8910; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8911:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8910:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ - meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8911:/ clear"); - /*clear*/ /*_#IS_A__L4*/ - meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8910:/ clear"); + /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11452,12 +10338,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#NULL__L5*/ - meltfnum[1] = + /*_#NULL__L5*/ meltfnum[1] = (/*null*/(/*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:8912:/ cond"); - /*cond*/ - if (/*_#NULL__L5*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8911:/ cond"); + /*cond*/ if (/*_#NULL__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11466,13 +10350,11 @@ meltlab_endgetargs: /*^compute*/ /*_.MEXPANDER__V4*/ meltfptr[3] = /*_.SETQ___V15*/ meltfptr[5] = (/*!MACROEXPAND_1*/ meltfrout->tabval[4]);; - /*_._IF___V14*/ - meltfptr[12] = /*_.SETQ___V15*/ meltfptr[5];; + /*_._IF___V14*/ meltfptr[12] = /*_.SETQ___V15*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8912:/ clear"); - /*clear*/ /*_.SETQ___V15*/ - meltfptr[5] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8911:/ clear"); + /*clear*/ /*_.SETQ___V15*/ meltfptr[5] = 0 ; } ; } @@ -11484,7 +10366,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8913:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8912:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -11492,19 +10374,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_OBJECT__L6*/ - meltfnum[0] = + /*_#IS_OBJECT__L6*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION("warmelt-macro.melt:8913:/ cond"); - /*cond*/ - if (/*_#IS_OBJECT__L6*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8912:/ cond"); + /*cond*/ if (/*_#IS_OBJECT__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V17*/ meltfptr[16] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:8913:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8912:/ cond.else"); /*^block*/ /*anyblock*/ @@ -11523,34 +10403,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8913; + argtab[2].meltbp_long = 8912; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; - /*_.MELT_ASSERT_FAILURE_FUN__V18*/ - meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V17*/ - meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];; + /*_._IFELSE___V17*/ meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8913:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/ - meltfptr[17] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8912:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17] = 0 ; } ; } ; - /*_.IFCPP___V16*/ - meltfptr[5] = /*_._IFELSE___V17*/ meltfptr[16];; + /*_.IFCPP___V16*/ meltfptr[5] = /*_._IFELSE___V17*/ meltfptr[16];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8913:/ clear"); - /*clear*/ /*_#IS_OBJECT__L6*/ - meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8912:/ clear"); + /*clear*/ /*_#IS_OBJECT__L6*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V17*/ - meltfptr[16] = 0 ; + /*clear*/ /*_._IFELSE___V17*/ meltfptr[16] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11558,38 +10432,34 @@ meltlab_endgetargs: /*_.IFCPP___V16*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; - MELT_LOCATION("warmelt-macro.melt:8914:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8913:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:8915:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:8914:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS"); - /*_.CONT__V20*/ - meltfptr[16] = slot; + /*_.CONT__V20*/ meltfptr[16] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:8916:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:8915:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.LOC__V21*/ - meltfptr[20] = slot; + /*_.LOC__V21*/ meltfptr[20] = slot; }; ; - /*_.LIST_FIRST__V22*/ - meltfptr[21] = + /*_.LIST_FIRST__V22*/ meltfptr[21] = (melt_list_first((melt_ptr_t)(/*_.CONT__V20*/ meltfptr[16])));; /*^compute*/ - /*_.CURPAIR__V23*/ - meltfptr[22] = + /*_.CURPAIR__V23*/ meltfptr[22] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V22*/ meltfptr[21])));; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8918:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8917:/ apply"); /*apply*/ { union meltparam_un argtab[3]; @@ -11600,14 +10470,13 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; - /*_.SYMBTUP__V24*/ - meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_PAIRLIST_AS_TUPLE*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.CURPAIR__V23*/ meltfptr[22]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.SYMBTUP__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_PAIRLIST_AS_TUPLE*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.CURPAIR__V23*/ meltfptr[22]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8919:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8918:/ quasiblock"); /*^rawallocobj*/ @@ -11615,8 +10484,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_CLASS*/ meltfrout->tabval[6])), (3), "CLASS_SOURCE_EXPORT_CLASS"); - /*_.INST__V26*/ - meltfptr[25] = + /*_.INST__V26*/ meltfptr[25] = newobj; }; ; @@ -11634,8 +10502,7 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V26*/ meltfptr[25], "newly made instance"); ; - /*_.RES__V25*/ - meltfptr[24] = /*_.INST__V26*/ meltfptr[25];; + /*_.RES__V25*/ meltfptr[24] = /*_.INST__V26*/ meltfptr[25];; /*citerblock FOREACH_IN_MULTIPLE*/ { /* start foreach_in_multiple meltcit1__EACHTUP */ @@ -11651,12 +10518,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_NOT_A__L8*/ - meltfnum[7] = + /*_#IS_NOT_A__L8*/ meltfnum[7] = !melt_is_instance_of((melt_ptr_t)(/*_.CURSYMB__V27*/ meltfptr[26]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[7])));; - MELT_LOCATION("warmelt-macro.melt:8926:/ cond"); - /*cond*/ - if (/*_#IS_NOT_A__L8*/ meltfnum[7]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8925:/ cond"); + /*cond*/ if (/*_#IS_NOT_A__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11666,7 +10531,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8927:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8926:/ apply"); /*apply*/ { union meltparam_un argtab[2]; @@ -11675,17 +10540,14 @@ meltlab_endgetargs: argtab[0].meltbp_cstring = "(EXPORT_CLASS <symbol> ...) with non-symbol argument of rank $1"; /*^apply.arg*/ argtab[1].meltbp_long = /*_#SIX__L7*/ meltfnum[0]; - /*_.ERROR_AT__V29*/ - meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.LOC__V21*/ meltfptr[20]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); + /*_.ERROR_AT__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.LOC__V21*/ meltfptr[20]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V28*/ - meltfptr[27] = /*_.ERROR_AT__V29*/ meltfptr[28];; + /*_._IF___V28*/ meltfptr[27] = /*_.ERROR_AT__V29*/ meltfptr[28];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8926:/ clear"); - /*clear*/ /*_.ERROR_AT__V29*/ - meltfptr[28] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8925:/ clear"); + /*clear*/ /*_.ERROR_AT__V29*/ meltfptr[28] = 0 ; } ; } @@ -11700,23 +10562,19 @@ meltlab_endgetargs: /*citerepilog*/ - MELT_LOCATION("warmelt-macro.melt:8923:/ clear"); - /*clear*/ /*_.CURSYMB__V27*/ - meltfptr[26] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8922:/ clear"); + /*clear*/ /*_.CURSYMB__V27*/ meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_#SIX__L7*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#SIX__L7*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L8*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#IS_NOT_A__L8*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V28*/ - meltfptr[27] = 0 ; + /*clear*/ /*_._IF___V28*/ meltfptr[27] = 0 ; } /*endciterblock FOREACH_IN_MULTIPLE*/ ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8928:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8927:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -11734,8 +10592,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L9*/ - meltfnum[8] = + /*_#MELT_NEED_DBG__L9*/ meltfnum[8] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -11743,9 +10600,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:8928:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8927:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -11763,7 +10619,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8928:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8927:/ apply"); /*apply*/ { union meltparam_un argtab[5]; @@ -11773,25 +10629,21 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8928; + argtab[2].meltbp_long = 8927; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_export_class result res"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RES__V25*/ meltfptr[24]; - /*_.MELT_DEBUG_FUN__V31*/ - meltfptr[30] = 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); + /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30] = 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___V30*/ - meltfptr[28] = /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30];; + /*_._IF___V30*/ meltfptr[28] = /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8928:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L10*/ - meltfnum[9] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8927:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ - meltfptr[30] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30] = 0 ; } ; } @@ -11803,9 +10655,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:8928:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:8927:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -11814,11 +10665,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L9*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V30*/ - meltfptr[28] = 0 ; + /*clear*/ /*_._IF___V30*/ meltfptr[28] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -11841,14 +10690,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8929:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8928:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.RES__V25*/ meltfptr[24];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.RES__V25*/ meltfptr[24];; { - MELT_LOCATION("warmelt-macro.melt:8929:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:8928:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -11860,43 +10708,33 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - /*_.LET___V19*/ - meltfptr[17] = /*_.RETURN___V32*/ meltfptr[30];; + /*finalret*/ goto meltlabend_rout ; + /*_.LET___V19*/ meltfptr[17] = /*_.RETURN___V32*/ meltfptr[30];; - MELT_LOCATION("warmelt-macro.melt:8914:/ clear"); - /*clear*/ /*_.CONT__V20*/ - meltfptr[16] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8913:/ clear"); + /*clear*/ /*_.CONT__V20*/ meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.LOC__V21*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.LOC__V21*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_FIRST__V22*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.LIST_FIRST__V22*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.CURPAIR__V23*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.CURPAIR__V23*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.SYMBTUP__V24*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.SYMBTUP__V24*/ meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.RES__V25*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.RES__V25*/ meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V32*/ - meltfptr[30] = 0 ; + /*clear*/ /*_.RETURN___V32*/ meltfptr[30] = 0 ; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8908:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8907:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V19*/ meltfptr[17];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V19*/ meltfptr[17];; { - MELT_LOCATION("warmelt-macro.melt:8908:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:8907:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -11908,28 +10746,21 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L5*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#NULL__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V14*/ - meltfptr[12] = 0 ; + /*clear*/ /*_._IF___V14*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V16*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.IFCPP___V16*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V19*/ - meltfptr[17] = 0 ; + /*clear*/ /*_.LET___V19*/ meltfptr[17] = 0 ; } ; @@ -12011,8 +10842,7 @@ meltrout_158_WARMELTmiMACRO_MEXPAND_EXPORT_SYNONYM(meltclosure_ptr_t meltclosp_, /* end of frame for routine meltrout_158_WARMELTmiMACRO_MEXPAND_EXPORT_SYNONYM fromline 1756 */ - /* classy proc frame meltrout_158_WARMELTmiMACRO_MEXPAND_EXPORT_SYNONYM */ - MeltFrame_meltrout_158_WARMELTmiMACRO_MEXPAND_EXPORT_SYNONYM + /* classy proc frame meltrout_158_WARMELTmiMACRO_MEXPAND_EXPORT_SYNONYM */ MeltFrame_meltrout_158_WARMELTmiMACRO_MEXPAND_EXPORT_SYNONYM meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_158_WARMELTmiMACRO_MEXPAND_EXPORT_SYNONYM fromline 1785*/ #if ENABLE_CHECKING @@ -12025,8 +10855,7 @@ meltrout_158_WARMELTmiMACRO_MEXPAND_EXPORT_SYNONYM(meltclosure_ptr_t meltclosp_, #define meltframe meltfram__ melt_trace_start("MEXPAND_EXPORT_SYNONYM", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -12035,31 +10864,27 @@ meltrout_158_WARMELTmiMACRO_MEXPAND_EXPORT_SYNONYM(meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:8938:/ getarg"); - /*_.SEXPR__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + MELT_LOCATION("warmelt-macro.melt:8937:/ getarg"); + /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MEXPANDER__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.MEXPANDER__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODCTX__V5*/ - meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.MODCTX__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) != NULL); ; @@ -12073,7 +10898,7 @@ meltlab_endgetargs: #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8939:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8938:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -12091,8 +10916,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -12100,9 +10924,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:8939:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8938:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12120,7 +10943,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8939:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8938:/ apply"); /*apply*/ { union meltparam_un argtab[5]; @@ -12130,25 +10953,21 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8939; + argtab[2].meltbp_long = 8938; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_export_synonym sexpr="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 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); + /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 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___V6*/ - meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8939:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8938:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; } ; } @@ -12160,9 +10979,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:8939:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:8938:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -12171,11 +10989,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12197,7 +11013,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8940:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8939:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -12205,19 +11021,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ - meltfnum[1] = + /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:8940:/ cond"); - /*cond*/ - if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8939:/ cond"); + /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:8940:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8939:/ cond.else"); /*^block*/ /*anyblock*/ @@ -12236,34 +11050,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8940; + argtab[2].meltbp_long = 8939; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8940:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8939:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ - meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8940:/ clear"); - /*clear*/ /*_#IS_A__L3*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8939:/ clear"); + /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V9*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12273,7 +11081,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8941:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8940:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -12281,19 +11089,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ - meltfnum[0] = + /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:8941:/ cond"); - /*cond*/ - if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8940:/ cond"); + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:8941:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8940:/ cond.else"); /*^block*/ /*anyblock*/ @@ -12312,34 +11118,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8941; + argtab[2].meltbp_long = 8940; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8941:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8940:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ - meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8941:/ clear"); - /*clear*/ /*_#IS_A__L4*/ - meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8940:/ clear"); + /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12351,12 +11151,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#NULL__L5*/ - meltfnum[1] = + /*_#NULL__L5*/ meltfnum[1] = (/*null*/(/*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:8942:/ cond"); - /*cond*/ - if (/*_#NULL__L5*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8941:/ cond"); + /*cond*/ if (/*_#NULL__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12365,13 +11163,11 @@ meltlab_endgetargs: /*^compute*/ /*_.MEXPANDER__V4*/ meltfptr[3] = /*_.SETQ___V15*/ meltfptr[5] = (/*!MACROEXPAND_1*/ meltfrout->tabval[4]);; - /*_._IF___V14*/ - meltfptr[12] = /*_.SETQ___V15*/ meltfptr[5];; + /*_._IF___V14*/ meltfptr[12] = /*_.SETQ___V15*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8942:/ clear"); - /*clear*/ /*_.SETQ___V15*/ - meltfptr[5] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8941:/ clear"); + /*clear*/ /*_.SETQ___V15*/ meltfptr[5] = 0 ; } ; } @@ -12383,7 +11179,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8943:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8942:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -12391,19 +11187,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_OBJECT__L6*/ - meltfnum[0] = + /*_#IS_OBJECT__L6*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION("warmelt-macro.melt:8943:/ cond"); - /*cond*/ - if (/*_#IS_OBJECT__L6*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8942:/ cond"); + /*cond*/ if (/*_#IS_OBJECT__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V17*/ meltfptr[16] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:8943:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8942:/ cond.else"); /*^block*/ /*anyblock*/ @@ -12422,34 +11216,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8943; + argtab[2].meltbp_long = 8942; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; - /*_.MELT_ASSERT_FAILURE_FUN__V18*/ - meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V17*/ - meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];; + /*_._IFELSE___V17*/ meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8943:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/ - meltfptr[17] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8942:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17] = 0 ; } ; } ; - /*_.IFCPP___V16*/ - meltfptr[5] = /*_._IFELSE___V17*/ meltfptr[16];; + /*_.IFCPP___V16*/ meltfptr[5] = /*_._IFELSE___V17*/ meltfptr[16];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8943:/ clear"); - /*clear*/ /*_#IS_OBJECT__L6*/ - meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8942:/ clear"); + /*clear*/ /*_#IS_OBJECT__L6*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V17*/ - meltfptr[16] = 0 ; + /*clear*/ /*_._IFELSE___V17*/ meltfptr[16] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12457,51 +11245,43 @@ meltlab_endgetargs: /*_.IFCPP___V16*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; - MELT_LOCATION("warmelt-macro.melt:8944:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8943:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:8945:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:8944:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS"); - /*_.CONT__V20*/ - meltfptr[16] = slot; + /*_.CONT__V20*/ meltfptr[16] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:8946:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:8945:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.LOC__V21*/ - meltfptr[20] = slot; + /*_.LOC__V21*/ meltfptr[20] = slot; }; ; - /*_.LIST_FIRST__V22*/ - meltfptr[21] = + /*_.LIST_FIRST__V22*/ meltfptr[21] = (melt_list_first((melt_ptr_t)(/*_.CONT__V20*/ meltfptr[16])));; /*^compute*/ - /*_.CURPAIR__V23*/ - meltfptr[22] = + /*_.CURPAIR__V23*/ meltfptr[22] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V22*/ meltfptr[21])));; /*^compute*/ - /*_.NEWSYMB__V24*/ - meltfptr[23] = (/*nil*/NULL);; + /*_.NEWSYMB__V24*/ meltfptr[23] = (/*nil*/NULL);; /*^compute*/ - /*_.OLDSYMB__V25*/ - meltfptr[24] = (/*nil*/NULL);; + /*_.OLDSYMB__V25*/ meltfptr[24] = (/*nil*/NULL);; /*^compute*/ - /*_.DOC__V26*/ - meltfptr[25] = (/*nil*/NULL);; + /*_.DOC__V26*/ meltfptr[25] = (/*nil*/NULL);; /*^compute*/ - /*_.PAIR_HEAD__V27*/ - meltfptr[26] = + /*_.PAIR_HEAD__V27*/ meltfptr[26] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V23*/ meltfptr[22])));; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8953:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8952:/ apply"); /*apply*/ { union meltparam_un argtab[3]; @@ -12512,16 +11292,14 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; - /*_.MEXPANDER__V28*/ - meltfptr[27] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.PAIR_HEAD__V27*/ meltfptr[26]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MEXPANDER__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.PAIR_HEAD__V27*/ meltfptr[26]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^compute*/ - /*_.NEWSYMB__V24*/ - meltfptr[23] = /*_.SETQ___V29*/ meltfptr[28] = /*_.MEXPANDER__V28*/ meltfptr[27];; + /*_.NEWSYMB__V24*/ meltfptr[23] = /*_.SETQ___V29*/ meltfptr[28] = /*_.MEXPANDER__V28*/ meltfptr[27];; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8954:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8953:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -12539,8 +11317,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L7*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L7*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -12548,9 +11325,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:8954:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8953:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12568,7 +11344,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8954:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8953:/ apply"); /*apply*/ { union meltparam_un argtab[5]; @@ -12578,25 +11354,21 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8954; + argtab[2].meltbp_long = 8953; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpander_export_synonym newsymb"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NEWSYMB__V24*/ meltfptr[23]; - /*_.MELT_DEBUG_FUN__V31*/ - meltfptr[30] = 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); + /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30] = 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___V30*/ - meltfptr[29] = /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30];; + /*_._IF___V30*/ meltfptr[29] = /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8954:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ - meltfnum[7] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8953:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ - meltfptr[30] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30] = 0 ; } ; } @@ -12608,9 +11380,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:8954:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:8953:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -12619,11 +11390,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V30*/ - meltfptr[29] = 0 ; + /*clear*/ /*_._IF___V30*/ meltfptr[29] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12646,12 +11415,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_NOT_A__L9*/ - meltfnum[7] = + /*_#IS_NOT_A__L9*/ meltfnum[7] = !melt_is_instance_of((melt_ptr_t)(/*_.NEWSYMB__V24*/ meltfptr[23]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[5])));; - MELT_LOCATION("warmelt-macro.melt:8955:/ cond"); - /*cond*/ - if (/*_#IS_NOT_A__L9*/ meltfnum[7]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8954:/ cond"); + /*cond*/ if (/*_#IS_NOT_A__L9*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12660,9 +11427,8 @@ meltlab_endgetargs: { - MELT_LOCATION("warmelt-macro.melt:8956:/ locexp"); - /* error_plain */ - melt_error_str((melt_ptr_t)(/*_.LOC__V21*/ meltfptr[20]), ( "bad new name in (EXPORT_SYNONYM <newname> <oldname> [:doc <docum>])"), (melt_ptr_t)0); + MELT_LOCATION("warmelt-macro.melt:8955:/ locexp"); + /* error_plain */ melt_error_str((melt_ptr_t)(/*_.LOC__V21*/ meltfptr[20]), ( "bad new name in (EXPORT_SYNONYM <newname> <oldname> [:doc <docum>])"), (melt_ptr_t)0); } ; /*epilog*/ @@ -12670,19 +11436,16 @@ meltlab_endgetargs: ; } /*noelse*/ ; - /*_.PAIR_TAIL__V32*/ - meltfptr[30] = + /*_.PAIR_TAIL__V32*/ meltfptr[30] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V23*/ meltfptr[22])));; - MELT_LOCATION("warmelt-macro.melt:8957:/ compute"); - /*_.CURPAIR__V23*/ - meltfptr[22] = /*_.SETQ___V33*/ meltfptr[29] = /*_.PAIR_TAIL__V32*/ meltfptr[30];; - /*_.PAIR_HEAD__V34*/ - meltfptr[33] = + MELT_LOCATION("warmelt-macro.melt:8956:/ compute"); + /*_.CURPAIR__V23*/ meltfptr[22] = /*_.SETQ___V33*/ meltfptr[29] = /*_.PAIR_TAIL__V32*/ meltfptr[30];; + /*_.PAIR_HEAD__V34*/ meltfptr[33] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V23*/ meltfptr[22])));; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8959:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8958:/ apply"); /*apply*/ { union meltparam_un argtab[3]; @@ -12693,16 +11456,14 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; - /*_.MEXPANDER__V35*/ - meltfptr[34] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.PAIR_HEAD__V34*/ meltfptr[33]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MEXPANDER__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.PAIR_HEAD__V34*/ meltfptr[33]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^compute*/ - /*_.OLDSYMB__V25*/ - meltfptr[24] = /*_.SETQ___V36*/ meltfptr[35] = /*_.MEXPANDER__V35*/ meltfptr[34];; + /*_.OLDSYMB__V25*/ meltfptr[24] = /*_.SETQ___V36*/ meltfptr[35] = /*_.MEXPANDER__V35*/ meltfptr[34];; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8960:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8959:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -12720,8 +11481,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L10*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L10*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -12729,9 +11489,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:8960:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L10*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8959:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L10*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12749,7 +11508,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8960:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8959:/ apply"); /*apply*/ { union meltparam_un argtab[5]; @@ -12759,25 +11518,21 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8960; + argtab[2].meltbp_long = 8959; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpander_export_synonym oldsymb"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OLDSYMB__V25*/ meltfptr[24]; - /*_.MELT_DEBUG_FUN__V38*/ - meltfptr[37] = 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); + /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37] = 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___V37*/ - meltfptr[36] = /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37];; + /*_._IF___V37*/ meltfptr[36] = /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8960:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L11*/ - meltfnum[10] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8959:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L11*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V38*/ - meltfptr[37] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37] = 0 ; } ; } @@ -12789,9 +11544,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:8960:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:8959:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -12800,11 +11554,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L10*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L10*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V37*/ - meltfptr[36] = 0 ; + /*clear*/ /*_._IF___V37*/ meltfptr[36] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -12827,12 +11579,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_NOT_A__L12*/ - meltfnum[10] = + /*_#IS_NOT_A__L12*/ meltfnum[10] = !melt_is_instance_of((melt_ptr_t)(/*_.OLDSYMB__V25*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[5])));; - MELT_LOCATION("warmelt-macro.melt:8961:/ cond"); - /*cond*/ - if (/*_#IS_NOT_A__L12*/ meltfnum[10]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8960:/ cond"); + /*cond*/ if (/*_#IS_NOT_A__L12*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12841,9 +11591,8 @@ meltlab_endgetargs: { - MELT_LOCATION("warmelt-macro.melt:8962:/ locexp"); - /* error_plain */ - melt_error_str((melt_ptr_t)(/*_.LOC__V21*/ meltfptr[20]), ( "bad old name in (EXPORT_SYNONYM <newname> <oldname> [:doc <docum>])"), (melt_ptr_t)0); + MELT_LOCATION("warmelt-macro.melt:8961:/ locexp"); + /* error_plain */ melt_error_str((melt_ptr_t)(/*_.LOC__V21*/ meltfptr[20]), ( "bad old name in (EXPORT_SYNONYM <newname> <oldname> [:doc <docum>])"), (melt_ptr_t)0); } ; /*epilog*/ @@ -12851,25 +11600,20 @@ meltlab_endgetargs: ; } /*noelse*/ ; - /*_.PAIR_TAIL__V39*/ - meltfptr[37] = + /*_.PAIR_TAIL__V39*/ meltfptr[37] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V23*/ meltfptr[22])));; - MELT_LOCATION("warmelt-macro.melt:8963:/ compute"); - /*_.CURPAIR__V23*/ - meltfptr[22] = /*_.SETQ___V40*/ meltfptr[36] = /*_.PAIR_TAIL__V39*/ meltfptr[37];; + MELT_LOCATION("warmelt-macro.melt:8962:/ compute"); + /*_.CURPAIR__V23*/ meltfptr[22] = /*_.SETQ___V40*/ meltfptr[36] = /*_.PAIR_TAIL__V39*/ meltfptr[37];; MELT_CHECK_SIGNAL(); ; - /*_.PAIR_HEAD__V41*/ - meltfptr[40] = + /*_.PAIR_HEAD__V41*/ meltfptr[40] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V23*/ meltfptr[22])));; /*^compute*/ - /*_#eqeq__L13*/ - meltfnum[0] = + /*_#eqeq__L13*/ meltfnum[0] = ((/*_.PAIR_HEAD__V41*/ meltfptr[40]) == ((/*!konst_6_DOC*/ meltfrout->tabval[6])));; - MELT_LOCATION("warmelt-macro.melt:8964:/ cond"); - /*cond*/ - if (/*_#eqeq__L13*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8963:/ cond"); + /*cond*/ if (/*_#eqeq__L13*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12878,40 +11622,30 @@ meltlab_endgetargs: /*_.PAIR_TAIL__V43*/ meltfptr[42] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V23*/ meltfptr[22])));; - MELT_LOCATION("warmelt-macro.melt:8966:/ compute"); - /*_.CURPAIR__V23*/ - meltfptr[22] = /*_.SETQ___V44*/ meltfptr[43] = /*_.PAIR_TAIL__V43*/ meltfptr[42];; - /*_.PAIR_HEAD__V45*/ - meltfptr[44] = + MELT_LOCATION("warmelt-macro.melt:8965:/ compute"); + /*_.CURPAIR__V23*/ meltfptr[22] = /*_.SETQ___V44*/ meltfptr[43] = /*_.PAIR_TAIL__V43*/ meltfptr[42];; + /*_.PAIR_HEAD__V45*/ meltfptr[44] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V23*/ meltfptr[22])));; - MELT_LOCATION("warmelt-macro.melt:8967:/ compute"); - /*_.DOC__V26*/ - meltfptr[25] = /*_.SETQ___V46*/ meltfptr[45] = /*_.PAIR_HEAD__V45*/ meltfptr[44];; - MELT_LOCATION("warmelt-macro.melt:8965:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8966:/ compute"); + /*_.DOC__V26*/ meltfptr[25] = /*_.SETQ___V46*/ meltfptr[45] = /*_.PAIR_HEAD__V45*/ meltfptr[44];; + MELT_LOCATION("warmelt-macro.melt:8964:/ quasiblock"); - /*_.PROGN___V47*/ - meltfptr[46] = /*_.SETQ___V46*/ meltfptr[45];; + /*_.PROGN___V47*/ meltfptr[46] = /*_.SETQ___V46*/ meltfptr[45];; /*^compute*/ - /*_._IF___V42*/ - meltfptr[41] = /*_.PROGN___V47*/ meltfptr[46];; + /*_._IF___V42*/ meltfptr[41] = /*_.PROGN___V47*/ meltfptr[46];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8964:/ clear"); - /*clear*/ /*_.PAIR_TAIL__V43*/ - meltfptr[42] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8963:/ clear"); + /*clear*/ /*_.PAIR_TAIL__V43*/ meltfptr[42] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V44*/ - meltfptr[43] = 0 ; + /*clear*/ /*_.SETQ___V44*/ meltfptr[43] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_HEAD__V45*/ - meltfptr[44] = 0 ; + /*clear*/ /*_.PAIR_HEAD__V45*/ meltfptr[44] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V46*/ - meltfptr[45] = 0 ; + /*clear*/ /*_.SETQ___V46*/ meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.PROGN___V47*/ - meltfptr[46] = 0 ; + /*clear*/ /*_.PROGN___V47*/ meltfptr[46] = 0 ; } ; } @@ -12923,7 +11657,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8969:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8968:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -12941,8 +11675,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L14*/ - meltfnum[13] = + /*_#MELT_NEED_DBG__L14*/ meltfnum[13] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -12950,9 +11683,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:8969:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L14*/ meltfnum[13]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8968:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L14*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -12970,7 +11702,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8969:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8968:/ apply"); /*apply*/ { union meltparam_un argtab[5]; @@ -12980,25 +11712,21 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8969; + argtab[2].meltbp_long = 8968; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpander_export_synonym doc"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.DOC__V26*/ meltfptr[25]; - /*_.MELT_DEBUG_FUN__V49*/ - meltfptr[43] = 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); + /*_.MELT_DEBUG_FUN__V49*/ meltfptr[43] = 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___V48*/ - meltfptr[42] = /*_.MELT_DEBUG_FUN__V49*/ meltfptr[43];; + /*_._IF___V48*/ meltfptr[42] = /*_.MELT_DEBUG_FUN__V49*/ meltfptr[43];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8969:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L15*/ - meltfnum[14] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8968:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L15*/ meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V49*/ - meltfptr[43] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V49*/ meltfptr[43] = 0 ; } ; } @@ -13010,9 +11738,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:8969:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:8968:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -13021,11 +11748,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L14*/ - meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L14*/ meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V48*/ - meltfptr[42] = 0 ; + /*clear*/ /*_._IF___V48*/ meltfptr[42] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13045,13 +11770,13 @@ meltlab_endgetargs: #endif /*MELT_HAVE_DEBUG*/ ; - MELT_LOCATION("warmelt-macro.melt:8970:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8969:/ quasiblock"); MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8971:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8970:/ quasiblock"); /*^rawallocobj*/ @@ -13059,8 +11784,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_SYNONYM*/ meltfrout->tabval[7])), (5), "CLASS_SOURCE_EXPORT_SYNONYM"); - /*_.INST__V52*/ - meltfptr[46] = + /*_.INST__V52*/ meltfptr[46] = newobj; }; ; @@ -13088,11 +11812,10 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V52*/ meltfptr[46], "newly made instance"); ; - /*_.RES__V51*/ - meltfptr[45] = /*_.INST__V52*/ meltfptr[46];; + /*_.RES__V51*/ meltfptr[45] = /*_.INST__V52*/ meltfptr[46];; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8977:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8976:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -13110,8 +11833,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L16*/ - meltfnum[14] = + /*_#MELT_NEED_DBG__L16*/ meltfnum[14] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -13119,9 +11841,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:8977:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L16*/ meltfnum[14]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8976:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L16*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13139,7 +11860,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8977:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8976:/ apply"); /*apply*/ { union meltparam_un argtab[5]; @@ -13149,25 +11870,21 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8977; + argtab[2].meltbp_long = 8976; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpander_export_synonym result"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RES__V51*/ meltfptr[45]; - /*_.MELT_DEBUG_FUN__V54*/ - meltfptr[42] = 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); + /*_.MELT_DEBUG_FUN__V54*/ meltfptr[42] = 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___V53*/ - meltfptr[43] = /*_.MELT_DEBUG_FUN__V54*/ meltfptr[42];; + /*_._IF___V53*/ meltfptr[43] = /*_.MELT_DEBUG_FUN__V54*/ meltfptr[42];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8977:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L17*/ - meltfnum[13] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8976:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L17*/ meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V54*/ - meltfptr[42] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V54*/ meltfptr[42] = 0 ; } ; } @@ -13179,9 +11896,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:8977:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:8976:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -13190,11 +11906,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L16*/ - meltfnum[14] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L16*/ meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V53*/ - meltfptr[43] = 0 ; + /*clear*/ /*_._IF___V53*/ meltfptr[43] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13217,14 +11931,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8978:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8977:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.RES__V51*/ meltfptr[45];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.RES__V51*/ meltfptr[45];; { - MELT_LOCATION("warmelt-macro.melt:8978:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:8977:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -13236,100 +11949,71 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - /*_.LET___V50*/ - meltfptr[44] = /*_.RETURN___V55*/ meltfptr[42];; + /*finalret*/ goto meltlabend_rout ; + /*_.LET___V50*/ meltfptr[44] = /*_.RETURN___V55*/ meltfptr[42];; - MELT_LOCATION("warmelt-macro.melt:8970:/ clear"); - /*clear*/ /*_.RES__V51*/ - meltfptr[45] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8969:/ clear"); + /*clear*/ /*_.RES__V51*/ meltfptr[45] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V55*/ - meltfptr[42] = 0 ; - /*_.LET___V19*/ - meltfptr[17] = /*_.LET___V50*/ meltfptr[44];; + /*clear*/ /*_.RETURN___V55*/ meltfptr[42] = 0 ; + /*_.LET___V19*/ meltfptr[17] = /*_.LET___V50*/ meltfptr[44];; - MELT_LOCATION("warmelt-macro.melt:8944:/ clear"); - /*clear*/ /*_.CONT__V20*/ - meltfptr[16] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8943:/ clear"); + /*clear*/ /*_.CONT__V20*/ meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.LOC__V21*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.LOC__V21*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_FIRST__V22*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.LIST_FIRST__V22*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.CURPAIR__V23*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.CURPAIR__V23*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.NEWSYMB__V24*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.NEWSYMB__V24*/ meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.OLDSYMB__V25*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.OLDSYMB__V25*/ meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.DOC__V26*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.DOC__V26*/ meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_HEAD__V27*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.PAIR_HEAD__V27*/ meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.MEXPANDER__V28*/ - meltfptr[27] = 0 ; + /*clear*/ /*_.MEXPANDER__V28*/ meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V29*/ - meltfptr[28] = 0 ; + /*clear*/ /*_.SETQ___V29*/ meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L9*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#IS_NOT_A__L9*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V32*/ - meltfptr[30] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V32*/ meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V33*/ - meltfptr[29] = 0 ; + /*clear*/ /*_.SETQ___V33*/ meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_HEAD__V34*/ - meltfptr[33] = 0 ; + /*clear*/ /*_.PAIR_HEAD__V34*/ meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.MEXPANDER__V35*/ - meltfptr[34] = 0 ; + /*clear*/ /*_.MEXPANDER__V35*/ meltfptr[34] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V36*/ - meltfptr[35] = 0 ; + /*clear*/ /*_.SETQ___V36*/ meltfptr[35] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_NOT_A__L12*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#IS_NOT_A__L12*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V39*/ - meltfptr[37] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V39*/ meltfptr[37] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V40*/ - meltfptr[36] = 0 ; + /*clear*/ /*_.SETQ___V40*/ meltfptr[36] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_HEAD__V41*/ - meltfptr[40] = 0 ; + /*clear*/ /*_.PAIR_HEAD__V41*/ meltfptr[40] = 0 ; /*^clear*/ - /*clear*/ /*_#eqeq__L13*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#eqeq__L13*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V42*/ - meltfptr[41] = 0 ; + /*clear*/ /*_._IF___V42*/ meltfptr[41] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V50*/ - meltfptr[44] = 0 ; + /*clear*/ /*_.LET___V50*/ meltfptr[44] = 0 ; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8938:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8937:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V19*/ meltfptr[17];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V19*/ meltfptr[17];; { - MELT_LOCATION("warmelt-macro.melt:8938:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:8937:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -13341,28 +12025,21 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L5*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#NULL__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V14*/ - meltfptr[12] = 0 ; + /*clear*/ /*_._IF___V14*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V16*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.IFCPP___V16*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V19*/ - meltfptr[17] = 0 ; + /*clear*/ /*_.LET___V19*/ meltfptr[17] = 0 ; } ; @@ -13444,8 +12121,7 @@ meltrout_159_WARMELTmiMACRO_MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE(meltclo /* end of frame for routine meltrout_159_WARMELTmiMACRO_MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE fromline 1756 */ - /* classy proc frame meltrout_159_WARMELTmiMACRO_MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE */ - MeltFrame_meltrout_159_WARMELTmiMACRO_MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE + /* classy proc frame meltrout_159_WARMELTmiMACRO_MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE */ MeltFrame_meltrout_159_WARMELTmiMACRO_MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_159_WARMELTmiMACRO_MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE fromline 1785*/ #if ENABLE_CHECKING @@ -13458,8 +12134,7 @@ meltrout_159_WARMELTmiMACRO_MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE(meltclo #define meltframe meltfram__ melt_trace_start("MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -13468,31 +12143,27 @@ meltrout_159_WARMELTmiMACRO_MEXPAND_CURRENT_MODULE_ENVIRONMENT_REFERENCE(meltclo /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:8990:/ getarg"); - /*_.SEXPR__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + MELT_LOCATION("warmelt-macro.melt:8989:/ getarg"); + /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MEXPANDER__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.MEXPANDER__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODCTX__V5*/ - meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.MODCTX__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) != NULL); ; @@ -13506,7 +12177,7 @@ meltlab_endgetargs: #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8991:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8990:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -13524,8 +12195,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -13533,9 +12203,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:8991:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8990:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13553,7 +12222,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8991:/ apply"); + MELT_LOCATION("warmelt-macro.melt:8990:/ apply"); /*apply*/ { union meltparam_un argtab[5]; @@ -13563,25 +12232,21 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8991; + argtab[2].meltbp_long = 8990; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_current_module_environment_reference sexpr="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 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); + /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 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___V6*/ - meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8991:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8990:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; } ; } @@ -13593,9 +12258,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:8991:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:8990:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -13604,11 +12268,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13630,7 +12292,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8992:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8991:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -13638,19 +12300,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ - meltfnum[1] = + /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:8992:/ cond"); - /*cond*/ - if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8991:/ cond"); + /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:8992:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8991:/ cond.else"); /*^block*/ /*anyblock*/ @@ -13669,34 +12329,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8992; + argtab[2].meltbp_long = 8991; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8992:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8991:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ - meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8992:/ clear"); - /*clear*/ /*_#IS_A__L3*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8991:/ clear"); + /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V9*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13706,7 +12360,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8993:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8992:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -13714,19 +12368,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ - meltfnum[0] = + /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:8993:/ cond"); - /*cond*/ - if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8992:/ cond"); + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:8993:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8992:/ cond.else"); /*^block*/ /*anyblock*/ @@ -13745,34 +12397,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8993; + argtab[2].meltbp_long = 8992; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8993:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8992:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ - meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8993:/ clear"); - /*clear*/ /*_#IS_A__L4*/ - meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8992:/ clear"); + /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13782,7 +12428,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:8994:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:8993:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -13790,19 +12436,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_OBJECT__L5*/ - meltfnum[1] = + /*_#IS_OBJECT__L5*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION("warmelt-macro.melt:8994:/ cond"); - /*cond*/ - if (/*_#IS_OBJECT__L5*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:8993:/ cond"); + /*cond*/ if (/*_#IS_OBJECT__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:8994:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:8993:/ cond.else"); /*^block*/ /*anyblock*/ @@ -13821,34 +12465,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 8994; + argtab[2].meltbp_long = 8993; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ - meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8994:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ - meltfptr[15] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8993:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ - meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:8994:/ clear"); - /*clear*/ /*_#IS_OBJECT__L5*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8993:/ clear"); + /*clear*/ /*_#IS_OBJECT__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -13856,38 +12494,34 @@ meltlab_endgetargs: /*_.IFCPP___V14*/ meltfptr[12] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; - MELT_LOCATION("warmelt-macro.melt:8995:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8994:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:8996:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:8995:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS"); - /*_.CONT__V18*/ - meltfptr[5] = slot; + /*_.CONT__V18*/ meltfptr[5] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:8997:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:8996:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.LOC__V19*/ - meltfptr[18] = slot; + /*_.LOC__V19*/ meltfptr[18] = slot; }; ; - /*_.LIST_FIRST__V20*/ - meltfptr[19] = + /*_.LIST_FIRST__V20*/ meltfptr[19] = (melt_list_first((melt_ptr_t)(/*_.CONT__V18*/ meltfptr[5])));; /*^compute*/ - /*_.CURPAIR__V21*/ - meltfptr[20] = + /*_.CURPAIR__V21*/ meltfptr[20] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V20*/ meltfptr[19])));; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8999:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8998:/ quasiblock"); /*^rawallocobj*/ @@ -13895,8 +12529,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ meltfrout->tabval[4])), (3), "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_REFERENCE"); - /*_.INST__V23*/ - meltfptr[22] = + /*_.INST__V23*/ meltfptr[22] = newobj; }; ; @@ -13909,18 +12542,15 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V23*/ meltfptr[22], "newly made instance"); ; - /*_.RES__V22*/ - meltfptr[21] = /*_.INST__V23*/ meltfptr[22];; + /*_.RES__V22*/ meltfptr[21] = /*_.INST__V23*/ meltfptr[22];; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#NOTNULL__L6*/ - meltfnum[0] = + /*_#NOTNULL__L6*/ meltfnum[0] = ((/*_.CURPAIR__V21*/ meltfptr[20]) != NULL);; - MELT_LOCATION("warmelt-macro.melt:9002:/ cond"); - /*cond*/ - if (/*_#NOTNULL__L6*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9001:/ cond"); + /*cond*/ if (/*_#NOTNULL__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13929,9 +12559,8 @@ meltlab_endgetargs: { - MELT_LOCATION("warmelt-macro.melt:9003:/ locexp"); - /* error_plain */ - melt_error_str((melt_ptr_t)(/*_.LOC__V19*/ meltfptr[18]), ( "(CURRENT_MODULE_ENVIRONMENT_REFERENCE) should not have any argument"), (melt_ptr_t)0); + MELT_LOCATION("warmelt-macro.melt:9002:/ locexp"); + /* error_plain */ melt_error_str((melt_ptr_t)(/*_.LOC__V19*/ meltfptr[18]), ( "(CURRENT_MODULE_ENVIRONMENT_REFERENCE) should not have any argument"), (melt_ptr_t)0); } ; /*epilog*/ @@ -13941,7 +12570,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:9004:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:9003:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -13959,8 +12588,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L7*/ - meltfnum[1] = + /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -13968,9 +12596,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:9004:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9003:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -13988,7 +12615,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:9004:/ apply"); + MELT_LOCATION("warmelt-macro.melt:9003:/ apply"); /*apply*/ { union meltparam_un argtab[5]; @@ -13998,25 +12625,21 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 9004; + argtab[2].meltbp_long = 9003; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_current_module_environment_reference return res"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RES__V22*/ meltfptr[21]; - /*_.MELT_DEBUG_FUN__V25*/ - meltfptr[24] = 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); + /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24] = 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___V24*/ - meltfptr[23] = /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24];; + /*_._IF___V24*/ meltfptr[23] = /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9004:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L8*/ - meltfnum[7] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9003:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L8*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V25*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24] = 0 ; } ; } @@ -14028,9 +12651,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:9004:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:9003:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -14039,11 +12661,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L7*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L7*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V24*/ - meltfptr[23] = 0 ; + /*clear*/ /*_._IF___V24*/ meltfptr[23] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14066,14 +12686,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:9005:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:9004:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.RES__V22*/ meltfptr[21];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.RES__V22*/ meltfptr[21];; { - MELT_LOCATION("warmelt-macro.melt:9005:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:9004:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -14085,43 +12704,33 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - /*_.LET___V17*/ - meltfptr[15] = /*_.RETURN___V26*/ meltfptr[24];; + /*finalret*/ goto meltlabend_rout ; + /*_.LET___V17*/ meltfptr[15] = /*_.RETURN___V26*/ meltfptr[24];; - MELT_LOCATION("warmelt-macro.melt:8995:/ clear"); - /*clear*/ /*_.CONT__V18*/ - meltfptr[5] = 0 ; + MELT_LOCATION("warmelt-macro.melt:8994:/ clear"); + /*clear*/ /*_.CONT__V18*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.LOC__V19*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.LOC__V19*/ meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_FIRST__V20*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.LIST_FIRST__V20*/ meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.CURPAIR__V21*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.CURPAIR__V21*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.RES__V22*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.RES__V22*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_#NOTNULL__L6*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#NOTNULL__L6*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V26*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.RETURN___V26*/ meltfptr[24] = 0 ; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:8990:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:8989:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { - MELT_LOCATION("warmelt-macro.melt:8990:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:8989:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -14133,22 +12742,17 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; } ; @@ -14230,8 +12834,7 @@ meltrout_160_WARMELTmiMACRO_MEXPAND_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t /* end of frame for routine meltrout_160_WARMELTmiMACRO_MEXPAND_PARENT_MODULE_ENVIRONMENT fromline 1756 */ - /* classy proc frame meltrout_160_WARMELTmiMACRO_MEXPAND_PARENT_MODULE_ENVIRONMENT */ - MeltFrame_meltrout_160_WARMELTmiMACRO_MEXPAND_PARENT_MODULE_ENVIRONMENT + /* classy proc frame meltrout_160_WARMELTmiMACRO_MEXPAND_PARENT_MODULE_ENVIRONMENT */ MeltFrame_meltrout_160_WARMELTmiMACRO_MEXPAND_PARENT_MODULE_ENVIRONMENT meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_160_WARMELTmiMACRO_MEXPAND_PARENT_MODULE_ENVIRONMENT fromline 1785*/ #if ENABLE_CHECKING @@ -14244,8 +12847,7 @@ meltrout_160_WARMELTmiMACRO_MEXPAND_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t #define meltframe meltfram__ melt_trace_start("MEXPAND_PARENT_MODULE_ENVIRONMENT", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -14254,31 +12856,27 @@ meltrout_160_WARMELTmiMACRO_MEXPAND_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:9024:/ getarg"); - /*_.SEXPR__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + MELT_LOCATION("warmelt-macro.melt:9023:/ getarg"); + /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MEXPANDER__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.MEXPANDER__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODCTX__V5*/ - meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.MODCTX__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) != NULL); ; @@ -14292,7 +12890,7 @@ meltlab_endgetargs: #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:9025:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:9024:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -14310,8 +12908,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -14319,9 +12916,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:9025:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9024:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14339,7 +12935,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:9025:/ apply"); + MELT_LOCATION("warmelt-macro.melt:9024:/ apply"); /*apply*/ { union meltparam_un argtab[5]; @@ -14349,25 +12945,21 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 9025; + argtab[2].meltbp_long = 9024; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_parent_module_environment sexpr="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 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); + /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 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___V6*/ - meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9025:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9024:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; } ; } @@ -14379,9 +12971,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:9025:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:9024:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -14390,11 +12981,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14416,7 +13005,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:9026:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:9025:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -14424,19 +13013,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ - meltfnum[1] = + /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:9026:/ cond"); - /*cond*/ - if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9025:/ cond"); + /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:9026:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:9025:/ cond.else"); /*^block*/ /*anyblock*/ @@ -14455,34 +13042,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 9026; + argtab[2].meltbp_long = 9025; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9026:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9025:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ - meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9026:/ clear"); - /*clear*/ /*_#IS_A__L3*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9025:/ clear"); + /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V9*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14492,7 +13073,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:9027:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:9026:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -14500,19 +13081,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ - meltfnum[0] = + /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:9027:/ cond"); - /*cond*/ - if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9026:/ cond"); + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:9027:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:9026:/ cond.else"); /*^block*/ /*anyblock*/ @@ -14531,34 +13110,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 9027; + argtab[2].meltbp_long = 9026; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9027:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9026:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ - meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9027:/ clear"); - /*clear*/ /*_#IS_A__L4*/ - meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9026:/ clear"); + /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14570,12 +13143,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#NULL__L5*/ - meltfnum[1] = + /*_#NULL__L5*/ meltfnum[1] = (/*null*/(/*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:9028:/ cond"); - /*cond*/ - if (/*_#NULL__L5*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9027:/ cond"); + /*cond*/ if (/*_#NULL__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14584,13 +13155,11 @@ meltlab_endgetargs: /*^compute*/ /*_.MEXPANDER__V4*/ meltfptr[3] = /*_.SETQ___V15*/ meltfptr[5] = (/*!MACROEXPAND_1*/ meltfrout->tabval[4]);; - /*_._IF___V14*/ - meltfptr[12] = /*_.SETQ___V15*/ meltfptr[5];; + /*_._IF___V14*/ meltfptr[12] = /*_.SETQ___V15*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9028:/ clear"); - /*clear*/ /*_.SETQ___V15*/ - meltfptr[5] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9027:/ clear"); + /*clear*/ /*_.SETQ___V15*/ meltfptr[5] = 0 ; } ; } @@ -14602,7 +13171,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:9029:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:9028:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -14610,19 +13179,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_OBJECT__L6*/ - meltfnum[0] = + /*_#IS_OBJECT__L6*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION("warmelt-macro.melt:9029:/ cond"); - /*cond*/ - if (/*_#IS_OBJECT__L6*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9028:/ cond"); + /*cond*/ if (/*_#IS_OBJECT__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V17*/ meltfptr[16] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:9029:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:9028:/ cond.else"); /*^block*/ /*anyblock*/ @@ -14641,34 +13208,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 9029; + argtab[2].meltbp_long = 9028; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; - /*_.MELT_ASSERT_FAILURE_FUN__V18*/ - meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V17*/ - meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];; + /*_._IFELSE___V17*/ meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9029:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/ - meltfptr[17] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9028:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17] = 0 ; } ; } ; - /*_.IFCPP___V16*/ - meltfptr[5] = /*_._IFELSE___V17*/ meltfptr[16];; + /*_.IFCPP___V16*/ meltfptr[5] = /*_._IFELSE___V17*/ meltfptr[16];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9029:/ clear"); - /*clear*/ /*_#IS_OBJECT__L6*/ - meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9028:/ clear"); + /*clear*/ /*_#IS_OBJECT__L6*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V17*/ - meltfptr[16] = 0 ; + /*clear*/ /*_._IFELSE___V17*/ meltfptr[16] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14676,38 +13237,34 @@ meltlab_endgetargs: /*_.IFCPP___V16*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; - MELT_LOCATION("warmelt-macro.melt:9030:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:9029:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:9031:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:9030:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS"); - /*_.CONT__V20*/ - meltfptr[16] = slot; + /*_.CONT__V20*/ meltfptr[16] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:9032:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:9031:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.LOC__V21*/ - meltfptr[20] = slot; + /*_.LOC__V21*/ meltfptr[20] = slot; }; ; - /*_.LIST_FIRST__V22*/ - meltfptr[21] = + /*_.LIST_FIRST__V22*/ meltfptr[21] = (melt_list_first((melt_ptr_t)(/*_.CONT__V20*/ meltfptr[16])));; /*^compute*/ - /*_.CURPAIR__V23*/ - meltfptr[22] = + /*_.CURPAIR__V23*/ meltfptr[22] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V22*/ meltfptr[21])));; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:9034:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:9033:/ quasiblock"); /*^rawallocobj*/ @@ -14715,8 +13272,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ meltfrout->tabval[5])), (2), "CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT"); - /*_.INST__V25*/ - meltfptr[24] = + /*_.INST__V25*/ meltfptr[24] = newobj; }; ; @@ -14729,18 +13285,15 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V25*/ meltfptr[24], "newly made instance"); ; - /*_.RES__V24*/ - meltfptr[23] = /*_.INST__V25*/ meltfptr[24];; + /*_.RES__V24*/ meltfptr[23] = /*_.INST__V25*/ meltfptr[24];; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#NOTNULL__L7*/ - meltfnum[0] = + /*_#NOTNULL__L7*/ meltfnum[0] = ((/*_.CURPAIR__V23*/ meltfptr[22]) != NULL);; - MELT_LOCATION("warmelt-macro.melt:9037:/ cond"); - /*cond*/ - if (/*_#NOTNULL__L7*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9036:/ cond"); + /*cond*/ if (/*_#NOTNULL__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14749,9 +13302,8 @@ meltlab_endgetargs: { - MELT_LOCATION("warmelt-macro.melt:9038:/ locexp"); - /* error_plain */ - melt_error_str((melt_ptr_t)(/*_.LOC__V21*/ meltfptr[20]), ( "(PARENT_MODULE_ENVIRONMENT) should not have any argument"), (melt_ptr_t)0); + MELT_LOCATION("warmelt-macro.melt:9037:/ locexp"); + /* error_plain */ melt_error_str((melt_ptr_t)(/*_.LOC__V21*/ meltfptr[20]), ( "(PARENT_MODULE_ENVIRONMENT) should not have any argument"), (melt_ptr_t)0); } ; /*epilog*/ @@ -14761,7 +13313,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:9039:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:9038:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -14779,8 +13331,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L8*/ - meltfnum[7] = + /*_#MELT_NEED_DBG__L8*/ meltfnum[7] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -14788,9 +13339,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:9039:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L8*/ meltfnum[7]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9038:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -14808,7 +13358,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:9039:/ apply"); + MELT_LOCATION("warmelt-macro.melt:9038:/ apply"); /*apply*/ { union meltparam_un argtab[5]; @@ -14818,25 +13368,21 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 9039; + argtab[2].meltbp_long = 9038; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_parent_module_environment return res"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RES__V24*/ meltfptr[23]; - /*_.MELT_DEBUG_FUN__V27*/ - meltfptr[26] = 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); + /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26] = 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___V26*/ - meltfptr[25] = /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26];; + /*_._IF___V26*/ meltfptr[25] = /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9039:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L9*/ - meltfnum[8] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9038:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L9*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V27*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26] = 0 ; } ; } @@ -14848,9 +13394,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:9039:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:9038:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -14859,11 +13404,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L8*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L8*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V26*/ - meltfptr[25] = 0 ; + /*clear*/ /*_._IF___V26*/ meltfptr[25] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -14886,14 +13429,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:9040:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:9039:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.RES__V24*/ meltfptr[23];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.RES__V24*/ meltfptr[23];; { - MELT_LOCATION("warmelt-macro.melt:9040:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:9039:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -14905,43 +13447,33 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - /*_.LET___V19*/ - meltfptr[17] = /*_.RETURN___V28*/ meltfptr[26];; + /*finalret*/ goto meltlabend_rout ; + /*_.LET___V19*/ meltfptr[17] = /*_.RETURN___V28*/ meltfptr[26];; - MELT_LOCATION("warmelt-macro.melt:9030:/ clear"); - /*clear*/ /*_.CONT__V20*/ - meltfptr[16] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9029:/ clear"); + /*clear*/ /*_.CONT__V20*/ meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.LOC__V21*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.LOC__V21*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_FIRST__V22*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.LIST_FIRST__V22*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.CURPAIR__V23*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.CURPAIR__V23*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.RES__V24*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.RES__V24*/ meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_#NOTNULL__L7*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#NOTNULL__L7*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V28*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.RETURN___V28*/ meltfptr[26] = 0 ; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:9024:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:9023:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V19*/ meltfptr[17];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V19*/ meltfptr[17];; { - MELT_LOCATION("warmelt-macro.melt:9024:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:9023:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -14953,28 +13485,21 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L5*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#NULL__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V14*/ - meltfptr[12] = 0 ; + /*clear*/ /*_._IF___V14*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V16*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.IFCPP___V16*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V19*/ - meltfptr[17] = 0 ; + /*clear*/ /*_.LET___V19*/ meltfptr[17] = 0 ; } ; @@ -15056,8 +13581,7 @@ meltrout_161_WARMELTmiMACRO_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE( /* end of frame for routine meltrout_161_WARMELTmiMACRO_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE fromline 1756 */ - /* classy proc frame meltrout_161_WARMELTmiMACRO_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE */ - MeltFrame_meltrout_161_WARMELTmiMACRO_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE + /* classy proc frame meltrout_161_WARMELTmiMACRO_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE */ MeltFrame_meltrout_161_WARMELTmiMACRO_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_161_WARMELTmiMACRO_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE fromline 1785*/ #if ENABLE_CHECKING @@ -15070,8 +13594,7 @@ meltrout_161_WARMELTmiMACRO_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE( #define meltframe meltfram__ melt_trace_start("MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -15080,31 +13603,27 @@ meltrout_161_WARMELTmiMACRO_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE( /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:9054:/ getarg"); - /*_.SEXPR__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + MELT_LOCATION("warmelt-macro.melt:9053:/ getarg"); + /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MEXPANDER__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.MEXPANDER__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODCTX__V5*/ - meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.MODCTX__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) != NULL); ; @@ -15118,7 +13637,7 @@ meltlab_endgetargs: #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:9055:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:9054:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -15136,8 +13655,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -15145,9 +13663,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:9055:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9054:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15165,7 +13682,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:9055:/ apply"); + MELT_LOCATION("warmelt-macro.melt:9054:/ apply"); /*apply*/ { union meltparam_un argtab[5]; @@ -15175,25 +13692,21 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 9055; + argtab[2].meltbp_long = 9054; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_update_current_module_environment_reference sexpr="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 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); + /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 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___V6*/ - meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9055:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9054:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; } ; } @@ -15205,9 +13718,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:9055:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:9054:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -15216,11 +13728,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15242,7 +13752,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:9056:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:9055:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -15250,19 +13760,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ - meltfnum[1] = + /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:9056:/ cond"); - /*cond*/ - if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9055:/ cond"); + /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:9056:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:9055:/ cond.else"); /*^block*/ /*anyblock*/ @@ -15281,34 +13789,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 9056; + argtab[2].meltbp_long = 9055; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9056:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9055:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ - meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9056:/ clear"); - /*clear*/ /*_#IS_A__L3*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9055:/ clear"); + /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V9*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15318,7 +13820,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:9057:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:9056:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -15326,19 +13828,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ - meltfnum[0] = + /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:9057:/ cond"); - /*cond*/ - if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9056:/ cond"); + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:9057:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:9056:/ cond.else"); /*^block*/ /*anyblock*/ @@ -15357,34 +13857,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 9057; + argtab[2].meltbp_long = 9056; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9057:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9056:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ - meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9057:/ clear"); - /*clear*/ /*_#IS_A__L4*/ - meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9056:/ clear"); + /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15394,7 +13888,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:9058:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:9057:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -15402,19 +13896,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_OBJECT__L5*/ - meltfnum[1] = + /*_#IS_OBJECT__L5*/ meltfnum[1] = (melt_magic_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION("warmelt-macro.melt:9058:/ cond"); - /*cond*/ - if (/*_#IS_OBJECT__L5*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9057:/ cond"); + /*cond*/ if (/*_#IS_OBJECT__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V15*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:9058:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:9057:/ cond.else"); /*^block*/ /*anyblock*/ @@ -15433,34 +13925,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 9058; + argtab[2].meltbp_long = 9057; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; - /*_.MELT_ASSERT_FAILURE_FUN__V16*/ - meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V15*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; + /*_._IFELSE___V15*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9058:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ - meltfptr[15] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9057:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V16*/ meltfptr[15] = 0 ; } ; } ; - /*_.IFCPP___V14*/ - meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; + /*_.IFCPP___V14*/ meltfptr[12] = /*_._IFELSE___V15*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9058:/ clear"); - /*clear*/ /*_#IS_OBJECT__L5*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9057:/ clear"); + /*clear*/ /*_#IS_OBJECT__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V15*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V15*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15468,38 +13954,34 @@ meltlab_endgetargs: /*_.IFCPP___V14*/ meltfptr[12] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; - MELT_LOCATION("warmelt-macro.melt:9059:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:9058:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:9060:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:9059:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.LOC__V18*/ - meltfptr[5] = slot; + /*_.LOC__V18*/ meltfptr[5] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:9061:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:9060:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS"); - /*_.CONT__V19*/ - meltfptr[18] = slot; + /*_.CONT__V19*/ meltfptr[18] = slot; }; ; - /*_.LIST_FIRST__V20*/ - meltfptr[19] = + /*_.LIST_FIRST__V20*/ meltfptr[19] = (melt_list_first((melt_ptr_t)(/*_.CONT__V19*/ meltfptr[18])));; /*^compute*/ - /*_.CURPAIR__V21*/ - meltfptr[20] = + /*_.CURPAIR__V21*/ meltfptr[20] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V20*/ meltfptr[19])));; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:9063:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:9062:/ quasiblock"); /*^rawallocobj*/ @@ -15507,8 +13989,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ meltfrout->tabval[4])), (3), "CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE"); - /*_.INST__V23*/ - meltfptr[22] = + /*_.INST__V23*/ meltfptr[22] = newobj; }; ; @@ -15521,18 +14002,15 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V23*/ meltfptr[22], "newly made instance"); ; - /*_.RES__V22*/ - meltfptr[21] = /*_.INST__V23*/ meltfptr[22];; + /*_.RES__V22*/ meltfptr[21] = /*_.INST__V23*/ meltfptr[22];; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#NOTNULL__L6*/ - meltfnum[0] = + /*_#NOTNULL__L6*/ meltfnum[0] = ((/*_.CURPAIR__V21*/ meltfptr[20]) != NULL);; - MELT_LOCATION("warmelt-macro.melt:9066:/ cond"); - /*cond*/ - if (/*_#NOTNULL__L6*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9065:/ cond"); + /*cond*/ if (/*_#NOTNULL__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15541,9 +14019,8 @@ meltlab_endgetargs: { - MELT_LOCATION("warmelt-macro.melt:9067:/ locexp"); - /* error_plain */ - melt_error_str((melt_ptr_t)(/*_.LOC__V18*/ meltfptr[5]), ( "(UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE) should not have any argument"), (melt_ptr_t)0); + MELT_LOCATION("warmelt-macro.melt:9066:/ locexp"); + /* error_plain */ melt_error_str((melt_ptr_t)(/*_.LOC__V18*/ meltfptr[5]), ( "(UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE) should not have any argument"), (melt_ptr_t)0); } ; /*epilog*/ @@ -15554,16 +14031,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_IS_BOOTSTRAPPING__L7*/ - meltfnum[1] = + /*_#MELT_IS_BOOTSTRAPPING__L7*/ meltfnum[1] = (melt_flag_bootstrapping);; /*^compute*/ - /*_#NOT__L8*/ - meltfnum[7] = + /*_#NOT__L8*/ meltfnum[7] = (!(/*_#MELT_IS_BOOTSTRAPPING__L7*/ meltfnum[1]));; - MELT_LOCATION("warmelt-macro.melt:9068:/ cond"); - /*cond*/ - if (/*_#NOT__L8*/ meltfnum[7]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9067:/ cond"); + /*cond*/ if (/*_#NOT__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15572,9 +14046,8 @@ meltlab_endgetargs: { - MELT_LOCATION("warmelt-macro.melt:9069:/ locexp"); - /* error_plain */ - melt_error_str((melt_ptr_t)(/*_.LOC__V18*/ meltfptr[5]), ( "(UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE) can only be used while\ + MELT_LOCATION("warmelt-macro.melt:9068:/ locexp"); + /* error_plain */ melt_error_str((melt_ptr_t)(/*_.LOC__V18*/ meltfptr[5]), ( "(UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE) can only be used while\ bootstrapping MELT."), (melt_ptr_t)0); } ; @@ -15585,7 +14058,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:9070:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:9069:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -15603,8 +14076,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L9*/ - meltfnum[8] = + /*_#MELT_NEED_DBG__L9*/ meltfnum[8] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -15612,9 +14084,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:9070:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9069:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15632,7 +14103,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:9070:/ apply"); + MELT_LOCATION("warmelt-macro.melt:9069:/ apply"); /*apply*/ { union meltparam_un argtab[5]; @@ -15642,25 +14113,21 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 9070; + argtab[2].meltbp_long = 9069; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_update_current_module_environment_reference return res"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RES__V22*/ meltfptr[21]; - /*_.MELT_DEBUG_FUN__V25*/ - meltfptr[24] = 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); + /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24] = 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___V24*/ - meltfptr[23] = /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24];; + /*_._IF___V24*/ meltfptr[23] = /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9070:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L10*/ - meltfnum[9] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9069:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L10*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V25*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24] = 0 ; } ; } @@ -15672,9 +14139,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:9070:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:9069:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -15683,11 +14149,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L9*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L9*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V24*/ - meltfptr[23] = 0 ; + /*clear*/ /*_._IF___V24*/ meltfptr[23] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -15710,14 +14174,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:9071:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:9070:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.RES__V22*/ meltfptr[21];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.RES__V22*/ meltfptr[21];; { - MELT_LOCATION("warmelt-macro.melt:9071:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:9070:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -15729,49 +14192,37 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - /*_.LET___V17*/ - meltfptr[15] = /*_.RETURN___V26*/ meltfptr[24];; + /*finalret*/ goto meltlabend_rout ; + /*_.LET___V17*/ meltfptr[15] = /*_.RETURN___V26*/ meltfptr[24];; - MELT_LOCATION("warmelt-macro.melt:9059:/ clear"); - /*clear*/ /*_.LOC__V18*/ - meltfptr[5] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9058:/ clear"); + /*clear*/ /*_.LOC__V18*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.CONT__V19*/ - meltfptr[18] = 0 ; + /*clear*/ /*_.CONT__V19*/ meltfptr[18] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_FIRST__V20*/ - meltfptr[19] = 0 ; + /*clear*/ /*_.LIST_FIRST__V20*/ meltfptr[19] = 0 ; /*^clear*/ - /*clear*/ /*_.CURPAIR__V21*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.CURPAIR__V21*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.RES__V22*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.RES__V22*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_#NOTNULL__L6*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#NOTNULL__L6*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_#MELT_IS_BOOTSTRAPPING__L7*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#MELT_IS_BOOTSTRAPPING__L7*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L8*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#NOT__L8*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V26*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.RETURN___V26*/ meltfptr[24] = 0 ; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:9054:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:9053:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { - MELT_LOCATION("warmelt-macro.melt:9054:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:9053:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -15783,22 +14234,17 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V14*/ - meltfptr[12] = 0 ; + /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V17*/ - meltfptr[15] = 0 ; + /*clear*/ /*_.LET___V17*/ meltfptr[15] = 0 ; } ; @@ -15880,8 +14326,7 @@ meltrout_162_WARMELTmiMACRO_MEXPAND_FETCH_PREDEFINED(meltclosure_ptr_t meltclosp /* end of frame for routine meltrout_162_WARMELTmiMACRO_MEXPAND_FETCH_PREDEFINED fromline 1756 */ - /* classy proc frame meltrout_162_WARMELTmiMACRO_MEXPAND_FETCH_PREDEFINED */ - MeltFrame_meltrout_162_WARMELTmiMACRO_MEXPAND_FETCH_PREDEFINED + /* classy proc frame meltrout_162_WARMELTmiMACRO_MEXPAND_FETCH_PREDEFINED */ MeltFrame_meltrout_162_WARMELTmiMACRO_MEXPAND_FETCH_PREDEFINED meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_162_WARMELTmiMACRO_MEXPAND_FETCH_PREDEFINED fromline 1785*/ #if ENABLE_CHECKING @@ -15894,8 +14339,7 @@ meltrout_162_WARMELTmiMACRO_MEXPAND_FETCH_PREDEFINED(meltclosure_ptr_t meltclosp #define meltframe meltfram__ melt_trace_start("MEXPAND_FETCH_PREDEFINED", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -15904,31 +14348,27 @@ meltrout_162_WARMELTmiMACRO_MEXPAND_FETCH_PREDEFINED(meltclosure_ptr_t meltclosp /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:9089:/ getarg"); - /*_.SEXPR__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + MELT_LOCATION("warmelt-macro.melt:9088:/ getarg"); + /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MEXPANDER__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.MEXPANDER__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODCTX__V5*/ - meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.MODCTX__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) != NULL); ; @@ -15942,7 +14382,7 @@ meltlab_endgetargs: #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:9090:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:9089:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -15960,8 +14400,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -15969,9 +14408,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:9090:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9089:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -15989,7 +14427,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:9090:/ apply"); + MELT_LOCATION("warmelt-macro.melt:9089:/ apply"); /*apply*/ { union meltparam_un argtab[5]; @@ -15999,25 +14437,21 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 9090; + argtab[2].meltbp_long = 9089; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_fetch_predefined sexpr"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 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); + /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 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___V6*/ - meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9090:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9089:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; } ; } @@ -16029,9 +14463,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:9090:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:9089:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -16040,11 +14473,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -16066,7 +14497,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:9091:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:9090:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -16074,19 +14505,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ - meltfnum[1] = + /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:9091:/ cond"); - /*cond*/ - if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9090:/ cond"); + /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:9091:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:9090:/ cond.else"); /*^block*/ /*anyblock*/ @@ -16105,34 +14534,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 9091; + argtab[2].meltbp_long = 9090; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9091:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9090:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ - meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9091:/ clear"); - /*clear*/ /*_#IS_A__L3*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9090:/ clear"); + /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V9*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -16142,7 +14565,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:9092:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:9091:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -16150,19 +14573,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ - meltfnum[0] = + /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:9092:/ cond"); - /*cond*/ - if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9091:/ cond"); + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:9092:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:9091:/ cond.else"); /*^block*/ /*anyblock*/ @@ -16181,34 +14602,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 9092; + argtab[2].meltbp_long = 9091; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9092:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9091:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ - meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9092:/ clear"); - /*clear*/ /*_#IS_A__L4*/ - meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9091:/ clear"); + /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -16220,12 +14635,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#NULL__L5*/ - meltfnum[1] = + /*_#NULL__L5*/ meltfnum[1] = (/*null*/(/*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:9093:/ cond"); - /*cond*/ - if (/*_#NULL__L5*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9092:/ cond"); + /*cond*/ if (/*_#NULL__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16234,13 +14647,11 @@ meltlab_endgetargs: /*^compute*/ /*_.MEXPANDER__V4*/ meltfptr[3] = /*_.SETQ___V15*/ meltfptr[5] = (/*!MACROEXPAND_1*/ meltfrout->tabval[4]);; - /*_._IF___V14*/ - meltfptr[12] = /*_.SETQ___V15*/ meltfptr[5];; + /*_._IF___V14*/ meltfptr[12] = /*_.SETQ___V15*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9093:/ clear"); - /*clear*/ /*_.SETQ___V15*/ - meltfptr[5] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9092:/ clear"); + /*clear*/ /*_.SETQ___V15*/ meltfptr[5] = 0 ; } ; } @@ -16252,7 +14663,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:9094:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:9093:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -16260,19 +14671,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_OBJECT__L6*/ - meltfnum[0] = + /*_#IS_OBJECT__L6*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION("warmelt-macro.melt:9094:/ cond"); - /*cond*/ - if (/*_#IS_OBJECT__L6*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9093:/ cond"); + /*cond*/ if (/*_#IS_OBJECT__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V17*/ meltfptr[16] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:9094:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:9093:/ cond.else"); /*^block*/ /*anyblock*/ @@ -16291,34 +14700,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 9094; + argtab[2].meltbp_long = 9093; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; - /*_.MELT_ASSERT_FAILURE_FUN__V18*/ - meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V17*/ - meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];; + /*_._IFELSE___V17*/ meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9094:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/ - meltfptr[17] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9093:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17] = 0 ; } ; } ; - /*_.IFCPP___V16*/ - meltfptr[5] = /*_._IFELSE___V17*/ meltfptr[16];; + /*_.IFCPP___V16*/ meltfptr[5] = /*_._IFELSE___V17*/ meltfptr[16];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9094:/ clear"); - /*clear*/ /*_#IS_OBJECT__L6*/ - meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9093:/ clear"); + /*clear*/ /*_#IS_OBJECT__L6*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V17*/ - meltfptr[16] = 0 ; + /*clear*/ /*_._IFELSE___V17*/ meltfptr[16] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -16326,42 +14729,37 @@ meltlab_endgetargs: /*_.IFCPP___V16*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; - MELT_LOCATION("warmelt-macro.melt:9095:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:9094:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:9096:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:9095:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS"); - /*_.CONT__V20*/ - meltfptr[16] = slot; + /*_.CONT__V20*/ meltfptr[16] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:9097:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:9096:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.LOC__V21*/ - meltfptr[20] = slot; + /*_.LOC__V21*/ meltfptr[20] = slot; }; ; - /*_.LIST_FIRST__V22*/ - meltfptr[21] = + /*_.LIST_FIRST__V22*/ meltfptr[21] = (melt_list_first((melt_ptr_t)(/*_.CONT__V20*/ meltfptr[16])));; /*^compute*/ - /*_.CURPAIR__V23*/ - meltfptr[22] = + /*_.CURPAIR__V23*/ meltfptr[22] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V22*/ meltfptr[21])));; /*^compute*/ - /*_.PAIR_HEAD__V24*/ - meltfptr[23] = + /*_.PAIR_HEAD__V24*/ meltfptr[23] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V23*/ meltfptr[22])));; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:9099:/ apply"); + MELT_LOCATION("warmelt-macro.melt:9098:/ apply"); /*apply*/ { union meltparam_un argtab[3]; @@ -16372,19 +14770,16 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; - /*_.SPREDEF__V25*/ - meltfptr[24] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.PAIR_HEAD__V24*/ meltfptr[23]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.SPREDEF__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.PAIR_HEAD__V24*/ meltfptr[23]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; - /*_#NULL__L7*/ - meltfnum[0] = + /*_#NULL__L7*/ meltfnum[0] = (/*null*/(/*_.CURPAIR__V23*/ meltfptr[22]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:9101:/ cond"); - /*cond*/ - if (/*_#NULL__L7*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9100:/ cond"); + /*cond*/ if (/*_#NULL__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16393,9 +14788,8 @@ meltlab_endgetargs: { - MELT_LOCATION("warmelt-macro.melt:9102:/ locexp"); - /* error_plain */ - melt_error_str((melt_ptr_t)(/*_.LOC__V21*/ meltfptr[20]), ( "(FETCH_PREDEFINED <predef-name-or-rank>) missing argument"), (melt_ptr_t)0); + MELT_LOCATION("warmelt-macro.melt:9101:/ locexp"); + /* error_plain */ melt_error_str((melt_ptr_t)(/*_.LOC__V21*/ meltfptr[20]), ( "(FETCH_PREDEFINED <predef-name-or-rank>) missing argument"), (melt_ptr_t)0); } ; /*epilog*/ @@ -16406,16 +14800,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_.PAIR_TAIL__V26*/ - meltfptr[25] = + /*_.PAIR_TAIL__V26*/ meltfptr[25] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V23*/ meltfptr[22])));; /*^compute*/ - /*_#NOTNULL__L8*/ - meltfnum[7] = + /*_#NOTNULL__L8*/ meltfnum[7] = ((/*_.PAIR_TAIL__V26*/ meltfptr[25]) != NULL);; - MELT_LOCATION("warmelt-macro.melt:9103:/ cond"); - /*cond*/ - if (/*_#NOTNULL__L8*/ meltfnum[7]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9102:/ cond"); + /*cond*/ if (/*_#NOTNULL__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16424,9 +14815,8 @@ meltlab_endgetargs: { - MELT_LOCATION("warmelt-macro.melt:9104:/ locexp"); - /* error_plain */ - melt_error_str((melt_ptr_t)(/*_.LOC__V21*/ meltfptr[20]), ( "(FETCH_PREDEFINED <predef-name-or-rank>) extra argument"), (melt_ptr_t)0); + MELT_LOCATION("warmelt-macro.melt:9103:/ locexp"); + /* error_plain */ melt_error_str((melt_ptr_t)(/*_.LOC__V21*/ meltfptr[20]), ( "(FETCH_PREDEFINED <predef-name-or-rank>) extra argument"), (melt_ptr_t)0); } ; /*epilog*/ @@ -16437,19 +14827,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L9*/ - meltfnum[8] = + /*_#IS_A__L9*/ meltfnum[8] = melt_is_instance_of((melt_ptr_t)(/*_.SPREDEF__V25*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[5])));; - MELT_LOCATION("warmelt-macro.melt:9105:/ cond"); - /*cond*/ - if (/*_#IS_A__L9*/ meltfnum[8]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9104:/ cond"); + /*cond*/ if (/*_#IS_A__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*_#OR___L10*/ meltfnum[9] = /*_#IS_A__L9*/ meltfnum[8];; } else { - MELT_LOCATION("warmelt-macro.melt:9105:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:9104:/ cond.else"); /*^block*/ /*anyblock*/ @@ -16458,23 +14846,19 @@ meltlab_endgetargs: /*_#IS_INTEGERBOX__L11*/ meltfnum[10] = (melt_magic_discr((melt_ptr_t)(/*_.SPREDEF__V25*/ meltfptr[24])) == MELTOBMAG_INT);; /*^compute*/ - /*_#OR___L10*/ - meltfnum[9] = /*_#IS_INTEGERBOX__L11*/ meltfnum[10];; + /*_#OR___L10*/ meltfnum[9] = /*_#IS_INTEGERBOX__L11*/ meltfnum[10];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9105:/ clear"); - /*clear*/ /*_#IS_INTEGERBOX__L11*/ - meltfnum[10] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9104:/ clear"); + /*clear*/ /*_#IS_INTEGERBOX__L11*/ meltfnum[10] = 0 ; } ; } ; - /*_#NOT__L12*/ - meltfnum[10] = + /*_#NOT__L12*/ meltfnum[10] = (!(/*_#OR___L10*/ meltfnum[9]));; - MELT_LOCATION("warmelt-macro.melt:9105:/ cond"); - /*cond*/ - if (/*_#NOT__L12*/ meltfnum[10]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9104:/ cond"); + /*cond*/ if (/*_#NOT__L12*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16483,9 +14867,8 @@ meltlab_endgetargs: { - MELT_LOCATION("warmelt-macro.melt:9106:/ locexp"); - /* error_plain */ - melt_error_str((melt_ptr_t)(/*_.LOC__V21*/ meltfptr[20]), ( "(FETCH_PREDEFINED <predef-name-or-rank>) invalid argument"), (melt_ptr_t)0); + MELT_LOCATION("warmelt-macro.melt:9105:/ locexp"); + /* error_plain */ melt_error_str((melt_ptr_t)(/*_.LOC__V21*/ meltfptr[20]), ( "(FETCH_PREDEFINED <predef-name-or-rank>) invalid argument"), (melt_ptr_t)0); } ; /*epilog*/ @@ -16493,7 +14876,7 @@ meltlab_endgetargs: ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:9107:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:9106:/ quasiblock"); @@ -16507,8 +14890,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_FETCH_PREDEFINED*/ meltfrout->tabval[6])), (3), "CLASS_SOURCE_FETCH_PREDEFINED"); - /*_.INST__V29*/ - meltfptr[28] = + /*_.INST__V29*/ meltfptr[28] = newobj; }; ; @@ -16526,11 +14908,10 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V29*/ meltfptr[28], "newly made instance"); ; - /*_.RES__V28*/ - meltfptr[27] = /*_.INST__V29*/ meltfptr[28];; + /*_.RES__V28*/ meltfptr[27] = /*_.INST__V29*/ meltfptr[28];; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:9110:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:9109:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -16548,8 +14929,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L13*/ - meltfnum[12] = + /*_#MELT_NEED_DBG__L13*/ meltfnum[12] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -16557,9 +14937,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:9110:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L13*/ meltfnum[12]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9109:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L13*/ meltfnum[12]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16577,7 +14956,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:9110:/ apply"); + MELT_LOCATION("warmelt-macro.melt:9109:/ apply"); /*apply*/ { union meltparam_un argtab[5]; @@ -16587,25 +14966,21 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 9110; + argtab[2].meltbp_long = 9109; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_fetch_predefined result"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RES__V28*/ meltfptr[27]; - /*_.MELT_DEBUG_FUN__V31*/ - meltfptr[30] = 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); + /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30] = 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___V30*/ - meltfptr[29] = /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30];; + /*_._IF___V30*/ meltfptr[29] = /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9110:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L14*/ - meltfnum[13] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9109:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L14*/ meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ - meltfptr[30] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30] = 0 ; } ; } @@ -16617,9 +14992,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:9110:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:9109:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -16628,11 +15002,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L13*/ - meltfnum[12] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L13*/ meltfnum[12] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V30*/ - meltfptr[29] = 0 ; + /*clear*/ /*_._IF___V30*/ meltfptr[29] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -16655,14 +15027,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:9111:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:9110:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.RES__V28*/ meltfptr[27];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.RES__V28*/ meltfptr[27];; { - MELT_LOCATION("warmelt-macro.melt:9111:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:9110:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -16674,70 +15045,51 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - /*_.LET___V27*/ - meltfptr[26] = /*_.RETURN___V32*/ meltfptr[30];; + /*finalret*/ goto meltlabend_rout ; + /*_.LET___V27*/ meltfptr[26] = /*_.RETURN___V32*/ meltfptr[30];; - MELT_LOCATION("warmelt-macro.melt:9107:/ clear"); - /*clear*/ /*_.RES__V28*/ - meltfptr[27] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9106:/ clear"); + /*clear*/ /*_.RES__V28*/ meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V32*/ - meltfptr[30] = 0 ; - /*_.LET___V19*/ - meltfptr[17] = /*_.LET___V27*/ meltfptr[26];; + /*clear*/ /*_.RETURN___V32*/ meltfptr[30] = 0 ; + /*_.LET___V19*/ meltfptr[17] = /*_.LET___V27*/ meltfptr[26];; - MELT_LOCATION("warmelt-macro.melt:9095:/ clear"); - /*clear*/ /*_.CONT__V20*/ - meltfptr[16] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9094:/ clear"); + /*clear*/ /*_.CONT__V20*/ meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.LOC__V21*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.LOC__V21*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_FIRST__V22*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.LIST_FIRST__V22*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.CURPAIR__V23*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.CURPAIR__V23*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_HEAD__V24*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.PAIR_HEAD__V24*/ meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.SPREDEF__V25*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.SPREDEF__V25*/ meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L7*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#NULL__L7*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V26*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V26*/ meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_#NOTNULL__L8*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#NOTNULL__L8*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L9*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#IS_A__L9*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_#OR___L10*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#OR___L10*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L12*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#NOT__L12*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V27*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.LET___V27*/ meltfptr[26] = 0 ; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:9089:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:9088:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V19*/ meltfptr[17];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V19*/ meltfptr[17];; { - MELT_LOCATION("warmelt-macro.melt:9089:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:9088:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -16749,28 +15101,21 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L5*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#NULL__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V14*/ - meltfptr[12] = 0 ; + /*clear*/ /*_._IF___V14*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V16*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.IFCPP___V16*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V19*/ - meltfptr[17] = 0 ; + /*clear*/ /*_.LET___V19*/ meltfptr[17] = 0 ; } ; @@ -16852,8 +15197,7 @@ meltrout_163_WARMELTmiMACRO_MEXPAND_STORE_PREDEFINED(meltclosure_ptr_t meltclosp /* end of frame for routine meltrout_163_WARMELTmiMACRO_MEXPAND_STORE_PREDEFINED fromline 1756 */ - /* classy proc frame meltrout_163_WARMELTmiMACRO_MEXPAND_STORE_PREDEFINED */ - MeltFrame_meltrout_163_WARMELTmiMACRO_MEXPAND_STORE_PREDEFINED + /* classy proc frame meltrout_163_WARMELTmiMACRO_MEXPAND_STORE_PREDEFINED */ MeltFrame_meltrout_163_WARMELTmiMACRO_MEXPAND_STORE_PREDEFINED meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_163_WARMELTmiMACRO_MEXPAND_STORE_PREDEFINED fromline 1785*/ #if ENABLE_CHECKING @@ -16866,8 +15210,7 @@ meltrout_163_WARMELTmiMACRO_MEXPAND_STORE_PREDEFINED(meltclosure_ptr_t meltclosp #define meltframe meltfram__ melt_trace_start("MEXPAND_STORE_PREDEFINED", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -16876,31 +15219,27 @@ meltrout_163_WARMELTmiMACRO_MEXPAND_STORE_PREDEFINED(meltclosure_ptr_t meltclosp /*getargs*/ /*getarg#0*/ - MELT_LOCATION("warmelt-macro.melt:9118:/ getarg"); - /*_.SEXPR__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + MELT_LOCATION("warmelt-macro.melt:9117:/ getarg"); + /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.ENV__V3*/ - meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; + /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (meltxargdescr_[1] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MEXPANDER__V4*/ - meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; + /*_.MEXPANDER__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (meltxargdescr_[2] != MELTBPAR_PTR) goto meltlab_endgetargs; - /*_.MODCTX__V5*/ - meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; + /*_.MODCTX__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) != NULL); ; @@ -16914,7 +15253,7 @@ meltlab_endgetargs: #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:9119:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:9118:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -16932,8 +15271,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = + /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -16941,9 +15279,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:9119:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9118:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -16961,7 +15298,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:9119:/ apply"); + MELT_LOCATION("warmelt-macro.melt:9118:/ apply"); /*apply*/ { union meltparam_un argtab[5]; @@ -16971,25 +15308,21 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 9119; + argtab[2].meltbp_long = 9118; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_store_predefined sexpr="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1]; - /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 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); + /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 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___V6*/ - meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; + /*_._IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9119:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L2*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9118:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0 ; } ; } @@ -17001,9 +15334,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:9119:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:9118:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -17012,11 +15344,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IF___V6*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17038,7 +15368,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:9120:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:9119:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -17046,19 +15376,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L3*/ - meltfnum[1] = + /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SEXPR*/ meltfrout->tabval[1])));; - MELT_LOCATION("warmelt-macro.melt:9120:/ cond"); - /*cond*/ - if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9119:/ cond"); + /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V9*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:9120:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:9119:/ cond.else"); /*^block*/ /*anyblock*/ @@ -17077,34 +15405,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 9120; + argtab[2].meltbp_long = 9119; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SEXPR__V2*/ meltfptr[1]; - /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V9*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; + /*_._IFELSE___V9*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9120:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ - meltfptr[9] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9119:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V10*/ meltfptr[9] = 0 ; } ; } ; - /*_.IFCPP___V8*/ - meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; + /*_.IFCPP___V8*/ meltfptr[6] = /*_._IFELSE___V9*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9120:/ clear"); - /*clear*/ /*_#IS_A__L3*/ - meltfnum[1] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9119:/ clear"); + /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V9*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V9*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17114,7 +15436,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:9121:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:9120:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -17122,19 +15444,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L4*/ - meltfnum[0] = + /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; - MELT_LOCATION("warmelt-macro.melt:9121:/ cond"); - /*cond*/ - if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9120:/ cond"); + /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V12*/ meltfptr[5] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:9121:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:9120:/ cond.else"); /*^block*/ /*anyblock*/ @@ -17153,34 +15473,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 9121; + argtab[2].meltbp_long = 9120; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; - /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V12*/ - meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; + /*_._IFELSE___V12*/ meltfptr[5] = /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9121:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ - meltfptr[12] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9120:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V13*/ meltfptr[12] = 0 ; } ; } ; - /*_.IFCPP___V11*/ - meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; + /*_.IFCPP___V11*/ meltfptr[9] = /*_._IFELSE___V12*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9121:/ clear"); - /*clear*/ /*_#IS_A__L4*/ - meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9120:/ clear"); + /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V12*/ - meltfptr[5] = 0 ; + /*clear*/ /*_._IFELSE___V12*/ meltfptr[5] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17192,12 +15506,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#NULL__L5*/ - meltfnum[1] = + /*_#NULL__L5*/ meltfnum[1] = (/*null*/(/*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:9122:/ cond"); - /*cond*/ - if (/*_#NULL__L5*/ meltfnum[1]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9121:/ cond"); + /*cond*/ if (/*_#NULL__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17206,13 +15518,11 @@ meltlab_endgetargs: /*^compute*/ /*_.MEXPANDER__V4*/ meltfptr[3] = /*_.SETQ___V15*/ meltfptr[5] = (/*!MACROEXPAND_1*/ meltfrout->tabval[4]);; - /*_._IF___V14*/ - meltfptr[12] = /*_.SETQ___V15*/ meltfptr[5];; + /*_._IF___V14*/ meltfptr[12] = /*_.SETQ___V15*/ meltfptr[5];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9122:/ clear"); - /*clear*/ /*_.SETQ___V15*/ - meltfptr[5] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9121:/ clear"); + /*clear*/ /*_.SETQ___V15*/ meltfptr[5] = 0 ; } ; } @@ -17224,7 +15534,7 @@ meltlab_endgetargs: ; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:9123:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:9122:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -17232,19 +15542,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_OBJECT__L6*/ - meltfnum[0] = + /*_#IS_OBJECT__L6*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION("warmelt-macro.melt:9123:/ cond"); - /*cond*/ - if (/*_#IS_OBJECT__L6*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9122:/ cond"); + /*cond*/ if (/*_#IS_OBJECT__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V17*/ meltfptr[16] = (/*nil*/NULL);; } else { - MELT_LOCATION("warmelt-macro.melt:9123:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:9122:/ cond.else"); /*^block*/ /*anyblock*/ @@ -17263,34 +15571,28 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 9123; + argtab[2].meltbp_long = 9122; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; - /*_.MELT_ASSERT_FAILURE_FUN__V18*/ - meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IFELSE___V17*/ - meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];; + /*_._IFELSE___V17*/ meltfptr[16] = /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9123:/ clear"); - /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/ - meltfptr[17] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9122:/ clear"); + /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V18*/ meltfptr[17] = 0 ; } ; } ; - /*_.IFCPP___V16*/ - meltfptr[5] = /*_._IFELSE___V17*/ meltfptr[16];; + /*_.IFCPP___V16*/ meltfptr[5] = /*_._IFELSE___V17*/ meltfptr[16];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9123:/ clear"); - /*clear*/ /*_#IS_OBJECT__L6*/ - meltfnum[0] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9122:/ clear"); + /*clear*/ /*_#IS_OBJECT__L6*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_._IFELSE___V17*/ - meltfptr[16] = 0 ; + /*clear*/ /*_._IFELSE___V17*/ meltfptr[16] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17298,42 +15600,37 @@ meltlab_endgetargs: /*_.IFCPP___V16*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG*/ ; - MELT_LOCATION("warmelt-macro.melt:9124:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:9123:/ quasiblock"); - MELT_LOCATION("warmelt-macro.melt:9125:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:9124:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 2, "SEXP_CONTENTS"); - /*_.CONT__V20*/ - meltfptr[16] = slot; + /*_.CONT__V20*/ meltfptr[16] = slot; }; ; - MELT_LOCATION("warmelt-macro.melt:9126:/ getslot"); + MELT_LOCATION("warmelt-macro.melt:9125:/ getslot"); { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/; melt_object_get_field(slot,obj, 1, "LOCA_LOCATION"); - /*_.LOC__V21*/ - meltfptr[20] = slot; + /*_.LOC__V21*/ meltfptr[20] = slot; }; ; - /*_.LIST_FIRST__V22*/ - meltfptr[21] = + /*_.LIST_FIRST__V22*/ meltfptr[21] = (melt_list_first((melt_ptr_t)(/*_.CONT__V20*/ meltfptr[16])));; /*^compute*/ - /*_.CURPAIR__V23*/ - meltfptr[22] = + /*_.CURPAIR__V23*/ meltfptr[22] = (melt_pair_tail((melt_ptr_t)(/*_.LIST_FIRST__V22*/ meltfptr[21])));; /*^compute*/ - /*_.PAIR_HEAD__V24*/ - meltfptr[23] = + /*_.PAIR_HEAD__V24*/ meltfptr[23] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V23*/ meltfptr[22])));; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:9128:/ apply"); + MELT_LOCATION("warmelt-macro.melt:9127:/ apply"); /*apply*/ { union meltparam_un argtab[3]; @@ -17344,22 +15641,18 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; - /*_.SPREDEF__V25*/ - meltfptr[24] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.PAIR_HEAD__V24*/ meltfptr[23]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.SPREDEF__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.PAIR_HEAD__V24*/ meltfptr[23]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; - /*_.SVAL__V26*/ - meltfptr[25] = (/*nil*/NULL);; + /*_.SVAL__V26*/ meltfptr[25] = (/*nil*/NULL);; MELT_CHECK_SIGNAL(); ; /*^compute*/ - /*_#NULL__L7*/ - meltfnum[0] = + /*_#NULL__L7*/ meltfnum[0] = (/*null*/(/*_.CURPAIR__V23*/ meltfptr[22]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:9131:/ cond"); - /*cond*/ - if (/*_#NULL__L7*/ meltfnum[0]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9130:/ cond"); + /*cond*/ if (/*_#NULL__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17368,9 +15661,8 @@ meltlab_endgetargs: { - MELT_LOCATION("warmelt-macro.melt:9132:/ locexp"); - /* error_plain */ - melt_error_str((melt_ptr_t)(/*_.LOC__V21*/ meltfptr[20]), ( "(STORE_PREDEFINED <predef-name-or-rank> <value>) missing predef"), (melt_ptr_t)0); + MELT_LOCATION("warmelt-macro.melt:9131:/ locexp"); + /* error_plain */ melt_error_str((melt_ptr_t)(/*_.LOC__V21*/ meltfptr[20]), ( "(STORE_PREDEFINED <predef-name-or-rank> <value>) missing predef"), (melt_ptr_t)0); } ; /*epilog*/ @@ -17378,21 +15670,17 @@ meltlab_endgetargs: ; } /*noelse*/ ; - /*_.PAIR_TAIL__V27*/ - meltfptr[26] = + /*_.PAIR_TAIL__V27*/ meltfptr[26] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V23*/ meltfptr[22])));; - MELT_LOCATION("warmelt-macro.melt:9133:/ compute"); - /*_.CURPAIR__V23*/ - meltfptr[22] = /*_.SETQ___V28*/ meltfptr[27] = /*_.PAIR_TAIL__V27*/ meltfptr[26];; + MELT_LOCATION("warmelt-macro.melt:9132:/ compute"); + /*_.CURPAIR__V23*/ meltfptr[22] = /*_.SETQ___V28*/ meltfptr[27] = /*_.PAIR_TAIL__V27*/ meltfptr[26];; MELT_CHECK_SIGNAL(); ; - /*_#NULL__L8*/ - meltfnum[7] = + /*_#NULL__L8*/ meltfnum[7] = (/*null*/(/*_.CURPAIR__V23*/ meltfptr[22]) == NULL);; - MELT_LOCATION("warmelt-macro.melt:9134:/ cond"); - /*cond*/ - if (/*_#NULL__L8*/ meltfnum[7]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9133:/ cond"); + /*cond*/ if (/*_#NULL__L8*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17401,9 +15689,8 @@ meltlab_endgetargs: { - MELT_LOCATION("warmelt-macro.melt:9135:/ locexp"); - /* error_plain */ - melt_error_str((melt_ptr_t)(/*_.LOC__V21*/ meltfptr[20]), ( "(STORE_PREDEFINED <predef-name-or-rank> <value>) missing predef"), (melt_ptr_t)0); + MELT_LOCATION("warmelt-macro.melt:9134:/ locexp"); + /* error_plain */ melt_error_str((melt_ptr_t)(/*_.LOC__V21*/ meltfptr[20]), ( "(STORE_PREDEFINED <predef-name-or-rank> <value>) missing predef"), (melt_ptr_t)0); } ; /*epilog*/ @@ -17411,13 +15698,12 @@ meltlab_endgetargs: ; } /*noelse*/ ; - /*_.PAIR_HEAD__V29*/ - meltfptr[28] = + /*_.PAIR_HEAD__V29*/ meltfptr[28] = (melt_pair_head((melt_ptr_t)(/*_.CURPAIR__V23*/ meltfptr[22])));; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:9136:/ apply"); + MELT_LOCATION("warmelt-macro.melt:9135:/ apply"); /*apply*/ { union meltparam_un argtab[3]; @@ -17428,26 +15714,21 @@ meltlab_endgetargs: argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MODCTX__V5*/ meltfptr[4]; - /*_.MEXPANDER__V30*/ - meltfptr[29] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.PAIR_HEAD__V29*/ meltfptr[28]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.MEXPANDER__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.PAIR_HEAD__V29*/ meltfptr[28]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^compute*/ - /*_.SVAL__V26*/ - meltfptr[25] = /*_.SETQ___V31*/ meltfptr[30] = /*_.MEXPANDER__V30*/ meltfptr[29];; + /*_.SVAL__V26*/ meltfptr[25] = /*_.SETQ___V31*/ meltfptr[30] = /*_.MEXPANDER__V30*/ meltfptr[29];; MELT_CHECK_SIGNAL(); ; - /*_.PAIR_TAIL__V32*/ - meltfptr[31] = + /*_.PAIR_TAIL__V32*/ meltfptr[31] = (melt_pair_tail((melt_ptr_t)(/*_.CURPAIR__V23*/ meltfptr[22])));; /*^compute*/ - /*_#NOTNULL__L9*/ - meltfnum[8] = + /*_#NOTNULL__L9*/ meltfnum[8] = ((/*_.PAIR_TAIL__V32*/ meltfptr[31]) != NULL);; - MELT_LOCATION("warmelt-macro.melt:9137:/ cond"); - /*cond*/ - if (/*_#NOTNULL__L9*/ meltfnum[8]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9136:/ cond"); + /*cond*/ if (/*_#NOTNULL__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17456,9 +15737,8 @@ meltlab_endgetargs: { - MELT_LOCATION("warmelt-macro.melt:9138:/ locexp"); - /* error_plain */ - melt_error_str((melt_ptr_t)(/*_.LOC__V21*/ meltfptr[20]), ( "(STORE_PREDEFINED <predef-name-or-rank> <value>) extra argument"), (melt_ptr_t)0); + MELT_LOCATION("warmelt-macro.melt:9137:/ locexp"); + /* error_plain */ melt_error_str((melt_ptr_t)(/*_.LOC__V21*/ meltfptr[20]), ( "(STORE_PREDEFINED <predef-name-or-rank> <value>) extra argument"), (melt_ptr_t)0); } ; /*epilog*/ @@ -17469,19 +15749,17 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_A__L10*/ - meltfnum[9] = + /*_#IS_A__L10*/ meltfnum[9] = melt_is_instance_of((melt_ptr_t)(/*_.SPREDEF__V25*/ meltfptr[24]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[5])));; - MELT_LOCATION("warmelt-macro.melt:9139:/ cond"); - /*cond*/ - if (/*_#IS_A__L10*/ meltfnum[9]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9138:/ cond"); + /*cond*/ if (/*_#IS_A__L10*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*_#OR___L11*/ meltfnum[10] = /*_#IS_A__L10*/ meltfnum[9];; } else { - MELT_LOCATION("warmelt-macro.melt:9139:/ cond.else"); + MELT_LOCATION("warmelt-macro.melt:9138:/ cond.else"); /*^block*/ /*anyblock*/ @@ -17490,23 +15768,19 @@ meltlab_endgetargs: /*_#IS_INTEGERBOX__L12*/ meltfnum[11] = (melt_magic_discr((melt_ptr_t)(/*_.SPREDEF__V25*/ meltfptr[24])) == MELTOBMAG_INT);; /*^compute*/ - /*_#OR___L11*/ - meltfnum[10] = /*_#IS_INTEGERBOX__L12*/ meltfnum[11];; + /*_#OR___L11*/ meltfnum[10] = /*_#IS_INTEGERBOX__L12*/ meltfnum[11];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9139:/ clear"); - /*clear*/ /*_#IS_INTEGERBOX__L12*/ - meltfnum[11] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9138:/ clear"); + /*clear*/ /*_#IS_INTEGERBOX__L12*/ meltfnum[11] = 0 ; } ; } ; - /*_#NOT__L13*/ - meltfnum[11] = + /*_#NOT__L13*/ meltfnum[11] = (!(/*_#OR___L11*/ meltfnum[10]));; - MELT_LOCATION("warmelt-macro.melt:9139:/ cond"); - /*cond*/ - if (/*_#NOT__L13*/ meltfnum[11]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9138:/ cond"); + /*cond*/ if (/*_#NOT__L13*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17515,9 +15789,8 @@ meltlab_endgetargs: { - MELT_LOCATION("warmelt-macro.melt:9140:/ locexp"); - /* error_plain */ - melt_error_str((melt_ptr_t)(/*_.LOC__V21*/ meltfptr[20]), ( "(STORE_PREDEFINED <predef-name-or-rank> <value>) invalid predef"), (melt_ptr_t)0); + MELT_LOCATION("warmelt-macro.melt:9139:/ locexp"); + /* error_plain */ melt_error_str((melt_ptr_t)(/*_.LOC__V21*/ meltfptr[20]), ( "(STORE_PREDEFINED <predef-name-or-rank> <value>) invalid predef"), (melt_ptr_t)0); } ; /*epilog*/ @@ -17525,7 +15798,7 @@ meltlab_endgetargs: ; } /*noelse*/ ; - MELT_LOCATION("warmelt-macro.melt:9141:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:9140:/ quasiblock"); @@ -17539,8 +15812,7 @@ meltlab_endgetargs: { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_STORE_PREDEFINED*/ meltfrout->tabval[6])), (4), "CLASS_SOURCE_STORE_PREDEFINED"); - /*_.INST__V35*/ - meltfptr[34] = + /*_.INST__V35*/ meltfptr[34] = newobj; }; ; @@ -17563,11 +15835,10 @@ meltlab_endgetargs: melt_dbgtrace_written_object (/*_.INST__V35*/ meltfptr[34], "newly made instance"); ; - /*_.RES__V34*/ - meltfptr[33] = /*_.INST__V35*/ meltfptr[34];; + /*_.RES__V34*/ meltfptr[33] = /*_.INST__V35*/ meltfptr[34];; #if MELT_HAVE_DEBUG - MELT_LOCATION("warmelt-macro.melt:9146:/ cppif.then"); + MELT_LOCATION("warmelt-macro.melt:9145:/ cppif.then"); /*^block*/ /*anyblock*/ { @@ -17585,8 +15856,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#MELT_NEED_DBG__L14*/ - meltfnum[13] = + /*_#MELT_NEED_DBG__L14*/ meltfnum[13] = /*MELT_NEED_DBG*/ #if MELT_HAVE_DEBUG (/*melt_need_dbg*/ melt_need_debug ((int) 0)) @@ -17594,9 +15864,8 @@ meltlab_endgetargs: 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG*/ ;; - MELT_LOCATION("warmelt-macro.melt:9146:/ cond"); - /*cond*/ - if (/*_#MELT_NEED_DBG__L14*/ meltfnum[13]) /*then*/ + MELT_LOCATION("warmelt-macro.melt:9145:/ cond"); + /*cond*/ if (/*_#MELT_NEED_DBG__L14*/ meltfnum[13]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -17614,7 +15883,7 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:9146:/ apply"); + MELT_LOCATION("warmelt-macro.melt:9145:/ apply"); /*apply*/ { union meltparam_un argtab[5]; @@ -17624,25 +15893,21 @@ meltlab_endgetargs: /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg*/ - argtab[2].meltbp_long = 9146; + argtab[2].meltbp_long = 9145; /*^apply.arg*/ argtab[3].meltbp_cstring = "mexpand_store_predefined result"; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RES__V34*/ meltfptr[33]; - /*_.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 ""), argtab, "", (union meltparam_un*)0); + /*_.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 ""), argtab, "", (union meltparam_un*)0); } ; - /*_._IF___V36*/ - meltfptr[35] = /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36];; + /*_._IF___V36*/ meltfptr[35] = /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36];; /*epilog*/ - MELT_LOCATION("warmelt-macro.melt:9146:/ clear"); - /*clear*/ /*_#MELT_CALLCOUNT__L15*/ - meltfnum[14] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9145:/ clear"); + /*clear*/ /*_#MELT_CALLCOUNT__L15*/ meltfnum[14] = 0 ; /*^clear*/ - /*clear*/ /*_.MELT_DEBUG_FUN__V37*/ - meltfptr[36] = 0 ; + /*clear*/ /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = 0 ; } ; } @@ -17654,9 +15919,8 @@ meltlab_endgetargs: ; { - MELT_LOCATION("warmelt-macro.melt:9146:/ locexp"); - /*void*/ - (void)0; + MELT_LOCATION("warmelt-macro.melt:9145:/ locexp"); + /*void*/(void)0; } ; /*^quasiblock*/ @@ -17665,11 +15929,9 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_#MELT_NEED_DBG__L14*/ - meltfnum[13] = 0 ; + /*clear*/ /*_#MELT_NEED_DBG__L14*/ meltfnum[13] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V36*/ - meltfptr[35] = 0 ; + /*clear*/ /*_._IF___V36*/ meltfptr[35] = 0 ; } #else /*MELT_HAVE_DEBUG*/ @@ -17692,14 +15954,13 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:9147:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:9146:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.RES__V34*/ meltfptr[33];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.RES__V34*/ meltfptr[33];; { - MELT_LOCATION("warmelt-macro.melt:9147:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:9146:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -17711,91 +15972,65 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; - /*_.LET___V33*/ - meltfptr[32] = /*_.RETURN___V38*/ meltfptr[36];; + /*finalret*/ goto meltlabend_rout ; + /*_.LET___V33*/ meltfptr[32] = /*_.RETURN___V38*/ meltfptr[36];; - MELT_LOCATION("warmelt-macro.melt:9141:/ clear"); - /*clear*/ /*_.RES__V34*/ - meltfptr[33] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9140:/ clear"); + /*clear*/ /*_.RES__V34*/ meltfptr[33] = 0 ; /*^clear*/ - /*clear*/ /*_.RETURN___V38*/ - meltfptr[36] = 0 ; - /*_.LET___V19*/ - meltfptr[17] = /*_.LET___V33*/ meltfptr[32];; + /*clear*/ /*_.RETURN___V38*/ meltfptr[36] = 0 ; + /*_.LET___V19*/ meltfptr[17] = /*_.LET___V33*/ meltfptr[32];; - MELT_LOCATION("warmelt-macro.melt:9124:/ clear"); - /*clear*/ /*_.CONT__V20*/ - meltfptr[16] = 0 ; + MELT_LOCATION("warmelt-macro.melt:9123:/ clear"); + /*clear*/ /*_.CONT__V20*/ meltfptr[16] = 0 ; /*^clear*/ - /*clear*/ /*_.LOC__V21*/ - meltfptr[20] = 0 ; + /*clear*/ /*_.LOC__V21*/ meltfptr[20] = 0 ; /*^clear*/ - /*clear*/ /*_.LIST_FIRST__V22*/ - meltfptr[21] = 0 ; + /*clear*/ /*_.LIST_FIRST__V22*/ meltfptr[21] = 0 ; /*^clear*/ - /*clear*/ /*_.CURPAIR__V23*/ - meltfptr[22] = 0 ; + /*clear*/ /*_.CURPAIR__V23*/ meltfptr[22] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_HEAD__V24*/ - meltfptr[23] = 0 ; + /*clear*/ /*_.PAIR_HEAD__V24*/ meltfptr[23] = 0 ; /*^clear*/ - /*clear*/ /*_.SPREDEF__V25*/ - meltfptr[24] = 0 ; + /*clear*/ /*_.SPREDEF__V25*/ meltfptr[24] = 0 ; /*^clear*/ - /*clear*/ /*_.SVAL__V26*/ - meltfptr[25] = 0 ; + /*clear*/ /*_.SVAL__V26*/ meltfptr[25] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L7*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#NULL__L7*/ meltfnum[0] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V27*/ - meltfptr[26] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V27*/ meltfptr[26] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V28*/ - meltfptr[27] = 0 ; + /*clear*/ /*_.SETQ___V28*/ meltfptr[27] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L8*/ - meltfnum[7] = 0 ; + /*clear*/ /*_#NULL__L8*/ meltfnum[7] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_HEAD__V29*/ - meltfptr[28] = 0 ; + /*clear*/ /*_.PAIR_HEAD__V29*/ meltfptr[28] = 0 ; /*^clear*/ - /*clear*/ /*_.MEXPANDER__V30*/ - meltfptr[29] = 0 ; + /*clear*/ /*_.MEXPANDER__V30*/ meltfptr[29] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V31*/ - meltfptr[30] = 0 ; + /*clear*/ /*_.SETQ___V31*/ meltfptr[30] = 0 ; /*^clear*/ - /*clear*/ /*_.PAIR_TAIL__V32*/ - meltfptr[31] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V32*/ meltfptr[31] = 0 ; /*^clear*/ - /*clear*/ /*_#NOTNULL__L9*/ - meltfnum[8] = 0 ; + /*clear*/ /*_#NOTNULL__L9*/ meltfnum[8] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_A__L10*/ - meltfnum[9] = 0 ; + /*clear*/ /*_#IS_A__L10*/ meltfnum[9] = 0 ; /*^clear*/ - /*clear*/ /*_#OR___L11*/ - meltfnum[10] = 0 ; + /*clear*/ /*_#OR___L11*/ meltfnum[10] = 0 ; /*^clear*/ - /*clear*/ /*_#NOT__L13*/ - meltfnum[11] = 0 ; + /*clear*/ /*_#NOT__L13*/ meltfnum[11] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V33*/ - meltfptr[32] = 0 ; + /*clear*/ /*_.LET___V33*/ meltfptr[32] = 0 ; MELT_CHECK_SIGNAL(); ; - MELT_LOCATION("warmelt-macro.melt:9118:/ quasiblock"); + MELT_LOCATION("warmelt-macro.melt:9117:/ quasiblock"); - /*_._RETVAL___V1*/ - meltfptr[0] = /*_.LET___V19*/ meltfptr[17];; + /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V19*/ meltfptr[17];; { - MELT_LOCATION("warmelt-macro.melt:9118:/ locexp"); + MELT_LOCATION("warmelt-macro.melt:9117:/ locexp"); /*ochecknores compilobj_nrep_return*/ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -17807,28 +16042,21 @@ meltlab_endgetargs: ; /*^finalreturn*/ ; - /*finalret*/ - goto meltlabend_rout ; + /*finalret*/ goto meltlabend_rout ; /*epilog*/ /*^clear*/ - /*clear*/ /*_.IFCPP___V8*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V11*/ - meltfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L5*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#NULL__L5*/ meltfnum[1] = 0 ; /*^clear*/ - /*clear*/ /*_._IF___V14*/ - meltfptr[12] = 0 ; + /*clear*/ /*_._IF___V14*/ meltfptr[12] = 0 ; /*^clear*/ - /*clear*/ /*_.IFCPP___V16*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.IFCPP___V16*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.LET___V19*/ - meltfptr[17] = 0 ; + /*clear*/ /*_.LET___V19*/ meltfptr[17] = 0 ; } ; |