diff options
author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-02-25 14:49:27 +0000 |
---|---|---|
committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-02-25 14:49:27 +0000 |
commit | 2d454dd3f3e859c1247013b77b7d6ca5ba2a2ef2 (patch) | |
tree | b22fa21f753daa2588615300d09f5b8ce1d5b42a /gcc/melt/generated/warmelt-base+02.c | |
parent | dc47ef056e3d32a5bf664ee567e7d11a3cc8e2d1 (diff) | |
download | gcc-2d454dd3f3e859c1247013b77b7d6ca5ba2a2ef2.tar.gz |
2012-02-25 Basile Starynkevitch <basile@starynkevitch.net>
* INSTALL/README-MELT-PLUGIN: Mention syntax-checking emission.
[gcc/]
2011-02-25 Basile Starynkevitch <basile@starynkevitch.net>
{{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+melttime.h: Regenerate.
* melt/generated/warmelt-base.c: Regenerate.
* melt/generated/warmelt-debug+01.c: Regenerate.
* melt/generated/warmelt-debug+02.c: Regenerate.
* melt/generated/warmelt-debug+meltdesc.c: Regenerate.
* melt/generated/warmelt-debug+melttime.h: Regenerate.
* melt/generated/warmelt-debug.c: Regenerate.
* melt/generated/warmelt-first+01.c: Regenerate.
* melt/generated/warmelt-first+02.c: Regenerate.
* melt/generated/warmelt-first+03.c: Regenerate.
* melt/generated/warmelt-first+meltdesc.c: Regenerate.
* melt/generated/warmelt-first+melttime.h: Regenerate.
* melt/generated/warmelt-first.c: Regenerate.
* melt/generated/warmelt-genobj+01.c: Regenerate.
* melt/generated/warmelt-genobj+02.c: Regenerate.
* melt/generated/warmelt-genobj+03.c: Regenerate.
* melt/generated/warmelt-genobj+04.c: Regenerate.
* melt/generated/warmelt-genobj+05.c: Regenerate.
* melt/generated/warmelt-genobj+meltdesc.c: Regenerate.
* melt/generated/warmelt-genobj+melttime.h: Regenerate.
* melt/generated/warmelt-genobj.c: Regenerate.
* melt/generated/warmelt-macro+01.c: Regenerate.
* melt/generated/warmelt-macro+02.c: Regenerate.
* melt/generated/warmelt-macro+03.c: Regenerate.
* melt/generated/warmelt-macro+04.c: Regenerate.
* melt/generated/warmelt-macro+meltdesc.c: Regenerate.
* melt/generated/warmelt-macro+melttime.h: Regenerate.
* melt/generated/warmelt-macro.c: Regenerate.
* melt/generated/warmelt-modes+01.c: Regenerate.
* melt/generated/warmelt-modes+02.c: Regenerate.
* melt/generated/warmelt-modes+meltdesc.c: Regenerate.
* melt/generated/warmelt-modes+melttime.h: Regenerate.
* melt/generated/warmelt-modes.c: Regenerate.
* melt/generated/warmelt-normal+01.c: Regenerate.
* melt/generated/warmelt-normal+02.c: Regenerate.
* melt/generated/warmelt-normal+03.c: Regenerate.
* melt/generated/warmelt-normal+04.c: Regenerate.
* melt/generated/warmelt-normal+05.c: Regenerate.
* melt/generated/warmelt-normal+meltdesc.c: Regenerate.
* melt/generated/warmelt-normal+melttime.h: Regenerate.
* melt/generated/warmelt-normal.c: Regenerate.
* melt/generated/warmelt-normatch+01.c: Regenerate.
* melt/generated/warmelt-normatch+02.c: Regenerate.
* melt/generated/warmelt-normatch+03.c: Regenerate.
* melt/generated/warmelt-normatch+04.c: Regenerate.
* melt/generated/warmelt-normatch+05.c: Regenerate.
* melt/generated/warmelt-normatch+meltdesc.c: Regenerate.
* melt/generated/warmelt-normatch+melttime.h: Regenerate.
* melt/generated/warmelt-normatch.c: Regenerate.
* melt/generated/warmelt-outobj+01.c: Regenerate.
* melt/generated/warmelt-outobj+02.c: Regenerate.
* melt/generated/warmelt-outobj+03.c: Regenerate.
* melt/generated/warmelt-outobj+04.c: Regenerate.
* melt/generated/warmelt-outobj+05.c: New file.
* melt/generated/warmelt-outobj+meltdesc.c: Regenerate.
* melt/generated/warmelt-outobj+melttime.h: Regenerate.
* melt/generated/warmelt-outobj.c: Regenerate.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@184575 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 | 596 |
1 files changed, 298 insertions, 298 deletions
diff --git a/gcc/melt/generated/warmelt-base+02.c b/gcc/melt/generated/warmelt-base+02.c index 96db296096c..a7e85f41881 100644 --- a/gcc/melt/generated/warmelt-base+02.c +++ b/gcc/melt/generated/warmelt-base+02.c @@ -1060,7 +1060,7 @@ meltrout_32_warmelt_base_REGISTER_FINISH_TYPE_HOOK_LAST (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:1765:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:1767:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -1073,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:1769:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1771:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -1081,7 +1081,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:1770:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:1772:/ quasiblock"); /*^cond */ @@ -1112,7 +1112,7 @@ lab_endgetargs:; /*_#NULL__L2*/ meltfnum[1] = (( /*_.LASTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:1772:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1774:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -1124,14 +1124,14 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:1774:/ compute"); + MELT_LOCATION ("warmelt-base.melt:1776:/ 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:1775:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1777:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -1173,7 +1173,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:1779:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1781:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -1211,17 +1211,17 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:1782:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:1784:/ locexp"); /* melt_notify_finish_type */ meltgc_notify_finish_type_hook ();; } ; - MELT_LOCATION ("warmelt-base.melt:1773:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:1775:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:1772:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1774:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -1233,14 +1233,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:1784:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:1786:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.LASTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:1770:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1772:/ clear"); /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -1250,7 +1250,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:1769:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:1771:/ cond.else"); /*^block */ /*anyblock */ @@ -1258,7 +1258,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:1787:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:1789:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_finish_type_hook_last")); } @@ -1270,7 +1270,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:1765:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1767:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -1352,7 +1352,7 @@ meltrout_33_warmelt_base_MELT_FINISH_DECL_RUNNER (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:1806:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:1808:/ getarg"); /*_.BOXTREEV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -1362,7 +1362,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-base.melt:1807:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:1809:/ quasiblock"); /*^cond */ @@ -1390,7 +1390,7 @@ lab_endgetargs:; /*_.FIRSTLIST__V3*/ meltfptr[2] = NULL;; } ; - MELT_LOCATION ("warmelt-base.melt:1808:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1810:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -1437,7 +1437,7 @@ lab_endgetargs:; melt_pair_head ( /*_.FIRSTPAIR__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-base.melt:1816:/ apply"); + MELT_LOCATION ("warmelt-base.melt:1818:/ apply"); /*apply */ { union meltparam_un argtab[1]; @@ -1460,7 +1460,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:1813:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1815:/ clear"); /*clear *//*_.FIRSTPAIR__V7*/ meltfptr[6] = 0; /*^clear */ /*clear *//*_.FIRSTPROC__V8*/ meltfptr[7] = 0; @@ -1488,7 +1488,7 @@ lab_endgetargs:; (melt_magic_discr ((melt_ptr_t) ( /*_.LASTPROC__V12*/ meltfptr[11])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:1822:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1824:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -1514,7 +1514,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:1819:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1821:/ clear"); /*clear *//*_.LASTPAIR__V11*/ meltfptr[10] = 0; /*^clear */ /*clear *//*_.LASTPROC__V12*/ meltfptr[11] = 0; @@ -1536,7 +1536,7 @@ lab_endgetargs:; melt_pair_head ( /*_.REVLASTPAIR__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-base.melt:1827:/ apply"); + MELT_LOCATION ("warmelt-base.melt:1829:/ apply"); /*apply */ { union meltparam_un argtab[1]; @@ -1559,7 +1559,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:1824:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1826:/ clear"); /*clear *//*_.REVLASTPAIR__V13*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.REVLASTPROC__V14*/ meltfptr[13] = 0; @@ -1570,7 +1570,7 @@ lab_endgetargs:; } /*endciterblock FOREACH_IN_LIST */ ; - MELT_LOCATION ("warmelt-base.melt:1807:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1809:/ clear"); /*clear *//*_.FIRSTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_.LASTLIST__V4*/ meltfptr[3] = 0; @@ -1662,7 +1662,7 @@ meltrout_34_warmelt_base_REGISTER_FINISH_DECL_HOOK_FIRST (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:1830:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:1832:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -1675,7 +1675,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:1835:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1837:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -1683,7 +1683,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:1836:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:1838:/ quasiblock"); /*^cond */ @@ -1714,7 +1714,7 @@ lab_endgetargs:; /*_#NULL__L2*/ meltfnum[1] = (( /*_.FIRSTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:1838:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1840:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -1726,7 +1726,7 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:1840:/ compute"); + MELT_LOCATION ("warmelt-base.melt:1842:/ compute"); /*_.FIRSTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] = /*_.MAKE_LIST__V4*/ meltfptr[3];; @@ -1734,7 +1734,7 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:1841:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1843:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -1776,7 +1776,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:1845:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1847:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -1814,17 +1814,17 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:1848:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:1850:/ locexp"); /* melt_notify_finish_decl */ meltgc_notify_finish_decl_hook ();; } ; - MELT_LOCATION ("warmelt-base.melt:1839:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:1841:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:1838:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1840:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -1836,14 +1836,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:1850:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:1852:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.FIRSTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:1836:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1838:/ clear"); /*clear *//*_.FIRSTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -1853,7 +1853,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:1835:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:1837:/ cond.else"); /*^block */ /*anyblock */ @@ -1861,7 +1861,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:1853:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:1855:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_finish_decl_hook_first")); } @@ -1873,7 +1873,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:1830:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1832:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -1958,7 +1958,7 @@ meltrout_35_warmelt_base_REGISTER_FINISH_DECL_HOOK_LAST (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:1857:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:1859:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -1971,7 +1971,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:1862:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1864:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -1979,7 +1979,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:1863:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:1865:/ quasiblock"); /*^cond */ @@ -2010,7 +2010,7 @@ lab_endgetargs:; /*_#NULL__L2*/ meltfnum[1] = (( /*_.LASTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:1865:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1867:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -2022,14 +2022,14 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:1867:/ compute"); + MELT_LOCATION ("warmelt-base.melt:1869:/ 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:1868:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1870:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -2071,7 +2071,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:1872:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1874:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -2109,17 +2109,17 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:1875:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:1877:/ locexp"); /* melt_notify_finish_decl */ meltgc_notify_finish_decl_hook ();; } ; - MELT_LOCATION ("warmelt-base.melt:1866:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:1868:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:1865:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1867:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -2131,14 +2131,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:1877:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:1879:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.LASTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:1863:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1865:/ clear"); /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -2148,7 +2148,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:1862:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:1864:/ cond.else"); /*^block */ /*anyblock */ @@ -2156,7 +2156,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:1880:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:1882:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_finish_decl_hook_last")); } @@ -2168,7 +2168,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:1857:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1859:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -2255,11 +2255,11 @@ meltrout_36_warmelt_base_MELT_ALL_PASSES_START_RUNNER (meltclosure_ptr_t goto lab_endgetargs; lab_endgetargs:; /*body*/ - MELT_LOCATION ("warmelt-base.melt:1896:/ block"); + MELT_LOCATION ("warmelt-base.melt:1898:/ block"); /*anyblock*/ { - MELT_LOCATION ("warmelt-base.melt:1897:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:1899:/ quasiblock"); /*^cond */ @@ -2287,7 +2287,7 @@ lab_endgetargs:; /*_.FIRSTLIST__V2*/ meltfptr[1] = NULL;; } ; - MELT_LOCATION ("warmelt-base.melt:1898:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1900:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -2334,7 +2334,7 @@ lab_endgetargs:; melt_pair_head ( /*_.FIRSTPAIR__V6*/ meltfptr[5]); - MELT_LOCATION ("warmelt-base.melt:1906:/ apply"); + MELT_LOCATION ("warmelt-base.melt:1908:/ apply"); /*apply */ { /*_.FIRSTPROC__V8*/ meltfptr[7] = @@ -2352,7 +2352,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:1903:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1905:/ clear"); /*clear *//*_.FIRSTPAIR__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.FIRSTPROC__V7*/ meltfptr[6] = 0; @@ -2380,7 +2380,7 @@ lab_endgetargs:; (melt_magic_discr ((melt_ptr_t) ( /*_.LASTPROC__V11*/ meltfptr[10])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:1912:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1914:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2406,7 +2406,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:1909:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1911:/ clear"); /*clear *//*_.LASTPAIR__V10*/ meltfptr[9] = 0; /*^clear */ /*clear *//*_.LASTPROC__V11*/ meltfptr[10] = 0; @@ -2428,7 +2428,7 @@ lab_endgetargs:; melt_pair_head ( /*_.REVLASTPAIR__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-base.melt:1917:/ apply"); + MELT_LOCATION ("warmelt-base.melt:1919:/ apply"); /*apply */ { /*_.REVLASTPROC__V14*/ meltfptr[13] = @@ -2446,7 +2446,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:1914:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1916:/ clear"); /*clear *//*_.REVLASTPAIR__V12*/ meltfptr[11] = 0; /*^clear */ /*clear *//*_.REVLASTPROC__V13*/ meltfptr[12] = 0; @@ -2457,7 +2457,7 @@ lab_endgetargs:; } /*endciterblock FOREACH_IN_LIST */ ; - MELT_LOCATION ("warmelt-base.melt:1897:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1899:/ clear"); /*clear *//*_.FIRSTLIST__V2*/ meltfptr[1] = 0; /*^clear */ /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; @@ -2541,7 +2541,7 @@ meltrout_37_warmelt_base_REGISTER_ALL_PASSES_START_HOOK_FIRST /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:1920:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:1922:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -2554,7 +2554,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:1924:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1926:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2562,7 +2562,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:1925:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:1927:/ quasiblock"); /*^cond */ @@ -2593,7 +2593,7 @@ lab_endgetargs:; /*_#NULL__L2*/ meltfnum[1] = (( /*_.FIRSTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:1927:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1929:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -2605,7 +2605,7 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:1929:/ compute"); + MELT_LOCATION ("warmelt-base.melt:1931:/ compute"); /*_.FIRSTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] = /*_.MAKE_LIST__V4*/ meltfptr[3];; @@ -2613,7 +2613,7 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:1930:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1932:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -2655,7 +2655,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:1934:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1936:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -2689,12 +2689,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:1928:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:1930:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:1927:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1929:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -2706,14 +2706,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:1938:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:1940:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.FIRSTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:1925:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1927:/ clear"); /*clear *//*_.FIRSTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -2723,7 +2723,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:1924:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:1926:/ cond.else"); /*^block */ /*anyblock */ @@ -2731,7 +2731,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:1941:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:1943:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_all_passes_start_hook_first")); } @@ -2743,7 +2743,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:1920:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1922:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -2820,7 +2820,7 @@ meltrout_38_warmelt_base_REGISTER_ALL_PASSES_START_HOOK_LAST /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:1945:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:1947:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -2833,7 +2833,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:1949:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1951:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2841,7 +2841,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:1950:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:1952:/ quasiblock"); /*^cond */ @@ -2872,7 +2872,7 @@ lab_endgetargs:; /*_#NULL__L2*/ meltfnum[1] = (( /*_.LASTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:1952:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1954:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -2884,14 +2884,14 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:1954:/ compute"); + MELT_LOCATION ("warmelt-base.melt:1956:/ 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:1955:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1957:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -2933,7 +2933,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:1959:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1961:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -2967,12 +2967,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:1953:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:1955:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:1952:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1954:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -2984,14 +2984,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:1963:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:1965:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.LASTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:1950:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1952:/ clear"); /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -3001,7 +3001,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:1949:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:1951:/ cond.else"); /*^block */ /*anyblock */ @@ -3009,7 +3009,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:1966:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:1968:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_all_passes_start_hook_last")); } @@ -3021,7 +3021,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:1945:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1947:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -3108,11 +3108,11 @@ meltrout_39_warmelt_base_MELT_ALL_PASSES_END_RUNNER (meltclosure_ptr_t goto lab_endgetargs; lab_endgetargs:; /*body*/ - MELT_LOCATION ("warmelt-base.melt:1982:/ block"); + MELT_LOCATION ("warmelt-base.melt:1984:/ block"); /*anyblock*/ { - MELT_LOCATION ("warmelt-base.melt:1983:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:1985:/ quasiblock"); /*^cond */ @@ -3140,7 +3140,7 @@ lab_endgetargs:; /*_.FIRSTLIST__V2*/ meltfptr[1] = NULL;; } ; - MELT_LOCATION ("warmelt-base.melt:1984:/ cond"); + MELT_LOCATION ("warmelt-base.melt:1986:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -3187,7 +3187,7 @@ lab_endgetargs:; melt_pair_head ( /*_.FIRSTPAIR__V6*/ meltfptr[5]); - MELT_LOCATION ("warmelt-base.melt:1992:/ apply"); + MELT_LOCATION ("warmelt-base.melt:1994:/ apply"); /*apply */ { /*_.FIRSTPROC__V8*/ meltfptr[7] = @@ -3205,7 +3205,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:1989:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1991:/ clear"); /*clear *//*_.FIRSTPAIR__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.FIRSTPROC__V7*/ meltfptr[6] = 0; @@ -3233,7 +3233,7 @@ lab_endgetargs:; (melt_magic_discr ((melt_ptr_t) ( /*_.LASTPROC__V11*/ meltfptr[10])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:1998:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2000:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -3259,7 +3259,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:1995:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1997:/ clear"); /*clear *//*_.LASTPAIR__V10*/ meltfptr[9] = 0; /*^clear */ /*clear *//*_.LASTPROC__V11*/ meltfptr[10] = 0; @@ -3281,7 +3281,7 @@ lab_endgetargs:; melt_pair_head ( /*_.REVLASTPAIR__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-base.melt:2003:/ apply"); + MELT_LOCATION ("warmelt-base.melt:2005:/ apply"); /*apply */ { /*_.REVLASTPROC__V14*/ meltfptr[13] = @@ -3299,7 +3299,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:2000:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2002:/ clear"); /*clear *//*_.REVLASTPAIR__V12*/ meltfptr[11] = 0; /*^clear */ /*clear *//*_.REVLASTPROC__V13*/ meltfptr[12] = 0; @@ -3310,7 +3310,7 @@ lab_endgetargs:; } /*endciterblock FOREACH_IN_LIST */ ; - MELT_LOCATION ("warmelt-base.melt:1983:/ clear"); + MELT_LOCATION ("warmelt-base.melt:1985:/ clear"); /*clear *//*_.FIRSTLIST__V2*/ meltfptr[1] = 0; /*^clear */ /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; @@ -3404,7 +3404,7 @@ meltrout_40_warmelt_base_REGISTER_ALL_PASSES_END_HOOK_FIRST (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:2006:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:2008:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -3417,7 +3417,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:2010:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2012:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -3425,7 +3425,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:2011:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2013:/ quasiblock"); /*^cond */ @@ -3456,7 +3456,7 @@ lab_endgetargs:; /*_#NULL__L2*/ meltfnum[1] = (( /*_.FIRSTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:2013:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2015:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -3468,7 +3468,7 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2015:/ compute"); + MELT_LOCATION ("warmelt-base.melt:2017:/ compute"); /*_.FIRSTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] = /*_.MAKE_LIST__V4*/ meltfptr[3];; @@ -3476,7 +3476,7 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2016:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2018:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -3518,7 +3518,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2020:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2022:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -3552,12 +3552,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2014:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2016:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2013:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2015:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -3569,14 +3569,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:2024:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2026:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.FIRSTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:2011:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2013:/ clear"); /*clear *//*_.FIRSTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -3586,7 +3586,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:2010:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:2012:/ cond.else"); /*^block */ /*anyblock */ @@ -3594,7 +3594,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:2027:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2029:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_all_passes_end_hook_first")); } @@ -3606,7 +3606,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2006:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2008:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -3691,7 +3691,7 @@ meltrout_41_warmelt_base_REGISTER_ALL_PASSES_END_HOOK_LAST (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:2031:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:2033:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -3704,7 +3704,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:2035:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2037:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -3712,7 +3712,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:2036:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2038:/ quasiblock"); /*^cond */ @@ -3743,7 +3743,7 @@ lab_endgetargs:; /*_#NULL__L2*/ meltfnum[1] = (( /*_.LASTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:2038:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2040:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -3755,14 +3755,14 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2040:/ compute"); + MELT_LOCATION ("warmelt-base.melt:2042:/ 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:2041:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2043:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -3804,7 +3804,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2045:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2047:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -3838,12 +3838,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2039:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2041:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2038:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2040:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -3855,14 +3855,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:2049:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2051:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.LASTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:2036:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2038:/ clear"); /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -3872,7 +3872,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:2035:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:2037:/ cond.else"); /*^block */ /*anyblock */ @@ -3880,7 +3880,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:2052:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2054:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_all_passes_end_hook_last")); } @@ -3892,7 +3892,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2031:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2033:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -3979,11 +3979,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:2068:/ block"); + MELT_LOCATION ("warmelt-base.melt:2070:/ block"); /*anyblock*/ { - MELT_LOCATION ("warmelt-base.melt:2069:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2071:/ quasiblock"); /*^cond */ @@ -4011,7 +4011,7 @@ lab_endgetargs:; /*_.FIRSTLIST__V2*/ meltfptr[1] = NULL;; } ; - MELT_LOCATION ("warmelt-base.melt:2070:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2072:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -4058,7 +4058,7 @@ lab_endgetargs:; melt_pair_head ( /*_.FIRSTPAIR__V6*/ meltfptr[5]); - MELT_LOCATION ("warmelt-base.melt:2078:/ apply"); + MELT_LOCATION ("warmelt-base.melt:2080:/ apply"); /*apply */ { /*_.FIRSTPROC__V8*/ meltfptr[7] = @@ -4076,7 +4076,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:2075:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2077:/ clear"); /*clear *//*_.FIRSTPAIR__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.FIRSTPROC__V7*/ meltfptr[6] = 0; @@ -4104,7 +4104,7 @@ lab_endgetargs:; (melt_magic_discr ((melt_ptr_t) ( /*_.LASTPROC__V11*/ meltfptr[10])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:2084:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2086:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -4130,7 +4130,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:2081:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2083:/ clear"); /*clear *//*_.LASTPAIR__V10*/ meltfptr[9] = 0; /*^clear */ /*clear *//*_.LASTPROC__V11*/ meltfptr[10] = 0; @@ -4152,7 +4152,7 @@ lab_endgetargs:; melt_pair_head ( /*_.REVLASTPAIR__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-base.melt:2089:/ apply"); + MELT_LOCATION ("warmelt-base.melt:2091:/ apply"); /*apply */ { /*_.REVLASTPROC__V14*/ meltfptr[13] = @@ -4170,7 +4170,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:2086:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2088:/ clear"); /*clear *//*_.REVLASTPAIR__V12*/ meltfptr[11] = 0; /*^clear */ /*clear *//*_.REVLASTPROC__V13*/ meltfptr[12] = 0; @@ -4181,7 +4181,7 @@ lab_endgetargs:; } /*endciterblock FOREACH_IN_LIST */ ; - MELT_LOCATION ("warmelt-base.melt:2069:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2071:/ clear"); /*clear *//*_.FIRSTLIST__V2*/ meltfptr[1] = 0; /*^clear */ /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; @@ -4266,7 +4266,7 @@ meltrout_43_warmelt_base_REGISTER_ALL_IPA_PASSES_START_HOOK_FIRST /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:2092:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:2094:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -4279,7 +4279,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:2096:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2098:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -4287,7 +4287,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:2097:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2099:/ quasiblock"); /*^cond */ @@ -4318,7 +4318,7 @@ lab_endgetargs:; /*_#NULL__L2*/ meltfnum[1] = (( /*_.FIRSTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:2099:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2101:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -4330,7 +4330,7 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2101:/ compute"); + MELT_LOCATION ("warmelt-base.melt:2103:/ compute"); /*_.FIRSTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] = /*_.MAKE_LIST__V4*/ meltfptr[3];; @@ -4338,7 +4338,7 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2102:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2104:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -4380,7 +4380,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2106:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2108:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -4414,12 +4414,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2100:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2102:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2099:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2101:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -4431,14 +4431,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:2110:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2112:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.FIRSTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:2097:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2099:/ clear"); /*clear *//*_.FIRSTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -4448,7 +4448,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:2096:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:2098:/ cond.else"); /*^block */ /*anyblock */ @@ -4456,7 +4456,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:2113:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2115:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_all_ipa_passes_start_hook_first")); } @@ -4468,7 +4468,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2092:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2094:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -4545,7 +4545,7 @@ meltrout_44_warmelt_base_REGISTER_ALL_IPA_PASSES_START_HOOK_LAST /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:2117:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:2119:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -4558,7 +4558,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:2121:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2123:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -4566,7 +4566,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:2122:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2124:/ quasiblock"); /*^cond */ @@ -4597,7 +4597,7 @@ lab_endgetargs:; /*_#NULL__L2*/ meltfnum[1] = (( /*_.LASTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:2124:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2126:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -4609,14 +4609,14 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2126:/ compute"); + MELT_LOCATION ("warmelt-base.melt:2128:/ 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:2127:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2129:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -4658,7 +4658,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2131:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2133:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -4692,12 +4692,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2125:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2127:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2124:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2126:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -4709,14 +4709,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:2135:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2137:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.LASTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:2122:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2124:/ clear"); /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -4726,7 +4726,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:2121:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:2123:/ cond.else"); /*^block */ /*anyblock */ @@ -4734,7 +4734,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:2138:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2140:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_all_ipa_passes_start_hook_last")); } @@ -4746,7 +4746,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2117:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2119:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -4833,11 +4833,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:2154:/ block"); + MELT_LOCATION ("warmelt-base.melt:2156:/ block"); /*anyblock*/ { - MELT_LOCATION ("warmelt-base.melt:2155:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2157:/ quasiblock"); /*^cond */ @@ -4865,7 +4865,7 @@ lab_endgetargs:; /*_.FIRSTLIST__V2*/ meltfptr[1] = NULL;; } ; - MELT_LOCATION ("warmelt-base.melt:2156:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2158:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -4912,7 +4912,7 @@ lab_endgetargs:; melt_pair_head ( /*_.FIRSTPAIR__V6*/ meltfptr[5]); - MELT_LOCATION ("warmelt-base.melt:2164:/ apply"); + MELT_LOCATION ("warmelt-base.melt:2166:/ apply"); /*apply */ { /*_.FIRSTPROC__V8*/ meltfptr[7] = @@ -4930,7 +4930,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:2161:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2163:/ clear"); /*clear *//*_.FIRSTPAIR__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.FIRSTPROC__V7*/ meltfptr[6] = 0; @@ -4958,7 +4958,7 @@ lab_endgetargs:; (melt_magic_discr ((melt_ptr_t) ( /*_.LASTPROC__V11*/ meltfptr[10])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:2170:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2172:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -4984,7 +4984,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:2167:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2169:/ clear"); /*clear *//*_.LASTPAIR__V10*/ meltfptr[9] = 0; /*^clear */ /*clear *//*_.LASTPROC__V11*/ meltfptr[10] = 0; @@ -5006,7 +5006,7 @@ lab_endgetargs:; melt_pair_head ( /*_.REVLASTPAIR__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-base.melt:2175:/ apply"); + MELT_LOCATION ("warmelt-base.melt:2177:/ apply"); /*apply */ { /*_.REVLASTPROC__V14*/ meltfptr[13] = @@ -5024,7 +5024,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:2172:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2174:/ clear"); /*clear *//*_.REVLASTPAIR__V12*/ meltfptr[11] = 0; /*^clear */ /*clear *//*_.REVLASTPROC__V13*/ meltfptr[12] = 0; @@ -5035,7 +5035,7 @@ lab_endgetargs:; } /*endciterblock FOREACH_IN_LIST */ ; - MELT_LOCATION ("warmelt-base.melt:2155:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2157:/ clear"); /*clear *//*_.FIRSTLIST__V2*/ meltfptr[1] = 0; /*^clear */ /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; @@ -5119,7 +5119,7 @@ meltrout_46_warmelt_base_REGISTER_ALL_IPA_PASSES_END_HOOK_FIRST /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:2178:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:2180:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -5132,7 +5132,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:2182:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2184:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -5140,7 +5140,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:2183:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2185:/ quasiblock"); /*^cond */ @@ -5171,7 +5171,7 @@ lab_endgetargs:; /*_#NULL__L2*/ meltfnum[1] = (( /*_.FIRSTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:2185:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2187:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -5183,7 +5183,7 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2187:/ compute"); + MELT_LOCATION ("warmelt-base.melt:2189:/ compute"); /*_.FIRSTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] = /*_.MAKE_LIST__V4*/ meltfptr[3];; @@ -5191,7 +5191,7 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2188:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2190:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -5233,7 +5233,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2192:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2194:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -5267,12 +5267,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2186:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2188:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2185:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2187:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -5284,14 +5284,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:2196:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2198:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.FIRSTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:2183:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2185:/ clear"); /*clear *//*_.FIRSTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -5301,7 +5301,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:2182:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:2184:/ cond.else"); /*^block */ /*anyblock */ @@ -5309,7 +5309,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:2199:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2201:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_all_ipa_passes_end_hook_first")); } @@ -5321,7 +5321,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2178:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2180:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -5398,7 +5398,7 @@ meltrout_47_warmelt_base_REGISTER_ALL_IPA_PASSES_END_HOOK_LAST /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:2203:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:2205:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -5411,7 +5411,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:2207:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2209:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -5419,7 +5419,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:2208:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2210:/ quasiblock"); /*^cond */ @@ -5450,7 +5450,7 @@ lab_endgetargs:; /*_#NULL__L2*/ meltfnum[1] = (( /*_.LASTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:2210:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2212:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -5462,14 +5462,14 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2212:/ compute"); + MELT_LOCATION ("warmelt-base.melt:2214:/ 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:2213:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2215:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -5511,7 +5511,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2217:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2219:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -5545,12 +5545,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2211:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2213:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2210:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2212:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -5562,14 +5562,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:2221:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2223:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.LASTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:2208:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2210:/ clear"); /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -5579,7 +5579,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:2207:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:2209:/ cond.else"); /*^block */ /*anyblock */ @@ -5587,7 +5587,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:2224:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2226:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_all_ipa_passes_end_hook_last")); } @@ -5599,7 +5599,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2203:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2205:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -5678,11 +5678,11 @@ meltrout_48_warmelt_base_MELT_EARLY_GIMPLE_PASSES_START_RUNNER goto lab_endgetargs; lab_endgetargs:; /*body*/ - MELT_LOCATION ("warmelt-base.melt:2243:/ block"); + MELT_LOCATION ("warmelt-base.melt:2245:/ block"); /*anyblock*/ { - MELT_LOCATION ("warmelt-base.melt:2244:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2246:/ quasiblock"); /*^cond */ @@ -5710,7 +5710,7 @@ lab_endgetargs:; /*_.FIRSTLIST__V2*/ meltfptr[1] = NULL;; } ; - MELT_LOCATION ("warmelt-base.melt:2245:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2247:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -5757,7 +5757,7 @@ lab_endgetargs:; melt_pair_head ( /*_.FIRSTPAIR__V6*/ meltfptr[5]); - MELT_LOCATION ("warmelt-base.melt:2253:/ apply"); + MELT_LOCATION ("warmelt-base.melt:2255:/ apply"); /*apply */ { /*_.FIRSTPROC__V8*/ meltfptr[7] = @@ -5775,7 +5775,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:2250:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2252:/ clear"); /*clear *//*_.FIRSTPAIR__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.FIRSTPROC__V7*/ meltfptr[6] = 0; @@ -5803,7 +5803,7 @@ lab_endgetargs:; (melt_magic_discr ((melt_ptr_t) ( /*_.LASTPROC__V11*/ meltfptr[10])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:2259:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2261:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -5829,7 +5829,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:2256:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2258:/ clear"); /*clear *//*_.LASTPAIR__V10*/ meltfptr[9] = 0; /*^clear */ /*clear *//*_.LASTPROC__V11*/ meltfptr[10] = 0; @@ -5851,7 +5851,7 @@ lab_endgetargs:; melt_pair_head ( /*_.REVLASTPAIR__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-base.melt:2264:/ apply"); + MELT_LOCATION ("warmelt-base.melt:2266:/ apply"); /*apply */ { /*_.REVLASTPROC__V14*/ meltfptr[13] = @@ -5869,7 +5869,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:2261:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2263:/ clear"); /*clear *//*_.REVLASTPAIR__V12*/ meltfptr[11] = 0; /*^clear */ /*clear *//*_.REVLASTPROC__V13*/ meltfptr[12] = 0; @@ -5880,7 +5880,7 @@ lab_endgetargs:; } /*endciterblock FOREACH_IN_LIST */ ; - MELT_LOCATION ("warmelt-base.melt:2244:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2246:/ clear"); /*clear *//*_.FIRSTLIST__V2*/ meltfptr[1] = 0; /*^clear */ /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; @@ -5965,7 +5965,7 @@ meltrout_49_warmelt_base_REGISTER_EARLY_GIMPLE_PASSES_START_HOOK_FIRST /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:2267:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:2269:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -5978,7 +5978,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:2271:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2273:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -5986,7 +5986,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:2272:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2274:/ quasiblock"); /*^cond */ @@ -6017,7 +6017,7 @@ lab_endgetargs:; /*_#NULL__L2*/ meltfnum[1] = (( /*_.FIRSTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:2274:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2276:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -6029,7 +6029,7 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2276:/ compute"); + MELT_LOCATION ("warmelt-base.melt:2278:/ compute"); /*_.FIRSTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] = /*_.MAKE_LIST__V4*/ meltfptr[3];; @@ -6037,7 +6037,7 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2277:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2279:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -6079,7 +6079,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2281:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2283:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -6113,12 +6113,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2275:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2277:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2274:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2276:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -6130,14 +6130,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:2285:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2287:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.FIRSTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:2272:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2274:/ clear"); /*clear *//*_.FIRSTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -6147,7 +6147,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:2271:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:2273:/ cond.else"); /*^block */ /*anyblock */ @@ -6155,7 +6155,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:2288:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2290:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_early_gimple_passes_start_hook_first")); } @@ -6167,7 +6167,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2267:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2269:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -6246,7 +6246,7 @@ meltrout_50_warmelt_base_REGISTER_EARLY_GIMPLE_PASSES_START_HOOK_LAST /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:2292:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:2294:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -6259,7 +6259,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:2296:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2298:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -6267,7 +6267,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:2297:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2299:/ quasiblock"); /*^cond */ @@ -6298,7 +6298,7 @@ lab_endgetargs:; /*_#NULL__L2*/ meltfnum[1] = (( /*_.LASTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:2299:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2301:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -6310,14 +6310,14 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2301:/ compute"); + MELT_LOCATION ("warmelt-base.melt:2303:/ 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:2302:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2304:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -6359,7 +6359,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2306:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2308:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -6393,12 +6393,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2300:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2302:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2299:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2301:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -6410,14 +6410,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:2310:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2312:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.LASTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:2297:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2299:/ clear"); /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -6427,7 +6427,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:2296:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:2298:/ cond.else"); /*^block */ /*anyblock */ @@ -6435,7 +6435,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:2313:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2315:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_early_gimple_passes_start_hook_last")); } @@ -6447,7 +6447,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2292:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2294:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -6527,11 +6527,11 @@ meltrout_51_warmelt_base_MELT_EARLY_GIMPLE_PASSES_END_RUNNER goto lab_endgetargs; lab_endgetargs:; /*body*/ - MELT_LOCATION ("warmelt-base.melt:2329:/ block"); + MELT_LOCATION ("warmelt-base.melt:2331:/ block"); /*anyblock*/ { - MELT_LOCATION ("warmelt-base.melt:2330:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2332:/ quasiblock"); /*^cond */ @@ -6559,7 +6559,7 @@ lab_endgetargs:; /*_.FIRSTLIST__V2*/ meltfptr[1] = NULL;; } ; - MELT_LOCATION ("warmelt-base.melt:2331:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2333:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -6606,7 +6606,7 @@ lab_endgetargs:; melt_pair_head ( /*_.FIRSTPAIR__V6*/ meltfptr[5]); - MELT_LOCATION ("warmelt-base.melt:2339:/ apply"); + MELT_LOCATION ("warmelt-base.melt:2341:/ apply"); /*apply */ { /*_.FIRSTPROC__V8*/ meltfptr[7] = @@ -6624,7 +6624,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:2336:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2338:/ clear"); /*clear *//*_.FIRSTPAIR__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.FIRSTPROC__V7*/ meltfptr[6] = 0; @@ -6652,7 +6652,7 @@ lab_endgetargs:; (melt_magic_discr ((melt_ptr_t) ( /*_.LASTPROC__V11*/ meltfptr[10])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:2345:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2347:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -6678,7 +6678,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:2342:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2344:/ clear"); /*clear *//*_.LASTPAIR__V10*/ meltfptr[9] = 0; /*^clear */ /*clear *//*_.LASTPROC__V11*/ meltfptr[10] = 0; @@ -6700,7 +6700,7 @@ lab_endgetargs:; melt_pair_head ( /*_.REVLASTPAIR__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-base.melt:2350:/ apply"); + MELT_LOCATION ("warmelt-base.melt:2352:/ apply"); /*apply */ { /*_.REVLASTPROC__V14*/ meltfptr[13] = @@ -6718,7 +6718,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:2347:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2349:/ clear"); /*clear *//*_.REVLASTPAIR__V12*/ meltfptr[11] = 0; /*^clear */ /*clear *//*_.REVLASTPROC__V13*/ meltfptr[12] = 0; @@ -6729,7 +6729,7 @@ lab_endgetargs:; } /*endciterblock FOREACH_IN_LIST */ ; - MELT_LOCATION ("warmelt-base.melt:2330:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2332:/ clear"); /*clear *//*_.FIRSTLIST__V2*/ meltfptr[1] = 0; /*^clear */ /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; @@ -6814,7 +6814,7 @@ meltrout_52_warmelt_base_REGISTER_EARLY_GIMPLE_PASSES_END_HOOK_FIRST /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:2353:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:2355:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -6827,7 +6827,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:2357:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2359:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -6835,7 +6835,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:2358:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2360:/ quasiblock"); /*^cond */ @@ -6866,7 +6866,7 @@ lab_endgetargs:; /*_#NULL__L2*/ meltfnum[1] = (( /*_.FIRSTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:2360:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2362:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -6878,7 +6878,7 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2362:/ compute"); + MELT_LOCATION ("warmelt-base.melt:2364:/ compute"); /*_.FIRSTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] = /*_.MAKE_LIST__V4*/ meltfptr[3];; @@ -6886,7 +6886,7 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2363:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2365:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -6928,7 +6928,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2367:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2369:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -6962,12 +6962,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2361:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2363:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2360:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2362:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -6979,14 +6979,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:2371:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2373:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.FIRSTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:2358:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2360:/ clear"); /*clear *//*_.FIRSTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -6996,7 +6996,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:2357:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:2359:/ cond.else"); /*^block */ /*anyblock */ @@ -7004,7 +7004,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:2374:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2376:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_early_gimple_passes_end_hook_first")); } @@ -7016,7 +7016,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2353:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2355:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -7095,7 +7095,7 @@ meltrout_53_warmelt_base_REGISTER_EARLY_GIMPLE_PASSES_END_HOOK_LAST /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:2378:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:2380:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -7108,7 +7108,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:2382:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2384:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -7116,7 +7116,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:2383:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2385:/ quasiblock"); /*^cond */ @@ -7147,7 +7147,7 @@ lab_endgetargs:; /*_#NULL__L2*/ meltfnum[1] = (( /*_.LASTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:2385:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2387:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -7159,14 +7159,14 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2387:/ compute"); + MELT_LOCATION ("warmelt-base.melt:2389:/ 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:2388:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2390:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -7208,7 +7208,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2392:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2394:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -7242,12 +7242,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2386:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2388:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2385:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2387:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -7259,14 +7259,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:2396:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2398:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.LASTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:2383:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2385:/ clear"); /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -7276,7 +7276,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:2382:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:2384:/ cond.else"); /*^block */ /*anyblock */ @@ -7284,7 +7284,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:2399:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2401:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_early_gimple_passes_end_hook_last")); } @@ -7296,7 +7296,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2378:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2380:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -7376,7 +7376,7 @@ meltrout_54_warmelt_base_SET_CONTENT (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:2448:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:2450:/ getarg"); /*_.C__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -7395,7 +7395,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-base.melt:2451:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2453:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -7508,7 +7508,7 @@ meltrout_55_warmelt_base_INSTALL_VALUE_DESCRIPTOR (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:2460:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:2462:/ getarg"); /*_.VD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -7520,7 +7520,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-base.melt:2461:/ cppif.then"); + MELT_LOCATION ("warmelt-base.melt:2463:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7529,7 +7529,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:2461:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2463:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -7537,7 +7537,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:2461:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:2463:/ cond.else"); /*^block */ /*anyblock */ @@ -7551,7 +7551,7 @@ lab_endgetargs:; melt_assert_failed (("check vd"), ("warmelt-base.melt") ? ("warmelt-base.melt") : __FILE__, - (2461) ? (2461) : __LINE__, __FUNCTION__); + (2463) ? (2463) : __LINE__, __FUNCTION__); ; } ; @@ -7566,7 +7566,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2461:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2463:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V4*/ meltfptr[3] = 0; @@ -7577,7 +7577,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-base.melt:2462:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2464:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -7604,7 +7604,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:2462:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2464:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.CONTAINER_VALUE__V5*/ meltfptr[3]), (melt_ptr_t) ( /*_.VD__V2*/ meltfptr[1])); @@ -7612,7 +7612,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2460:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2462:/ clear"); /*clear *//*_.IFCPP___V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_.CONTAINER_VALUE__V5*/ meltfptr[3] = 0; @@ -7701,11 +7701,11 @@ meltrout_56_warmelt_base_RETRIEVE_VALUE_DESCRIPTOR_LIST (meltclosure_ptr_t goto lab_endgetargs; lab_endgetargs:; /*body*/ - MELT_LOCATION ("warmelt-base.melt:2465:/ block"); + MELT_LOCATION ("warmelt-base.melt:2467:/ block"); /*anyblock*/ { - MELT_LOCATION ("warmelt-base.melt:2466:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2468:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -7730,11 +7730,11 @@ lab_endgetargs:; /*_.CONTAINER_VALUE__V2*/ meltfptr[1] = NULL;; } ; - MELT_LOCATION ("warmelt-base.melt:2465:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2467:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.CONTAINER_VALUE__V2*/ meltfptr[1];; - MELT_LOCATION ("warmelt-base.melt:2465:/ finalreturn"); + MELT_LOCATION ("warmelt-base.melt:2467:/ finalreturn"); ; /*finalret */ goto labend_rout; /*epilog */ |