summaryrefslogtreecommitdiff
path: root/gcc/melt/generated/warmelt-debug+02.cc
diff options
context:
space:
mode:
authorbstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4>2013-09-02 16:34:05 +0000
committerbstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4>2013-09-02 16:34:05 +0000
commit88c71da86409a132ffa9dfca860d650700c52e4e (patch)
tree0fbeb9e2fa332e96a238081c1389989ddfbdace1 /gcc/melt/generated/warmelt-debug+02.cc
parente53fcdf6c5cffd50fb3b88cae81b02fdd5a8fa32 (diff)
downloadgcc-88c71da86409a132ffa9dfca860d650700c52e4e.tar.gz
2013-09-02 Basile Starynkevitch <basile@starynkevitch.net>
{{Regenerate}} * melt/generated/meltrunsup-inc.cc: Regenerate. * melt/generated/meltrunsup.h: Regenerate. * melt/generated/warmelt-base+01.cc: Regenerate. * melt/generated/warmelt-base+02.cc: Regenerate. * melt/generated/warmelt-base+meltdesc.c: Regenerate. * melt/generated/warmelt-base+melttime.h: Regenerate. * melt/generated/warmelt-base.cc: Regenerate. * melt/generated/warmelt-debug+01.cc: Regenerate. * melt/generated/warmelt-debug+02.cc: Regenerate. * melt/generated/warmelt-debug+meltdesc.c: Regenerate. * melt/generated/warmelt-debug+melttime.h: Regenerate. * melt/generated/warmelt-debug.cc: Regenerate. * melt/generated/warmelt-first+01.cc: Regenerate. * melt/generated/warmelt-first+02.cc: Regenerate. * melt/generated/warmelt-first+meltdesc.c: Regenerate. * melt/generated/warmelt-first+melttime.h: Regenerate. * melt/generated/warmelt-first.cc: Regenerate. * melt/generated/warmelt-genobj+01.cc: Regenerate. * melt/generated/warmelt-genobj+02.cc: Regenerate. * melt/generated/warmelt-genobj+03.cc: Regenerate. * melt/generated/warmelt-genobj+04.cc: Regenerate. * melt/generated/warmelt-genobj+05.cc: Regenerate. * melt/generated/warmelt-genobj+06.cc: Regenerate. * melt/generated/warmelt-genobj+07.cc: Regenerate. * melt/generated/warmelt-genobj+meltdesc.c: Regenerate. * melt/generated/warmelt-genobj+melttime.h: Regenerate. * melt/generated/warmelt-genobj.cc: Regenerate. * melt/generated/warmelt-hooks+01.cc: Regenerate. * melt/generated/warmelt-hooks+02.cc: Regenerate. * melt/generated/warmelt-hooks+03.cc: Regenerate. * melt/generated/warmelt-hooks+meltdesc.c: Regenerate. * melt/generated/warmelt-hooks+melttime.h: Regenerate. * melt/generated/warmelt-hooks.cc: Regenerate. * melt/generated/warmelt-macro+01.cc: Regenerate. * melt/generated/warmelt-macro+02.cc: Regenerate. * melt/generated/warmelt-macro+03.cc: Regenerate. * melt/generated/warmelt-macro+04.cc: Regenerate. * melt/generated/warmelt-macro+05.cc: Regenerate. * melt/generated/warmelt-macro+06.cc: Regenerate. * melt/generated/warmelt-macro+07.cc: Regenerate. * melt/generated/warmelt-macro+meltdesc.c: Regenerate. * melt/generated/warmelt-macro+melttime.h: Regenerate. * melt/generated/warmelt-macro.cc: Regenerate. * melt/generated/warmelt-modes+01.cc: Regenerate. * melt/generated/warmelt-modes+02.cc: Regenerate. * melt/generated/warmelt-modes+03.cc: Regenerate. * melt/generated/warmelt-modes+meltdesc.c: Regenerate. * melt/generated/warmelt-modes+melttime.h: Regenerate. * melt/generated/warmelt-modes.cc: Regenerate. * melt/generated/warmelt-normal+01.cc: Regenerate. * melt/generated/warmelt-normal+02.cc: Regenerate. * melt/generated/warmelt-normal+03.cc: Regenerate. * melt/generated/warmelt-normal+04.cc: Regenerate. * melt/generated/warmelt-normal+05.cc: Regenerate. * melt/generated/warmelt-normal+06.cc: Regenerate. * melt/generated/warmelt-normal+meltdesc.c: Regenerate. * melt/generated/warmelt-normal+melttime.h: Regenerate. * melt/generated/warmelt-normal.cc: Regenerate. * melt/generated/warmelt-normatch+01.cc: Regenerate. * melt/generated/warmelt-normatch+02.cc: Regenerate. * melt/generated/warmelt-normatch+03.cc: Regenerate. * melt/generated/warmelt-normatch+04.cc: Regenerate. * melt/generated/warmelt-normatch+05.cc: Regenerate. * melt/generated/warmelt-normatch+06.cc: Regenerate. * melt/generated/warmelt-normatch+meltdesc.c: Regenerate. * melt/generated/warmelt-normatch+melttime.h: Regenerate. * melt/generated/warmelt-normatch.cc: Regenerate. * melt/generated/warmelt-outobj+01.cc: Regenerate. * melt/generated/warmelt-outobj+02.cc: Regenerate. * melt/generated/warmelt-outobj+03.cc: Regenerate. * melt/generated/warmelt-outobj+04.cc: Regenerate. * melt/generated/warmelt-outobj+05.cc: Regenerate. * melt/generated/warmelt-outobj+06.cc: Regenerate. * melt/generated/warmelt-outobj+07.cc: Regenerate. * melt/generated/warmelt-outobj+meltdesc.c: Regenerate. * melt/generated/warmelt-outobj+melttime.h: Regenerate. * melt/generated/warmelt-outobj.cc: Regenerate. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@202182 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/melt/generated/warmelt-debug+02.cc')
-rw-r--r--gcc/melt/generated/warmelt-debug+02.cc2493
1 files changed, 831 insertions, 1662 deletions
diff --git a/gcc/melt/generated/warmelt-debug+02.cc b/gcc/melt/generated/warmelt-debug+02.cc
index 073fa3843ec..9746ea53b47 100644
--- a/gcc/melt/generated/warmelt-debug+02.cc
+++ b/gcc/melt/generated/warmelt-debug+02.cc
@@ -415,8 +415,7 @@ meltrout_33_WARMELTmiDEBUG_LAMBDA_cl6(meltclosure_ptr_t meltclosp_, melt_ptr_t m
/* end of frame for routine meltrout_33_WARMELTmiDEBUG_LAMBDA_cl6 fromline 1722 */
- /* classy proc frame meltrout_33_WARMELTmiDEBUG_LAMBDA_cl6 */
- MeltFrame_meltrout_33_WARMELTmiDEBUG_LAMBDA_cl6
+ /* classy proc frame meltrout_33_WARMELTmiDEBUG_LAMBDA_cl6 */ MeltFrame_meltrout_33_WARMELTmiDEBUG_LAMBDA_cl6
meltfram__ /*declfrastruct fromline 1746*/
/*classyprocarg meltrout_33_WARMELTmiDEBUG_LAMBDA_cl6 fromline 1751*/
#if ENABLE_CHECKING
@@ -429,8 +428,7 @@ meltrout_33_WARMELTmiDEBUG_LAMBDA_cl6(meltclosure_ptr_t meltclosp_, melt_ptr_t m
#define meltframe meltfram__
melt_trace_start("LAMBDA_cl6", meltcallcount);
- /*use arguments*/
- (void) meltclosp_;
+ /*use arguments*/ (void) meltclosp_;
(void)meltfirstargp_;
(void)meltxargdescr_;
(void)meltxargtab_;
@@ -440,14 +438,12 @@ meltrout_33_WARMELTmiDEBUG_LAMBDA_cl6(meltclosure_ptr_t meltclosp_, melt_ptr_t m
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1171:/ getarg");
- /*_.STR__V2*/
- meltfptr[1] = (melt_ptr_t) meltfirstargp_;
+ /*_.STR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1*/
/*^getarg*/
if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
- /*_.VAL__V3*/
- meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
+ /*_.VAL__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
gcc_assert(melt_discr((melt_ptr_t)(/*_.VAL__V3*/ meltfptr[2])) != NULL);
;
@@ -462,12 +458,10 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1172:/ quasiblock");
- /*_#CURCOUNT__L1*/
- meltfnum[0] =
+ /*_#CURCOUNT__L1*/ meltfnum[0] =
(melt_get_int((melt_ptr_t)((/*~COUNTBOX*/ meltfclos->tabval[0]))));;
/*^compute*/
- /*_.MAKE_INTEGERBOX__V4*/
- meltfptr[3] =
+ /*_.MAKE_INTEGERBOX__V4*/ meltfptr[3] =
(meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[0])), (/*_#CURCOUNT__L1*/ meltfnum[0])));;
MELT_LOCATION("warmelt-debug.melt:1173:/ blockmultialloc");
/*multiallocblock*/
@@ -480,8 +474,7 @@ meltlab_endgetargs:
meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0);
/*^blockmultialloc.initfill*/
/*inimult rtup_0__TUPLREC__x2*/
- /*_.TUPLREC___V6*/
- meltfptr[5] = (melt_ptr_t) &meltletrec_1_ptr->rtup_0__TUPLREC__x2;
+ /*_.TUPLREC___V6*/ meltfptr[5] = (melt_ptr_t) &meltletrec_1_ptr->rtup_0__TUPLREC__x2;
meltletrec_1_ptr->rtup_0__TUPLREC__x2.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE))));
meltletrec_1_ptr->rtup_0__TUPLREC__x2.nbval = 3;
@@ -507,16 +500,13 @@ meltlab_endgetargs:
/*^touch*/
meltgc_touch(/*_.TUPLREC___V6*/ meltfptr[5]);
;
- /*_.ENT__V5*/
- meltfptr[4] = /*_.TUPLREC___V6*/ meltfptr[5];;
+ /*_.ENT__V5*/ meltfptr[4] = /*_.TUPLREC___V6*/ meltfptr[5];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1173:/ clear");
- /*clear*/ /*_.TUPLREC___V6*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.TUPLREC___V6*/ meltfptr[5] = 0 ;
/*^clear*/
- /*clear*/ /*_.TUPLREC___V6*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.TUPLREC___V6*/ meltfptr[5] = 0 ;
} /*end multiallocblock*/
;
@@ -525,8 +515,7 @@ meltlab_endgetargs:
meltgc_multiple_put_nth((melt_ptr_t)((/*~TUPL*/ meltfclos->tabval[1])), (/*_#CURCOUNT__L1*/ meltfnum[0]), (melt_ptr_t)(/*_.ENT__V5*/ meltfptr[4]));
}
;
- /*_#plI__L2*/
- meltfnum[1] =
+ /*_#plI__L2*/ meltfnum[1] =
((/*_#CURCOUNT__L1*/ meltfnum[0]) + (1));;
{
@@ -536,17 +525,13 @@ meltlab_endgetargs:
;
MELT_LOCATION("warmelt-debug.melt:1172:/ clear");
- /*clear*/ /*_#CURCOUNT__L1*/
- meltfnum[0] = 0 ;
+ /*clear*/ /*_#CURCOUNT__L1*/ meltfnum[0] = 0 ;
/*^clear*/
- /*clear*/ /*_.MAKE_INTEGERBOX__V4*/
- meltfptr[3] = 0 ;
+ /*clear*/ /*_.MAKE_INTEGERBOX__V4*/ meltfptr[3] = 0 ;
/*^clear*/
- /*clear*/ /*_.ENT__V5*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_.ENT__V5*/ meltfptr[4] = 0 ;
/*^clear*/
- /*clear*/ /*_#plI__L2*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#plI__L2*/ meltfnum[1] = 0 ;
/*epilog*/
}
@@ -628,8 +613,7 @@ meltrout_34_WARMELTmiDEBUG_LAMBDA_cl7(meltclosure_ptr_t meltclosp_, melt_ptr_t m
/* end of frame for routine meltrout_34_WARMELTmiDEBUG_LAMBDA_cl7 fromline 1722 */
- /* classy proc frame meltrout_34_WARMELTmiDEBUG_LAMBDA_cl7 */
- MeltFrame_meltrout_34_WARMELTmiDEBUG_LAMBDA_cl7
+ /* classy proc frame meltrout_34_WARMELTmiDEBUG_LAMBDA_cl7 */ MeltFrame_meltrout_34_WARMELTmiDEBUG_LAMBDA_cl7
meltfram__ /*declfrastruct fromline 1746*/
/*classyprocarg meltrout_34_WARMELTmiDEBUG_LAMBDA_cl7 fromline 1751*/
#if ENABLE_CHECKING
@@ -642,8 +626,7 @@ meltrout_34_WARMELTmiDEBUG_LAMBDA_cl7(meltclosure_ptr_t meltclosp_, melt_ptr_t m
#define meltframe meltfram__
melt_trace_start("LAMBDA_cl7", meltcallcount);
- /*use arguments*/
- (void) meltclosp_;
+ /*use arguments*/ (void) meltclosp_;
(void)meltfirstargp_;
(void)meltxargdescr_;
(void)meltxargtab_;
@@ -653,14 +636,12 @@ meltrout_34_WARMELTmiDEBUG_LAMBDA_cl7(meltclosure_ptr_t meltclosp_, melt_ptr_t m
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1183:/ getarg");
- /*_.E1__V2*/
- meltfptr[1] = (melt_ptr_t) meltfirstargp_;
+ /*_.E1__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1*/
/*^getarg*/
if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
- /*_.E2__V3*/
- meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
+ /*_.E2__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
gcc_assert(melt_discr((melt_ptr_t)(/*_.E2__V3*/ meltfptr[2])) != NULL);
;
@@ -675,28 +656,22 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1184:/ quasiblock");
- /*_.E1AT__V5*/
- meltfptr[4] =
+ /*_.E1AT__V5*/ meltfptr[4] =
(melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ meltfptr[1]), (0)));;
/*^compute*/
- /*_.E1VA__V6*/
- meltfptr[5] =
+ /*_.E1VA__V6*/ meltfptr[5] =
(melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ meltfptr[1]), (1)));;
/*^compute*/
- /*_.E1RK__V7*/
- meltfptr[6] =
+ /*_.E1RK__V7*/ meltfptr[6] =
(melt_multiple_nth((melt_ptr_t)(/*_.E1__V2*/ meltfptr[1]), (2)));;
/*^compute*/
- /*_.E2AT__V8*/
- meltfptr[7] =
+ /*_.E2AT__V8*/ meltfptr[7] =
(melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ meltfptr[2]), (0)));;
/*^compute*/
- /*_.E2VA__V9*/
- meltfptr[8] =
+ /*_.E2VA__V9*/ meltfptr[8] =
(melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ meltfptr[2]), (1)));;
/*^compute*/
- /*_.E2RK__V10*/
- meltfptr[9] =
+ /*_.E2RK__V10*/ meltfptr[9] =
(melt_multiple_nth((melt_ptr_t)(/*_.E2__V3*/ meltfptr[2]), (2)));;
MELT_CHECK_SIGNAL();
@@ -718,39 +693,29 @@ meltlab_endgetargs:
argtab[4].meltbp_aptr = (melt_ptr_t*) &(/*!konst_2*/ meltfrout->tabval[2]);
/*^apply.arg*/
argtab[5].meltbp_aptr = (melt_ptr_t*) &(/*!konst_3*/ meltfrout->tabval[3]);
- /*_.COMPARE_OBJ_RANKED__V11*/
- meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!COMPARE_OBJ_RANKED*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.E1AT__V5*/ meltfptr[4]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.COMPARE_OBJ_RANKED__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!COMPARE_OBJ_RANKED*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.E1AT__V5*/ meltfptr[4]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_.LET___V4*/
- meltfptr[3] = /*_.COMPARE_OBJ_RANKED__V11*/ meltfptr[10];;
+ /*_.LET___V4*/ meltfptr[3] = /*_.COMPARE_OBJ_RANKED__V11*/ meltfptr[10];;
MELT_LOCATION("warmelt-debug.melt:1184:/ clear");
- /*clear*/ /*_.E1AT__V5*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_.E1AT__V5*/ meltfptr[4] = 0 ;
/*^clear*/
- /*clear*/ /*_.E1VA__V6*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.E1VA__V6*/ meltfptr[5] = 0 ;
/*^clear*/
- /*clear*/ /*_.E1RK__V7*/
- meltfptr[6] = 0 ;
+ /*clear*/ /*_.E1RK__V7*/ meltfptr[6] = 0 ;
/*^clear*/
- /*clear*/ /*_.E2AT__V8*/
- meltfptr[7] = 0 ;
+ /*clear*/ /*_.E2AT__V8*/ meltfptr[7] = 0 ;
/*^clear*/
- /*clear*/ /*_.E2VA__V9*/
- meltfptr[8] = 0 ;
+ /*clear*/ /*_.E2VA__V9*/ meltfptr[8] = 0 ;
/*^clear*/
- /*clear*/ /*_.E2RK__V10*/
- meltfptr[9] = 0 ;
+ /*clear*/ /*_.E2RK__V10*/ meltfptr[9] = 0 ;
/*^clear*/
- /*clear*/ /*_.COMPARE_OBJ_RANKED__V11*/
- meltfptr[10] = 0 ;
+ /*clear*/ /*_.COMPARE_OBJ_RANKED__V11*/ meltfptr[10] = 0 ;
MELT_LOCATION("warmelt-debug.melt:1183:/ quasiblock");
- /*_._RETVAL___V1*/
- meltfptr[0] = /*_.LET___V4*/ meltfptr[3];;
+ /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V4*/ meltfptr[3];;
{
MELT_LOCATION("warmelt-debug.melt:1183:/ locexp");
@@ -765,13 +730,11 @@ meltlab_endgetargs:
;
/*^finalreturn*/
;
- /*finalret*/
- goto meltlabend_rout ;
+ /*finalret*/ goto meltlabend_rout ;
/*epilog*/
/*^clear*/
- /*clear*/ /*_.LET___V4*/
- meltfptr[3] = 0 ;
+ /*clear*/ /*_.LET___V4*/ meltfptr[3] = 0 ;
}
;
@@ -852,8 +815,7 @@ meltrout_35_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD(meltclosure_ptr_t meltclosp_
/* end of frame for routine meltrout_35_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD fromline 1722 */
- /* classy proc frame meltrout_35_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD */
- MeltFrame_meltrout_35_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD
+ /* classy proc frame meltrout_35_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD */ MeltFrame_meltrout_35_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD
meltfram__ /*declfrastruct fromline 1746*/
/*classyprocarg meltrout_35_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD fromline 1751*/
#if ENABLE_CHECKING
@@ -866,8 +828,7 @@ meltrout_35_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD(meltclosure_ptr_t meltclosp_
#define meltframe meltfram__
melt_trace_start("DBGOUT_BUCKETLONG_METHOD", meltcallcount);
- /*use arguments*/
- (void) meltclosp_;
+ /*use arguments*/ (void) meltclosp_;
(void)meltfirstargp_;
(void)meltxargdescr_;
(void)meltxargtab_;
@@ -877,22 +838,19 @@ meltrout_35_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD(meltclosure_ptr_t meltclosp_
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1219:/ getarg");
- /*_.SELF__V2*/
- meltfptr[1] = (melt_ptr_t) meltfirstargp_;
+ /*_.SELF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1*/
/*^getarg*/
if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
- /*_.DBGI__V3*/
- meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
+ /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL);
/*getarg#2*/
/*^getarg*/
if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs;
- /*_#DEPTH__L1*/
- meltfnum[0] = meltxargtab_[1].meltbp_long;
+ /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long;
;
goto meltlab_endgetargs;
meltlab_endgetargs:
@@ -912,12 +870,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#IS_A__L2*/
- meltfnum[1] =
+ /*_#IS_A__L2*/ meltfnum[1] =
melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));;
MELT_LOCATION("warmelt-debug.melt:1220:/ cond");
- /*cond*/
- if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);;
@@ -946,31 +902,25 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1220;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
- /*_.MELT_ASSERT_FAILURE_FUN__V6*/
- meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V5*/
- meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
+ /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1220:/ clear");
- /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ;
}
;
}
;
- /*_.IFCPP___V4*/
- meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];;
+ /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1220:/ clear");
- /*clear*/ /*_#IS_A__L2*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V5*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ;
}
#else /*MELT_HAVE_DEBUG*/
@@ -988,12 +938,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#IS_BUCKETLONG__L3*/
- meltfnum[1] =
+ /*_#IS_BUCKETLONG__L3*/ meltfnum[1] =
(melt_magic_discr((melt_ptr_t) (/*_.SELF__V2*/ meltfptr[1])) == MELTOBMAG_BUCKETLONGS);;
MELT_LOCATION("warmelt-debug.melt:1221:/ cond");
- /*cond*/
- if (/*_#IS_BUCKETLONG__L3*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#IS_BUCKETLONG__L3*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);;
@@ -1022,31 +970,25 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1221;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1];
- /*_.MELT_ASSERT_FAILURE_FUN__V9*/
- meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V8*/
- meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];;
+ /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1221:/ clear");
- /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/
- meltfptr[8] = 0 ;
+ /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ;
}
;
}
;
- /*_.IFCPP___V7*/
- meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];;
+ /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1221:/ clear");
- /*clear*/ /*_#IS_BUCKETLONG__L3*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#IS_BUCKETLONG__L3*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V8*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ;
}
#else /*MELT_HAVE_DEBUG*/
@@ -1057,35 +999,28 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1222:/ quasiblock");
- /*_.DIS__V11*/
- meltfptr[4] =
+ /*_.DIS__V11*/ meltfptr[4] =
((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));;
MELT_LOCATION("warmelt-debug.melt:1223:/ getslot");
{
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/;
melt_object_get_field(slot,obj, 0, "DBGI_OUT");
- /*_.SBUF__V12*/
- meltfptr[11] = slot;
+ /*_.SBUF__V12*/ meltfptr[11] = slot;
};
;
- /*_#IX__L4*/
- meltfnum[1] = 0;;
+ /*_#IX__L4*/ meltfnum[1] = 0;;
/*^compute*/
- /*_#NEXTDEPTH__L5*/
- meltfnum[4] =
+ /*_#NEXTDEPTH__L5*/ meltfnum[4] =
((2) + (/*_#DEPTH__L1*/ meltfnum[0]));;
/*^compute*/
- /*_.NEXTDEPTHBOX__V13*/
- meltfptr[12] =
+ /*_.NEXTDEPTHBOX__V13*/ meltfptr[12] =
(meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[2])), (/*_#NEXTDEPTH__L5*/ meltfnum[4])));;
/*^compute*/
- /*_.AUX__V14*/
- meltfptr[13] =
+ /*_.AUX__V14*/ meltfptr[13] =
melt_longsbucket_aux((melt_ptr_t)/*_.SELF__V2*/ meltfptr[1]);;
MELT_LOCATION("warmelt-debug.melt:1228:/ cond");
- /*cond*/
- if (
+ /*cond*/ if (
/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]),
(melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])))
) /*then*/
@@ -1096,8 +1031,7 @@ meltlab_endgetargs:
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/;
melt_object_get_field(slot,obj, 2, "DBGI_MAXDEPTH");
- /*_.DBGI_MAXDEPTH__V15*/
- meltfptr[14] = slot;
+ /*_.DBGI_MAXDEPTH__V15*/ meltfptr[14] = slot;
};
;
}
@@ -1108,16 +1042,13 @@ meltlab_endgetargs:
}
;
/*^compute*/
- /*_#MAXDEPTH__L6*/
- meltfnum[5] =
+ /*_#MAXDEPTH__L6*/ meltfnum[5] =
(melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V15*/ meltfptr[14])));;
/*^compute*/
- /*_#XNUM__L7*/
- meltfnum[6] =
+ /*_#XNUM__L7*/ meltfnum[6] =
melt_longsbucket_xnum ((melt_ptr_t) /*_.SELF__V2*/ meltfptr[1]);;
MELT_LOCATION("warmelt-debug.melt:1231:/ cond");
- /*cond*/
- if (
+ /*cond*/ if (
/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DIS__V11*/ meltfptr[4]),
(melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[4])))
) /*then*/
@@ -1128,8 +1059,7 @@ meltlab_endgetargs:
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DIS__V11*/ meltfptr[4]) /*=obj*/;
melt_object_get_field(slot,obj, 1, "NAMED_NAME");
- /*_.NAMED_NAME__V16*/
- meltfptr[15] = slot;
+ /*_.NAMED_NAME__V16*/ meltfptr[15] = slot;
};
;
}
@@ -1153,19 +1083,16 @@ meltlab_endgetargs:
argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V16*/ meltfptr[15];
/*^apply.arg*/
argtab[2].meltbp_cstring = "!{";
- /*_.ADD2OUT__V17*/
- meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+ /*_.ADD2OUT__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
}
;
MELT_CHECK_SIGNAL();
;
- /*_#lteqI__L8*/
- meltfnum[7] =
+ /*_#lteqI__L8*/ meltfnum[7] =
((/*_#DEPTH__L1*/ meltfnum[0]) <= (0));;
MELT_LOCATION("warmelt-debug.melt:1232:/ cond");
- /*cond*/
- if (/*_#lteqI__L8*/ meltfnum[7]) /*then*/
+ /*cond*/ if (/*_#lteqI__L8*/ meltfnum[7]) /*then*/
{
/*^cond.then*/
/*_#OR___L9*/ meltfnum[8] = /*_#lteqI__L8*/ meltfnum[7];;
@@ -1181,20 +1108,17 @@ meltlab_endgetargs:
/*_#NOTNULL__L10*/ meltfnum[9] =
((/*_.AUX__V14*/ meltfptr[13]) != NULL);;
/*^compute*/
- /*_#OR___L9*/
- meltfnum[8] = /*_#NOTNULL__L10*/ meltfnum[9];;
+ /*_#OR___L9*/ meltfnum[8] = /*_#NOTNULL__L10*/ meltfnum[9];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1232:/ clear");
- /*clear*/ /*_#NOTNULL__L10*/
- meltfnum[9] = 0 ;
+ /*clear*/ /*_#NOTNULL__L10*/ meltfnum[9] = 0 ;
}
;
}
;
/*^cond*/
- /*cond*/
- if (/*_#OR___L9*/ meltfnum[8]) /*then*/
+ /*cond*/ if (/*_#OR___L9*/ meltfnum[8]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -1217,12 +1141,10 @@ meltlab_endgetargs:
memset(&argtab, 0, sizeof(argtab));
/*^apply.arg*/
argtab[0].meltbp_cstring = "*aux= ";
- /*_.ADD2OUT__V19*/
- meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+ /*_.ADD2OUT__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_#plI__L11*/
- meltfnum[9] =
+ /*_#plI__L11*/ meltfnum[9] =
((/*_#NEXTDEPTH__L5*/ meltfnum[4]) + (2));;
MELT_CHECK_SIGNAL();
@@ -1236,32 +1158,25 @@ meltlab_endgetargs:
argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
/*^apply.arg*/
argtab[1].meltbp_long = /*_#plI__L11*/ meltfnum[9];
- /*_.DBG_OUT__V20*/
- meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.AUX__V14*/ meltfptr[13]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+ /*_.DBG_OUT__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.AUX__V14*/ meltfptr[13]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
}
;
MELT_LOCATION("warmelt-debug.melt:1232:/ quasiblock");
- /*_.PROGN___V21*/
- meltfptr[20] = /*_.DBG_OUT__V20*/ meltfptr[19];;
+ /*_.PROGN___V21*/ meltfptr[20] = /*_.DBG_OUT__V20*/ meltfptr[19];;
/*^compute*/
- /*_._IF___V18*/
- meltfptr[17] = /*_.PROGN___V21*/ meltfptr[20];;
+ /*_._IF___V18*/ meltfptr[17] = /*_.PROGN___V21*/ meltfptr[20];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1232:/ clear");
- /*clear*/ /*_.ADD2OUT__V19*/
- meltfptr[18] = 0 ;
+ /*clear*/ /*_.ADD2OUT__V19*/ meltfptr[18] = 0 ;
/*^clear*/
- /*clear*/ /*_#plI__L11*/
- meltfnum[9] = 0 ;
+ /*clear*/ /*_#plI__L11*/ meltfnum[9] = 0 ;
/*^clear*/
- /*clear*/ /*_.DBG_OUT__V20*/
- meltfptr[19] = 0 ;
+ /*clear*/ /*_.DBG_OUT__V20*/ meltfptr[19] = 0 ;
/*^clear*/
- /*clear*/ /*_.PROGN___V21*/
- meltfptr[20] = 0 ;
+ /*clear*/ /*_.PROGN___V21*/ meltfptr[20] = 0 ;
}
;
}
@@ -1275,12 +1190,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
/*^compute*/
- /*_#lteqI__L12*/
- meltfnum[9] =
+ /*_#lteqI__L12*/ meltfnum[9] =
((/*_#DEPTH__L1*/ meltfnum[0]) <= (0));;
MELT_LOCATION("warmelt-debug.melt:1237:/ cond");
- /*cond*/
- if (/*_#lteqI__L12*/ meltfnum[9]) /*then*/
+ /*cond*/ if (/*_#lteqI__L12*/ meltfnum[9]) /*then*/
{
/*^cond.then*/
/*_#OR___L13*/ meltfnum[12] = /*_#lteqI__L12*/ meltfnum[9];;
@@ -1289,13 +1202,11 @@ meltlab_endgetargs:
{
MELT_LOCATION("warmelt-debug.melt:1237:/ cond.else");
- /*_#OR___L13*/
- meltfnum[12] = /*_#XNUM__L7*/ meltfnum[6];;
+ /*_#OR___L13*/ meltfnum[12] = /*_#XNUM__L7*/ meltfnum[6];;
}
;
MELT_LOCATION("warmelt-debug.melt:1237:/ cond");
- /*cond*/
- if (/*_#OR___L13*/ meltfnum[12]) /*then*/
+ /*cond*/ if (/*_#OR___L13*/ meltfnum[12]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -1320,26 +1231,21 @@ meltlab_endgetargs:
argtab[0].meltbp_cstring = "*xnum= ";
/*^apply.arg*/
argtab[1].meltbp_long = /*_#XNUM__L7*/ meltfnum[6];
- /*_.ADD2OUT__V23*/
- meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+ /*_.ADD2OUT__V23*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
}
;
MELT_LOCATION("warmelt-debug.melt:1237:/ quasiblock");
- /*_.PROGN___V24*/
- meltfptr[20] = /*_.ADD2OUT__V23*/ meltfptr[19];;
+ /*_.PROGN___V24*/ meltfptr[20] = /*_.ADD2OUT__V23*/ meltfptr[19];;
/*^compute*/
- /*_._IF___V22*/
- meltfptr[18] = /*_.PROGN___V24*/ meltfptr[20];;
+ /*_._IF___V22*/ meltfptr[18] = /*_.PROGN___V24*/ meltfptr[20];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1237:/ clear");
- /*clear*/ /*_.ADD2OUT__V23*/
- meltfptr[19] = 0 ;
+ /*clear*/ /*_.ADD2OUT__V23*/ meltfptr[19] = 0 ;
/*^clear*/
- /*clear*/ /*_.PROGN___V24*/
- meltfptr[20] = 0 ;
+ /*clear*/ /*_.PROGN___V24*/ meltfptr[20] = 0 ;
}
;
}
@@ -1352,10 +1258,8 @@ meltlab_endgetargs:
/*citerblock FOREACH_IN_BUCKETLONG*/
{
/*foreach_in_bucketlong meltcit1__EACHBUCKLONG*/ unsigned meltcit1__EACHBUCKLONG_ix = 0, meltcit1__EACHBUCKLONG_cnt =0;
- /*_#KEY__L14*/
- meltfnum[13] = 0L;
- /*_.VAL__V25*/
- meltfptr[19] = NULL;
+ /*_#KEY__L14*/ meltfnum[13] = 0L;
+ /*_.VAL__V25*/ meltfptr[19] = NULL;
for (meltcit1__EACHBUCKLONG_ix = 0;
/* retrieve in meltcit1__EACHBUCKLONG iteration the count, it might change! */
(meltcit1__EACHBUCKLONG_cnt = melt_longsbucket_count ((melt_ptr_t) /*_.SELF__V2*/ meltfptr[1])) > 0
@@ -1363,17 +1267,14 @@ meltlab_endgetargs:
meltcit1__EACHBUCKLONG_ix++)
{
/*_#KEY__L14*/ meltfnum[13] = 0L;
- /*_.VAL__V25*/
- meltfptr[19] = NULL;
+ /*_.VAL__V25*/ meltfptr[19] = NULL;
{
struct melt_bucketlongentry_st* meltcit1__EACHBUCKLONG_buent
= ((struct meltbucketlongs_st*)/*_.SELF__V2*/ meltfptr[1])->buckl_entab + meltcit1__EACHBUCKLONG_ix;
if (!meltcit1__EACHBUCKLONG_buent->ebl_va)
continue;
- /*_#KEY__L14*/
- meltfnum[13] = meltcit1__EACHBUCKLONG_buent->ebl_at;
- /*_.VAL__V25*/
- meltfptr[19] = meltcit1__EACHBUCKLONG_buent->ebl_va;
+ /*_#KEY__L14*/ meltfnum[13] = meltcit1__EACHBUCKLONG_buent->ebl_at;
+ /*_.VAL__V25*/ meltfptr[19] = meltcit1__EACHBUCKLONG_buent->ebl_va;
meltcit1__EACHBUCKLONG_buent = NULL;
}
/*foreach_in_bucketlong meltcit1__EACHBUCKLONG body:*/
@@ -1400,8 +1301,7 @@ meltlab_endgetargs:
argtab[1].meltbp_long = /*_#KEY__L14*/ meltfnum[13];
/*^apply.arg*/
argtab[2].meltbp_cstring = "= ";
- /*_.ADD2OUT__V26*/
- meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+ /*_.ADD2OUT__V26*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
}
;
@@ -1416,43 +1316,34 @@ meltlab_endgetargs:
argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
/*^apply.arg*/
argtab[1].meltbp_long = /*_#NEXTDEPTH__L5*/ meltfnum[4];
- /*_.DBG_OUT__V27*/
- meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.VAL__V25*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+ /*_.DBG_OUT__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.VAL__V25*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
}
;
/* ending foreach_in_bucketlong meltcit1__EACHBUCKLONG*/
- /*_#KEY__L14*/
- meltfnum[13] = 0L;
- /*_.VAL__V25*/
- meltfptr[19] = NULL;
+ /*_#KEY__L14*/ meltfnum[13] = 0L;
+ /*_.VAL__V25*/ meltfptr[19] = NULL;
} /* end foreach_in_bucketlong meltcit1__EACHBUCKLONG_ix */
/*citerepilog*/
MELT_LOCATION("warmelt-debug.melt:1241:/ clear");
- /*clear*/ /*_#KEY__L14*/
- meltfnum[13] = 0 ;
+ /*clear*/ /*_#KEY__L14*/ meltfnum[13] = 0 ;
/*^clear*/
- /*clear*/ /*_.VAL__V25*/
- meltfptr[19] = 0 ;
+ /*clear*/ /*_.VAL__V25*/ meltfptr[19] = 0 ;
/*^clear*/
- /*clear*/ /*_.ADD2OUT__V26*/
- meltfptr[20] = 0 ;
+ /*clear*/ /*_.ADD2OUT__V26*/ meltfptr[20] = 0 ;
/*^clear*/
- /*clear*/ /*_.DBG_OUT__V27*/
- meltfptr[26] = 0 ;
+ /*clear*/ /*_.DBG_OUT__V27*/ meltfptr[26] = 0 ;
} /*endciterblock FOREACH_IN_BUCKETLONG*/
;
MELT_CHECK_SIGNAL();
;
- /*_#BUCKETLONG_COUNT__L15*/
- meltfnum[14] =
+ /*_#BUCKETLONG_COUNT__L15*/ meltfnum[14] =
melt_longsbucket_count ((melt_ptr_t) /*_.SELF__V2*/ meltfptr[1]);;
MELT_LOCATION("warmelt-debug.melt:1248:/ cond");
- /*cond*/
- if (/*_#BUCKETLONG_COUNT__L15*/ meltfnum[14]) /*then*/
+ /*cond*/ if (/*_#BUCKETLONG_COUNT__L15*/ meltfnum[14]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -1470,8 +1361,7 @@ meltlab_endgetargs:
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1248:/ clear");
- /*clear*/ /*_#plI__L16*/
- meltfnum[15] = 0 ;
+ /*clear*/ /*_#plI__L16*/ meltfnum[15] = 0 ;
}
;
} /*noelse*/
@@ -1486,78 +1376,56 @@ meltlab_endgetargs:
memset(&argtab, 0, sizeof(argtab));
/*^apply.arg*/
argtab[0].meltbp_cstring = "}!";
- /*_.ADD2OUT__V28*/
- meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+ /*_.ADD2OUT__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_.LET___V10*/
- meltfptr[8] = /*_.ADD2OUT__V28*/ meltfptr[27];;
+ /*_.LET___V10*/ meltfptr[8] = /*_.ADD2OUT__V28*/ meltfptr[27];;
MELT_LOCATION("warmelt-debug.melt:1222:/ clear");
- /*clear*/ /*_.DIS__V11*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_.DIS__V11*/ meltfptr[4] = 0 ;
/*^clear*/
- /*clear*/ /*_.SBUF__V12*/
- meltfptr[11] = 0 ;
+ /*clear*/ /*_.SBUF__V12*/ meltfptr[11] = 0 ;
/*^clear*/
- /*clear*/ /*_#IX__L4*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#IX__L4*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_#NEXTDEPTH__L5*/
- meltfnum[4] = 0 ;
+ /*clear*/ /*_#NEXTDEPTH__L5*/ meltfnum[4] = 0 ;
/*^clear*/
- /*clear*/ /*_.NEXTDEPTHBOX__V13*/
- meltfptr[12] = 0 ;
+ /*clear*/ /*_.NEXTDEPTHBOX__V13*/ meltfptr[12] = 0 ;
/*^clear*/
- /*clear*/ /*_.AUX__V14*/
- meltfptr[13] = 0 ;
+ /*clear*/ /*_.AUX__V14*/ meltfptr[13] = 0 ;
/*^clear*/
- /*clear*/ /*_.DBGI_MAXDEPTH__V15*/
- meltfptr[14] = 0 ;
+ /*clear*/ /*_.DBGI_MAXDEPTH__V15*/ meltfptr[14] = 0 ;
/*^clear*/
- /*clear*/ /*_#MAXDEPTH__L6*/
- meltfnum[5] = 0 ;
+ /*clear*/ /*_#MAXDEPTH__L6*/ meltfnum[5] = 0 ;
/*^clear*/
- /*clear*/ /*_#XNUM__L7*/
- meltfnum[6] = 0 ;
+ /*clear*/ /*_#XNUM__L7*/ meltfnum[6] = 0 ;
/*^clear*/
- /*clear*/ /*_.NAMED_NAME__V16*/
- meltfptr[15] = 0 ;
+ /*clear*/ /*_.NAMED_NAME__V16*/ meltfptr[15] = 0 ;
/*^clear*/
- /*clear*/ /*_.ADD2OUT__V17*/
- meltfptr[16] = 0 ;
+ /*clear*/ /*_.ADD2OUT__V17*/ meltfptr[16] = 0 ;
/*^clear*/
- /*clear*/ /*_#lteqI__L8*/
- meltfnum[7] = 0 ;
+ /*clear*/ /*_#lteqI__L8*/ meltfnum[7] = 0 ;
/*^clear*/
- /*clear*/ /*_#OR___L9*/
- meltfnum[8] = 0 ;
+ /*clear*/ /*_#OR___L9*/ meltfnum[8] = 0 ;
/*^clear*/
- /*clear*/ /*_._IF___V18*/
- meltfptr[17] = 0 ;
+ /*clear*/ /*_._IF___V18*/ meltfptr[17] = 0 ;
/*^clear*/
- /*clear*/ /*_#lteqI__L12*/
- meltfnum[9] = 0 ;
+ /*clear*/ /*_#lteqI__L12*/ meltfnum[9] = 0 ;
/*^clear*/
- /*clear*/ /*_#OR___L13*/
- meltfnum[12] = 0 ;
+ /*clear*/ /*_#OR___L13*/ meltfnum[12] = 0 ;
/*^clear*/
- /*clear*/ /*_._IF___V22*/
- meltfptr[18] = 0 ;
+ /*clear*/ /*_._IF___V22*/ meltfptr[18] = 0 ;
/*^clear*/
- /*clear*/ /*_#BUCKETLONG_COUNT__L15*/
- meltfnum[14] = 0 ;
+ /*clear*/ /*_#BUCKETLONG_COUNT__L15*/ meltfnum[14] = 0 ;
/*^clear*/
- /*clear*/ /*_.ADD2OUT__V28*/
- meltfptr[27] = 0 ;
+ /*clear*/ /*_.ADD2OUT__V28*/ meltfptr[27] = 0 ;
MELT_CHECK_SIGNAL();
;
MELT_LOCATION("warmelt-debug.melt:1219:/ quasiblock");
- /*_._RETVAL___V1*/
- meltfptr[0] = /*_.LET___V10*/ meltfptr[8];;
+ /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[8];;
{
MELT_LOCATION("warmelt-debug.melt:1219:/ locexp");
@@ -1572,19 +1440,15 @@ meltlab_endgetargs:
;
/*^finalreturn*/
;
- /*finalret*/
- goto meltlabend_rout ;
+ /*finalret*/ goto meltlabend_rout ;
/*epilog*/
/*^clear*/
- /*clear*/ /*_.IFCPP___V4*/
- meltfptr[3] = 0 ;
+ /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ;
/*^clear*/
- /*clear*/ /*_.IFCPP___V7*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ;
/*^clear*/
- /*clear*/ /*_.LET___V10*/
- meltfptr[8] = 0 ;
+ /*clear*/ /*_.LET___V10*/ meltfptr[8] = 0 ;
}
;
@@ -1665,8 +1529,7 @@ meltrout_36_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD(meltclosure_ptr_t meltclosp_,
/* end of frame for routine meltrout_36_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD fromline 1722 */
- /* classy proc frame meltrout_36_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD */
- MeltFrame_meltrout_36_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD
+ /* classy proc frame meltrout_36_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD */ MeltFrame_meltrout_36_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD
meltfram__ /*declfrastruct fromline 1746*/
/*classyprocarg meltrout_36_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD fromline 1751*/
#if ENABLE_CHECKING
@@ -1679,8 +1542,7 @@ meltrout_36_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD(meltclosure_ptr_t meltclosp_,
#define meltframe meltfram__
melt_trace_start("DBGOUT_ANYOBJECT_METHOD", meltcallcount);
- /*use arguments*/
- (void) meltclosp_;
+ /*use arguments*/ (void) meltclosp_;
(void)meltfirstargp_;
(void)meltxargdescr_;
(void)meltxargtab_;
@@ -1690,22 +1552,19 @@ meltrout_36_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD(meltclosure_ptr_t meltclosp_,
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1256:/ getarg");
- /*_.SELF__V2*/
- meltfptr[1] = (melt_ptr_t) meltfirstargp_;
+ /*_.SELF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1*/
/*^getarg*/
if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
- /*_.DBGI__V3*/
- meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
+ /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL);
/*getarg#2*/
/*^getarg*/
if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs;
- /*_#DEPTH__L1*/
- meltfnum[0] = meltxargtab_[1].meltbp_long;
+ /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long;
;
goto meltlab_endgetargs;
meltlab_endgetargs:
@@ -1725,12 +1584,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#IS_A__L2*/
- meltfnum[1] =
+ /*_#IS_A__L2*/ meltfnum[1] =
melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));;
MELT_LOCATION("warmelt-debug.melt:1257:/ cond");
- /*cond*/
- if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);;
@@ -1759,31 +1616,25 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1257;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
- /*_.MELT_ASSERT_FAILURE_FUN__V6*/
- meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V5*/
- meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
+ /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1257:/ clear");
- /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ;
}
;
}
;
- /*_.IFCPP___V4*/
- meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];;
+ /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1257:/ clear");
- /*clear*/ /*_#IS_A__L2*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V5*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ;
}
#else /*MELT_HAVE_DEBUG*/
@@ -1801,12 +1652,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#IS_OBJECT__L3*/
- meltfnum[1] =
+ /*_#IS_OBJECT__L3*/ meltfnum[1] =
(melt_magic_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])) == MELTOBMAG_OBJECT);;
MELT_LOCATION("warmelt-debug.melt:1258:/ cond");
- /*cond*/
- if (/*_#IS_OBJECT__L3*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#IS_OBJECT__L3*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);;
@@ -1835,31 +1684,25 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1258;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1];
- /*_.MELT_ASSERT_FAILURE_FUN__V9*/
- meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V8*/
- meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];;
+ /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1258:/ clear");
- /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/
- meltfptr[8] = 0 ;
+ /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ;
}
;
}
;
- /*_.IFCPP___V7*/
- meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];;
+ /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1258:/ clear");
- /*clear*/ /*_#IS_OBJECT__L3*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#IS_OBJECT__L3*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V8*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ;
}
#else /*MELT_HAVE_DEBUG*/
@@ -1870,12 +1713,10 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1259:/ quasiblock");
- /*_.DIS__V10*/
- meltfptr[8] =
+ /*_.DIS__V10*/ meltfptr[8] =
((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));;
MELT_LOCATION("warmelt-debug.melt:1260:/ cond");
- /*cond*/
- if (
+ /*cond*/ if (
/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]),
(melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])))
) /*then*/
@@ -1886,8 +1727,7 @@ meltlab_endgetargs:
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/;
melt_object_get_field(slot,obj, 2, "DBGI_MAXDEPTH");
- /*_.DBGI_MAXDEPTH__V11*/
- meltfptr[4] = slot;
+ /*_.DBGI_MAXDEPTH__V11*/ meltfptr[4] = slot;
};
;
}
@@ -1898,23 +1738,20 @@ meltlab_endgetargs:
}
;
/*^compute*/
- /*_#MAXDEPTH__L4*/
- meltfnum[1] =
+ /*_#MAXDEPTH__L4*/ meltfnum[1] =
(melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V11*/ meltfptr[4])));;
MELT_LOCATION("warmelt-debug.melt:1261:/ getslot");
{
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/;
melt_object_get_field(slot,obj, 0, "DBGI_OUT");
- /*_.SBUF__V12*/
- meltfptr[11] = slot;
+ /*_.SBUF__V12*/ meltfptr[11] = slot;
};
;
{
MELT_LOCATION("warmelt-debug.melt:1262:/ locexp");
- /*add2sbuf_strconst*/
- meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), ( "|"));
+ /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), ( "|"));
}
;
MELT_LOCATION("warmelt-debug.melt:1263:/ getslot");
@@ -1922,8 +1759,7 @@ meltlab_endgetargs:
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DIS__V10*/ meltfptr[8]) /*=obj*/;
melt_object_get_field(slot,obj, 1, "NAMED_NAME");
- /*_.NAMED_NAME__V13*/
- meltfptr[12] = slot;
+ /*_.NAMED_NAME__V13*/ meltfptr[12] = slot;
};
;
@@ -1936,12 +1772,10 @@ meltlab_endgetargs:
{
MELT_LOCATION("warmelt-debug.melt:1264:/ locexp");
- /*add2sbuf_strconst*/
- meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), ( "/"));
+ /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), ( "/"));
}
;
- /*_#OBJ_HASH__L5*/
- meltfnum[4] =
+ /*_#OBJ_HASH__L5*/ meltfnum[4] =
(melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));;
{
@@ -1952,15 +1786,13 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1266:/ quasiblock");
- /*_#ONUM__L6*/
- meltfnum[5] =
+ /*_#ONUM__L6*/ meltfnum[5] =
(melt_get_int((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));;
MELT_CHECK_SIGNAL();
;
MELT_LOCATION("warmelt-debug.melt:1268:/ cond");
- /*cond*/
- if (/*_#ONUM__L6*/ meltfnum[5]) /*then*/
+ /*cond*/ if (/*_#ONUM__L6*/ meltfnum[5]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -1970,8 +1802,7 @@ meltlab_endgetargs:
{
MELT_LOCATION("warmelt-debug.melt:1269:/ locexp");
- /*add2sbuf_strconst*/
- meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), ( "#"));
+ /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), ( "#"));
}
;
@@ -1990,21 +1821,17 @@ meltlab_endgetargs:
;
MELT_LOCATION("warmelt-debug.melt:1266:/ clear");
- /*clear*/ /*_#ONUM__L6*/
- meltfnum[5] = 0 ;
+ /*clear*/ /*_#ONUM__L6*/ meltfnum[5] = 0 ;
MELT_CHECK_SIGNAL();
;
- /*_#plI__L7*/
- meltfnum[5] =
+ /*_#plI__L7*/ meltfnum[5] =
((/*_#DEPTH__L1*/ meltfnum[0]) + (1));;
/*^compute*/
- /*_#ltI__L8*/
- meltfnum[7] =
+ /*_#ltI__L8*/ meltfnum[7] =
((/*_#plI__L7*/ meltfnum[5]) < (/*_#MAXDEPTH__L4*/ meltfnum[1]));;
MELT_LOCATION("warmelt-debug.melt:1272:/ cond");
- /*cond*/
- if (/*_#ltI__L8*/ meltfnum[7]) /*then*/
+ /*cond*/ if (/*_#ltI__L8*/ meltfnum[7]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -2014,12 +1841,10 @@ meltlab_endgetargs:
{
MELT_LOCATION("warmelt-debug.melt:1273:/ locexp");
- /*add2sbuf_strconst*/
- meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), ( "{"));
+ /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), ( "{"));
}
;
- /*_#plI__L9*/
- meltfnum[8] =
+ /*_#plI__L9*/ meltfnum[8] =
((/*_#DEPTH__L1*/ meltfnum[0]) + (1));;
MELT_CHECK_SIGNAL();
@@ -2037,15 +1862,13 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 0;
/*^apply.arg*/
argtab[3].meltbp_long = 0;
- /*_.DBGOUT_FIELDS__V14*/
- meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_FIELDS*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+ /*_.DBGOUT_FIELDS__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_FIELDS*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
}
;
{
MELT_LOCATION("warmelt-debug.melt:1275:/ locexp");
- /*add2sbuf_strconst*/
- meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), ( "}"));
+ /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V12*/ meltfptr[11]), ( "}"));
}
;
MELT_LOCATION("warmelt-debug.melt:1272:/ quasiblock");
@@ -2054,51 +1877,39 @@ meltlab_endgetargs:
/*epilog*/
/*^clear*/
- /*clear*/ /*_#plI__L9*/
- meltfnum[8] = 0 ;
+ /*clear*/ /*_#plI__L9*/ meltfnum[8] = 0 ;
/*^clear*/
- /*clear*/ /*_.DBGOUT_FIELDS__V14*/
- meltfptr[13] = 0 ;
+ /*clear*/ /*_.DBGOUT_FIELDS__V14*/ meltfptr[13] = 0 ;
}
;
} /*noelse*/
;
MELT_LOCATION("warmelt-debug.melt:1259:/ clear");
- /*clear*/ /*_.DIS__V10*/
- meltfptr[8] = 0 ;
+ /*clear*/ /*_.DIS__V10*/ meltfptr[8] = 0 ;
/*^clear*/
- /*clear*/ /*_.DBGI_MAXDEPTH__V11*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_.DBGI_MAXDEPTH__V11*/ meltfptr[4] = 0 ;
/*^clear*/
- /*clear*/ /*_#MAXDEPTH__L4*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#MAXDEPTH__L4*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_.SBUF__V12*/
- meltfptr[11] = 0 ;
+ /*clear*/ /*_.SBUF__V12*/ meltfptr[11] = 0 ;
/*^clear*/
- /*clear*/ /*_.NAMED_NAME__V13*/
- meltfptr[12] = 0 ;
+ /*clear*/ /*_.NAMED_NAME__V13*/ meltfptr[12] = 0 ;
/*^clear*/
- /*clear*/ /*_#OBJ_HASH__L5*/
- meltfnum[4] = 0 ;
+ /*clear*/ /*_#OBJ_HASH__L5*/ meltfnum[4] = 0 ;
/*^clear*/
- /*clear*/ /*_#plI__L7*/
- meltfnum[5] = 0 ;
+ /*clear*/ /*_#plI__L7*/ meltfnum[5] = 0 ;
/*^clear*/
- /*clear*/ /*_#ltI__L8*/
- meltfnum[7] = 0 ;
+ /*clear*/ /*_#ltI__L8*/ meltfnum[7] = 0 ;
MELT_CHECK_SIGNAL();
;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1256:/ clear");
- /*clear*/ /*_.IFCPP___V4*/
- meltfptr[3] = 0 ;
+ /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ;
/*^clear*/
- /*clear*/ /*_.IFCPP___V7*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ;
}
;
@@ -2179,8 +1990,7 @@ meltrout_37_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD(meltclosure_ptr_t meltclosp_, m
/* end of frame for routine meltrout_37_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD fromline 1722 */
- /* classy proc frame meltrout_37_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD */
- MeltFrame_meltrout_37_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD
+ /* classy proc frame meltrout_37_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD */ MeltFrame_meltrout_37_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD
meltfram__ /*declfrastruct fromline 1746*/
/*classyprocarg meltrout_37_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD fromline 1751*/
#if ENABLE_CHECKING
@@ -2193,8 +2003,7 @@ meltrout_37_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD(meltclosure_ptr_t meltclosp_, m
#define meltframe meltfram__
melt_trace_start("DBGOUT_ANYRECV_METHOD", meltcallcount);
- /*use arguments*/
- (void) meltclosp_;
+ /*use arguments*/ (void) meltclosp_;
(void)meltfirstargp_;
(void)meltxargdescr_;
(void)meltxargtab_;
@@ -2204,22 +2013,19 @@ meltrout_37_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD(meltclosure_ptr_t meltclosp_, m
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1281:/ getarg");
- /*_.SELF__V2*/
- meltfptr[1] = (melt_ptr_t) meltfirstargp_;
+ /*_.SELF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1*/
/*^getarg*/
if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
- /*_.DBGI__V3*/
- meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
+ /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL);
/*getarg#2*/
/*^getarg*/
if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs;
- /*_#DEPTH__L1*/
- meltfnum[0] = meltxargtab_[1].meltbp_long;
+ /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long;
;
goto meltlab_endgetargs;
meltlab_endgetargs:
@@ -2239,12 +2045,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#IS_A__L2*/
- meltfnum[1] =
+ /*_#IS_A__L2*/ meltfnum[1] =
melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));;
MELT_LOCATION("warmelt-debug.melt:1282:/ cond");
- /*cond*/
- if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);;
@@ -2273,31 +2077,25 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1282;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
- /*_.MELT_ASSERT_FAILURE_FUN__V6*/
- meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V5*/
- meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
+ /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1282:/ clear");
- /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ;
}
;
}
;
- /*_.IFCPP___V4*/
- meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];;
+ /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1282:/ clear");
- /*clear*/ /*_#IS_A__L2*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V5*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ;
}
#else /*MELT_HAVE_DEBUG*/
@@ -2308,34 +2106,29 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1283:/ quasiblock");
- /*_.DIS__V7*/
- meltfptr[5] =
+ /*_.DIS__V7*/ meltfptr[5] =
((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));;
MELT_LOCATION("warmelt-debug.melt:1284:/ getslot");
{
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/;
melt_object_get_field(slot,obj, 0, "DBGI_OUT");
- /*_.SBUF__V8*/
- meltfptr[4] = slot;
+ /*_.SBUF__V8*/ meltfptr[4] = slot;
};
;
{
MELT_LOCATION("warmelt-debug.melt:1285:/ locexp");
- /*add2sbuf_strconst*/
- meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), ( " ?."));
+ /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), ( " ?."));
}
;
MELT_CHECK_SIGNAL();
;
- /*_#IS_A__L3*/
- meltfnum[1] =
+ /*_#IS_A__L3*/ meltfnum[1] =
melt_is_instance_of((melt_ptr_t)(/*_.DIS__V7*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[2])));;
MELT_LOCATION("warmelt-debug.melt:1286:/ cond");
- /*cond*/
- if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -2347,8 +2140,7 @@ meltlab_endgetargs:
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DIS__V7*/ meltfptr[5]) /*=obj*/;
melt_object_get_field(slot,obj, 1, "NAMED_NAME");
- /*_.NAMED_NAME__V9*/
- meltfptr[8] = slot;
+ /*_.NAMED_NAME__V9*/ meltfptr[8] = slot;
};
;
@@ -2361,8 +2153,7 @@ meltlab_endgetargs:
/*epilog*/
/*^clear*/
- /*clear*/ /*_.NAMED_NAME__V9*/
- meltfptr[8] = 0 ;
+ /*clear*/ /*_.NAMED_NAME__V9*/ meltfptr[8] = 0 ;
}
;
} /*noelse*/
@@ -2370,28 +2161,23 @@ meltlab_endgetargs:
{
MELT_LOCATION("warmelt-debug.melt:1287:/ locexp");
- /*add2sbuf_strconst*/
- meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), ( ".? "));
+ /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V8*/ meltfptr[4]), ( ".? "));
}
;
MELT_LOCATION("warmelt-debug.melt:1283:/ clear");
- /*clear*/ /*_.DIS__V7*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.DIS__V7*/ meltfptr[5] = 0 ;
/*^clear*/
- /*clear*/ /*_.SBUF__V8*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_.SBUF__V8*/ meltfptr[4] = 0 ;
/*^clear*/
- /*clear*/ /*_#IS_A__L3*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ;
MELT_CHECK_SIGNAL();
;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1281:/ clear");
- /*clear*/ /*_.IFCPP___V4*/
- meltfptr[3] = 0 ;
+ /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ;
}
;
@@ -2472,8 +2258,7 @@ meltrout_38_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD(meltclosure_ptr_t meltcl
/* end of frame for routine meltrout_38_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD fromline 1722 */
- /* classy proc frame meltrout_38_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD */
- MeltFrame_meltrout_38_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD
+ /* classy proc frame meltrout_38_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD */ MeltFrame_meltrout_38_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD
meltfram__ /*declfrastruct fromline 1746*/
/*classyprocarg meltrout_38_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD fromline 1751*/
#if ENABLE_CHECKING
@@ -2486,8 +2271,7 @@ meltrout_38_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD(meltclosure_ptr_t meltcl
#define meltframe meltfram__
melt_trace_start("DBGOUTAGAIN_ANYOBJECT_METHOD", meltcallcount);
- /*use arguments*/
- (void) meltclosp_;
+ /*use arguments*/ (void) meltclosp_;
(void)meltfirstargp_;
(void)meltxargdescr_;
(void)meltxargtab_;
@@ -2497,22 +2281,19 @@ meltrout_38_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD(meltclosure_ptr_t meltcl
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1292:/ getarg");
- /*_.SELF__V2*/
- meltfptr[1] = (melt_ptr_t) meltfirstargp_;
+ /*_.SELF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1*/
/*^getarg*/
if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
- /*_.DBGI__V3*/
- meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
+ /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL);
/*getarg#2*/
/*^getarg*/
if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs;
- /*_#DEPTH__L1*/
- meltfnum[0] = meltxargtab_[1].meltbp_long;
+ /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long;
;
goto meltlab_endgetargs;
meltlab_endgetargs:
@@ -2532,12 +2313,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#IS_A__L2*/
- meltfnum[1] =
+ /*_#IS_A__L2*/ meltfnum[1] =
melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));;
MELT_LOCATION("warmelt-debug.melt:1293:/ cond");
- /*cond*/
- if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);;
@@ -2566,31 +2345,25 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1293;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
- /*_.MELT_ASSERT_FAILURE_FUN__V6*/
- meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V5*/
- meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
+ /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1293:/ clear");
- /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ;
}
;
}
;
- /*_.IFCPP___V4*/
- meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];;
+ /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1293:/ clear");
- /*clear*/ /*_#IS_A__L2*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V5*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ;
}
#else /*MELT_HAVE_DEBUG*/
@@ -2608,12 +2381,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#IS_OBJECT__L3*/
- meltfnum[1] =
+ /*_#IS_OBJECT__L3*/ meltfnum[1] =
(melt_magic_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])) == MELTOBMAG_OBJECT);;
MELT_LOCATION("warmelt-debug.melt:1294:/ cond");
- /*cond*/
- if (/*_#IS_OBJECT__L3*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#IS_OBJECT__L3*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);;
@@ -2642,31 +2413,25 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1294;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1];
- /*_.MELT_ASSERT_FAILURE_FUN__V9*/
- meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V8*/
- meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];;
+ /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1294:/ clear");
- /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/
- meltfptr[8] = 0 ;
+ /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ;
}
;
}
;
- /*_.IFCPP___V7*/
- meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];;
+ /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1294:/ clear");
- /*clear*/ /*_#IS_OBJECT__L3*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#IS_OBJECT__L3*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V8*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ;
}
#else /*MELT_HAVE_DEBUG*/
@@ -2677,26 +2442,22 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1295:/ quasiblock");
- /*_.DIS__V10*/
- meltfptr[8] =
+ /*_.DIS__V10*/ meltfptr[8] =
((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));;
MELT_LOCATION("warmelt-debug.melt:1296:/ getslot");
{
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/;
melt_object_get_field(slot,obj, 0, "DBGI_OUT");
- /*_.SBUF__V11*/
- meltfptr[4] = slot;
+ /*_.SBUF__V11*/ meltfptr[4] = slot;
};
;
- /*_#ONUM__L4*/
- meltfnum[1] =
+ /*_#ONUM__L4*/ meltfnum[1] =
(melt_obj_num((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));;
{
MELT_LOCATION("warmelt-debug.melt:1299:/ locexp");
- /*add2sbuf_strconst*/
- meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), ( "^^|"));
+ /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), ( "^^|"));
}
;
MELT_LOCATION("warmelt-debug.melt:1300:/ getslot");
@@ -2704,8 +2465,7 @@ meltlab_endgetargs:
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DIS__V10*/ meltfptr[8]) /*=obj*/;
melt_object_get_field(slot,obj, 1, "NAMED_NAME");
- /*_.NAMED_NAME__V12*/
- meltfptr[11] = slot;
+ /*_.NAMED_NAME__V12*/ meltfptr[11] = slot;
};
;
@@ -2718,12 +2478,10 @@ meltlab_endgetargs:
{
MELT_LOCATION("warmelt-debug.melt:1301:/ locexp");
- /*add2sbuf_strconst*/
- meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), ( "/"));
+ /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), ( "/"));
}
;
- /*_#OBJ_HASH__L5*/
- meltfnum[4] =
+ /*_#OBJ_HASH__L5*/ meltfnum[4] =
(melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));;
{
@@ -2735,8 +2493,7 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
MELT_LOCATION("warmelt-debug.melt:1303:/ cond");
- /*cond*/
- if (/*_#ONUM__L4*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#ONUM__L4*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -2746,8 +2503,7 @@ meltlab_endgetargs:
{
MELT_LOCATION("warmelt-debug.melt:1304:/ locexp");
- /*add2sbuf_strconst*/
- meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), ( "#"));
+ /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SBUF__V11*/ meltfptr[4]), ( "#"));
}
;
@@ -2766,31 +2522,24 @@ meltlab_endgetargs:
;
MELT_LOCATION("warmelt-debug.melt:1295:/ clear");
- /*clear*/ /*_.DIS__V10*/
- meltfptr[8] = 0 ;
+ /*clear*/ /*_.DIS__V10*/ meltfptr[8] = 0 ;
/*^clear*/
- /*clear*/ /*_.SBUF__V11*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_.SBUF__V11*/ meltfptr[4] = 0 ;
/*^clear*/
- /*clear*/ /*_#ONUM__L4*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#ONUM__L4*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_.NAMED_NAME__V12*/
- meltfptr[11] = 0 ;
+ /*clear*/ /*_.NAMED_NAME__V12*/ meltfptr[11] = 0 ;
/*^clear*/
- /*clear*/ /*_#OBJ_HASH__L5*/
- meltfnum[4] = 0 ;
+ /*clear*/ /*_#OBJ_HASH__L5*/ meltfnum[4] = 0 ;
MELT_CHECK_SIGNAL();
;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1292:/ clear");
- /*clear*/ /*_.IFCPP___V4*/
- meltfptr[3] = 0 ;
+ /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ;
/*^clear*/
- /*clear*/ /*_.IFCPP___V7*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ;
}
;
@@ -2871,8 +2620,7 @@ meltrout_39_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD(meltclosure_ptr_t meltclosp
/* end of frame for routine meltrout_39_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD fromline 1722 */
- /* classy proc frame meltrout_39_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD */
- MeltFrame_meltrout_39_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD
+ /* classy proc frame meltrout_39_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD */ MeltFrame_meltrout_39_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD
meltfram__ /*declfrastruct fromline 1746*/
/*classyprocarg meltrout_39_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD fromline 1751*/
#if ENABLE_CHECKING
@@ -2885,8 +2633,7 @@ meltrout_39_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD(meltclosure_ptr_t meltclosp
#define meltframe meltfram__
melt_trace_start("DBGOUT_NAMEDOBJECT_METHOD", meltcallcount);
- /*use arguments*/
- (void) meltclosp_;
+ /*use arguments*/ (void) meltclosp_;
(void)meltfirstargp_;
(void)meltxargdescr_;
(void)meltxargtab_;
@@ -2896,22 +2643,19 @@ meltrout_39_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD(meltclosure_ptr_t meltclosp
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1310:/ getarg");
- /*_.SELF__V2*/
- meltfptr[1] = (melt_ptr_t) meltfirstargp_;
+ /*_.SELF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1*/
/*^getarg*/
if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
- /*_.DBGI__V3*/
- meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
+ /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL);
/*getarg#2*/
/*^getarg*/
if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs;
- /*_#DEPTH__L1*/
- meltfnum[0] = meltxargtab_[1].meltbp_long;
+ /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long;
;
goto meltlab_endgetargs;
meltlab_endgetargs:
@@ -2931,12 +2675,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#IS_A__L2*/
- meltfnum[1] =
+ /*_#IS_A__L2*/ meltfnum[1] =
melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));;
MELT_LOCATION("warmelt-debug.melt:1311:/ cond");
- /*cond*/
- if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);;
@@ -2965,31 +2707,25 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1311;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
- /*_.MELT_ASSERT_FAILURE_FUN__V6*/
- meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V5*/
- meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
+ /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1311:/ clear");
- /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ;
}
;
}
;
- /*_.IFCPP___V4*/
- meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];;
+ /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1311:/ clear");
- /*clear*/ /*_#IS_A__L2*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V5*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ;
}
#else /*MELT_HAVE_DEBUG*/
@@ -3007,12 +2743,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#IS_A__L3*/
- meltfnum[1] =
+ /*_#IS_A__L3*/ meltfnum[1] =
melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[2])));;
MELT_LOCATION("warmelt-debug.melt:1312:/ cond");
- /*cond*/
- if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);;
@@ -3041,31 +2775,25 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1312;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1];
- /*_.MELT_ASSERT_FAILURE_FUN__V9*/
- meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V8*/
- meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];;
+ /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1312:/ clear");
- /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/
- meltfptr[8] = 0 ;
+ /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ;
}
;
}
;
- /*_.IFCPP___V7*/
- meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];;
+ /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1312:/ clear");
- /*clear*/ /*_#IS_A__L3*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V8*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ;
}
#else /*MELT_HAVE_DEBUG*/
@@ -3076,16 +2804,14 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1313:/ quasiblock");
- /*_.DIS__V10*/
- meltfptr[8] =
+ /*_.DIS__V10*/ meltfptr[8] =
((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));;
MELT_LOCATION("warmelt-debug.melt:1314:/ getslot");
{
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/;
melt_object_get_field(slot,obj, 0, "DBGI_OUT");
- /*_.OUT__V11*/
- meltfptr[4] = slot;
+ /*_.OUT__V11*/ meltfptr[4] = slot;
};
;
MELT_LOCATION("warmelt-debug.melt:1315:/ getslot");
@@ -3093,8 +2819,7 @@ meltlab_endgetargs:
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]) /*=obj*/;
melt_object_get_field(slot,obj, 1, "NAMED_NAME");
- /*_.ONAM__V12*/
- meltfptr[11] = slot;
+ /*_.ONAM__V12*/ meltfptr[11] = slot;
};
;
MELT_LOCATION("warmelt-debug.melt:1316:/ getslot");
@@ -3102,13 +2827,11 @@ meltlab_endgetargs:
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]) /*=obj*/;
melt_object_get_field(slot,obj, 0, "PROP_TABLE");
- /*_.OPROP__V13*/
- meltfptr[12] = slot;
+ /*_.OPROP__V13*/ meltfptr[12] = slot;
};
;
MELT_LOCATION("warmelt-debug.melt:1317:/ cond");
- /*cond*/
- if (
+ /*cond*/ if (
/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]),
(melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])))
) /*then*/
@@ -3119,8 +2842,7 @@ meltlab_endgetargs:
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/;
melt_object_get_field(slot,obj, 2, "DBGI_MAXDEPTH");
- /*_.DBGI_MAXDEPTH__V14*/
- meltfptr[13] = slot;
+ /*_.DBGI_MAXDEPTH__V14*/ meltfptr[13] = slot;
};
;
}
@@ -3131,8 +2853,7 @@ meltlab_endgetargs:
}
;
/*^compute*/
- /*_#MAXDEPTH__L4*/
- meltfnum[1] =
+ /*_#MAXDEPTH__L4*/ meltfnum[1] =
(melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V14*/ meltfptr[13])));;
#if MELT_HAVE_DEBUG
@@ -3144,12 +2865,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#IS_OUT__L5*/
- meltfnum[4] =
+ /*_#IS_OUT__L5*/ meltfnum[4] =
(melt_is_out ((melt_ptr_t) /*_.OUT__V11*/ meltfptr[4])) ;;
MELT_LOCATION("warmelt-debug.melt:1319:/ cond");
- /*cond*/
- if (/*_#IS_OUT__L5*/ meltfnum[4]) /*then*/
+ /*cond*/ if (/*_#IS_OUT__L5*/ meltfnum[4]) /*then*/
{
/*^cond.then*/
/*_._IFELSE___V16*/ meltfptr[15] = (/*nil*/NULL);;
@@ -3178,31 +2897,25 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1319;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUT__V11*/ meltfptr[4];
- /*_.MELT_ASSERT_FAILURE_FUN__V17*/
- meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V16*/
- meltfptr[15] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];;
+ /*_._IFELSE___V16*/ meltfptr[15] = /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1319:/ clear");
- /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V17*/
- meltfptr[16] = 0 ;
+ /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16] = 0 ;
}
;
}
;
- /*_.IFCPP___V15*/
- meltfptr[14] = /*_._IFELSE___V16*/ meltfptr[15];;
+ /*_.IFCPP___V15*/ meltfptr[14] = /*_._IFELSE___V16*/ meltfptr[15];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1319:/ clear");
- /*clear*/ /*_#IS_OUT__L5*/
- meltfnum[4] = 0 ;
+ /*clear*/ /*_#IS_OUT__L5*/ meltfnum[4] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V16*/
- meltfptr[15] = 0 ;
+ /*clear*/ /*_._IFELSE___V16*/ meltfptr[15] = 0 ;
}
#else /*MELT_HAVE_DEBUG*/
@@ -3233,8 +2946,7 @@ meltlab_endgetargs:
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DIS__V10*/ meltfptr[8]) /*=obj*/;
melt_object_get_field(slot,obj, 1, "NAMED_NAME");
- /*_.NAMED_NAME__V18*/
- meltfptr[16] = slot;
+ /*_.NAMED_NAME__V18*/ meltfptr[16] = slot;
};
;
@@ -3249,8 +2961,7 @@ meltlab_endgetargs:
meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( "/"));
}
;
- /*_#OBJ_HASH__L6*/
- meltfnum[4] =
+ /*_#OBJ_HASH__L6*/ meltfnum[4] =
(melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));;
{
@@ -3261,12 +2972,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#ltI__L7*/
- meltfnum[6] =
+ /*_#ltI__L7*/ meltfnum[6] =
((/*_#DEPTH__L1*/ meltfnum[0]) < (/*_#MAXDEPTH__L4*/ meltfnum[1]));;
MELT_LOCATION("warmelt-debug.melt:1326:/ cond");
- /*cond*/
- if (/*_#ltI__L7*/ meltfnum[6]) /*then*/
+ /*cond*/ if (/*_#ltI__L7*/ meltfnum[6]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -3276,15 +2985,13 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1327:/ quasiblock");
- /*_#ONUM__L8*/
- meltfnum[7] =
+ /*_#ONUM__L8*/ meltfnum[7] =
(melt_obj_num((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));;
MELT_CHECK_SIGNAL();
;
MELT_LOCATION("warmelt-debug.melt:1329:/ cond");
- /*cond*/
- if (/*_#ONUM__L8*/ meltfnum[7]) /*then*/
+ /*cond*/ if (/*_#ONUM__L8*/ meltfnum[7]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -3321,8 +3028,7 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
MELT_LOCATION("warmelt-debug.melt:1334:/ cond");
- /*cond*/
- if (/*_.OPROP__V13*/ meltfptr[12]) /*then*/
+ /*cond*/ if (/*_.OPROP__V13*/ meltfptr[12]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -3335,8 +3041,7 @@ meltlab_endgetargs:
meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( "prop="));
}
;
- /*_#plI__L9*/
- meltfnum[8] =
+ /*_#plI__L9*/ meltfnum[8] =
((/*_#DEPTH__L1*/ meltfnum[0]) + (3));;
MELT_CHECK_SIGNAL();
@@ -3350,29 +3055,23 @@ meltlab_endgetargs:
argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
/*^apply.arg*/
argtab[1].meltbp_long = /*_#plI__L9*/ meltfnum[8];
- /*_.DBG_OUT__V20*/
- meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.OPROP__V13*/ meltfptr[12]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+ /*_.DBG_OUT__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.OPROP__V13*/ meltfptr[12]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
}
;
MELT_LOCATION("warmelt-debug.melt:1335:/ quasiblock");
- /*_.PROGN___V21*/
- meltfptr[20] = /*_.DBG_OUT__V20*/ meltfptr[19];;
+ /*_.PROGN___V21*/ meltfptr[20] = /*_.DBG_OUT__V20*/ meltfptr[19];;
/*^compute*/
- /*_._IF___V19*/
- meltfptr[15] = /*_.PROGN___V21*/ meltfptr[20];;
+ /*_._IF___V19*/ meltfptr[15] = /*_.PROGN___V21*/ meltfptr[20];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1334:/ clear");
- /*clear*/ /*_#plI__L9*/
- meltfnum[8] = 0 ;
+ /*clear*/ /*_#plI__L9*/ meltfnum[8] = 0 ;
/*^clear*/
- /*clear*/ /*_.DBG_OUT__V20*/
- meltfptr[19] = 0 ;
+ /*clear*/ /*_.DBG_OUT__V20*/ meltfptr[19] = 0 ;
/*^clear*/
- /*clear*/ /*_.PROGN___V21*/
- meltfptr[20] = 0 ;
+ /*clear*/ /*_.PROGN___V21*/ meltfptr[20] = 0 ;
}
;
}
@@ -3383,8 +3082,7 @@ meltlab_endgetargs:
}
;
/*^compute*/
- /*_#plI__L10*/
- meltfnum[8] =
+ /*_#plI__L10*/ meltfnum[8] =
((/*_#DEPTH__L1*/ meltfnum[0]) + (3));;
MELT_CHECK_SIGNAL();
@@ -3402,8 +3100,7 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 2;
/*^apply.arg*/
argtab[3].meltbp_long = 0;
- /*_.DBGOUT_FIELDS__V22*/
- meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_FIELDS*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+ /*_.DBGOUT_FIELDS__V22*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_FIELDS*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
}
;
@@ -3414,17 +3111,13 @@ meltlab_endgetargs:
;
MELT_LOCATION("warmelt-debug.melt:1327:/ clear");
- /*clear*/ /*_#ONUM__L8*/
- meltfnum[7] = 0 ;
+ /*clear*/ /*_#ONUM__L8*/ meltfnum[7] = 0 ;
/*^clear*/
- /*clear*/ /*_._IF___V19*/
- meltfptr[15] = 0 ;
+ /*clear*/ /*_._IF___V19*/ meltfptr[15] = 0 ;
/*^clear*/
- /*clear*/ /*_#plI__L10*/
- meltfnum[8] = 0 ;
+ /*clear*/ /*_#plI__L10*/ meltfnum[8] = 0 ;
/*^clear*/
- /*clear*/ /*_.DBGOUT_FIELDS__V22*/
- meltfptr[19] = 0 ;
+ /*clear*/ /*_.DBGOUT_FIELDS__V22*/ meltfptr[19] = 0 ;
/*epilog*/
}
;
@@ -3432,46 +3125,34 @@ meltlab_endgetargs:
;
MELT_LOCATION("warmelt-debug.melt:1313:/ clear");
- /*clear*/ /*_.DIS__V10*/
- meltfptr[8] = 0 ;
+ /*clear*/ /*_.DIS__V10*/ meltfptr[8] = 0 ;
/*^clear*/
- /*clear*/ /*_.OUT__V11*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_.OUT__V11*/ meltfptr[4] = 0 ;
/*^clear*/
- /*clear*/ /*_.ONAM__V12*/
- meltfptr[11] = 0 ;
+ /*clear*/ /*_.ONAM__V12*/ meltfptr[11] = 0 ;
/*^clear*/
- /*clear*/ /*_.OPROP__V13*/
- meltfptr[12] = 0 ;
+ /*clear*/ /*_.OPROP__V13*/ meltfptr[12] = 0 ;
/*^clear*/
- /*clear*/ /*_.DBGI_MAXDEPTH__V14*/
- meltfptr[13] = 0 ;
+ /*clear*/ /*_.DBGI_MAXDEPTH__V14*/ meltfptr[13] = 0 ;
/*^clear*/
- /*clear*/ /*_#MAXDEPTH__L4*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#MAXDEPTH__L4*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_.IFCPP___V15*/
- meltfptr[14] = 0 ;
+ /*clear*/ /*_.IFCPP___V15*/ meltfptr[14] = 0 ;
/*^clear*/
- /*clear*/ /*_.NAMED_NAME__V18*/
- meltfptr[16] = 0 ;
+ /*clear*/ /*_.NAMED_NAME__V18*/ meltfptr[16] = 0 ;
/*^clear*/
- /*clear*/ /*_#OBJ_HASH__L6*/
- meltfnum[4] = 0 ;
+ /*clear*/ /*_#OBJ_HASH__L6*/ meltfnum[4] = 0 ;
/*^clear*/
- /*clear*/ /*_#ltI__L7*/
- meltfnum[6] = 0 ;
+ /*clear*/ /*_#ltI__L7*/ meltfnum[6] = 0 ;
MELT_CHECK_SIGNAL();
;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1310:/ clear");
- /*clear*/ /*_.IFCPP___V4*/
- meltfptr[3] = 0 ;
+ /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ;
/*^clear*/
- /*clear*/ /*_.IFCPP___V7*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ;
}
;
@@ -3552,8 +3233,7 @@ meltrout_40_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD(meltclosure_ptr_t melt
/* end of frame for routine meltrout_40_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD fromline 1722 */
- /* classy proc frame meltrout_40_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD */
- MeltFrame_meltrout_40_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD
+ /* classy proc frame meltrout_40_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD */ MeltFrame_meltrout_40_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD
meltfram__ /*declfrastruct fromline 1746*/
/*classyprocarg meltrout_40_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD fromline 1751*/
#if ENABLE_CHECKING
@@ -3566,8 +3246,7 @@ meltrout_40_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD(meltclosure_ptr_t melt
#define meltframe meltfram__
melt_trace_start("DBGOUTAGAIN_NAMEDOBJECT_METHOD", meltcallcount);
- /*use arguments*/
- (void) meltclosp_;
+ /*use arguments*/ (void) meltclosp_;
(void)meltfirstargp_;
(void)meltxargdescr_;
(void)meltxargtab_;
@@ -3577,22 +3256,19 @@ meltrout_40_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD(meltclosure_ptr_t melt
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1347:/ getarg");
- /*_.SELF__V2*/
- meltfptr[1] = (melt_ptr_t) meltfirstargp_;
+ /*_.SELF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1*/
/*^getarg*/
if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
- /*_.DBGI__V3*/
- meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
+ /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL);
/*getarg#2*/
/*^getarg*/
if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs;
- /*_#DEPTH__L1*/
- meltfnum[0] = meltxargtab_[1].meltbp_long;
+ /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long;
;
goto meltlab_endgetargs;
meltlab_endgetargs:
@@ -3612,12 +3288,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#IS_A__L2*/
- meltfnum[1] =
+ /*_#IS_A__L2*/ meltfnum[1] =
melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));;
MELT_LOCATION("warmelt-debug.melt:1348:/ cond");
- /*cond*/
- if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);;
@@ -3646,31 +3320,25 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1348;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
- /*_.MELT_ASSERT_FAILURE_FUN__V6*/
- meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V5*/
- meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
+ /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1348:/ clear");
- /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ;
}
;
}
;
- /*_.IFCPP___V4*/
- meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];;
+ /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1348:/ clear");
- /*clear*/ /*_#IS_A__L2*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V5*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ;
}
#else /*MELT_HAVE_DEBUG*/
@@ -3688,12 +3356,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#IS_A__L3*/
- meltfnum[1] =
+ /*_#IS_A__L3*/ meltfnum[1] =
melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[2])));;
MELT_LOCATION("warmelt-debug.melt:1349:/ cond");
- /*cond*/
- if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);;
@@ -3722,31 +3388,25 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1349;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1];
- /*_.MELT_ASSERT_FAILURE_FUN__V9*/
- meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V8*/
- meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];;
+ /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1349:/ clear");
- /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/
- meltfptr[8] = 0 ;
+ /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ;
}
;
}
;
- /*_.IFCPP___V7*/
- meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];;
+ /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1349:/ clear");
- /*clear*/ /*_#IS_A__L3*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V8*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ;
}
#else /*MELT_HAVE_DEBUG*/
@@ -3757,16 +3417,14 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1350:/ quasiblock");
- /*_.DIS__V10*/
- meltfptr[8] =
+ /*_.DIS__V10*/ meltfptr[8] =
((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));;
MELT_LOCATION("warmelt-debug.melt:1351:/ getslot");
{
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/;
melt_object_get_field(slot,obj, 0, "DBGI_OUT");
- /*_.OUT__V11*/
- meltfptr[4] = slot;
+ /*_.OUT__V11*/ meltfptr[4] = slot;
};
;
MELT_LOCATION("warmelt-debug.melt:1352:/ getslot");
@@ -3774,8 +3432,7 @@ meltlab_endgetargs:
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]) /*=obj*/;
melt_object_get_field(slot,obj, 1, "NAMED_NAME");
- /*_.ONAM__V12*/
- meltfptr[11] = slot;
+ /*_.ONAM__V12*/ meltfptr[11] = slot;
};
;
@@ -3801,8 +3458,7 @@ meltlab_endgetargs:
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DIS__V10*/ meltfptr[8]) /*=obj*/;
melt_object_get_field(slot,obj, 1, "NAMED_NAME");
- /*_.NAMED_NAME__V13*/
- meltfptr[12] = slot;
+ /*_.NAMED_NAME__V13*/ meltfptr[12] = slot;
};
;
@@ -3817,8 +3473,7 @@ meltlab_endgetargs:
meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( "/"));
}
;
- /*_#OBJ_HASH__L4*/
- meltfnum[1] =
+ /*_#OBJ_HASH__L4*/ meltfnum[1] =
(melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));;
{
@@ -3828,31 +3483,24 @@ meltlab_endgetargs:
;
MELT_LOCATION("warmelt-debug.melt:1350:/ clear");
- /*clear*/ /*_.DIS__V10*/
- meltfptr[8] = 0 ;
+ /*clear*/ /*_.DIS__V10*/ meltfptr[8] = 0 ;
/*^clear*/
- /*clear*/ /*_.OUT__V11*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_.OUT__V11*/ meltfptr[4] = 0 ;
/*^clear*/
- /*clear*/ /*_.ONAM__V12*/
- meltfptr[11] = 0 ;
+ /*clear*/ /*_.ONAM__V12*/ meltfptr[11] = 0 ;
/*^clear*/
- /*clear*/ /*_.NAMED_NAME__V13*/
- meltfptr[12] = 0 ;
+ /*clear*/ /*_.NAMED_NAME__V13*/ meltfptr[12] = 0 ;
/*^clear*/
- /*clear*/ /*_#OBJ_HASH__L4*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#OBJ_HASH__L4*/ meltfnum[1] = 0 ;
MELT_CHECK_SIGNAL();
;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1347:/ clear");
- /*clear*/ /*_.IFCPP___V4*/
- meltfptr[3] = 0 ;
+ /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ;
/*^clear*/
- /*clear*/ /*_.IFCPP___V7*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ;
}
;
@@ -3933,8 +3581,7 @@ meltrout_41_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD(meltclosure_ptr_t meltclosp
/* end of frame for routine meltrout_41_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD fromline 1722 */
- /* classy proc frame meltrout_41_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD */
- MeltFrame_meltrout_41_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD
+ /* classy proc frame meltrout_41_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD */ MeltFrame_meltrout_41_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD
meltfram__ /*declfrastruct fromline 1746*/
/*classyprocarg meltrout_41_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD fromline 1751*/
#if ENABLE_CHECKING
@@ -3947,8 +3594,7 @@ meltrout_41_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD(meltclosure_ptr_t meltclosp
#define meltframe meltfram__
melt_trace_start("DBGOUTAGAIN_SYMBOL_METHOD", meltcallcount);
- /*use arguments*/
- (void) meltclosp_;
+ /*use arguments*/ (void) meltclosp_;
(void)meltfirstargp_;
(void)meltxargdescr_;
(void)meltxargtab_;
@@ -3958,22 +3604,19 @@ meltrout_41_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD(meltclosure_ptr_t meltclosp
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1365:/ getarg");
- /*_.SELF__V2*/
- meltfptr[1] = (melt_ptr_t) meltfirstargp_;
+ /*_.SELF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1*/
/*^getarg*/
if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
- /*_.DBGI__V3*/
- meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
+ /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL);
/*getarg#2*/
/*^getarg*/
if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs;
- /*_#DEPTH__L1*/
- meltfnum[0] = meltxargtab_[1].meltbp_long;
+ /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long;
;
goto meltlab_endgetargs;
meltlab_endgetargs:
@@ -3993,12 +3636,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#IS_A__L2*/
- meltfnum[1] =
+ /*_#IS_A__L2*/ meltfnum[1] =
melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));;
MELT_LOCATION("warmelt-debug.melt:1366:/ cond");
- /*cond*/
- if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);;
@@ -4027,31 +3668,25 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1366;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
- /*_.MELT_ASSERT_FAILURE_FUN__V6*/
- meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V5*/
- meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
+ /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1366:/ clear");
- /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ;
}
;
}
;
- /*_.IFCPP___V4*/
- meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];;
+ /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1366:/ clear");
- /*clear*/ /*_#IS_A__L2*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V5*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ;
}
#else /*MELT_HAVE_DEBUG*/
@@ -4069,12 +3704,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#IS_A__L3*/
- meltfnum[1] =
+ /*_#IS_A__L3*/ meltfnum[1] =
melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[2])));;
MELT_LOCATION("warmelt-debug.melt:1367:/ cond");
- /*cond*/
- if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);;
@@ -4103,31 +3736,25 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1367;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1];
- /*_.MELT_ASSERT_FAILURE_FUN__V9*/
- meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V8*/
- meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];;
+ /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1367:/ clear");
- /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/
- meltfptr[8] = 0 ;
+ /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ;
}
;
}
;
- /*_.IFCPP___V7*/
- meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];;
+ /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1367:/ clear");
- /*clear*/ /*_#IS_A__L3*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V8*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ;
}
#else /*MELT_HAVE_DEBUG*/
@@ -4143,8 +3770,7 @@ meltlab_endgetargs:
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/;
melt_object_get_field(slot,obj, 0, "DBGI_OUT");
- /*_.OUT__V10*/
- meltfptr[8] = slot;
+ /*_.OUT__V10*/ meltfptr[8] = slot;
};
;
MELT_LOCATION("warmelt-debug.melt:1369:/ getslot");
@@ -4152,12 +3778,10 @@ meltlab_endgetargs:
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]) /*=obj*/;
melt_object_get_field(slot,obj, 1, "NAMED_NAME");
- /*_.ONAM__V11*/
- meltfptr[4] = slot;
+ /*_.ONAM__V11*/ meltfptr[4] = slot;
};
;
- /*_#SNUM__L4*/
- meltfnum[1] =
+ /*_#SNUM__L4*/ meltfnum[1] =
(melt_get_int((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));;
{
@@ -4177,8 +3801,7 @@ meltlab_endgetargs:
meltgc_add_out((melt_ptr_t)(/*_.OUT__V10*/ meltfptr[8]), ( "/"));
}
;
- /*_#OBJ_HASH__L5*/
- meltfnum[4] =
+ /*_#OBJ_HASH__L5*/ meltfnum[4] =
(melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));;
{
@@ -4190,8 +3813,7 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
MELT_LOCATION("warmelt-debug.melt:1376:/ cond");
- /*cond*/
- if (/*_#SNUM__L4*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#SNUM__L4*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -4220,28 +3842,22 @@ meltlab_endgetargs:
;
MELT_LOCATION("warmelt-debug.melt:1368:/ clear");
- /*clear*/ /*_.OUT__V10*/
- meltfptr[8] = 0 ;
+ /*clear*/ /*_.OUT__V10*/ meltfptr[8] = 0 ;
/*^clear*/
- /*clear*/ /*_.ONAM__V11*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_.ONAM__V11*/ meltfptr[4] = 0 ;
/*^clear*/
- /*clear*/ /*_#SNUM__L4*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#SNUM__L4*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_#OBJ_HASH__L5*/
- meltfnum[4] = 0 ;
+ /*clear*/ /*_#OBJ_HASH__L5*/ meltfnum[4] = 0 ;
MELT_CHECK_SIGNAL();
;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1365:/ clear");
- /*clear*/ /*_.IFCPP___V4*/
- meltfptr[3] = 0 ;
+ /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ;
/*^clear*/
- /*clear*/ /*_.IFCPP___V7*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ;
}
;
@@ -4322,8 +3938,7 @@ meltrout_42_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD(meltclosure_ptr_t meltclosp_, me
/* end of frame for routine meltrout_42_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD fromline 1722 */
- /* classy proc frame meltrout_42_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD */
- MeltFrame_meltrout_42_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD
+ /* classy proc frame meltrout_42_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD */ MeltFrame_meltrout_42_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD
meltfram__ /*declfrastruct fromline 1746*/
/*classyprocarg meltrout_42_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD fromline 1751*/
#if ENABLE_CHECKING
@@ -4336,8 +3951,7 @@ meltrout_42_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD(meltclosure_ptr_t meltclosp_, me
#define meltframe meltfram__
melt_trace_start("DBGOUT_SYMBOL_METHOD", meltcallcount);
- /*use arguments*/
- (void) meltclosp_;
+ /*use arguments*/ (void) meltclosp_;
(void)meltfirstargp_;
(void)meltxargdescr_;
(void)meltxargtab_;
@@ -4347,22 +3961,19 @@ meltrout_42_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD(meltclosure_ptr_t meltclosp_, me
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1383:/ getarg");
- /*_.SELF__V2*/
- meltfptr[1] = (melt_ptr_t) meltfirstargp_;
+ /*_.SELF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1*/
/*^getarg*/
if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
- /*_.DBGI__V3*/
- meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
+ /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL);
/*getarg#2*/
/*^getarg*/
if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs;
- /*_#DEPTH__L1*/
- meltfnum[0] = meltxargtab_[1].meltbp_long;
+ /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long;
;
goto meltlab_endgetargs;
meltlab_endgetargs:
@@ -4382,12 +3993,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#IS_A__L2*/
- meltfnum[1] =
+ /*_#IS_A__L2*/ meltfnum[1] =
melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));;
MELT_LOCATION("warmelt-debug.melt:1384:/ cond");
- /*cond*/
- if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);;
@@ -4416,31 +4025,25 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1384;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
- /*_.MELT_ASSERT_FAILURE_FUN__V6*/
- meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V5*/
- meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
+ /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1384:/ clear");
- /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ;
}
;
}
;
- /*_.IFCPP___V4*/
- meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];;
+ /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1384:/ clear");
- /*clear*/ /*_#IS_A__L2*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V5*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ;
}
#else /*MELT_HAVE_DEBUG*/
@@ -4458,12 +4061,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#IS_A__L3*/
- meltfnum[1] =
+ /*_#IS_A__L3*/ meltfnum[1] =
melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[2])));;
MELT_LOCATION("warmelt-debug.melt:1385:/ cond");
- /*cond*/
- if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);;
@@ -4492,31 +4093,25 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1385;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1];
- /*_.MELT_ASSERT_FAILURE_FUN__V9*/
- meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V8*/
- meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];;
+ /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1385:/ clear");
- /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/
- meltfptr[8] = 0 ;
+ /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ;
}
;
}
;
- /*_.IFCPP___V7*/
- meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];;
+ /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1385:/ clear");
- /*clear*/ /*_#IS_A__L3*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V8*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ;
}
#else /*MELT_HAVE_DEBUG*/
@@ -4528,12 +4123,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
/*^compute*/
- /*_#lteqI__L4*/
- meltfnum[1] =
+ /*_#lteqI__L4*/ meltfnum[1] =
((/*_#DEPTH__L1*/ meltfnum[0]) <= (0));;
MELT_LOCATION("warmelt-debug.melt:1386:/ cond");
- /*cond*/
- if (/*_#lteqI__L4*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#lteqI__L4*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -4552,17 +4145,14 @@ meltlab_endgetargs:
argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
/*^apply.arg*/
argtab[1].meltbp_long = 0;
- /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/
- meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_NAMEDOBJECT_METHOD*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+ /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_NAMEDOBJECT_METHOD*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V10*/
- meltfptr[8] = /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4];;
+ /*_._IFELSE___V10*/ meltfptr[8] = /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1386:/ clear");
- /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4] = 0 ;
}
;
}
@@ -4585,17 +4175,14 @@ meltlab_endgetargs:
argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
/*^apply.arg*/
argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0];
- /*_.DBGOUTAGAIN_SYMBOL_METHOD__V12*/
- meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_SYMBOL_METHOD*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+ /*_.DBGOUTAGAIN_SYMBOL_METHOD__V12*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_SYMBOL_METHOD*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V10*/
- meltfptr[8] = /*_.DBGOUTAGAIN_SYMBOL_METHOD__V12*/ meltfptr[4];;
+ /*_._IFELSE___V10*/ meltfptr[8] = /*_.DBGOUTAGAIN_SYMBOL_METHOD__V12*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1386:/ clear");
- /*clear*/ /*_.DBGOUTAGAIN_SYMBOL_METHOD__V12*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_.DBGOUTAGAIN_SYMBOL_METHOD__V12*/ meltfptr[4] = 0 ;
}
;
}
@@ -4606,8 +4193,7 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1383:/ quasiblock");
- /*_._RETVAL___V1*/
- meltfptr[0] = /*_._IFELSE___V10*/ meltfptr[8];;
+ /*_._RETVAL___V1*/ meltfptr[0] = /*_._IFELSE___V10*/ meltfptr[8];;
{
MELT_LOCATION("warmelt-debug.melt:1383:/ locexp");
@@ -4622,22 +4208,17 @@ meltlab_endgetargs:
;
/*^finalreturn*/
;
- /*finalret*/
- goto meltlabend_rout ;
+ /*finalret*/ goto meltlabend_rout ;
/*epilog*/
/*^clear*/
- /*clear*/ /*_.IFCPP___V4*/
- meltfptr[3] = 0 ;
+ /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ;
/*^clear*/
- /*clear*/ /*_.IFCPP___V7*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ;
/*^clear*/
- /*clear*/ /*_#lteqI__L4*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#lteqI__L4*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V10*/
- meltfptr[8] = 0 ;
+ /*clear*/ /*_._IFELSE___V10*/ meltfptr[8] = 0 ;
}
;
@@ -4718,8 +4299,7 @@ meltrout_43_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD(meltclosure_ptr_t meltclosp_, mel
/* end of frame for routine meltrout_43_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD fromline 1722 */
- /* classy proc frame meltrout_43_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD */
- MeltFrame_meltrout_43_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD
+ /* classy proc frame meltrout_43_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD */ MeltFrame_meltrout_43_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD
meltfram__ /*declfrastruct fromline 1746*/
/*classyprocarg meltrout_43_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD fromline 1751*/
#if ENABLE_CHECKING
@@ -4732,8 +4312,7 @@ meltrout_43_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD(meltclosure_ptr_t meltclosp_, mel
#define meltframe meltfram__
melt_trace_start("DBGOUT_CLASS_METHOD", meltcallcount);
- /*use arguments*/
- (void) meltclosp_;
+ /*use arguments*/ (void) meltclosp_;
(void)meltfirstargp_;
(void)meltxargdescr_;
(void)meltxargtab_;
@@ -4743,22 +4322,19 @@ meltrout_43_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD(meltclosure_ptr_t meltclosp_, mel
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1393:/ getarg");
- /*_.SELF__V2*/
- meltfptr[1] = (melt_ptr_t) meltfirstargp_;
+ /*_.SELF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1*/
/*^getarg*/
if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
- /*_.DBGI__V3*/
- meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
+ /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL);
/*getarg#2*/
/*^getarg*/
if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs;
- /*_#DEPTH__L1*/
- meltfnum[0] = meltxargtab_[1].meltbp_long;
+ /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long;
;
goto meltlab_endgetargs;
meltlab_endgetargs:
@@ -4778,12 +4354,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#IS_A__L2*/
- meltfnum[1] =
+ /*_#IS_A__L2*/ meltfnum[1] =
melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));;
MELT_LOCATION("warmelt-debug.melt:1394:/ cond");
- /*cond*/
- if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);;
@@ -4812,31 +4386,25 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1394;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
- /*_.MELT_ASSERT_FAILURE_FUN__V6*/
- meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V5*/
- meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
+ /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1394:/ clear");
- /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ;
}
;
}
;
- /*_.IFCPP___V4*/
- meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];;
+ /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1394:/ clear");
- /*clear*/ /*_#IS_A__L2*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V5*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ;
}
#else /*MELT_HAVE_DEBUG*/
@@ -4854,12 +4422,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#IS_A__L3*/
- meltfnum[1] =
+ /*_#IS_A__L3*/ meltfnum[1] =
melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[2])));;
MELT_LOCATION("warmelt-debug.melt:1395:/ cond");
- /*cond*/
- if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);;
@@ -4888,31 +4454,25 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1395;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1];
- /*_.MELT_ASSERT_FAILURE_FUN__V9*/
- meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V8*/
- meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];;
+ /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1395:/ clear");
- /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/
- meltfptr[8] = 0 ;
+ /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ;
}
;
}
;
- /*_.IFCPP___V7*/
- meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];;
+ /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1395:/ clear");
- /*clear*/ /*_#IS_A__L3*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V8*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ;
}
#else /*MELT_HAVE_DEBUG*/
@@ -4924,12 +4484,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
/*^compute*/
- /*_#lteqI__L4*/
- meltfnum[1] =
+ /*_#lteqI__L4*/ meltfnum[1] =
((/*_#DEPTH__L1*/ meltfnum[0]) <= (1));;
MELT_LOCATION("warmelt-debug.melt:1396:/ cond");
- /*cond*/
- if (/*_#lteqI__L4*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#lteqI__L4*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -4948,17 +4506,14 @@ meltlab_endgetargs:
argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
/*^apply.arg*/
argtab[1].meltbp_long = 0;
- /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/
- meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_NAMEDOBJECT_METHOD*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+ /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_NAMEDOBJECT_METHOD*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V10*/
- meltfptr[8] = /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4];;
+ /*_._IFELSE___V10*/ meltfptr[8] = /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1396:/ clear");
- /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4] = 0 ;
}
;
}
@@ -4981,17 +4536,14 @@ meltlab_endgetargs:
argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
/*^apply.arg*/
argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0];
- /*_.DBGOUTAGAIN_NAMEDOBJECT_METHOD__V12*/
- meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_NAMEDOBJECT_METHOD*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+ /*_.DBGOUTAGAIN_NAMEDOBJECT_METHOD__V12*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_NAMEDOBJECT_METHOD*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V10*/
- meltfptr[8] = /*_.DBGOUTAGAIN_NAMEDOBJECT_METHOD__V12*/ meltfptr[4];;
+ /*_._IFELSE___V10*/ meltfptr[8] = /*_.DBGOUTAGAIN_NAMEDOBJECT_METHOD__V12*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1396:/ clear");
- /*clear*/ /*_.DBGOUTAGAIN_NAMEDOBJECT_METHOD__V12*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_.DBGOUTAGAIN_NAMEDOBJECT_METHOD__V12*/ meltfptr[4] = 0 ;
}
;
}
@@ -5002,8 +4554,7 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1393:/ quasiblock");
- /*_._RETVAL___V1*/
- meltfptr[0] = /*_._IFELSE___V10*/ meltfptr[8];;
+ /*_._RETVAL___V1*/ meltfptr[0] = /*_._IFELSE___V10*/ meltfptr[8];;
{
MELT_LOCATION("warmelt-debug.melt:1393:/ locexp");
@@ -5018,22 +4569,17 @@ meltlab_endgetargs:
;
/*^finalreturn*/
;
- /*finalret*/
- goto meltlabend_rout ;
+ /*finalret*/ goto meltlabend_rout ;
/*epilog*/
/*^clear*/
- /*clear*/ /*_.IFCPP___V4*/
- meltfptr[3] = 0 ;
+ /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ;
/*^clear*/
- /*clear*/ /*_.IFCPP___V7*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ;
/*^clear*/
- /*clear*/ /*_#lteqI__L4*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#lteqI__L4*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V10*/
- meltfptr[8] = 0 ;
+ /*clear*/ /*_._IFELSE___V10*/ meltfptr[8] = 0 ;
}
;
@@ -5114,8 +4660,7 @@ meltrout_44_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD(meltclosure_ptr_t meltclos
/* end of frame for routine meltrout_44_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD fromline 1722 */
- /* classy proc frame meltrout_44_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD */
- MeltFrame_meltrout_44_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD
+ /* classy proc frame meltrout_44_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD */ MeltFrame_meltrout_44_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD
meltfram__ /*declfrastruct fromline 1746*/
/*classyprocarg meltrout_44_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD fromline 1751*/
#if ENABLE_CHECKING
@@ -5128,8 +4673,7 @@ meltrout_44_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD(meltclosure_ptr_t meltclos
#define meltframe meltfram__
melt_trace_start("DBGOUTAGAIN_KEYWORD_METHOD", meltcallcount);
- /*use arguments*/
- (void) meltclosp_;
+ /*use arguments*/ (void) meltclosp_;
(void)meltfirstargp_;
(void)meltxargdescr_;
(void)meltxargtab_;
@@ -5139,22 +4683,19 @@ meltrout_44_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD(meltclosure_ptr_t meltclos
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1403:/ getarg");
- /*_.SELF__V2*/
- meltfptr[1] = (melt_ptr_t) meltfirstargp_;
+ /*_.SELF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1*/
/*^getarg*/
if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
- /*_.DBGI__V3*/
- meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
+ /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL);
/*getarg#2*/
/*^getarg*/
if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs;
- /*_#DEPTH__L1*/
- meltfnum[0] = meltxargtab_[1].meltbp_long;
+ /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long;
;
goto meltlab_endgetargs;
meltlab_endgetargs:
@@ -5174,12 +4715,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#IS_A__L2*/
- meltfnum[1] =
+ /*_#IS_A__L2*/ meltfnum[1] =
melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));;
MELT_LOCATION("warmelt-debug.melt:1404:/ cond");
- /*cond*/
- if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);;
@@ -5208,31 +4747,25 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1404;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
- /*_.MELT_ASSERT_FAILURE_FUN__V6*/
- meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V5*/
- meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
+ /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1404:/ clear");
- /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ;
}
;
}
;
- /*_.IFCPP___V4*/
- meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];;
+ /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1404:/ clear");
- /*clear*/ /*_#IS_A__L2*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V5*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ;
}
#else /*MELT_HAVE_DEBUG*/
@@ -5250,12 +4783,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#IS_A__L3*/
- meltfnum[1] =
+ /*_#IS_A__L3*/ meltfnum[1] =
melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[2])));;
MELT_LOCATION("warmelt-debug.melt:1405:/ cond");
- /*cond*/
- if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);;
@@ -5284,31 +4815,25 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1405;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1];
- /*_.MELT_ASSERT_FAILURE_FUN__V9*/
- meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V8*/
- meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];;
+ /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1405:/ clear");
- /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/
- meltfptr[8] = 0 ;
+ /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ;
}
;
}
;
- /*_.IFCPP___V7*/
- meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];;
+ /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1405:/ clear");
- /*clear*/ /*_#IS_A__L3*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V8*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ;
}
#else /*MELT_HAVE_DEBUG*/
@@ -5324,8 +4849,7 @@ meltlab_endgetargs:
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/;
melt_object_get_field(slot,obj, 0, "DBGI_OUT");
- /*_.OUT__V10*/
- meltfptr[8] = slot;
+ /*_.OUT__V10*/ meltfptr[8] = slot;
};
;
MELT_LOCATION("warmelt-debug.melt:1407:/ getslot");
@@ -5333,8 +4857,7 @@ meltlab_endgetargs:
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]) /*=obj*/;
melt_object_get_field(slot,obj, 1, "NAMED_NAME");
- /*_.ONAM__V11*/
- meltfptr[4] = slot;
+ /*_.ONAM__V11*/ meltfptr[4] = slot;
};
;
@@ -5355,8 +4878,7 @@ meltlab_endgetargs:
meltgc_add_out((melt_ptr_t)(/*_.OUT__V10*/ meltfptr[8]), ( "/"));
}
;
- /*_#OBJ_HASH__L4*/
- meltfnum[1] =
+ /*_#OBJ_HASH__L4*/ meltfnum[1] =
(melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));;
{
@@ -5366,25 +4888,20 @@ meltlab_endgetargs:
;
MELT_LOCATION("warmelt-debug.melt:1406:/ clear");
- /*clear*/ /*_.OUT__V10*/
- meltfptr[8] = 0 ;
+ /*clear*/ /*_.OUT__V10*/ meltfptr[8] = 0 ;
/*^clear*/
- /*clear*/ /*_.ONAM__V11*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_.ONAM__V11*/ meltfptr[4] = 0 ;
/*^clear*/
- /*clear*/ /*_#OBJ_HASH__L4*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#OBJ_HASH__L4*/ meltfnum[1] = 0 ;
MELT_CHECK_SIGNAL();
;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1403:/ clear");
- /*clear*/ /*_.IFCPP___V4*/
- meltfptr[3] = 0 ;
+ /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ;
/*^clear*/
- /*clear*/ /*_.IFCPP___V7*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ;
}
;
@@ -5465,8 +4982,7 @@ meltrout_45_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD(meltclosure_ptr_t meltclosp_, m
/* end of frame for routine meltrout_45_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD fromline 1722 */
- /* classy proc frame meltrout_45_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD */
- MeltFrame_meltrout_45_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD
+ /* classy proc frame meltrout_45_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD */ MeltFrame_meltrout_45_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD
meltfram__ /*declfrastruct fromline 1746*/
/*classyprocarg meltrout_45_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD fromline 1751*/
#if ENABLE_CHECKING
@@ -5479,8 +4995,7 @@ meltrout_45_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD(meltclosure_ptr_t meltclosp_, m
#define meltframe meltfram__
melt_trace_start("DBGOUT_KEYWORD_METHOD", meltcallcount);
- /*use arguments*/
- (void) meltclosp_;
+ /*use arguments*/ (void) meltclosp_;
(void)meltfirstargp_;
(void)meltxargdescr_;
(void)meltxargtab_;
@@ -5490,22 +5005,19 @@ meltrout_45_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD(meltclosure_ptr_t meltclosp_, m
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1416:/ getarg");
- /*_.SELF__V2*/
- meltfptr[1] = (melt_ptr_t) meltfirstargp_;
+ /*_.SELF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1*/
/*^getarg*/
if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
- /*_.DBGI__V3*/
- meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
+ /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL);
/*getarg#2*/
/*^getarg*/
if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs;
- /*_#DEPTH__L1*/
- meltfnum[0] = meltxargtab_[1].meltbp_long;
+ /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long;
;
goto meltlab_endgetargs;
meltlab_endgetargs:
@@ -5525,12 +5037,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#IS_A__L2*/
- meltfnum[1] =
+ /*_#IS_A__L2*/ meltfnum[1] =
melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));;
MELT_LOCATION("warmelt-debug.melt:1417:/ cond");
- /*cond*/
- if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);;
@@ -5559,31 +5069,25 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1417;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
- /*_.MELT_ASSERT_FAILURE_FUN__V6*/
- meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V5*/
- meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
+ /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1417:/ clear");
- /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ;
}
;
}
;
- /*_.IFCPP___V4*/
- meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];;
+ /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1417:/ clear");
- /*clear*/ /*_#IS_A__L2*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V5*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ;
}
#else /*MELT_HAVE_DEBUG*/
@@ -5601,12 +5105,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#IS_A__L3*/
- meltfnum[1] =
+ /*_#IS_A__L3*/ meltfnum[1] =
melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_KEYWORD*/ meltfrout->tabval[2])));;
MELT_LOCATION("warmelt-debug.melt:1418:/ cond");
- /*cond*/
- if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);;
@@ -5635,31 +5137,25 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1418;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1];
- /*_.MELT_ASSERT_FAILURE_FUN__V9*/
- meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V8*/
- meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];;
+ /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1418:/ clear");
- /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/
- meltfptr[8] = 0 ;
+ /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ;
}
;
}
;
- /*_.IFCPP___V7*/
- meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];;
+ /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1418:/ clear");
- /*clear*/ /*_#IS_A__L3*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V8*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ;
}
#else /*MELT_HAVE_DEBUG*/
@@ -5671,12 +5167,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
/*^compute*/
- /*_#lteqI__L4*/
- meltfnum[1] =
+ /*_#lteqI__L4*/ meltfnum[1] =
((/*_#DEPTH__L1*/ meltfnum[0]) <= (0));;
MELT_LOCATION("warmelt-debug.melt:1419:/ cond");
- /*cond*/
- if (/*_#lteqI__L4*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#lteqI__L4*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -5695,17 +5189,14 @@ meltlab_endgetargs:
argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
/*^apply.arg*/
argtab[1].meltbp_long = 0;
- /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/
- meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_NAMEDOBJECT_METHOD*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+ /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_NAMEDOBJECT_METHOD*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V10*/
- meltfptr[8] = /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4];;
+ /*_._IFELSE___V10*/ meltfptr[8] = /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1419:/ clear");
- /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4] = 0 ;
}
;
}
@@ -5728,17 +5219,14 @@ meltlab_endgetargs:
argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
/*^apply.arg*/
argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0];
- /*_.DBGOUTAGAIN_KEYWORD_METHOD__V12*/
- meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_KEYWORD_METHOD*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+ /*_.DBGOUTAGAIN_KEYWORD_METHOD__V12*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_KEYWORD_METHOD*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V10*/
- meltfptr[8] = /*_.DBGOUTAGAIN_KEYWORD_METHOD__V12*/ meltfptr[4];;
+ /*_._IFELSE___V10*/ meltfptr[8] = /*_.DBGOUTAGAIN_KEYWORD_METHOD__V12*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1419:/ clear");
- /*clear*/ /*_.DBGOUTAGAIN_KEYWORD_METHOD__V12*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_.DBGOUTAGAIN_KEYWORD_METHOD__V12*/ meltfptr[4] = 0 ;
}
;
}
@@ -5749,8 +5237,7 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1416:/ quasiblock");
- /*_._RETVAL___V1*/
- meltfptr[0] = /*_._IFELSE___V10*/ meltfptr[8];;
+ /*_._RETVAL___V1*/ meltfptr[0] = /*_._IFELSE___V10*/ meltfptr[8];;
{
MELT_LOCATION("warmelt-debug.melt:1416:/ locexp");
@@ -5765,22 +5252,17 @@ meltlab_endgetargs:
;
/*^finalreturn*/
;
- /*finalret*/
- goto meltlabend_rout ;
+ /*finalret*/ goto meltlabend_rout ;
/*epilog*/
/*^clear*/
- /*clear*/ /*_.IFCPP___V4*/
- meltfptr[3] = 0 ;
+ /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ;
/*^clear*/
- /*clear*/ /*_.IFCPP___V7*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ;
/*^clear*/
- /*clear*/ /*_#lteqI__L4*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#lteqI__L4*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V10*/
- meltfptr[8] = 0 ;
+ /*clear*/ /*_._IFELSE___V10*/ meltfptr[8] = 0 ;
}
;
@@ -5861,8 +5343,7 @@ meltrout_46_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD(meltclosure_ptr_t me
/* end of frame for routine meltrout_46_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD fromline 1722 */
- /* classy proc frame meltrout_46_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD */
- MeltFrame_meltrout_46_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD
+ /* classy proc frame meltrout_46_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD */ MeltFrame_meltrout_46_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD
meltfram__ /*declfrastruct fromline 1746*/
/*classyprocarg meltrout_46_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD fromline 1751*/
#if ENABLE_CHECKING
@@ -5875,8 +5356,7 @@ meltrout_46_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD(meltclosure_ptr_t me
#define meltframe meltfram__
melt_trace_start("DBGOUTAGAIN_CLONED_SYMBOL_METHOD", meltcallcount);
- /*use arguments*/
- (void) meltclosp_;
+ /*use arguments*/ (void) meltclosp_;
(void)meltfirstargp_;
(void)meltxargdescr_;
(void)meltxargtab_;
@@ -5886,22 +5366,19 @@ meltrout_46_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD(meltclosure_ptr_t me
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1426:/ getarg");
- /*_.SELF__V2*/
- meltfptr[1] = (melt_ptr_t) meltfirstargp_;
+ /*_.SELF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1*/
/*^getarg*/
if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
- /*_.DBGI__V3*/
- meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
+ /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL);
/*getarg#2*/
/*^getarg*/
if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs;
- /*_#DEPTH__L1*/
- meltfnum[0] = meltxargtab_[1].meltbp_long;
+ /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long;
;
goto meltlab_endgetargs;
meltlab_endgetargs:
@@ -5914,16 +5391,14 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1427:/ quasiblock");
- /*_.DIS__V4*/
- meltfptr[3] =
+ /*_.DIS__V4*/ meltfptr[3] =
((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));;
MELT_LOCATION("warmelt-debug.melt:1428:/ getslot");
{
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/;
melt_object_get_field(slot,obj, 0, "DBGI_OUT");
- /*_.OUT__V5*/
- meltfptr[4] = slot;
+ /*_.OUT__V5*/ meltfptr[4] = slot;
};
;
MELT_LOCATION("warmelt-debug.melt:1429:/ getslot");
@@ -5931,20 +5406,17 @@ meltlab_endgetargs:
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]) /*=obj*/;
melt_object_get_field(slot,obj, 3, "CSYM_URANK");
- /*_.OURANK__V6*/
- meltfptr[5] = slot;
+ /*_.OURANK__V6*/ meltfptr[5] = slot;
};
;
- /*_#LRK__L2*/
- meltfnum[1] =
+ /*_#LRK__L2*/ meltfnum[1] =
(melt_get_int((melt_ptr_t)(/*_.OURANK__V6*/ meltfptr[5])));;
MELT_LOCATION("warmelt-debug.melt:1431:/ getslot");
{
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]) /*=obj*/;
melt_object_get_field(slot,obj, 1, "NAMED_NAME");
- /*_.ONAM__V7*/
- meltfptr[6] = slot;
+ /*_.ONAM__V7*/ meltfptr[6] = slot;
};
;
@@ -5977,8 +5449,7 @@ meltlab_endgetargs:
meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), ( "/"));
}
;
- /*_#OBJ_HASH__L3*/
- meltfnum[2] =
+ /*_#OBJ_HASH__L3*/ meltfnum[2] =
(melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));;
{
@@ -5988,23 +5459,17 @@ meltlab_endgetargs:
;
MELT_LOCATION("warmelt-debug.melt:1427:/ clear");
- /*clear*/ /*_.DIS__V4*/
- meltfptr[3] = 0 ;
+ /*clear*/ /*_.DIS__V4*/ meltfptr[3] = 0 ;
/*^clear*/
- /*clear*/ /*_.OUT__V5*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_.OUT__V5*/ meltfptr[4] = 0 ;
/*^clear*/
- /*clear*/ /*_.OURANK__V6*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.OURANK__V6*/ meltfptr[5] = 0 ;
/*^clear*/
- /*clear*/ /*_#LRK__L2*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#LRK__L2*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_.ONAM__V7*/
- meltfptr[6] = 0 ;
+ /*clear*/ /*_.ONAM__V7*/ meltfptr[6] = 0 ;
/*^clear*/
- /*clear*/ /*_#OBJ_HASH__L3*/
- meltfnum[2] = 0 ;
+ /*clear*/ /*_#OBJ_HASH__L3*/ meltfnum[2] = 0 ;
/*epilog*/
}
@@ -6086,8 +5551,7 @@ meltrout_47_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD(meltclosure_ptr_t meltclo
/* end of frame for routine meltrout_47_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD fromline 1722 */
- /* classy proc frame meltrout_47_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD */
- MeltFrame_meltrout_47_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD
+ /* classy proc frame meltrout_47_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD */ MeltFrame_meltrout_47_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD
meltfram__ /*declfrastruct fromline 1746*/
/*classyprocarg meltrout_47_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD fromline 1751*/
#if ENABLE_CHECKING
@@ -6100,8 +5564,7 @@ meltrout_47_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD(meltclosure_ptr_t meltclo
#define meltframe meltfram__
melt_trace_start("DBGOUT_CLONED_SYMBOL_METHOD", meltcallcount);
- /*use arguments*/
- (void) meltclosp_;
+ /*use arguments*/ (void) meltclosp_;
(void)meltfirstargp_;
(void)meltxargdescr_;
(void)meltxargtab_;
@@ -6111,22 +5574,19 @@ meltrout_47_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD(meltclosure_ptr_t meltclo
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1441:/ getarg");
- /*_.SELF__V2*/
- meltfptr[1] = (melt_ptr_t) meltfirstargp_;
+ /*_.SELF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1*/
/*^getarg*/
if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
- /*_.DBGI__V3*/
- meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
+ /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL);
/*getarg#2*/
/*^getarg*/
if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs;
- /*_#DEPTH__L1*/
- meltfnum[0] = meltxargtab_[1].meltbp_long;
+ /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long;
;
goto meltlab_endgetargs;
meltlab_endgetargs:
@@ -6146,12 +5606,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#IS_A__L2*/
- meltfnum[1] =
+ /*_#IS_A__L2*/ meltfnum[1] =
melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));;
MELT_LOCATION("warmelt-debug.melt:1442:/ cond");
- /*cond*/
- if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);;
@@ -6180,31 +5638,25 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1442;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
- /*_.MELT_ASSERT_FAILURE_FUN__V6*/
- meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V5*/
- meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
+ /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1442:/ clear");
- /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ;
}
;
}
;
- /*_.IFCPP___V4*/
- meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];;
+ /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1442:/ clear");
- /*clear*/ /*_#IS_A__L2*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V5*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ;
}
#else /*MELT_HAVE_DEBUG*/
@@ -6222,12 +5674,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#IS_A__L3*/
- meltfnum[1] =
+ /*_#IS_A__L3*/ meltfnum[1] =
melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ meltfrout->tabval[2])));;
MELT_LOCATION("warmelt-debug.melt:1443:/ cond");
- /*cond*/
- if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);;
@@ -6256,31 +5706,25 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1443;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1];
- /*_.MELT_ASSERT_FAILURE_FUN__V9*/
- meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V8*/
- meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];;
+ /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1443:/ clear");
- /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/
- meltfptr[8] = 0 ;
+ /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ;
}
;
}
;
- /*_.IFCPP___V7*/
- meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];;
+ /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1443:/ clear");
- /*clear*/ /*_#IS_A__L3*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V8*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ;
}
#else /*MELT_HAVE_DEBUG*/
@@ -6292,12 +5736,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
/*^compute*/
- /*_#lteqI__L4*/
- meltfnum[1] =
+ /*_#lteqI__L4*/ meltfnum[1] =
((/*_#DEPTH__L1*/ meltfnum[0]) <= (0));;
MELT_LOCATION("warmelt-debug.melt:1444:/ cond");
- /*cond*/
- if (/*_#lteqI__L4*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#lteqI__L4*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -6316,17 +5758,14 @@ meltlab_endgetargs:
argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
/*^apply.arg*/
argtab[1].meltbp_long = 0;
- /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/
- meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_NAMEDOBJECT_METHOD*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+ /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_NAMEDOBJECT_METHOD*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V10*/
- meltfptr[8] = /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4];;
+ /*_._IFELSE___V10*/ meltfptr[8] = /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1444:/ clear");
- /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4] = 0 ;
}
;
}
@@ -6349,17 +5788,14 @@ meltlab_endgetargs:
argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
/*^apply.arg*/
argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0];
- /*_.DBGOUTAGAIN_CLONED_SYMBOL_METHOD__V12*/
- meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_CLONED_SYMBOL_METHOD*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+ /*_.DBGOUTAGAIN_CLONED_SYMBOL_METHOD__V12*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_CLONED_SYMBOL_METHOD*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V10*/
- meltfptr[8] = /*_.DBGOUTAGAIN_CLONED_SYMBOL_METHOD__V12*/ meltfptr[4];;
+ /*_._IFELSE___V10*/ meltfptr[8] = /*_.DBGOUTAGAIN_CLONED_SYMBOL_METHOD__V12*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1444:/ clear");
- /*clear*/ /*_.DBGOUTAGAIN_CLONED_SYMBOL_METHOD__V12*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_.DBGOUTAGAIN_CLONED_SYMBOL_METHOD__V12*/ meltfptr[4] = 0 ;
}
;
}
@@ -6370,8 +5806,7 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1441:/ quasiblock");
- /*_._RETVAL___V1*/
- meltfptr[0] = /*_._IFELSE___V10*/ meltfptr[8];;
+ /*_._RETVAL___V1*/ meltfptr[0] = /*_._IFELSE___V10*/ meltfptr[8];;
{
MELT_LOCATION("warmelt-debug.melt:1441:/ locexp");
@@ -6386,22 +5821,17 @@ meltlab_endgetargs:
;
/*^finalreturn*/
;
- /*finalret*/
- goto meltlabend_rout ;
+ /*finalret*/ goto meltlabend_rout ;
/*epilog*/
/*^clear*/
- /*clear*/ /*_.IFCPP___V4*/
- meltfptr[3] = 0 ;
+ /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ;
/*^clear*/
- /*clear*/ /*_.IFCPP___V7*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ;
/*^clear*/
- /*clear*/ /*_#lteqI__L4*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#lteqI__L4*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V10*/
- meltfptr[8] = 0 ;
+ /*clear*/ /*_._IFELSE___V10*/ meltfptr[8] = 0 ;
}
;
@@ -6482,8 +5912,7 @@ meltrout_48_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD(meltclosure_ptr_t meltclosp
/* end of frame for routine meltrout_48_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD fromline 1722 */
- /* classy proc frame meltrout_48_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD */
- MeltFrame_meltrout_48_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD
+ /* classy proc frame meltrout_48_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD */ MeltFrame_meltrout_48_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD
meltfram__ /*declfrastruct fromline 1746*/
/*classyprocarg meltrout_48_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD fromline 1751*/
#if ENABLE_CHECKING
@@ -6496,8 +5925,7 @@ meltrout_48_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD(meltclosure_ptr_t meltclosp
#define meltframe meltfram__
melt_trace_start("DBGOUT_ENVIRONMENT_METHOD", meltcallcount);
- /*use arguments*/
- (void) meltclosp_;
+ /*use arguments*/ (void) meltclosp_;
(void)meltfirstargp_;
(void)meltxargdescr_;
(void)meltxargtab_;
@@ -6507,22 +5935,19 @@ meltrout_48_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD(meltclosure_ptr_t meltclosp
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1452:/ getarg");
- /*_.SELF__V2*/
- meltfptr[1] = (melt_ptr_t) meltfirstargp_;
+ /*_.SELF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1*/
/*^getarg*/
if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
- /*_.DBGI__V3*/
- meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
+ /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL);
/*getarg#2*/
/*^getarg*/
if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs;
- /*_#DEPTH__L1*/
- meltfnum[0] = meltxargtab_[1].meltbp_long;
+ /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long;
;
goto meltlab_endgetargs;
meltlab_endgetargs:
@@ -6542,12 +5967,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#IS_A__L2*/
- meltfnum[1] =
+ /*_#IS_A__L2*/ meltfnum[1] =
melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));;
MELT_LOCATION("warmelt-debug.melt:1453:/ cond");
- /*cond*/
- if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);;
@@ -6576,31 +5999,25 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1453;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
- /*_.MELT_ASSERT_FAILURE_FUN__V6*/
- meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V5*/
- meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
+ /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1453:/ clear");
- /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ;
}
;
}
;
- /*_.IFCPP___V4*/
- meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];;
+ /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1453:/ clear");
- /*clear*/ /*_#IS_A__L2*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V5*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ;
}
#else /*MELT_HAVE_DEBUG*/
@@ -6618,12 +6035,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#IS_A__L3*/
- meltfnum[1] =
+ /*_#IS_A__L3*/ meltfnum[1] =
melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[2])));;
MELT_LOCATION("warmelt-debug.melt:1454:/ cond");
- /*cond*/
- if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);;
@@ -6652,31 +6067,25 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1454;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1];
- /*_.MELT_ASSERT_FAILURE_FUN__V9*/
- meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V8*/
- meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];;
+ /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1454:/ clear");
- /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/
- meltfptr[8] = 0 ;
+ /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ;
}
;
}
;
- /*_.IFCPP___V7*/
- meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];;
+ /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1454:/ clear");
- /*clear*/ /*_#IS_A__L3*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V8*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ;
}
#else /*MELT_HAVE_DEBUG*/
@@ -6687,31 +6096,26 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1455:/ quasiblock");
- /*_.DIS__V10*/
- meltfptr[8] =
+ /*_.DIS__V10*/ meltfptr[8] =
((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));;
MELT_LOCATION("warmelt-debug.melt:1456:/ getslot");
{
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/;
melt_object_get_field(slot,obj, 0, "DBGI_OUT");
- /*_.OUT__V11*/
- meltfptr[4] = slot;
+ /*_.OUT__V11*/ meltfptr[4] = slot;
};
;
- /*_#ONUM__L4*/
- meltfnum[1] =
+ /*_#ONUM__L4*/ meltfnum[1] =
(melt_obj_num((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));;
MELT_CHECK_SIGNAL();
;
/*^compute*/
- /*_#eqeq__L5*/
- meltfnum[4] =
+ /*_#eqeq__L5*/ meltfnum[4] =
((/*_.DIS__V10*/ meltfptr[8]) == ((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[2])));;
MELT_LOCATION("warmelt-debug.melt:1459:/ cond");
- /*cond*/
- if (/*_#eqeq__L5*/ meltfnum[4]) /*then*/
+ /*cond*/ if (/*_#eqeq__L5*/ meltfnum[4]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -6747,8 +6151,7 @@ meltlab_endgetargs:
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DIS__V10*/ meltfptr[8]) /*=obj*/;
melt_object_get_field(slot,obj, 1, "NAMED_NAME");
- /*_.NAMED_NAME__V12*/
- meltfptr[11] = slot;
+ /*_.NAMED_NAME__V12*/ meltfptr[11] = slot;
};
;
@@ -6763,8 +6166,7 @@ meltlab_endgetargs:
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1459:/ clear");
- /*clear*/ /*_.NAMED_NAME__V12*/
- meltfptr[11] = 0 ;
+ /*clear*/ /*_.NAMED_NAME__V12*/ meltfptr[11] = 0 ;
}
;
}
@@ -6775,8 +6177,7 @@ meltlab_endgetargs:
meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( "/"));
}
;
- /*_#OBJ_HASH__L6*/
- meltfnum[5] =
+ /*_#OBJ_HASH__L6*/ meltfnum[5] =
(melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));;
{
@@ -6788,8 +6189,7 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
MELT_LOCATION("warmelt-debug.melt:1467:/ cond");
- /*cond*/
- if (/*_#ONUM__L4*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#ONUM__L4*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -6819,14 +6219,11 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1470:/ quasiblock");
- /*_#DEPTH__L7*/
- meltfnum[6] = 0;;
+ /*_#DEPTH__L7*/ meltfnum[6] = 0;;
/*^compute*/
- /*_#TOODEEP__L8*/
- meltfnum[7] = 0;;
+ /*_#TOODEEP__L8*/ meltfnum[7] = 0;;
MELT_LOCATION("warmelt-debug.melt:1472:/ cond");
- /*cond*/
- if (
+ /*cond*/ if (
/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]),
(melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[2])))
) /*then*/
@@ -6837,8 +6234,7 @@ meltlab_endgetargs:
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]) /*=obj*/;
melt_object_get_field(slot,obj, 0, "ENV_BIND");
- /*_.ENV_BIND__V14*/
- meltfptr[13] = slot;
+ /*_.ENV_BIND__V14*/ meltfptr[13] = slot;
};
;
}
@@ -6849,12 +6245,10 @@ meltlab_endgetargs:
}
;
/*^compute*/
- /*_#NBBIND__L9*/
- meltfnum[8] =
+ /*_#NBBIND__L9*/ meltfnum[8] =
(melt_count_mapobjects((meltmapobjects_ptr_t)(/*_.ENV_BIND__V14*/ meltfptr[13])));;
/*^compute*/
- /*_.CURENV__V15*/
- meltfptr[14] = /*_.SELF__V2*/ meltfptr[1];;
+ /*_.CURENV__V15*/ meltfptr[14] = /*_.SELF__V2*/ meltfptr[1];;
MELT_LOCATION("warmelt-debug.melt:1475:/ loop");
/*loop*/
{
@@ -6870,12 +6264,10 @@ meltlabloop_DEPTHLOOP_1:;/*^loopbody*/
MELT_CHECK_SIGNAL();
;
- /*_#gtI__L10*/
- meltfnum[9] =
+ /*_#gtI__L10*/ meltfnum[9] =
((/*_#DEPTH__L7*/ meltfnum[6]) > (100));;
MELT_LOCATION("warmelt-debug.melt:1477:/ cond");
- /*cond*/
- if (/*_#gtI__L10*/ meltfnum[9]) /*then*/
+ /*cond*/ if (/*_#gtI__L10*/ meltfnum[9]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -6883,14 +6275,12 @@ meltlabloop_DEPTHLOOP_1:;/*^loopbody*/
{
MELT_LOCATION("warmelt-debug.melt:1478:/ compute");
- /*_#TOODEEP__L8*/
- meltfnum[7] = /*_#SETQ___L11*/ meltfnum[10] = 1;;
+ /*_#TOODEEP__L8*/ meltfnum[7] = /*_#SETQ___L11*/ meltfnum[10] = 1;;
MELT_LOCATION("warmelt-debug.melt:1479:/ quasiblock");
/*^compute*/
- /*_.DEPTHLOOP__V17*/
- meltfptr[16] = /*reallynil*/ NULL ;;
+ /*_.DEPTHLOOP__V17*/ meltfptr[16] = /*reallynil*/ NULL ;;
/*^exit*/
/*exit*/
@@ -6904,8 +6294,7 @@ meltlabloop_DEPTHLOOP_1:;/*^loopbody*/
/*epilog*/
/*^clear*/
- /*clear*/ /*_#SETQ___L11*/
- meltfnum[10] = 0 ;
+ /*clear*/ /*_#SETQ___L11*/ meltfnum[10] = 0 ;
}
;
} /*noelse*/
@@ -6913,12 +6302,10 @@ meltlabloop_DEPTHLOOP_1:;/*^loopbody*/
MELT_CHECK_SIGNAL();
;
- /*_#IS_NOT_A__L12*/
- meltfnum[10] =
+ /*_#IS_NOT_A__L12*/ meltfnum[10] =
!melt_is_instance_of((melt_ptr_t)(/*_.CURENV__V15*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[2])));;
MELT_LOCATION("warmelt-debug.melt:1480:/ cond");
- /*cond*/
- if (/*_#IS_NOT_A__L12*/ meltfnum[10]) /*then*/
+ /*cond*/ if (/*_#IS_NOT_A__L12*/ meltfnum[10]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -6929,8 +6316,7 @@ meltlabloop_DEPTHLOOP_1:;/*^loopbody*/
/*^compute*/
- /*_.DEPTHLOOP__V17*/
- meltfptr[16] = /*reallynil*/ NULL ;;
+ /*_.DEPTHLOOP__V17*/ meltfptr[16] = /*reallynil*/ NULL ;;
/*^exit*/
/*exit*/
@@ -6943,15 +6329,12 @@ meltlabloop_DEPTHLOOP_1:;/*^loopbody*/
;
} /*noelse*/
;
- /*_#plI__L13*/
- meltfnum[12] =
+ /*_#plI__L13*/ meltfnum[12] =
((/*_#DEPTH__L7*/ meltfnum[6]) + (1));;
MELT_LOCATION("warmelt-debug.melt:1482:/ compute");
- /*_#DEPTH__L7*/
- meltfnum[6] = /*_#SETQ___L14*/ meltfnum[13] = /*_#plI__L13*/ meltfnum[12];;
+ /*_#DEPTH__L7*/ meltfnum[6] = /*_#SETQ___L14*/ meltfnum[13] = /*_#plI__L13*/ meltfnum[12];;
MELT_LOCATION("warmelt-debug.melt:1483:/ cond");
- /*cond*/
- if (
+ /*cond*/ if (
/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.CURENV__V15*/ meltfptr[14]),
(melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[2])))
) /*then*/
@@ -6962,8 +6345,7 @@ meltlabloop_DEPTHLOOP_1:;/*^loopbody*/
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.CURENV__V15*/ meltfptr[14]) /*=obj*/;
melt_object_get_field(slot,obj, 1, "ENV_PREV");
- /*_.ENV_PREV__V18*/
- meltfptr[17] = slot;
+ /*_.ENV_PREV__V18*/ meltfptr[17] = slot;
};
;
}
@@ -6974,47 +6356,38 @@ meltlabloop_DEPTHLOOP_1:;/*^loopbody*/
}
;
MELT_LOCATION("warmelt-debug.melt:1483:/ compute");
- /*_.CURENV__V15*/
- meltfptr[14] = /*_.SETQ___V19*/ meltfptr[18] = /*_.ENV_PREV__V18*/ meltfptr[17];;
+ /*_.CURENV__V15*/ meltfptr[14] = /*_.SETQ___V19*/ meltfptr[18] = /*_.ENV_PREV__V18*/ meltfptr[17];;
MELT_CHECK_SIGNAL();
;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1475:/ clear");
- /*clear*/ /*_#gtI__L10*/
- meltfnum[9] = 0 ;
+ /*clear*/ /*_#gtI__L10*/ meltfnum[9] = 0 ;
/*^clear*/
- /*clear*/ /*_#IS_NOT_A__L12*/
- meltfnum[10] = 0 ;
+ /*clear*/ /*_#IS_NOT_A__L12*/ meltfnum[10] = 0 ;
/*^clear*/
- /*clear*/ /*_#plI__L13*/
- meltfnum[12] = 0 ;
+ /*clear*/ /*_#plI__L13*/ meltfnum[12] = 0 ;
/*^clear*/
- /*clear*/ /*_#SETQ___L14*/
- meltfnum[13] = 0 ;
+ /*clear*/ /*_#SETQ___L14*/ meltfnum[13] = 0 ;
/*^clear*/
- /*clear*/ /*_.ENV_PREV__V18*/
- meltfptr[17] = 0 ;
+ /*clear*/ /*_.ENV_PREV__V18*/ meltfptr[17] = 0 ;
/*^clear*/
- /*clear*/ /*_.SETQ___V19*/
- meltfptr[18] = 0 ;
+ /*clear*/ /*_.SETQ___V19*/ meltfptr[18] = 0 ;
}
;
;
goto meltlabloop_DEPTHLOOP_1;
meltlabexit_DEPTHLOOP_1:;/*^loopepilog*/
/*loopepilog*/
- /*_.FOREVER___V16*/
- meltfptr[15] = /*_.DEPTHLOOP__V17*/ meltfptr[16];;
+ /*_.FOREVER___V16*/ meltfptr[15] = /*_.DEPTHLOOP__V17*/ meltfptr[16];;
}
;
MELT_CHECK_SIGNAL();
;
MELT_LOCATION("warmelt-debug.melt:1485:/ cond");
- /*cond*/
- if (/*_#TOODEEP__L8*/ meltfnum[7]) /*then*/
+ /*cond*/ if (/*_#TOODEEP__L8*/ meltfnum[7]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -7031,17 +6404,14 @@ meltlabexit_DEPTHLOOP_1:;/*^loopepilog*/
memset(&argtab, 0, sizeof(argtab));
/*^apply.arg*/
argtab[0].meltbp_cstring = "~~";
- /*_.ADD2OUT__V21*/
- meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+ /*_.ADD2OUT__V21*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V20*/
- meltfptr[17] = /*_.ADD2OUT__V21*/ meltfptr[18];;
+ /*_._IFELSE___V20*/ meltfptr[17] = /*_.ADD2OUT__V21*/ meltfptr[18];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1485:/ clear");
- /*clear*/ /*_.ADD2OUT__V21*/
- meltfptr[18] = 0 ;
+ /*clear*/ /*_.ADD2OUT__V21*/ meltfptr[18] = 0 ;
}
;
}
@@ -7064,17 +6434,14 @@ meltlabexit_DEPTHLOOP_1:;/*^loopepilog*/
argtab[0].meltbp_cstring = "~";
/*^apply.arg*/
argtab[1].meltbp_long = /*_#DEPTH__L7*/ meltfnum[6];
- /*_.ADD2OUT__V22*/
- meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+ /*_.ADD2OUT__V22*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V20*/
- meltfptr[17] = /*_.ADD2OUT__V22*/ meltfptr[18];;
+ /*_._IFELSE___V20*/ meltfptr[17] = /*_.ADD2OUT__V22*/ meltfptr[18];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1485:/ clear");
- /*clear*/ /*_.ADD2OUT__V22*/
- meltfptr[18] = 0 ;
+ /*clear*/ /*_.ADD2OUT__V22*/ meltfptr[18] = 0 ;
}
;
}
@@ -7091,37 +6458,27 @@ meltlabexit_DEPTHLOOP_1:;/*^loopepilog*/
argtab[0].meltbp_cstring = "_";
/*^apply.arg*/
argtab[1].meltbp_long = /*_#NBBIND__L9*/ meltfnum[8];
- /*_.ADD2OUT__V23*/
- meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+ /*_.ADD2OUT__V23*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_.LET___V13*/
- meltfptr[11] = /*_.ADD2OUT__V23*/ meltfptr[18];;
+ /*_.LET___V13*/ meltfptr[11] = /*_.ADD2OUT__V23*/ meltfptr[18];;
MELT_LOCATION("warmelt-debug.melt:1470:/ clear");
- /*clear*/ /*_#DEPTH__L7*/
- meltfnum[6] = 0 ;
+ /*clear*/ /*_#DEPTH__L7*/ meltfnum[6] = 0 ;
/*^clear*/
- /*clear*/ /*_#TOODEEP__L8*/
- meltfnum[7] = 0 ;
+ /*clear*/ /*_#TOODEEP__L8*/ meltfnum[7] = 0 ;
/*^clear*/
- /*clear*/ /*_.ENV_BIND__V14*/
- meltfptr[13] = 0 ;
+ /*clear*/ /*_.ENV_BIND__V14*/ meltfptr[13] = 0 ;
/*^clear*/
- /*clear*/ /*_#NBBIND__L9*/
- meltfnum[8] = 0 ;
+ /*clear*/ /*_#NBBIND__L9*/ meltfnum[8] = 0 ;
/*^clear*/
- /*clear*/ /*_.CURENV__V15*/
- meltfptr[14] = 0 ;
+ /*clear*/ /*_.CURENV__V15*/ meltfptr[14] = 0 ;
/*^clear*/
- /*clear*/ /*_.FOREVER___V16*/
- meltfptr[15] = 0 ;
+ /*clear*/ /*_.FOREVER___V16*/ meltfptr[15] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V20*/
- meltfptr[17] = 0 ;
+ /*clear*/ /*_._IFELSE___V20*/ meltfptr[17] = 0 ;
/*^clear*/
- /*clear*/ /*_.ADD2OUT__V23*/
- meltfptr[18] = 0 ;
+ /*clear*/ /*_.ADD2OUT__V23*/ meltfptr[18] = 0 ;
{
MELT_LOCATION("warmelt-debug.melt:1489:/ locexp");
@@ -7131,39 +6488,32 @@ meltlabexit_DEPTHLOOP_1:;/*^loopepilog*/
MELT_LOCATION("warmelt-debug.melt:1490:/ quasiblock");
- /*_#OFFPREV__L15*/
- meltfnum[9] =
+ /*_#OFFPREV__L15*/ meltfnum[9] =
(melt_get_int((melt_ptr_t)((/*!ENV_PREV*/ meltfrout->tabval[4]))));;
MELT_LOCATION("warmelt-debug.melt:1491:/ getslot");
{
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/;
melt_object_get_field(slot,obj, 2, "DBGI_MAXDEPTH");
- /*_.DBGI_MAXDEPTH__V24*/
- meltfptr[13] = slot;
+ /*_.DBGI_MAXDEPTH__V24*/ meltfptr[13] = slot;
};
;
- /*_#OLDMAXDEPTH__L16*/
- meltfnum[10] =
+ /*_#OLDMAXDEPTH__L16*/ meltfnum[10] =
(melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V24*/ meltfptr[13])));;
/*^compute*/
- /*_#diI__L17*/
- meltfnum[12] =
+ /*_#diI__L17*/ meltfnum[12] =
(melt_idiv((/*_#OLDMAXDEPTH__L16*/ meltfnum[10]), (2)));;
/*^compute*/
- /*_#NEWMAXDEPTH__L18*/
- meltfnum[13] =
+ /*_#NEWMAXDEPTH__L18*/ meltfnum[13] =
((/*_#diI__L17*/ meltfnum[12]) - (1));;
MELT_CHECK_SIGNAL();
;
/*^compute*/
- /*_#ltI__L19*/
- meltfnum[6] =
+ /*_#ltI__L19*/ meltfnum[6] =
((/*_#NEWMAXDEPTH__L18*/ meltfnum[13]) < (0));;
MELT_LOCATION("warmelt-debug.melt:1494:/ cond");
- /*cond*/
- if (/*_#ltI__L19*/ meltfnum[6]) /*then*/
+ /*cond*/ if (/*_#ltI__L19*/ meltfnum[6]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -7172,13 +6522,11 @@ meltlabexit_DEPTHLOOP_1:;/*^loopepilog*/
/*^compute*/
/*_#NEWMAXDEPTH__L18*/ meltfnum[13] = /*_#SETQ___L21*/ meltfnum[8] = 0;;
- /*_#_IF___L20*/
- meltfnum[7] = /*_#SETQ___L21*/ meltfnum[8];;
+ /*_#_IF___L20*/ meltfnum[7] = /*_#SETQ___L21*/ meltfnum[8];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1494:/ clear");
- /*clear*/ /*_#SETQ___L21*/
- meltfnum[8] = 0 ;
+ /*clear*/ /*_#SETQ___L21*/ meltfnum[8] = 0 ;
}
;
}
@@ -7195,12 +6543,10 @@ meltlabexit_DEPTHLOOP_1:;/*^loopepilog*/
MELT_CHECK_SIGNAL();
;
/*^compute*/
- /*_#ltI__L22*/
- meltfnum[8] =
+ /*_#ltI__L22*/ meltfnum[8] =
((/*_#DEPTH__L1*/ meltfnum[0]) < (/*_#OLDMAXDEPTH__L16*/ meltfnum[10]));;
MELT_LOCATION("warmelt-debug.melt:1495:/ cond");
- /*cond*/
- if (/*_#ltI__L22*/ meltfnum[8]) /*then*/
+ /*cond*/ if (/*_#ltI__L22*/ meltfnum[8]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -7210,13 +6556,11 @@ meltlabexit_DEPTHLOOP_1:;/*^loopepilog*/
/*_#IS_A__L24*/ meltfnum[23] =
melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_OUTPUT_INFORMATION*/ meltfrout->tabval[5])));;
/*^compute*/
- /*_#_IF___L23*/
- meltfnum[22] = /*_#IS_A__L24*/ meltfnum[23];;
+ /*_#_IF___L23*/ meltfnum[22] = /*_#IS_A__L24*/ meltfnum[23];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1495:/ clear");
- /*clear*/ /*_#IS_A__L24*/
- meltfnum[23] = 0 ;
+ /*clear*/ /*_#IS_A__L24*/ meltfnum[23] = 0 ;
}
;
}
@@ -7227,8 +6571,7 @@ meltlabexit_DEPTHLOOP_1:;/*^loopepilog*/
}
;
MELT_LOCATION("warmelt-debug.melt:1495:/ cond");
- /*cond*/
- if (/*_#_IF___L23*/ meltfnum[22]) /*then*/
+ /*cond*/ if (/*_#_IF___L23*/ meltfnum[22]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -7238,12 +6581,10 @@ meltlabexit_DEPTHLOOP_1:;/*^loopepilog*/
MELT_CHECK_SIGNAL();
;
- /*_#gtI__L25*/
- meltfnum[23] =
+ /*_#gtI__L25*/ meltfnum[23] =
((/*_#DEPTH__L1*/ meltfnum[0]) > (0));;
MELT_LOCATION("warmelt-debug.melt:1497:/ cond");
- /*cond*/
- if (/*_#gtI__L25*/ meltfnum[23]) /*then*/
+ /*cond*/ if (/*_#gtI__L25*/ meltfnum[23]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -7253,12 +6594,10 @@ meltlabexit_DEPTHLOOP_1:;/*^loopepilog*/
MELT_CHECK_SIGNAL();
;
- /*_#gtI__L26*/
- meltfnum[25] =
+ /*_#gtI__L26*/ meltfnum[25] =
((/*_#OLDMAXDEPTH__L16*/ meltfnum[10]) > (3));;
MELT_LOCATION("warmelt-debug.melt:1497:/ cond");
- /*cond*/
- if (/*_#gtI__L26*/ meltfnum[25]) /*then*/
+ /*cond*/ if (/*_#gtI__L26*/ meltfnum[25]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -7270,8 +6609,7 @@ meltlabexit_DEPTHLOOP_1:;/*^loopepilog*/
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/;
melt_object_get_field(slot,obj, 2, "DBGI_MAXDEPTH");
- /*_.DBGI_MAXDEPTH__V25*/
- meltfptr[14] = slot;
+ /*_.DBGI_MAXDEPTH__V25*/ meltfptr[14] = slot;
};
;
@@ -7283,8 +6621,7 @@ meltlabexit_DEPTHLOOP_1:;/*^loopepilog*/
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1497:/ clear");
- /*clear*/ /*_.DBGI_MAXDEPTH__V25*/
- meltfptr[14] = 0 ;
+ /*clear*/ /*_.DBGI_MAXDEPTH__V25*/ meltfptr[14] = 0 ;
}
;
} /*noelse*/
@@ -7292,14 +6629,12 @@ meltlabexit_DEPTHLOOP_1:;/*^loopepilog*/
/*epilog*/
/*^clear*/
- /*clear*/ /*_#gtI__L26*/
- meltfnum[25] = 0 ;
+ /*clear*/ /*_#gtI__L26*/ meltfnum[25] = 0 ;
}
;
} /*noelse*/
;
- /*_#plI__L27*/
- meltfnum[25] =
+ /*_#plI__L27*/ meltfnum[25] =
((/*_#DEPTH__L1*/ meltfnum[0]) + (1));;
MELT_CHECK_SIGNAL();
@@ -7317,8 +6652,7 @@ meltlabexit_DEPTHLOOP_1:;/*^loopepilog*/
argtab[2].meltbp_long = 0;
/*^apply.arg*/
argtab[3].meltbp_long = /*_#OFFPREV__L15*/ meltfnum[9];
- /*_.DBGOUT_FIELDS__V26*/
- meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_FIELDS*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+ /*_.DBGOUT_FIELDS__V26*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_FIELDS*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
}
;
@@ -7327,12 +6661,10 @@ meltlabexit_DEPTHLOOP_1:;/*^loopepilog*/
MELT_CHECK_SIGNAL();
;
- /*_#ltI__L28*/
- meltfnum[27] =
+ /*_#ltI__L28*/ meltfnum[27] =
((/*_#DEPTH__L1*/ meltfnum[0]) < (/*_#NEWMAXDEPTH__L18*/ meltfnum[13]));;
MELT_LOCATION("warmelt-debug.melt:1500:/ cond");
- /*cond*/
- if (/*_#ltI__L28*/ meltfnum[27]) /*then*/
+ /*cond*/ if (/*_#ltI__L28*/ meltfnum[27]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -7342,13 +6674,11 @@ meltlabexit_DEPTHLOOP_1:;/*^loopepilog*/
/*_#IS_A__L30*/ meltfnum[29] =
melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_OUTPUT_INFORMATION*/ meltfrout->tabval[5])));;
/*^compute*/
- /*_#_IF___L29*/
- meltfnum[28] = /*_#IS_A__L30*/ meltfnum[29];;
+ /*_#_IF___L29*/ meltfnum[28] = /*_#IS_A__L30*/ meltfnum[29];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1500:/ clear");
- /*clear*/ /*_#IS_A__L30*/
- meltfnum[29] = 0 ;
+ /*clear*/ /*_#IS_A__L30*/ meltfnum[29] = 0 ;
}
;
}
@@ -7359,8 +6689,7 @@ meltlabexit_DEPTHLOOP_1:;/*^loopepilog*/
}
;
MELT_LOCATION("warmelt-debug.melt:1500:/ cond");
- /*cond*/
- if (/*_#_IF___L29*/ meltfnum[28]) /*then*/
+ /*cond*/ if (/*_#_IF___L29*/ meltfnum[28]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -7385,20 +6714,16 @@ meltlabexit_DEPTHLOOP_1:;/*^loopepilog*/
argtab[2].meltbp_long = /*_#OFFPREV__L15*/ meltfnum[9];
/*^apply.arg*/
argtab[3].meltbp_long = 0;
- /*_.DBGOUTAGAIN_FIELDS__V28*/
- meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_FIELDS*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+ /*_.DBGOUTAGAIN_FIELDS__V28*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_FIELDS*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V27*/
- meltfptr[17] = /*_.DBGOUTAGAIN_FIELDS__V28*/ meltfptr[18];;
+ /*_._IFELSE___V27*/ meltfptr[17] = /*_.DBGOUTAGAIN_FIELDS__V28*/ meltfptr[18];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1500:/ clear");
- /*clear*/ /*_#plI__L31*/
- meltfnum[29] = 0 ;
+ /*clear*/ /*_#plI__L31*/ meltfnum[29] = 0 ;
/*^clear*/
- /*clear*/ /*_.DBGOUTAGAIN_FIELDS__V28*/
- meltfptr[18] = 0 ;
+ /*clear*/ /*_.DBGOUTAGAIN_FIELDS__V28*/ meltfptr[18] = 0 ;
}
;
}
@@ -7417,8 +6742,7 @@ meltlabexit_DEPTHLOOP_1:;/*^loopepilog*/
meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( ".._.."));
}
;
- /*clear*/ /*_._IFELSE___V27*/
- meltfptr[17] = 0 ;
+ /*clear*/ /*_._IFELSE___V27*/ meltfptr[17] = 0 ;
/*epilog*/
}
;
@@ -7429,8 +6753,7 @@ meltlabexit_DEPTHLOOP_1:;/*^loopepilog*/
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/;
melt_object_get_field(slot,obj, 2, "DBGI_MAXDEPTH");
- /*_.DBGI_MAXDEPTH__V29*/
- meltfptr[14] = slot;
+ /*_.DBGI_MAXDEPTH__V29*/ meltfptr[14] = slot;
};
;
@@ -7445,58 +6768,42 @@ meltlabexit_DEPTHLOOP_1:;/*^loopepilog*/
/*epilog*/
/*^clear*/
- /*clear*/ /*_#gtI__L25*/
- meltfnum[23] = 0 ;
+ /*clear*/ /*_#gtI__L25*/ meltfnum[23] = 0 ;
/*^clear*/
- /*clear*/ /*_#plI__L27*/
- meltfnum[25] = 0 ;
+ /*clear*/ /*_#plI__L27*/ meltfnum[25] = 0 ;
/*^clear*/
- /*clear*/ /*_.DBGOUT_FIELDS__V26*/
- meltfptr[15] = 0 ;
+ /*clear*/ /*_.DBGOUT_FIELDS__V26*/ meltfptr[15] = 0 ;
/*^clear*/
- /*clear*/ /*_#ltI__L28*/
- meltfnum[27] = 0 ;
+ /*clear*/ /*_#ltI__L28*/ meltfnum[27] = 0 ;
/*^clear*/
- /*clear*/ /*_#_IF___L29*/
- meltfnum[28] = 0 ;
+ /*clear*/ /*_#_IF___L29*/ meltfnum[28] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V27*/
- meltfptr[17] = 0 ;
+ /*clear*/ /*_._IFELSE___V27*/ meltfptr[17] = 0 ;
/*^clear*/
- /*clear*/ /*_.DBGI_MAXDEPTH__V29*/
- meltfptr[14] = 0 ;
+ /*clear*/ /*_.DBGI_MAXDEPTH__V29*/ meltfptr[14] = 0 ;
}
;
} /*noelse*/
;
MELT_LOCATION("warmelt-debug.melt:1490:/ clear");
- /*clear*/ /*_#OFFPREV__L15*/
- meltfnum[9] = 0 ;
+ /*clear*/ /*_#OFFPREV__L15*/ meltfnum[9] = 0 ;
/*^clear*/
- /*clear*/ /*_.DBGI_MAXDEPTH__V24*/
- meltfptr[13] = 0 ;
+ /*clear*/ /*_.DBGI_MAXDEPTH__V24*/ meltfptr[13] = 0 ;
/*^clear*/
- /*clear*/ /*_#OLDMAXDEPTH__L16*/
- meltfnum[10] = 0 ;
+ /*clear*/ /*_#OLDMAXDEPTH__L16*/ meltfnum[10] = 0 ;
/*^clear*/
- /*clear*/ /*_#diI__L17*/
- meltfnum[12] = 0 ;
+ /*clear*/ /*_#diI__L17*/ meltfnum[12] = 0 ;
/*^clear*/
- /*clear*/ /*_#NEWMAXDEPTH__L18*/
- meltfnum[13] = 0 ;
+ /*clear*/ /*_#NEWMAXDEPTH__L18*/ meltfnum[13] = 0 ;
/*^clear*/
- /*clear*/ /*_#ltI__L19*/
- meltfnum[6] = 0 ;
+ /*clear*/ /*_#ltI__L19*/ meltfnum[6] = 0 ;
/*^clear*/
- /*clear*/ /*_#_IF___L20*/
- meltfnum[7] = 0 ;
+ /*clear*/ /*_#_IF___L20*/ meltfnum[7] = 0 ;
/*^clear*/
- /*clear*/ /*_#ltI__L22*/
- meltfnum[8] = 0 ;
+ /*clear*/ /*_#ltI__L22*/ meltfnum[8] = 0 ;
/*^clear*/
- /*clear*/ /*_#_IF___L23*/
- meltfnum[22] = 0 ;
+ /*clear*/ /*_#_IF___L23*/ meltfnum[22] = 0 ;
{
MELT_LOCATION("warmelt-debug.melt:1506:/ locexp");
@@ -7505,34 +6812,26 @@ meltlabexit_DEPTHLOOP_1:;/*^loopepilog*/
;
MELT_LOCATION("warmelt-debug.melt:1455:/ clear");
- /*clear*/ /*_.DIS__V10*/
- meltfptr[8] = 0 ;
+ /*clear*/ /*_.DIS__V10*/ meltfptr[8] = 0 ;
/*^clear*/
- /*clear*/ /*_.OUT__V11*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_.OUT__V11*/ meltfptr[4] = 0 ;
/*^clear*/
- /*clear*/ /*_#ONUM__L4*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#ONUM__L4*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_#eqeq__L5*/
- meltfnum[4] = 0 ;
+ /*clear*/ /*_#eqeq__L5*/ meltfnum[4] = 0 ;
/*^clear*/
- /*clear*/ /*_#OBJ_HASH__L6*/
- meltfnum[5] = 0 ;
+ /*clear*/ /*_#OBJ_HASH__L6*/ meltfnum[5] = 0 ;
/*^clear*/
- /*clear*/ /*_.LET___V13*/
- meltfptr[11] = 0 ;
+ /*clear*/ /*_.LET___V13*/ meltfptr[11] = 0 ;
MELT_CHECK_SIGNAL();
;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1452:/ clear");
- /*clear*/ /*_.IFCPP___V4*/
- meltfptr[3] = 0 ;
+ /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ;
/*^clear*/
- /*clear*/ /*_.IFCPP___V7*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ;
}
;
@@ -7613,8 +6912,7 @@ meltrout_49_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD(meltclosure_ptr_t meltclosp_
/* end of frame for routine meltrout_49_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD fromline 1722 */
- /* classy proc frame meltrout_49_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD */
- MeltFrame_meltrout_49_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD
+ /* classy proc frame meltrout_49_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD */ MeltFrame_meltrout_49_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD
meltfram__ /*declfrastruct fromline 1746*/
/*classyprocarg meltrout_49_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD fromline 1751*/
#if ENABLE_CHECKING
@@ -7627,8 +6925,7 @@ meltrout_49_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD(meltclosure_ptr_t meltclosp_
#define meltframe meltfram__
melt_trace_start("DBGOUTAGAIN_CTYPE_METHOD", meltcallcount);
- /*use arguments*/
- (void) meltclosp_;
+ /*use arguments*/ (void) meltclosp_;
(void)meltfirstargp_;
(void)meltxargdescr_;
(void)meltxargtab_;
@@ -7638,22 +6935,19 @@ meltrout_49_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD(meltclosure_ptr_t meltclosp_
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1512:/ getarg");
- /*_.SELF__V2*/
- meltfptr[1] = (melt_ptr_t) meltfirstargp_;
+ /*_.SELF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1*/
/*^getarg*/
if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
- /*_.DBGI__V3*/
- meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
+ /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL);
/*getarg#2*/
/*^getarg*/
if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs;
- /*_#DEPTH__L1*/
- meltfnum[0] = meltxargtab_[1].meltbp_long;
+ /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long;
;
goto meltlab_endgetargs;
meltlab_endgetargs:
@@ -7666,16 +6960,14 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1513:/ quasiblock");
- /*_.DIS__V4*/
- meltfptr[3] =
+ /*_.DIS__V4*/ meltfptr[3] =
((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));;
MELT_LOCATION("warmelt-debug.melt:1514:/ getslot");
{
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/;
melt_object_get_field(slot,obj, 0, "DBGI_OUT");
- /*_.OUT__V5*/
- meltfptr[4] = slot;
+ /*_.OUT__V5*/ meltfptr[4] = slot;
};
;
MELT_LOCATION("warmelt-debug.melt:1515:/ getslot");
@@ -7683,8 +6975,7 @@ meltlab_endgetargs:
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]) /*=obj*/;
melt_object_get_field(slot,obj, 1, "NAMED_NAME");
- /*_.ONAM__V6*/
- meltfptr[5] = slot;
+ /*_.ONAM__V6*/ meltfptr[5] = slot;
};
;
@@ -7705,8 +6996,7 @@ meltlab_endgetargs:
meltgc_add_out((melt_ptr_t)(/*_.OUT__V5*/ meltfptr[4]), ( "!/"));
}
;
- /*_#OBJ_HASH__L2*/
- meltfnum[1] =
+ /*_#OBJ_HASH__L2*/ meltfnum[1] =
(melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));;
{
@@ -7716,17 +7006,13 @@ meltlab_endgetargs:
;
MELT_LOCATION("warmelt-debug.melt:1513:/ clear");
- /*clear*/ /*_.DIS__V4*/
- meltfptr[3] = 0 ;
+ /*clear*/ /*_.DIS__V4*/ meltfptr[3] = 0 ;
/*^clear*/
- /*clear*/ /*_.OUT__V5*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_.OUT__V5*/ meltfptr[4] = 0 ;
/*^clear*/
- /*clear*/ /*_.ONAM__V6*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.ONAM__V6*/ meltfptr[5] = 0 ;
/*^clear*/
- /*clear*/ /*_#OBJ_HASH__L2*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#OBJ_HASH__L2*/ meltfnum[1] = 0 ;
/*epilog*/
}
@@ -7808,8 +7094,7 @@ meltrout_50_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD(meltclosure_ptr_t meltclosp_, mel
/* end of frame for routine meltrout_50_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD fromline 1722 */
- /* classy proc frame meltrout_50_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD */
- MeltFrame_meltrout_50_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD
+ /* classy proc frame meltrout_50_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD */ MeltFrame_meltrout_50_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD
meltfram__ /*declfrastruct fromline 1746*/
/*classyprocarg meltrout_50_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD fromline 1751*/
#if ENABLE_CHECKING
@@ -7822,8 +7107,7 @@ meltrout_50_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD(meltclosure_ptr_t meltclosp_, mel
#define meltframe meltfram__
melt_trace_start("DBGOUT_CTYPE_METHOD", meltcallcount);
- /*use arguments*/
- (void) meltclosp_;
+ /*use arguments*/ (void) meltclosp_;
(void)meltfirstargp_;
(void)meltxargdescr_;
(void)meltxargtab_;
@@ -7833,22 +7117,19 @@ meltrout_50_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD(meltclosure_ptr_t meltclosp_, mel
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1524:/ getarg");
- /*_.SELF__V2*/
- meltfptr[1] = (melt_ptr_t) meltfirstargp_;
+ /*_.SELF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1*/
/*^getarg*/
if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
- /*_.DBGI__V3*/
- meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
+ /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL);
/*getarg#2*/
/*^getarg*/
if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs;
- /*_#DEPTH__L1*/
- meltfnum[0] = meltxargtab_[1].meltbp_long;
+ /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long;
;
goto meltlab_endgetargs;
meltlab_endgetargs:
@@ -7868,12 +7149,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#IS_A__L2*/
- meltfnum[1] =
+ /*_#IS_A__L2*/ meltfnum[1] =
melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));;
MELT_LOCATION("warmelt-debug.melt:1525:/ cond");
- /*cond*/
- if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);;
@@ -7902,31 +7181,25 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1525;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
- /*_.MELT_ASSERT_FAILURE_FUN__V6*/
- meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V5*/
- meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
+ /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1525:/ clear");
- /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ;
}
;
}
;
- /*_.IFCPP___V4*/
- meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];;
+ /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1525:/ clear");
- /*clear*/ /*_#IS_A__L2*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V5*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ;
}
#else /*MELT_HAVE_DEBUG*/
@@ -7944,12 +7217,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#IS_A__L3*/
- meltfnum[1] =
+ /*_#IS_A__L3*/ meltfnum[1] =
melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_CTYPE*/ meltfrout->tabval[2])));;
MELT_LOCATION("warmelt-debug.melt:1526:/ cond");
- /*cond*/
- if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);;
@@ -7978,31 +7249,25 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1526;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1];
- /*_.MELT_ASSERT_FAILURE_FUN__V9*/
- meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V8*/
- meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];;
+ /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1526:/ clear");
- /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/
- meltfptr[8] = 0 ;
+ /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ;
}
;
}
;
- /*_.IFCPP___V7*/
- meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];;
+ /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1526:/ clear");
- /*clear*/ /*_#IS_A__L3*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V8*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ;
}
#else /*MELT_HAVE_DEBUG*/
@@ -8014,12 +7279,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
/*^compute*/
- /*_#lteqI__L4*/
- meltfnum[1] =
+ /*_#lteqI__L4*/ meltfnum[1] =
((/*_#DEPTH__L1*/ meltfnum[0]) <= (0));;
MELT_LOCATION("warmelt-debug.melt:1527:/ cond");
- /*cond*/
- if (/*_#lteqI__L4*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#lteqI__L4*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -8038,17 +7301,14 @@ meltlab_endgetargs:
argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
/*^apply.arg*/
argtab[1].meltbp_long = 0;
- /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/
- meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_NAMEDOBJECT_METHOD*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+ /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_NAMEDOBJECT_METHOD*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V10*/
- meltfptr[8] = /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4];;
+ /*_._IFELSE___V10*/ meltfptr[8] = /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1527:/ clear");
- /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4] = 0 ;
}
;
}
@@ -8071,17 +7331,14 @@ meltlab_endgetargs:
argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
/*^apply.arg*/
argtab[1].meltbp_long = /*_#DEPTH__L1*/ meltfnum[0];
- /*_.DBGOUTAGAIN_CTYPE_METHOD__V12*/
- meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_CTYPE_METHOD*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+ /*_.DBGOUTAGAIN_CTYPE_METHOD__V12*/ meltfptr[4] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUTAGAIN_CTYPE_METHOD*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V10*/
- meltfptr[8] = /*_.DBGOUTAGAIN_CTYPE_METHOD__V12*/ meltfptr[4];;
+ /*_._IFELSE___V10*/ meltfptr[8] = /*_.DBGOUTAGAIN_CTYPE_METHOD__V12*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1527:/ clear");
- /*clear*/ /*_.DBGOUTAGAIN_CTYPE_METHOD__V12*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_.DBGOUTAGAIN_CTYPE_METHOD__V12*/ meltfptr[4] = 0 ;
}
;
}
@@ -8092,8 +7349,7 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1524:/ quasiblock");
- /*_._RETVAL___V1*/
- meltfptr[0] = /*_._IFELSE___V10*/ meltfptr[8];;
+ /*_._RETVAL___V1*/ meltfptr[0] = /*_._IFELSE___V10*/ meltfptr[8];;
{
MELT_LOCATION("warmelt-debug.melt:1524:/ locexp");
@@ -8108,22 +7364,17 @@ meltlab_endgetargs:
;
/*^finalreturn*/
;
- /*finalret*/
- goto meltlabend_rout ;
+ /*finalret*/ goto meltlabend_rout ;
/*epilog*/
/*^clear*/
- /*clear*/ /*_.IFCPP___V4*/
- meltfptr[3] = 0 ;
+ /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ;
/*^clear*/
- /*clear*/ /*_.IFCPP___V7*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ;
/*^clear*/
- /*clear*/ /*_#lteqI__L4*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#lteqI__L4*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V10*/
- meltfptr[8] = 0 ;
+ /*clear*/ /*_._IFELSE___V10*/ meltfptr[8] = 0 ;
}
;
@@ -8204,8 +7455,7 @@ meltrout_51_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD(meltclosure_ptr_t meltclosp_
/* end of frame for routine meltrout_51_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD fromline 1722 */
- /* classy proc frame meltrout_51_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD */
- MeltFrame_meltrout_51_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD
+ /* classy proc frame meltrout_51_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD */ MeltFrame_meltrout_51_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD
meltfram__ /*declfrastruct fromline 1746*/
/*classyprocarg meltrout_51_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD fromline 1751*/
#if ENABLE_CHECKING
@@ -8218,8 +7468,7 @@ meltrout_51_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD(meltclosure_ptr_t meltclosp_
#define meltframe meltfram__
melt_trace_start("DBGOUT_ANYBINDING_METHOD", meltcallcount);
- /*use arguments*/
- (void) meltclosp_;
+ /*use arguments*/ (void) meltclosp_;
(void)meltfirstargp_;
(void)meltxargdescr_;
(void)meltxargtab_;
@@ -8229,22 +7478,19 @@ meltrout_51_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD(meltclosure_ptr_t meltclosp_
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1534:/ getarg");
- /*_.SELF__V2*/
- meltfptr[1] = (melt_ptr_t) meltfirstargp_;
+ /*_.SELF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1*/
/*^getarg*/
if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
- /*_.DBGI__V3*/
- meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
+ /*_.DBGI__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
gcc_assert(melt_discr((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2])) != NULL);
/*getarg#2*/
/*^getarg*/
if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs;
- /*_#DEPTH__L1*/
- meltfnum[0] = meltxargtab_[1].meltbp_long;
+ /*_#DEPTH__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long;
;
goto meltlab_endgetargs;
meltlab_endgetargs:
@@ -8264,12 +7510,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#IS_A__L2*/
- meltfnum[1] =
+ /*_#IS_A__L2*/ meltfnum[1] =
melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));;
MELT_LOCATION("warmelt-debug.melt:1535:/ cond");
- /*cond*/
- if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);;
@@ -8298,31 +7542,25 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1535;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
- /*_.MELT_ASSERT_FAILURE_FUN__V6*/
- meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V5*/
- meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
+ /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1535:/ clear");
- /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ;
}
;
}
;
- /*_.IFCPP___V4*/
- meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];;
+ /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1535:/ clear");
- /*clear*/ /*_#IS_A__L2*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V5*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ;
}
#else /*MELT_HAVE_DEBUG*/
@@ -8340,12 +7578,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#IS_A__L3*/
- meltfnum[1] =
+ /*_#IS_A__L3*/ meltfnum[1] =
melt_is_instance_of((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[2])));;
MELT_LOCATION("warmelt-debug.melt:1536:/ cond");
- /*cond*/
- if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);;
@@ -8374,31 +7610,25 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1536;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1];
- /*_.MELT_ASSERT_FAILURE_FUN__V9*/
- meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V8*/
- meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];;
+ /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1536:/ clear");
- /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/
- meltfptr[8] = 0 ;
+ /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ;
}
;
}
;
- /*_.IFCPP___V7*/
- meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];;
+ /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1536:/ clear");
- /*clear*/ /*_#IS_A__L3*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V8*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ;
}
#else /*MELT_HAVE_DEBUG*/
@@ -8409,16 +7639,14 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1537:/ quasiblock");
- /*_.DIS__V10*/
- meltfptr[8] =
+ /*_.DIS__V10*/ meltfptr[8] =
((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]))));;
MELT_LOCATION("warmelt-debug.melt:1538:/ getslot");
{
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/;
melt_object_get_field(slot,obj, 0, "DBGI_OUT");
- /*_.OUT__V11*/
- meltfptr[4] = slot;
+ /*_.OUT__V11*/ meltfptr[4] = slot;
};
;
MELT_LOCATION("warmelt-debug.melt:1539:/ getslot");
@@ -8426,16 +7654,13 @@ meltlab_endgetargs:
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]) /*=obj*/;
melt_object_get_field(slot,obj, 0, "BINDER");
- /*_.BINDERV__V12*/
- meltfptr[11] = slot;
+ /*_.BINDERV__V12*/ meltfptr[11] = slot;
};
;
- /*_#BINDNUM__L4*/
- meltfnum[1] =
+ /*_#BINDNUM__L4*/ meltfnum[1] =
(melt_get_int((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));;
MELT_LOCATION("warmelt-debug.melt:1541:/ cond");
- /*cond*/
- if (
+ /*cond*/ if (
/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]),
(melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])))
) /*then*/
@@ -8446,8 +7671,7 @@ meltlab_endgetargs:
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/;
melt_object_get_field(slot,obj, 2, "DBGI_MAXDEPTH");
- /*_.DBGI_MAXDEPTH__V13*/
- meltfptr[12] = slot;
+ /*_.DBGI_MAXDEPTH__V13*/ meltfptr[12] = slot;
};
;
}
@@ -8458,8 +7682,7 @@ meltlab_endgetargs:
}
;
/*^compute*/
- /*_#MAXDEPTH__L5*/
- meltfnum[4] =
+ /*_#MAXDEPTH__L5*/ meltfnum[4] =
(melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V13*/ meltfptr[12])));;
{
@@ -8478,8 +7701,7 @@ meltlab_endgetargs:
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DIS__V10*/ meltfptr[8]) /*=obj*/;
melt_object_get_field(slot,obj, 1, "NAMED_NAME");
- /*_.NAMED_NAME__V14*/
- meltfptr[13] = slot;
+ /*_.NAMED_NAME__V14*/ meltfptr[13] = slot;
};
;
@@ -8494,8 +7716,7 @@ meltlab_endgetargs:
meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( "/"));
}
;
- /*_#OBJ_HASH__L6*/
- meltfnum[5] =
+ /*_#OBJ_HASH__L6*/ meltfnum[5] =
(melt_obj_hash((melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1])));;
{
@@ -8507,8 +7728,7 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
MELT_LOCATION("warmelt-debug.melt:1548:/ cond");
- /*cond*/
- if (/*_#BINDNUM__L4*/ meltfnum[1]) /*then*/
+ /*cond*/ if (/*_#BINDNUM__L4*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -8541,8 +7761,7 @@ meltlab_endgetargs:
meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( ":"));
}
;
- /*_#plI__L7*/
- meltfnum[6] =
+ /*_#plI__L7*/ meltfnum[6] =
((/*_#DEPTH__L1*/ meltfnum[0]) + (2));;
MELT_CHECK_SIGNAL();
@@ -8556,19 +7775,16 @@ meltlab_endgetargs:
argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
/*^ojbmsend.arg*/
argtab[1].meltbp_long = /*_#plI__L7*/ meltfnum[6];
- /*_.DBG_OUTPUTAGAIN__V15*/
- meltfptr[14] = meltgc_send((melt_ptr_t)(/*_.BINDERV__V12*/ meltfptr[11]), (melt_ptr_t)((/*!DBG_OUTPUTAGAIN*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+ /*_.DBG_OUTPUTAGAIN__V15*/ meltfptr[14] = meltgc_send((melt_ptr_t)(/*_.BINDERV__V12*/ meltfptr[11]), (melt_ptr_t)((/*!DBG_OUTPUTAGAIN*/ meltfrout->tabval[3])), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
}
;
MELT_CHECK_SIGNAL();
;
- /*_#ltI__L8*/
- meltfnum[7] =
+ /*_#ltI__L8*/ meltfnum[7] =
((/*_#DEPTH__L1*/ meltfnum[0]) < (/*_#MAXDEPTH__L5*/ meltfnum[4]));;
MELT_LOCATION("warmelt-debug.melt:1553:/ cond");
- /*cond*/
- if (/*_#ltI__L8*/ meltfnum[7]) /*then*/
+ /*cond*/ if (/*_#ltI__L8*/ meltfnum[7]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -8581,8 +7797,7 @@ meltlab_endgetargs:
meltgc_add_out((melt_ptr_t)(/*_.OUT__V11*/ meltfptr[4]), ( "; "));
}
;
- /*_#plI__L9*/
- meltfnum[8] =
+ /*_#plI__L9*/ meltfnum[8] =
((/*_#DEPTH__L1*/ meltfnum[0]) + (1));;
MELT_CHECK_SIGNAL();
@@ -8600,29 +7815,23 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1;
/*^apply.arg*/
argtab[3].meltbp_long = 0;
- /*_.DBGOUT_FIELDS__V17*/
- meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_FIELDS*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+ /*_.DBGOUT_FIELDS__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_FIELDS*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
}
;
MELT_LOCATION("warmelt-debug.melt:1553:/ quasiblock");
- /*_.PROGN___V18*/
- meltfptr[17] = /*_.DBGOUT_FIELDS__V17*/ meltfptr[16];;
+ /*_.PROGN___V18*/ meltfptr[17] = /*_.DBGOUT_FIELDS__V17*/ meltfptr[16];;
/*^compute*/
- /*_._IF___V16*/
- meltfptr[15] = /*_.PROGN___V18*/ meltfptr[17];;
+ /*_._IF___V16*/ meltfptr[15] = /*_.PROGN___V18*/ meltfptr[17];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1553:/ clear");
- /*clear*/ /*_#plI__L9*/
- meltfnum[8] = 0 ;
+ /*clear*/ /*_#plI__L9*/ meltfnum[8] = 0 ;
/*^clear*/
- /*clear*/ /*_.DBGOUT_FIELDS__V17*/
- meltfptr[16] = 0 ;
+ /*clear*/ /*_.DBGOUT_FIELDS__V17*/ meltfptr[16] = 0 ;
/*^clear*/
- /*clear*/ /*_.PROGN___V18*/
- meltfptr[17] = 0 ;
+ /*clear*/ /*_.PROGN___V18*/ meltfptr[17] = 0 ;
}
;
}
@@ -8640,52 +7849,38 @@ meltlab_endgetargs:
;
MELT_LOCATION("warmelt-debug.melt:1537:/ clear");
- /*clear*/ /*_.DIS__V10*/
- meltfptr[8] = 0 ;
+ /*clear*/ /*_.DIS__V10*/ meltfptr[8] = 0 ;
/*^clear*/
- /*clear*/ /*_.OUT__V11*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_.OUT__V11*/ meltfptr[4] = 0 ;
/*^clear*/
- /*clear*/ /*_.BINDERV__V12*/
- meltfptr[11] = 0 ;
+ /*clear*/ /*_.BINDERV__V12*/ meltfptr[11] = 0 ;
/*^clear*/
- /*clear*/ /*_#BINDNUM__L4*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#BINDNUM__L4*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_.DBGI_MAXDEPTH__V13*/
- meltfptr[12] = 0 ;
+ /*clear*/ /*_.DBGI_MAXDEPTH__V13*/ meltfptr[12] = 0 ;
/*^clear*/
- /*clear*/ /*_#MAXDEPTH__L5*/
- meltfnum[4] = 0 ;
+ /*clear*/ /*_#MAXDEPTH__L5*/ meltfnum[4] = 0 ;
/*^clear*/
- /*clear*/ /*_.NAMED_NAME__V14*/
- meltfptr[13] = 0 ;
+ /*clear*/ /*_.NAMED_NAME__V14*/ meltfptr[13] = 0 ;
/*^clear*/
- /*clear*/ /*_#OBJ_HASH__L6*/
- meltfnum[5] = 0 ;
+ /*clear*/ /*_#OBJ_HASH__L6*/ meltfnum[5] = 0 ;
/*^clear*/
- /*clear*/ /*_#plI__L7*/
- meltfnum[6] = 0 ;
+ /*clear*/ /*_#plI__L7*/ meltfnum[6] = 0 ;
/*^clear*/
- /*clear*/ /*_.DBG_OUTPUTAGAIN__V15*/
- meltfptr[14] = 0 ;
+ /*clear*/ /*_.DBG_OUTPUTAGAIN__V15*/ meltfptr[14] = 0 ;
/*^clear*/
- /*clear*/ /*_#ltI__L8*/
- meltfnum[7] = 0 ;
+ /*clear*/ /*_#ltI__L8*/ meltfnum[7] = 0 ;
/*^clear*/
- /*clear*/ /*_._IF___V16*/
- meltfptr[15] = 0 ;
+ /*clear*/ /*_._IF___V16*/ meltfptr[15] = 0 ;
MELT_CHECK_SIGNAL();
;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1534:/ clear");
- /*clear*/ /*_.IFCPP___V4*/
- meltfptr[3] = 0 ;
+ /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ;
/*^clear*/
- /*clear*/ /*_.IFCPP___V7*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ;
}
;
@@ -8767,8 +7962,7 @@ meltrout_52_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE(meltclosure_ptr_t meltclosp_, m
/* end of frame for routine meltrout_52_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE fromline 1722 */
- /* classy proc frame meltrout_52_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE */
- MeltFrame_meltrout_52_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE
+ /* classy proc frame meltrout_52_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE */ MeltFrame_meltrout_52_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE
meltfram__ /*declfrastruct fromline 1746*/
/*classyprocarg meltrout_52_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE fromline 1751*/
#if ENABLE_CHECKING
@@ -8781,8 +7975,7 @@ meltrout_52_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE(meltclosure_ptr_t meltclosp_, m
#define meltframe meltfram__
melt_trace_start("DISPLAY_DEBUG_MESSAGE", meltcallcount);
- /*use arguments*/
- (void) meltclosp_;
+ /*use arguments*/ (void) meltclosp_;
(void)meltfirstargp_;
(void)meltxargdescr_;
(void)meltxargtab_;
@@ -8792,20 +7985,17 @@ meltrout_52_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE(meltclosure_ptr_t meltclosp_, m
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1567:/ getarg");
- /*_.VAL__V2*/
- meltfptr[1] = (melt_ptr_t) meltfirstargp_;
+ /*_.VAL__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1*/
/*^getarg*/
if (meltxargdescr_[0] != MELTBPAR_CSTRING) goto meltlab_endgetargs;
- /*_?*/
- meltfram__.loc_CSTRING__o0 = meltxargtab_[0].meltbp_cstring;
+ /*_?*/ meltfram__.loc_CSTRING__o0 = meltxargtab_[0].meltbp_cstring;
/*getarg#2*/
/*^getarg*/
if (meltxargdescr_[1] != MELTBPAR_LONG) goto meltlab_endgetargs;
- /*_#COUNT__L1*/
- meltfnum[0] = meltxargtab_[1].meltbp_long;
+ /*_#COUNT__L1*/ meltfnum[0] = meltxargtab_[1].meltbp_long;
;
goto meltlab_endgetargs;
meltlab_endgetargs:
@@ -8818,19 +8008,15 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1569:/ quasiblock");
- /*_#DBGCOUNTER__L2*/
- meltfnum[1] = 0;;
+ /*_#DBGCOUNTER__L2*/ meltfnum[1] = 0;;
/*^compute*/
- /*_.SBUF__V3*/
- meltfptr[2] =
+ /*_.SBUF__V3*/ meltfptr[2] =
(melt_ptr_t) meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[0])), (const char*)0);;
/*^compute*/
- /*_.OCCMAP__V4*/
- meltfptr[3] =
+ /*_.OCCMAP__V4*/ meltfptr[3] =
(meltgc_new_mapobjects( (meltobject_ptr_t) ((/*!DISCR_MAP_OBJECTS*/ meltfrout->tabval[1])), (50)));;
/*^compute*/
- /*_.BOXEDMAXDEPTH__V5*/
- meltfptr[4] =
+ /*_.BOXEDMAXDEPTH__V5*/ meltfptr[4] =
(meltgc_new_int((meltobject_ptr_t)((/*!DISCR_INTEGER*/ meltfrout->tabval[2])), (14)));;
MELT_CHECK_SIGNAL();
@@ -8843,8 +8029,7 @@ meltlab_endgetargs:
{
melt_ptr_t newobj = 0;
melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_DEBUG_OUTPUT_INFORMATION*/ meltfrout->tabval[3])), (3), "CLASS_DEBUG_OUTPUT_INFORMATION");
- /*_.INST__V7*/
- meltfptr[6] =
+ /*_.INST__V7*/ meltfptr[6] =
newobj;
};
;
@@ -8867,13 +8052,11 @@ meltlab_endgetargs:
melt_dbgtrace_written_object (/*_.INST__V7*/ meltfptr[6], "newly made instance");
;
- /*_.DBGI__V6*/
- meltfptr[5] = /*_.INST__V7*/ meltfptr[6];;
+ /*_.DBGI__V6*/ meltfptr[5] = /*_.INST__V7*/ meltfptr[6];;
{
MELT_LOCATION("warmelt-debug.melt:1578:/ locexp");
- /*_#DBGCOUNTER__L2*/
- meltfnum[1]= ++melt_dbgcounter;
+ /*_#DBGCOUNTER__L2*/ meltfnum[1]= ++melt_dbgcounter;
}
;
@@ -8882,12 +8065,10 @@ meltlab_endgetargs:
melt_putnum(stderr,( "!*!#"), (/*_#DBGCOUNTER__L2*/ meltfnum[1]), ( "/"));
}
;
- /*_#THE_FRAMEDEPTH__L3*/
- meltfnum[2] =
+ /*_#THE_FRAMEDEPTH__L3*/ meltfnum[2] =
(melt_curframdepth());;
/*^compute*/
- /*_#miI__L4*/
- meltfnum[3] =
+ /*_#miI__L4*/ meltfnum[3] =
((/*_#THE_FRAMEDEPTH__L3*/ meltfnum[2]) - (1));;
{
@@ -8904,12 +8085,10 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#gtI__L5*/
- meltfnum[4] =
+ /*_#gtI__L5*/ meltfnum[4] =
((/*_#COUNT__L1*/ meltfnum[0]) > (0));;
MELT_LOCATION("warmelt-debug.melt:1582:/ cond");
- /*cond*/
- if (/*_#gtI__L5*/ meltfnum[4]) /*then*/
+ /*cond*/ if (/*_#gtI__L5*/ meltfnum[4]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -8939,8 +8118,7 @@ meltlab_endgetargs:
argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V6*/ meltfptr[5];
/*^ojbmsend.arg*/
argtab[1].meltbp_long = 0;
- /*_.DBG_OUTPUT__V8*/
- meltfptr[7] = meltgc_send((melt_ptr_t)(/*_.VAL__V2*/ meltfptr[1]), (melt_ptr_t)((/*!DBG_OUTPUT*/ meltfrout->tabval[4])), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+ /*_.DBG_OUTPUT__V8*/ meltfptr[7] = meltgc_send((melt_ptr_t)(/*_.VAL__V2*/ meltfptr[1]), (melt_ptr_t)((/*!DBG_OUTPUT*/ meltfrout->tabval[4])), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
}
;
@@ -8957,32 +8135,23 @@ meltlab_endgetargs:
;
MELT_LOCATION("warmelt-debug.melt:1569:/ clear");
- /*clear*/ /*_#DBGCOUNTER__L2*/
- meltfnum[1] = 0 ;
+ /*clear*/ /*_#DBGCOUNTER__L2*/ meltfnum[1] = 0 ;
/*^clear*/
- /*clear*/ /*_.SBUF__V3*/
- meltfptr[2] = 0 ;
+ /*clear*/ /*_.SBUF__V3*/ meltfptr[2] = 0 ;
/*^clear*/
- /*clear*/ /*_.OCCMAP__V4*/
- meltfptr[3] = 0 ;
+ /*clear*/ /*_.OCCMAP__V4*/ meltfptr[3] = 0 ;
/*^clear*/
- /*clear*/ /*_.BOXEDMAXDEPTH__V5*/
- meltfptr[4] = 0 ;
+ /*clear*/ /*_.BOXEDMAXDEPTH__V5*/ meltfptr[4] = 0 ;
/*^clear*/
- /*clear*/ /*_.DBGI__V6*/
- meltfptr[5] = 0 ;
+ /*clear*/ /*_.DBGI__V6*/ meltfptr[5] = 0 ;
/*^clear*/
- /*clear*/ /*_#THE_FRAMEDEPTH__L3*/
- meltfnum[2] = 0 ;
+ /*clear*/ /*_#THE_FRAMEDEPTH__L3*/ meltfnum[2] = 0 ;
/*^clear*/
- /*clear*/ /*_#miI__L4*/
- meltfnum[3] = 0 ;
+ /*clear*/ /*_#miI__L4*/ meltfnum[3] = 0 ;
/*^clear*/
- /*clear*/ /*_#gtI__L5*/
- meltfnum[4] = 0 ;
+ /*clear*/ /*_#gtI__L5*/ meltfnum[4] = 0 ;
/*^clear*/
- /*clear*/ /*_.DBG_OUTPUT__V8*/
- meltfptr[7] = 0 ;
+ /*clear*/ /*_.DBG_OUTPUT__V8*/ meltfptr[7] = 0 ;
/*epilog*/
}
View Lorry Controller Status