summaryrefslogtreecommitdiff
path: root/gcc/melt/generated/warmelt-base+02.c
diff options
context:
space:
mode:
authorbstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4>2012-07-02 16:33:44 +0000
committerbstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4>2012-07-02 16:33:44 +0000
commit363ec50229891d514e7dea11006efb54444c312d (patch)
tree2281f34f953a432495a9f33b7a7bc5c12d90b372 /gcc/melt/generated/warmelt-base+02.c
parent65209b9452e9b5a4f4109ff999dd9815ec3b2fd8 (diff)
downloadgcc-363ec50229891d514e7dea11006efb54444c312d.tar.gz
2012-07-02 Basile Starynkevitch <basile@starynkevitch.net>
{{Regenerate all}} * 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+03.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+05.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: Regenerate. * 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@189168 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/melt/generated/warmelt-base+02.c')
-rw-r--r--gcc/melt/generated/warmelt-base+02.c728
1 files changed, 364 insertions, 364 deletions
diff --git a/gcc/melt/generated/warmelt-base+02.c b/gcc/melt/generated/warmelt-base+02.c
index d6b0c36e3b7..21eccda77a0 100644
--- a/gcc/melt/generated/warmelt-base+02.c
+++ b/gcc/melt/generated/warmelt-base+02.c
@@ -1195,7 +1195,7 @@ meltrout_32_warmelt_base_REGISTER_FINISH_TYPE_HOOK_FIRST (meltclosure_ptr_t
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-base.melt:1861:/ getarg");
+ MELT_LOCATION ("warmelt-base.melt:1862:/ getarg");
/*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
;
goto lab_endgetargs;
@@ -1205,13 +1205,13 @@ lab_endgetargs:;
/*anyblock*/
{
- MELT_LOCATION ("warmelt-base.melt:1865:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:1866:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#IS_CLOSURE__L1*/ meltfnum[0] =
(melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) ==
MELTOBMAG_CLOSURE);;
- MELT_LOCATION ("warmelt-base.melt:1865:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:1866:/ cond");
/*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -1219,7 +1219,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-base.melt:1866:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:1867:/ quasiblock");
/*^cond */
@@ -1246,12 +1246,12 @@ lab_endgetargs:;
/*_.FIRSTLIST__V3*/ meltfptr[2] = NULL;;
}
;
- MELT_LOCATION ("warmelt-base.melt:1868:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:1869:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#NULL__L2*/ meltfnum[1] =
(( /*_.FIRSTLIST__V3*/ meltfptr[2]) == NULL);;
- MELT_LOCATION ("warmelt-base.melt:1868:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:1869:/ cond");
/*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -1263,18 +1263,18 @@ lab_endgetargs:;
(meltgc_new_list
((meltobject_ptr_t)
(( /*!DISCR_LIST */ meltfrout->tabval[2]))));;
- MELT_LOCATION ("warmelt-base.melt:1870:/ compute");
+ MELT_LOCATION ("warmelt-base.melt:1871:/ compute");
/*_.FIRSTLIST__V3*/ meltfptr[2] =
/*_.SETQ___V5*/ meltfptr[4] =
/*_.MAKE_LIST__V4*/ meltfptr[3];;
- MELT_LOCATION ("warmelt-base.melt:1871:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:1872:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_.MAKE_LIST__V6*/ meltfptr[5] =
(meltgc_new_list
((meltobject_ptr_t)
(( /*!DISCR_LIST */ meltfrout->tabval[2]))));;
- MELT_LOCATION ("warmelt-base.melt:1871:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:1872:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -1316,7 +1316,7 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-base.melt:1875:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:1876:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*^cond */
@@ -1357,17 +1357,17 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-base.melt:1878:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:1879:/ locexp");
/* melt_notify_finish_type */
meltgc_notify_finish_type_hook ();;
}
;
- MELT_LOCATION ("warmelt-base.melt:1869:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:1870:/ quasiblock");
/*epilog */
- MELT_LOCATION ("warmelt-base.melt:1868:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:1869:/ clear");
/*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0;
/*^clear */
/*clear *//*_.SETQ___V5*/ meltfptr[4] = 0;
@@ -1379,14 +1379,14 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-base.melt:1880:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:1881:/ locexp");
meltgc_append_list ((melt_ptr_t)
( /*_.FIRSTLIST__V3*/ meltfptr[2]),
(melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1]));
}
;
- MELT_LOCATION ("warmelt-base.melt:1866:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:1867:/ clear");
/*clear *//*_.FIRSTLIST__V3*/ meltfptr[2] = 0;
/*^clear */
/*clear *//*_#NULL__L2*/ meltfnum[1] = 0;
@@ -1396,7 +1396,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-base.melt:1865:/ cond.else");
+ MELT_LOCATION ("warmelt-base.melt:1866:/ cond.else");
/*^block */
/*anyblock */
@@ -1404,7 +1404,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-base.melt:1883:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:1884:/ locexp");
error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter,
("Bad function (non closure) passed to register_finish_type_hook_first"));
}
@@ -1416,7 +1416,7 @@ lab_endgetargs:;
;
/*epilog */
- MELT_LOCATION ("warmelt-base.melt:1861:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:1862:/ clear");
/*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0;
}
@@ -1510,7 +1510,7 @@ meltrout_33_warmelt_base_REGISTER_FINISH_TYPE_HOOK_LAST (meltclosure_ptr_t
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-base.melt:1887:/ getarg");
+ MELT_LOCATION ("warmelt-base.melt:1888:/ getarg");
/*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
;
goto lab_endgetargs;
@@ -1520,13 +1520,13 @@ lab_endgetargs:;
/*anyblock*/
{
- MELT_LOCATION ("warmelt-base.melt:1891:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:1892:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#IS_CLOSURE__L1*/ meltfnum[0] =
(melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) ==
MELTOBMAG_CLOSURE);;
- MELT_LOCATION ("warmelt-base.melt:1891:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:1892:/ cond");
/*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -1534,7 +1534,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-base.melt:1892:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:1893:/ quasiblock");
/*^cond */
@@ -1561,12 +1561,12 @@ lab_endgetargs:;
/*_.LASTLIST__V3*/ meltfptr[2] = NULL;;
}
;
- MELT_LOCATION ("warmelt-base.melt:1894:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:1895:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#NULL__L2*/ meltfnum[1] =
(( /*_.LASTLIST__V3*/ meltfptr[2]) == NULL);;
- MELT_LOCATION ("warmelt-base.melt:1894:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:1895:/ cond");
/*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -1578,17 +1578,17 @@ lab_endgetargs:;
(meltgc_new_list
((meltobject_ptr_t)
(( /*!DISCR_LIST */ meltfrout->tabval[2]))));;
- MELT_LOCATION ("warmelt-base.melt:1896:/ compute");
+ MELT_LOCATION ("warmelt-base.melt:1897:/ compute");
/*_.LASTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] =
/*_.MAKE_LIST__V4*/ meltfptr[3];;
- MELT_LOCATION ("warmelt-base.melt:1897:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:1898:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_.MAKE_LIST__V6*/ meltfptr[5] =
(meltgc_new_list
((meltobject_ptr_t)
(( /*!DISCR_LIST */ meltfrout->tabval[2]))));;
- MELT_LOCATION ("warmelt-base.melt:1897:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:1898:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -1630,7 +1630,7 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-base.melt:1901:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:1902:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*^cond */
@@ -1671,17 +1671,17 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-base.melt:1904:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:1905:/ locexp");
/* melt_notify_finish_type */
meltgc_notify_finish_type_hook ();;
}
;
- MELT_LOCATION ("warmelt-base.melt:1895:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:1896:/ quasiblock");
/*epilog */
- MELT_LOCATION ("warmelt-base.melt:1894:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:1895:/ clear");
/*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0;
/*^clear */
/*clear *//*_.SETQ___V5*/ meltfptr[4] = 0;
@@ -1693,14 +1693,14 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-base.melt:1906:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:1907:/ locexp");
meltgc_append_list ((melt_ptr_t)
( /*_.LASTLIST__V3*/ meltfptr[2]),
(melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1]));
}
;
- MELT_LOCATION ("warmelt-base.melt:1892:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:1893:/ clear");
/*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0;
/*^clear */
/*clear *//*_#NULL__L2*/ meltfnum[1] = 0;
@@ -1710,7 +1710,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-base.melt:1891:/ cond.else");
+ MELT_LOCATION ("warmelt-base.melt:1892:/ cond.else");
/*^block */
/*anyblock */
@@ -1718,7 +1718,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-base.melt:1909:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:1910:/ locexp");
error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter,
("Bad function (non closure) passed to register_finish_type_hook_last"));
}
@@ -1730,7 +1730,7 @@ lab_endgetargs:;
;
/*epilog */
- MELT_LOCATION ("warmelt-base.melt:1887:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:1888:/ clear");
/*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0;
}
@@ -1820,7 +1820,7 @@ meltrout_34_warmelt_base_MELT_FINISH_DECL_RUNNER (meltclosure_ptr_t
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-base.melt:1928:/ getarg");
+ MELT_LOCATION ("warmelt-base.melt:1929:/ getarg");
/*_.BOXTREEV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
;
goto lab_endgetargs;
@@ -1830,7 +1830,7 @@ lab_endgetargs:;
/*anyblock*/
{
- MELT_LOCATION ("warmelt-base.melt:1929:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:1930:/ quasiblock");
/*^cond */
@@ -1858,7 +1858,7 @@ lab_endgetargs:;
/*_.FIRSTLIST__V3*/ meltfptr[2] = NULL;;
}
;
- MELT_LOCATION ("warmelt-base.melt:1930:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:1931:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -1905,7 +1905,7 @@ lab_endgetargs:;
melt_pair_head ((melt_ptr_t) /*_.FIRSTPAIR__V7*/ meltfptr[6]);
- MELT_LOCATION ("warmelt-base.melt:1938:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:1939:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*^apply */
@@ -1934,7 +1934,7 @@ lab_endgetargs:;
/*citerepilog */
- MELT_LOCATION ("warmelt-base.melt:1935:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:1936:/ clear");
/*clear *//*_.FIRSTPAIR__V7*/ meltfptr[6] = 0;
/*^clear */
/*clear *//*_.FIRSTPROC__V8*/ meltfptr[7] = 0;
@@ -1958,14 +1958,14 @@ lab_endgetargs:;
melt_pair_head ((melt_ptr_t) /*_.LASTPAIR__V11*/ meltfptr[10]);
- MELT_LOCATION ("warmelt-base.melt:1944:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:1945:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#IS_CLOSURE__L1*/ meltfnum[0] =
(melt_magic_discr
((melt_ptr_t) ( /*_.LASTPROC__V12*/ meltfptr[11])) ==
MELTOBMAG_CLOSURE);;
- MELT_LOCATION ("warmelt-base.melt:1944:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:1945:/ cond");
/*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -1994,7 +1994,7 @@ lab_endgetargs:;
/*citerepilog */
- MELT_LOCATION ("warmelt-base.melt:1941:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:1942:/ clear");
/*clear *//*_.LASTPAIR__V11*/ meltfptr[10] = 0;
/*^clear */
/*clear *//*_.LASTPROC__V12*/ meltfptr[11] = 0;
@@ -2016,7 +2016,7 @@ lab_endgetargs:;
melt_pair_head ((melt_ptr_t) /*_.REVLASTPAIR__V13*/ meltfptr[12]);
- MELT_LOCATION ("warmelt-base.melt:1949:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:1950:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*^apply */
@@ -2045,7 +2045,7 @@ lab_endgetargs:;
/*citerepilog */
- MELT_LOCATION ("warmelt-base.melt:1946:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:1947:/ clear");
/*clear *//*_.REVLASTPAIR__V13*/ meltfptr[12] = 0;
/*^clear */
/*clear *//*_.REVLASTPROC__V14*/ meltfptr[13] = 0;
@@ -2056,7 +2056,7 @@ lab_endgetargs:;
} /*endciterblock FOREACH_IN_LIST */
;
- MELT_LOCATION ("warmelt-base.melt:1929:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:1930:/ clear");
/*clear *//*_.FIRSTLIST__V3*/ meltfptr[2] = 0;
/*^clear */
/*clear *//*_.LASTLIST__V4*/ meltfptr[3] = 0;
@@ -2157,7 +2157,7 @@ meltrout_35_warmelt_base_REGISTER_FINISH_DECL_HOOK_FIRST (meltclosure_ptr_t
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-base.melt:1952:/ getarg");
+ MELT_LOCATION ("warmelt-base.melt:1953:/ getarg");
/*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
;
goto lab_endgetargs;
@@ -2167,13 +2167,13 @@ lab_endgetargs:;
/*anyblock*/
{
- MELT_LOCATION ("warmelt-base.melt:1957:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:1958:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#IS_CLOSURE__L1*/ meltfnum[0] =
(melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) ==
MELTOBMAG_CLOSURE);;
- MELT_LOCATION ("warmelt-base.melt:1957:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:1958:/ cond");
/*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -2181,7 +2181,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-base.melt:1958:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:1959:/ quasiblock");
/*^cond */
@@ -2208,12 +2208,12 @@ lab_endgetargs:;
/*_.FIRSTLIST__V3*/ meltfptr[2] = NULL;;
}
;
- MELT_LOCATION ("warmelt-base.melt:1960:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:1961:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#NULL__L2*/ meltfnum[1] =
(( /*_.FIRSTLIST__V3*/ meltfptr[2]) == NULL);;
- MELT_LOCATION ("warmelt-base.melt:1960:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:1961:/ cond");
/*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -2225,18 +2225,18 @@ lab_endgetargs:;
(meltgc_new_list
((meltobject_ptr_t)
(( /*!DISCR_LIST */ meltfrout->tabval[2]))));;
- MELT_LOCATION ("warmelt-base.melt:1962:/ compute");
+ MELT_LOCATION ("warmelt-base.melt:1963:/ compute");
/*_.FIRSTLIST__V3*/ meltfptr[2] =
/*_.SETQ___V5*/ meltfptr[4] =
/*_.MAKE_LIST__V4*/ meltfptr[3];;
- MELT_LOCATION ("warmelt-base.melt:1963:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:1964:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_.MAKE_LIST__V6*/ meltfptr[5] =
(meltgc_new_list
((meltobject_ptr_t)
(( /*!DISCR_LIST */ meltfrout->tabval[2]))));;
- MELT_LOCATION ("warmelt-base.melt:1963:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:1964:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -2278,7 +2278,7 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-base.melt:1967:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:1968:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*^cond */
@@ -2319,17 +2319,17 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-base.melt:1970:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:1971:/ locexp");
/* melt_notify_finish_decl */
meltgc_notify_finish_decl_hook ();;
}
;
- MELT_LOCATION ("warmelt-base.melt:1961:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:1962:/ quasiblock");
/*epilog */
- MELT_LOCATION ("warmelt-base.melt:1960:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:1961:/ clear");
/*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0;
/*^clear */
/*clear *//*_.SETQ___V5*/ meltfptr[4] = 0;
@@ -2341,14 +2341,14 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-base.melt:1972:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:1973:/ locexp");
meltgc_append_list ((melt_ptr_t)
( /*_.FIRSTLIST__V3*/ meltfptr[2]),
(melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1]));
}
;
- MELT_LOCATION ("warmelt-base.melt:1958:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:1959:/ clear");
/*clear *//*_.FIRSTLIST__V3*/ meltfptr[2] = 0;
/*^clear */
/*clear *//*_#NULL__L2*/ meltfnum[1] = 0;
@@ -2358,7 +2358,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-base.melt:1957:/ cond.else");
+ MELT_LOCATION ("warmelt-base.melt:1958:/ cond.else");
/*^block */
/*anyblock */
@@ -2366,7 +2366,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-base.melt:1975:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:1976:/ locexp");
error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter,
("Bad function (non closure) passed to register_finish_decl_hook_first"));
}
@@ -2378,7 +2378,7 @@ lab_endgetargs:;
;
/*epilog */
- MELT_LOCATION ("warmelt-base.melt:1952:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:1953:/ clear");
/*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0;
}
@@ -2472,7 +2472,7 @@ meltrout_36_warmelt_base_REGISTER_FINISH_DECL_HOOK_LAST (meltclosure_ptr_t
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-base.melt:1979:/ getarg");
+ MELT_LOCATION ("warmelt-base.melt:1980:/ getarg");
/*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
;
goto lab_endgetargs;
@@ -2482,13 +2482,13 @@ lab_endgetargs:;
/*anyblock*/
{
- MELT_LOCATION ("warmelt-base.melt:1984:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:1985:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#IS_CLOSURE__L1*/ meltfnum[0] =
(melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) ==
MELTOBMAG_CLOSURE);;
- MELT_LOCATION ("warmelt-base.melt:1984:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:1985:/ cond");
/*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -2496,7 +2496,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-base.melt:1985:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:1986:/ quasiblock");
/*^cond */
@@ -2523,12 +2523,12 @@ lab_endgetargs:;
/*_.LASTLIST__V3*/ meltfptr[2] = NULL;;
}
;
- MELT_LOCATION ("warmelt-base.melt:1987:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:1988:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#NULL__L2*/ meltfnum[1] =
(( /*_.LASTLIST__V3*/ meltfptr[2]) == NULL);;
- MELT_LOCATION ("warmelt-base.melt:1987:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:1988:/ cond");
/*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -2540,17 +2540,17 @@ lab_endgetargs:;
(meltgc_new_list
((meltobject_ptr_t)
(( /*!DISCR_LIST */ meltfrout->tabval[2]))));;
- MELT_LOCATION ("warmelt-base.melt:1989:/ compute");
+ MELT_LOCATION ("warmelt-base.melt:1990:/ compute");
/*_.LASTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] =
/*_.MAKE_LIST__V4*/ meltfptr[3];;
- MELT_LOCATION ("warmelt-base.melt:1990:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:1991:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_.MAKE_LIST__V6*/ meltfptr[5] =
(meltgc_new_list
((meltobject_ptr_t)
(( /*!DISCR_LIST */ meltfrout->tabval[2]))));;
- MELT_LOCATION ("warmelt-base.melt:1990:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:1991:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -2592,7 +2592,7 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-base.melt:1994:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:1995:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*^cond */
@@ -2633,17 +2633,17 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-base.melt:1997:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:1998:/ locexp");
/* melt_notify_finish_decl */
meltgc_notify_finish_decl_hook ();;
}
;
- MELT_LOCATION ("warmelt-base.melt:1988:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:1989:/ quasiblock");
/*epilog */
- MELT_LOCATION ("warmelt-base.melt:1987:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:1988:/ clear");
/*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0;
/*^clear */
/*clear *//*_.SETQ___V5*/ meltfptr[4] = 0;
@@ -2655,14 +2655,14 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-base.melt:1999:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:2000:/ locexp");
meltgc_append_list ((melt_ptr_t)
( /*_.LASTLIST__V3*/ meltfptr[2]),
(melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1]));
}
;
- MELT_LOCATION ("warmelt-base.melt:1985:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:1986:/ clear");
/*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0;
/*^clear */
/*clear *//*_#NULL__L2*/ meltfnum[1] = 0;
@@ -2672,7 +2672,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-base.melt:1984:/ cond.else");
+ MELT_LOCATION ("warmelt-base.melt:1985:/ cond.else");
/*^block */
/*anyblock */
@@ -2680,7 +2680,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-base.melt:2002:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:2003:/ locexp");
error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter,
("Bad function (non closure) passed to register_finish_decl_hook_last"));
}
@@ -2692,7 +2692,7 @@ lab_endgetargs:;
;
/*epilog */
- MELT_LOCATION ("warmelt-base.melt:1979:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:1980:/ clear");
/*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0;
}
@@ -2787,11 +2787,11 @@ meltrout_37_warmelt_base_MELT_ALL_PASSES_START_RUNNER (meltclosure_ptr_t
goto lab_endgetargs;
lab_endgetargs:;
/*body*/
- MELT_LOCATION ("warmelt-base.melt:2020:/ block");
+ MELT_LOCATION ("warmelt-base.melt:2021:/ block");
/*anyblock*/
{
- MELT_LOCATION ("warmelt-base.melt:2021:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:2022:/ quasiblock");
/*^cond */
@@ -2819,7 +2819,7 @@ lab_endgetargs:;
/*_.FIRSTLIST__V2*/ meltfptr[1] = NULL;;
}
;
- MELT_LOCATION ("warmelt-base.melt:2022:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2023:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -2866,7 +2866,7 @@ lab_endgetargs:;
melt_pair_head ((melt_ptr_t) /*_.FIRSTPAIR__V6*/ meltfptr[5]);
- MELT_LOCATION ("warmelt-base.melt:2030:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2031:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*^apply */
@@ -2890,7 +2890,7 @@ lab_endgetargs:;
/*citerepilog */
- MELT_LOCATION ("warmelt-base.melt:2027:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2028:/ clear");
/*clear *//*_.FIRSTPAIR__V6*/ meltfptr[5] = 0;
/*^clear */
/*clear *//*_.FIRSTPROC__V7*/ meltfptr[6] = 0;
@@ -2914,14 +2914,14 @@ lab_endgetargs:;
melt_pair_head ((melt_ptr_t) /*_.LASTPAIR__V10*/ meltfptr[9]);
- MELT_LOCATION ("warmelt-base.melt:2036:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2037:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#IS_CLOSURE__L1*/ meltfnum[0] =
(melt_magic_discr
((melt_ptr_t) ( /*_.LASTPROC__V11*/ meltfptr[10])) ==
MELTOBMAG_CLOSURE);;
- MELT_LOCATION ("warmelt-base.melt:2036:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2037:/ cond");
/*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -2950,7 +2950,7 @@ lab_endgetargs:;
/*citerepilog */
- MELT_LOCATION ("warmelt-base.melt:2033:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2034:/ clear");
/*clear *//*_.LASTPAIR__V10*/ meltfptr[9] = 0;
/*^clear */
/*clear *//*_.LASTPROC__V11*/ meltfptr[10] = 0;
@@ -2972,7 +2972,7 @@ lab_endgetargs:;
melt_pair_head ((melt_ptr_t) /*_.REVLASTPAIR__V12*/ meltfptr[11]);
- MELT_LOCATION ("warmelt-base.melt:2041:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2042:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*^apply */
@@ -2996,7 +2996,7 @@ lab_endgetargs:;
/*citerepilog */
- MELT_LOCATION ("warmelt-base.melt:2038:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2039:/ clear");
/*clear *//*_.REVLASTPAIR__V12*/ meltfptr[11] = 0;
/*^clear */
/*clear *//*_.REVLASTPROC__V13*/ meltfptr[12] = 0;
@@ -3007,7 +3007,7 @@ lab_endgetargs:;
} /*endciterblock FOREACH_IN_LIST */
;
- MELT_LOCATION ("warmelt-base.melt:2021:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2022:/ clear");
/*clear *//*_.FIRSTLIST__V2*/ meltfptr[1] = 0;
/*^clear */
/*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0;
@@ -3100,7 +3100,7 @@ meltrout_38_warmelt_base_REGISTER_ALL_PASSES_START_HOOK_FIRST
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-base.melt:2044:/ getarg");
+ MELT_LOCATION ("warmelt-base.melt:2045:/ getarg");
/*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
;
goto lab_endgetargs;
@@ -3110,13 +3110,13 @@ lab_endgetargs:;
/*anyblock*/
{
- MELT_LOCATION ("warmelt-base.melt:2048:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2049:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#IS_CLOSURE__L1*/ meltfnum[0] =
(melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) ==
MELTOBMAG_CLOSURE);;
- MELT_LOCATION ("warmelt-base.melt:2048:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2049:/ cond");
/*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -3124,7 +3124,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-base.melt:2049:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:2050:/ quasiblock");
/*^cond */
@@ -3151,12 +3151,12 @@ lab_endgetargs:;
/*_.FIRSTLIST__V3*/ meltfptr[2] = NULL;;
}
;
- MELT_LOCATION ("warmelt-base.melt:2051:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2052:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#NULL__L2*/ meltfnum[1] =
(( /*_.FIRSTLIST__V3*/ meltfptr[2]) == NULL);;
- MELT_LOCATION ("warmelt-base.melt:2051:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2052:/ cond");
/*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -3168,18 +3168,18 @@ lab_endgetargs:;
(meltgc_new_list
((meltobject_ptr_t)
(( /*!DISCR_LIST */ meltfrout->tabval[2]))));;
- MELT_LOCATION ("warmelt-base.melt:2053:/ compute");
+ MELT_LOCATION ("warmelt-base.melt:2054:/ compute");
/*_.FIRSTLIST__V3*/ meltfptr[2] =
/*_.SETQ___V5*/ meltfptr[4] =
/*_.MAKE_LIST__V4*/ meltfptr[3];;
- MELT_LOCATION ("warmelt-base.melt:2054:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2055:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_.MAKE_LIST__V6*/ meltfptr[5] =
(meltgc_new_list
((meltobject_ptr_t)
(( /*!DISCR_LIST */ meltfrout->tabval[2]))));;
- MELT_LOCATION ("warmelt-base.melt:2054:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2055:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -3221,7 +3221,7 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-base.melt:2058:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2059:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*^cond */
@@ -3258,12 +3258,12 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-base.melt:2052:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:2053:/ quasiblock");
/*epilog */
- MELT_LOCATION ("warmelt-base.melt:2051:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2052:/ clear");
/*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0;
/*^clear */
/*clear *//*_.SETQ___V5*/ meltfptr[4] = 0;
@@ -3275,14 +3275,14 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-base.melt:2062:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:2063:/ locexp");
meltgc_append_list ((melt_ptr_t)
( /*_.FIRSTLIST__V3*/ meltfptr[2]),
(melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1]));
}
;
- MELT_LOCATION ("warmelt-base.melt:2049:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2050:/ clear");
/*clear *//*_.FIRSTLIST__V3*/ meltfptr[2] = 0;
/*^clear */
/*clear *//*_#NULL__L2*/ meltfnum[1] = 0;
@@ -3292,7 +3292,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-base.melt:2048:/ cond.else");
+ MELT_LOCATION ("warmelt-base.melt:2049:/ cond.else");
/*^block */
/*anyblock */
@@ -3300,7 +3300,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-base.melt:2065:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:2066:/ locexp");
error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter,
("Bad function (non closure) passed to register_all_passes_start_hook_first"));
}
@@ -3312,7 +3312,7 @@ lab_endgetargs:;
;
/*epilog */
- MELT_LOCATION ("warmelt-base.melt:2044:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2045:/ clear");
/*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0;
}
@@ -3398,7 +3398,7 @@ meltrout_39_warmelt_base_REGISTER_ALL_PASSES_START_HOOK_LAST
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-base.melt:2069:/ getarg");
+ MELT_LOCATION ("warmelt-base.melt:2070:/ getarg");
/*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
;
goto lab_endgetargs;
@@ -3408,13 +3408,13 @@ lab_endgetargs:;
/*anyblock*/
{
- MELT_LOCATION ("warmelt-base.melt:2073:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2074:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#IS_CLOSURE__L1*/ meltfnum[0] =
(melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) ==
MELTOBMAG_CLOSURE);;
- MELT_LOCATION ("warmelt-base.melt:2073:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2074:/ cond");
/*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -3422,7 +3422,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-base.melt:2074:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:2075:/ quasiblock");
/*^cond */
@@ -3449,12 +3449,12 @@ lab_endgetargs:;
/*_.LASTLIST__V3*/ meltfptr[2] = NULL;;
}
;
- MELT_LOCATION ("warmelt-base.melt:2076:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2077:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#NULL__L2*/ meltfnum[1] =
(( /*_.LASTLIST__V3*/ meltfptr[2]) == NULL);;
- MELT_LOCATION ("warmelt-base.melt:2076:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2077:/ cond");
/*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -3466,17 +3466,17 @@ lab_endgetargs:;
(meltgc_new_list
((meltobject_ptr_t)
(( /*!DISCR_LIST */ meltfrout->tabval[2]))));;
- MELT_LOCATION ("warmelt-base.melt:2078:/ compute");
+ MELT_LOCATION ("warmelt-base.melt:2079:/ compute");
/*_.LASTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] =
/*_.MAKE_LIST__V4*/ meltfptr[3];;
- MELT_LOCATION ("warmelt-base.melt:2079:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2080:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_.MAKE_LIST__V6*/ meltfptr[5] =
(meltgc_new_list
((meltobject_ptr_t)
(( /*!DISCR_LIST */ meltfrout->tabval[2]))));;
- MELT_LOCATION ("warmelt-base.melt:2079:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2080:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -3518,7 +3518,7 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-base.melt:2083:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2084:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*^cond */
@@ -3555,12 +3555,12 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-base.melt:2077:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:2078:/ quasiblock");
/*epilog */
- MELT_LOCATION ("warmelt-base.melt:2076:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2077:/ clear");
/*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0;
/*^clear */
/*clear *//*_.SETQ___V5*/ meltfptr[4] = 0;
@@ -3572,14 +3572,14 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-base.melt:2087:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:2088:/ locexp");
meltgc_append_list ((melt_ptr_t)
( /*_.LASTLIST__V3*/ meltfptr[2]),
(melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1]));
}
;
- MELT_LOCATION ("warmelt-base.melt:2074:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2075:/ clear");
/*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0;
/*^clear */
/*clear *//*_#NULL__L2*/ meltfnum[1] = 0;
@@ -3589,7 +3589,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-base.melt:2073:/ cond.else");
+ MELT_LOCATION ("warmelt-base.melt:2074:/ cond.else");
/*^block */
/*anyblock */
@@ -3597,7 +3597,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-base.melt:2090:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:2091:/ locexp");
error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter,
("Bad function (non closure) passed to register_all_passes_start_hook_last"));
}
@@ -3609,7 +3609,7 @@ lab_endgetargs:;
;
/*epilog */
- MELT_LOCATION ("warmelt-base.melt:2069:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2070:/ clear");
/*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0;
}
@@ -3704,11 +3704,11 @@ meltrout_40_warmelt_base_MELT_ALL_PASSES_END_RUNNER (meltclosure_ptr_t
goto lab_endgetargs;
lab_endgetargs:;
/*body*/
- MELT_LOCATION ("warmelt-base.melt:2106:/ block");
+ MELT_LOCATION ("warmelt-base.melt:2107:/ block");
/*anyblock*/
{
- MELT_LOCATION ("warmelt-base.melt:2107:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:2108:/ quasiblock");
/*^cond */
@@ -3736,7 +3736,7 @@ lab_endgetargs:;
/*_.FIRSTLIST__V2*/ meltfptr[1] = NULL;;
}
;
- MELT_LOCATION ("warmelt-base.melt:2108:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2109:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -3783,7 +3783,7 @@ lab_endgetargs:;
melt_pair_head ((melt_ptr_t) /*_.FIRSTPAIR__V6*/ meltfptr[5]);
- MELT_LOCATION ("warmelt-base.melt:2116:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2117:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*^apply */
@@ -3807,7 +3807,7 @@ lab_endgetargs:;
/*citerepilog */
- MELT_LOCATION ("warmelt-base.melt:2113:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2114:/ clear");
/*clear *//*_.FIRSTPAIR__V6*/ meltfptr[5] = 0;
/*^clear */
/*clear *//*_.FIRSTPROC__V7*/ meltfptr[6] = 0;
@@ -3831,14 +3831,14 @@ lab_endgetargs:;
melt_pair_head ((melt_ptr_t) /*_.LASTPAIR__V10*/ meltfptr[9]);
- MELT_LOCATION ("warmelt-base.melt:2122:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2123:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#IS_CLOSURE__L1*/ meltfnum[0] =
(melt_magic_discr
((melt_ptr_t) ( /*_.LASTPROC__V11*/ meltfptr[10])) ==
MELTOBMAG_CLOSURE);;
- MELT_LOCATION ("warmelt-base.melt:2122:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2123:/ cond");
/*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -3867,7 +3867,7 @@ lab_endgetargs:;
/*citerepilog */
- MELT_LOCATION ("warmelt-base.melt:2119:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2120:/ clear");
/*clear *//*_.LASTPAIR__V10*/ meltfptr[9] = 0;
/*^clear */
/*clear *//*_.LASTPROC__V11*/ meltfptr[10] = 0;
@@ -3889,7 +3889,7 @@ lab_endgetargs:;
melt_pair_head ((melt_ptr_t) /*_.REVLASTPAIR__V12*/ meltfptr[11]);
- MELT_LOCATION ("warmelt-base.melt:2127:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2128:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*^apply */
@@ -3913,7 +3913,7 @@ lab_endgetargs:;
/*citerepilog */
- MELT_LOCATION ("warmelt-base.melt:2124:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2125:/ clear");
/*clear *//*_.REVLASTPAIR__V12*/ meltfptr[11] = 0;
/*^clear */
/*clear *//*_.REVLASTPROC__V13*/ meltfptr[12] = 0;
@@ -3924,7 +3924,7 @@ lab_endgetargs:;
} /*endciterblock FOREACH_IN_LIST */
;
- MELT_LOCATION ("warmelt-base.melt:2107:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2108:/ clear");
/*clear *//*_.FIRSTLIST__V2*/ meltfptr[1] = 0;
/*^clear */
/*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0;
@@ -4027,7 +4027,7 @@ meltrout_41_warmelt_base_REGISTER_ALL_PASSES_END_HOOK_FIRST (meltclosure_ptr_t
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-base.melt:2130:/ getarg");
+ MELT_LOCATION ("warmelt-base.melt:2131:/ getarg");
/*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
;
goto lab_endgetargs;
@@ -4037,13 +4037,13 @@ lab_endgetargs:;
/*anyblock*/
{
- MELT_LOCATION ("warmelt-base.melt:2134:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2135:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#IS_CLOSURE__L1*/ meltfnum[0] =
(melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) ==
MELTOBMAG_CLOSURE);;
- MELT_LOCATION ("warmelt-base.melt:2134:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2135:/ cond");
/*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -4051,7 +4051,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-base.melt:2135:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:2136:/ quasiblock");
/*^cond */
@@ -4078,12 +4078,12 @@ lab_endgetargs:;
/*_.FIRSTLIST__V3*/ meltfptr[2] = NULL;;
}
;
- MELT_LOCATION ("warmelt-base.melt:2137:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2138:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#NULL__L2*/ meltfnum[1] =
(( /*_.FIRSTLIST__V3*/ meltfptr[2]) == NULL);;
- MELT_LOCATION ("warmelt-base.melt:2137:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2138:/ cond");
/*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -4095,18 +4095,18 @@ lab_endgetargs:;
(meltgc_new_list
((meltobject_ptr_t)
(( /*!DISCR_LIST */ meltfrout->tabval[2]))));;
- MELT_LOCATION ("warmelt-base.melt:2139:/ compute");
+ MELT_LOCATION ("warmelt-base.melt:2140:/ compute");
/*_.FIRSTLIST__V3*/ meltfptr[2] =
/*_.SETQ___V5*/ meltfptr[4] =
/*_.MAKE_LIST__V4*/ meltfptr[3];;
- MELT_LOCATION ("warmelt-base.melt:2140:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2141:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_.MAKE_LIST__V6*/ meltfptr[5] =
(meltgc_new_list
((meltobject_ptr_t)
(( /*!DISCR_LIST */ meltfrout->tabval[2]))));;
- MELT_LOCATION ("warmelt-base.melt:2140:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2141:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -4148,7 +4148,7 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-base.melt:2144:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2145:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*^cond */
@@ -4185,12 +4185,12 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-base.melt:2138:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:2139:/ quasiblock");
/*epilog */
- MELT_LOCATION ("warmelt-base.melt:2137:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2138:/ clear");
/*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0;
/*^clear */
/*clear *//*_.SETQ___V5*/ meltfptr[4] = 0;
@@ -4202,14 +4202,14 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-base.melt:2148:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:2149:/ locexp");
meltgc_append_list ((melt_ptr_t)
( /*_.FIRSTLIST__V3*/ meltfptr[2]),
(melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1]));
}
;
- MELT_LOCATION ("warmelt-base.melt:2135:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2136:/ clear");
/*clear *//*_.FIRSTLIST__V3*/ meltfptr[2] = 0;
/*^clear */
/*clear *//*_#NULL__L2*/ meltfnum[1] = 0;
@@ -4219,7 +4219,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-base.melt:2134:/ cond.else");
+ MELT_LOCATION ("warmelt-base.melt:2135:/ cond.else");
/*^block */
/*anyblock */
@@ -4227,7 +4227,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-base.melt:2151:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:2152:/ locexp");
error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter,
("Bad function (non closure) passed to register_all_passes_end_hook_first"));
}
@@ -4239,7 +4239,7 @@ lab_endgetargs:;
;
/*epilog */
- MELT_LOCATION ("warmelt-base.melt:2130:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2131:/ clear");
/*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0;
}
@@ -4333,7 +4333,7 @@ meltrout_42_warmelt_base_REGISTER_ALL_PASSES_END_HOOK_LAST (meltclosure_ptr_t
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-base.melt:2155:/ getarg");
+ MELT_LOCATION ("warmelt-base.melt:2156:/ getarg");
/*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
;
goto lab_endgetargs;
@@ -4343,13 +4343,13 @@ lab_endgetargs:;
/*anyblock*/
{
- MELT_LOCATION ("warmelt-base.melt:2159:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2160:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#IS_CLOSURE__L1*/ meltfnum[0] =
(melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) ==
MELTOBMAG_CLOSURE);;
- MELT_LOCATION ("warmelt-base.melt:2159:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2160:/ cond");
/*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -4357,7 +4357,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-base.melt:2160:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:2161:/ quasiblock");
/*^cond */
@@ -4384,12 +4384,12 @@ lab_endgetargs:;
/*_.LASTLIST__V3*/ meltfptr[2] = NULL;;
}
;
- MELT_LOCATION ("warmelt-base.melt:2162:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2163:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#NULL__L2*/ meltfnum[1] =
(( /*_.LASTLIST__V3*/ meltfptr[2]) == NULL);;
- MELT_LOCATION ("warmelt-base.melt:2162:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2163:/ cond");
/*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -4401,17 +4401,17 @@ lab_endgetargs:;
(meltgc_new_list
((meltobject_ptr_t)
(( /*!DISCR_LIST */ meltfrout->tabval[2]))));;
- MELT_LOCATION ("warmelt-base.melt:2164:/ compute");
+ MELT_LOCATION ("warmelt-base.melt:2165:/ compute");
/*_.LASTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] =
/*_.MAKE_LIST__V4*/ meltfptr[3];;
- MELT_LOCATION ("warmelt-base.melt:2165:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2166:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_.MAKE_LIST__V6*/ meltfptr[5] =
(meltgc_new_list
((meltobject_ptr_t)
(( /*!DISCR_LIST */ meltfrout->tabval[2]))));;
- MELT_LOCATION ("warmelt-base.melt:2165:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2166:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -4453,7 +4453,7 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-base.melt:2169:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2170:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*^cond */
@@ -4490,12 +4490,12 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-base.melt:2163:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:2164:/ quasiblock");
/*epilog */
- MELT_LOCATION ("warmelt-base.melt:2162:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2163:/ clear");
/*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0;
/*^clear */
/*clear *//*_.SETQ___V5*/ meltfptr[4] = 0;
@@ -4507,14 +4507,14 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-base.melt:2173:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:2174:/ locexp");
meltgc_append_list ((melt_ptr_t)
( /*_.LASTLIST__V3*/ meltfptr[2]),
(melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1]));
}
;
- MELT_LOCATION ("warmelt-base.melt:2160:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2161:/ clear");
/*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0;
/*^clear */
/*clear *//*_#NULL__L2*/ meltfnum[1] = 0;
@@ -4524,7 +4524,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-base.melt:2159:/ cond.else");
+ MELT_LOCATION ("warmelt-base.melt:2160:/ cond.else");
/*^block */
/*anyblock */
@@ -4532,7 +4532,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-base.melt:2176:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:2177:/ locexp");
error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter,
("Bad function (non closure) passed to register_all_passes_end_hook_last"));
}
@@ -4544,7 +4544,7 @@ lab_endgetargs:;
;
/*epilog */
- MELT_LOCATION ("warmelt-base.melt:2155:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2156:/ clear");
/*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0;
}
@@ -4640,11 +4640,11 @@ meltrout_43_warmelt_base_MELT_ALL_IPA_PASSES_START_RUNNER (meltclosure_ptr_t
goto lab_endgetargs;
lab_endgetargs:;
/*body*/
- MELT_LOCATION ("warmelt-base.melt:2192:/ block");
+ MELT_LOCATION ("warmelt-base.melt:2193:/ block");
/*anyblock*/
{
- MELT_LOCATION ("warmelt-base.melt:2193:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:2194:/ quasiblock");
/*^cond */
@@ -4672,7 +4672,7 @@ lab_endgetargs:;
/*_.FIRSTLIST__V2*/ meltfptr[1] = NULL;;
}
;
- MELT_LOCATION ("warmelt-base.melt:2194:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2195:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -4719,7 +4719,7 @@ lab_endgetargs:;
melt_pair_head ((melt_ptr_t) /*_.FIRSTPAIR__V6*/ meltfptr[5]);
- MELT_LOCATION ("warmelt-base.melt:2202:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2203:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*^apply */
@@ -4743,7 +4743,7 @@ lab_endgetargs:;
/*citerepilog */
- MELT_LOCATION ("warmelt-base.melt:2199:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2200:/ clear");
/*clear *//*_.FIRSTPAIR__V6*/ meltfptr[5] = 0;
/*^clear */
/*clear *//*_.FIRSTPROC__V7*/ meltfptr[6] = 0;
@@ -4767,14 +4767,14 @@ lab_endgetargs:;
melt_pair_head ((melt_ptr_t) /*_.LASTPAIR__V10*/ meltfptr[9]);
- MELT_LOCATION ("warmelt-base.melt:2208:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2209:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#IS_CLOSURE__L1*/ meltfnum[0] =
(melt_magic_discr
((melt_ptr_t) ( /*_.LASTPROC__V11*/ meltfptr[10])) ==
MELTOBMAG_CLOSURE);;
- MELT_LOCATION ("warmelt-base.melt:2208:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2209:/ cond");
/*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -4803,7 +4803,7 @@ lab_endgetargs:;
/*citerepilog */
- MELT_LOCATION ("warmelt-base.melt:2205:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2206:/ clear");
/*clear *//*_.LASTPAIR__V10*/ meltfptr[9] = 0;
/*^clear */
/*clear *//*_.LASTPROC__V11*/ meltfptr[10] = 0;
@@ -4825,7 +4825,7 @@ lab_endgetargs:;
melt_pair_head ((melt_ptr_t) /*_.REVLASTPAIR__V12*/ meltfptr[11]);
- MELT_LOCATION ("warmelt-base.melt:2213:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2214:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*^apply */
@@ -4849,7 +4849,7 @@ lab_endgetargs:;
/*citerepilog */
- MELT_LOCATION ("warmelt-base.melt:2210:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2211:/ clear");
/*clear *//*_.REVLASTPAIR__V12*/ meltfptr[11] = 0;
/*^clear */
/*clear *//*_.REVLASTPROC__V13*/ meltfptr[12] = 0;
@@ -4860,7 +4860,7 @@ lab_endgetargs:;
} /*endciterblock FOREACH_IN_LIST */
;
- MELT_LOCATION ("warmelt-base.melt:2193:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2194:/ clear");
/*clear *//*_.FIRSTLIST__V2*/ meltfptr[1] = 0;
/*^clear */
/*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0;
@@ -4954,7 +4954,7 @@ meltrout_44_warmelt_base_REGISTER_ALL_IPA_PASSES_START_HOOK_FIRST
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-base.melt:2216:/ getarg");
+ MELT_LOCATION ("warmelt-base.melt:2217:/ getarg");
/*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
;
goto lab_endgetargs;
@@ -4964,13 +4964,13 @@ lab_endgetargs:;
/*anyblock*/
{
- MELT_LOCATION ("warmelt-base.melt:2220:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2221:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#IS_CLOSURE__L1*/ meltfnum[0] =
(melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) ==
MELTOBMAG_CLOSURE);;
- MELT_LOCATION ("warmelt-base.melt:2220:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2221:/ cond");
/*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -4978,7 +4978,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-base.melt:2221:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:2222:/ quasiblock");
/*^cond */
@@ -5005,12 +5005,12 @@ lab_endgetargs:;
/*_.FIRSTLIST__V3*/ meltfptr[2] = NULL;;
}
;
- MELT_LOCATION ("warmelt-base.melt:2223:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2224:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#NULL__L2*/ meltfnum[1] =
(( /*_.FIRSTLIST__V3*/ meltfptr[2]) == NULL);;
- MELT_LOCATION ("warmelt-base.melt:2223:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2224:/ cond");
/*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -5022,18 +5022,18 @@ lab_endgetargs:;
(meltgc_new_list
((meltobject_ptr_t)
(( /*!DISCR_LIST */ meltfrout->tabval[2]))));;
- MELT_LOCATION ("warmelt-base.melt:2225:/ compute");
+ MELT_LOCATION ("warmelt-base.melt:2226:/ compute");
/*_.FIRSTLIST__V3*/ meltfptr[2] =
/*_.SETQ___V5*/ meltfptr[4] =
/*_.MAKE_LIST__V4*/ meltfptr[3];;
- MELT_LOCATION ("warmelt-base.melt:2226:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2227:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_.MAKE_LIST__V6*/ meltfptr[5] =
(meltgc_new_list
((meltobject_ptr_t)
(( /*!DISCR_LIST */ meltfrout->tabval[2]))));;
- MELT_LOCATION ("warmelt-base.melt:2226:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2227:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -5075,7 +5075,7 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-base.melt:2230:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2231:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*^cond */
@@ -5112,12 +5112,12 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-base.melt:2224:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:2225:/ quasiblock");
/*epilog */
- MELT_LOCATION ("warmelt-base.melt:2223:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2224:/ clear");
/*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0;
/*^clear */
/*clear *//*_.SETQ___V5*/ meltfptr[4] = 0;
@@ -5129,14 +5129,14 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-base.melt:2234:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:2235:/ locexp");
meltgc_append_list ((melt_ptr_t)
( /*_.FIRSTLIST__V3*/ meltfptr[2]),
(melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1]));
}
;
- MELT_LOCATION ("warmelt-base.melt:2221:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2222:/ clear");
/*clear *//*_.FIRSTLIST__V3*/ meltfptr[2] = 0;
/*^clear */
/*clear *//*_#NULL__L2*/ meltfnum[1] = 0;
@@ -5146,7 +5146,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-base.melt:2220:/ cond.else");
+ MELT_LOCATION ("warmelt-base.melt:2221:/ cond.else");
/*^block */
/*anyblock */
@@ -5154,7 +5154,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-base.melt:2237:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:2238:/ locexp");
error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter,
("Bad function (non closure) passed to register_all_ipa_passes_start_hook_first"));
}
@@ -5166,7 +5166,7 @@ lab_endgetargs:;
;
/*epilog */
- MELT_LOCATION ("warmelt-base.melt:2216:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2217:/ clear");
/*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0;
}
@@ -5252,7 +5252,7 @@ meltrout_45_warmelt_base_REGISTER_ALL_IPA_PASSES_START_HOOK_LAST
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-base.melt:2241:/ getarg");
+ MELT_LOCATION ("warmelt-base.melt:2242:/ getarg");
/*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
;
goto lab_endgetargs;
@@ -5262,13 +5262,13 @@ lab_endgetargs:;
/*anyblock*/
{
- MELT_LOCATION ("warmelt-base.melt:2245:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2246:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#IS_CLOSURE__L1*/ meltfnum[0] =
(melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) ==
MELTOBMAG_CLOSURE);;
- MELT_LOCATION ("warmelt-base.melt:2245:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2246:/ cond");
/*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -5276,7 +5276,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-base.melt:2246:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:2247:/ quasiblock");
/*^cond */
@@ -5303,12 +5303,12 @@ lab_endgetargs:;
/*_.LASTLIST__V3*/ meltfptr[2] = NULL;;
}
;
- MELT_LOCATION ("warmelt-base.melt:2248:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2249:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#NULL__L2*/ meltfnum[1] =
(( /*_.LASTLIST__V3*/ meltfptr[2]) == NULL);;
- MELT_LOCATION ("warmelt-base.melt:2248:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2249:/ cond");
/*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -5320,17 +5320,17 @@ lab_endgetargs:;
(meltgc_new_list
((meltobject_ptr_t)
(( /*!DISCR_LIST */ meltfrout->tabval[2]))));;
- MELT_LOCATION ("warmelt-base.melt:2250:/ compute");
+ MELT_LOCATION ("warmelt-base.melt:2251:/ compute");
/*_.LASTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] =
/*_.MAKE_LIST__V4*/ meltfptr[3];;
- MELT_LOCATION ("warmelt-base.melt:2251:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2252:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_.MAKE_LIST__V6*/ meltfptr[5] =
(meltgc_new_list
((meltobject_ptr_t)
(( /*!DISCR_LIST */ meltfrout->tabval[2]))));;
- MELT_LOCATION ("warmelt-base.melt:2251:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2252:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -5372,7 +5372,7 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-base.melt:2255:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2256:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*^cond */
@@ -5409,12 +5409,12 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-base.melt:2249:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:2250:/ quasiblock");
/*epilog */
- MELT_LOCATION ("warmelt-base.melt:2248:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2249:/ clear");
/*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0;
/*^clear */
/*clear *//*_.SETQ___V5*/ meltfptr[4] = 0;
@@ -5426,14 +5426,14 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-base.melt:2259:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:2260:/ locexp");
meltgc_append_list ((melt_ptr_t)
( /*_.LASTLIST__V3*/ meltfptr[2]),
(melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1]));
}
;
- MELT_LOCATION ("warmelt-base.melt:2246:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2247:/ clear");
/*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0;
/*^clear */
/*clear *//*_#NULL__L2*/ meltfnum[1] = 0;
@@ -5443,7 +5443,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-base.melt:2245:/ cond.else");
+ MELT_LOCATION ("warmelt-base.melt:2246:/ cond.else");
/*^block */
/*anyblock */
@@ -5451,7 +5451,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-base.melt:2262:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:2263:/ locexp");
error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter,
("Bad function (non closure) passed to register_all_ipa_passes_start_hook_last"));
}
@@ -5463,7 +5463,7 @@ lab_endgetargs:;
;
/*epilog */
- MELT_LOCATION ("warmelt-base.melt:2241:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2242:/ clear");
/*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0;
}
@@ -5559,11 +5559,11 @@ meltrout_46_warmelt_base_MELT_ALL_IPA_PASSES_END_RUNNER (meltclosure_ptr_t
goto lab_endgetargs;
lab_endgetargs:;
/*body*/
- MELT_LOCATION ("warmelt-base.melt:2278:/ block");
+ MELT_LOCATION ("warmelt-base.melt:2279:/ block");
/*anyblock*/
{
- MELT_LOCATION ("warmelt-base.melt:2279:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:2280:/ quasiblock");
/*^cond */
@@ -5591,7 +5591,7 @@ lab_endgetargs:;
/*_.FIRSTLIST__V2*/ meltfptr[1] = NULL;;
}
;
- MELT_LOCATION ("warmelt-base.melt:2280:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2281:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -5638,7 +5638,7 @@ lab_endgetargs:;
melt_pair_head ((melt_ptr_t) /*_.FIRSTPAIR__V6*/ meltfptr[5]);
- MELT_LOCATION ("warmelt-base.melt:2288:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2289:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*^apply */
@@ -5662,7 +5662,7 @@ lab_endgetargs:;
/*citerepilog */
- MELT_LOCATION ("warmelt-base.melt:2285:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2286:/ clear");
/*clear *//*_.FIRSTPAIR__V6*/ meltfptr[5] = 0;
/*^clear */
/*clear *//*_.FIRSTPROC__V7*/ meltfptr[6] = 0;
@@ -5686,14 +5686,14 @@ lab_endgetargs:;
melt_pair_head ((melt_ptr_t) /*_.LASTPAIR__V10*/ meltfptr[9]);
- MELT_LOCATION ("warmelt-base.melt:2294:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2295:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#IS_CLOSURE__L1*/ meltfnum[0] =
(melt_magic_discr
((melt_ptr_t) ( /*_.LASTPROC__V11*/ meltfptr[10])) ==
MELTOBMAG_CLOSURE);;
- MELT_LOCATION ("warmelt-base.melt:2294:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2295:/ cond");
/*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -5722,7 +5722,7 @@ lab_endgetargs:;
/*citerepilog */
- MELT_LOCATION ("warmelt-base.melt:2291:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2292:/ clear");
/*clear *//*_.LASTPAIR__V10*/ meltfptr[9] = 0;
/*^clear */
/*clear *//*_.LASTPROC__V11*/ meltfptr[10] = 0;
@@ -5744,7 +5744,7 @@ lab_endgetargs:;
melt_pair_head ((melt_ptr_t) /*_.REVLASTPAIR__V12*/ meltfptr[11]);
- MELT_LOCATION ("warmelt-base.melt:2299:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2300:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*^apply */
@@ -5768,7 +5768,7 @@ lab_endgetargs:;
/*citerepilog */
- MELT_LOCATION ("warmelt-base.melt:2296:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2297:/ clear");
/*clear *//*_.REVLASTPAIR__V12*/ meltfptr[11] = 0;
/*^clear */
/*clear *//*_.REVLASTPROC__V13*/ meltfptr[12] = 0;
@@ -5779,7 +5779,7 @@ lab_endgetargs:;
} /*endciterblock FOREACH_IN_LIST */
;
- MELT_LOCATION ("warmelt-base.melt:2279:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2280:/ clear");
/*clear *//*_.FIRSTLIST__V2*/ meltfptr[1] = 0;
/*^clear */
/*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0;
@@ -5872,7 +5872,7 @@ meltrout_47_warmelt_base_REGISTER_ALL_IPA_PASSES_END_HOOK_FIRST
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-base.melt:2302:/ getarg");
+ MELT_LOCATION ("warmelt-base.melt:2303:/ getarg");
/*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
;
goto lab_endgetargs;
@@ -5882,13 +5882,13 @@ lab_endgetargs:;
/*anyblock*/
{
- MELT_LOCATION ("warmelt-base.melt:2306:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2307:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#IS_CLOSURE__L1*/ meltfnum[0] =
(melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) ==
MELTOBMAG_CLOSURE);;
- MELT_LOCATION ("warmelt-base.melt:2306:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2307:/ cond");
/*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -5896,7 +5896,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-base.melt:2307:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:2308:/ quasiblock");
/*^cond */
@@ -5923,12 +5923,12 @@ lab_endgetargs:;
/*_.FIRSTLIST__V3*/ meltfptr[2] = NULL;;
}
;
- MELT_LOCATION ("warmelt-base.melt:2309:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2310:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#NULL__L2*/ meltfnum[1] =
(( /*_.FIRSTLIST__V3*/ meltfptr[2]) == NULL);;
- MELT_LOCATION ("warmelt-base.melt:2309:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2310:/ cond");
/*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -5940,18 +5940,18 @@ lab_endgetargs:;
(meltgc_new_list
((meltobject_ptr_t)
(( /*!DISCR_LIST */ meltfrout->tabval[2]))));;
- MELT_LOCATION ("warmelt-base.melt:2311:/ compute");
+ MELT_LOCATION ("warmelt-base.melt:2312:/ compute");
/*_.FIRSTLIST__V3*/ meltfptr[2] =
/*_.SETQ___V5*/ meltfptr[4] =
/*_.MAKE_LIST__V4*/ meltfptr[3];;
- MELT_LOCATION ("warmelt-base.melt:2312:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2313:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_.MAKE_LIST__V6*/ meltfptr[5] =
(meltgc_new_list
((meltobject_ptr_t)
(( /*!DISCR_LIST */ meltfrout->tabval[2]))));;
- MELT_LOCATION ("warmelt-base.melt:2312:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2313:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -5993,7 +5993,7 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-base.melt:2316:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2317:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*^cond */
@@ -6030,12 +6030,12 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-base.melt:2310:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:2311:/ quasiblock");
/*epilog */
- MELT_LOCATION ("warmelt-base.melt:2309:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2310:/ clear");
/*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0;
/*^clear */
/*clear *//*_.SETQ___V5*/ meltfptr[4] = 0;
@@ -6047,14 +6047,14 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-base.melt:2320:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:2321:/ locexp");
meltgc_append_list ((melt_ptr_t)
( /*_.FIRSTLIST__V3*/ meltfptr[2]),
(melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1]));
}
;
- MELT_LOCATION ("warmelt-base.melt:2307:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2308:/ clear");
/*clear *//*_.FIRSTLIST__V3*/ meltfptr[2] = 0;
/*^clear */
/*clear *//*_#NULL__L2*/ meltfnum[1] = 0;
@@ -6064,7 +6064,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-base.melt:2306:/ cond.else");
+ MELT_LOCATION ("warmelt-base.melt:2307:/ cond.else");
/*^block */
/*anyblock */
@@ -6072,7 +6072,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-base.melt:2323:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:2324:/ locexp");
error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter,
("Bad function (non closure) passed to register_all_ipa_passes_end_hook_first"));
}
@@ -6084,7 +6084,7 @@ lab_endgetargs:;
;
/*epilog */
- MELT_LOCATION ("warmelt-base.melt:2302:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2303:/ clear");
/*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0;
}
@@ -6170,7 +6170,7 @@ meltrout_48_warmelt_base_REGISTER_ALL_IPA_PASSES_END_HOOK_LAST
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-base.melt:2327:/ getarg");
+ MELT_LOCATION ("warmelt-base.melt:2328:/ getarg");
/*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
;
goto lab_endgetargs;
@@ -6180,13 +6180,13 @@ lab_endgetargs:;
/*anyblock*/
{
- MELT_LOCATION ("warmelt-base.melt:2331:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2332:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#IS_CLOSURE__L1*/ meltfnum[0] =
(melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) ==
MELTOBMAG_CLOSURE);;
- MELT_LOCATION ("warmelt-base.melt:2331:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2332:/ cond");
/*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -6194,7 +6194,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-base.melt:2332:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:2333:/ quasiblock");
/*^cond */
@@ -6221,12 +6221,12 @@ lab_endgetargs:;
/*_.LASTLIST__V3*/ meltfptr[2] = NULL;;
}
;
- MELT_LOCATION ("warmelt-base.melt:2334:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2335:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#NULL__L2*/ meltfnum[1] =
(( /*_.LASTLIST__V3*/ meltfptr[2]) == NULL);;
- MELT_LOCATION ("warmelt-base.melt:2334:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2335:/ cond");
/*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -6238,17 +6238,17 @@ lab_endgetargs:;
(meltgc_new_list
((meltobject_ptr_t)
(( /*!DISCR_LIST */ meltfrout->tabval[2]))));;
- MELT_LOCATION ("warmelt-base.melt:2336:/ compute");
+ MELT_LOCATION ("warmelt-base.melt:2337:/ compute");
/*_.LASTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] =
/*_.MAKE_LIST__V4*/ meltfptr[3];;
- MELT_LOCATION ("warmelt-base.melt:2337:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2338:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_.MAKE_LIST__V6*/ meltfptr[5] =
(meltgc_new_list
((meltobject_ptr_t)
(( /*!DISCR_LIST */ meltfrout->tabval[2]))));;
- MELT_LOCATION ("warmelt-base.melt:2337:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2338:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -6290,7 +6290,7 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-base.melt:2341:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2342:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*^cond */
@@ -6327,12 +6327,12 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-base.melt:2335:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:2336:/ quasiblock");
/*epilog */
- MELT_LOCATION ("warmelt-base.melt:2334:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2335:/ clear");
/*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0;
/*^clear */
/*clear *//*_.SETQ___V5*/ meltfptr[4] = 0;
@@ -6344,14 +6344,14 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-base.melt:2345:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:2346:/ locexp");
meltgc_append_list ((melt_ptr_t)
( /*_.LASTLIST__V3*/ meltfptr[2]),
(melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1]));
}
;
- MELT_LOCATION ("warmelt-base.melt:2332:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2333:/ clear");
/*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0;
/*^clear */
/*clear *//*_#NULL__L2*/ meltfnum[1] = 0;
@@ -6361,7 +6361,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-base.melt:2331:/ cond.else");
+ MELT_LOCATION ("warmelt-base.melt:2332:/ cond.else");
/*^block */
/*anyblock */
@@ -6369,7 +6369,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-base.melt:2348:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:2349:/ locexp");
error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter,
("Bad function (non closure) passed to register_all_ipa_passes_end_hook_last"));
}
@@ -6381,7 +6381,7 @@ lab_endgetargs:;
;
/*epilog */
- MELT_LOCATION ("warmelt-base.melt:2327:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2328:/ clear");
/*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0;
}
@@ -6469,11 +6469,11 @@ meltrout_49_warmelt_base_MELT_EARLY_GIMPLE_PASSES_START_RUNNER
goto lab_endgetargs;
lab_endgetargs:;
/*body*/
- MELT_LOCATION ("warmelt-base.melt:2367:/ block");
+ MELT_LOCATION ("warmelt-base.melt:2368:/ block");
/*anyblock*/
{
- MELT_LOCATION ("warmelt-base.melt:2368:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:2369:/ quasiblock");
/*^cond */
@@ -6501,7 +6501,7 @@ lab_endgetargs:;
/*_.FIRSTLIST__V2*/ meltfptr[1] = NULL;;
}
;
- MELT_LOCATION ("warmelt-base.melt:2369:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2370:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -6548,7 +6548,7 @@ lab_endgetargs:;
melt_pair_head ((melt_ptr_t) /*_.FIRSTPAIR__V6*/ meltfptr[5]);
- MELT_LOCATION ("warmelt-base.melt:2377:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2378:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*^apply */
@@ -6572,7 +6572,7 @@ lab_endgetargs:;
/*citerepilog */
- MELT_LOCATION ("warmelt-base.melt:2374:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2375:/ clear");
/*clear *//*_.FIRSTPAIR__V6*/ meltfptr[5] = 0;
/*^clear */
/*clear *//*_.FIRSTPROC__V7*/ meltfptr[6] = 0;
@@ -6596,14 +6596,14 @@ lab_endgetargs:;
melt_pair_head ((melt_ptr_t) /*_.LASTPAIR__V10*/ meltfptr[9]);
- MELT_LOCATION ("warmelt-base.melt:2383:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2384:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#IS_CLOSURE__L1*/ meltfnum[0] =
(melt_magic_discr
((melt_ptr_t) ( /*_.LASTPROC__V11*/ meltfptr[10])) ==
MELTOBMAG_CLOSURE);;
- MELT_LOCATION ("warmelt-base.melt:2383:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2384:/ cond");
/*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -6632,7 +6632,7 @@ lab_endgetargs:;
/*citerepilog */
- MELT_LOCATION ("warmelt-base.melt:2380:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2381:/ clear");
/*clear *//*_.LASTPAIR__V10*/ meltfptr[9] = 0;
/*^clear */
/*clear *//*_.LASTPROC__V11*/ meltfptr[10] = 0;
@@ -6654,7 +6654,7 @@ lab_endgetargs:;
melt_pair_head ((melt_ptr_t) /*_.REVLASTPAIR__V12*/ meltfptr[11]);
- MELT_LOCATION ("warmelt-base.melt:2388:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2389:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*^apply */
@@ -6678,7 +6678,7 @@ lab_endgetargs:;
/*citerepilog */
- MELT_LOCATION ("warmelt-base.melt:2385:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2386:/ clear");
/*clear *//*_.REVLASTPAIR__V12*/ meltfptr[11] = 0;
/*^clear */
/*clear *//*_.REVLASTPROC__V13*/ meltfptr[12] = 0;
@@ -6689,7 +6689,7 @@ lab_endgetargs:;
} /*endciterblock FOREACH_IN_LIST */
;
- MELT_LOCATION ("warmelt-base.melt:2368:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2369:/ clear");
/*clear *//*_.FIRSTLIST__V2*/ meltfptr[1] = 0;
/*^clear */
/*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0;
@@ -6783,7 +6783,7 @@ meltrout_50_warmelt_base_REGISTER_EARLY_GIMPLE_PASSES_START_HOOK_FIRST
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-base.melt:2391:/ getarg");
+ MELT_LOCATION ("warmelt-base.melt:2392:/ getarg");
/*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
;
goto lab_endgetargs;
@@ -6793,13 +6793,13 @@ lab_endgetargs:;
/*anyblock*/
{
- MELT_LOCATION ("warmelt-base.melt:2395:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2396:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#IS_CLOSURE__L1*/ meltfnum[0] =
(melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) ==
MELTOBMAG_CLOSURE);;
- MELT_LOCATION ("warmelt-base.melt:2395:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2396:/ cond");
/*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -6807,7 +6807,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-base.melt:2396:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:2397:/ quasiblock");
/*^cond */
@@ -6834,12 +6834,12 @@ lab_endgetargs:;
/*_.FIRSTLIST__V3*/ meltfptr[2] = NULL;;
}
;
- MELT_LOCATION ("warmelt-base.melt:2398:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2399:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#NULL__L2*/ meltfnum[1] =
(( /*_.FIRSTLIST__V3*/ meltfptr[2]) == NULL);;
- MELT_LOCATION ("warmelt-base.melt:2398:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2399:/ cond");
/*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -6851,18 +6851,18 @@ lab_endgetargs:;
(meltgc_new_list
((meltobject_ptr_t)
(( /*!DISCR_LIST */ meltfrout->tabval[2]))));;
- MELT_LOCATION ("warmelt-base.melt:2400:/ compute");
+ MELT_LOCATION ("warmelt-base.melt:2401:/ compute");
/*_.FIRSTLIST__V3*/ meltfptr[2] =
/*_.SETQ___V5*/ meltfptr[4] =
/*_.MAKE_LIST__V4*/ meltfptr[3];;
- MELT_LOCATION ("warmelt-base.melt:2401:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2402:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_.MAKE_LIST__V6*/ meltfptr[5] =
(meltgc_new_list
((meltobject_ptr_t)
(( /*!DISCR_LIST */ meltfrout->tabval[2]))));;
- MELT_LOCATION ("warmelt-base.melt:2401:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2402:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -6904,7 +6904,7 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-base.melt:2405:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2406:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*^cond */
@@ -6941,12 +6941,12 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-base.melt:2399:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:2400:/ quasiblock");
/*epilog */
- MELT_LOCATION ("warmelt-base.melt:2398:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2399:/ clear");
/*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0;
/*^clear */
/*clear *//*_.SETQ___V5*/ meltfptr[4] = 0;
@@ -6958,14 +6958,14 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-base.melt:2409:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:2410:/ locexp");
meltgc_append_list ((melt_ptr_t)
( /*_.FIRSTLIST__V3*/ meltfptr[2]),
(melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1]));
}
;
- MELT_LOCATION ("warmelt-base.melt:2396:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2397:/ clear");
/*clear *//*_.FIRSTLIST__V3*/ meltfptr[2] = 0;
/*^clear */
/*clear *//*_#NULL__L2*/ meltfnum[1] = 0;
@@ -6975,7 +6975,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-base.melt:2395:/ cond.else");
+ MELT_LOCATION ("warmelt-base.melt:2396:/ cond.else");
/*^block */
/*anyblock */
@@ -6983,7 +6983,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-base.melt:2412:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:2413:/ locexp");
error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter,
("Bad function (non closure) passed to register_early_gimple_passes_start_hook_first"));
}
@@ -6995,7 +6995,7 @@ lab_endgetargs:;
;
/*epilog */
- MELT_LOCATION ("warmelt-base.melt:2391:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2392:/ clear");
/*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0;
}
@@ -7083,7 +7083,7 @@ meltrout_51_warmelt_base_REGISTER_EARLY_GIMPLE_PASSES_START_HOOK_LAST
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-base.melt:2416:/ getarg");
+ MELT_LOCATION ("warmelt-base.melt:2417:/ getarg");
/*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
;
goto lab_endgetargs;
@@ -7093,13 +7093,13 @@ lab_endgetargs:;
/*anyblock*/
{
- MELT_LOCATION ("warmelt-base.melt:2420:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2421:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#IS_CLOSURE__L1*/ meltfnum[0] =
(melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) ==
MELTOBMAG_CLOSURE);;
- MELT_LOCATION ("warmelt-base.melt:2420:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2421:/ cond");
/*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -7107,7 +7107,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-base.melt:2421:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:2422:/ quasiblock");
/*^cond */
@@ -7134,12 +7134,12 @@ lab_endgetargs:;
/*_.LASTLIST__V3*/ meltfptr[2] = NULL;;
}
;
- MELT_LOCATION ("warmelt-base.melt:2423:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2424:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#NULL__L2*/ meltfnum[1] =
(( /*_.LASTLIST__V3*/ meltfptr[2]) == NULL);;
- MELT_LOCATION ("warmelt-base.melt:2423:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2424:/ cond");
/*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -7151,17 +7151,17 @@ lab_endgetargs:;
(meltgc_new_list
((meltobject_ptr_t)
(( /*!DISCR_LIST */ meltfrout->tabval[2]))));;
- MELT_LOCATION ("warmelt-base.melt:2425:/ compute");
+ MELT_LOCATION ("warmelt-base.melt:2426:/ compute");
/*_.LASTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] =
/*_.MAKE_LIST__V4*/ meltfptr[3];;
- MELT_LOCATION ("warmelt-base.melt:2426:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2427:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_.MAKE_LIST__V6*/ meltfptr[5] =
(meltgc_new_list
((meltobject_ptr_t)
(( /*!DISCR_LIST */ meltfrout->tabval[2]))));;
- MELT_LOCATION ("warmelt-base.melt:2426:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2427:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -7203,7 +7203,7 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-base.melt:2430:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2431:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*^cond */
@@ -7240,12 +7240,12 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-base.melt:2424:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:2425:/ quasiblock");
/*epilog */
- MELT_LOCATION ("warmelt-base.melt:2423:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2424:/ clear");
/*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0;
/*^clear */
/*clear *//*_.SETQ___V5*/ meltfptr[4] = 0;
@@ -7257,14 +7257,14 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-base.melt:2434:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:2435:/ locexp");
meltgc_append_list ((melt_ptr_t)
( /*_.LASTLIST__V3*/ meltfptr[2]),
(melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1]));
}
;
- MELT_LOCATION ("warmelt-base.melt:2421:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2422:/ clear");
/*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0;
/*^clear */
/*clear *//*_#NULL__L2*/ meltfnum[1] = 0;
@@ -7274,7 +7274,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-base.melt:2420:/ cond.else");
+ MELT_LOCATION ("warmelt-base.melt:2421:/ cond.else");
/*^block */
/*anyblock */
@@ -7282,7 +7282,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-base.melt:2437:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:2438:/ locexp");
error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter,
("Bad function (non closure) passed to register_early_gimple_passes_start_hook_last"));
}
@@ -7294,7 +7294,7 @@ lab_endgetargs:;
;
/*epilog */
- MELT_LOCATION ("warmelt-base.melt:2416:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2417:/ clear");
/*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0;
}
@@ -7383,11 +7383,11 @@ meltrout_52_warmelt_base_MELT_EARLY_GIMPLE_PASSES_END_RUNNER
goto lab_endgetargs;
lab_endgetargs:;
/*body*/
- MELT_LOCATION ("warmelt-base.melt:2453:/ block");
+ MELT_LOCATION ("warmelt-base.melt:2454:/ block");
/*anyblock*/
{
- MELT_LOCATION ("warmelt-base.melt:2454:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:2455:/ quasiblock");
/*^cond */
@@ -7415,7 +7415,7 @@ lab_endgetargs:;
/*_.FIRSTLIST__V2*/ meltfptr[1] = NULL;;
}
;
- MELT_LOCATION ("warmelt-base.melt:2455:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2456:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -7462,7 +7462,7 @@ lab_endgetargs:;
melt_pair_head ((melt_ptr_t) /*_.FIRSTPAIR__V6*/ meltfptr[5]);
- MELT_LOCATION ("warmelt-base.melt:2463:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2464:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*^apply */
@@ -7486,7 +7486,7 @@ lab_endgetargs:;
/*citerepilog */
- MELT_LOCATION ("warmelt-base.melt:2460:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2461:/ clear");
/*clear *//*_.FIRSTPAIR__V6*/ meltfptr[5] = 0;
/*^clear */
/*clear *//*_.FIRSTPROC__V7*/ meltfptr[6] = 0;
@@ -7510,14 +7510,14 @@ lab_endgetargs:;
melt_pair_head ((melt_ptr_t) /*_.LASTPAIR__V10*/ meltfptr[9]);
- MELT_LOCATION ("warmelt-base.melt:2469:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2470:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#IS_CLOSURE__L1*/ meltfnum[0] =
(melt_magic_discr
((melt_ptr_t) ( /*_.LASTPROC__V11*/ meltfptr[10])) ==
MELTOBMAG_CLOSURE);;
- MELT_LOCATION ("warmelt-base.melt:2469:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2470:/ cond");
/*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -7546,7 +7546,7 @@ lab_endgetargs:;
/*citerepilog */
- MELT_LOCATION ("warmelt-base.melt:2466:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2467:/ clear");
/*clear *//*_.LASTPAIR__V10*/ meltfptr[9] = 0;
/*^clear */
/*clear *//*_.LASTPROC__V11*/ meltfptr[10] = 0;
@@ -7568,7 +7568,7 @@ lab_endgetargs:;
melt_pair_head ((melt_ptr_t) /*_.REVLASTPAIR__V12*/ meltfptr[11]);
- MELT_LOCATION ("warmelt-base.melt:2474:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2475:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*^apply */
@@ -7592,7 +7592,7 @@ lab_endgetargs:;
/*citerepilog */
- MELT_LOCATION ("warmelt-base.melt:2471:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2472:/ clear");
/*clear *//*_.REVLASTPAIR__V12*/ meltfptr[11] = 0;
/*^clear */
/*clear *//*_.REVLASTPROC__V13*/ meltfptr[12] = 0;
@@ -7603,7 +7603,7 @@ lab_endgetargs:;
} /*endciterblock FOREACH_IN_LIST */
;
- MELT_LOCATION ("warmelt-base.melt:2454:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2455:/ clear");
/*clear *//*_.FIRSTLIST__V2*/ meltfptr[1] = 0;
/*^clear */
/*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0;
@@ -7697,7 +7697,7 @@ meltrout_53_warmelt_base_REGISTER_EARLY_GIMPLE_PASSES_END_HOOK_FIRST
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-base.melt:2477:/ getarg");
+ MELT_LOCATION ("warmelt-base.melt:2478:/ getarg");
/*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
;
goto lab_endgetargs;
@@ -7707,13 +7707,13 @@ lab_endgetargs:;
/*anyblock*/
{
- MELT_LOCATION ("warmelt-base.melt:2481:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2482:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#IS_CLOSURE__L1*/ meltfnum[0] =
(melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) ==
MELTOBMAG_CLOSURE);;
- MELT_LOCATION ("warmelt-base.melt:2481:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2482:/ cond");
/*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -7721,7 +7721,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-base.melt:2482:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:2483:/ quasiblock");
/*^cond */
@@ -7748,12 +7748,12 @@ lab_endgetargs:;
/*_.FIRSTLIST__V3*/ meltfptr[2] = NULL;;
}
;
- MELT_LOCATION ("warmelt-base.melt:2484:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2485:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#NULL__L2*/ meltfnum[1] =
(( /*_.FIRSTLIST__V3*/ meltfptr[2]) == NULL);;
- MELT_LOCATION ("warmelt-base.melt:2484:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2485:/ cond");
/*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -7765,18 +7765,18 @@ lab_endgetargs:;
(meltgc_new_list
((meltobject_ptr_t)
(( /*!DISCR_LIST */ meltfrout->tabval[2]))));;
- MELT_LOCATION ("warmelt-base.melt:2486:/ compute");
+ MELT_LOCATION ("warmelt-base.melt:2487:/ compute");
/*_.FIRSTLIST__V3*/ meltfptr[2] =
/*_.SETQ___V5*/ meltfptr[4] =
/*_.MAKE_LIST__V4*/ meltfptr[3];;
- MELT_LOCATION ("warmelt-base.melt:2487:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2488:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_.MAKE_LIST__V6*/ meltfptr[5] =
(meltgc_new_list
((meltobject_ptr_t)
(( /*!DISCR_LIST */ meltfrout->tabval[2]))));;
- MELT_LOCATION ("warmelt-base.melt:2487:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2488:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -7818,7 +7818,7 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-base.melt:2491:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2492:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*^cond */
@@ -7855,12 +7855,12 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-base.melt:2485:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:2486:/ quasiblock");
/*epilog */
- MELT_LOCATION ("warmelt-base.melt:2484:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2485:/ clear");
/*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0;
/*^clear */
/*clear *//*_.SETQ___V5*/ meltfptr[4] = 0;
@@ -7872,14 +7872,14 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-base.melt:2495:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:2496:/ locexp");
meltgc_append_list ((melt_ptr_t)
( /*_.FIRSTLIST__V3*/ meltfptr[2]),
(melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1]));
}
;
- MELT_LOCATION ("warmelt-base.melt:2482:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2483:/ clear");
/*clear *//*_.FIRSTLIST__V3*/ meltfptr[2] = 0;
/*^clear */
/*clear *//*_#NULL__L2*/ meltfnum[1] = 0;
@@ -7889,7 +7889,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-base.melt:2481:/ cond.else");
+ MELT_LOCATION ("warmelt-base.melt:2482:/ cond.else");
/*^block */
/*anyblock */
@@ -7897,7 +7897,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-base.melt:2498:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:2499:/ locexp");
error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter,
("Bad function (non closure) passed to register_early_gimple_passes_end_hook_first"));
}
@@ -7909,7 +7909,7 @@ lab_endgetargs:;
;
/*epilog */
- MELT_LOCATION ("warmelt-base.melt:2477:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2478:/ clear");
/*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0;
}
@@ -7997,7 +7997,7 @@ meltrout_54_warmelt_base_REGISTER_EARLY_GIMPLE_PASSES_END_HOOK_LAST
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-base.melt:2502:/ getarg");
+ MELT_LOCATION ("warmelt-base.melt:2503:/ getarg");
/*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
;
goto lab_endgetargs;
@@ -8007,13 +8007,13 @@ lab_endgetargs:;
/*anyblock*/
{
- MELT_LOCATION ("warmelt-base.melt:2506:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2507:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#IS_CLOSURE__L1*/ meltfnum[0] =
(melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) ==
MELTOBMAG_CLOSURE);;
- MELT_LOCATION ("warmelt-base.melt:2506:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2507:/ cond");
/*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -8021,7 +8021,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-base.melt:2507:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:2508:/ quasiblock");
/*^cond */
@@ -8048,12 +8048,12 @@ lab_endgetargs:;
/*_.LASTLIST__V3*/ meltfptr[2] = NULL;;
}
;
- MELT_LOCATION ("warmelt-base.melt:2509:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2510:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_#NULL__L2*/ meltfnum[1] =
(( /*_.LASTLIST__V3*/ meltfptr[2]) == NULL);;
- MELT_LOCATION ("warmelt-base.melt:2509:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2510:/ cond");
/*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -8065,17 +8065,17 @@ lab_endgetargs:;
(meltgc_new_list
((meltobject_ptr_t)
(( /*!DISCR_LIST */ meltfrout->tabval[2]))));;
- MELT_LOCATION ("warmelt-base.melt:2511:/ compute");
+ MELT_LOCATION ("warmelt-base.melt:2512:/ compute");
/*_.LASTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] =
/*_.MAKE_LIST__V4*/ meltfptr[3];;
- MELT_LOCATION ("warmelt-base.melt:2512:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2513:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*_.MAKE_LIST__V6*/ meltfptr[5] =
(meltgc_new_list
((meltobject_ptr_t)
(( /*!DISCR_LIST */ meltfrout->tabval[2]))));;
- MELT_LOCATION ("warmelt-base.melt:2512:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2513:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -8117,7 +8117,7 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-base.melt:2516:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2517:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*^cond */
@@ -8154,12 +8154,12 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-base.melt:2510:/ quasiblock");
+ MELT_LOCATION ("warmelt-base.melt:2511:/ quasiblock");
/*epilog */
- MELT_LOCATION ("warmelt-base.melt:2509:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2510:/ clear");
/*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0;
/*^clear */
/*clear *//*_.SETQ___V5*/ meltfptr[4] = 0;
@@ -8171,14 +8171,14 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-base.melt:2520:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:2521:/ locexp");
meltgc_append_list ((melt_ptr_t)
( /*_.LASTLIST__V3*/ meltfptr[2]),
(melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1]));
}
;
- MELT_LOCATION ("warmelt-base.melt:2507:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2508:/ clear");
/*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0;
/*^clear */
/*clear *//*_#NULL__L2*/ meltfnum[1] = 0;
@@ -8188,7 +8188,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-base.melt:2506:/ cond.else");
+ MELT_LOCATION ("warmelt-base.melt:2507:/ cond.else");
/*^block */
/*anyblock */
@@ -8196,7 +8196,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-base.melt:2523:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:2524:/ locexp");
error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter,
("Bad function (non closure) passed to register_early_gimple_passes_end_hook_last"));
}
@@ -8208,7 +8208,7 @@ lab_endgetargs:;
;
/*epilog */
- MELT_LOCATION ("warmelt-base.melt:2502:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2503:/ clear");
/*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0;
}
@@ -8295,7 +8295,7 @@ meltrout_55_warmelt_base_SET_REFERENCE (meltclosure_ptr_t meltclosp_,
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-base.melt:2571:/ getarg");
+ MELT_LOCATION ("warmelt-base.melt:2572:/ getarg");
/*_.R__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1 */
@@ -8314,7 +8314,7 @@ lab_endgetargs:;
/*anyblock*/
{
- MELT_LOCATION ("warmelt-base.melt:2574:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2575:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*^cond */
@@ -8438,7 +8438,7 @@ meltrout_56_warmelt_base_INSTALL_VALUE_DESCRIPTOR (meltclosure_ptr_t
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-base.melt:2583:/ getarg");
+ MELT_LOCATION ("warmelt-base.melt:2584:/ getarg");
/*_.VD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
;
goto lab_endgetargs;
@@ -8450,7 +8450,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-base.melt:2584:/ cppif.then");
+ MELT_LOCATION ("warmelt-base.melt:2585:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -8462,7 +8462,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:2584:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2585:/ cond");
/*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -8470,7 +8470,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-base.melt:2584:/ cond.else");
+ MELT_LOCATION ("warmelt-base.melt:2585:/ cond.else");
/*^block */
/*anyblock */
@@ -8484,7 +8484,7 @@ lab_endgetargs:;
melt_assert_failed (("check vd"),
("warmelt-base.melt")
? ("warmelt-base.melt") : __FILE__,
- (2584) ? (2584) : __LINE__, __FUNCTION__);
+ (2585) ? (2585) : __LINE__, __FUNCTION__);
;
}
;
@@ -8499,7 +8499,7 @@ lab_endgetargs:;
/*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];;
/*epilog */
- MELT_LOCATION ("warmelt-base.melt:2584:/ clear");
+ MELT_LOCATION ("warmelt-base.melt:2585:/ clear");
/*clear *//*_#IS_A__L1*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V4*/ meltfptr[3] = 0;
@@ -8510,7 +8510,7 @@ lab_endgetargs:;
/*_.IFCPP___V3*/ meltfptr[2] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-base.melt:2585:/ cond");
+ MELT_LOCATION ("warmelt-base.melt:2586:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -8537,13 +8537,13 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-base.melt:2585:/ locexp");
+ MELT_LOCATION ("warmelt-base.melt:2586:/ locexp");
meltgc_append_list ((melt_ptr_t)
( /*_.REFERENCED_VALUE__V5*/ meltfptr[3]),
(melt_ptr_t) ( /*_.VD__V2*/ meltfptr[1]));
}
;
- MELT_LOCATION ("warmelt-base.melt:2583:/ checksignal");
+ MELT_LOCATION ("warmelt-base.melt:2584:/ checksignal");
MELT_CHECK_SIGNAL ();
;
/*epilog */
View Lorry Controller Status