summaryrefslogtreecommitdiff
path: root/gcc/melt/generated/warmelt-debug+02.cc
diff options
context:
space:
mode:
authorbstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4>2013-10-15 09:03:15 +0000
committerbstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4>2013-10-15 09:03:15 +0000
commit3867bd5f08f37db8bcfe9c29f6c0af39376aa41e (patch)
tree74af6d2d70e66a5a076b787008aecf1cc84099eb /gcc/melt/generated/warmelt-debug+02.cc
parent97f8a54cc04a97ce9a23bf7a40caa2dd47bff894 (diff)
downloadgcc-3867bd5f08f37db8bcfe9c29f6c0af39376aa41e.tar.gz
2013-10-15 Basile Starynkevitch <basile@starynkevitch.net>
{{Regenerate all}} * melt/generated/meltrunsup.h: Regenerate. * melt/generated/meltrunsup-inc.cc: Regenerate. * melt/generated/warmelt-base+01.cc: Regenerate. * melt/generated/warmelt-base+02.cc: Regenerate. * melt/generated/warmelt-base.cc: Regenerate. * melt/generated/warmelt-base+meltdesc.c: Regenerate. * melt/generated/warmelt-base+melttime.h: Regenerate. * melt/generated/warmelt-debug+01.cc: Regenerate. * melt/generated/warmelt-debug+02.cc: Regenerate. * melt/generated/warmelt-debug.cc: Regenerate. * melt/generated/warmelt-debug+meltdesc.c: Regenerate. * melt/generated/warmelt-debug+melttime.h: Regenerate. * melt/generated/warmelt-first+01.cc: Regenerate. * melt/generated/warmelt-first+02.cc: Regenerate. * melt/generated/warmelt-first.cc: Regenerate. * melt/generated/warmelt-first+meltdesc.c: Regenerate. * melt/generated/warmelt-first+melttime.h: 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.cc: Regenerate. * melt/generated/warmelt-genobj+meltdesc.c: Regenerate. * melt/generated/warmelt-genobj+melttime.h: 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.cc: Regenerate. * melt/generated/warmelt-hooks+meltdesc.c: Regenerate. * melt/generated/warmelt-hooks+melttime.h: 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.cc: Regenerate. * melt/generated/warmelt-macro+meltdesc.c: Regenerate. * melt/generated/warmelt-macro+melttime.h: 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.cc: Regenerate. * melt/generated/warmelt-modes+meltdesc.c: Regenerate. * melt/generated/warmelt-modes+melttime.h: 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.cc: Regenerate. * melt/generated/warmelt-normal+meltdesc.c: Regenerate. * melt/generated/warmelt-normal+melttime.h: 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.cc: Regenerate. * melt/generated/warmelt-normatch+meltdesc.c: Regenerate. * melt/generated/warmelt-normatch+melttime.h: 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.cc: Regenerate. * melt/generated/warmelt-outobj+meltdesc.c: Regenerate. * melt/generated/warmelt-outobj+melttime.h: Regenerate. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@203590 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/melt/generated/warmelt-debug+02.cc')
-rw-r--r--gcc/melt/generated/warmelt-debug+02.cc2754
1 files changed, 1836 insertions, 918 deletions
diff --git a/gcc/melt/generated/warmelt-debug+02.cc b/gcc/melt/generated/warmelt-debug+02.cc
index 1dc943fa110..84fd7cd35c6 100644
--- a/gcc/melt/generated/warmelt-debug+02.cc
+++ b/gcc/melt/generated/warmelt-debug+02.cc
@@ -425,7 +425,8 @@ meltrout_33_WARMELTmiDEBUG_LAMBDA_cl6(meltclosure_ptr_t meltclosp_, melt_ptr_t m
/* end of frame for routine meltrout_33_WARMELTmiDEBUG_LAMBDA_cl6 fromline 1723 */
- /* 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 1747*/
/*classyprocarg meltrout_33_WARMELTmiDEBUG_LAMBDA_cl6 fromline 1752*/
#if ENABLE_CHECKING
@@ -438,7 +439,8 @@ 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_;
@@ -448,12 +450,14 @@ meltrout_33_WARMELTmiDEBUG_LAMBDA_cl6(meltclosure_ptr_t meltclosp_, melt_ptr_t m
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1173:/ 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);
;
@@ -468,10 +472,12 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1174:/ 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:1175:/ blockmultialloc");
/*multiallocblock*/
@@ -484,7 +490,8 @@ 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;
@@ -510,13 +517,16 @@ 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:1175:/ 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,7 +535,8 @@ 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));;
{
@@ -535,13 +546,17 @@ meltlab_endgetargs:
;
MELT_LOCATION("warmelt-debug.melt:1174:/ 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*/
}
@@ -623,7 +638,8 @@ meltrout_34_WARMELTmiDEBUG_LAMBDA_cl7(meltclosure_ptr_t meltclosp_, melt_ptr_t m
/* end of frame for routine meltrout_34_WARMELTmiDEBUG_LAMBDA_cl7 fromline 1723 */
- /* 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 1747*/
/*classyprocarg meltrout_34_WARMELTmiDEBUG_LAMBDA_cl7 fromline 1752*/
#if ENABLE_CHECKING
@@ -636,7 +652,8 @@ 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_;
@@ -646,12 +663,14 @@ meltrout_34_WARMELTmiDEBUG_LAMBDA_cl7(meltclosure_ptr_t meltclosp_, melt_ptr_t m
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1185:/ 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);
;
@@ -666,22 +685,28 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1186:/ 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();
@@ -703,29 +728,39 @@ 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:1186:/ 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:1185:/ quasiblock");
- /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V4*/ meltfptr[3];;
+ /*_._RETVAL___V1*/
+ meltfptr[0] = /*_.LET___V4*/ meltfptr[3];;
{
MELT_LOCATION("warmelt-debug.melt:1185:/ locexp");
@@ -740,11 +775,13 @@ 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 ;
}
;
@@ -825,7 +862,8 @@ meltrout_35_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD(meltclosure_ptr_t meltclosp_
/* end of frame for routine meltrout_35_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD fromline 1723 */
- /* 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 1747*/
/*classyprocarg meltrout_35_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD fromline 1752*/
#if ENABLE_CHECKING
@@ -838,7 +876,8 @@ 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_;
@@ -848,19 +887,22 @@ meltrout_35_WARMELTmiDEBUG_DBGOUT_BUCKETLONG_METHOD(meltclosure_ptr_t meltclosp_
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1221:/ 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:
@@ -880,10 +922,12 @@ 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:1222:/ 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);;
@@ -912,25 +956,31 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1222;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
- /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.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:1222:/ 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:1222:/ 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*/
@@ -948,10 +998,12 @@ 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:1223:/ 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);;
@@ -980,25 +1032,31 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1223;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1];
- /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.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:1223:/ 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:1223:/ 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*/
@@ -1009,28 +1067,35 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1224:/ 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:1225:/ getslot");
{
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/;
melt_object_get_field(slot,obj, 0, "DBGI_OUT");
- /*_.SBUF__V12*/ meltfptr[11] = slot;
+ /*_.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:1230:/ 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*/
@@ -1041,7 +1106,8 @@ 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;
};
;
}
@@ -1052,13 +1118,16 @@ 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:1233:/ 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*/
@@ -1069,7 +1138,8 @@ 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;
};
;
}
@@ -1093,16 +1163,19 @@ 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:1234:/ 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];;
@@ -1118,17 +1191,20 @@ 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:1234:/ 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*/
@@ -1151,10 +1227,12 @@ 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();
@@ -1168,25 +1246,32 @@ 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:1234:/ 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:1234:/ 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 ;
}
;
}
@@ -1200,10 +1285,12 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
/*^compute*/
- /*_#lteqI__L12*/ meltfnum[9] =
+ /*_#lteqI__L12*/
+ meltfnum[9] =
((/*_#DEPTH__L1*/ meltfnum[0]) <= (0));;
MELT_LOCATION("warmelt-debug.melt:1239:/ 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];;
@@ -1212,11 +1299,13 @@ meltlab_endgetargs:
{
MELT_LOCATION("warmelt-debug.melt:1239:/ cond.else");
- /*_#OR___L13*/ meltfnum[12] = /*_#XNUM__L7*/ meltfnum[6];;
+ /*_#OR___L13*/
+ meltfnum[12] = /*_#XNUM__L7*/ meltfnum[6];;
}
;
MELT_LOCATION("warmelt-debug.melt:1239:/ cond");
- /*cond*/ if (/*_#OR___L13*/ meltfnum[12]) /*then*/
+ /*cond*/
+ if (/*_#OR___L13*/ meltfnum[12]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -1241,21 +1330,26 @@ 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:1239:/ 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:1239:/ 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 ;
}
;
}
@@ -1268,8 +1362,10 @@ 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
@@ -1277,14 +1373,17 @@ 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:*/
@@ -1311,7 +1410,8 @@ 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);
}
;
@@ -1326,34 +1426,43 @@ 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:1243:/ 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:1250:/ cond");
- /*cond*/ if (/*_#BUCKETLONG_COUNT__L15*/ meltfnum[14]) /*then*/
+ /*cond*/
+ if (/*_#BUCKETLONG_COUNT__L15*/ meltfnum[14]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -1371,7 +1480,8 @@ meltlab_endgetargs:
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1250:/ clear");
- /*clear*/ /*_#plI__L16*/ meltfnum[15] = 0 ;
+ /*clear*/ /*_#plI__L16*/
+ meltfnum[15] = 0 ;
}
;
} /*noelse*/
@@ -1386,56 +1496,78 @@ 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:1224:/ 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:1221:/ quasiblock");
- /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[8];;
+ /*_._RETVAL___V1*/
+ meltfptr[0] = /*_.LET___V10*/ meltfptr[8];;
{
MELT_LOCATION("warmelt-debug.melt:1221:/ locexp");
@@ -1450,15 +1582,19 @@ 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 ;
}
;
@@ -1539,7 +1675,8 @@ meltrout_36_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD(meltclosure_ptr_t meltclosp_,
/* end of frame for routine meltrout_36_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD fromline 1723 */
- /* 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 1747*/
/*classyprocarg meltrout_36_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD fromline 1752*/
#if ENABLE_CHECKING
@@ -1552,7 +1689,8 @@ 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_;
@@ -1562,19 +1700,22 @@ meltrout_36_WARMELTmiDEBUG_DBGOUT_ANYOBJECT_METHOD(meltclosure_ptr_t meltclosp_,
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1258:/ 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:
@@ -1594,10 +1735,12 @@ 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:1259:/ 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);;
@@ -1626,25 +1769,31 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1259;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
- /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.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:1259:/ 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:1259:/ 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*/
@@ -1662,10 +1811,12 @@ 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:1260:/ 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);;
@@ -1694,25 +1845,31 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1260;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1];
- /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.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:1260:/ 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:1260:/ 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*/
@@ -1723,10 +1880,12 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1261:/ 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:1262:/ 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*/
@@ -1737,7 +1896,8 @@ 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;
};
;
}
@@ -1748,20 +1908,23 @@ 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:1263:/ getslot");
{
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/;
melt_object_get_field(slot,obj, 0, "DBGI_OUT");
- /*_.SBUF__V12*/ meltfptr[11] = slot;
+ /*_.SBUF__V12*/
+ meltfptr[11] = slot;
};
;
{
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]), ( "|"));
}
;
MELT_LOCATION("warmelt-debug.melt:1265:/ getslot");
@@ -1769,7 +1932,8 @@ 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;
};
;
@@ -1782,10 +1946,12 @@ meltlab_endgetargs:
{
MELT_LOCATION("warmelt-debug.melt:1266:/ 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])));;
{
@@ -1796,13 +1962,15 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1268:/ 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:1270:/ cond");
- /*cond*/ if (/*_#ONUM__L6*/ meltfnum[5]) /*then*/
+ /*cond*/
+ if (/*_#ONUM__L6*/ meltfnum[5]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -1812,7 +1980,8 @@ meltlab_endgetargs:
{
MELT_LOCATION("warmelt-debug.melt:1271:/ 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]), ( "#"));
}
;
@@ -1831,17 +2000,21 @@ meltlab_endgetargs:
;
MELT_LOCATION("warmelt-debug.melt:1268:/ 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:1274:/ cond");
- /*cond*/ if (/*_#ltI__L8*/ meltfnum[7]) /*then*/
+ /*cond*/
+ if (/*_#ltI__L8*/ meltfnum[7]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -1851,10 +2024,12 @@ meltlab_endgetargs:
{
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]), ( "{"));
}
;
- /*_#plI__L9*/ meltfnum[8] =
+ /*_#plI__L9*/
+ meltfnum[8] =
((/*_#DEPTH__L1*/ meltfnum[0]) + (1));;
MELT_CHECK_SIGNAL();
@@ -1872,13 +2047,15 @@ 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:1277:/ 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:1274:/ quasiblock");
@@ -1887,39 +2064,51 @@ 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:1261:/ 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:1258:/ 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 ;
}
;
@@ -2000,7 +2189,8 @@ meltrout_37_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD(meltclosure_ptr_t meltclosp_, m
/* end of frame for routine meltrout_37_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD fromline 1723 */
- /* 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 1747*/
/*classyprocarg meltrout_37_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD fromline 1752*/
#if ENABLE_CHECKING
@@ -2013,7 +2203,8 @@ 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_;
@@ -2023,19 +2214,22 @@ meltrout_37_WARMELTmiDEBUG_DBGOUT_ANYRECV_METHOD(meltclosure_ptr_t meltclosp_, m
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1283:/ 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:
@@ -2055,10 +2249,12 @@ 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:1284:/ 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);;
@@ -2087,25 +2283,31 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1284;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
- /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.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:1284:/ 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:1284:/ 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*/
@@ -2116,29 +2318,34 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1285:/ 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:1286:/ getslot");
{
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/;
melt_object_get_field(slot,obj, 0, "DBGI_OUT");
- /*_.SBUF__V8*/ meltfptr[4] = slot;
+ /*_.SBUF__V8*/
+ meltfptr[4] = slot;
};
;
{
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_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:1288:/ cond");
- /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
+ /*cond*/
+ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -2150,7 +2357,8 @@ 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;
};
;
@@ -2163,7 +2371,8 @@ meltlab_endgetargs:
/*epilog*/
/*^clear*/
- /*clear*/ /*_.NAMED_NAME__V9*/ meltfptr[8] = 0 ;
+ /*clear*/ /*_.NAMED_NAME__V9*/
+ meltfptr[8] = 0 ;
}
;
} /*noelse*/
@@ -2171,23 +2380,28 @@ meltlab_endgetargs:
{
MELT_LOCATION("warmelt-debug.melt:1289:/ 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:1285:/ 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:1283:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ;
+ /*clear*/ /*_.IFCPP___V4*/
+ meltfptr[3] = 0 ;
}
;
@@ -2268,7 +2482,8 @@ meltrout_38_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD(meltclosure_ptr_t meltcl
/* end of frame for routine meltrout_38_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD fromline 1723 */
- /* 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 1747*/
/*classyprocarg meltrout_38_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD fromline 1752*/
#if ENABLE_CHECKING
@@ -2281,7 +2496,8 @@ 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_;
@@ -2291,19 +2507,22 @@ meltrout_38_WARMELTmiDEBUG_DBGOUTAGAIN_ANYOBJECT_METHOD(meltclosure_ptr_t meltcl
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1294:/ 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:
@@ -2323,10 +2542,12 @@ 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:1295:/ 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);;
@@ -2355,25 +2576,31 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1295;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
- /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.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:1295:/ 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:1295:/ 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*/
@@ -2391,10 +2618,12 @@ 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:1296:/ 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);;
@@ -2423,25 +2652,31 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1296;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1];
- /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.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:1296:/ 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:1296:/ 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*/
@@ -2452,22 +2687,26 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1297:/ 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:1298:/ getslot");
{
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/;
melt_object_get_field(slot,obj, 0, "DBGI_OUT");
- /*_.SBUF__V11*/ meltfptr[4] = slot;
+ /*_.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: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]), ( "^^|"));
}
;
MELT_LOCATION("warmelt-debug.melt:1302:/ getslot");
@@ -2475,7 +2714,8 @@ 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;
};
;
@@ -2488,10 +2728,12 @@ meltlab_endgetargs:
{
MELT_LOCATION("warmelt-debug.melt:1303:/ 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])));;
{
@@ -2503,7 +2745,8 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
MELT_LOCATION("warmelt-debug.melt:1305:/ cond");
- /*cond*/ if (/*_#ONUM__L4*/ meltfnum[1]) /*then*/
+ /*cond*/
+ if (/*_#ONUM__L4*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -2513,7 +2756,8 @@ meltlab_endgetargs:
{
MELT_LOCATION("warmelt-debug.melt:1306:/ 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]), ( "#"));
}
;
@@ -2532,24 +2776,31 @@ meltlab_endgetargs:
;
MELT_LOCATION("warmelt-debug.melt:1297:/ 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:1294:/ 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 ;
}
;
@@ -2630,7 +2881,8 @@ meltrout_39_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD(meltclosure_ptr_t meltclosp
/* end of frame for routine meltrout_39_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD fromline 1723 */
- /* 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 1747*/
/*classyprocarg meltrout_39_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD fromline 1752*/
#if ENABLE_CHECKING
@@ -2643,7 +2895,8 @@ 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_;
@@ -2653,19 +2906,22 @@ meltrout_39_WARMELTmiDEBUG_DBGOUT_NAMEDOBJECT_METHOD(meltclosure_ptr_t meltclosp
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1312:/ 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:
@@ -2685,10 +2941,12 @@ 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:1313:/ 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);;
@@ -2717,25 +2975,31 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1313;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
- /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.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:1313:/ 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:1313:/ 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*/
@@ -2753,10 +3017,12 @@ 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:1314:/ 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);;
@@ -2785,25 +3051,31 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1314;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1];
- /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.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:1314:/ 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:1314:/ 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*/
@@ -2814,14 +3086,16 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1315:/ 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:1316:/ getslot");
{
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/;
melt_object_get_field(slot,obj, 0, "DBGI_OUT");
- /*_.OUT__V11*/ meltfptr[4] = slot;
+ /*_.OUT__V11*/
+ meltfptr[4] = slot;
};
;
MELT_LOCATION("warmelt-debug.melt:1317:/ getslot");
@@ -2829,7 +3103,8 @@ 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:1318:/ getslot");
@@ -2837,11 +3112,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, "PROP_TABLE");
- /*_.OPROP__V13*/ meltfptr[12] = slot;
+ /*_.OPROP__V13*/
+ meltfptr[12] = slot;
};
;
MELT_LOCATION("warmelt-debug.melt:1319:/ 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*/
@@ -2852,7 +3129,8 @@ 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;
};
;
}
@@ -2863,7 +3141,8 @@ 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
@@ -2875,10 +3154,12 @@ 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:1321:/ 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);;
@@ -2907,25 +3188,31 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1321;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUT__V11*/ meltfptr[4];
- /*_.MELT_ASSERT_FAILURE_FUN__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.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:1321:/ 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:1321:/ 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*/
@@ -2956,7 +3243,8 @@ 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;
};
;
@@ -2971,7 +3259,8 @@ 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])));;
{
@@ -2982,10 +3271,12 @@ 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:1328:/ cond");
- /*cond*/ if (/*_#ltI__L7*/ meltfnum[6]) /*then*/
+ /*cond*/
+ if (/*_#ltI__L7*/ meltfnum[6]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -2995,13 +3286,15 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1329:/ 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:1331:/ cond");
- /*cond*/ if (/*_#ONUM__L8*/ meltfnum[7]) /*then*/
+ /*cond*/
+ if (/*_#ONUM__L8*/ meltfnum[7]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -3038,7 +3331,8 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
MELT_LOCATION("warmelt-debug.melt:1336:/ cond");
- /*cond*/ if (/*_.OPROP__V13*/ meltfptr[12]) /*then*/
+ /*cond*/
+ if (/*_.OPROP__V13*/ meltfptr[12]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -3051,7 +3345,8 @@ 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();
@@ -3065,23 +3360,29 @@ 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:1337:/ 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:1336:/ 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 ;
}
;
}
@@ -3092,7 +3393,8 @@ meltlab_endgetargs:
}
;
/*^compute*/
- /*_#plI__L10*/ meltfnum[8] =
+ /*_#plI__L10*/
+ meltfnum[8] =
((/*_#DEPTH__L1*/ meltfnum[0]) + (3));;
MELT_CHECK_SIGNAL();
@@ -3110,7 +3412,8 @@ 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);
}
;
@@ -3121,13 +3424,17 @@ meltlab_endgetargs:
;
MELT_LOCATION("warmelt-debug.melt:1329:/ 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*/
}
;
@@ -3135,34 +3442,46 @@ meltlab_endgetargs:
;
MELT_LOCATION("warmelt-debug.melt:1315:/ 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:1312:/ 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 ;
}
;
@@ -3243,7 +3562,8 @@ meltrout_40_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD(meltclosure_ptr_t melt
/* end of frame for routine meltrout_40_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD fromline 1723 */
- /* 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 1747*/
/*classyprocarg meltrout_40_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD fromline 1752*/
#if ENABLE_CHECKING
@@ -3256,7 +3576,8 @@ 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_;
@@ -3266,19 +3587,22 @@ meltrout_40_WARMELTmiDEBUG_DBGOUTAGAIN_NAMEDOBJECT_METHOD(meltclosure_ptr_t melt
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1349:/ 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:
@@ -3298,10 +3622,12 @@ 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:1350:/ 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);;
@@ -3330,25 +3656,31 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1350;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
- /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.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:1350:/ 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:1350:/ 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*/
@@ -3366,10 +3698,12 @@ 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:1351:/ 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);;
@@ -3398,25 +3732,31 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1351;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1];
- /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.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:1351:/ 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:1351:/ 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*/
@@ -3427,14 +3767,16 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1352:/ 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:1353:/ getslot");
{
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/;
melt_object_get_field(slot,obj, 0, "DBGI_OUT");
- /*_.OUT__V11*/ meltfptr[4] = slot;
+ /*_.OUT__V11*/
+ meltfptr[4] = slot;
};
;
MELT_LOCATION("warmelt-debug.melt:1354:/ getslot");
@@ -3442,7 +3784,8 @@ 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;
};
;
@@ -3468,7 +3811,8 @@ 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;
};
;
@@ -3483,7 +3827,8 @@ 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])));;
{
@@ -3493,24 +3838,31 @@ meltlab_endgetargs:
;
MELT_LOCATION("warmelt-debug.melt:1352:/ 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:1349:/ 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 ;
}
;
@@ -3591,7 +3943,8 @@ meltrout_41_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD(meltclosure_ptr_t meltclosp
/* end of frame for routine meltrout_41_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD fromline 1723 */
- /* 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 1747*/
/*classyprocarg meltrout_41_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD fromline 1752*/
#if ENABLE_CHECKING
@@ -3604,7 +3957,8 @@ 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_;
@@ -3614,19 +3968,22 @@ meltrout_41_WARMELTmiDEBUG_DBGOUTAGAIN_SYMBOL_METHOD(meltclosure_ptr_t meltclosp
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1367:/ 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:
@@ -3646,10 +4003,12 @@ 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:1368:/ 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);;
@@ -3678,25 +4037,31 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1368;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
- /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.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:1368:/ 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:1368:/ 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*/
@@ -3714,10 +4079,12 @@ 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:1369:/ 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);;
@@ -3746,25 +4113,31 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1369;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1];
- /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.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:1369:/ 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:1369:/ 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*/
@@ -3780,7 +4153,8 @@ 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:1371:/ getslot");
@@ -3788,10 +4162,12 @@ 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])));;
{
@@ -3811,7 +4187,8 @@ 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])));;
{
@@ -3823,7 +4200,8 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
MELT_LOCATION("warmelt-debug.melt:1378:/ cond");
- /*cond*/ if (/*_#SNUM__L4*/ meltfnum[1]) /*then*/
+ /*cond*/
+ if (/*_#SNUM__L4*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -3852,22 +4230,28 @@ meltlab_endgetargs:
;
MELT_LOCATION("warmelt-debug.melt:1370:/ 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:1367:/ 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 ;
}
;
@@ -3948,7 +4332,8 @@ meltrout_42_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD(meltclosure_ptr_t meltclosp_, me
/* end of frame for routine meltrout_42_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD fromline 1723 */
- /* 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 1747*/
/*classyprocarg meltrout_42_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD fromline 1752*/
#if ENABLE_CHECKING
@@ -3961,7 +4346,8 @@ 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_;
@@ -3971,19 +4357,22 @@ meltrout_42_WARMELTmiDEBUG_DBGOUT_SYMBOL_METHOD(meltclosure_ptr_t meltclosp_, me
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1385:/ 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:
@@ -4003,10 +4392,12 @@ 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:1386:/ 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);;
@@ -4035,25 +4426,31 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1386;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
- /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.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:1386:/ 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:1386:/ 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*/
@@ -4071,10 +4468,12 @@ 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:1387:/ 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,25 +4502,31 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1387;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1];
- /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.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:1387:/ 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:1387:/ 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*/
@@ -4133,10 +4538,12 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
/*^compute*/
- /*_#lteqI__L4*/ meltfnum[1] =
+ /*_#lteqI__L4*/
+ meltfnum[1] =
((/*_#DEPTH__L1*/ meltfnum[0]) <= (0));;
MELT_LOCATION("warmelt-debug.melt:1388:/ cond");
- /*cond*/ if (/*_#lteqI__L4*/ meltfnum[1]) /*then*/
+ /*cond*/
+ if (/*_#lteqI__L4*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -4155,14 +4562,17 @@ 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:1388:/ clear");
- /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4] = 0 ;
+ /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/
+ meltfptr[4] = 0 ;
}
;
}
@@ -4185,14 +4595,17 @@ 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:1388:/ clear");
- /*clear*/ /*_.DBGOUTAGAIN_SYMBOL_METHOD__V12*/ meltfptr[4] = 0 ;
+ /*clear*/ /*_.DBGOUTAGAIN_SYMBOL_METHOD__V12*/
+ meltfptr[4] = 0 ;
}
;
}
@@ -4203,7 +4616,8 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1385:/ quasiblock");
- /*_._RETVAL___V1*/ meltfptr[0] = /*_._IFELSE___V10*/ meltfptr[8];;
+ /*_._RETVAL___V1*/
+ meltfptr[0] = /*_._IFELSE___V10*/ meltfptr[8];;
{
MELT_LOCATION("warmelt-debug.melt:1385:/ locexp");
@@ -4218,17 +4632,22 @@ 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 ;
}
;
@@ -4309,7 +4728,8 @@ meltrout_43_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD(meltclosure_ptr_t meltclosp_, mel
/* end of frame for routine meltrout_43_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD fromline 1723 */
- /* 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 1747*/
/*classyprocarg meltrout_43_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD fromline 1752*/
#if ENABLE_CHECKING
@@ -4322,7 +4742,8 @@ 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_;
@@ -4332,19 +4753,22 @@ meltrout_43_WARMELTmiDEBUG_DBGOUT_CLASS_METHOD(meltclosure_ptr_t meltclosp_, mel
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1395:/ 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:
@@ -4364,10 +4788,12 @@ 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:1396:/ 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);;
@@ -4396,25 +4822,31 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1396;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
- /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.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:1396:/ 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:1396:/ 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*/
@@ -4432,10 +4864,12 @@ 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:1397:/ 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);;
@@ -4464,25 +4898,31 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1397;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1];
- /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.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:1397:/ 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:1397:/ 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*/
@@ -4494,10 +4934,12 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
/*^compute*/
- /*_#lteqI__L4*/ meltfnum[1] =
+ /*_#lteqI__L4*/
+ meltfnum[1] =
((/*_#DEPTH__L1*/ meltfnum[0]) <= (1));;
MELT_LOCATION("warmelt-debug.melt:1398:/ cond");
- /*cond*/ if (/*_#lteqI__L4*/ meltfnum[1]) /*then*/
+ /*cond*/
+ if (/*_#lteqI__L4*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -4516,14 +4958,17 @@ 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:1398:/ clear");
- /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4] = 0 ;
+ /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/
+ meltfptr[4] = 0 ;
}
;
}
@@ -4546,14 +4991,17 @@ 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:1398:/ clear");
- /*clear*/ /*_.DBGOUTAGAIN_NAMEDOBJECT_METHOD__V12*/ meltfptr[4] = 0 ;
+ /*clear*/ /*_.DBGOUTAGAIN_NAMEDOBJECT_METHOD__V12*/
+ meltfptr[4] = 0 ;
}
;
}
@@ -4564,7 +5012,8 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1395:/ quasiblock");
- /*_._RETVAL___V1*/ meltfptr[0] = /*_._IFELSE___V10*/ meltfptr[8];;
+ /*_._RETVAL___V1*/
+ meltfptr[0] = /*_._IFELSE___V10*/ meltfptr[8];;
{
MELT_LOCATION("warmelt-debug.melt:1395:/ locexp");
@@ -4579,17 +5028,22 @@ 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 ;
}
;
@@ -4670,7 +5124,8 @@ meltrout_44_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD(meltclosure_ptr_t meltclos
/* end of frame for routine meltrout_44_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD fromline 1723 */
- /* 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 1747*/
/*classyprocarg meltrout_44_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD fromline 1752*/
#if ENABLE_CHECKING
@@ -4683,7 +5138,8 @@ 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_;
@@ -4693,19 +5149,22 @@ meltrout_44_WARMELTmiDEBUG_DBGOUTAGAIN_KEYWORD_METHOD(meltclosure_ptr_t meltclos
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1405:/ 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:
@@ -4725,10 +5184,12 @@ 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:1406:/ 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);;
@@ -4757,25 +5218,31 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1406;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
- /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.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:1406:/ 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:1406:/ 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*/
@@ -4793,10 +5260,12 @@ 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:1407:/ 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);;
@@ -4825,25 +5294,31 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1407;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1];
- /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.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:1407:/ 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:1407:/ 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*/
@@ -4859,7 +5334,8 @@ 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:1409:/ getslot");
@@ -4867,7 +5343,8 @@ 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;
};
;
@@ -4888,7 +5365,8 @@ 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])));;
{
@@ -4898,20 +5376,25 @@ meltlab_endgetargs:
;
MELT_LOCATION("warmelt-debug.melt:1408:/ 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:1405:/ 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 ;
}
;
@@ -4992,7 +5475,8 @@ meltrout_45_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD(meltclosure_ptr_t meltclosp_, m
/* end of frame for routine meltrout_45_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD fromline 1723 */
- /* 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 1747*/
/*classyprocarg meltrout_45_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD fromline 1752*/
#if ENABLE_CHECKING
@@ -5005,7 +5489,8 @@ 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_;
@@ -5015,19 +5500,22 @@ meltrout_45_WARMELTmiDEBUG_DBGOUT_KEYWORD_METHOD(meltclosure_ptr_t meltclosp_, m
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1418:/ 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:
@@ -5047,10 +5535,12 @@ 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:1419:/ 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);;
@@ -5079,25 +5569,31 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1419;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
- /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.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:1419:/ 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:1419:/ 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*/
@@ -5115,10 +5611,12 @@ 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:1420:/ 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);;
@@ -5147,25 +5645,31 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1420;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1];
- /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.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:1420:/ 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:1420:/ 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*/
@@ -5177,10 +5681,12 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
/*^compute*/
- /*_#lteqI__L4*/ meltfnum[1] =
+ /*_#lteqI__L4*/
+ meltfnum[1] =
((/*_#DEPTH__L1*/ meltfnum[0]) <= (0));;
MELT_LOCATION("warmelt-debug.melt:1421:/ cond");
- /*cond*/ if (/*_#lteqI__L4*/ meltfnum[1]) /*then*/
+ /*cond*/
+ if (/*_#lteqI__L4*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -5199,14 +5705,17 @@ 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:1421:/ clear");
- /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4] = 0 ;
+ /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/
+ meltfptr[4] = 0 ;
}
;
}
@@ -5229,14 +5738,17 @@ 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:1421:/ clear");
- /*clear*/ /*_.DBGOUTAGAIN_KEYWORD_METHOD__V12*/ meltfptr[4] = 0 ;
+ /*clear*/ /*_.DBGOUTAGAIN_KEYWORD_METHOD__V12*/
+ meltfptr[4] = 0 ;
}
;
}
@@ -5247,7 +5759,8 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1418:/ quasiblock");
- /*_._RETVAL___V1*/ meltfptr[0] = /*_._IFELSE___V10*/ meltfptr[8];;
+ /*_._RETVAL___V1*/
+ meltfptr[0] = /*_._IFELSE___V10*/ meltfptr[8];;
{
MELT_LOCATION("warmelt-debug.melt:1418:/ locexp");
@@ -5262,17 +5775,22 @@ 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 ;
}
;
@@ -5353,7 +5871,8 @@ meltrout_46_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD(meltclosure_ptr_t me
/* end of frame for routine meltrout_46_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD fromline 1723 */
- /* 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 1747*/
/*classyprocarg meltrout_46_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD fromline 1752*/
#if ENABLE_CHECKING
@@ -5366,7 +5885,8 @@ 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_;
@@ -5376,19 +5896,22 @@ meltrout_46_WARMELTmiDEBUG_DBGOUTAGAIN_CLONED_SYMBOL_METHOD(meltclosure_ptr_t me
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1428:/ 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:
@@ -5401,14 +5924,16 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1429:/ 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:1430:/ getslot");
{
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/;
melt_object_get_field(slot,obj, 0, "DBGI_OUT");
- /*_.OUT__V5*/ meltfptr[4] = slot;
+ /*_.OUT__V5*/
+ meltfptr[4] = slot;
};
;
MELT_LOCATION("warmelt-debug.melt:1431:/ getslot");
@@ -5416,17 +5941,20 @@ 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:1433:/ getslot");
{
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.SELF__V2*/ meltfptr[1]) /*=obj*/;
melt_object_get_field(slot,obj, 1, "NAMED_NAME");
- /*_.ONAM__V7*/ meltfptr[6] = slot;
+ /*_.ONAM__V7*/
+ meltfptr[6] = slot;
};
;
@@ -5459,7 +5987,8 @@ 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])));;
{
@@ -5469,17 +5998,23 @@ meltlab_endgetargs:
;
MELT_LOCATION("warmelt-debug.melt:1429:/ 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*/
}
@@ -5561,7 +6096,8 @@ meltrout_47_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD(meltclosure_ptr_t meltclo
/* end of frame for routine meltrout_47_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD fromline 1723 */
- /* 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 1747*/
/*classyprocarg meltrout_47_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD fromline 1752*/
#if ENABLE_CHECKING
@@ -5574,7 +6110,8 @@ 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_;
@@ -5584,19 +6121,22 @@ meltrout_47_WARMELTmiDEBUG_DBGOUT_CLONED_SYMBOL_METHOD(meltclosure_ptr_t meltclo
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1443:/ 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:
@@ -5616,10 +6156,12 @@ 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:1444:/ 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);;
@@ -5648,25 +6190,31 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1444;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
- /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.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:1444:/ 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:1444:/ 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*/
@@ -5684,10 +6232,12 @@ 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:1445:/ 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);;
@@ -5716,25 +6266,31 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1445;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1];
- /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.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:1445:/ 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:1445:/ 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*/
@@ -5746,10 +6302,12 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
/*^compute*/
- /*_#lteqI__L4*/ meltfnum[1] =
+ /*_#lteqI__L4*/
+ meltfnum[1] =
((/*_#DEPTH__L1*/ meltfnum[0]) <= (0));;
MELT_LOCATION("warmelt-debug.melt:1446:/ cond");
- /*cond*/ if (/*_#lteqI__L4*/ meltfnum[1]) /*then*/
+ /*cond*/
+ if (/*_#lteqI__L4*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -5768,14 +6326,17 @@ 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:1446:/ clear");
- /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4] = 0 ;
+ /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/
+ meltfptr[4] = 0 ;
}
;
}
@@ -5798,14 +6359,17 @@ 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:1446:/ clear");
- /*clear*/ /*_.DBGOUTAGAIN_CLONED_SYMBOL_METHOD__V12*/ meltfptr[4] = 0 ;
+ /*clear*/ /*_.DBGOUTAGAIN_CLONED_SYMBOL_METHOD__V12*/
+ meltfptr[4] = 0 ;
}
;
}
@@ -5816,7 +6380,8 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1443:/ quasiblock");
- /*_._RETVAL___V1*/ meltfptr[0] = /*_._IFELSE___V10*/ meltfptr[8];;
+ /*_._RETVAL___V1*/
+ meltfptr[0] = /*_._IFELSE___V10*/ meltfptr[8];;
{
MELT_LOCATION("warmelt-debug.melt:1443:/ locexp");
@@ -5831,17 +6396,22 @@ 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 ;
}
;
@@ -5922,7 +6492,8 @@ meltrout_48_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD(meltclosure_ptr_t meltclosp
/* end of frame for routine meltrout_48_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD fromline 1723 */
- /* 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 1747*/
/*classyprocarg meltrout_48_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD fromline 1752*/
#if ENABLE_CHECKING
@@ -5935,7 +6506,8 @@ 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_;
@@ -5945,19 +6517,22 @@ meltrout_48_WARMELTmiDEBUG_DBGOUT_ENVIRONMENT_METHOD(meltclosure_ptr_t meltclosp
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1454:/ 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:
@@ -5977,10 +6552,12 @@ 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:1455:/ 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);;
@@ -6009,25 +6586,31 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1455;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V3*/ meltfptr[2];
- /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.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:1455:/ 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:1455:/ 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*/
@@ -6045,10 +6628,12 @@ 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:1456:/ 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);;
@@ -6077,25 +6662,31 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1456;
/*^apply.arg*/
argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.SELF__V2*/ meltfptr[1];
- /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0);
+ /*_.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:1456:/ 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:1456:/ 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*/
@@ -6106,26 +6697,31 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1457:/ 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:1458:/ getslot");
{
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/;
melt_object_get_field(slot,obj, 0, "DBGI_OUT");
- /*_.OUT__V11*/ meltfptr[4] = slot;
+ /*_.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:1461:/ cond");
- /*cond*/ if (/*_#eqeq__L5*/ meltfnum[4]) /*then*/
+ /*cond*/
+ if (/*_#eqeq__L5*/ meltfnum[4]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -6161,7 +6757,8 @@ 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;
};
;
@@ -6176,7 +6773,8 @@ meltlab_endgetargs:
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1461:/ clear");
- /*clear*/ /*_.NAMED_NAME__V12*/ meltfptr[11] = 0 ;
+ /*clear*/ /*_.NAMED_NAME__V12*/
+ meltfptr[11] = 0 ;
}
;
}
@@ -6187,7 +6785,8 @@ 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])));;
{
@@ -6199,7 +6798,8 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
MELT_LOCATION("warmelt-debug.melt:1469:/ cond");
- /*cond*/ if (/*_#ONUM__L4*/ meltfnum[1]) /*then*/
+ /*cond*/
+ if (/*_#ONUM__L4*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -6229,11 +6829,14 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1472:/ 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:1474:/ 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*/
@@ -6244,7 +6847,8 @@ 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;
};
;
}
@@ -6255,10 +6859,12 @@ 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:1477:/ loop");
/*loop*/
{
@@ -6274,10 +6880,12 @@ 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:1479:/ cond");
- /*cond*/ if (/*_#gtI__L10*/ meltfnum[9]) /*then*/
+ /*cond*/
+ if (/*_#gtI__L10*/ meltfnum[9]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -6285,12 +6893,14 @@ meltlabloop_DEPTHLOOP_1:;/*^loopbody*/
{
MELT_LOCATION("warmelt-debug.melt:1480:/ compute");
- /*_#TOODEEP__L8*/ meltfnum[7] = /*_#SETQ___L11*/ meltfnum[10] = 1;;
+ /*_#TOODEEP__L8*/
+ meltfnum[7] = /*_#SETQ___L11*/ meltfnum[10] = 1;;
MELT_LOCATION("warmelt-debug.melt:1481:/ quasiblock");
/*^compute*/
- /*_.DEPTHLOOP__V17*/ meltfptr[16] = /*reallynil*/ NULL ;;
+ /*_.DEPTHLOOP__V17*/
+ meltfptr[16] = /*reallynil*/ NULL ;;
/*^exit*/
/*exit*/
@@ -6304,7 +6914,8 @@ meltlabloop_DEPTHLOOP_1:;/*^loopbody*/
/*epilog*/
/*^clear*/
- /*clear*/ /*_#SETQ___L11*/ meltfnum[10] = 0 ;
+ /*clear*/ /*_#SETQ___L11*/
+ meltfnum[10] = 0 ;
}
;
} /*noelse*/
@@ -6312,10 +6923,12 @@ 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:1482:/ cond");
- /*cond*/ if (/*_#IS_NOT_A__L12*/ meltfnum[10]) /*then*/
+ /*cond*/
+ if (/*_#IS_NOT_A__L12*/ meltfnum[10]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -6326,7 +6939,8 @@ meltlabloop_DEPTHLOOP_1:;/*^loopbody*/
/*^compute*/
- /*_.DEPTHLOOP__V17*/ meltfptr[16] = /*reallynil*/ NULL ;;
+ /*_.DEPTHLOOP__V17*/
+ meltfptr[16] = /*reallynil*/ NULL ;;
/*^exit*/
/*exit*/
@@ -6339,12 +6953,15 @@ meltlabloop_DEPTHLOOP_1:;/*^loopbody*/
;
} /*noelse*/
;
- /*_#plI__L13*/ meltfnum[12] =
+ /*_#plI__L13*/
+ meltfnum[12] =
((/*_#DEPTH__L7*/ meltfnum[6]) + (1));;
MELT_LOCATION("warmelt-debug.melt:1484:/ compute");
- /*_#DEPTH__L7*/ meltfnum[6] = /*_#SETQ___L14*/ meltfnum[13] = /*_#plI__L13*/ meltfnum[12];;
+ /*_#DEPTH__L7*/
+ meltfnum[6] = /*_#SETQ___L14*/ meltfnum[13] = /*_#plI__L13*/ meltfnum[12];;
MELT_LOCATION("warmelt-debug.melt:1485:/ 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*/
@@ -6355,7 +6972,8 @@ 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;
};
;
}
@@ -6366,38 +6984,47 @@ meltlabloop_DEPTHLOOP_1:;/*^loopbody*/
}
;
MELT_LOCATION("warmelt-debug.melt:1485:/ 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:1477:/ 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:1487:/ cond");
- /*cond*/ if (/*_#TOODEEP__L8*/ meltfnum[7]) /*then*/
+ /*cond*/
+ if (/*_#TOODEEP__L8*/ meltfnum[7]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -6414,14 +7041,17 @@ 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:1487:/ clear");
- /*clear*/ /*_.ADD2OUT__V21*/ meltfptr[18] = 0 ;
+ /*clear*/ /*_.ADD2OUT__V21*/
+ meltfptr[18] = 0 ;
}
;
}
@@ -6444,14 +7074,17 @@ 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:1487:/ clear");
- /*clear*/ /*_.ADD2OUT__V22*/ meltfptr[18] = 0 ;
+ /*clear*/ /*_.ADD2OUT__V22*/
+ meltfptr[18] = 0 ;
}
;
}
@@ -6468,27 +7101,37 @@ 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:1472:/ 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:1491:/ locexp");
@@ -6498,32 +7141,39 @@ meltlabexit_DEPTHLOOP_1:;/*^loopepilog*/
MELT_LOCATION("warmelt-debug.melt:1492:/ 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:1493:/ getslot");
{
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DBGI__V3*/ meltfptr[2]) /*=obj*/;
melt_object_get_field(slot,obj, 2, "DBGI_MAXDEPTH");
- /*_.DBGI_MAXDEPTH__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:1496:/ cond");
- /*cond*/ if (/*_#ltI__L19*/ meltfnum[6]) /*then*/
+ /*cond*/
+ if (/*_#ltI__L19*/ meltfnum[6]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -6532,11 +7182,13 @@ 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:1496:/ clear");
- /*clear*/ /*_#SETQ___L21*/ meltfnum[8] = 0 ;
+ /*clear*/ /*_#SETQ___L21*/
+ meltfnum[8] = 0 ;
}
;
}
@@ -6553,10 +7205,12 @@ 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:1497:/ cond");
- /*cond*/ if (/*_#ltI__L22*/ meltfnum[8]) /*then*/
+ /*cond*/
+ if (/*_#ltI__L22*/ meltfnum[8]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -6566,11 +7220,13 @@ 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:1497:/ clear");
- /*clear*/ /*_#IS_A__L24*/ meltfnum[23] = 0 ;
+ /*clear*/ /*_#IS_A__L24*/
+ meltfnum[23] = 0 ;
}
;
}
@@ -6581,7 +7237,8 @@ meltlabexit_DEPTHLOOP_1:;/*^loopepilog*/
}
;
MELT_LOCATION("warmelt-debug.melt:1497:/ cond");
- /*cond*/ if (/*_#_IF___L23*/ meltfnum[22]) /*then*/
+ /*cond*/
+ if (/*_#_IF___L23*/ meltfnum[22]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -6591,10 +7248,12 @@ 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:1499:/ cond");
- /*cond*/ if (/*_#gtI__L25*/ meltfnum[23]) /*then*/
+ /*cond*/
+ if (/*_#gtI__L25*/ meltfnum[23]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -6604,10 +7263,12 @@ 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:1499:/ cond");
- /*cond*/ if (/*_#gtI__L26*/ meltfnum[25]) /*then*/
+ /*cond*/
+ if (/*_#gtI__L26*/ meltfnum[25]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -6619,7 +7280,8 @@ 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;
};
;
@@ -6631,7 +7293,8 @@ meltlabexit_DEPTHLOOP_1:;/*^loopepilog*/
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1499:/ clear");
- /*clear*/ /*_.DBGI_MAXDEPTH__V25*/ meltfptr[14] = 0 ;
+ /*clear*/ /*_.DBGI_MAXDEPTH__V25*/
+ meltfptr[14] = 0 ;
}
;
} /*noelse*/
@@ -6639,12 +7302,14 @@ 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();
@@ -6662,7 +7327,8 @@ 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);
}
;
@@ -6671,10 +7337,12 @@ 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:1502:/ cond");
- /*cond*/ if (/*_#ltI__L28*/ meltfnum[27]) /*then*/
+ /*cond*/
+ if (/*_#ltI__L28*/ meltfnum[27]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -6684,11 +7352,13 @@ 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:1502:/ clear");
- /*clear*/ /*_#IS_A__L30*/ meltfnum[29] = 0 ;
+ /*clear*/ /*_#IS_A__L30*/
+ meltfnum[29] = 0 ;
}
;
}
@@ -6699,7 +7369,8 @@ meltlabexit_DEPTHLOOP_1:;/*^loopepilog*/
}
;
MELT_LOCATION("warmelt-debug.melt:1502:/ cond");
- /*cond*/ if (/*_#_IF___L29*/ meltfnum[28]) /*then*/
+ /*cond*/
+ if (/*_#_IF___L29*/ meltfnum[28]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -6724,16 +7395,20 @@ 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:1502:/ 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 ;
}
;
}
@@ -6752,7 +7427,8 @@ 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*/
}
;
@@ -6763,7 +7439,8 @@ 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;
};
;
@@ -6778,42 +7455,58 @@ 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:1492:/ 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:1508:/ locexp");
@@ -6822,26 +7515,34 @@ meltlabexit_DEPTHLOOP_1:;/*^loopepilog*/
;
MELT_LOCATION("warmelt-debug.melt:1457:/ 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:1454:/ 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 ;
}
;
@@ -6922,7 +7623,8 @@ meltrout_49_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD(meltclosure_ptr_t meltclosp_
/* end of frame for routine meltrout_49_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD fromline 1723 */
- /* 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 1747*/
/*classyprocarg meltrout_49_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD fromline 1752*/
#if ENABLE_CHECKING
@@ -6935,7 +7637,8 @@ 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_;
@@ -6945,19 +7648,22 @@ meltrout_49_WARMELTmiDEBUG_DBGOUTAGAIN_CTYPE_METHOD(meltclosure_ptr_t meltclosp_
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1514:/ 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:
@@ -6970,14 +7676,16 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1515:/ 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:1516:/ 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:1517:/ getslot");
@@ -6985,7 +7693,8 @@ 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;
};
;
@@ -7006,7 +7715,8 @@ 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])));;
{
@@ -7016,13 +7726,17 @@ meltlab_endgetargs:
;
MELT_LOCATION("warmelt-debug.melt:1515:/ 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*/
}
@@ -7104,7 +7818,8 @@ meltrout_50_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD(meltclosure_ptr_t meltclosp_, mel
/* end of frame for routine meltrout_50_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD fromline 1723 */
- /* 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 1747*/
/*classyprocarg meltrout_50_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD fromline 1752*/
#if ENABLE_CHECKING
@@ -7117,7 +7832,8 @@ 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_;
@@ -7127,19 +7843,22 @@ meltrout_50_WARMELTmiDEBUG_DBGOUT_CTYPE_METHOD(meltclosure_ptr_t meltclosp_, mel
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1526:/ 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:
@@ -7159,10 +7878,12 @@ 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:1527:/ 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);;
@@ -7191,25 +7912,31 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1527;
/*^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:1527:/ 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:1527:/ 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*/
@@ -7227,10 +7954,12 @@ 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:1528:/ 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);;
@@ -7259,25 +7988,31 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1528;
/*^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:1528:/ 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:1528:/ 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*/
@@ -7289,10 +8024,12 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
/*^compute*/
- /*_#lteqI__L4*/ meltfnum[1] =
+ /*_#lteqI__L4*/
+ meltfnum[1] =
((/*_#DEPTH__L1*/ meltfnum[0]) <= (0));;
MELT_LOCATION("warmelt-debug.melt:1529:/ cond");
- /*cond*/ if (/*_#lteqI__L4*/ meltfnum[1]) /*then*/
+ /*cond*/
+ if (/*_#lteqI__L4*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -7311,14 +8048,17 @@ 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:1529:/ clear");
- /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/ meltfptr[4] = 0 ;
+ /*clear*/ /*_.DBGOUT_NAMEDOBJECT_METHOD__V11*/
+ meltfptr[4] = 0 ;
}
;
}
@@ -7341,14 +8081,17 @@ 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:1529:/ clear");
- /*clear*/ /*_.DBGOUTAGAIN_CTYPE_METHOD__V12*/ meltfptr[4] = 0 ;
+ /*clear*/ /*_.DBGOUTAGAIN_CTYPE_METHOD__V12*/
+ meltfptr[4] = 0 ;
}
;
}
@@ -7359,7 +8102,8 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1526:/ quasiblock");
- /*_._RETVAL___V1*/ meltfptr[0] = /*_._IFELSE___V10*/ meltfptr[8];;
+ /*_._RETVAL___V1*/
+ meltfptr[0] = /*_._IFELSE___V10*/ meltfptr[8];;
{
MELT_LOCATION("warmelt-debug.melt:1526:/ locexp");
@@ -7374,17 +8118,22 @@ 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 ;
}
;
@@ -7465,7 +8214,8 @@ meltrout_51_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD(meltclosure_ptr_t meltclosp_
/* end of frame for routine meltrout_51_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD fromline 1723 */
- /* 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 1747*/
/*classyprocarg meltrout_51_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD fromline 1752*/
#if ENABLE_CHECKING
@@ -7478,7 +8228,8 @@ 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_;
@@ -7488,19 +8239,22 @@ meltrout_51_WARMELTmiDEBUG_DBGOUT_ANYBINDING_METHOD(meltclosure_ptr_t meltclosp_
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1536:/ 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:
@@ -7520,10 +8274,12 @@ 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:1537:/ 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);;
@@ -7552,25 +8308,31 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1537;
/*^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:1537:/ 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:1537:/ 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*/
@@ -7588,10 +8350,12 @@ 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:1538:/ 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);;
@@ -7620,25 +8384,31 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 1538;
/*^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:1538:/ 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:1538:/ 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*/
@@ -7649,14 +8419,16 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1539:/ 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:1540:/ 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:1541:/ getslot");
@@ -7664,13 +8436,16 @@ 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:1543:/ 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*/
@@ -7681,7 +8456,8 @@ 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;
};
;
}
@@ -7692,7 +8468,8 @@ meltlab_endgetargs:
}
;
/*^compute*/
- /*_#MAXDEPTH__L5*/ meltfnum[4] =
+ /*_#MAXDEPTH__L5*/
+ meltfnum[4] =
(melt_get_int((melt_ptr_t)(/*_.DBGI_MAXDEPTH__V13*/ meltfptr[12])));;
{
@@ -7711,7 +8488,8 @@ 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;
};
;
@@ -7726,7 +8504,8 @@ 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])));;
{
@@ -7738,7 +8517,8 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
MELT_LOCATION("warmelt-debug.melt:1550:/ cond");
- /*cond*/ if (/*_#BINDNUM__L4*/ meltfnum[1]) /*then*/
+ /*cond*/
+ if (/*_#BINDNUM__L4*/ meltfnum[1]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -7771,7 +8551,8 @@ 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();
@@ -7785,16 +8566,19 @@ 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:1555:/ cond");
- /*cond*/ if (/*_#ltI__L8*/ meltfnum[7]) /*then*/
+ /*cond*/
+ if (/*_#ltI__L8*/ meltfnum[7]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -7807,7 +8591,8 @@ 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();
@@ -7825,23 +8610,29 @@ 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:1555:/ 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:1555:/ 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 ;
}
;
}
@@ -7859,38 +8650,52 @@ meltlab_endgetargs:
;
MELT_LOCATION("warmelt-debug.melt:1539:/ 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:1536:/ 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 ;
}
;
@@ -7971,7 +8776,8 @@ meltrout_52_WARMELTmiDEBUG_DEBUG_LESS_FUN(meltclosure_ptr_t meltclosp_, melt_ptr
/* end of frame for routine meltrout_52_WARMELTmiDEBUG_DEBUG_LESS_FUN fromline 1723 */
- /* classy proc frame meltrout_52_WARMELTmiDEBUG_DEBUG_LESS_FUN */ MeltFrame_meltrout_52_WARMELTmiDEBUG_DEBUG_LESS_FUN
+ /* classy proc frame meltrout_52_WARMELTmiDEBUG_DEBUG_LESS_FUN */
+ MeltFrame_meltrout_52_WARMELTmiDEBUG_DEBUG_LESS_FUN
meltfram__ /*declfrastruct fromline 1747*/
/*classyprocarg meltrout_52_WARMELTmiDEBUG_DEBUG_LESS_FUN fromline 1752*/
#if ENABLE_CHECKING
@@ -7984,7 +8790,8 @@ meltrout_52_WARMELTmiDEBUG_DEBUG_LESS_FUN(meltclosure_ptr_t meltclosp_, melt_ptr
#define meltframe meltfram__
melt_trace_start("DEBUG_LESS_FUN", meltcallcount);
- /*use arguments*/ (void) meltclosp_;
+ /*use arguments*/
+ (void) meltclosp_;
(void)meltfirstargp_;
(void)meltxargdescr_;
(void)meltxargtab_;
@@ -7994,12 +8801,14 @@ meltrout_52_WARMELTmiDEBUG_DEBUG_LESS_FUN(meltclosure_ptr_t meltclosp_, melt_ptr
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1565:/ getarg");
- /*_.DBGI__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
+ /*_.DBGI__V2*/
+ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1*/
/*^getarg*/
if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
- /*_.V__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
+ /*_.V__V3*/
+ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
gcc_assert(melt_discr((melt_ptr_t)(/*_.V__V3*/ meltfptr[2])) != NULL);
;
@@ -8021,10 +8830,12 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#IS_A__L1*/ meltfnum[0] =
+ /*_#IS_A__L1*/
+ meltfnum[0] =
melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));;
MELT_LOCATION("warmelt-debug.melt:1566:/ cond");
- /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/
+ /*cond*/
+ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/
{
/*^cond.then*/
/*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);;
@@ -8051,25 +8862,31 @@ meltlab_endgetargs:
argtab[1].meltbp_cstring = "warmelt-debug.melt";
/*^apply.arg*/
argtab[2].meltbp_long = 1566;
- /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+ /*_.MELT_ASSERT_FAILURE_FUN__V6*/
+ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
+ /*_._IFELSE___V5*/
+ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1566:/ 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:1566:/ clear");
- /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ;
+ /*clear*/ /*_#IS_A__L1*/
+ meltfnum[0] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ;
+ /*clear*/ /*_._IFELSE___V5*/
+ meltfptr[4] = 0 ;
}
#else /*MELT_HAVE_DEBUG*/
@@ -8081,7 +8898,8 @@ meltlab_endgetargs:
/*^cond*/
- /*cond*/ if (
+ /*cond*/
+ if (
/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V2*/ meltfptr[1]),
(melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])))
) /*then*/
@@ -8092,7 +8910,8 @@ meltlab_endgetargs:
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DBGI__V2*/ meltfptr[1]) /*=obj*/;
melt_object_get_field(slot,obj, 2, "DBGI_MAXDEPTH");
- /*_.OLDMAXDEPTH__V7*/ meltfptr[5] = slot;
+ /*_.OLDMAXDEPTH__V7*/
+ meltfptr[5] = slot;
};
;
}
@@ -8103,16 +8922,20 @@ meltlab_endgetargs:
}
;
/*^compute*/
- /*_#GET_INT__L2*/ meltfnum[0] =
+ /*_#GET_INT__L2*/
+ meltfnum[0] =
(melt_get_int((melt_ptr_t)(/*_.OLDMAXDEPTH__V7*/ meltfptr[5])));;
/*^compute*/
- /*_#miI__L3*/ meltfnum[2] =
+ /*_#miI__L3*/
+ meltfnum[2] =
((/*_#GET_INT__L2*/ meltfnum[0]) - (1));;
/*^compute*/
- /*_.NEWMAXDEPTH__V8*/ meltfptr[4] =
+ /*_.NEWMAXDEPTH__V8*/
+ meltfptr[4] =
/*full boxing*/ /*boxing ctype_long*/ meltgc_new_int((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(DISCR_INTEGER)))), (/*_#miI__L3*/ meltfnum[2]));;
MELT_LOCATION("warmelt-debug.melt:1569:/ cond");
- /*cond*/ if (
+ /*cond*/
+ if (
/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V2*/ meltfptr[1]),
(melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])))
) /*then*/
@@ -8123,7 +8946,8 @@ meltlab_endgetargs:
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DBGI__V2*/ meltfptr[1]) /*=obj*/;
melt_object_get_field(slot,obj, 0, "DBGI_OUT");
- /*_.OUT__V9*/ meltfptr[8] = slot;
+ /*_.OUT__V9*/
+ meltfptr[8] = slot;
};
;
}
@@ -8137,7 +8961,8 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
MELT_LOCATION("warmelt-debug.melt:1571:/ cond");
- /*cond*/ if (
+ /*cond*/
+ if (
/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V2*/ meltfptr[1]),
(melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])))
) /*then*/
@@ -8176,14 +9001,16 @@ meltlab_endgetargs:
argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V2*/ meltfptr[1];
/*^apply.arg*/
argtab[1].meltbp_long = 1;
- /*_.DBG_OUT__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.V__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+ /*_.DBG_OUT__V10*/
+ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.V__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
}
;
MELT_CHECK_SIGNAL();
;
MELT_LOCATION("warmelt-debug.melt:1573:/ cond");
- /*cond*/ if (
+ /*cond*/
+ if (
/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V2*/ meltfptr[1]),
(melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])))
) /*then*/
@@ -8212,24 +9039,31 @@ meltlab_endgetargs:
;
MELT_LOCATION("warmelt-debug.melt:1567:/ clear");
- /*clear*/ /*_.OLDMAXDEPTH__V7*/ meltfptr[5] = 0 ;
+ /*clear*/ /*_.OLDMAXDEPTH__V7*/
+ meltfptr[5] = 0 ;
/*^clear*/
- /*clear*/ /*_#GET_INT__L2*/ meltfnum[0] = 0 ;
+ /*clear*/ /*_#GET_INT__L2*/
+ meltfnum[0] = 0 ;
/*^clear*/
- /*clear*/ /*_#miI__L3*/ meltfnum[2] = 0 ;
+ /*clear*/ /*_#miI__L3*/
+ meltfnum[2] = 0 ;
/*^clear*/
- /*clear*/ /*_.NEWMAXDEPTH__V8*/ meltfptr[4] = 0 ;
+ /*clear*/ /*_.NEWMAXDEPTH__V8*/
+ meltfptr[4] = 0 ;
/*^clear*/
- /*clear*/ /*_.OUT__V9*/ meltfptr[8] = 0 ;
+ /*clear*/ /*_.OUT__V9*/
+ meltfptr[8] = 0 ;
/*^clear*/
- /*clear*/ /*_.DBG_OUT__V10*/ meltfptr[9] = 0 ;
+ /*clear*/ /*_.DBG_OUT__V10*/
+ meltfptr[9] = 0 ;
MELT_CHECK_SIGNAL();
;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1565:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ;
+ /*clear*/ /*_.IFCPP___V4*/
+ meltfptr[3] = 0 ;
}
;
@@ -8310,7 +9144,8 @@ meltrout_53_WARMELTmiDEBUG_DEBUG_MORE_FUN(meltclosure_ptr_t meltclosp_, melt_ptr
/* end of frame for routine meltrout_53_WARMELTmiDEBUG_DEBUG_MORE_FUN fromline 1723 */
- /* classy proc frame meltrout_53_WARMELTmiDEBUG_DEBUG_MORE_FUN */ MeltFrame_meltrout_53_WARMELTmiDEBUG_DEBUG_MORE_FUN
+ /* classy proc frame meltrout_53_WARMELTmiDEBUG_DEBUG_MORE_FUN */
+ MeltFrame_meltrout_53_WARMELTmiDEBUG_DEBUG_MORE_FUN
meltfram__ /*declfrastruct fromline 1747*/
/*classyprocarg meltrout_53_WARMELTmiDEBUG_DEBUG_MORE_FUN fromline 1752*/
#if ENABLE_CHECKING
@@ -8323,7 +9158,8 @@ meltrout_53_WARMELTmiDEBUG_DEBUG_MORE_FUN(meltclosure_ptr_t meltclosp_, melt_ptr
#define meltframe meltfram__
melt_trace_start("DEBUG_MORE_FUN", meltcallcount);
- /*use arguments*/ (void) meltclosp_;
+ /*use arguments*/
+ (void) meltclosp_;
(void)meltfirstargp_;
(void)meltxargdescr_;
(void)meltxargtab_;
@@ -8333,12 +9169,14 @@ meltrout_53_WARMELTmiDEBUG_DEBUG_MORE_FUN(meltclosure_ptr_t meltclosp_, melt_ptr
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1579:/ getarg");
- /*_.DBGI__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
+ /*_.DBGI__V2*/
+ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1*/
/*^getarg*/
if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs;
- /*_.V__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
+ /*_.V__V3*/
+ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL;
gcc_assert(melt_discr((melt_ptr_t)(/*_.V__V3*/ meltfptr[2])) != NULL);
;
@@ -8360,10 +9198,12 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#IS_A__L1*/ meltfnum[0] =
+ /*_#IS_A__L1*/
+ meltfnum[0] =
melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])));;
MELT_LOCATION("warmelt-debug.melt:1580:/ cond");
- /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/
+ /*cond*/
+ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/
{
/*^cond.then*/
/*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);;
@@ -8390,25 +9230,31 @@ meltlab_endgetargs:
argtab[1].meltbp_cstring = "warmelt-debug.melt";
/*^apply.arg*/
argtab[2].meltbp_long = 1580;
- /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+ /*_.MELT_ASSERT_FAILURE_FUN__V6*/
+ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
+ /*_._IFELSE___V5*/
+ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1580:/ 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:1580:/ clear");
- /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ;
+ /*clear*/ /*_#IS_A__L1*/
+ meltfnum[0] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ;
+ /*clear*/ /*_._IFELSE___V5*/
+ meltfptr[4] = 0 ;
}
#else /*MELT_HAVE_DEBUG*/
@@ -8420,7 +9266,8 @@ meltlab_endgetargs:
/*^cond*/
- /*cond*/ if (
+ /*cond*/
+ if (
/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V2*/ meltfptr[1]),
(melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])))
) /*then*/
@@ -8431,7 +9278,8 @@ meltlab_endgetargs:
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DBGI__V2*/ meltfptr[1]) /*=obj*/;
melt_object_get_field(slot,obj, 2, "DBGI_MAXDEPTH");
- /*_.OLDMAXDEPTH__V7*/ meltfptr[5] = slot;
+ /*_.OLDMAXDEPTH__V7*/
+ meltfptr[5] = slot;
};
;
}
@@ -8442,25 +9290,32 @@ meltlab_endgetargs:
}
;
/*^compute*/
- /*_#GET_INT__L2*/ meltfnum[0] =
+ /*_#GET_INT__L2*/
+ meltfnum[0] =
(melt_get_int((melt_ptr_t)(/*_.OLDMAXDEPTH__V7*/ meltfptr[5])));;
/*^compute*/
- /*_#plI__L3*/ meltfnum[2] =
+ /*_#plI__L3*/
+ meltfnum[2] =
((/*_#GET_INT__L2*/ meltfnum[0]) + (1));;
/*^compute*/
- /*_.NEWMOREDEPTH__V8*/ meltfptr[4] =
+ /*_.NEWMOREDEPTH__V8*/
+ meltfptr[4] =
/*full boxing*/ /*boxing ctype_long*/ meltgc_new_int((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(DISCR_INTEGER)))), (/*_#plI__L3*/ meltfnum[2]));;
/*^compute*/
- /*_#GET_INT__L4*/ meltfnum[3] =
+ /*_#GET_INT__L4*/
+ meltfnum[3] =
(melt_get_int((melt_ptr_t)(/*_.OLDMAXDEPTH__V7*/ meltfptr[5])));;
/*^compute*/
- /*_#miI__L5*/ meltfnum[4] =
+ /*_#miI__L5*/
+ meltfnum[4] =
((/*_#GET_INT__L4*/ meltfnum[3]) - (1));;
/*^compute*/
- /*_.NEWLESSDEPTH__V9*/ meltfptr[8] =
+ /*_.NEWLESSDEPTH__V9*/
+ meltfptr[8] =
/*full boxing*/ /*boxing ctype_long*/ meltgc_new_int((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(DISCR_INTEGER)))), (/*_#miI__L5*/ meltfnum[4]));;
MELT_LOCATION("warmelt-debug.melt:1584:/ cond");
- /*cond*/ if (
+ /*cond*/
+ if (
/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V2*/ meltfptr[1]),
(melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])))
) /*then*/
@@ -8471,7 +9326,8 @@ meltlab_endgetargs:
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DBGI__V2*/ meltfptr[1]) /*=obj*/;
melt_object_get_field(slot,obj, 0, "DBGI_OUT");
- /*_.OUT__V10*/ meltfptr[9] = slot;
+ /*_.OUT__V10*/
+ meltfptr[9] = slot;
};
;
}
@@ -8485,7 +9341,8 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
MELT_LOCATION("warmelt-debug.melt:1586:/ cond");
- /*cond*/ if (
+ /*cond*/
+ if (
/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V2*/ meltfptr[1]),
(melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])))
) /*then*/
@@ -8515,10 +9372,12 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#IS_OBJECT__L6*/ meltfnum[5] =
+ /*_#IS_OBJECT__L6*/
+ meltfnum[5] =
(melt_magic_discr((melt_ptr_t)(/*_.V__V3*/ meltfptr[2])) == MELTOBMAG_OBJECT);;
MELT_LOCATION("warmelt-debug.melt:1587:/ cond");
- /*cond*/ if (/*_#IS_OBJECT__L6*/ meltfnum[5]) /*then*/
+ /*cond*/
+ if (/*_#IS_OBJECT__L6*/ meltfnum[5]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -8528,7 +9387,8 @@ meltlab_endgetargs:
/*_.DISCRIM__V12*/ meltfptr[11] =
((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.V__V3*/ meltfptr[2]))));;
MELT_LOCATION("warmelt-debug.melt:1589:/ cond");
- /*cond*/ if (
+ /*cond*/
+ if (
/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DISCRIM__V12*/ meltfptr[11]),
(melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[3])))
) /*then*/
@@ -8539,7 +9399,8 @@ meltlab_endgetargs:
melt_ptr_t slot=NULL, obj=NULL;
obj = (melt_ptr_t)(/*_.DISCRIM__V12*/ meltfptr[11]) /*=obj*/;
melt_object_get_field(slot,obj, 1, "NAMED_NAME");
- /*_.NAMED_NAME__V13*/ meltfptr[12] = slot;
+ /*_.NAMED_NAME__V13*/
+ meltfptr[12] = slot;
};
;
}
@@ -8561,10 +9422,12 @@ meltlab_endgetargs:
argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.NAMED_NAME__V13*/ meltfptr[12];
/*^apply.arg*/
argtab[1].meltbp_cstring = "/";
- /*_.ADD2OUT__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OUT__V10*/ meltfptr[9]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+ /*_.ADD2OUT__V14*/
+ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OUT__V10*/ meltfptr[9]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_#OBJ_HASH__L7*/ meltfnum[6] =
+ /*_#OBJ_HASH__L7*/
+ meltfnum[6] =
(melt_obj_hash((melt_ptr_t)(/*_.V__V3*/ meltfptr[2])));;
{
@@ -8575,13 +9438,15 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1591:/ quasiblock");
- /*_#ONUM__L8*/ meltfnum[7] =
+ /*_#ONUM__L8*/
+ meltfnum[7] =
(melt_get_int((melt_ptr_t)(/*_.V__V3*/ meltfptr[2])));;
MELT_CHECK_SIGNAL();
;
MELT_LOCATION("warmelt-debug.melt:1593:/ cond");
- /*cond*/ if (/*_#ONUM__L8*/ meltfnum[7]) /*then*/
+ /*cond*/
+ if (/*_#ONUM__L8*/ meltfnum[7]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -8591,7 +9456,8 @@ meltlab_endgetargs:
{
MELT_LOCATION("warmelt-debug.melt:1594:/ locexp");
- /*add2sbuf_strconst*/ meltgc_add_strbuf((melt_ptr_t)(/*_.OUT__V10*/ meltfptr[9]), ( "#"));
+ /*add2sbuf_strconst*/
+ meltgc_add_strbuf((melt_ptr_t)(/*_.OUT__V10*/ meltfptr[9]), ( "#"));
}
;
@@ -8610,7 +9476,8 @@ meltlab_endgetargs:
;
MELT_LOCATION("warmelt-debug.melt:1591:/ clear");
- /*clear*/ /*_#ONUM__L8*/ meltfnum[7] = 0 ;
+ /*clear*/ /*_#ONUM__L8*/
+ meltfnum[7] = 0 ;
MELT_CHECK_SIGNAL();
;
@@ -8621,7 +9488,8 @@ meltlab_endgetargs:
memset(&argtab, 0, sizeof(argtab));
/*^apply.arg*/
argtab[0].meltbp_cstring = "<{";
- /*_.ADD2OUT__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OUT__V10*/ meltfptr[9]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+ /*_.ADD2OUT__V15*/
+ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OUT__V10*/ meltfptr[9]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
}
;
@@ -8640,7 +9508,8 @@ meltlab_endgetargs:
argtab[2].meltbp_long = 0;
/*^apply.arg*/
argtab[3].meltbp_long = -1;
- /*_.DBGOUT_FIELDS__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_FIELDS*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.V__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+ /*_.DBGOUT_FIELDS__V16*/
+ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!DBGOUT_FIELDS*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.V__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_LONG MELTBPARSTR_LONG MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
}
;
@@ -8659,7 +9528,8 @@ meltlab_endgetargs:
memset(&argtab, 0, sizeof(argtab));
/*^apply.arg*/
argtab[0].meltbp_cstring = "}>";
- /*_.ADD2OUT__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OUT__V10*/ meltfptr[9]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
+ /*_.ADD2OUT__V17*/
+ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.OUT__V10*/ meltfptr[9]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0);
}
;
@@ -8674,19 +9544,26 @@ meltlab_endgetargs:
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1587:/ clear");
- /*clear*/ /*_.DISCRIM__V12*/ meltfptr[11] = 0 ;
+ /*clear*/ /*_.DISCRIM__V12*/
+ meltfptr[11] = 0 ;
/*^clear*/
- /*clear*/ /*_.NAMED_NAME__V13*/ meltfptr[12] = 0 ;
+ /*clear*/ /*_.NAMED_NAME__V13*/
+ meltfptr[12] = 0 ;
/*^clear*/
- /*clear*/ /*_.ADD2OUT__V14*/ meltfptr[13] = 0 ;
+ /*clear*/ /*_.ADD2OUT__V14*/
+ meltfptr[13] = 0 ;
/*^clear*/
- /*clear*/ /*_#OBJ_HASH__L7*/ meltfnum[6] = 0 ;
+ /*clear*/ /*_#OBJ_HASH__L7*/
+ meltfnum[6] = 0 ;
/*^clear*/
- /*clear*/ /*_.ADD2OUT__V15*/ meltfptr[14] = 0 ;
+ /*clear*/ /*_.ADD2OUT__V15*/
+ meltfptr[14] = 0 ;
/*^clear*/
- /*clear*/ /*_.DBGOUT_FIELDS__V16*/ meltfptr[15] = 0 ;
+ /*clear*/ /*_.DBGOUT_FIELDS__V16*/
+ meltfptr[15] = 0 ;
/*^clear*/
- /*clear*/ /*_.ADD2OUT__V17*/ meltfptr[16] = 0 ;
+ /*clear*/ /*_.ADD2OUT__V17*/
+ meltfptr[16] = 0 ;
}
;
}
@@ -8709,14 +9586,17 @@ meltlab_endgetargs:
argtab[0].meltbp_aptr = (melt_ptr_t*) &/*_.DBGI__V2*/ meltfptr[1];
/*^apply.arg*/
argtab[1].meltbp_long = 0;
- /*_.DBG_OUT__V18*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.V__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
+ /*_.DBG_OUT__V18*/
+ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DBG_OUT*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.V__V3*/ meltfptr[2]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0);
}
;
- /*_._IFELSE___V11*/ meltfptr[10] = /*_.DBG_OUT__V18*/ meltfptr[11];;
+ /*_._IFELSE___V11*/
+ meltfptr[10] = /*_.DBG_OUT__V18*/ meltfptr[11];;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1587:/ clear");
- /*clear*/ /*_.DBG_OUT__V18*/ meltfptr[11] = 0 ;
+ /*clear*/ /*_.DBG_OUT__V18*/
+ meltfptr[11] = 0 ;
}
;
}
@@ -8725,7 +9605,8 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
MELT_LOCATION("warmelt-debug.melt:1603:/ cond");
- /*cond*/ if (
+ /*cond*/
+ if (
/*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DBGI__V2*/ meltfptr[1]),
(melt_ptr_t)((/*!CLASS_DEBUG_INFORMATION*/ meltfrout->tabval[0])))
) /*then*/
@@ -8754,32 +9635,43 @@ meltlab_endgetargs:
;
MELT_LOCATION("warmelt-debug.melt:1581:/ clear");
- /*clear*/ /*_.OLDMAXDEPTH__V7*/ meltfptr[5] = 0 ;
+ /*clear*/ /*_.OLDMAXDEPTH__V7*/
+ meltfptr[5] = 0 ;
/*^clear*/
- /*clear*/ /*_#GET_INT__L2*/ meltfnum[0] = 0 ;
+ /*clear*/ /*_#GET_INT__L2*/
+ meltfnum[0] = 0 ;
/*^clear*/
- /*clear*/ /*_#plI__L3*/ meltfnum[2] = 0 ;
+ /*clear*/ /*_#plI__L3*/
+ meltfnum[2] = 0 ;
/*^clear*/
- /*clear*/ /*_.NEWMOREDEPTH__V8*/ meltfptr[4] = 0 ;
+ /*clear*/ /*_.NEWMOREDEPTH__V8*/
+ meltfptr[4] = 0 ;
/*^clear*/
- /*clear*/ /*_#GET_INT__L4*/ meltfnum[3] = 0 ;
+ /*clear*/ /*_#GET_INT__L4*/
+ meltfnum[3] = 0 ;
/*^clear*/
- /*clear*/ /*_#miI__L5*/ meltfnum[4] = 0 ;
+ /*clear*/ /*_#miI__L5*/
+ meltfnum[4] = 0 ;
/*^clear*/
- /*clear*/ /*_.NEWLESSDEPTH__V9*/ meltfptr[8] = 0 ;
+ /*clear*/ /*_.NEWLESSDEPTH__V9*/
+ meltfptr[8] = 0 ;
/*^clear*/
- /*clear*/ /*_.OUT__V10*/ meltfptr[9] = 0 ;
+ /*clear*/ /*_.OUT__V10*/
+ meltfptr[9] = 0 ;
/*^clear*/
- /*clear*/ /*_#IS_OBJECT__L6*/ meltfnum[5] = 0 ;
+ /*clear*/ /*_#IS_OBJECT__L6*/
+ meltfnum[5] = 0 ;
/*^clear*/
- /*clear*/ /*_._IFELSE___V11*/ meltfptr[10] = 0 ;
+ /*clear*/ /*_._IFELSE___V11*/
+ meltfptr[10] = 0 ;
MELT_CHECK_SIGNAL();
;
/*epilog*/
MELT_LOCATION("warmelt-debug.melt:1579:/ clear");
- /*clear*/ /*_.IFCPP___V4*/ meltfptr[3] = 0 ;
+ /*clear*/ /*_.IFCPP___V4*/
+ meltfptr[3] = 0 ;
}
;
@@ -8861,7 +9753,8 @@ meltrout_54_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE(meltclosure_ptr_t meltclosp_, m
/* end of frame for routine meltrout_54_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE fromline 1723 */
- /* classy proc frame meltrout_54_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE */ MeltFrame_meltrout_54_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE
+ /* classy proc frame meltrout_54_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE */
+ MeltFrame_meltrout_54_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE
meltfram__ /*declfrastruct fromline 1747*/
/*classyprocarg meltrout_54_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE fromline 1752*/
#if ENABLE_CHECKING
@@ -8874,7 +9767,8 @@ meltrout_54_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_;
@@ -8884,17 +9778,20 @@ meltrout_54_WARMELTmiDEBUG_DISPLAY_DEBUG_MESSAGE(meltclosure_ptr_t meltclosp_, m
/*getarg#0*/
MELT_LOCATION("warmelt-debug.melt:1611:/ 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:
@@ -8907,15 +9804,19 @@ meltlab_endgetargs:
MELT_LOCATION("warmelt-debug.melt:1613:/ 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();
@@ -8928,7 +9829,8 @@ 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;
};
;
@@ -8951,11 +9853,13 @@ 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:1622:/ locexp");
- /*_#DBGCOUNTER__L2*/ meltfnum[1]= ++melt_dbgcounter;
+ /*_#DBGCOUNTER__L2*/
+ meltfnum[1]= ++melt_dbgcounter;
}
;
@@ -8964,10 +9868,12 @@ 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));;
{
@@ -8984,10 +9890,12 @@ meltlab_endgetargs:
MELT_CHECK_SIGNAL();
;
- /*_#gtI__L5*/ meltfnum[4] =
+ /*_#gtI__L5*/
+ meltfnum[4] =
((/*_#COUNT__L1*/ meltfnum[0]) > (0));;
MELT_LOCATION("warmelt-debug.melt:1626:/ cond");
- /*cond*/ if (/*_#gtI__L5*/ meltfnum[4]) /*then*/
+ /*cond*/
+ if (/*_#gtI__L5*/ meltfnum[4]) /*then*/
{
/*^cond.then*/
/*^block*/
@@ -9017,7 +9925,8 @@ 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);
}
;
@@ -9034,23 +9943,32 @@ meltlab_endgetargs:
;
MELT_LOCATION("warmelt-debug.melt:1613:/ 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*/
}