diff options
author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-10-15 09:03:15 +0000 |
---|---|---|
committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-10-15 09:03:15 +0000 |
commit | 3867bd5f08f37db8bcfe9c29f6c0af39376aa41e (patch) | |
tree | 74af6d2d70e66a5a076b787008aecf1cc84099eb /gcc/melt/generated/warmelt-debug+02.cc | |
parent | 97f8a54cc04a97ce9a23bf7a40caa2dd47bff894 (diff) | |
download | gcc-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.cc | 2754 |
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*/ } |