diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-01-05 15:43:37 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-01-05 15:43:37 +0000 |
| commit | 359baa8c45656b1a193b9df91646c51b181a3c90 (patch) | |
| tree | 24f73a676ea7375cfdc9f3534859e21f918b46a9 /gcc/melt/generated/warmelt-base+02.c | |
| parent | 50ca56393f9bf542ab036aec21a12f59ddcc26ef (diff) | |
| download | gcc-359baa8c45656b1a193b9df91646c51b181a3c90.tar.gz | |
2012-01-05 Basile Starynkevitch <basile@starynkevitch.net>
{{Regenerated. The warmelt*+melttime.h are added.}}
* melt/generated/warmelt-base+melttime.h: Regenerate.
* melt/generated/warmelt-debug+melttime.h: Regenerate.
* melt/generated/warmelt-first+melttime.h: Regenerate.
* melt/generated/warmelt-genobj+melttime.h: Regenerate.
* melt/generated/warmelt-macro+melttime.h: Regenerate.
* melt/generated/warmelt-modes+melttime.h: Regenerate.
* melt/generated/warmelt-normal+melttime.h: Regenerate.
* melt/generated/warmelt-normatch+melttime.h: Regenerate.
* melt/generated/warmelt-outobj+melttime.h: Regenerate.
* melt/generated/meltrunsup-inc.c: Regenerate.
* melt/generated/meltrunsup.h: Regenerate.
* melt/generated/warmelt-base+01.c: Regenerate.
* melt/generated/warmelt-base+02.c: Regenerate.
* melt/generated/warmelt-base+meltdesc.c: Regenerate.
* melt/generated/warmelt-base.c: Regenerate.
* melt/generated/warmelt-debug+meltdesc.c: Regenerate.
* melt/generated/warmelt-debug.c: Regenerate.
* melt/generated/warmelt-first+meltdesc.c: Regenerate.
* melt/generated/warmelt-first.c: Regenerate.
* melt/generated/warmelt-genobj+03.c: Regenerate.
* melt/generated/warmelt-genobj+05.c: Regenerate.
* melt/generated/warmelt-genobj+meltdesc.c: Regenerate.
* melt/generated/warmelt-genobj.c: Regenerate.
* melt/generated/warmelt-macro+meltdesc.c: Regenerate.
* melt/generated/warmelt-macro.c: Regenerate.
* melt/generated/warmelt-modes+meltdesc.c: Regenerate.
* melt/generated/warmelt-modes.c: Regenerate.
* melt/generated/warmelt-normal+meltdesc.c: Regenerate.
* melt/generated/warmelt-normal.c: Regenerate.
* melt/generated/warmelt-normatch+03.c: Regenerate.
* melt/generated/warmelt-normatch+meltdesc.c: Regenerate.
* melt/generated/warmelt-normatch.c: Regenerate.
* melt/generated/warmelt-outobj+04.c: Regenerate.
* melt/generated/warmelt-outobj+meltdesc.c: Regenerate.
* melt/generated/warmelt-outobj.c: Regenerate.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@182916 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/melt/generated/warmelt-base+02.c')
| -rw-r--r-- | gcc/melt/generated/warmelt-base+02.c | 601 |
1 files changed, 302 insertions, 299 deletions
diff --git a/gcc/melt/generated/warmelt-base+02.c b/gcc/melt/generated/warmelt-base+02.c index f06b136f5b7..b88acdba96a 100644 --- a/gcc/melt/generated/warmelt-base+02.c +++ b/gcc/melt/generated/warmelt-base+02.c @@ -15,7 +15,7 @@ struct melt_callframe_st; /*defined in melt-runtime.h */ /**!!** *** - Copyright 2008, 2009, 2010, 2011 Free Software Foundation, Inc. + Copyright 2008, 2009, 2010, 2011, 2012 Free Software Foundation, Inc. Contributed by Basile Starynkevitch <basile@starynkevitch.net> and Pierre Vittet <piervit@pvittet.com> @@ -981,6 +981,9 @@ void MELT_MODULE_VISIBILITY warmelt_base_initialmeltchunk_43 (struct void MELT_MODULE_VISIBILITY warmelt_base_initialmeltchunk_44 (struct frame_start_module_melt_st *, char *); +void MELT_MODULE_VISIBILITY warmelt_base_initialmeltchunk_45 (struct + frame_start_module_melt_st + *, char *); static void forward_or_mark_module_start_frame_warmelt_base (struct melt_callframe_st *fp, @@ -1057,7 +1060,7 @@ meltrout_32_warmelt_base_REGISTER_FINISH_TYPE_HOOK_LAST (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:1755:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:1765:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -1070,7 +1073,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:1759:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1769:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -1078,7 +1081,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:1760:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:1770:/ quasiblock"); /*^cond */ @@ -1104,7 +1107,7 @@ lab_endgetargs:; /*_#NULL__L2*/ meltfnum[1] = (( /*_.LASTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:1762:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1772:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -1116,14 +1119,14 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:1764:/ compute"); + MELT_LOCATION ("warmelt-base.melt:1774:/ compute"); /*_.LASTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] = /*_.MAKE_LIST__V4*/ meltfptr[3];; /*_.MAKE_LIST__V6*/ meltfptr[5] = (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:1765:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1775:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!FINISHTYPE_DELAYED_QUEUE */ meltfrout->tabval[0])), (melt_ptr_t) (( /*!CLASS_DELAYED_QUEUE */ meltfrout->tabval[1])))) /*then */ { /*^cond.then */ @@ -1160,7 +1163,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:1769:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1779:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!INITIAL_SYSTEM_DATA */ meltfrout->tabval[3])), (melt_ptr_t) (( /*!CLASS_SYSTEM_DATA */ meltfrout->tabval[5])))) /*then */ { /*^cond.then */ @@ -1193,17 +1196,17 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:1772:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:1782:/ locexp"); /* melt_notify_finish_type */ meltgc_notify_finish_type_hook ();; } ; - MELT_LOCATION ("warmelt-base.melt:1763:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:1773:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:1762:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1772:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -1215,14 +1218,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:1774:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:1784:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.LASTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:1760:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1770:/ clear"); /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -1232,7 +1235,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:1759:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:1769:/ cond.else"); /*^block */ /*anyblock */ @@ -1240,7 +1243,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:1777:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:1787:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_finish_type_hook_last")); } @@ -1252,7 +1255,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:1755:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1765:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -1334,7 +1337,7 @@ meltrout_33_warmelt_base_MELT_FINISH_DECL_RUNNER (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:1796:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:1806:/ getarg"); /*_.BOXTREEV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -1344,7 +1347,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-base.melt:1797:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:1807:/ quasiblock"); /*^cond */ @@ -1366,7 +1369,7 @@ lab_endgetargs:; /*_.FIRSTLIST__V3*/ meltfptr[2] = NULL;; } ; - MELT_LOCATION ("warmelt-base.melt:1798:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1808:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!FINISHDECL_DELAYED_QUEUE */ meltfrout->tabval[0])), (melt_ptr_t) (( /*!CLASS_DELAYED_QUEUE */ meltfrout->tabval[1])))) /*then */ { /*^cond.then */ @@ -1407,7 +1410,7 @@ lab_endgetargs:; melt_pair_head ( /*_.FIRSTPAIR__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-base.melt:1806:/ apply"); + MELT_LOCATION ("warmelt-base.melt:1816:/ apply"); /*apply */ { union meltparam_un argtab[1]; @@ -1430,7 +1433,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:1803:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1813:/ clear"); /*clear *//*_.FIRSTPAIR__V7*/ meltfptr[6] = 0; /*^clear */ /*clear *//*_.FIRSTPROC__V8*/ meltfptr[7] = 0; @@ -1458,7 +1461,7 @@ lab_endgetargs:; (melt_magic_discr ((melt_ptr_t) ( /*_.LASTPROC__V12*/ meltfptr[11])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:1812:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1822:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -1484,7 +1487,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:1809:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1819:/ clear"); /*clear *//*_.LASTPAIR__V11*/ meltfptr[10] = 0; /*^clear */ /*clear *//*_.LASTPROC__V12*/ meltfptr[11] = 0; @@ -1506,7 +1509,7 @@ lab_endgetargs:; melt_pair_head ( /*_.REVLASTPAIR__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-base.melt:1817:/ apply"); + MELT_LOCATION ("warmelt-base.melt:1827:/ apply"); /*apply */ { union meltparam_un argtab[1]; @@ -1529,7 +1532,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:1814:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1824:/ clear"); /*clear *//*_.REVLASTPAIR__V13*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.REVLASTPROC__V14*/ meltfptr[13] = 0; @@ -1540,7 +1543,7 @@ lab_endgetargs:; } /*endciterblock FOREACH_IN_LIST */ ; - MELT_LOCATION ("warmelt-base.melt:1797:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1807:/ clear"); /*clear *//*_.FIRSTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_.LASTLIST__V4*/ meltfptr[3] = 0; @@ -1632,7 +1635,7 @@ meltrout_34_warmelt_base_REGISTER_FINISH_DECL_HOOK_FIRST (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:1820:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:1830:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -1645,7 +1648,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:1825:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1835:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -1653,7 +1656,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:1826:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:1836:/ quasiblock"); /*^cond */ @@ -1679,7 +1682,7 @@ lab_endgetargs:; /*_#NULL__L2*/ meltfnum[1] = (( /*_.FIRSTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:1828:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1838:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -1691,7 +1694,7 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:1830:/ compute"); + MELT_LOCATION ("warmelt-base.melt:1840:/ compute"); /*_.FIRSTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] = /*_.MAKE_LIST__V4*/ meltfptr[3];; @@ -1699,7 +1702,7 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:1831:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1841:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!FINISHDECL_DELAYED_QUEUE */ meltfrout->tabval[0])), (melt_ptr_t) (( /*!CLASS_DELAYED_QUEUE */ meltfrout->tabval[1])))) /*then */ { /*^cond.then */ @@ -1736,7 +1739,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:1835:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1845:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!INITIAL_SYSTEM_DATA */ meltfrout->tabval[3])), (melt_ptr_t) (( /*!CLASS_SYSTEM_DATA */ meltfrout->tabval[5])))) /*then */ { /*^cond.then */ @@ -1769,17 +1772,17 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:1838:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:1848:/ locexp"); /* melt_notify_finish_decl */ meltgc_notify_finish_decl_hook ();; } ; - MELT_LOCATION ("warmelt-base.melt:1829:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:1839:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:1828:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1838:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -1791,14 +1794,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:1840:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:1850:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.FIRSTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:1826:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1836:/ clear"); /*clear *//*_.FIRSTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -1808,7 +1811,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:1825:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:1835:/ cond.else"); /*^block */ /*anyblock */ @@ -1816,7 +1819,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:1843:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:1853:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_finish_decl_hook_first")); } @@ -1828,7 +1831,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:1820:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1830:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -1913,7 +1916,7 @@ meltrout_35_warmelt_base_REGISTER_FINISH_DECL_HOOK_LAST (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:1847:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:1857:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -1926,7 +1929,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:1852:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1862:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -1934,7 +1937,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:1853:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:1863:/ quasiblock"); /*^cond */ @@ -1960,7 +1963,7 @@ lab_endgetargs:; /*_#NULL__L2*/ meltfnum[1] = (( /*_.LASTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:1855:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1865:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -1972,14 +1975,14 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:1857:/ compute"); + MELT_LOCATION ("warmelt-base.melt:1867:/ compute"); /*_.LASTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] = /*_.MAKE_LIST__V4*/ meltfptr[3];; /*_.MAKE_LIST__V6*/ meltfptr[5] = (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:1858:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1868:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!FINISHDECL_DELAYED_QUEUE */ meltfrout->tabval[0])), (melt_ptr_t) (( /*!CLASS_DELAYED_QUEUE */ meltfrout->tabval[1])))) /*then */ { /*^cond.then */ @@ -2016,7 +2019,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:1862:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1872:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!INITIAL_SYSTEM_DATA */ meltfrout->tabval[3])), (melt_ptr_t) (( /*!CLASS_SYSTEM_DATA */ meltfrout->tabval[5])))) /*then */ { /*^cond.then */ @@ -2049,17 +2052,17 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:1865:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:1875:/ locexp"); /* melt_notify_finish_decl */ meltgc_notify_finish_decl_hook ();; } ; - MELT_LOCATION ("warmelt-base.melt:1856:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:1866:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:1855:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1865:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -2071,14 +2074,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:1867:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:1877:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.LASTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:1853:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1863:/ clear"); /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -2088,7 +2091,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:1852:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:1862:/ cond.else"); /*^block */ /*anyblock */ @@ -2096,7 +2099,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:1870:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:1880:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_finish_decl_hook_last")); } @@ -2108,7 +2111,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:1847:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1857:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -2195,11 +2198,11 @@ meltrout_36_warmelt_base_MELT_ALL_PASSES_START_RUNNER (meltclosure_ptr_t goto lab_endgetargs; lab_endgetargs:; /*body*/ - MELT_LOCATION ("warmelt-base.melt:1886:/ block"); + MELT_LOCATION ("warmelt-base.melt:1896:/ block"); /*anyblock*/ { - MELT_LOCATION ("warmelt-base.melt:1887:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:1897:/ quasiblock"); /*^cond */ @@ -2221,7 +2224,7 @@ lab_endgetargs:; /*_.FIRSTLIST__V2*/ meltfptr[1] = NULL;; } ; - MELT_LOCATION ("warmelt-base.melt:1888:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1898:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!FINISHDECL_DELAYED_QUEUE */ meltfrout->tabval[0])), (melt_ptr_t) (( /*!CLASS_DELAYED_QUEUE */ meltfrout->tabval[1])))) /*then */ { /*^cond.then */ @@ -2262,7 +2265,7 @@ lab_endgetargs:; melt_pair_head ( /*_.FIRSTPAIR__V6*/ meltfptr[5]); - MELT_LOCATION ("warmelt-base.melt:1896:/ apply"); + MELT_LOCATION ("warmelt-base.melt:1906:/ apply"); /*apply */ { /*_.FIRSTPROC__V8*/ meltfptr[7] = @@ -2280,7 +2283,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:1893:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1903:/ clear"); /*clear *//*_.FIRSTPAIR__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.FIRSTPROC__V7*/ meltfptr[6] = 0; @@ -2308,7 +2311,7 @@ lab_endgetargs:; (melt_magic_discr ((melt_ptr_t) ( /*_.LASTPROC__V11*/ meltfptr[10])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:1902:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1912:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2334,7 +2337,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:1899:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1909:/ clear"); /*clear *//*_.LASTPAIR__V10*/ meltfptr[9] = 0; /*^clear */ /*clear *//*_.LASTPROC__V11*/ meltfptr[10] = 0; @@ -2356,7 +2359,7 @@ lab_endgetargs:; melt_pair_head ( /*_.REVLASTPAIR__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-base.melt:1907:/ apply"); + MELT_LOCATION ("warmelt-base.melt:1917:/ apply"); /*apply */ { /*_.REVLASTPROC__V14*/ meltfptr[13] = @@ -2374,7 +2377,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:1904:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1914:/ clear"); /*clear *//*_.REVLASTPAIR__V12*/ meltfptr[11] = 0; /*^clear */ /*clear *//*_.REVLASTPROC__V13*/ meltfptr[12] = 0; @@ -2385,7 +2388,7 @@ lab_endgetargs:; } /*endciterblock FOREACH_IN_LIST */ ; - MELT_LOCATION ("warmelt-base.melt:1887:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1897:/ clear"); /*clear *//*_.FIRSTLIST__V2*/ meltfptr[1] = 0; /*^clear */ /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; @@ -2469,7 +2472,7 @@ meltrout_37_warmelt_base_REGISTER_ALL_PASSES_START_HOOK_FIRST /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:1910:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:1920:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -2482,7 +2485,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:1914:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1924:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2490,7 +2493,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:1915:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:1925:/ quasiblock"); /*^cond */ @@ -2516,7 +2519,7 @@ lab_endgetargs:; /*_#NULL__L2*/ meltfnum[1] = (( /*_.FIRSTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:1917:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1927:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -2528,7 +2531,7 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:1919:/ compute"); + MELT_LOCATION ("warmelt-base.melt:1929:/ compute"); /*_.FIRSTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] = /*_.MAKE_LIST__V4*/ meltfptr[3];; @@ -2536,7 +2539,7 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:1920:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1930:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!FINISHDECL_DELAYED_QUEUE */ meltfrout->tabval[0])), (melt_ptr_t) (( /*!CLASS_DELAYED_QUEUE */ meltfrout->tabval[1])))) /*then */ { /*^cond.then */ @@ -2573,7 +2576,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:1924:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1934:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!INITIAL_SYSTEM_DATA */ meltfrout->tabval[3])), (melt_ptr_t) (( /*!CLASS_SYSTEM_DATA */ meltfrout->tabval[5])))) /*then */ { /*^cond.then */ @@ -2602,12 +2605,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:1918:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:1928:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:1917:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1927:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -2619,14 +2622,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:1928:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:1938:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.FIRSTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:1915:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1925:/ clear"); /*clear *//*_.FIRSTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -2636,7 +2639,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:1914:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:1924:/ cond.else"); /*^block */ /*anyblock */ @@ -2644,7 +2647,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:1931:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:1941:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_all_passes_start_hook_first")); } @@ -2656,7 +2659,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:1910:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1920:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -2733,7 +2736,7 @@ meltrout_38_warmelt_base_REGISTER_ALL_PASSES_START_HOOK_LAST /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:1935:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:1945:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -2746,7 +2749,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:1939:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1949:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2754,7 +2757,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:1940:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:1950:/ quasiblock"); /*^cond */ @@ -2780,7 +2783,7 @@ lab_endgetargs:; /*_#NULL__L2*/ meltfnum[1] = (( /*_.LASTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:1942:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1952:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -2792,14 +2795,14 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:1944:/ compute"); + MELT_LOCATION ("warmelt-base.melt:1954:/ compute"); /*_.LASTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] = /*_.MAKE_LIST__V4*/ meltfptr[3];; /*_.MAKE_LIST__V6*/ meltfptr[5] = (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:1945:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1955:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!FINISHDECL_DELAYED_QUEUE */ meltfrout->tabval[0])), (melt_ptr_t) (( /*!CLASS_DELAYED_QUEUE */ meltfrout->tabval[1])))) /*then */ { /*^cond.then */ @@ -2836,7 +2839,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:1949:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1959:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!INITIAL_SYSTEM_DATA */ meltfrout->tabval[3])), (melt_ptr_t) (( /*!CLASS_SYSTEM_DATA */ meltfrout->tabval[5])))) /*then */ { /*^cond.then */ @@ -2865,12 +2868,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:1943:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:1953:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:1942:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1952:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -2882,14 +2885,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:1953:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:1963:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.LASTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:1940:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1950:/ clear"); /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -2899,7 +2902,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:1939:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:1949:/ cond.else"); /*^block */ /*anyblock */ @@ -2907,7 +2910,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:1956:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:1966:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_all_passes_start_hook_last")); } @@ -2919,7 +2922,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:1935:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1945:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -3006,11 +3009,11 @@ meltrout_39_warmelt_base_MELT_ALL_PASSES_END_RUNNER (meltclosure_ptr_t goto lab_endgetargs; lab_endgetargs:; /*body*/ - MELT_LOCATION ("warmelt-base.melt:1972:/ block"); + MELT_LOCATION ("warmelt-base.melt:1982:/ block"); /*anyblock*/ { - MELT_LOCATION ("warmelt-base.melt:1973:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:1983:/ quasiblock"); /*^cond */ @@ -3032,7 +3035,7 @@ lab_endgetargs:; /*_.FIRSTLIST__V2*/ meltfptr[1] = NULL;; } ; - MELT_LOCATION ("warmelt-base.melt:1974:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1984:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!FINISHDECL_DELAYED_QUEUE */ meltfrout->tabval[0])), (melt_ptr_t) (( /*!CLASS_DELAYED_QUEUE */ meltfrout->tabval[1])))) /*then */ { /*^cond.then */ @@ -3073,7 +3076,7 @@ lab_endgetargs:; melt_pair_head ( /*_.FIRSTPAIR__V6*/ meltfptr[5]); - MELT_LOCATION ("warmelt-base.melt:1982:/ apply"); + MELT_LOCATION ("warmelt-base.melt:1992:/ apply"); /*apply */ { /*_.FIRSTPROC__V8*/ meltfptr[7] = @@ -3091,7 +3094,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:1979:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1989:/ clear"); /*clear *//*_.FIRSTPAIR__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.FIRSTPROC__V7*/ meltfptr[6] = 0; @@ -3119,7 +3122,7 @@ lab_endgetargs:; (melt_magic_discr ((melt_ptr_t) ( /*_.LASTPROC__V11*/ meltfptr[10])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:1988:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1998:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -3145,7 +3148,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:1985:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1995:/ clear"); /*clear *//*_.LASTPAIR__V10*/ meltfptr[9] = 0; /*^clear */ /*clear *//*_.LASTPROC__V11*/ meltfptr[10] = 0; @@ -3167,7 +3170,7 @@ lab_endgetargs:; melt_pair_head ( /*_.REVLASTPAIR__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-base.melt:1993:/ apply"); + MELT_LOCATION ("warmelt-base.melt:2003:/ apply"); /*apply */ { /*_.REVLASTPROC__V14*/ meltfptr[13] = @@ -3185,7 +3188,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:1990:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2000:/ clear"); /*clear *//*_.REVLASTPAIR__V12*/ meltfptr[11] = 0; /*^clear */ /*clear *//*_.REVLASTPROC__V13*/ meltfptr[12] = 0; @@ -3196,7 +3199,7 @@ lab_endgetargs:; } /*endciterblock FOREACH_IN_LIST */ ; - MELT_LOCATION ("warmelt-base.melt:1973:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1983:/ clear"); /*clear *//*_.FIRSTLIST__V2*/ meltfptr[1] = 0; /*^clear */ /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; @@ -3290,7 +3293,7 @@ meltrout_40_warmelt_base_REGISTER_ALL_PASSES_END_HOOK_FIRST (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:1996:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:2006:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -3303,7 +3306,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:2000:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2010:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -3311,7 +3314,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:2001:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2011:/ quasiblock"); /*^cond */ @@ -3337,7 +3340,7 @@ lab_endgetargs:; /*_#NULL__L2*/ meltfnum[1] = (( /*_.FIRSTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:2003:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2013:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -3349,7 +3352,7 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2005:/ compute"); + MELT_LOCATION ("warmelt-base.melt:2015:/ compute"); /*_.FIRSTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] = /*_.MAKE_LIST__V4*/ meltfptr[3];; @@ -3357,7 +3360,7 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2006:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2016:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!FINISHDECL_DELAYED_QUEUE */ meltfrout->tabval[0])), (melt_ptr_t) (( /*!CLASS_DELAYED_QUEUE */ meltfrout->tabval[1])))) /*then */ { /*^cond.then */ @@ -3394,7 +3397,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2010:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2020:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!INITIAL_SYSTEM_DATA */ meltfrout->tabval[3])), (melt_ptr_t) (( /*!CLASS_SYSTEM_DATA */ meltfrout->tabval[5])))) /*then */ { /*^cond.then */ @@ -3423,12 +3426,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2004:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2014:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2003:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2013:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -3440,14 +3443,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:2014:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2024:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.FIRSTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:2001:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2011:/ clear"); /*clear *//*_.FIRSTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -3457,7 +3460,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:2000:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:2010:/ cond.else"); /*^block */ /*anyblock */ @@ -3465,7 +3468,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:2017:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2027:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_all_passes_end_hook_first")); } @@ -3477,7 +3480,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:1996:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2006:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -3562,7 +3565,7 @@ meltrout_41_warmelt_base_REGISTER_ALL_PASSES_END_HOOK_LAST (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:2021:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:2031:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -3575,7 +3578,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:2025:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2035:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -3583,7 +3586,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:2026:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2036:/ quasiblock"); /*^cond */ @@ -3609,7 +3612,7 @@ lab_endgetargs:; /*_#NULL__L2*/ meltfnum[1] = (( /*_.LASTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:2028:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2038:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -3621,14 +3624,14 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2030:/ compute"); + MELT_LOCATION ("warmelt-base.melt:2040:/ compute"); /*_.LASTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] = /*_.MAKE_LIST__V4*/ meltfptr[3];; /*_.MAKE_LIST__V6*/ meltfptr[5] = (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2031:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2041:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!FINISHDECL_DELAYED_QUEUE */ meltfrout->tabval[0])), (melt_ptr_t) (( /*!CLASS_DELAYED_QUEUE */ meltfrout->tabval[1])))) /*then */ { /*^cond.then */ @@ -3665,7 +3668,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2035:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2045:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!INITIAL_SYSTEM_DATA */ meltfrout->tabval[3])), (melt_ptr_t) (( /*!CLASS_SYSTEM_DATA */ meltfrout->tabval[5])))) /*then */ { /*^cond.then */ @@ -3694,12 +3697,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2029:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2039:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2028:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2038:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -3711,14 +3714,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:2039:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2049:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.LASTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:2026:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2036:/ clear"); /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -3728,7 +3731,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:2025:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:2035:/ cond.else"); /*^block */ /*anyblock */ @@ -3736,7 +3739,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:2042:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2052:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_all_passes_end_hook_last")); } @@ -3748,7 +3751,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2021:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2031:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -3835,11 +3838,11 @@ meltrout_42_warmelt_base_MELT_ALL_IPA_PASSES_START_RUNNER (meltclosure_ptr_t goto lab_endgetargs; lab_endgetargs:; /*body*/ - MELT_LOCATION ("warmelt-base.melt:2058:/ block"); + MELT_LOCATION ("warmelt-base.melt:2068:/ block"); /*anyblock*/ { - MELT_LOCATION ("warmelt-base.melt:2059:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2069:/ quasiblock"); /*^cond */ @@ -3861,7 +3864,7 @@ lab_endgetargs:; /*_.FIRSTLIST__V2*/ meltfptr[1] = NULL;; } ; - MELT_LOCATION ("warmelt-base.melt:2060:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2070:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!FINISHDECL_DELAYED_QUEUE */ meltfrout->tabval[0])), (melt_ptr_t) (( /*!CLASS_DELAYED_QUEUE */ meltfrout->tabval[1])))) /*then */ { /*^cond.then */ @@ -3902,7 +3905,7 @@ lab_endgetargs:; melt_pair_head ( /*_.FIRSTPAIR__V6*/ meltfptr[5]); - MELT_LOCATION ("warmelt-base.melt:2068:/ apply"); + MELT_LOCATION ("warmelt-base.melt:2078:/ apply"); /*apply */ { /*_.FIRSTPROC__V8*/ meltfptr[7] = @@ -3920,7 +3923,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:2065:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2075:/ clear"); /*clear *//*_.FIRSTPAIR__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.FIRSTPROC__V7*/ meltfptr[6] = 0; @@ -3948,7 +3951,7 @@ lab_endgetargs:; (melt_magic_discr ((melt_ptr_t) ( /*_.LASTPROC__V11*/ meltfptr[10])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:2074:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2084:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -3974,7 +3977,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:2071:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2081:/ clear"); /*clear *//*_.LASTPAIR__V10*/ meltfptr[9] = 0; /*^clear */ /*clear *//*_.LASTPROC__V11*/ meltfptr[10] = 0; @@ -3996,7 +3999,7 @@ lab_endgetargs:; melt_pair_head ( /*_.REVLASTPAIR__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-base.melt:2079:/ apply"); + MELT_LOCATION ("warmelt-base.melt:2089:/ apply"); /*apply */ { /*_.REVLASTPROC__V14*/ meltfptr[13] = @@ -4014,7 +4017,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:2076:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2086:/ clear"); /*clear *//*_.REVLASTPAIR__V12*/ meltfptr[11] = 0; /*^clear */ /*clear *//*_.REVLASTPROC__V13*/ meltfptr[12] = 0; @@ -4025,7 +4028,7 @@ lab_endgetargs:; } /*endciterblock FOREACH_IN_LIST */ ; - MELT_LOCATION ("warmelt-base.melt:2059:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2069:/ clear"); /*clear *//*_.FIRSTLIST__V2*/ meltfptr[1] = 0; /*^clear */ /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; @@ -4110,7 +4113,7 @@ meltrout_43_warmelt_base_REGISTER_ALL_IPA_PASSES_START_HOOK_FIRST /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:2082:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:2092:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -4123,7 +4126,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:2086:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2096:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -4131,7 +4134,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:2087:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2097:/ quasiblock"); /*^cond */ @@ -4157,7 +4160,7 @@ lab_endgetargs:; /*_#NULL__L2*/ meltfnum[1] = (( /*_.FIRSTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:2089:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2099:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -4169,7 +4172,7 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2091:/ compute"); + MELT_LOCATION ("warmelt-base.melt:2101:/ compute"); /*_.FIRSTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] = /*_.MAKE_LIST__V4*/ meltfptr[3];; @@ -4177,7 +4180,7 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2092:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2102:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!FINISHDECL_DELAYED_QUEUE */ meltfrout->tabval[0])), (melt_ptr_t) (( /*!CLASS_DELAYED_QUEUE */ meltfrout->tabval[1])))) /*then */ { /*^cond.then */ @@ -4214,7 +4217,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2096:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2106:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!INITIAL_SYSTEM_DATA */ meltfrout->tabval[3])), (melt_ptr_t) (( /*!CLASS_SYSTEM_DATA */ meltfrout->tabval[5])))) /*then */ { /*^cond.then */ @@ -4243,12 +4246,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2090:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2100:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2089:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2099:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -4260,14 +4263,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:2100:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2110:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.FIRSTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:2087:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2097:/ clear"); /*clear *//*_.FIRSTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -4277,7 +4280,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:2086:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:2096:/ cond.else"); /*^block */ /*anyblock */ @@ -4285,7 +4288,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:2103:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2113:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_all_ipa_passes_start_hook_first")); } @@ -4297,7 +4300,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2082:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2092:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -4374,7 +4377,7 @@ meltrout_44_warmelt_base_REGISTER_ALL_IPA_PASSES_START_HOOK_LAST /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:2107:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:2117:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -4387,7 +4390,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:2111:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2121:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -4395,7 +4398,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:2112:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2122:/ quasiblock"); /*^cond */ @@ -4421,7 +4424,7 @@ lab_endgetargs:; /*_#NULL__L2*/ meltfnum[1] = (( /*_.LASTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:2114:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2124:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -4433,14 +4436,14 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2116:/ compute"); + MELT_LOCATION ("warmelt-base.melt:2126:/ compute"); /*_.LASTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] = /*_.MAKE_LIST__V4*/ meltfptr[3];; /*_.MAKE_LIST__V6*/ meltfptr[5] = (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2117:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2127:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!FINISHDECL_DELAYED_QUEUE */ meltfrout->tabval[0])), (melt_ptr_t) (( /*!CLASS_DELAYED_QUEUE */ meltfrout->tabval[1])))) /*then */ { /*^cond.then */ @@ -4477,7 +4480,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2121:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2131:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!INITIAL_SYSTEM_DATA */ meltfrout->tabval[3])), (melt_ptr_t) (( /*!CLASS_SYSTEM_DATA */ meltfrout->tabval[5])))) /*then */ { /*^cond.then */ @@ -4506,12 +4509,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2115:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2125:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2114:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2124:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -4523,14 +4526,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:2125:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2135:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.LASTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:2112:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2122:/ clear"); /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -4540,7 +4543,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:2111:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:2121:/ cond.else"); /*^block */ /*anyblock */ @@ -4548,7 +4551,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:2128:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2138:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_all_ipa_passes_start_hook_last")); } @@ -4560,7 +4563,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2107:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2117:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -4647,11 +4650,11 @@ meltrout_45_warmelt_base_MELT_ALL_IPA_PASSES_END_RUNNER (meltclosure_ptr_t goto lab_endgetargs; lab_endgetargs:; /*body*/ - MELT_LOCATION ("warmelt-base.melt:2144:/ block"); + MELT_LOCATION ("warmelt-base.melt:2154:/ block"); /*anyblock*/ { - MELT_LOCATION ("warmelt-base.melt:2145:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2155:/ quasiblock"); /*^cond */ @@ -4673,7 +4676,7 @@ lab_endgetargs:; /*_.FIRSTLIST__V2*/ meltfptr[1] = NULL;; } ; - MELT_LOCATION ("warmelt-base.melt:2146:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2156:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!FINISHDECL_DELAYED_QUEUE */ meltfrout->tabval[0])), (melt_ptr_t) (( /*!CLASS_DELAYED_QUEUE */ meltfrout->tabval[1])))) /*then */ { /*^cond.then */ @@ -4714,7 +4717,7 @@ lab_endgetargs:; melt_pair_head ( /*_.FIRSTPAIR__V6*/ meltfptr[5]); - MELT_LOCATION ("warmelt-base.melt:2154:/ apply"); + MELT_LOCATION ("warmelt-base.melt:2164:/ apply"); /*apply */ { /*_.FIRSTPROC__V8*/ meltfptr[7] = @@ -4732,7 +4735,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:2151:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2161:/ clear"); /*clear *//*_.FIRSTPAIR__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.FIRSTPROC__V7*/ meltfptr[6] = 0; @@ -4760,7 +4763,7 @@ lab_endgetargs:; (melt_magic_discr ((melt_ptr_t) ( /*_.LASTPROC__V11*/ meltfptr[10])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:2160:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2170:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -4786,7 +4789,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:2157:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2167:/ clear"); /*clear *//*_.LASTPAIR__V10*/ meltfptr[9] = 0; /*^clear */ /*clear *//*_.LASTPROC__V11*/ meltfptr[10] = 0; @@ -4808,7 +4811,7 @@ lab_endgetargs:; melt_pair_head ( /*_.REVLASTPAIR__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-base.melt:2165:/ apply"); + MELT_LOCATION ("warmelt-base.melt:2175:/ apply"); /*apply */ { /*_.REVLASTPROC__V14*/ meltfptr[13] = @@ -4826,7 +4829,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:2162:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2172:/ clear"); /*clear *//*_.REVLASTPAIR__V12*/ meltfptr[11] = 0; /*^clear */ /*clear *//*_.REVLASTPROC__V13*/ meltfptr[12] = 0; @@ -4837,7 +4840,7 @@ lab_endgetargs:; } /*endciterblock FOREACH_IN_LIST */ ; - MELT_LOCATION ("warmelt-base.melt:2145:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2155:/ clear"); /*clear *//*_.FIRSTLIST__V2*/ meltfptr[1] = 0; /*^clear */ /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; @@ -4921,7 +4924,7 @@ meltrout_46_warmelt_base_REGISTER_ALL_IPA_PASSES_END_HOOK_FIRST /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:2168:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:2178:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -4934,7 +4937,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:2172:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2182:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -4942,7 +4945,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:2173:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2183:/ quasiblock"); /*^cond */ @@ -4968,7 +4971,7 @@ lab_endgetargs:; /*_#NULL__L2*/ meltfnum[1] = (( /*_.FIRSTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:2175:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2185:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -4980,7 +4983,7 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2177:/ compute"); + MELT_LOCATION ("warmelt-base.melt:2187:/ compute"); /*_.FIRSTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] = /*_.MAKE_LIST__V4*/ meltfptr[3];; @@ -4988,7 +4991,7 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2178:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2188:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!FINISHDECL_DELAYED_QUEUE */ meltfrout->tabval[0])), (melt_ptr_t) (( /*!CLASS_DELAYED_QUEUE */ meltfrout->tabval[1])))) /*then */ { /*^cond.then */ @@ -5025,7 +5028,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2182:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2192:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!INITIAL_SYSTEM_DATA */ meltfrout->tabval[3])), (melt_ptr_t) (( /*!CLASS_SYSTEM_DATA */ meltfrout->tabval[5])))) /*then */ { /*^cond.then */ @@ -5054,12 +5057,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2176:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2186:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2175:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2185:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -5071,14 +5074,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:2186:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2196:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.FIRSTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:2173:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2183:/ clear"); /*clear *//*_.FIRSTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -5088,7 +5091,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:2172:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:2182:/ cond.else"); /*^block */ /*anyblock */ @@ -5096,7 +5099,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:2189:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2199:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_all_ipa_passes_end_hook_first")); } @@ -5108,7 +5111,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2168:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2178:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -5185,7 +5188,7 @@ meltrout_47_warmelt_base_REGISTER_ALL_IPA_PASSES_END_HOOK_LAST /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:2193:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:2203:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -5198,7 +5201,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:2197:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2207:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -5206,7 +5209,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:2198:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2208:/ quasiblock"); /*^cond */ @@ -5232,7 +5235,7 @@ lab_endgetargs:; /*_#NULL__L2*/ meltfnum[1] = (( /*_.LASTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:2200:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2210:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -5244,14 +5247,14 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2202:/ compute"); + MELT_LOCATION ("warmelt-base.melt:2212:/ compute"); /*_.LASTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] = /*_.MAKE_LIST__V4*/ meltfptr[3];; /*_.MAKE_LIST__V6*/ meltfptr[5] = (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2203:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2213:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!FINISHDECL_DELAYED_QUEUE */ meltfrout->tabval[0])), (melt_ptr_t) (( /*!CLASS_DELAYED_QUEUE */ meltfrout->tabval[1])))) /*then */ { /*^cond.then */ @@ -5288,7 +5291,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2207:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2217:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!INITIAL_SYSTEM_DATA */ meltfrout->tabval[3])), (melt_ptr_t) (( /*!CLASS_SYSTEM_DATA */ meltfrout->tabval[5])))) /*then */ { /*^cond.then */ @@ -5317,12 +5320,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2201:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2211:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2200:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2210:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -5334,14 +5337,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:2211:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2221:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.LASTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:2198:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2208:/ clear"); /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -5351,7 +5354,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:2197:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:2207:/ cond.else"); /*^block */ /*anyblock */ @@ -5359,7 +5362,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:2214:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2224:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_all_ipa_passes_end_hook_last")); } @@ -5371,7 +5374,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2193:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2203:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -5450,11 +5453,11 @@ meltrout_48_warmelt_base_MELT_EARLY_GIMPLE_PASSES_START_RUNNER goto lab_endgetargs; lab_endgetargs:; /*body*/ - MELT_LOCATION ("warmelt-base.melt:2233:/ block"); + MELT_LOCATION ("warmelt-base.melt:2243:/ block"); /*anyblock*/ { - MELT_LOCATION ("warmelt-base.melt:2234:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2244:/ quasiblock"); /*^cond */ @@ -5476,7 +5479,7 @@ lab_endgetargs:; /*_.FIRSTLIST__V2*/ meltfptr[1] = NULL;; } ; - MELT_LOCATION ("warmelt-base.melt:2235:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2245:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!FINISHDECL_DELAYED_QUEUE */ meltfrout->tabval[0])), (melt_ptr_t) (( /*!CLASS_DELAYED_QUEUE */ meltfrout->tabval[1])))) /*then */ { /*^cond.then */ @@ -5517,7 +5520,7 @@ lab_endgetargs:; melt_pair_head ( /*_.FIRSTPAIR__V6*/ meltfptr[5]); - MELT_LOCATION ("warmelt-base.melt:2243:/ apply"); + MELT_LOCATION ("warmelt-base.melt:2253:/ apply"); /*apply */ { /*_.FIRSTPROC__V8*/ meltfptr[7] = @@ -5535,7 +5538,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:2240:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2250:/ clear"); /*clear *//*_.FIRSTPAIR__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.FIRSTPROC__V7*/ meltfptr[6] = 0; @@ -5563,7 +5566,7 @@ lab_endgetargs:; (melt_magic_discr ((melt_ptr_t) ( /*_.LASTPROC__V11*/ meltfptr[10])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:2249:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2259:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -5589,7 +5592,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:2246:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2256:/ clear"); /*clear *//*_.LASTPAIR__V10*/ meltfptr[9] = 0; /*^clear */ /*clear *//*_.LASTPROC__V11*/ meltfptr[10] = 0; @@ -5611,7 +5614,7 @@ lab_endgetargs:; melt_pair_head ( /*_.REVLASTPAIR__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-base.melt:2254:/ apply"); + MELT_LOCATION ("warmelt-base.melt:2264:/ apply"); /*apply */ { /*_.REVLASTPROC__V14*/ meltfptr[13] = @@ -5629,7 +5632,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:2251:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2261:/ clear"); /*clear *//*_.REVLASTPAIR__V12*/ meltfptr[11] = 0; /*^clear */ /*clear *//*_.REVLASTPROC__V13*/ meltfptr[12] = 0; @@ -5640,7 +5643,7 @@ lab_endgetargs:; } /*endciterblock FOREACH_IN_LIST */ ; - MELT_LOCATION ("warmelt-base.melt:2234:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2244:/ clear"); /*clear *//*_.FIRSTLIST__V2*/ meltfptr[1] = 0; /*^clear */ /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; @@ -5725,7 +5728,7 @@ meltrout_49_warmelt_base_REGISTER_EARLY_GIMPLE_PASSES_START_HOOK_FIRST /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:2257:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:2267:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -5738,7 +5741,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:2261:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2271:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -5746,7 +5749,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:2262:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2272:/ quasiblock"); /*^cond */ @@ -5772,7 +5775,7 @@ lab_endgetargs:; /*_#NULL__L2*/ meltfnum[1] = (( /*_.FIRSTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:2264:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2274:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -5784,7 +5787,7 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2266:/ compute"); + MELT_LOCATION ("warmelt-base.melt:2276:/ compute"); /*_.FIRSTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] = /*_.MAKE_LIST__V4*/ meltfptr[3];; @@ -5792,7 +5795,7 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2267:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2277:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!FINISHDECL_DELAYED_QUEUE */ meltfrout->tabval[0])), (melt_ptr_t) (( /*!CLASS_DELAYED_QUEUE */ meltfrout->tabval[1])))) /*then */ { /*^cond.then */ @@ -5829,7 +5832,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2271:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2281:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!INITIAL_SYSTEM_DATA */ meltfrout->tabval[3])), (melt_ptr_t) (( /*!CLASS_SYSTEM_DATA */ meltfrout->tabval[5])))) /*then */ { /*^cond.then */ @@ -5858,12 +5861,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2265:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2275:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2264:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2274:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -5875,14 +5878,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:2275:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2285:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.FIRSTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:2262:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2272:/ clear"); /*clear *//*_.FIRSTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -5892,7 +5895,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:2261:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:2271:/ cond.else"); /*^block */ /*anyblock */ @@ -5900,7 +5903,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:2278:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2288:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_early_gimple_passes_start_hook_first")); } @@ -5912,7 +5915,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2257:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2267:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -5991,7 +5994,7 @@ meltrout_50_warmelt_base_REGISTER_EARLY_GIMPLE_PASSES_START_HOOK_LAST /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:2282:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:2292:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -6004,7 +6007,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:2286:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2296:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -6012,7 +6015,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:2287:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2297:/ quasiblock"); /*^cond */ @@ -6038,7 +6041,7 @@ lab_endgetargs:; /*_#NULL__L2*/ meltfnum[1] = (( /*_.LASTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:2289:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2299:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -6050,14 +6053,14 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2291:/ compute"); + MELT_LOCATION ("warmelt-base.melt:2301:/ compute"); /*_.LASTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] = /*_.MAKE_LIST__V4*/ meltfptr[3];; /*_.MAKE_LIST__V6*/ meltfptr[5] = (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2292:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2302:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!FINISHDECL_DELAYED_QUEUE */ meltfrout->tabval[0])), (melt_ptr_t) (( /*!CLASS_DELAYED_QUEUE */ meltfrout->tabval[1])))) /*then */ { /*^cond.then */ @@ -6094,7 +6097,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2296:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2306:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!INITIAL_SYSTEM_DATA */ meltfrout->tabval[3])), (melt_ptr_t) (( /*!CLASS_SYSTEM_DATA */ meltfrout->tabval[5])))) /*then */ { /*^cond.then */ @@ -6123,12 +6126,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2290:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2300:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2289:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2299:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -6140,14 +6143,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:2300:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2310:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.LASTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:2287:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2297:/ clear"); /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -6157,7 +6160,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:2286:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:2296:/ cond.else"); /*^block */ /*anyblock */ @@ -6165,7 +6168,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:2303:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2313:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_early_gimple_passes_start_hook_last")); } @@ -6177,7 +6180,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2282:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2292:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -6257,11 +6260,11 @@ meltrout_51_warmelt_base_MELT_EARLY_GIMPLE_PASSES_END_RUNNER goto lab_endgetargs; lab_endgetargs:; /*body*/ - MELT_LOCATION ("warmelt-base.melt:2319:/ block"); + MELT_LOCATION ("warmelt-base.melt:2329:/ block"); /*anyblock*/ { - MELT_LOCATION ("warmelt-base.melt:2320:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2330:/ quasiblock"); /*^cond */ @@ -6283,7 +6286,7 @@ lab_endgetargs:; /*_.FIRSTLIST__V2*/ meltfptr[1] = NULL;; } ; - MELT_LOCATION ("warmelt-base.melt:2321:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2331:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!FINISHDECL_DELAYED_QUEUE */ meltfrout->tabval[0])), (melt_ptr_t) (( /*!CLASS_DELAYED_QUEUE */ meltfrout->tabval[1])))) /*then */ { /*^cond.then */ @@ -6324,7 +6327,7 @@ lab_endgetargs:; melt_pair_head ( /*_.FIRSTPAIR__V6*/ meltfptr[5]); - MELT_LOCATION ("warmelt-base.melt:2329:/ apply"); + MELT_LOCATION ("warmelt-base.melt:2339:/ apply"); /*apply */ { /*_.FIRSTPROC__V8*/ meltfptr[7] = @@ -6342,7 +6345,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:2326:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2336:/ clear"); /*clear *//*_.FIRSTPAIR__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.FIRSTPROC__V7*/ meltfptr[6] = 0; @@ -6370,7 +6373,7 @@ lab_endgetargs:; (melt_magic_discr ((melt_ptr_t) ( /*_.LASTPROC__V11*/ meltfptr[10])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:2335:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2345:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -6396,7 +6399,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:2332:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2342:/ clear"); /*clear *//*_.LASTPAIR__V10*/ meltfptr[9] = 0; /*^clear */ /*clear *//*_.LASTPROC__V11*/ meltfptr[10] = 0; @@ -6418,7 +6421,7 @@ lab_endgetargs:; melt_pair_head ( /*_.REVLASTPAIR__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-base.melt:2340:/ apply"); + MELT_LOCATION ("warmelt-base.melt:2350:/ apply"); /*apply */ { /*_.REVLASTPROC__V14*/ meltfptr[13] = @@ -6436,7 +6439,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:2337:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2347:/ clear"); /*clear *//*_.REVLASTPAIR__V12*/ meltfptr[11] = 0; /*^clear */ /*clear *//*_.REVLASTPROC__V13*/ meltfptr[12] = 0; @@ -6447,7 +6450,7 @@ lab_endgetargs:; } /*endciterblock FOREACH_IN_LIST */ ; - MELT_LOCATION ("warmelt-base.melt:2320:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2330:/ clear"); /*clear *//*_.FIRSTLIST__V2*/ meltfptr[1] = 0; /*^clear */ /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; @@ -6532,7 +6535,7 @@ meltrout_52_warmelt_base_REGISTER_EARLY_GIMPLE_PASSES_END_HOOK_FIRST /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:2343:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:2353:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -6545,7 +6548,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:2347:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2357:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -6553,7 +6556,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:2348:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2358:/ quasiblock"); /*^cond */ @@ -6579,7 +6582,7 @@ lab_endgetargs:; /*_#NULL__L2*/ meltfnum[1] = (( /*_.FIRSTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:2350:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2360:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -6591,7 +6594,7 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2352:/ compute"); + MELT_LOCATION ("warmelt-base.melt:2362:/ compute"); /*_.FIRSTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] = /*_.MAKE_LIST__V4*/ meltfptr[3];; @@ -6599,7 +6602,7 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2353:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2363:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!FINISHDECL_DELAYED_QUEUE */ meltfrout->tabval[0])), (melt_ptr_t) (( /*!CLASS_DELAYED_QUEUE */ meltfrout->tabval[1])))) /*then */ { /*^cond.then */ @@ -6636,7 +6639,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2357:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2367:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!INITIAL_SYSTEM_DATA */ meltfrout->tabval[3])), (melt_ptr_t) (( /*!CLASS_SYSTEM_DATA */ meltfrout->tabval[5])))) /*then */ { /*^cond.then */ @@ -6665,12 +6668,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2351:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2361:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2350:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2360:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -6682,14 +6685,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:2361:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2371:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.FIRSTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:2348:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2358:/ clear"); /*clear *//*_.FIRSTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -6699,7 +6702,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:2347:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:2357:/ cond.else"); /*^block */ /*anyblock */ @@ -6707,7 +6710,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:2364:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2374:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_early_gimple_passes_end_hook_first")); } @@ -6719,7 +6722,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2343:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2353:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -6798,7 +6801,7 @@ meltrout_53_warmelt_base_REGISTER_EARLY_GIMPLE_PASSES_END_HOOK_LAST /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:2368:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:2378:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -6811,7 +6814,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:2372:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2382:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -6819,7 +6822,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:2373:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2383:/ quasiblock"); /*^cond */ @@ -6845,7 +6848,7 @@ lab_endgetargs:; /*_#NULL__L2*/ meltfnum[1] = (( /*_.LASTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:2375:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2385:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -6857,14 +6860,14 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2377:/ compute"); + MELT_LOCATION ("warmelt-base.melt:2387:/ compute"); /*_.LASTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] = /*_.MAKE_LIST__V4*/ meltfptr[3];; /*_.MAKE_LIST__V6*/ meltfptr[5] = (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2378:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2388:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!FINISHDECL_DELAYED_QUEUE */ meltfrout->tabval[0])), (melt_ptr_t) (( /*!CLASS_DELAYED_QUEUE */ meltfrout->tabval[1])))) /*then */ { /*^cond.then */ @@ -6901,7 +6904,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2382:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2392:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!INITIAL_SYSTEM_DATA */ meltfrout->tabval[3])), (melt_ptr_t) (( /*!CLASS_SYSTEM_DATA */ meltfrout->tabval[5])))) /*then */ { /*^cond.then */ @@ -6930,12 +6933,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2376:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2386:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2375:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2385:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -6947,14 +6950,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:2386:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2396:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.LASTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:2373:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2383:/ clear"); /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -6964,7 +6967,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:2372:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:2382:/ cond.else"); /*^block */ /*anyblock */ @@ -6972,7 +6975,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:2389:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2399:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_early_gimple_passes_end_hook_last")); } @@ -6984,7 +6987,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2368:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2378:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -7064,7 +7067,7 @@ meltrout_54_warmelt_base_SET_CONTENT (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:2438:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:2448:/ getarg"); /*_.C__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -7083,7 +7086,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-base.melt:2441:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2451:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.C__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_CONTAINER */ meltfrout->tabval[0])))) /*then */ { /*^cond.then */ @@ -7190,7 +7193,7 @@ meltrout_55_warmelt_base_INSTALL_VALUE_DESCRIPTOR (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:2450:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:2460:/ getarg"); /*_.VD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -7202,7 +7205,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-base.melt:2451:/ cppif.then"); + MELT_LOCATION ("warmelt-base.melt:2461:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7211,7 +7214,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.VD__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_VALUE_DESCRIPTOR */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-base.melt:2451:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2461:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -7219,7 +7222,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:2451:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:2461:/ cond.else"); /*^block */ /*anyblock */ @@ -7233,7 +7236,7 @@ lab_endgetargs:; melt_assert_failed (("check vd"), ("warmelt-base.melt") ? ("warmelt-base.melt") : __FILE__, - (2451) ? (2451) : __LINE__, __FUNCTION__); + (2461) ? (2461) : __LINE__, __FUNCTION__); ; } ; @@ -7248,7 +7251,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2451:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2461:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V4*/ meltfptr[3] = 0; @@ -7259,7 +7262,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-base.melt:2452:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2462:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!VALUE_DESCRIPTOR_LIST_CONTAINER */ meltfrout->tabval[1])), (melt_ptr_t) (( /*!CLASS_CONTAINER */ meltfrout->tabval[2])))) /*then */ { /*^cond.then */ @@ -7280,7 +7283,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:2452:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2462:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.CONTAINER_VALUE__V5*/ meltfptr[3]), (melt_ptr_t) ( /*_.VD__V2*/ meltfptr[1])); @@ -7288,7 +7291,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2450:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2460:/ clear"); /*clear *//*_.IFCPP___V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_.CONTAINER_VALUE__V5*/ meltfptr[3] = 0; @@ -7377,11 +7380,11 @@ meltrout_56_warmelt_base_RETRIEVE_VALUE_DESCRIPTOR_LIST (meltclosure_ptr_t goto lab_endgetargs; lab_endgetargs:; /*body*/ - MELT_LOCATION ("warmelt-base.melt:2455:/ block"); + MELT_LOCATION ("warmelt-base.melt:2465:/ block"); /*anyblock*/ { - MELT_LOCATION ("warmelt-base.melt:2456:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2466:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!VALUE_DESCRIPTOR_LIST_CONTAINER */ meltfrout->tabval[0])), (melt_ptr_t) (( /*!CLASS_CONTAINER */ meltfrout->tabval[1])))) /*then */ { /*^cond.then */ @@ -7400,11 +7403,11 @@ lab_endgetargs:; /*_.CONTAINER_VALUE__V2*/ meltfptr[1] = NULL;; } ; - MELT_LOCATION ("warmelt-base.melt:2455:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2465:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.CONTAINER_VALUE__V2*/ meltfptr[1];; - MELT_LOCATION ("warmelt-base.melt:2455:/ finalreturn"); + MELT_LOCATION ("warmelt-base.melt:2465:/ finalreturn"); ; /*finalret */ goto labend_rout; /*epilog */ |