diff options
Diffstat (limited to 'gcc/melt/generated/warmelt-hooks+01.cc')
| -rw-r--r-- | gcc/melt/generated/warmelt-hooks+01.cc | 774 |
1 files changed, 258 insertions, 516 deletions
diff --git a/gcc/melt/generated/warmelt-hooks+01.cc b/gcc/melt/generated/warmelt-hooks+01.cc index 80cef1119cf..7a8f028d7b6 100644 --- a/gcc/melt/generated/warmelt-hooks+01.cc +++ b/gcc/melt/generated/warmelt-hooks+01.cc @@ -1183,8 +1183,7 @@ meltrout_15_WARMELTmiHOOKS_AT_START_UNIT_FIRST(meltclosure_ptr_t meltclosp_, mel /* end of frame for routine meltrout_15_WARMELTmiHOOKS_AT_START_UNIT_FIRST fromline 1719 */ - /* classy proc frame meltrout_15_WARMELTmiHOOKS_AT_START_UNIT_FIRST */ - MeltFrame_meltrout_15_WARMELTmiHOOKS_AT_START_UNIT_FIRST + /* classy proc frame meltrout_15_WARMELTmiHOOKS_AT_START_UNIT_FIRST */ MeltFrame_meltrout_15_WARMELTmiHOOKS_AT_START_UNIT_FIRST meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_15_WARMELTmiHOOKS_AT_START_UNIT_FIRST fromline 1748*/ #if ENABLE_CHECKING @@ -1197,8 +1196,7 @@ meltrout_15_WARMELTmiHOOKS_AT_START_UNIT_FIRST(meltclosure_ptr_t meltclosp_, mel #define meltframe meltfram__ melt_trace_start("AT_START_UNIT_FIRST", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -1208,8 +1206,7 @@ meltrout_15_WARMELTmiHOOKS_AT_START_UNIT_FIRST(meltclosure_ptr_t meltclosp_, mel /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:376:/ getarg"); - /*_.FUN__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -1227,19 +1224,16 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!START_UNIT_DELAYED_QUEUE*/ meltfrout->tabval[0])) /*=obj*/; melt_object_get_field(slot,obj, 2, "DELQU_FIRST"); - /*_.FIRSTLIST__V3*/ - meltfptr[2] = slot; + /*_.FIRSTLIST__V3*/ meltfptr[2] = slot; }; ; MELT_CHECK_SIGNAL(); ; - /*_#IS_CLOSURE__L1*/ - meltfnum[0] = + /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-hooks.melt:380:/ cond"); - /*cond*/ - if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1267,19 +1261,16 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_.ENABLE_START_UNIT__V4*/ - meltfptr[3] = 0 ; + /*clear*/ /*_.ENABLE_START_UNIT__V4*/ meltfptr[3] = 0 ; } ; } /*noelse*/ ; MELT_LOCATION("warmelt-hooks.melt:378:/ clear"); - /*clear*/ /*_.FIRSTLIST__V3*/ - meltfptr[2] = 0 ; + /*clear*/ /*_.FIRSTLIST__V3*/ meltfptr[2] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_CLOSURE__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ; /*epilog*/ } @@ -1361,8 +1352,7 @@ meltrout_16_WARMELTmiHOOKS_AT_START_UNIT_LAST(meltclosure_ptr_t meltclosp_, melt /* end of frame for routine meltrout_16_WARMELTmiHOOKS_AT_START_UNIT_LAST fromline 1719 */ - /* classy proc frame meltrout_16_WARMELTmiHOOKS_AT_START_UNIT_LAST */ - MeltFrame_meltrout_16_WARMELTmiHOOKS_AT_START_UNIT_LAST + /* classy proc frame meltrout_16_WARMELTmiHOOKS_AT_START_UNIT_LAST */ MeltFrame_meltrout_16_WARMELTmiHOOKS_AT_START_UNIT_LAST meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_16_WARMELTmiHOOKS_AT_START_UNIT_LAST fromline 1748*/ #if ENABLE_CHECKING @@ -1375,8 +1365,7 @@ meltrout_16_WARMELTmiHOOKS_AT_START_UNIT_LAST(meltclosure_ptr_t meltclosp_, melt #define meltframe meltfram__ melt_trace_start("AT_START_UNIT_LAST", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -1386,8 +1375,7 @@ meltrout_16_WARMELTmiHOOKS_AT_START_UNIT_LAST(meltclosure_ptr_t meltclosp_, melt /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:385:/ getarg"); - /*_.FUN__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -1405,19 +1393,16 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!START_UNIT_DELAYED_QUEUE*/ meltfrout->tabval[0])) /*=obj*/; melt_object_get_field(slot,obj, 3, "DELQU_LAST"); - /*_.LASTLIST__V3*/ - meltfptr[2] = slot; + /*_.LASTLIST__V3*/ meltfptr[2] = slot; }; ; MELT_CHECK_SIGNAL(); ; - /*_#IS_CLOSURE__L1*/ - meltfnum[0] = + /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-hooks.melt:389:/ cond"); - /*cond*/ - if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1445,19 +1430,16 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_.ENABLE_START_UNIT__V4*/ - meltfptr[3] = 0 ; + /*clear*/ /*_.ENABLE_START_UNIT__V4*/ meltfptr[3] = 0 ; } ; } /*noelse*/ ; MELT_LOCATION("warmelt-hooks.melt:387:/ clear"); - /*clear*/ /*_.LASTLIST__V3*/ - meltfptr[2] = 0 ; + /*clear*/ /*_.LASTLIST__V3*/ meltfptr[2] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_CLOSURE__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ; /*epilog*/ } @@ -1539,8 +1521,7 @@ meltrout_17_WARMELTmiHOOKS_LAMBDA_cl4(meltclosure_ptr_t meltclosp_, melt_ptr_t m /* end of frame for routine meltrout_17_WARMELTmiHOOKS_LAMBDA_cl4 fromline 1719 */ - /* classy proc frame meltrout_17_WARMELTmiHOOKS_LAMBDA_cl4 */ - MeltFrame_meltrout_17_WARMELTmiHOOKS_LAMBDA_cl4 + /* classy proc frame meltrout_17_WARMELTmiHOOKS_LAMBDA_cl4 */ MeltFrame_meltrout_17_WARMELTmiHOOKS_LAMBDA_cl4 meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_17_WARMELTmiHOOKS_LAMBDA_cl4 fromline 1748*/ #if ENABLE_CHECKING @@ -1553,8 +1534,7 @@ meltrout_17_WARMELTmiHOOKS_LAMBDA_cl4(meltclosure_ptr_t meltclosp_, melt_ptr_t m #define meltframe meltfram__ melt_trace_start("LAMBDA_cl4", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -1564,8 +1544,7 @@ meltrout_17_WARMELTmiHOOKS_LAMBDA_cl4(meltclosure_ptr_t meltclosp_, melt_ptr_t m /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:425:/ getarg"); - /*_.FIRSTPROC__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.FIRSTPROC__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -1583,8 +1562,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*~RESCONT*/ meltfclos->tabval[0])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.PREVRES__V3*/ - meltfptr[2] = slot; + /*_.PREVRES__V3*/ meltfptr[2] = slot; }; ; @@ -1597,8 +1575,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!FINISH_UNIT_DELAYED_QUEUE*/ meltfrout->tabval[0]); - /*_.NEXTRES__V4*/ - meltfptr[3] = melt_apply ((meltclosure_ptr_t)(/*_.FIRSTPROC__V2*/ meltfptr[1]), (melt_ptr_t)(/*_.PREVRES__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NEXTRES__V4*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)(/*_.FIRSTPROC__V2*/ meltfptr[1]), (melt_ptr_t)(/*_.PREVRES__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -1622,11 +1599,9 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-hooks.melt:426:/ clear"); - /*clear*/ /*_.PREVRES__V3*/ - meltfptr[2] = 0 ; + /*clear*/ /*_.PREVRES__V3*/ meltfptr[2] = 0 ; /*^clear*/ - /*clear*/ /*_.NEXTRES__V4*/ - meltfptr[3] = 0 ; + /*clear*/ /*_.NEXTRES__V4*/ meltfptr[3] = 0 ; /*epilog*/ } @@ -1708,8 +1683,7 @@ meltrout_18_WARMELTmiHOOKS_LAMBDA_cl5(meltclosure_ptr_t meltclosp_, melt_ptr_t m /* end of frame for routine meltrout_18_WARMELTmiHOOKS_LAMBDA_cl5 fromline 1719 */ - /* classy proc frame meltrout_18_WARMELTmiHOOKS_LAMBDA_cl5 */ - MeltFrame_meltrout_18_WARMELTmiHOOKS_LAMBDA_cl5 + /* classy proc frame meltrout_18_WARMELTmiHOOKS_LAMBDA_cl5 */ MeltFrame_meltrout_18_WARMELTmiHOOKS_LAMBDA_cl5 meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_18_WARMELTmiHOOKS_LAMBDA_cl5 fromline 1748*/ #if ENABLE_CHECKING @@ -1722,8 +1696,7 @@ meltrout_18_WARMELTmiHOOKS_LAMBDA_cl5(meltclosure_ptr_t meltclosp_, melt_ptr_t m #define meltframe meltfram__ melt_trace_start("LAMBDA_cl5", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -1733,8 +1706,7 @@ meltrout_18_WARMELTmiHOOKS_LAMBDA_cl5(meltclosure_ptr_t meltclosp_, melt_ptr_t m /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:434:/ getarg"); - /*_.LASTPROC__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.LASTPROC__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -1747,12 +1719,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_CLOSURE__L1*/ - meltfnum[0] = + /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.LASTPROC__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-hooks.melt:435:/ cond"); - /*cond*/ - if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -1773,8 +1743,7 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:434:/ clear"); - /*clear*/ /*_#IS_CLOSURE__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ; } ; @@ -1855,8 +1824,7 @@ meltrout_19_WARMELTmiHOOKS_LAMBDA_cl6(meltclosure_ptr_t meltclosp_, melt_ptr_t m /* end of frame for routine meltrout_19_WARMELTmiHOOKS_LAMBDA_cl6 fromline 1719 */ - /* classy proc frame meltrout_19_WARMELTmiHOOKS_LAMBDA_cl6 */ - MeltFrame_meltrout_19_WARMELTmiHOOKS_LAMBDA_cl6 + /* classy proc frame meltrout_19_WARMELTmiHOOKS_LAMBDA_cl6 */ MeltFrame_meltrout_19_WARMELTmiHOOKS_LAMBDA_cl6 meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_19_WARMELTmiHOOKS_LAMBDA_cl6 fromline 1748*/ #if ENABLE_CHECKING @@ -1869,8 +1837,7 @@ meltrout_19_WARMELTmiHOOKS_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_; @@ -1880,8 +1847,7 @@ meltrout_19_WARMELTmiHOOKS_LAMBDA_cl6(meltclosure_ptr_t meltclosp_, melt_ptr_t m /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:439:/ getarg"); - /*_.LASTPROC__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.LASTPROC__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -1899,8 +1865,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*~RESCONT*/ meltfclos->tabval[0])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); - /*_.PREVRES__V3*/ - meltfptr[2] = slot; + /*_.PREVRES__V3*/ meltfptr[2] = slot; }; ; @@ -1913,8 +1878,7 @@ meltlab_endgetargs: memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!FINISH_UNIT_DELAYED_QUEUE*/ meltfrout->tabval[0]); - /*_.NEXTRES__V4*/ - meltfptr[3] = melt_apply ((meltclosure_ptr_t)(/*_.LASTPROC__V2*/ meltfptr[1]), (melt_ptr_t)(/*_.PREVRES__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); + /*_.NEXTRES__V4*/ meltfptr[3] = melt_apply ((meltclosure_ptr_t)(/*_.LASTPROC__V2*/ meltfptr[1]), (melt_ptr_t)(/*_.PREVRES__V3*/ meltfptr[2]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; @@ -1938,11 +1902,9 @@ meltlab_endgetargs: MELT_LOCATION("warmelt-hooks.melt:440:/ clear"); - /*clear*/ /*_.PREVRES__V3*/ - meltfptr[2] = 0 ; + /*clear*/ /*_.PREVRES__V3*/ meltfptr[2] = 0 ; /*^clear*/ - /*clear*/ /*_.NEXTRES__V4*/ - meltfptr[3] = 0 ; + /*clear*/ /*_.NEXTRES__V4*/ meltfptr[3] = 0 ; /*epilog*/ } @@ -2024,8 +1986,7 @@ meltrout_21_WARMELTmiHOOKS_ENABLE_FINISH_UNIT(meltclosure_ptr_t meltclosp_, melt /* end of frame for routine meltrout_21_WARMELTmiHOOKS_ENABLE_FINISH_UNIT fromline 1719 */ - /* classy proc frame meltrout_21_WARMELTmiHOOKS_ENABLE_FINISH_UNIT */ - MeltFrame_meltrout_21_WARMELTmiHOOKS_ENABLE_FINISH_UNIT + /* classy proc frame meltrout_21_WARMELTmiHOOKS_ENABLE_FINISH_UNIT */ MeltFrame_meltrout_21_WARMELTmiHOOKS_ENABLE_FINISH_UNIT meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_21_WARMELTmiHOOKS_ENABLE_FINISH_UNIT fromline 1748*/ #if ENABLE_CHECKING @@ -2038,8 +1999,7 @@ meltrout_21_WARMELTmiHOOKS_ENABLE_FINISH_UNIT(meltclosure_ptr_t meltclosp_, melt #define meltframe meltfram__ melt_trace_start("ENABLE_FINISH_UNIT", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -2150,8 +2110,7 @@ meltrout_22_WARMELTmiHOOKS_AT_FINISH_UNIT_FIRST(meltclosure_ptr_t meltclosp_, me /* end of frame for routine meltrout_22_WARMELTmiHOOKS_AT_FINISH_UNIT_FIRST fromline 1719 */ - /* classy proc frame meltrout_22_WARMELTmiHOOKS_AT_FINISH_UNIT_FIRST */ - MeltFrame_meltrout_22_WARMELTmiHOOKS_AT_FINISH_UNIT_FIRST + /* classy proc frame meltrout_22_WARMELTmiHOOKS_AT_FINISH_UNIT_FIRST */ MeltFrame_meltrout_22_WARMELTmiHOOKS_AT_FINISH_UNIT_FIRST meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_22_WARMELTmiHOOKS_AT_FINISH_UNIT_FIRST fromline 1748*/ #if ENABLE_CHECKING @@ -2164,8 +2123,7 @@ meltrout_22_WARMELTmiHOOKS_AT_FINISH_UNIT_FIRST(meltclosure_ptr_t meltclosp_, me #define meltframe meltfram__ melt_trace_start("AT_FINISH_UNIT_FIRST", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -2175,8 +2133,7 @@ meltrout_22_WARMELTmiHOOKS_AT_FINISH_UNIT_FIRST(meltclosure_ptr_t meltclosp_, me /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:481:/ getarg"); - /*_.FUN__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -2194,19 +2151,16 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!FINISH_UNIT_DELAYED_QUEUE*/ meltfrout->tabval[0])) /*=obj*/; melt_object_get_field(slot,obj, 2, "DELQU_FIRST"); - /*_.FIRSTLIST__V3*/ - meltfptr[2] = slot; + /*_.FIRSTLIST__V3*/ meltfptr[2] = slot; }; ; MELT_CHECK_SIGNAL(); ; - /*_#IS_CLOSURE__L1*/ - meltfnum[0] = + /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-hooks.melt:486:/ cond"); - /*cond*/ - if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2234,19 +2188,16 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_.ENABLE_FINISH_UNIT__V4*/ - meltfptr[3] = 0 ; + /*clear*/ /*_.ENABLE_FINISH_UNIT__V4*/ meltfptr[3] = 0 ; } ; } /*noelse*/ ; MELT_LOCATION("warmelt-hooks.melt:484:/ clear"); - /*clear*/ /*_.FIRSTLIST__V3*/ - meltfptr[2] = 0 ; + /*clear*/ /*_.FIRSTLIST__V3*/ meltfptr[2] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_CLOSURE__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ; /*epilog*/ } @@ -2328,8 +2279,7 @@ meltrout_23_WARMELTmiHOOKS_AT_FINISH_UNIT_LAST(meltclosure_ptr_t meltclosp_, mel /* end of frame for routine meltrout_23_WARMELTmiHOOKS_AT_FINISH_UNIT_LAST fromline 1719 */ - /* classy proc frame meltrout_23_WARMELTmiHOOKS_AT_FINISH_UNIT_LAST */ - MeltFrame_meltrout_23_WARMELTmiHOOKS_AT_FINISH_UNIT_LAST + /* classy proc frame meltrout_23_WARMELTmiHOOKS_AT_FINISH_UNIT_LAST */ MeltFrame_meltrout_23_WARMELTmiHOOKS_AT_FINISH_UNIT_LAST meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_23_WARMELTmiHOOKS_AT_FINISH_UNIT_LAST fromline 1748*/ #if ENABLE_CHECKING @@ -2342,8 +2292,7 @@ meltrout_23_WARMELTmiHOOKS_AT_FINISH_UNIT_LAST(meltclosure_ptr_t meltclosp_, mel #define meltframe meltfram__ melt_trace_start("AT_FINISH_UNIT_LAST", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -2353,8 +2302,7 @@ meltrout_23_WARMELTmiHOOKS_AT_FINISH_UNIT_LAST(meltclosure_ptr_t meltclosp_, mel /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:491:/ getarg"); - /*_.FUN__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -2372,19 +2320,16 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!FINISH_UNIT_DELAYED_QUEUE*/ meltfrout->tabval[0])) /*=obj*/; melt_object_get_field(slot,obj, 3, "DELQU_LAST"); - /*_.LASTLIST__V3*/ - meltfptr[2] = slot; + /*_.LASTLIST__V3*/ meltfptr[2] = slot; }; ; MELT_CHECK_SIGNAL(); ; - /*_#IS_CLOSURE__L1*/ - meltfnum[0] = + /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-hooks.melt:496:/ cond"); - /*cond*/ - if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2412,19 +2357,16 @@ meltlab_endgetargs: /*epilog*/ /*^clear*/ - /*clear*/ /*_.ENABLE_FINISH_UNIT__V4*/ - meltfptr[3] = 0 ; + /*clear*/ /*_.ENABLE_FINISH_UNIT__V4*/ meltfptr[3] = 0 ; } ; } /*noelse*/ ; MELT_LOCATION("warmelt-hooks.melt:494:/ clear"); - /*clear*/ /*_.LASTLIST__V3*/ - meltfptr[2] = 0 ; + /*clear*/ /*_.LASTLIST__V3*/ meltfptr[2] = 0 ; /*^clear*/ - /*clear*/ /*_#IS_CLOSURE__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ; /*epilog*/ } @@ -2506,8 +2448,7 @@ meltrout_25_WARMELTmiHOOKS_ENABLE_ALL_PASSES_START(meltclosure_ptr_t meltclosp_, /* end of frame for routine meltrout_25_WARMELTmiHOOKS_ENABLE_ALL_PASSES_START fromline 1719 */ - /* classy proc frame meltrout_25_WARMELTmiHOOKS_ENABLE_ALL_PASSES_START */ - MeltFrame_meltrout_25_WARMELTmiHOOKS_ENABLE_ALL_PASSES_START + /* classy proc frame meltrout_25_WARMELTmiHOOKS_ENABLE_ALL_PASSES_START */ MeltFrame_meltrout_25_WARMELTmiHOOKS_ENABLE_ALL_PASSES_START meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_25_WARMELTmiHOOKS_ENABLE_ALL_PASSES_START fromline 1748*/ #if ENABLE_CHECKING @@ -2520,8 +2461,7 @@ meltrout_25_WARMELTmiHOOKS_ENABLE_ALL_PASSES_START(meltclosure_ptr_t meltclosp_, #define meltframe meltfram__ melt_trace_start("ENABLE_ALL_PASSES_START", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -2632,8 +2572,7 @@ meltrout_26_WARMELTmiHOOKS_REGISTER_ALL_PASSES_START_FIRST(meltclosure_ptr_t mel /* end of frame for routine meltrout_26_WARMELTmiHOOKS_REGISTER_ALL_PASSES_START_FIRST fromline 1719 */ - /* classy proc frame meltrout_26_WARMELTmiHOOKS_REGISTER_ALL_PASSES_START_FIRST */ - MeltFrame_meltrout_26_WARMELTmiHOOKS_REGISTER_ALL_PASSES_START_FIRST + /* classy proc frame meltrout_26_WARMELTmiHOOKS_REGISTER_ALL_PASSES_START_FIRST */ MeltFrame_meltrout_26_WARMELTmiHOOKS_REGISTER_ALL_PASSES_START_FIRST meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_26_WARMELTmiHOOKS_REGISTER_ALL_PASSES_START_FIRST fromline 1748*/ #if ENABLE_CHECKING @@ -2646,8 +2585,7 @@ meltrout_26_WARMELTmiHOOKS_REGISTER_ALL_PASSES_START_FIRST(meltclosure_ptr_t mel #define meltframe meltfram__ melt_trace_start("REGISTER_ALL_PASSES_START_FIRST", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -2657,8 +2595,7 @@ meltrout_26_WARMELTmiHOOKS_REGISTER_ALL_PASSES_START_FIRST(meltclosure_ptr_t mel /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:580:/ getarg"); - /*_.FUN__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -2671,12 +2608,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_CLOSURE__L1*/ - meltfnum[0] = + /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-hooks.melt:584:/ cond"); - /*cond*/ - if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2687,8 +2622,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!ALL_PASSES_START_DELAYED_QUEUE*/ meltfrout->tabval[0])), (melt_ptr_t)((/*!CLASS_DELAYED_QUEUE*/ meltfrout->tabval[1]))) ) /*then*/ @@ -2699,8 +2633,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!ALL_PASSES_START_DELAYED_QUEUE*/ meltfrout->tabval[0])) /*=obj*/; melt_object_get_field(slot,obj, 2, "DELQU_FIRST"); - /*_.FIRSTLIST__V3*/ - meltfptr[2] = slot; + /*_.FIRSTLIST__V3*/ meltfptr[2] = slot; }; ; } @@ -2722,12 +2655,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#NULL__L2*/ - meltfnum[1] = + /*_#NULL__L2*/ meltfnum[1] = ((/*_.FIRSTLIST__V3*/ meltfptr[2]) == NULL);; MELT_LOCATION("warmelt-hooks.melt:588:/ cond"); - /*cond*/ - if (/*_#NULL__L2*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#NULL__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2737,17 +2668,14 @@ meltlab_endgetargs: /*_.MAKE_LIST__V5*/ meltfptr[4] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[3]))));; MELT_LOCATION("warmelt-hooks.melt:590:/ compute"); - /*_.FIRSTLIST__V3*/ - meltfptr[2] = /*_.SETQ___V6*/ meltfptr[5] = /*_.MAKE_LIST__V5*/ meltfptr[4];; + /*_.FIRSTLIST__V3*/ meltfptr[2] = /*_.SETQ___V6*/ meltfptr[5] = /*_.MAKE_LIST__V5*/ meltfptr[4];; MELT_CHECK_SIGNAL(); ; - /*_.MAKE_LIST__V7*/ - meltfptr[6] = + /*_.MAKE_LIST__V7*/ meltfptr[6] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[3]))));; MELT_LOCATION("warmelt-hooks.melt:591:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!ALL_PASSES_START_DELAYED_QUEUE*/ meltfrout->tabval[0])), (melt_ptr_t)((/*!CLASS_DELAYED_QUEUE*/ meltfrout->tabval[1]))) ) /*then*/ @@ -2785,14 +2713,11 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:588:/ clear"); - /*clear*/ /*_.MAKE_LIST__V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.MAKE_LIST__V5*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.SETQ___V6*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_LIST__V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.MAKE_LIST__V7*/ meltfptr[6] = 0 ; } ; } /*noelse*/ @@ -2805,14 +2730,11 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-hooks.melt:585:/ clear"); - /*clear*/ /*_.FIRSTLIST__V3*/ - meltfptr[2] = 0 ; + /*clear*/ /*_.FIRSTLIST__V3*/ meltfptr[2] = 0 ; /*^clear*/ - /*clear*/ /*_.ENABLE_ALL_PASSES_START__V4*/ - meltfptr[3] = 0 ; + /*clear*/ /*_.ENABLE_ALL_PASSES_START__V4*/ meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#NULL__L2*/ meltfnum[1] = 0 ; /*epilog*/ } ; @@ -2839,8 +2761,7 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:580:/ clear"); - /*clear*/ /*_#IS_CLOSURE__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ; } ; @@ -2921,8 +2842,7 @@ meltrout_27_WARMELTmiHOOKS_REGISTER_ALL_PASSES_START_LAST(meltclosure_ptr_t melt /* end of frame for routine meltrout_27_WARMELTmiHOOKS_REGISTER_ALL_PASSES_START_LAST fromline 1719 */ - /* classy proc frame meltrout_27_WARMELTmiHOOKS_REGISTER_ALL_PASSES_START_LAST */ - MeltFrame_meltrout_27_WARMELTmiHOOKS_REGISTER_ALL_PASSES_START_LAST + /* classy proc frame meltrout_27_WARMELTmiHOOKS_REGISTER_ALL_PASSES_START_LAST */ MeltFrame_meltrout_27_WARMELTmiHOOKS_REGISTER_ALL_PASSES_START_LAST meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_27_WARMELTmiHOOKS_REGISTER_ALL_PASSES_START_LAST fromline 1748*/ #if ENABLE_CHECKING @@ -2935,8 +2855,7 @@ meltrout_27_WARMELTmiHOOKS_REGISTER_ALL_PASSES_START_LAST(meltclosure_ptr_t melt #define meltframe meltfram__ melt_trace_start("REGISTER_ALL_PASSES_START_LAST", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -2946,8 +2865,7 @@ meltrout_27_WARMELTmiHOOKS_REGISTER_ALL_PASSES_START_LAST(meltclosure_ptr_t melt /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:603:/ getarg"); - /*_.FUN__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -2960,12 +2878,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_CLOSURE__L1*/ - meltfnum[0] = + /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-hooks.melt:607:/ cond"); - /*cond*/ - if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -2976,8 +2892,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!ALL_PASSES_START_DELAYED_QUEUE*/ meltfrout->tabval[0])), (melt_ptr_t)((/*!CLASS_DELAYED_QUEUE*/ meltfrout->tabval[1]))) ) /*then*/ @@ -2988,8 +2903,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!ALL_PASSES_START_DELAYED_QUEUE*/ meltfrout->tabval[0])) /*=obj*/; melt_object_get_field(slot,obj, 3, "DELQU_LAST"); - /*_.LASTLIST__V3*/ - meltfptr[2] = slot; + /*_.LASTLIST__V3*/ meltfptr[2] = slot; }; ; } @@ -3011,12 +2925,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#NULL__L2*/ - meltfnum[1] = + /*_#NULL__L2*/ meltfnum[1] = ((/*_.LASTLIST__V3*/ meltfptr[2]) == NULL);; MELT_LOCATION("warmelt-hooks.melt:611:/ cond"); - /*cond*/ - if (/*_#NULL__L2*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#NULL__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3026,17 +2938,14 @@ meltlab_endgetargs: /*_.MAKE_LIST__V5*/ meltfptr[4] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[3]))));; MELT_LOCATION("warmelt-hooks.melt:613:/ compute"); - /*_.LASTLIST__V3*/ - meltfptr[2] = /*_.SETQ___V6*/ meltfptr[5] = /*_.MAKE_LIST__V5*/ meltfptr[4];; + /*_.LASTLIST__V3*/ meltfptr[2] = /*_.SETQ___V6*/ meltfptr[5] = /*_.MAKE_LIST__V5*/ meltfptr[4];; MELT_CHECK_SIGNAL(); ; - /*_.MAKE_LIST__V7*/ - meltfptr[6] = + /*_.MAKE_LIST__V7*/ meltfptr[6] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[3]))));; MELT_LOCATION("warmelt-hooks.melt:614:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!ALL_PASSES_START_DELAYED_QUEUE*/ meltfrout->tabval[0])), (melt_ptr_t)((/*!CLASS_DELAYED_QUEUE*/ meltfrout->tabval[1]))) ) /*then*/ @@ -3074,14 +2983,11 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:611:/ clear"); - /*clear*/ /*_.MAKE_LIST__V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.MAKE_LIST__V5*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.SETQ___V6*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_LIST__V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.MAKE_LIST__V7*/ meltfptr[6] = 0 ; } ; } /*noelse*/ @@ -3094,14 +3000,11 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-hooks.melt:608:/ clear"); - /*clear*/ /*_.LASTLIST__V3*/ - meltfptr[2] = 0 ; + /*clear*/ /*_.LASTLIST__V3*/ meltfptr[2] = 0 ; /*^clear*/ - /*clear*/ /*_.ENABLE_ALL_PASSES_START__V4*/ - meltfptr[3] = 0 ; + /*clear*/ /*_.ENABLE_ALL_PASSES_START__V4*/ meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#NULL__L2*/ meltfnum[1] = 0 ; /*epilog*/ } ; @@ -3128,8 +3031,7 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:603:/ clear"); - /*clear*/ /*_#IS_CLOSURE__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ; } ; @@ -3210,8 +3112,7 @@ meltrout_29_WARMELTmiHOOKS_ENABLE_ALL_PASSES_END(meltclosure_ptr_t meltclosp_, m /* end of frame for routine meltrout_29_WARMELTmiHOOKS_ENABLE_ALL_PASSES_END fromline 1719 */ - /* classy proc frame meltrout_29_WARMELTmiHOOKS_ENABLE_ALL_PASSES_END */ - MeltFrame_meltrout_29_WARMELTmiHOOKS_ENABLE_ALL_PASSES_END + /* classy proc frame meltrout_29_WARMELTmiHOOKS_ENABLE_ALL_PASSES_END */ MeltFrame_meltrout_29_WARMELTmiHOOKS_ENABLE_ALL_PASSES_END meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_29_WARMELTmiHOOKS_ENABLE_ALL_PASSES_END fromline 1748*/ #if ENABLE_CHECKING @@ -3224,8 +3125,7 @@ meltrout_29_WARMELTmiHOOKS_ENABLE_ALL_PASSES_END(meltclosure_ptr_t meltclosp_, m #define meltframe meltfram__ melt_trace_start("ENABLE_ALL_PASSES_END", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -3336,8 +3236,7 @@ meltrout_30_WARMELTmiHOOKS_REGISTER_ALL_PASSES_END_FIRST(meltclosure_ptr_t meltc /* end of frame for routine meltrout_30_WARMELTmiHOOKS_REGISTER_ALL_PASSES_END_FIRST fromline 1719 */ - /* classy proc frame meltrout_30_WARMELTmiHOOKS_REGISTER_ALL_PASSES_END_FIRST */ - MeltFrame_meltrout_30_WARMELTmiHOOKS_REGISTER_ALL_PASSES_END_FIRST + /* classy proc frame meltrout_30_WARMELTmiHOOKS_REGISTER_ALL_PASSES_END_FIRST */ MeltFrame_meltrout_30_WARMELTmiHOOKS_REGISTER_ALL_PASSES_END_FIRST meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_30_WARMELTmiHOOKS_REGISTER_ALL_PASSES_END_FIRST fromline 1748*/ #if ENABLE_CHECKING @@ -3350,8 +3249,7 @@ meltrout_30_WARMELTmiHOOKS_REGISTER_ALL_PASSES_END_FIRST(meltclosure_ptr_t meltc #define meltframe meltfram__ melt_trace_start("REGISTER_ALL_PASSES_END_FIRST", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -3361,8 +3259,7 @@ meltrout_30_WARMELTmiHOOKS_REGISTER_ALL_PASSES_END_FIRST(meltclosure_ptr_t meltc /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:703:/ getarg"); - /*_.FUN__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -3375,12 +3272,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_CLOSURE__L1*/ - meltfnum[0] = + /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-hooks.melt:707:/ cond"); - /*cond*/ - if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3391,8 +3286,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!ALL_PASSES_END_DELAYED_QUEUE*/ meltfrout->tabval[0])), (melt_ptr_t)((/*!CLASS_DELAYED_QUEUE*/ meltfrout->tabval[1]))) ) /*then*/ @@ -3403,8 +3297,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!ALL_PASSES_END_DELAYED_QUEUE*/ meltfrout->tabval[0])) /*=obj*/; melt_object_get_field(slot,obj, 2, "DELQU_FIRST"); - /*_.FIRSTLIST__V3*/ - meltfptr[2] = slot; + /*_.FIRSTLIST__V3*/ meltfptr[2] = slot; }; ; } @@ -3426,12 +3319,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#NULL__L2*/ - meltfnum[1] = + /*_#NULL__L2*/ meltfnum[1] = ((/*_.FIRSTLIST__V3*/ meltfptr[2]) == NULL);; MELT_LOCATION("warmelt-hooks.melt:711:/ cond"); - /*cond*/ - if (/*_#NULL__L2*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#NULL__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3441,17 +3332,14 @@ meltlab_endgetargs: /*_.MAKE_LIST__V5*/ meltfptr[4] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[3]))));; MELT_LOCATION("warmelt-hooks.melt:713:/ compute"); - /*_.FIRSTLIST__V3*/ - meltfptr[2] = /*_.SETQ___V6*/ meltfptr[5] = /*_.MAKE_LIST__V5*/ meltfptr[4];; + /*_.FIRSTLIST__V3*/ meltfptr[2] = /*_.SETQ___V6*/ meltfptr[5] = /*_.MAKE_LIST__V5*/ meltfptr[4];; MELT_CHECK_SIGNAL(); ; - /*_.MAKE_LIST__V7*/ - meltfptr[6] = + /*_.MAKE_LIST__V7*/ meltfptr[6] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[3]))));; MELT_LOCATION("warmelt-hooks.melt:714:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!ALL_PASSES_END_DELAYED_QUEUE*/ meltfrout->tabval[0])), (melt_ptr_t)((/*!CLASS_DELAYED_QUEUE*/ meltfrout->tabval[1]))) ) /*then*/ @@ -3489,14 +3377,11 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:711:/ clear"); - /*clear*/ /*_.MAKE_LIST__V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.MAKE_LIST__V5*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.SETQ___V6*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_LIST__V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.MAKE_LIST__V7*/ meltfptr[6] = 0 ; } ; } /*noelse*/ @@ -3509,14 +3394,11 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-hooks.melt:708:/ clear"); - /*clear*/ /*_.FIRSTLIST__V3*/ - meltfptr[2] = 0 ; + /*clear*/ /*_.FIRSTLIST__V3*/ meltfptr[2] = 0 ; /*^clear*/ - /*clear*/ /*_.ENABLE_ALL_PASSES_END__V4*/ - meltfptr[3] = 0 ; + /*clear*/ /*_.ENABLE_ALL_PASSES_END__V4*/ meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#NULL__L2*/ meltfnum[1] = 0 ; /*epilog*/ } ; @@ -3543,8 +3425,7 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:703:/ clear"); - /*clear*/ /*_#IS_CLOSURE__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ; } ; @@ -3625,8 +3506,7 @@ meltrout_31_WARMELTmiHOOKS_REGISTER_ALL_PASSES_END_LAST(meltclosure_ptr_t meltcl /* end of frame for routine meltrout_31_WARMELTmiHOOKS_REGISTER_ALL_PASSES_END_LAST fromline 1719 */ - /* classy proc frame meltrout_31_WARMELTmiHOOKS_REGISTER_ALL_PASSES_END_LAST */ - MeltFrame_meltrout_31_WARMELTmiHOOKS_REGISTER_ALL_PASSES_END_LAST + /* classy proc frame meltrout_31_WARMELTmiHOOKS_REGISTER_ALL_PASSES_END_LAST */ MeltFrame_meltrout_31_WARMELTmiHOOKS_REGISTER_ALL_PASSES_END_LAST meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_31_WARMELTmiHOOKS_REGISTER_ALL_PASSES_END_LAST fromline 1748*/ #if ENABLE_CHECKING @@ -3639,8 +3519,7 @@ meltrout_31_WARMELTmiHOOKS_REGISTER_ALL_PASSES_END_LAST(meltclosure_ptr_t meltcl #define meltframe meltfram__ melt_trace_start("REGISTER_ALL_PASSES_END_LAST", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -3650,8 +3529,7 @@ meltrout_31_WARMELTmiHOOKS_REGISTER_ALL_PASSES_END_LAST(meltclosure_ptr_t meltcl /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:726:/ getarg"); - /*_.FUN__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -3664,12 +3542,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_CLOSURE__L1*/ - meltfnum[0] = + /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-hooks.melt:730:/ cond"); - /*cond*/ - if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3680,8 +3556,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!ALL_PASSES_END_DELAYED_QUEUE*/ meltfrout->tabval[0])), (melt_ptr_t)((/*!CLASS_DELAYED_QUEUE*/ meltfrout->tabval[1]))) ) /*then*/ @@ -3692,8 +3567,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!ALL_PASSES_END_DELAYED_QUEUE*/ meltfrout->tabval[0])) /*=obj*/; melt_object_get_field(slot,obj, 3, "DELQU_LAST"); - /*_.LASTLIST__V3*/ - meltfptr[2] = slot; + /*_.LASTLIST__V3*/ meltfptr[2] = slot; }; ; } @@ -3715,12 +3589,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#NULL__L2*/ - meltfnum[1] = + /*_#NULL__L2*/ meltfnum[1] = ((/*_.LASTLIST__V3*/ meltfptr[2]) == NULL);; MELT_LOCATION("warmelt-hooks.melt:734:/ cond"); - /*cond*/ - if (/*_#NULL__L2*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#NULL__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -3730,17 +3602,14 @@ meltlab_endgetargs: /*_.MAKE_LIST__V5*/ meltfptr[4] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[3]))));; MELT_LOCATION("warmelt-hooks.melt:736:/ compute"); - /*_.LASTLIST__V3*/ - meltfptr[2] = /*_.SETQ___V6*/ meltfptr[5] = /*_.MAKE_LIST__V5*/ meltfptr[4];; + /*_.LASTLIST__V3*/ meltfptr[2] = /*_.SETQ___V6*/ meltfptr[5] = /*_.MAKE_LIST__V5*/ meltfptr[4];; MELT_CHECK_SIGNAL(); ; - /*_.MAKE_LIST__V7*/ - meltfptr[6] = + /*_.MAKE_LIST__V7*/ meltfptr[6] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[3]))));; MELT_LOCATION("warmelt-hooks.melt:737:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!ALL_PASSES_END_DELAYED_QUEUE*/ meltfrout->tabval[0])), (melt_ptr_t)((/*!CLASS_DELAYED_QUEUE*/ meltfrout->tabval[1]))) ) /*then*/ @@ -3778,14 +3647,11 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:734:/ clear"); - /*clear*/ /*_.MAKE_LIST__V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.MAKE_LIST__V5*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.SETQ___V6*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_LIST__V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.MAKE_LIST__V7*/ meltfptr[6] = 0 ; } ; } /*noelse*/ @@ -3798,14 +3664,11 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-hooks.melt:731:/ clear"); - /*clear*/ /*_.LASTLIST__V3*/ - meltfptr[2] = 0 ; + /*clear*/ /*_.LASTLIST__V3*/ meltfptr[2] = 0 ; /*^clear*/ - /*clear*/ /*_.ENABLE_ALL_PASSES_END__V4*/ - meltfptr[3] = 0 ; + /*clear*/ /*_.ENABLE_ALL_PASSES_END__V4*/ meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#NULL__L2*/ meltfnum[1] = 0 ; /*epilog*/ } ; @@ -3832,8 +3695,7 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:726:/ clear"); - /*clear*/ /*_#IS_CLOSURE__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ; } ; @@ -3914,8 +3776,7 @@ meltrout_33_WARMELTmiHOOKS_ENABLE_ALL_IPA_PASSES_START(meltclosure_ptr_t meltclo /* end of frame for routine meltrout_33_WARMELTmiHOOKS_ENABLE_ALL_IPA_PASSES_START fromline 1719 */ - /* classy proc frame meltrout_33_WARMELTmiHOOKS_ENABLE_ALL_IPA_PASSES_START */ - MeltFrame_meltrout_33_WARMELTmiHOOKS_ENABLE_ALL_IPA_PASSES_START + /* classy proc frame meltrout_33_WARMELTmiHOOKS_ENABLE_ALL_IPA_PASSES_START */ MeltFrame_meltrout_33_WARMELTmiHOOKS_ENABLE_ALL_IPA_PASSES_START meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_33_WARMELTmiHOOKS_ENABLE_ALL_IPA_PASSES_START fromline 1748*/ #if ENABLE_CHECKING @@ -3928,8 +3789,7 @@ meltrout_33_WARMELTmiHOOKS_ENABLE_ALL_IPA_PASSES_START(meltclosure_ptr_t meltclo #define meltframe meltfram__ melt_trace_start("ENABLE_ALL_IPA_PASSES_START", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -4040,8 +3900,7 @@ meltrout_34_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_START_FIRST(meltclosure_ptr_t /* end of frame for routine meltrout_34_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_START_FIRST fromline 1719 */ - /* classy proc frame meltrout_34_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_START_FIRST */ - MeltFrame_meltrout_34_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_START_FIRST + /* classy proc frame meltrout_34_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_START_FIRST */ MeltFrame_meltrout_34_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_START_FIRST meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_34_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_START_FIRST fromline 1748*/ #if ENABLE_CHECKING @@ -4054,8 +3913,7 @@ meltrout_34_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_START_FIRST(meltclosure_ptr_t #define meltframe meltfram__ melt_trace_start("REGISTER_ALL_IPA_PASSES_START_FIRST", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -4065,8 +3923,7 @@ meltrout_34_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_START_FIRST(meltclosure_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:825:/ getarg"); - /*_.FUN__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -4079,12 +3936,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_CLOSURE__L1*/ - meltfnum[0] = + /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-hooks.melt:829:/ cond"); - /*cond*/ - if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4095,8 +3950,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!ALL_IPA_PASSES_START_DELAYED_QUEUE*/ meltfrout->tabval[0])), (melt_ptr_t)((/*!CLASS_DELAYED_QUEUE*/ meltfrout->tabval[1]))) ) /*then*/ @@ -4107,8 +3961,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!ALL_IPA_PASSES_START_DELAYED_QUEUE*/ meltfrout->tabval[0])) /*=obj*/; melt_object_get_field(slot,obj, 2, "DELQU_FIRST"); - /*_.FIRSTLIST__V3*/ - meltfptr[2] = slot; + /*_.FIRSTLIST__V3*/ meltfptr[2] = slot; }; ; } @@ -4130,12 +3983,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#NULL__L2*/ - meltfnum[1] = + /*_#NULL__L2*/ meltfnum[1] = ((/*_.FIRSTLIST__V3*/ meltfptr[2]) == NULL);; MELT_LOCATION("warmelt-hooks.melt:833:/ cond"); - /*cond*/ - if (/*_#NULL__L2*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#NULL__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4145,17 +3996,14 @@ meltlab_endgetargs: /*_.MAKE_LIST__V5*/ meltfptr[4] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[3]))));; MELT_LOCATION("warmelt-hooks.melt:835:/ compute"); - /*_.FIRSTLIST__V3*/ - meltfptr[2] = /*_.SETQ___V6*/ meltfptr[5] = /*_.MAKE_LIST__V5*/ meltfptr[4];; + /*_.FIRSTLIST__V3*/ meltfptr[2] = /*_.SETQ___V6*/ meltfptr[5] = /*_.MAKE_LIST__V5*/ meltfptr[4];; MELT_CHECK_SIGNAL(); ; - /*_.MAKE_LIST__V7*/ - meltfptr[6] = + /*_.MAKE_LIST__V7*/ meltfptr[6] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[3]))));; MELT_LOCATION("warmelt-hooks.melt:836:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!ALL_IPA_PASSES_START_DELAYED_QUEUE*/ meltfrout->tabval[0])), (melt_ptr_t)((/*!CLASS_DELAYED_QUEUE*/ meltfrout->tabval[1]))) ) /*then*/ @@ -4193,14 +4041,11 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:833:/ clear"); - /*clear*/ /*_.MAKE_LIST__V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.MAKE_LIST__V5*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.SETQ___V6*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_LIST__V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.MAKE_LIST__V7*/ meltfptr[6] = 0 ; } ; } /*noelse*/ @@ -4213,14 +4058,11 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-hooks.melt:830:/ clear"); - /*clear*/ /*_.FIRSTLIST__V3*/ - meltfptr[2] = 0 ; + /*clear*/ /*_.FIRSTLIST__V3*/ meltfptr[2] = 0 ; /*^clear*/ - /*clear*/ /*_.ENABLE_ALL_IPA_PASSES_START__V4*/ - meltfptr[3] = 0 ; + /*clear*/ /*_.ENABLE_ALL_IPA_PASSES_START__V4*/ meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#NULL__L2*/ meltfnum[1] = 0 ; /*epilog*/ } ; @@ -4247,8 +4089,7 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:825:/ clear"); - /*clear*/ /*_#IS_CLOSURE__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ; } ; @@ -4329,8 +4170,7 @@ meltrout_35_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_START_LAST(meltclosure_ptr_t /* end of frame for routine meltrout_35_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_START_LAST fromline 1719 */ - /* classy proc frame meltrout_35_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_START_LAST */ - MeltFrame_meltrout_35_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_START_LAST + /* classy proc frame meltrout_35_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_START_LAST */ MeltFrame_meltrout_35_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_START_LAST meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_35_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_START_LAST fromline 1748*/ #if ENABLE_CHECKING @@ -4343,8 +4183,7 @@ meltrout_35_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_START_LAST(meltclosure_ptr_t #define meltframe meltfram__ melt_trace_start("REGISTER_ALL_IPA_PASSES_START_LAST", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -4354,8 +4193,7 @@ meltrout_35_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_START_LAST(meltclosure_ptr_t /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:848:/ getarg"); - /*_.FUN__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -4368,12 +4206,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_CLOSURE__L1*/ - meltfnum[0] = + /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-hooks.melt:852:/ cond"); - /*cond*/ - if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4384,8 +4220,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!ALL_IPA_PASSES_START_DELAYED_QUEUE*/ meltfrout->tabval[0])), (melt_ptr_t)((/*!CLASS_DELAYED_QUEUE*/ meltfrout->tabval[1]))) ) /*then*/ @@ -4396,8 +4231,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!ALL_IPA_PASSES_START_DELAYED_QUEUE*/ meltfrout->tabval[0])) /*=obj*/; melt_object_get_field(slot,obj, 3, "DELQU_LAST"); - /*_.LASTLIST__V3*/ - meltfptr[2] = slot; + /*_.LASTLIST__V3*/ meltfptr[2] = slot; }; ; } @@ -4419,12 +4253,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#NULL__L2*/ - meltfnum[1] = + /*_#NULL__L2*/ meltfnum[1] = ((/*_.LASTLIST__V3*/ meltfptr[2]) == NULL);; MELT_LOCATION("warmelt-hooks.melt:856:/ cond"); - /*cond*/ - if (/*_#NULL__L2*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#NULL__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4434,17 +4266,14 @@ meltlab_endgetargs: /*_.MAKE_LIST__V5*/ meltfptr[4] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[3]))));; MELT_LOCATION("warmelt-hooks.melt:858:/ compute"); - /*_.LASTLIST__V3*/ - meltfptr[2] = /*_.SETQ___V6*/ meltfptr[5] = /*_.MAKE_LIST__V5*/ meltfptr[4];; + /*_.LASTLIST__V3*/ meltfptr[2] = /*_.SETQ___V6*/ meltfptr[5] = /*_.MAKE_LIST__V5*/ meltfptr[4];; MELT_CHECK_SIGNAL(); ; - /*_.MAKE_LIST__V7*/ - meltfptr[6] = + /*_.MAKE_LIST__V7*/ meltfptr[6] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[3]))));; MELT_LOCATION("warmelt-hooks.melt:859:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!ALL_IPA_PASSES_START_DELAYED_QUEUE*/ meltfrout->tabval[0])), (melt_ptr_t)((/*!CLASS_DELAYED_QUEUE*/ meltfrout->tabval[1]))) ) /*then*/ @@ -4482,14 +4311,11 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:856:/ clear"); - /*clear*/ /*_.MAKE_LIST__V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.MAKE_LIST__V5*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.SETQ___V6*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_LIST__V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.MAKE_LIST__V7*/ meltfptr[6] = 0 ; } ; } /*noelse*/ @@ -4502,14 +4328,11 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-hooks.melt:853:/ clear"); - /*clear*/ /*_.LASTLIST__V3*/ - meltfptr[2] = 0 ; + /*clear*/ /*_.LASTLIST__V3*/ meltfptr[2] = 0 ; /*^clear*/ - /*clear*/ /*_.ENABLE_ALL_IPA_PASSES_START__V4*/ - meltfptr[3] = 0 ; + /*clear*/ /*_.ENABLE_ALL_IPA_PASSES_START__V4*/ meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#NULL__L2*/ meltfnum[1] = 0 ; /*epilog*/ } ; @@ -4536,8 +4359,7 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:848:/ clear"); - /*clear*/ /*_#IS_CLOSURE__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ; } ; @@ -4618,8 +4440,7 @@ meltrout_37_WARMELTmiHOOKS_ENABLE_ALL_IPA_PASSES_END(meltclosure_ptr_t meltclosp /* end of frame for routine meltrout_37_WARMELTmiHOOKS_ENABLE_ALL_IPA_PASSES_END fromline 1719 */ - /* classy proc frame meltrout_37_WARMELTmiHOOKS_ENABLE_ALL_IPA_PASSES_END */ - MeltFrame_meltrout_37_WARMELTmiHOOKS_ENABLE_ALL_IPA_PASSES_END + /* classy proc frame meltrout_37_WARMELTmiHOOKS_ENABLE_ALL_IPA_PASSES_END */ MeltFrame_meltrout_37_WARMELTmiHOOKS_ENABLE_ALL_IPA_PASSES_END meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_37_WARMELTmiHOOKS_ENABLE_ALL_IPA_PASSES_END fromline 1748*/ #if ENABLE_CHECKING @@ -4632,8 +4453,7 @@ meltrout_37_WARMELTmiHOOKS_ENABLE_ALL_IPA_PASSES_END(meltclosure_ptr_t meltclosp #define meltframe meltfram__ melt_trace_start("ENABLE_ALL_IPA_PASSES_END", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -4744,8 +4564,7 @@ meltrout_38_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_END_FIRST(meltclosure_ptr_t m /* end of frame for routine meltrout_38_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_END_FIRST fromline 1719 */ - /* classy proc frame meltrout_38_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_END_FIRST */ - MeltFrame_meltrout_38_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_END_FIRST + /* classy proc frame meltrout_38_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_END_FIRST */ MeltFrame_meltrout_38_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_END_FIRST meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_38_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_END_FIRST fromline 1748*/ #if ENABLE_CHECKING @@ -4758,8 +4577,7 @@ meltrout_38_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_END_FIRST(meltclosure_ptr_t m #define meltframe meltfram__ melt_trace_start("REGISTER_ALL_IPA_PASSES_END_FIRST", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -4769,8 +4587,7 @@ meltrout_38_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_END_FIRST(meltclosure_ptr_t m /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:948:/ getarg"); - /*_.FUN__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -4783,12 +4600,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_CLOSURE__L1*/ - meltfnum[0] = + /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-hooks.melt:952:/ cond"); - /*cond*/ - if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4799,8 +4614,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!ALL_IPA_PASSES_END_DELAYED_QUEUE*/ meltfrout->tabval[0])), (melt_ptr_t)((/*!CLASS_DELAYED_QUEUE*/ meltfrout->tabval[1]))) ) /*then*/ @@ -4811,8 +4625,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!ALL_IPA_PASSES_END_DELAYED_QUEUE*/ meltfrout->tabval[0])) /*=obj*/; melt_object_get_field(slot,obj, 2, "DELQU_FIRST"); - /*_.FIRSTLIST__V3*/ - meltfptr[2] = slot; + /*_.FIRSTLIST__V3*/ meltfptr[2] = slot; }; ; } @@ -4834,12 +4647,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#NULL__L2*/ - meltfnum[1] = + /*_#NULL__L2*/ meltfnum[1] = ((/*_.FIRSTLIST__V3*/ meltfptr[2]) == NULL);; MELT_LOCATION("warmelt-hooks.melt:956:/ cond"); - /*cond*/ - if (/*_#NULL__L2*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#NULL__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -4849,17 +4660,14 @@ meltlab_endgetargs: /*_.MAKE_LIST__V5*/ meltfptr[4] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[3]))));; MELT_LOCATION("warmelt-hooks.melt:958:/ compute"); - /*_.FIRSTLIST__V3*/ - meltfptr[2] = /*_.SETQ___V6*/ meltfptr[5] = /*_.MAKE_LIST__V5*/ meltfptr[4];; + /*_.FIRSTLIST__V3*/ meltfptr[2] = /*_.SETQ___V6*/ meltfptr[5] = /*_.MAKE_LIST__V5*/ meltfptr[4];; MELT_CHECK_SIGNAL(); ; - /*_.MAKE_LIST__V7*/ - meltfptr[6] = + /*_.MAKE_LIST__V7*/ meltfptr[6] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[3]))));; MELT_LOCATION("warmelt-hooks.melt:959:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!ALL_IPA_PASSES_END_DELAYED_QUEUE*/ meltfrout->tabval[0])), (melt_ptr_t)((/*!CLASS_DELAYED_QUEUE*/ meltfrout->tabval[1]))) ) /*then*/ @@ -4897,14 +4705,11 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:956:/ clear"); - /*clear*/ /*_.MAKE_LIST__V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.MAKE_LIST__V5*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.SETQ___V6*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_LIST__V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.MAKE_LIST__V7*/ meltfptr[6] = 0 ; } ; } /*noelse*/ @@ -4917,14 +4722,11 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-hooks.melt:953:/ clear"); - /*clear*/ /*_.FIRSTLIST__V3*/ - meltfptr[2] = 0 ; + /*clear*/ /*_.FIRSTLIST__V3*/ meltfptr[2] = 0 ; /*^clear*/ - /*clear*/ /*_.ENABLE_ALL_IPA_PASSES_END__V4*/ - meltfptr[3] = 0 ; + /*clear*/ /*_.ENABLE_ALL_IPA_PASSES_END__V4*/ meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#NULL__L2*/ meltfnum[1] = 0 ; /*epilog*/ } ; @@ -4951,8 +4753,7 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:948:/ clear"); - /*clear*/ /*_#IS_CLOSURE__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ; } ; @@ -5033,8 +4834,7 @@ meltrout_39_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_END_LAST(meltclosure_ptr_t me /* end of frame for routine meltrout_39_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_END_LAST fromline 1719 */ - /* classy proc frame meltrout_39_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_END_LAST */ - MeltFrame_meltrout_39_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_END_LAST + /* classy proc frame meltrout_39_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_END_LAST */ MeltFrame_meltrout_39_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_END_LAST meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_39_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_END_LAST fromline 1748*/ #if ENABLE_CHECKING @@ -5047,8 +4847,7 @@ meltrout_39_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_END_LAST(meltclosure_ptr_t me #define meltframe meltfram__ melt_trace_start("REGISTER_ALL_IPA_PASSES_END_LAST", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -5058,8 +4857,7 @@ meltrout_39_WARMELTmiHOOKS_REGISTER_ALL_IPA_PASSES_END_LAST(meltclosure_ptr_t me /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:971:/ getarg"); - /*_.FUN__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -5072,12 +4870,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_CLOSURE__L1*/ - meltfnum[0] = + /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-hooks.melt:975:/ cond"); - /*cond*/ - if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5088,8 +4884,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!ALL_IPA_PASSES_END_DELAYED_QUEUE*/ meltfrout->tabval[0])), (melt_ptr_t)((/*!CLASS_DELAYED_QUEUE*/ meltfrout->tabval[1]))) ) /*then*/ @@ -5100,8 +4895,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!ALL_IPA_PASSES_END_DELAYED_QUEUE*/ meltfrout->tabval[0])) /*=obj*/; melt_object_get_field(slot,obj, 3, "DELQU_LAST"); - /*_.LASTLIST__V3*/ - meltfptr[2] = slot; + /*_.LASTLIST__V3*/ meltfptr[2] = slot; }; ; } @@ -5123,12 +4917,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#NULL__L2*/ - meltfnum[1] = + /*_#NULL__L2*/ meltfnum[1] = ((/*_.LASTLIST__V3*/ meltfptr[2]) == NULL);; MELT_LOCATION("warmelt-hooks.melt:979:/ cond"); - /*cond*/ - if (/*_#NULL__L2*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#NULL__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5138,17 +4930,14 @@ meltlab_endgetargs: /*_.MAKE_LIST__V5*/ meltfptr[4] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[3]))));; MELT_LOCATION("warmelt-hooks.melt:981:/ compute"); - /*_.LASTLIST__V3*/ - meltfptr[2] = /*_.SETQ___V6*/ meltfptr[5] = /*_.MAKE_LIST__V5*/ meltfptr[4];; + /*_.LASTLIST__V3*/ meltfptr[2] = /*_.SETQ___V6*/ meltfptr[5] = /*_.MAKE_LIST__V5*/ meltfptr[4];; MELT_CHECK_SIGNAL(); ; - /*_.MAKE_LIST__V7*/ - meltfptr[6] = + /*_.MAKE_LIST__V7*/ meltfptr[6] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[3]))));; MELT_LOCATION("warmelt-hooks.melt:982:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!ALL_IPA_PASSES_END_DELAYED_QUEUE*/ meltfrout->tabval[0])), (melt_ptr_t)((/*!CLASS_DELAYED_QUEUE*/ meltfrout->tabval[1]))) ) /*then*/ @@ -5186,14 +4975,11 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:979:/ clear"); - /*clear*/ /*_.MAKE_LIST__V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.MAKE_LIST__V5*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.SETQ___V6*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_LIST__V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.MAKE_LIST__V7*/ meltfptr[6] = 0 ; } ; } /*noelse*/ @@ -5206,14 +4992,11 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-hooks.melt:976:/ clear"); - /*clear*/ /*_.LASTLIST__V3*/ - meltfptr[2] = 0 ; + /*clear*/ /*_.LASTLIST__V3*/ meltfptr[2] = 0 ; /*^clear*/ - /*clear*/ /*_.ENABLE_ALL_IPA_PASSES_END__V4*/ - meltfptr[3] = 0 ; + /*clear*/ /*_.ENABLE_ALL_IPA_PASSES_END__V4*/ meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#NULL__L2*/ meltfnum[1] = 0 ; /*epilog*/ } ; @@ -5240,8 +5023,7 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:971:/ clear"); - /*clear*/ /*_#IS_CLOSURE__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ; } ; @@ -5322,8 +5104,7 @@ meltrout_41_WARMELTmiHOOKS_ENABLE_EARLY_GIMPLE_PASSES_START(meltclosure_ptr_t me /* end of frame for routine meltrout_41_WARMELTmiHOOKS_ENABLE_EARLY_GIMPLE_PASSES_START fromline 1719 */ - /* classy proc frame meltrout_41_WARMELTmiHOOKS_ENABLE_EARLY_GIMPLE_PASSES_START */ - MeltFrame_meltrout_41_WARMELTmiHOOKS_ENABLE_EARLY_GIMPLE_PASSES_START + /* classy proc frame meltrout_41_WARMELTmiHOOKS_ENABLE_EARLY_GIMPLE_PASSES_START */ MeltFrame_meltrout_41_WARMELTmiHOOKS_ENABLE_EARLY_GIMPLE_PASSES_START meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_41_WARMELTmiHOOKS_ENABLE_EARLY_GIMPLE_PASSES_START fromline 1748*/ #if ENABLE_CHECKING @@ -5336,8 +5117,7 @@ meltrout_41_WARMELTmiHOOKS_ENABLE_EARLY_GIMPLE_PASSES_START(meltclosure_ptr_t me #define meltframe meltfram__ melt_trace_start("ENABLE_EARLY_GIMPLE_PASSES_START", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -5448,8 +5228,7 @@ meltrout_42_WARMELTmiHOOKS_REGISTER_EARLY_GIMPLE_PASSES_START_FIRST(meltclosure_ /* end of frame for routine meltrout_42_WARMELTmiHOOKS_REGISTER_EARLY_GIMPLE_PASSES_START_FIRST fromline 1719 */ - /* classy proc frame meltrout_42_WARMELTmiHOOKS_REGISTER_EARLY_GIMPLE_PASSES_START_FIRST */ - MeltFrame_meltrout_42_WARMELTmiHOOKS_REGISTER_EARLY_GIMPLE_PASSES_START_FIRST + /* classy proc frame meltrout_42_WARMELTmiHOOKS_REGISTER_EARLY_GIMPLE_PASSES_START_FIRST */ MeltFrame_meltrout_42_WARMELTmiHOOKS_REGISTER_EARLY_GIMPLE_PASSES_START_FIRST meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_42_WARMELTmiHOOKS_REGISTER_EARLY_GIMPLE_PASSES_START_FIRST fromline 1748*/ #if ENABLE_CHECKING @@ -5462,8 +5241,7 @@ meltrout_42_WARMELTmiHOOKS_REGISTER_EARLY_GIMPLE_PASSES_START_FIRST(meltclosure_ #define meltframe meltfram__ melt_trace_start("REGISTER_EARLY_GIMPLE_PASSES_START_FIRST", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -5473,8 +5251,7 @@ meltrout_42_WARMELTmiHOOKS_REGISTER_EARLY_GIMPLE_PASSES_START_FIRST(meltclosure_ /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:1071:/ getarg"); - /*_.FUN__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -5487,12 +5264,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_CLOSURE__L1*/ - meltfnum[0] = + /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-hooks.melt:1075:/ cond"); - /*cond*/ - if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5503,8 +5278,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!EARLY_GIMPLE_PASSES_START_DELAYED_QUEUE*/ meltfrout->tabval[0])), (melt_ptr_t)((/*!CLASS_DELAYED_QUEUE*/ meltfrout->tabval[1]))) ) /*then*/ @@ -5515,8 +5289,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!EARLY_GIMPLE_PASSES_START_DELAYED_QUEUE*/ meltfrout->tabval[0])) /*=obj*/; melt_object_get_field(slot,obj, 2, "DELQU_FIRST"); - /*_.FIRSTLIST__V3*/ - meltfptr[2] = slot; + /*_.FIRSTLIST__V3*/ meltfptr[2] = slot; }; ; } @@ -5538,12 +5311,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#NULL__L2*/ - meltfnum[1] = + /*_#NULL__L2*/ meltfnum[1] = ((/*_.FIRSTLIST__V3*/ meltfptr[2]) == NULL);; MELT_LOCATION("warmelt-hooks.melt:1079:/ cond"); - /*cond*/ - if (/*_#NULL__L2*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#NULL__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5553,17 +5324,14 @@ meltlab_endgetargs: /*_.MAKE_LIST__V5*/ meltfptr[4] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[3]))));; MELT_LOCATION("warmelt-hooks.melt:1081:/ compute"); - /*_.FIRSTLIST__V3*/ - meltfptr[2] = /*_.SETQ___V6*/ meltfptr[5] = /*_.MAKE_LIST__V5*/ meltfptr[4];; + /*_.FIRSTLIST__V3*/ meltfptr[2] = /*_.SETQ___V6*/ meltfptr[5] = /*_.MAKE_LIST__V5*/ meltfptr[4];; MELT_CHECK_SIGNAL(); ; - /*_.MAKE_LIST__V7*/ - meltfptr[6] = + /*_.MAKE_LIST__V7*/ meltfptr[6] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[3]))));; MELT_LOCATION("warmelt-hooks.melt:1082:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!EARLY_GIMPLE_PASSES_START_DELAYED_QUEUE*/ meltfrout->tabval[0])), (melt_ptr_t)((/*!CLASS_DELAYED_QUEUE*/ meltfrout->tabval[1]))) ) /*then*/ @@ -5601,14 +5369,11 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:1079:/ clear"); - /*clear*/ /*_.MAKE_LIST__V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.MAKE_LIST__V5*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.SETQ___V6*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_LIST__V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.MAKE_LIST__V7*/ meltfptr[6] = 0 ; } ; } /*noelse*/ @@ -5621,14 +5386,11 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-hooks.melt:1076:/ clear"); - /*clear*/ /*_.FIRSTLIST__V3*/ - meltfptr[2] = 0 ; + /*clear*/ /*_.FIRSTLIST__V3*/ meltfptr[2] = 0 ; /*^clear*/ - /*clear*/ /*_.ENABLE_EARLY_GIMPLE_PASSES_START__V4*/ - meltfptr[3] = 0 ; + /*clear*/ /*_.ENABLE_EARLY_GIMPLE_PASSES_START__V4*/ meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#NULL__L2*/ meltfnum[1] = 0 ; /*epilog*/ } ; @@ -5656,8 +5418,7 @@ first")); /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:1071:/ clear"); - /*clear*/ /*_#IS_CLOSURE__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ; } ; @@ -5738,8 +5499,7 @@ meltrout_43_WARMELTmiHOOKS_REGISTER_EARLY_GIMPLE_PASSES_START_LAST(meltclosure_p /* end of frame for routine meltrout_43_WARMELTmiHOOKS_REGISTER_EARLY_GIMPLE_PASSES_START_LAST fromline 1719 */ - /* classy proc frame meltrout_43_WARMELTmiHOOKS_REGISTER_EARLY_GIMPLE_PASSES_START_LAST */ - MeltFrame_meltrout_43_WARMELTmiHOOKS_REGISTER_EARLY_GIMPLE_PASSES_START_LAST + /* classy proc frame meltrout_43_WARMELTmiHOOKS_REGISTER_EARLY_GIMPLE_PASSES_START_LAST */ MeltFrame_meltrout_43_WARMELTmiHOOKS_REGISTER_EARLY_GIMPLE_PASSES_START_LAST meltfram__ /*declfrastruct fromline 1743*/ /*classyprocarg meltrout_43_WARMELTmiHOOKS_REGISTER_EARLY_GIMPLE_PASSES_START_LAST fromline 1748*/ #if ENABLE_CHECKING @@ -5752,8 +5512,7 @@ meltrout_43_WARMELTmiHOOKS_REGISTER_EARLY_GIMPLE_PASSES_START_LAST(meltclosure_p #define meltframe meltfram__ melt_trace_start("REGISTER_EARLY_GIMPLE_PASSES_START_LAST", meltcallcount); - /*use arguments*/ - (void) meltclosp_; + /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; @@ -5763,8 +5522,7 @@ meltrout_43_WARMELTmiHOOKS_REGISTER_EARLY_GIMPLE_PASSES_START_LAST(meltclosure_p /*getarg#0*/ MELT_LOCATION("warmelt-hooks.melt:1094:/ getarg"); - /*_.FUN__V2*/ - meltfptr[1] = (melt_ptr_t) meltfirstargp_; + /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: @@ -5777,12 +5535,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#IS_CLOSURE__L1*/ - meltfnum[0] = + /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; MELT_LOCATION("warmelt-hooks.melt:1098:/ cond"); - /*cond*/ - if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ + /*cond*/ if (/*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5793,8 +5549,7 @@ meltlab_endgetargs: /*^cond*/ - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!EARLY_GIMPLE_PASSES_START_DELAYED_QUEUE*/ meltfrout->tabval[0])), (melt_ptr_t)((/*!CLASS_DELAYED_QUEUE*/ meltfrout->tabval[1]))) ) /*then*/ @@ -5805,8 +5560,7 @@ meltlab_endgetargs: melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!EARLY_GIMPLE_PASSES_START_DELAYED_QUEUE*/ meltfrout->tabval[0])) /*=obj*/; melt_object_get_field(slot,obj, 3, "DELQU_LAST"); - /*_.LASTLIST__V3*/ - meltfptr[2] = slot; + /*_.LASTLIST__V3*/ meltfptr[2] = slot; }; ; } @@ -5828,12 +5582,10 @@ meltlab_endgetargs: MELT_CHECK_SIGNAL(); ; - /*_#NULL__L2*/ - meltfnum[1] = + /*_#NULL__L2*/ meltfnum[1] = ((/*_.LASTLIST__V3*/ meltfptr[2]) == NULL);; MELT_LOCATION("warmelt-hooks.melt:1102:/ cond"); - /*cond*/ - if (/*_#NULL__L2*/ meltfnum[1]) /*then*/ + /*cond*/ if (/*_#NULL__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ @@ -5843,17 +5595,14 @@ meltlab_endgetargs: /*_.MAKE_LIST__V5*/ meltfptr[4] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[3]))));; MELT_LOCATION("warmelt-hooks.melt:1104:/ compute"); - /*_.LASTLIST__V3*/ - meltfptr[2] = /*_.SETQ___V6*/ meltfptr[5] = /*_.MAKE_LIST__V5*/ meltfptr[4];; + /*_.LASTLIST__V3*/ meltfptr[2] = /*_.SETQ___V6*/ meltfptr[5] = /*_.MAKE_LIST__V5*/ meltfptr[4];; MELT_CHECK_SIGNAL(); ; - /*_.MAKE_LIST__V7*/ - meltfptr[6] = + /*_.MAKE_LIST__V7*/ meltfptr[6] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[3]))));; MELT_LOCATION("warmelt-hooks.melt:1105:/ cond"); - /*cond*/ - if ( + /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!EARLY_GIMPLE_PASSES_START_DELAYED_QUEUE*/ meltfrout->tabval[0])), (melt_ptr_t)((/*!CLASS_DELAYED_QUEUE*/ meltfrout->tabval[1]))) ) /*then*/ @@ -5891,14 +5640,11 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:1102:/ clear"); - /*clear*/ /*_.MAKE_LIST__V5*/ - meltfptr[4] = 0 ; + /*clear*/ /*_.MAKE_LIST__V5*/ meltfptr[4] = 0 ; /*^clear*/ - /*clear*/ /*_.SETQ___V6*/ - meltfptr[5] = 0 ; + /*clear*/ /*_.SETQ___V6*/ meltfptr[5] = 0 ; /*^clear*/ - /*clear*/ /*_.MAKE_LIST__V7*/ - meltfptr[6] = 0 ; + /*clear*/ /*_.MAKE_LIST__V7*/ meltfptr[6] = 0 ; } ; } /*noelse*/ @@ -5911,14 +5657,11 @@ meltlab_endgetargs: ; MELT_LOCATION("warmelt-hooks.melt:1099:/ clear"); - /*clear*/ /*_.LASTLIST__V3*/ - meltfptr[2] = 0 ; + /*clear*/ /*_.LASTLIST__V3*/ meltfptr[2] = 0 ; /*^clear*/ - /*clear*/ /*_.ENABLE_EARLY_GIMPLE_PASSES_START__V4*/ - meltfptr[3] = 0 ; + /*clear*/ /*_.ENABLE_EARLY_GIMPLE_PASSES_START__V4*/ meltfptr[3] = 0 ; /*^clear*/ - /*clear*/ /*_#NULL__L2*/ - meltfnum[1] = 0 ; + /*clear*/ /*_#NULL__L2*/ meltfnum[1] = 0 ; /*epilog*/ } ; @@ -5945,8 +5688,7 @@ meltlab_endgetargs: /*epilog*/ MELT_LOCATION("warmelt-hooks.melt:1094:/ clear"); - /*clear*/ /*_#IS_CLOSURE__L1*/ - meltfnum[0] = 0 ; + /*clear*/ /*_#IS_CLOSURE__L1*/ meltfnum[0] = 0 ; } ; |