• R/O
  • SSH
  • HTTPS

jpl: 提交


Commit MetaInfo

修订版1016 (tree)
时间2020-11-27 04:27:04
作者jakobthomsen

Log Message

introduce data-definitions

更改概述

差异

--- trunk/jpl_compiler_pragmatic/compiler.compiled.c (revision 1015)
+++ trunk/jpl_compiler_pragmatic/compiler.compiled.c (revision 1016)
@@ -1717,13 +1717,602 @@
17171717 base = stack[base - 2];
17181718 break;
17191719 }
1720- case 78LLU: // proccall
1720+ case 78LLU: // parsetype
17211721 {
17221722 //#define res0 0
17231723 //#define res1 1
1724+//#define arg0 2
1725+//#define lookahead 3
1726+ stack[base + 3/*lookahead*/] = stack[base + 2/*arg0*/];
1727+//#define variant 4
1728+//#define content 5
1729+//#define isequal 6
1730+ // call parsetoken from parsetype
1731+ stack[base + 7LLU] = base;
1732+ stack[base + 8LLU] = 79LLU;
1733+ // arguments for call to parsetoken
1734+ stack[base + 12LLU] = stack[base + 3/*lookahead*/];
1735+ // set stack-base & callee-address
1736+ base += 9LLU;
1737+ label = 18446744073709551588LLU; // parsetoken
1738+ break;
1739+ }
1740+ case 79LLU: // return from parsetoken to parsetype
1741+ {
1742+ // copy back results provided by call to parsetoken
1743+ stack[base + 4/*variant*/] = stack[base + 9LLU];
1744+ stack[base + 5/*content*/] = stack[base + 10LLU];
1745+ stack[base + 3/*lookahead*/] = stack[base + 11LLU];
1746+ // call equ from parsetype
1747+ stack[base + 7LLU] = base;
1748+ stack[base + 8LLU] = 80LLU;
1749+ // arguments for call to equ
1750+ stack[base + 10LLU] = stack[base + 4/*variant*/];
1751+ stack[base + 11LLU] = 4LLU;
1752+ // set stack-base & callee-address
1753+ base += 9LLU;
1754+ label = 18446744073709551603LLU; // equ
1755+ break;
1756+ }
1757+ case 80LLU: // return from equ to parsetype
1758+ {
1759+ // copy back results provided by call to equ
1760+ stack[base + 6/*isequal*/] = stack[base + 9LLU];
1761+ if(!stack[base + 6/*isequal*/])
1762+ {
1763+ label = 81LLU; // jump to alternative
1764+ break;
1765+ }
1766+
1767+ // consequent
1768+ label = 82LLU; // consequent complete
1769+ break;
1770+ }
1771+ case 81LLU: // alternative
1772+ {
1773+ fprintf(stderr, "%s", "parsing type: expected identifier but found ");
1774+ // call reporttok from parsetype
1775+ stack[base + 7LLU] = base;
1776+ stack[base + 8LLU] = 83LLU;
1777+ // arguments for call to reporttok
1778+ stack[base + 9LLU] = stack[base + 4/*variant*/];
1779+ stack[base + 10LLU] = stack[base + 5/*content*/];
1780+ // set stack-base & callee-address
1781+ base += 9LLU;
1782+ label = 18446744073709551586LLU; // reporttok
1783+ break;
1784+ }
1785+ case 83LLU: // return from reporttok to parsetype
1786+ {
1787+ fprintf(stderr, "%s", "\n");
1788+ exit(-1);
1789+ label = 82LLU; // alternative complete
1790+ break;
1791+ }
1792+ case 82LLU: // completed if-then-else
1793+ {
1794+ stack[base + 0/*res0*/] = 0;
1795+ stack[base + 1/*res1*/] = stack[base + 3/*lookahead*/];
1796+ // return from parsetype
1797+ label = stack[base - 1];
1798+ base = stack[base - 2];
1799+ break;
1800+ }
1801+ case 84LLU: // procdata
1802+ {
1803+//#define res0 0
1804+//#define res1 1
17241805 //#define res2 2
17251806 //#define res3 3
17261807 //#define res4 4
1808+//#define res5 5
1809+//#define arg0 6
1810+//#define arg1 7
1811+//#define arg2 8
1812+//#define arg3 9
1813+//#define arg4 10
1814+//#define arg5 11
1815+//#define arg6 12
1816+//#define typedefs 13
1817+ stack[base + 13/*typedefs*/] = stack[base + 6/*arg0*/];
1818+//#define lookahead 14
1819+ stack[base + 14/*lookahead*/] = stack[base + 7/*arg1*/];
1820+//#define variant 15
1821+ stack[base + 15/*variant*/] = stack[base + 8/*arg2*/];
1822+//#define content 16
1823+ stack[base + 16/*content*/] = stack[base + 9/*arg3*/];
1824+//#define label 17
1825+ stack[base + 17/*label*/] = stack[base + 10/*arg4*/];
1826+//#define defcount 18
1827+ stack[base + 18/*defcount*/] = stack[base + 11/*arg5*/];
1828+//#define recursive 19
1829+ stack[base + 19/*recursive*/] = stack[base + 12/*arg6*/];
1830+ // call parsetoken from procdata
1831+ stack[base + 20LLU] = base;
1832+ stack[base + 21LLU] = 85LLU;
1833+ // arguments for call to parsetoken
1834+ stack[base + 25LLU] = stack[base + 14/*lookahead*/];
1835+ // set stack-base & callee-address
1836+ base += 22LLU;
1837+ label = 18446744073709551588LLU; // parsetoken
1838+ break;
1839+ }
1840+ case 85LLU: // return from parsetoken to procdata
1841+ {
1842+ // copy back results provided by call to parsetoken
1843+ stack[base + 15/*variant*/] = stack[base + 22LLU];
1844+ stack[base + 16/*content*/] = stack[base + 23LLU];
1845+ stack[base + 14/*lookahead*/] = stack[base + 24LLU];
1846+//#define isname 20
1847+ // call equ from procdata
1848+ stack[base + 21LLU] = base;
1849+ stack[base + 22LLU] = 86LLU;
1850+ // arguments for call to equ
1851+ stack[base + 24LLU] = stack[base + 15/*variant*/];
1852+ stack[base + 25LLU] = 4LLU;
1853+ // set stack-base & callee-address
1854+ base += 23LLU;
1855+ label = 18446744073709551603LLU; // equ
1856+ break;
1857+ }
1858+ case 86LLU: // return from equ to procdata
1859+ {
1860+ // copy back results provided by call to equ
1861+ stack[base + 20/*isname*/] = stack[base + 23LLU];
1862+//#define identifier 21
1863+ if(!stack[base + 20/*isname*/])
1864+ {
1865+ label = 87LLU; // jump to alternative
1866+ break;
1867+ }
1868+
1869+ // consequent
1870+ stack[base + 21/*identifier*/] = stack[base + 16/*content*/];
1871+ label = 88LLU; // consequent complete
1872+ break;
1873+ }
1874+ case 87LLU: // alternative
1875+ {
1876+ fprintf(stderr, "%s", "parsing data expected identifier but found token ");
1877+ // call reporttok from procdata
1878+ stack[base + 22LLU] = base;
1879+ stack[base + 23LLU] = 89LLU;
1880+ // arguments for call to reporttok
1881+ stack[base + 24LLU] = stack[base + 15/*variant*/];
1882+ stack[base + 25LLU] = stack[base + 16/*content*/];
1883+ // set stack-base & callee-address
1884+ base += 24LLU;
1885+ label = 18446744073709551586LLU; // reporttok
1886+ break;
1887+ }
1888+ case 89LLU: // return from reporttok to procdata
1889+ {
1890+ fprintf(stderr, "%s", "\n");
1891+ exit(-1);
1892+ label = 88LLU; // alternative complete
1893+ break;
1894+ }
1895+ case 88LLU: // completed if-then-else
1896+ {
1897+ // call matchsym from procdata
1898+ stack[base + 22LLU] = base;
1899+ stack[base + 23LLU] = 90LLU;
1900+ // arguments for call to matchsym
1901+ stack[base + 25LLU] = 123LLU;
1902+ stack[base + 26LLU] = stack[base + 14/*lookahead*/];
1903+ // set stack-base & callee-address
1904+ base += 24LLU;
1905+ label = 12LLU; // matchsym
1906+ break;
1907+ }
1908+ case 90LLU: // return from matchsym to procdata
1909+ {
1910+ // copy back results provided by call to matchsym
1911+ stack[base + 14/*lookahead*/] = stack[base + 24LLU];
1912+//#define variants 22
1913+ stack[base + 22/*variants*/] = 0;
1914+//#define continue 23
1915+ stack[base + 23/*continue*/] = 1;
1916+ label = 91LLU; // start to repeat
1917+ break;
1918+ }
1919+ case 91LLU: // repeat from here
1920+ {
1921+ if(!stack[base + 23/*continue*/])
1922+ {
1923+ label = 92LLU; // break loop
1924+ break;
1925+ }
1926+
1927+ // loop body
1928+ // call skipwscmnt from procdata
1929+ stack[base + 24LLU] = base;
1930+ stack[base + 25LLU] = 93LLU;
1931+ // arguments for call to skipwscmnt
1932+ stack[base + 27LLU] = stack[base + 14/*lookahead*/];
1933+ // set stack-base & callee-address
1934+ base += 26LLU;
1935+ label = 18446744073709551584LLU; // skipwscmnt
1936+ break;
1937+ }
1938+ case 93LLU: // return from skipwscmnt to procdata
1939+ {
1940+ // copy back results provided by call to skipwscmnt
1941+ stack[base + 14/*lookahead*/] = stack[base + 26LLU];
1942+ // call neq from procdata
1943+ stack[base + 24LLU] = base;
1944+ stack[base + 25LLU] = 94LLU;
1945+ // arguments for call to neq
1946+ stack[base + 27LLU] = stack[base + 14/*lookahead*/];
1947+ stack[base + 28LLU] = 125LLU;
1948+ // set stack-base & callee-address
1949+ base += 26LLU;
1950+ label = 18446744073709551602LLU; // neq
1951+ break;
1952+ }
1953+ case 94LLU: // return from neq to procdata
1954+ {
1955+ // copy back results provided by call to neq
1956+ stack[base + 23/*continue*/] = stack[base + 26LLU];
1957+ if(!stack[base + 23/*continue*/])
1958+ {
1959+ label = 95LLU; // jump to alternative
1960+ break;
1961+ }
1962+
1963+ // consequent
1964+ // call parsetoken from procdata
1965+ stack[base + 24LLU] = base;
1966+ stack[base + 25LLU] = 97LLU;
1967+ // arguments for call to parsetoken
1968+ stack[base + 29LLU] = stack[base + 14/*lookahead*/];
1969+ // set stack-base & callee-address
1970+ base += 26LLU;
1971+ label = 18446744073709551588LLU; // parsetoken
1972+ break;
1973+ }
1974+ case 97LLU: // return from parsetoken to procdata
1975+ {
1976+ // copy back results provided by call to parsetoken
1977+ stack[base + 15/*variant*/] = stack[base + 26LLU];
1978+ stack[base + 16/*content*/] = stack[base + 27LLU];
1979+ stack[base + 14/*lookahead*/] = stack[base + 28LLU];
1980+ // call equ from procdata
1981+ stack[base + 24LLU] = base;
1982+ stack[base + 25LLU] = 98LLU;
1983+ // arguments for call to equ
1984+ stack[base + 27LLU] = stack[base + 15/*variant*/];
1985+ stack[base + 28LLU] = 4LLU;
1986+ // set stack-base & callee-address
1987+ base += 26LLU;
1988+ label = 18446744073709551603LLU; // equ
1989+ break;
1990+ }
1991+ case 98LLU: // return from equ to procdata
1992+ {
1993+ // copy back results provided by call to equ
1994+ stack[base + 20/*isname*/] = stack[base + 26LLU];
1995+//#define variant 24
1996+ if(!stack[base + 20/*isname*/])
1997+ {
1998+ label = 99LLU; // jump to alternative
1999+ break;
2000+ }
2001+
2002+ // consequent
2003+//#define constr 25
2004+ stack[base + 25/*constr*/] = (uint64_t)calloc(2, sizeof(uint64_t));
2005+ ((uint64_t *)(stack[base + 25/*constr*/]))[0] = stack[base + 16/*content*/];
2006+ ((uint64_t *)(stack[base + 25/*constr*/]))[1] = 0;
2007+//#define typeids 26
2008+ stack[base + 26/*typeids*/] = 0;
2009+ // call matchsym from procdata
2010+ stack[base + 27LLU] = base;
2011+ stack[base + 28LLU] = 101LLU;
2012+ // arguments for call to matchsym
2013+ stack[base + 30LLU] = 123LLU;
2014+ stack[base + 31LLU] = stack[base + 14/*lookahead*/];
2015+ // set stack-base & callee-address
2016+ base += 29LLU;
2017+ label = 12LLU; // matchsym
2018+ break;
2019+ }
2020+ case 101LLU: // return from matchsym to procdata
2021+ {
2022+ // copy back results provided by call to matchsym
2023+ stack[base + 14/*lookahead*/] = stack[base + 29LLU];
2024+ label = 102LLU; // start to repeat
2025+ break;
2026+ }
2027+ case 102LLU: // repeat from here
2028+ {
2029+ if(!stack[base + 23/*continue*/])
2030+ {
2031+ label = 103LLU; // break loop
2032+ break;
2033+ }
2034+
2035+ // loop body
2036+ // call skipwscmnt from procdata
2037+ stack[base + 27LLU] = base;
2038+ stack[base + 28LLU] = 104LLU;
2039+ // arguments for call to skipwscmnt
2040+ stack[base + 30LLU] = stack[base + 14/*lookahead*/];
2041+ // set stack-base & callee-address
2042+ base += 29LLU;
2043+ label = 18446744073709551584LLU; // skipwscmnt
2044+ break;
2045+ }
2046+ case 104LLU: // return from skipwscmnt to procdata
2047+ {
2048+ // copy back results provided by call to skipwscmnt
2049+ stack[base + 14/*lookahead*/] = stack[base + 29LLU];
2050+ // call neq from procdata
2051+ stack[base + 27LLU] = base;
2052+ stack[base + 28LLU] = 105LLU;
2053+ // arguments for call to neq
2054+ stack[base + 30LLU] = stack[base + 14/*lookahead*/];
2055+ stack[base + 31LLU] = 125LLU;
2056+ // set stack-base & callee-address
2057+ base += 29LLU;
2058+ label = 18446744073709551602LLU; // neq
2059+ break;
2060+ }
2061+ case 105LLU: // return from neq to procdata
2062+ {
2063+ // copy back results provided by call to neq
2064+ stack[base + 23/*continue*/] = stack[base + 29LLU];
2065+ if(!stack[base + 23/*continue*/])
2066+ {
2067+ label = 106LLU; // jump to alternative
2068+ break;
2069+ }
2070+
2071+ // consequent
2072+//#define typeid 27
2073+ stack[base + 27/*typeid*/] = (uint64_t)calloc(2, sizeof(uint64_t));
2074+ ((uint64_t *)(stack[base + 27/*typeid*/]))[0] = 0;
2075+ ((uint64_t *)(stack[base + 27/*typeid*/]))[1] = 0;
2076+//#define type 28
2077+ // call parsetype from procdata
2078+ stack[base + 29LLU] = base;
2079+ stack[base + 30LLU] = 108LLU;
2080+ // arguments for call to parsetype
2081+ stack[base + 33LLU] = stack[base + 14/*lookahead*/];
2082+ // set stack-base & callee-address
2083+ base += 31LLU;
2084+ label = 78LLU; // parsetype
2085+ break;
2086+ }
2087+ case 108LLU: // return from parsetype to procdata
2088+ {
2089+ // copy back results provided by call to parsetype
2090+ stack[base + 28/*type*/] = stack[base + 31LLU];
2091+ stack[base + 14/*lookahead*/] = stack[base + 32LLU];
2092+ ((uint64_t *)(stack[base + 27/*typeid*/]))[0] = stack[base + 28/*type*/];
2093+ // call parsetoken from procdata
2094+ stack[base + 29LLU] = base;
2095+ stack[base + 30LLU] = 109LLU;
2096+ // arguments for call to parsetoken
2097+ stack[base + 34LLU] = stack[base + 14/*lookahead*/];
2098+ // set stack-base & callee-address
2099+ base += 31LLU;
2100+ label = 18446744073709551588LLU; // parsetoken
2101+ break;
2102+ }
2103+ case 109LLU: // return from parsetoken to procdata
2104+ {
2105+ // copy back results provided by call to parsetoken
2106+ stack[base + 24/*variant*/] = stack[base + 31LLU];
2107+ stack[base + 16/*content*/] = stack[base + 32LLU];
2108+ stack[base + 14/*lookahead*/] = stack[base + 33LLU];
2109+ // call equ from procdata
2110+ stack[base + 29LLU] = base;
2111+ stack[base + 30LLU] = 110LLU;
2112+ // arguments for call to equ
2113+ stack[base + 32LLU] = stack[base + 24/*variant*/];
2114+ stack[base + 33LLU] = 4LLU;
2115+ // set stack-base & callee-address
2116+ base += 31LLU;
2117+ label = 18446744073709551603LLU; // equ
2118+ break;
2119+ }
2120+ case 110LLU: // return from equ to procdata
2121+ {
2122+ // copy back results provided by call to equ
2123+ stack[base + 20/*isname*/] = stack[base + 31LLU];
2124+ if(!stack[base + 20/*isname*/])
2125+ {
2126+ label = 111LLU; // jump to alternative
2127+ break;
2128+ }
2129+
2130+ // consequent
2131+ ((uint64_t *)(stack[base + 27/*typeid*/]))[1] = stack[base + 16/*content*/];
2132+ label = 112LLU; // consequent complete
2133+ break;
2134+ }
2135+ case 111LLU: // alternative
2136+ {
2137+ fprintf(stderr, "%s", "parsing data-constructor: expected id but found ");
2138+ // call reporttok from procdata
2139+ stack[base + 29LLU] = base;
2140+ stack[base + 30LLU] = 113LLU;
2141+ // arguments for call to reporttok
2142+ stack[base + 31LLU] = stack[base + 24/*variant*/];
2143+ stack[base + 32LLU] = stack[base + 16/*content*/];
2144+ // set stack-base & callee-address
2145+ base += 31LLU;
2146+ label = 18446744073709551586LLU; // reporttok
2147+ break;
2148+ }
2149+ case 113LLU: // return from reporttok to procdata
2150+ {
2151+ fprintf(stderr, "%s", "\n");
2152+ exit(-1);
2153+ label = 112LLU; // alternative complete
2154+ break;
2155+ }
2156+ case 112LLU: // completed if-then-else
2157+ {
2158+ // call matchsym from procdata
2159+ stack[base + 29LLU] = base;
2160+ stack[base + 30LLU] = 114LLU;
2161+ // arguments for call to matchsym
2162+ stack[base + 32LLU] = 59LLU;
2163+ stack[base + 33LLU] = stack[base + 14/*lookahead*/];
2164+ // set stack-base & callee-address
2165+ base += 31LLU;
2166+ label = 12LLU; // matchsym
2167+ break;
2168+ }
2169+ case 114LLU: // return from matchsym to procdata
2170+ {
2171+ // copy back results provided by call to matchsym
2172+ stack[base + 14/*lookahead*/] = stack[base + 31LLU];
2173+ {
2174+ struct listnode *list = (struct listnode *)calloc(1, sizeof(struct listnode));
2175+ list->next = (struct listnode *)stack[base + 26/*typeids*/];
2176+ stack[base + 26/*typeids*/] = (uint64_t)list;
2177+ list->data = stack[base + 27/*typeid*/];
2178+ }
2179+ label = 107LLU; // consequent complete
2180+ break;
2181+ }
2182+ case 106LLU: // alternative
2183+ {
2184+ label = 107LLU; // alternative complete
2185+ break;
2186+ }
2187+ case 107LLU: // completed if-then-else
2188+ {
2189+ label = 102LLU; // repeat
2190+ break;
2191+ }
2192+ case 103LLU: // loop finished
2193+ {
2194+ // call matchsym from procdata
2195+ stack[base + 27LLU] = base;
2196+ stack[base + 28LLU] = 115LLU;
2197+ // arguments for call to matchsym
2198+ stack[base + 30LLU] = 125LLU;
2199+ stack[base + 31LLU] = stack[base + 14/*lookahead*/];
2200+ // set stack-base & callee-address
2201+ base += 29LLU;
2202+ label = 12LLU; // matchsym
2203+ break;
2204+ }
2205+ case 115LLU: // return from matchsym to procdata
2206+ {
2207+ // copy back results provided by call to matchsym
2208+ stack[base + 14/*lookahead*/] = stack[base + 29LLU];
2209+ // call matchsym from procdata
2210+ stack[base + 27LLU] = base;
2211+ stack[base + 28LLU] = 116LLU;
2212+ // arguments for call to matchsym
2213+ stack[base + 30LLU] = 59LLU;
2214+ stack[base + 31LLU] = stack[base + 14/*lookahead*/];
2215+ // set stack-base & callee-address
2216+ base += 29LLU;
2217+ label = 12LLU; // matchsym
2218+ break;
2219+ }
2220+ case 116LLU: // return from matchsym to procdata
2221+ {
2222+ // copy back results provided by call to matchsym
2223+ stack[base + 14/*lookahead*/] = stack[base + 29LLU];
2224+ ((uint64_t *)(stack[base + 25/*constr*/]))[1] = stack[base + 26/*typeids*/];
2225+ {
2226+ struct listnode *list = (struct listnode *)calloc(1, sizeof(struct listnode));
2227+ list->next = (struct listnode *)stack[base + 22/*variants*/];
2228+ stack[base + 22/*variants*/] = (uint64_t)list;
2229+ list->data = stack[base + 25/*constr*/];
2230+ }
2231+ stack[base + 23/*continue*/] = 1;
2232+ label = 100LLU; // consequent complete
2233+ break;
2234+ }
2235+ case 99LLU: // alternative
2236+ {
2237+ fprintf(stderr, "%s", "parsing data-definition: expected constructor name but found ");
2238+ // call reporttok from procdata
2239+ stack[base + 25LLU] = base;
2240+ stack[base + 26LLU] = 117LLU;
2241+ // arguments for call to reporttok
2242+ stack[base + 27LLU] = stack[base + 24/*variant*/];
2243+ stack[base + 28LLU] = stack[base + 16/*content*/];
2244+ // set stack-base & callee-address
2245+ base += 27LLU;
2246+ label = 18446744073709551586LLU; // reporttok
2247+ break;
2248+ }
2249+ case 117LLU: // return from reporttok to procdata
2250+ {
2251+ fprintf(stderr, "%s", "\n");
2252+ exit(-1);
2253+ label = 100LLU; // alternative complete
2254+ break;
2255+ }
2256+ case 100LLU: // completed if-then-else
2257+ {
2258+ label = 96LLU; // consequent complete
2259+ break;
2260+ }
2261+ case 95LLU: // alternative
2262+ {
2263+ label = 96LLU; // alternative complete
2264+ break;
2265+ }
2266+ case 96LLU: // completed if-then-else
2267+ {
2268+ label = 91LLU; // repeat
2269+ break;
2270+ }
2271+ case 92LLU: // loop finished
2272+ {
2273+ // call matchsym from procdata
2274+ stack[base + 24LLU] = base;
2275+ stack[base + 25LLU] = 118LLU;
2276+ // arguments for call to matchsym
2277+ stack[base + 27LLU] = 125LLU;
2278+ stack[base + 28LLU] = stack[base + 14/*lookahead*/];
2279+ // set stack-base & callee-address
2280+ base += 26LLU;
2281+ label = 12LLU; // matchsym
2282+ break;
2283+ }
2284+ case 118LLU: // return from matchsym to procdata
2285+ {
2286+ // copy back results provided by call to matchsym
2287+ stack[base + 14/*lookahead*/] = stack[base + 26LLU];
2288+//#define typedef 24
2289+ stack[base + 24/*typedef*/] = (uint64_t)calloc(2, sizeof(uint64_t));
2290+ ((uint64_t *)(stack[base + 24/*typedef*/]))[0] = stack[base + 21/*identifier*/];
2291+ ((uint64_t *)(stack[base + 24/*typedef*/]))[1] = stack[base + 22/*variants*/];
2292+ {
2293+ struct listnode *list = (struct listnode *)calloc(1, sizeof(struct listnode));
2294+ list->next = (struct listnode *)stack[base + 13/*typedefs*/];
2295+ stack[base + 13/*typedefs*/] = (uint64_t)list;
2296+ list->data = stack[base + 24/*typedef*/];
2297+ }
2298+ stack[base + 0/*res0*/] = stack[base + 13/*typedefs*/];
2299+ stack[base + 1/*res1*/] = stack[base + 14/*lookahead*/];
2300+ stack[base + 2/*res2*/] = stack[base + 15/*variant*/];
2301+ stack[base + 3/*res3*/] = stack[base + 16/*content*/];
2302+ stack[base + 4/*res4*/] = stack[base + 17/*label*/];
2303+ stack[base + 5/*res5*/] = stack[base + 18/*defcount*/];
2304+ // return from procdata
2305+ label = stack[base - 1];
2306+ base = stack[base - 2];
2307+ break;
2308+ }
2309+ case 119LLU: // proccall
2310+ {
2311+//#define res0 0
2312+//#define res1 1
2313+//#define res2 2
2314+//#define res3 3
2315+//#define res4 4
17272316 //#define arg0 5
17282317 //#define arg1 6
17292318 //#define arg2 7
@@ -1818,7 +2407,7 @@
18182407 //#define index 42
18192408 if(!stack[base + 33/*cerec*/])
18202409 {
1821- label = 79LLU; // jump to alternative
2410+ label = 120LLU; // jump to alternative
18222411 break;
18232412 }
18242413
@@ -1827,7 +2416,7 @@
18272416 stack[base + 43/*recsztotal*/] = 0;
18282417 // call add from proccall
18292418 stack[base + 44LLU] = base;
1830- stack[base + 45LLU] = 81LLU;
2419+ stack[base + 45LLU] = 122LLU;
18312420 // arguments for call to add
18322421 stack[base + 47LLU] = 3LLU;
18332422 stack[base + 48LLU] = stack[base + 43/*recsztotal*/];
@@ -1836,13 +2425,13 @@
18362425 label = 18446744073709551608LLU; // add
18372426 break;
18382427 }
1839- case 81LLU: // return from add to proccall
2428+ case 122LLU: // return from add to proccall
18402429 {
18412430 // copy back results provided by call to add
18422431 stack[base + 43/*recsztotal*/] = stack[base + 46LLU];
18432432 // call add from proccall
18442433 stack[base + 44LLU] = base;
1845- stack[base + 45LLU] = 82LLU;
2434+ stack[base + 45LLU] = 123LLU;
18462435 // arguments for call to add
18472436 stack[base + 47LLU] = stack[base + 36/*cerescount*/];
18482437 stack[base + 48LLU] = stack[base + 43/*recsztotal*/];
@@ -1851,13 +2440,13 @@
18512440 label = 18446744073709551608LLU; // add
18522441 break;
18532442 }
1854- case 82LLU: // return from add to proccall
2443+ case 123LLU: // return from add to proccall
18552444 {
18562445 // copy back results provided by call to add
18572446 stack[base + 43/*recsztotal*/] = stack[base + 46LLU];
18582447 // call add from proccall
18592448 stack[base + 44LLU] = base;
1860- stack[base + 45LLU] = 83LLU;
2449+ stack[base + 45LLU] = 124LLU;
18612450 // arguments for call to add
18622451 stack[base + 47LLU] = stack[base + 37/*ceargcount*/];
18632452 stack[base + 48LLU] = stack[base + 43/*recsztotal*/];
@@ -1866,13 +2455,13 @@
18662455 label = 18446744073709551608LLU; // add
18672456 break;
18682457 }
1869- case 83LLU: // return from add to proccall
2458+ case 124LLU: // return from add to proccall
18702459 {
18712460 // copy back results provided by call to add
18722461 stack[base + 43/*recsztotal*/] = stack[base + 46LLU];
18732462 // call add from proccall
18742463 stack[base + 44LLU] = base;
1875- stack[base + 45LLU] = 84LLU;
2464+ stack[base + 45LLU] = 125LLU;
18762465 // arguments for call to add
18772466 stack[base + 47LLU] = stack[base + 38/*cemaxcount*/];
18782467 stack[base + 48LLU] = stack[base + 43/*recsztotal*/];
@@ -1881,7 +2470,7 @@
18812470 label = 18446744073709551608LLU; // add
18822471 break;
18832472 }
1884- case 84LLU: // return from add to proccall
2473+ case 125LLU: // return from add to proccall
18852474 {
18862475 // copy back results provided by call to add
18872476 stack[base + 43/*recsztotal*/] = stack[base + 46LLU];
@@ -1888,7 +2477,7 @@
18882477 printf("%s", "\n uint64_t *newstack = (uint64_t *)calloc(");
18892478 // call printnr from proccall
18902479 stack[base + 44LLU] = base;
1891- stack[base + 45LLU] = 85LLU;
2480+ stack[base + 45LLU] = 126LLU;
18922481 // arguments for call to printnr
18932482 stack[base + 46LLU] = stack[base + 43/*recsztotal*/];
18942483 // set stack-base & callee-address
@@ -1896,13 +2485,13 @@
18962485 label = 18446744073709551594LLU; // printnr
18972486 break;
18982487 }
1899- case 85LLU: // return from printnr to proccall
2488+ case 126LLU: // return from printnr to proccall
19002489 {
19012490 printf("%s", "LLU + 1, sizeof(uint64_t));");
19022491 printf("%s", "\n newstack[");
19032492 // call printnr from proccall
19042493 stack[base + 44LLU] = base;
1905- stack[base + 45LLU] = 86LLU;
2494+ stack[base + 45LLU] = 127LLU;
19062495 // arguments for call to printnr
19072496 stack[base + 46LLU] = stack[base + 43/*recsztotal*/];
19082497 // set stack-base & callee-address
@@ -1910,13 +2499,13 @@
19102499 label = 18446744073709551594LLU; // printnr
19112500 break;
19122501 }
1913- case 86LLU: // return from printnr to proccall
2502+ case 127LLU: // return from printnr to proccall
19142503 {
19152504 printf("%s", "LLU] = 9876543210LLU; // overflow-marker");
19162505 printf("%s", "\n // call ");
19172506 // call printid from proccall
19182507 stack[base + 44LLU] = base;
1919- stack[base + 45LLU] = 87LLU;
2508+ stack[base + 45LLU] = 128LLU;
19202509 // arguments for call to printid
19212510 stack[base + 46LLU] = stack[base + 34/*ceid*/];
19222511 // set stack-base & callee-address
@@ -1924,12 +2513,12 @@
19242513 label = 18446744073709551591LLU; // printid
19252514 break;
19262515 }
1927- case 87LLU: // return from printid to proccall
2516+ case 128LLU: // return from printid to proccall
19282517 {
19292518 printf("%s", " from ");
19302519 // call printid from proccall
19312520 stack[base + 44LLU] = base;
1932- stack[base + 45LLU] = 88LLU;
2521+ stack[base + 45LLU] = 129LLU;
19332522 // arguments for call to printid
19342523 stack[base + 46LLU] = stack[base + 24/*fnid*/];
19352524 // set stack-base & callee-address
@@ -1937,13 +2526,13 @@
19372526 label = 18446744073709551591LLU; // printid
19382527 break;
19392528 }
1940- case 88LLU: // return from printid to proccall
2529+ case 129LLU: // return from printid to proccall
19412530 {
19422531 printf("%s", "\n newstack[0] = (uint64_t)stack; // backup stack location");
19432532 printf("%s", "\n newstack[1] = base;");
19442533 // call add from proccall
19452534 stack[base + 44LLU] = base;
1946- stack[base + 45LLU] = 89LLU;
2535+ stack[base + 45LLU] = 130LLU;
19472536 // arguments for call to add
19482537 stack[base + 47LLU] = 1LLU;
19492538 stack[base + 48LLU] = stack[base + 32/*label*/];
@@ -1952,7 +2541,7 @@
19522541 label = 18446744073709551608LLU; // add
19532542 break;
19542543 }
1955- case 89LLU: // return from add to proccall
2544+ case 130LLU: // return from add to proccall
19562545 {
19572546 // copy back results provided by call to add
19582547 stack[base + 32/*label*/] = stack[base + 46LLU];
@@ -1959,7 +2548,7 @@
19592548 printf("%s", "\n newstack[2] = ");
19602549 // call printnr from proccall
19612550 stack[base + 44LLU] = base;
1962- stack[base + 45LLU] = 90LLU;
2551+ stack[base + 45LLU] = 131LLU;
19632552 // arguments for call to printnr
19642553 stack[base + 46LLU] = stack[base + 32/*label*/];
19652554 // set stack-base & callee-address
@@ -1967,7 +2556,7 @@
19672556 label = 18446744073709551594LLU; // printnr
19682557 break;
19692558 }
1970- case 90LLU: // return from printnr to proccall
2559+ case 131LLU: // return from printnr to proccall
19712560 {
19722561 printf("%s", "LLU;");
19732562 stack[base + 41/*n*/] = stack[base + 37/*ceargcount*/];
@@ -1974,7 +2563,7 @@
19742563 printf("%s", "\n // arguments for call to ");
19752564 // call printid from proccall
19762565 stack[base + 44LLU] = base;
1977- stack[base + 45LLU] = 91LLU;
2566+ stack[base + 45LLU] = 132LLU;
19782567 // arguments for call to printid
19792568 stack[base + 46LLU] = stack[base + 34/*ceid*/];
19802569 // set stack-base & callee-address
@@ -1982,16 +2571,16 @@
19822571 label = 18446744073709551591LLU; // printid
19832572 break;
19842573 }
1985- case 91LLU: // return from printid to proccall
2574+ case 132LLU: // return from printid to proccall
19862575 {
1987- label = 92LLU; // start to repeat
2576+ label = 133LLU; // start to repeat
19882577 break;
19892578 }
1990- case 92LLU: // repeat from here
2579+ case 133LLU: // repeat from here
19912580 {
19922581 if(!stack[base + 41/*n*/])
19932582 {
1994- label = 93LLU; // break loop
2583+ label = 134LLU; // break loop
19952584 break;
19962585 }
19972586
@@ -1998,7 +2587,7 @@
19982587 // loop body
19992588 // call sub from proccall
20002589 stack[base + 44LLU] = base;
2001- stack[base + 45LLU] = 94LLU;
2590+ stack[base + 45LLU] = 135LLU;
20022591 // arguments for call to sub
20032592 stack[base + 47LLU] = stack[base + 37/*ceargcount*/];
20042593 stack[base + 48LLU] = stack[base + 41/*n*/];
@@ -2007,13 +2596,13 @@
20072596 label = 18446744073709551607LLU; // sub
20082597 break;
20092598 }
2010- case 94LLU: // return from sub to proccall
2599+ case 135LLU: // return from sub to proccall
20112600 {
20122601 // copy back results provided by call to sub
20132602 stack[base + 42/*index*/] = stack[base + 46LLU];
20142603 // call sub from proccall
20152604 stack[base + 44LLU] = base;
2016- stack[base + 45LLU] = 95LLU;
2605+ stack[base + 45LLU] = 136LLU;
20172606 // arguments for call to sub
20182607 stack[base + 47LLU] = stack[base + 41/*n*/];
20192608 stack[base + 48LLU] = 1LLU;
@@ -2022,13 +2611,13 @@
20222611 label = 18446744073709551607LLU; // sub
20232612 break;
20242613 }
2025- case 95LLU: // return from sub to proccall
2614+ case 136LLU: // return from sub to proccall
20262615 {
20272616 // copy back results provided by call to sub
20282617 stack[base + 41/*n*/] = stack[base + 46LLU];
20292618 if(!stack[base + 42/*index*/])
20302619 {
2031- label = 96LLU; // jump to alternative
2620+ label = 137LLU; // jump to alternative
20322621 break;
20332622 }
20342623
@@ -2035,7 +2624,7 @@
20352624 // consequent
20362625 // call matchsym from proccall
20372626 stack[base + 44LLU] = base;
2038- stack[base + 45LLU] = 98LLU;
2627+ stack[base + 45LLU] = 139LLU;
20392628 // arguments for call to matchsym
20402629 stack[base + 47LLU] = 44LLU;
20412630 stack[base + 48LLU] = stack[base + 29/*lookahead*/];
@@ -2044,24 +2633,24 @@
20442633 label = 12LLU; // matchsym
20452634 break;
20462635 }
2047- case 98LLU: // return from matchsym to proccall
2636+ case 139LLU: // return from matchsym to proccall
20482637 {
20492638 // copy back results provided by call to matchsym
20502639 stack[base + 29/*lookahead*/] = stack[base + 46LLU];
2051- label = 97LLU; // consequent complete
2640+ label = 138LLU; // consequent complete
20522641 break;
20532642 }
2054- case 96LLU: // alternative
2643+ case 137LLU: // alternative
20552644 {
2056- label = 97LLU; // alternative complete
2645+ label = 138LLU; // alternative complete
20572646 break;
20582647 }
2059- case 97LLU: // completed if-then-else
2648+ case 138LLU: // completed if-then-else
20602649 {
20612650 stack[base + 40/*sum*/] = 0;
20622651 // call add from proccall
20632652 stack[base + 44LLU] = base;
2064- stack[base + 45LLU] = 99LLU;
2653+ stack[base + 45LLU] = 140LLU;
20652654 // arguments for call to add
20662655 stack[base + 47LLU] = 3LLU;
20672656 stack[base + 48LLU] = stack[base + 40/*sum*/];
@@ -2070,13 +2659,13 @@
20702659 label = 18446744073709551608LLU; // add
20712660 break;
20722661 }
2073- case 99LLU: // return from add to proccall
2662+ case 140LLU: // return from add to proccall
20742663 {
20752664 // copy back results provided by call to add
20762665 stack[base + 40/*sum*/] = stack[base + 46LLU];
20772666 // call add from proccall
20782667 stack[base + 44LLU] = base;
2079- stack[base + 45LLU] = 100LLU;
2668+ stack[base + 45LLU] = 141LLU;
20802669 // arguments for call to add
20812670 stack[base + 47LLU] = stack[base + 36/*cerescount*/];
20822671 stack[base + 48LLU] = stack[base + 40/*sum*/];
@@ -2085,13 +2674,13 @@
20852674 label = 18446744073709551608LLU; // add
20862675 break;
20872676 }
2088- case 100LLU: // return from add to proccall
2677+ case 141LLU: // return from add to proccall
20892678 {
20902679 // copy back results provided by call to add
20912680 stack[base + 40/*sum*/] = stack[base + 46LLU];
20922681 // call add from proccall
20932682 stack[base + 44LLU] = base;
2094- stack[base + 45LLU] = 101LLU;
2683+ stack[base + 45LLU] = 142LLU;
20952684 // arguments for call to add
20962685 stack[base + 47LLU] = stack[base + 42/*index*/];
20972686 stack[base + 48LLU] = stack[base + 40/*sum*/];
@@ -2100,13 +2689,13 @@
21002689 label = 18446744073709551608LLU; // add
21012690 break;
21022691 }
2103- case 101LLU: // return from add to proccall
2692+ case 142LLU: // return from add to proccall
21042693 {
21052694 // copy back results provided by call to add
21062695 stack[base + 40/*sum*/] = stack[base + 46LLU];
21072696 // call parsetoken from proccall
21082697 stack[base + 44LLU] = base;
2109- stack[base + 45LLU] = 102LLU;
2698+ stack[base + 45LLU] = 143LLU;
21102699 // arguments for call to parsetoken
21112700 stack[base + 49LLU] = stack[base + 29/*lookahead*/];
21122701 // set stack-base & callee-address
@@ -2114,7 +2703,7 @@
21142703 label = 18446744073709551588LLU; // parsetoken
21152704 break;
21162705 }
2117- case 102LLU: // return from parsetoken to proccall
2706+ case 143LLU: // return from parsetoken to proccall
21182707 {
21192708 // copy back results provided by call to parsetoken
21202709 stack[base + 30/*variant*/] = stack[base + 46LLU];
@@ -2122,7 +2711,7 @@
21222711 stack[base + 29/*lookahead*/] = stack[base + 48LLU];
21232712 // call equ from proccall
21242713 stack[base + 44LLU] = base;
2125- stack[base + 45LLU] = 103LLU;
2714+ stack[base + 45LLU] = 144LLU;
21262715 // arguments for call to equ
21272716 stack[base + 47LLU] = stack[base + 30/*variant*/];
21282717 stack[base + 48LLU] = 1LLU;
@@ -2131,13 +2720,13 @@
21312720 label = 18446744073709551603LLU; // equ
21322721 break;
21332722 }
2134- case 103LLU: // return from equ to proccall
2723+ case 144LLU: // return from equ to proccall
21352724 {
21362725 // copy back results provided by call to equ
21372726 stack[base + 39/*isequal*/] = stack[base + 46LLU];
21382727 if(!stack[base + 39/*isequal*/])
21392728 {
2140- label = 104LLU; // jump to alternative
2729+ label = 145LLU; // jump to alternative
21412730 break;
21422731 }
21432732
@@ -2145,7 +2734,7 @@
21452734 printf("%s", "\n newstack[");
21462735 // call printnr from proccall
21472736 stack[base + 44LLU] = base;
2148- stack[base + 45LLU] = 106LLU;
2737+ stack[base + 45LLU] = 147LLU;
21492738 // arguments for call to printnr
21502739 stack[base + 46LLU] = stack[base + 40/*sum*/];
21512740 // set stack-base & callee-address
@@ -2153,12 +2742,12 @@
21532742 label = 18446744073709551594LLU; // printnr
21542743 break;
21552744 }
2156- case 106LLU: // return from printnr to proccall
2745+ case 147LLU: // return from printnr to proccall
21572746 {
21582747 printf("%s", "LLU] = ");
21592748 // call printnr from proccall
21602749 stack[base + 44LLU] = base;
2161- stack[base + 45LLU] = 107LLU;
2750+ stack[base + 45LLU] = 148LLU;
21622751 // arguments for call to printnr
21632752 stack[base + 46LLU] = stack[base + 31/*content*/];
21642753 // set stack-base & callee-address
@@ -2166,17 +2755,17 @@
21662755 label = 18446744073709551594LLU; // printnr
21672756 break;
21682757 }
2169- case 107LLU: // return from printnr to proccall
2758+ case 148LLU: // return from printnr to proccall
21702759 {
21712760 printf("%s", "LLU;");
2172- label = 105LLU; // consequent complete
2761+ label = 146LLU; // consequent complete
21732762 break;
21742763 }
2175- case 104LLU: // alternative
2764+ case 145LLU: // alternative
21762765 {
21772766 // call equ from proccall
21782767 stack[base + 44LLU] = base;
2179- stack[base + 45LLU] = 108LLU;
2768+ stack[base + 45LLU] = 149LLU;
21802769 // arguments for call to equ
21812770 stack[base + 47LLU] = stack[base + 30/*variant*/];
21822771 stack[base + 48LLU] = 2LLU;
@@ -2185,13 +2774,13 @@
21852774 label = 18446744073709551603LLU; // equ
21862775 break;
21872776 }
2188- case 108LLU: // return from equ to proccall
2777+ case 149LLU: // return from equ to proccall
21892778 {
21902779 // copy back results provided by call to equ
21912780 stack[base + 39/*isequal*/] = stack[base + 46LLU];
21922781 if(!stack[base + 39/*isequal*/])
21932782 {
2194- label = 109LLU; // jump to alternative
2783+ label = 150LLU; // jump to alternative
21952784 break;
21962785 }
21972786
@@ -2199,7 +2788,7 @@
21992788 printf("%s", "\n newstack[");
22002789 // call printnr from proccall
22012790 stack[base + 44LLU] = base;
2202- stack[base + 45LLU] = 111LLU;
2791+ stack[base + 45LLU] = 152LLU;
22032792 // arguments for call to printnr
22042793 stack[base + 46LLU] = stack[base + 40/*sum*/];
22052794 // set stack-base & callee-address
@@ -2207,12 +2796,12 @@
22072796 label = 18446744073709551594LLU; // printnr
22082797 break;
22092798 }
2210- case 111LLU: // return from printnr to proccall
2799+ case 152LLU: // return from printnr to proccall
22112800 {
22122801 printf("%s", "LLU] = ");
22132802 // call printnr from proccall
22142803 stack[base + 44LLU] = base;
2215- stack[base + 45LLU] = 112LLU;
2804+ stack[base + 45LLU] = 153LLU;
22162805 // arguments for call to printnr
22172806 stack[base + 46LLU] = stack[base + 31/*content*/];
22182807 // set stack-base & callee-address
@@ -2220,17 +2809,17 @@
22202809 label = 18446744073709551594LLU; // printnr
22212810 break;
22222811 }
2223- case 112LLU: // return from printnr to proccall
2812+ case 153LLU: // return from printnr to proccall
22242813 {
22252814 printf("%s", "LLU;");
2226- label = 110LLU; // consequent complete
2815+ label = 151LLU; // consequent complete
22272816 break;
22282817 }
2229- case 109LLU: // alternative
2818+ case 150LLU: // alternative
22302819 {
22312820 // call equ from proccall
22322821 stack[base + 44LLU] = base;
2233- stack[base + 45LLU] = 113LLU;
2822+ stack[base + 45LLU] = 154LLU;
22342823 // arguments for call to equ
22352824 stack[base + 47LLU] = stack[base + 30/*variant*/];
22362825 stack[base + 48LLU] = 3LLU;
@@ -2239,13 +2828,13 @@
22392828 label = 18446744073709551603LLU; // equ
22402829 break;
22412830 }
2242- case 113LLU: // return from equ to proccall
2831+ case 154LLU: // return from equ to proccall
22432832 {
22442833 // copy back results provided by call to equ
22452834 stack[base + 39/*isequal*/] = stack[base + 46LLU];
22462835 if(!stack[base + 39/*isequal*/])
22472836 {
2248- label = 114LLU; // jump to alternative
2837+ label = 155LLU; // jump to alternative
22492838 break;
22502839 }
22512840
@@ -2253,7 +2842,7 @@
22532842 printf("%s", "\n newstack[");
22542843 // call printnr from proccall
22552844 stack[base + 44LLU] = base;
2256- stack[base + 45LLU] = 116LLU;
2845+ stack[base + 45LLU] = 157LLU;
22572846 // arguments for call to printnr
22582847 stack[base + 46LLU] = stack[base + 40/*sum*/];
22592848 // set stack-base & callee-address
@@ -2261,12 +2850,12 @@
22612850 label = 18446744073709551594LLU; // printnr
22622851 break;
22632852 }
2264- case 116LLU: // return from printnr to proccall
2853+ case 157LLU: // return from printnr to proccall
22652854 {
22662855 printf("%s", "LLU] = ");
22672856 // call printnr from proccall
22682857 stack[base + 44LLU] = base;
2269- stack[base + 45LLU] = 117LLU;
2858+ stack[base + 45LLU] = 158LLU;
22702859 // arguments for call to printnr
22712860 stack[base + 46LLU] = stack[base + 31/*content*/];
22722861 // set stack-base & callee-address
@@ -2274,12 +2863,12 @@
22742863 label = 18446744073709551594LLU; // printnr
22752864 break;
22762865 }
2277- case 117LLU: // return from printnr to proccall
2866+ case 158LLU: // return from printnr to proccall
22782867 {
22792868 printf("%s", "LLU; // ");
22802869 // call printid from proccall
22812870 stack[base + 44LLU] = base;
2282- stack[base + 45LLU] = 118LLU;
2871+ stack[base + 45LLU] = 159LLU;
22832872 // arguments for call to printid
22842873 stack[base + 46LLU] = stack[base + 31/*content*/];
22852874 // set stack-base & callee-address
@@ -2287,16 +2876,16 @@
22872876 label = 18446744073709551591LLU; // printid
22882877 break;
22892878 }
2290- case 118LLU: // return from printid to proccall
2879+ case 159LLU: // return from printid to proccall
22912880 {
2292- label = 115LLU; // consequent complete
2881+ label = 156LLU; // consequent complete
22932882 break;
22942883 }
2295- case 114LLU: // alternative
2884+ case 155LLU: // alternative
22962885 {
22972886 // call equ from proccall
22982887 stack[base + 44LLU] = base;
2299- stack[base + 45LLU] = 119LLU;
2888+ stack[base + 45LLU] = 160LLU;
23002889 // arguments for call to equ
23012890 stack[base + 47LLU] = stack[base + 30/*variant*/];
23022891 stack[base + 48LLU] = 4LLU;
@@ -2305,13 +2894,13 @@
23052894 label = 18446744073709551603LLU; // equ
23062895 break;
23072896 }
2308- case 119LLU: // return from equ to proccall
2897+ case 160LLU: // return from equ to proccall
23092898 {
23102899 // copy back results provided by call to equ
23112900 stack[base + 39/*isequal*/] = stack[base + 46LLU];
23122901 if(!stack[base + 39/*isequal*/])
23132902 {
2314- label = 120LLU; // jump to alternative
2903+ label = 161LLU; // jump to alternative
23152904 break;
23162905 }
23172906
@@ -2319,7 +2908,7 @@
23192908 printf("%s", "\n newstack[");
23202909 // call printnr from proccall
23212910 stack[base + 44LLU] = base;
2322- stack[base + 45LLU] = 122LLU;
2911+ stack[base + 45LLU] = 163LLU;
23232912 // arguments for call to printnr
23242913 stack[base + 46LLU] = stack[base + 40/*sum*/];
23252914 // set stack-base & callee-address
@@ -2327,12 +2916,12 @@
23272916 label = 18446744073709551594LLU; // printnr
23282917 break;
23292918 }
2330- case 122LLU: // return from printnr to proccall
2919+ case 163LLU: // return from printnr to proccall
23312920 {
23322921 printf("%s", "LLU] = ");
23332922 // call emitvar from proccall
23342923 stack[base + 44LLU] = base;
2335- stack[base + 45LLU] = 123LLU;
2924+ stack[base + 45LLU] = 164LLU;
23362925 // arguments for call to emitvar
23372926 stack[base + 46LLU] = stack[base + 31/*content*/];
23382927 stack[base + 47LLU] = stack[base + 19/*scopes*/];
@@ -2342,18 +2931,18 @@
23422931 label = 74LLU; // emitvar
23432932 break;
23442933 }
2345- case 123LLU: // return from emitvar to proccall
2934+ case 164LLU: // return from emitvar to proccall
23462935 {
23472936 printf("%s", ";");
2348- label = 121LLU; // consequent complete
2937+ label = 162LLU; // consequent complete
23492938 break;
23502939 }
2351- case 120LLU: // alternative
2940+ case 161LLU: // alternative
23522941 {
23532942 fprintf(stderr, "%s", "expected identifier or constant argument but found ");
23542943 // call printtoken from proccall
23552944 stack[base + 44LLU] = base;
2356- stack[base + 45LLU] = 124LLU;
2945+ stack[base + 45LLU] = 165LLU;
23572946 // arguments for call to printtoken
23582947 stack[base + 46LLU] = stack[base + 30/*variant*/];
23592948 stack[base + 47LLU] = stack[base + 31/*content*/];
@@ -2362,38 +2951,38 @@
23622951 label = 18446744073709551587LLU; // printtoken
23632952 break;
23642953 }
2365- case 124LLU: // return from printtoken to proccall
2954+ case 165LLU: // return from printtoken to proccall
23662955 {
23672956 fprintf(stderr, "%s", "\n");
23682957 exit(-1);
2369- label = 121LLU; // alternative complete
2958+ label = 162LLU; // alternative complete
23702959 break;
23712960 }
2372- case 121LLU: // completed if-then-else
2961+ case 162LLU: // completed if-then-else
23732962 {
2374- label = 115LLU; // alternative complete
2963+ label = 156LLU; // alternative complete
23752964 break;
23762965 }
2377- case 115LLU: // completed if-then-else
2966+ case 156LLU: // completed if-then-else
23782967 {
2379- label = 110LLU; // alternative complete
2968+ label = 151LLU; // alternative complete
23802969 break;
23812970 }
2382- case 110LLU: // completed if-then-else
2971+ case 151LLU: // completed if-then-else
23832972 {
2384- label = 105LLU; // alternative complete
2973+ label = 146LLU; // alternative complete
23852974 break;
23862975 }
2387- case 105LLU: // completed if-then-else
2976+ case 146LLU: // completed if-then-else
23882977 {
2389- label = 92LLU; // repeat
2978+ label = 133LLU; // repeat
23902979 break;
23912980 }
2392- case 93LLU: // loop finished
2981+ case 134LLU: // loop finished
23932982 {
23942983 // call matchsym from proccall
23952984 stack[base + 44LLU] = base;
2396- stack[base + 45LLU] = 125LLU;
2985+ stack[base + 45LLU] = 166LLU;
23972986 // arguments for call to matchsym
23982987 stack[base + 47LLU] = 41LLU;
23992988 stack[base + 48LLU] = stack[base + 29/*lookahead*/];
@@ -2402,7 +2991,7 @@
24022991 label = 12LLU; // matchsym
24032992 break;
24042993 }
2405- case 125LLU: // return from matchsym to proccall
2994+ case 166LLU: // return from matchsym to proccall
24062995 {
24072996 // copy back results provided by call to matchsym
24082997 stack[base + 29/*lookahead*/] = stack[base + 46LLU];
@@ -2412,7 +3001,7 @@
24123001 printf("%s", "\n label = ");
24133002 // call printnr from proccall
24143003 stack[base + 44LLU] = base;
2415- stack[base + 45LLU] = 126LLU;
3004+ stack[base + 45LLU] = 167LLU;
24163005 // arguments for call to printnr
24173006 stack[base + 46LLU] = stack[base + 35/*celabel*/];
24183007 // set stack-base & callee-address
@@ -2420,12 +3009,12 @@
24203009 label = 18446744073709551594LLU; // printnr
24213010 break;
24223011 }
2423- case 126LLU: // return from printnr to proccall
3012+ case 167LLU: // return from printnr to proccall
24243013 {
24253014 printf("%s", "LLU; // ");
24263015 // call printid from proccall
24273016 stack[base + 44LLU] = base;
2428- stack[base + 45LLU] = 127LLU;
3017+ stack[base + 45LLU] = 168LLU;
24293018 // arguments for call to printid
24303019 stack[base + 46LLU] = stack[base + 34/*ceid*/];
24313020 // set stack-base & callee-address
@@ -2433,7 +3022,7 @@
24333022 label = 18446744073709551591LLU; // printid
24343023 break;
24353024 }
2436- case 127LLU: // return from printid to proccall
3025+ case 168LLU: // return from printid to proccall
24373026 {
24383027 printf("%s", "\n break;");
24393028 printf("%s", "\n }");
@@ -2440,7 +3029,7 @@
24403029 printf("%s", "\n case ");
24413030 // call printnr from proccall
24423031 stack[base + 44LLU] = base;
2443- stack[base + 45LLU] = 128LLU;
3032+ stack[base + 45LLU] = 169LLU;
24443033 // arguments for call to printnr
24453034 stack[base + 46LLU] = stack[base + 32/*label*/];
24463035 // set stack-base & callee-address
@@ -2448,12 +3037,12 @@
24483037 label = 18446744073709551594LLU; // printnr
24493038 break;
24503039 }
2451- case 128LLU: // return from printnr to proccall
3040+ case 169LLU: // return from printnr to proccall
24523041 {
24533042 printf("%s", "LLU: // return from ");
24543043 // call printid from proccall
24553044 stack[base + 44LLU] = base;
2456- stack[base + 45LLU] = 129LLU;
3045+ stack[base + 45LLU] = 170LLU;
24573046 // arguments for call to printid
24583047 stack[base + 46LLU] = stack[base + 34/*ceid*/];
24593048 // set stack-base & callee-address
@@ -2461,12 +3050,12 @@
24613050 label = 18446744073709551591LLU; // printid
24623051 break;
24633052 }
2464- case 129LLU: // return from printid to proccall
3053+ case 170LLU: // return from printid to proccall
24653054 {
24663055 printf("%s", " to ");
24673056 // call printid from proccall
24683057 stack[base + 44LLU] = base;
2469- stack[base + 45LLU] = 130LLU;
3058+ stack[base + 45LLU] = 171LLU;
24703059 // arguments for call to printid
24713060 stack[base + 46LLU] = stack[base + 24/*fnid*/];
24723061 // set stack-base & callee-address
@@ -2474,13 +3063,13 @@
24743063 label = 18446744073709551591LLU; // printid
24753064 break;
24763065 }
2477- case 130LLU: // return from printid to proccall
3066+ case 171LLU: // return from printid to proccall
24783067 {
24793068 printf("%s", "\n {");
24803069 printf("%s", "\n uint64_t *oldstack = (uint64_t *)stack[0];");
24813070 if(!stack[base + 36/*cerescount*/])
24823071 {
2483- label = 131LLU; // jump to alternative
3072+ label = 172LLU; // jump to alternative
24843073 break;
24853074 }
24863075
@@ -2487,7 +3076,7 @@
24873076 // consequent
24883077 // call matchsym from proccall
24893078 stack[base + 44LLU] = base;
2490- stack[base + 45LLU] = 133LLU;
3079+ stack[base + 45LLU] = 174LLU;
24913080 // arguments for call to matchsym
24923081 stack[base + 47LLU] = 45LLU;
24933082 stack[base + 48LLU] = stack[base + 29/*lookahead*/];
@@ -2496,13 +3085,13 @@
24963085 label = 12LLU; // matchsym
24973086 break;
24983087 }
2499- case 133LLU: // return from matchsym to proccall
3088+ case 174LLU: // return from matchsym to proccall
25003089 {
25013090 // copy back results provided by call to matchsym
25023091 stack[base + 29/*lookahead*/] = stack[base + 46LLU];
25033092 // call matchsym from proccall
25043093 stack[base + 44LLU] = base;
2505- stack[base + 45LLU] = 134LLU;
3094+ stack[base + 45LLU] = 175LLU;
25063095 // arguments for call to matchsym
25073096 stack[base + 47LLU] = 62LLU;
25083097 stack[base + 48LLU] = stack[base + 29/*lookahead*/];
@@ -2511,13 +3100,13 @@
25113100 label = 12LLU; // matchsym
25123101 break;
25133102 }
2514- case 134LLU: // return from matchsym to proccall
3103+ case 175LLU: // return from matchsym to proccall
25153104 {
25163105 // copy back results provided by call to matchsym
25173106 stack[base + 29/*lookahead*/] = stack[base + 46LLU];
25183107 // call matchsym from proccall
25193108 stack[base + 44LLU] = base;
2520- stack[base + 45LLU] = 135LLU;
3109+ stack[base + 45LLU] = 176LLU;
25213110 // arguments for call to matchsym
25223111 stack[base + 47LLU] = 40LLU;
25233112 stack[base + 48LLU] = stack[base + 29/*lookahead*/];
@@ -2526,7 +3115,7 @@
25263115 label = 12LLU; // matchsym
25273116 break;
25283117 }
2529- case 135LLU: // return from matchsym to proccall
3118+ case 176LLU: // return from matchsym to proccall
25303119 {
25313120 // copy back results provided by call to matchsym
25323121 stack[base + 29/*lookahead*/] = stack[base + 46LLU];
@@ -2533,7 +3122,7 @@
25333122 printf("%s", "\n // copy back results provided by call to ");
25343123 // call printid from proccall
25353124 stack[base + 44LLU] = base;
2536- stack[base + 45LLU] = 136LLU;
3125+ stack[base + 45LLU] = 177LLU;
25373126 // arguments for call to printid
25383127 stack[base + 46LLU] = stack[base + 34/*ceid*/];
25393128 // set stack-base & callee-address
@@ -2541,17 +3130,17 @@
25413130 label = 18446744073709551591LLU; // printid
25423131 break;
25433132 }
2544- case 136LLU: // return from printid to proccall
3133+ case 177LLU: // return from printid to proccall
25453134 {
25463135 stack[base + 41/*n*/] = stack[base + 36/*cerescount*/];
2547- label = 137LLU; // start to repeat
3136+ label = 178LLU; // start to repeat
25483137 break;
25493138 }
2550- case 137LLU: // repeat from here
3139+ case 178LLU: // repeat from here
25513140 {
25523141 if(!stack[base + 41/*n*/])
25533142 {
2554- label = 138LLU; // break loop
3143+ label = 179LLU; // break loop
25553144 break;
25563145 }
25573146
@@ -2558,7 +3147,7 @@
25583147 // loop body
25593148 // call sub from proccall
25603149 stack[base + 44LLU] = base;
2561- stack[base + 45LLU] = 139LLU;
3150+ stack[base + 45LLU] = 180LLU;
25623151 // arguments for call to sub
25633152 stack[base + 47LLU] = stack[base + 36/*cerescount*/];
25643153 stack[base + 48LLU] = stack[base + 41/*n*/];
@@ -2567,13 +3156,13 @@
25673156 label = 18446744073709551607LLU; // sub
25683157 break;
25693158 }
2570- case 139LLU: // return from sub to proccall
3159+ case 180LLU: // return from sub to proccall
25713160 {
25723161 // copy back results provided by call to sub
25733162 stack[base + 42/*index*/] = stack[base + 46LLU];
25743163 // call sub from proccall
25753164 stack[base + 44LLU] = base;
2576- stack[base + 45LLU] = 140LLU;
3165+ stack[base + 45LLU] = 181LLU;
25773166 // arguments for call to sub
25783167 stack[base + 47LLU] = stack[base + 41/*n*/];
25793168 stack[base + 48LLU] = 1LLU;
@@ -2582,13 +3171,13 @@
25823171 label = 18446744073709551607LLU; // sub
25833172 break;
25843173 }
2585- case 140LLU: // return from sub to proccall
3174+ case 181LLU: // return from sub to proccall
25863175 {
25873176 // copy back results provided by call to sub
25883177 stack[base + 41/*n*/] = stack[base + 46LLU];
25893178 if(!stack[base + 42/*index*/])
25903179 {
2591- label = 141LLU; // jump to alternative
3180+ label = 182LLU; // jump to alternative
25923181 break;
25933182 }
25943183
@@ -2595,7 +3184,7 @@
25953184 // consequent
25963185 // call matchsym from proccall
25973186 stack[base + 44LLU] = base;
2598- stack[base + 45LLU] = 143LLU;
3187+ stack[base + 45LLU] = 184LLU;
25993188 // arguments for call to matchsym
26003189 stack[base + 47LLU] = 44LLU;
26013190 stack[base + 48LLU] = stack[base + 29/*lookahead*/];
@@ -2604,23 +3193,23 @@
26043193 label = 12LLU; // matchsym
26053194 break;
26063195 }
2607- case 143LLU: // return from matchsym to proccall
3196+ case 184LLU: // return from matchsym to proccall
26083197 {
26093198 // copy back results provided by call to matchsym
26103199 stack[base + 29/*lookahead*/] = stack[base + 46LLU];
2611- label = 142LLU; // consequent complete
3200+ label = 183LLU; // consequent complete
26123201 break;
26133202 }
2614- case 141LLU: // alternative
3203+ case 182LLU: // alternative
26153204 {
2616- label = 142LLU; // alternative complete
3205+ label = 183LLU; // alternative complete
26173206 break;
26183207 }
2619- case 142LLU: // completed if-then-else
3208+ case 183LLU: // completed if-then-else
26203209 {
26213210 // call parsetoken from proccall
26223211 stack[base + 44LLU] = base;
2623- stack[base + 45LLU] = 144LLU;
3212+ stack[base + 45LLU] = 185LLU;
26243213 // arguments for call to parsetoken
26253214 stack[base + 49LLU] = stack[base + 29/*lookahead*/];
26263215 // set stack-base & callee-address
@@ -2628,7 +3217,7 @@
26283217 label = 18446744073709551588LLU; // parsetoken
26293218 break;
26303219 }
2631- case 144LLU: // return from parsetoken to proccall
3220+ case 185LLU: // return from parsetoken to proccall
26323221 {
26333222 // copy back results provided by call to parsetoken
26343223 stack[base + 30/*variant*/] = stack[base + 46LLU];
@@ -2636,7 +3225,7 @@
26363225 stack[base + 29/*lookahead*/] = stack[base + 48LLU];
26373226 // call equ from proccall
26383227 stack[base + 44LLU] = base;
2639- stack[base + 45LLU] = 145LLU;
3228+ stack[base + 45LLU] = 186LLU;
26403229 // arguments for call to equ
26413230 stack[base + 47LLU] = stack[base + 30/*variant*/];
26423231 stack[base + 48LLU] = 4LLU;
@@ -2645,26 +3234,26 @@
26453234 label = 18446744073709551603LLU; // equ
26463235 break;
26473236 }
2648- case 145LLU: // return from equ to proccall
3237+ case 186LLU: // return from equ to proccall
26493238 {
26503239 // copy back results provided by call to equ
26513240 stack[base + 39/*isequal*/] = stack[base + 46LLU];
26523241 if(!stack[base + 39/*isequal*/])
26533242 {
2654- label = 146LLU; // jump to alternative
3243+ label = 187LLU; // jump to alternative
26553244 break;
26563245 }
26573246
26583247 // consequent
2659- label = 147LLU; // consequent complete
3248+ label = 188LLU; // consequent complete
26603249 break;
26613250 }
2662- case 146LLU: // alternative
3251+ case 187LLU: // alternative
26633252 {
26643253 fprintf(stderr, "%s", "expected identifier as argument but found ");
26653254 // call reporttok from proccall
26663255 stack[base + 44LLU] = base;
2667- stack[base + 45LLU] = 148LLU;
3256+ stack[base + 45LLU] = 189LLU;
26683257 // arguments for call to reporttok
26693258 stack[base + 46LLU] = stack[base + 30/*variant*/];
26703259 stack[base + 47LLU] = stack[base + 31/*content*/];
@@ -2673,18 +3262,18 @@
26733262 label = 18446744073709551586LLU; // reporttok
26743263 break;
26753264 }
2676- case 148LLU: // return from reporttok to proccall
3265+ case 189LLU: // return from reporttok to proccall
26773266 {
26783267 exit(-1);
2679- label = 147LLU; // alternative complete
3268+ label = 188LLU; // alternative complete
26803269 break;
26813270 }
2682- case 147LLU: // completed if-then-else
3271+ case 188LLU: // completed if-then-else
26833272 {
26843273 stack[base + 40/*sum*/] = 0;
26853274 // call add from proccall
26863275 stack[base + 44LLU] = base;
2687- stack[base + 45LLU] = 149LLU;
3276+ stack[base + 45LLU] = 190LLU;
26883277 // arguments for call to add
26893278 stack[base + 47LLU] = 3LLU;
26903279 stack[base + 48LLU] = stack[base + 40/*sum*/];
@@ -2693,13 +3282,13 @@
26933282 label = 18446744073709551608LLU; // add
26943283 break;
26953284 }
2696- case 149LLU: // return from add to proccall
3285+ case 190LLU: // return from add to proccall
26973286 {
26983287 // copy back results provided by call to add
26993288 stack[base + 40/*sum*/] = stack[base + 46LLU];
27003289 // call add from proccall
27013290 stack[base + 44LLU] = base;
2702- stack[base + 45LLU] = 150LLU;
3291+ stack[base + 45LLU] = 191LLU;
27033292 // arguments for call to add
27043293 stack[base + 47LLU] = stack[base + 42/*index*/];
27053294 stack[base + 48LLU] = stack[base + 40/*sum*/];
@@ -2708,7 +3297,7 @@
27083297 label = 18446744073709551608LLU; // add
27093298 break;
27103299 }
2711- case 150LLU: // return from add to proccall
3300+ case 191LLU: // return from add to proccall
27123301 {
27133302 // copy back results provided by call to add
27143303 stack[base + 40/*sum*/] = stack[base + 46LLU];
@@ -2715,7 +3304,7 @@
27153304 printf("%s", "\n old");
27163305 // call emitvar from proccall
27173306 stack[base + 44LLU] = base;
2718- stack[base + 45LLU] = 151LLU;
3307+ stack[base + 45LLU] = 192LLU;
27193308 // arguments for call to emitvar
27203309 stack[base + 46LLU] = stack[base + 31/*content*/];
27213310 stack[base + 47LLU] = stack[base + 19/*scopes*/];
@@ -2725,12 +3314,12 @@
27253314 label = 74LLU; // emitvar
27263315 break;
27273316 }
2728- case 151LLU: // return from emitvar to proccall
3317+ case 192LLU: // return from emitvar to proccall
27293318 {
27303319 printf("%s", " = stack[");
27313320 // call printnr from proccall
27323321 stack[base + 44LLU] = base;
2733- stack[base + 45LLU] = 152LLU;
3322+ stack[base + 45LLU] = 193LLU;
27343323 // arguments for call to printnr
27353324 stack[base + 46LLU] = stack[base + 40/*sum*/];
27363325 // set stack-base & callee-address
@@ -2738,17 +3327,17 @@
27383327 label = 18446744073709551594LLU; // printnr
27393328 break;
27403329 }
2741- case 152LLU: // return from printnr to proccall
3330+ case 193LLU: // return from printnr to proccall
27423331 {
27433332 printf("%s", "LLU];");
2744- label = 137LLU; // repeat
3333+ label = 178LLU; // repeat
27453334 break;
27463335 }
2747- case 138LLU: // loop finished
3336+ case 179LLU: // loop finished
27483337 {
27493338 // call matchsym from proccall
27503339 stack[base + 44LLU] = base;
2751- stack[base + 45LLU] = 153LLU;
3340+ stack[base + 45LLU] = 194LLU;
27523341 // arguments for call to matchsym
27533342 stack[base + 47LLU] = 41LLU;
27543343 stack[base + 48LLU] = stack[base + 29/*lookahead*/];
@@ -2757,24 +3346,24 @@
27573346 label = 12LLU; // matchsym
27583347 break;
27593348 }
2760- case 153LLU: // return from matchsym to proccall
3349+ case 194LLU: // return from matchsym to proccall
27613350 {
27623351 // copy back results provided by call to matchsym
27633352 stack[base + 29/*lookahead*/] = stack[base + 46LLU];
2764- label = 132LLU; // consequent complete
3353+ label = 173LLU; // consequent complete
27653354 break;
27663355 }
2767- case 131LLU: // alternative
3356+ case 172LLU: // alternative
27683357 {
2769- label = 132LLU; // alternative complete
3358+ label = 173LLU; // alternative complete
27703359 break;
27713360 }
2772- case 132LLU: // completed if-then-else
3361+ case 173LLU: // completed if-then-else
27733362 {
27743363 printf("%s", "\n if(stack[");
27753364 // call printnr from proccall
27763365 stack[base + 44LLU] = base;
2777- stack[base + 45LLU] = 154LLU;
3366+ stack[base + 45LLU] = 195LLU;
27783367 // arguments for call to printnr
27793368 stack[base + 46LLU] = stack[base + 43/*recsztotal*/];
27803369 // set stack-base & callee-address
@@ -2782,7 +3371,7 @@
27823371 label = 18446744073709551594LLU; // printnr
27833372 break;
27843373 }
2785- case 154LLU: // return from printnr to proccall
3374+ case 195LLU: // return from printnr to proccall
27863375 {
27873376 printf("%s", "LLU] != 9876543210LLU)");
27883377 printf("%s", "\n {");
@@ -2789,7 +3378,7 @@
27893378 printf("%s", "\n fprintf(stderr, \"INTERNAL ERROR - OVERFLOW (in recursive call to ");
27903379 // call printid from proccall
27913380 stack[base + 44LLU] = base;
2792- stack[base + 45LLU] = 155LLU;
3381+ stack[base + 45LLU] = 196LLU;
27933382 // arguments for call to printid
27943383 stack[base + 46LLU] = stack[base + 34/*ceid*/];
27953384 // set stack-base & callee-address
@@ -2797,7 +3386,7 @@
27973386 label = 18446744073709551591LLU; // printid
27983387 break;
27993388 }
2800- case 155LLU: // return from printid to proccall
3389+ case 196LLU: // return from printid to proccall
28013390 {
28023391 printf("%s", ")!\");");
28033392 printf("%s", "\n exit(-1);");
@@ -2804,15 +3393,15 @@
28043393 printf("%s", "\n }");
28053394 printf("%s", "\n free(stack);");
28063395 printf("%s", "\n stack = oldstack;");
2807- label = 80LLU; // consequent complete
3396+ label = 121LLU; // consequent complete
28083397 break;
28093398 }
2810- case 79LLU: // alternative
3399+ case 120LLU: // alternative
28113400 {
28123401 printf("%s", "\n // call ");
28133402 // call printid from proccall
28143403 stack[base + 43LLU] = base;
2815- stack[base + 44LLU] = 156LLU;
3404+ stack[base + 44LLU] = 197LLU;
28163405 // arguments for call to printid
28173406 stack[base + 45LLU] = stack[base + 34/*ceid*/];
28183407 // set stack-base & callee-address
@@ -2820,12 +3409,12 @@
28203409 label = 18446744073709551591LLU; // printid
28213410 break;
28223411 }
2823- case 156LLU: // return from printid to proccall
3412+ case 197LLU: // return from printid to proccall
28243413 {
28253414 printf("%s", " from ");
28263415 // call printid from proccall
28273416 stack[base + 43LLU] = base;
2828- stack[base + 44LLU] = 157LLU;
3417+ stack[base + 44LLU] = 198LLU;
28293418 // arguments for call to printid
28303419 stack[base + 45LLU] = stack[base + 24/*fnid*/];
28313420 // set stack-base & callee-address
@@ -2833,12 +3422,12 @@
28333422 label = 18446744073709551591LLU; // printid
28343423 break;
28353424 }
2836- case 157LLU: // return from printid to proccall
3425+ case 198LLU: // return from printid to proccall
28373426 {
28383427 stack[base + 40/*sum*/] = 0;
28393428 // call add from proccall
28403429 stack[base + 43LLU] = base;
2841- stack[base + 44LLU] = 158LLU;
3430+ stack[base + 44LLU] = 199LLU;
28423431 // arguments for call to add
28433432 stack[base + 46LLU] = stack[base + 22/*offset*/];
28443433 stack[base + 47LLU] = stack[base + 40/*sum*/];
@@ -2847,13 +3436,13 @@
28473436 label = 18446744073709551608LLU; // add
28483437 break;
28493438 }
2850- case 158LLU: // return from add to proccall
3439+ case 199LLU: // return from add to proccall
28513440 {
28523441 // copy back results provided by call to add
28533442 stack[base + 40/*sum*/] = stack[base + 45LLU];
28543443 // call add from proccall
28553444 stack[base + 43LLU] = base;
2856- stack[base + 44LLU] = 159LLU;
3445+ stack[base + 44LLU] = 200LLU;
28573446 // arguments for call to add
28583447 stack[base + 46LLU] = stack[base + 26/*fnrescount*/];
28593448 stack[base + 47LLU] = stack[base + 40/*sum*/];
@@ -2862,13 +3451,13 @@
28623451 label = 18446744073709551608LLU; // add
28633452 break;
28643453 }
2865- case 159LLU: // return from add to proccall
3454+ case 200LLU: // return from add to proccall
28663455 {
28673456 // copy back results provided by call to add
28683457 stack[base + 40/*sum*/] = stack[base + 45LLU];
28693458 // call add from proccall
28703459 stack[base + 43LLU] = base;
2871- stack[base + 44LLU] = 160LLU;
3460+ stack[base + 44LLU] = 201LLU;
28723461 // arguments for call to add
28733462 stack[base + 46LLU] = stack[base + 27/*fnargcount*/];
28743463 stack[base + 47LLU] = stack[base + 40/*sum*/];
@@ -2877,13 +3466,13 @@
28773466 label = 18446744073709551608LLU; // add
28783467 break;
28793468 }
2880- case 160LLU: // return from add to proccall
3469+ case 201LLU: // return from add to proccall
28813470 {
28823471 // copy back results provided by call to add
28833472 stack[base + 40/*sum*/] = stack[base + 45LLU];
28843473 // call add from proccall
28853474 stack[base + 43LLU] = base;
2886- stack[base + 44LLU] = 161LLU;
3475+ stack[base + 44LLU] = 202LLU;
28873476 // arguments for call to add
28883477 stack[base + 46LLU] = 0LLU;
28893478 stack[base + 47LLU] = stack[base + 40/*sum*/];
@@ -2892,7 +3481,7 @@
28923481 label = 18446744073709551608LLU; // add
28933482 break;
28943483 }
2895- case 161LLU: // return from add to proccall
3484+ case 202LLU: // return from add to proccall
28963485 {
28973486 // copy back results provided by call to add
28983487 stack[base + 40/*sum*/] = stack[base + 45LLU];
@@ -2899,7 +3488,7 @@
28993488 printf("%s", "\n stack[base + ");
29003489 // call printnr from proccall
29013490 stack[base + 43LLU] = base;
2902- stack[base + 44LLU] = 162LLU;
3491+ stack[base + 44LLU] = 203LLU;
29033492 // arguments for call to printnr
29043493 stack[base + 45LLU] = stack[base + 40/*sum*/];
29053494 // set stack-base & callee-address
@@ -2907,13 +3496,13 @@
29073496 label = 18446744073709551594LLU; // printnr
29083497 break;
29093498 }
2910- case 162LLU: // return from printnr to proccall
3499+ case 203LLU: // return from printnr to proccall
29113500 {
29123501 printf("%s", "LLU] = base;");
29133502 stack[base + 40/*sum*/] = 0;
29143503 // call add from proccall
29153504 stack[base + 43LLU] = base;
2916- stack[base + 44LLU] = 163LLU;
3505+ stack[base + 44LLU] = 204LLU;
29173506 // arguments for call to add
29183507 stack[base + 46LLU] = stack[base + 22/*offset*/];
29193508 stack[base + 47LLU] = stack[base + 40/*sum*/];
@@ -2922,13 +3511,13 @@
29223511 label = 18446744073709551608LLU; // add
29233512 break;
29243513 }
2925- case 163LLU: // return from add to proccall
3514+ case 204LLU: // return from add to proccall
29263515 {
29273516 // copy back results provided by call to add
29283517 stack[base + 40/*sum*/] = stack[base + 45LLU];
29293518 // call add from proccall
29303519 stack[base + 43LLU] = base;
2931- stack[base + 44LLU] = 164LLU;
3520+ stack[base + 44LLU] = 205LLU;
29323521 // arguments for call to add
29333522 stack[base + 46LLU] = stack[base + 26/*fnrescount*/];
29343523 stack[base + 47LLU] = stack[base + 40/*sum*/];
@@ -2937,13 +3526,13 @@
29373526 label = 18446744073709551608LLU; // add
29383527 break;
29393528 }
2940- case 164LLU: // return from add to proccall
3529+ case 205LLU: // return from add to proccall
29413530 {
29423531 // copy back results provided by call to add
29433532 stack[base + 40/*sum*/] = stack[base + 45LLU];
29443533 // call add from proccall
29453534 stack[base + 43LLU] = base;
2946- stack[base + 44LLU] = 165LLU;
3535+ stack[base + 44LLU] = 206LLU;
29473536 // arguments for call to add
29483537 stack[base + 46LLU] = stack[base + 27/*fnargcount*/];
29493538 stack[base + 47LLU] = stack[base + 40/*sum*/];
@@ -2952,13 +3541,13 @@
29523541 label = 18446744073709551608LLU; // add
29533542 break;
29543543 }
2955- case 165LLU: // return from add to proccall
3544+ case 206LLU: // return from add to proccall
29563545 {
29573546 // copy back results provided by call to add
29583547 stack[base + 40/*sum*/] = stack[base + 45LLU];
29593548 // call add from proccall
29603549 stack[base + 43LLU] = base;
2961- stack[base + 44LLU] = 166LLU;
3550+ stack[base + 44LLU] = 207LLU;
29623551 // arguments for call to add
29633552 stack[base + 46LLU] = 1LLU;
29643553 stack[base + 47LLU] = stack[base + 40/*sum*/];
@@ -2967,13 +3556,13 @@
29673556 label = 18446744073709551608LLU; // add
29683557 break;
29693558 }
2970- case 166LLU: // return from add to proccall
3559+ case 207LLU: // return from add to proccall
29713560 {
29723561 // copy back results provided by call to add
29733562 stack[base + 40/*sum*/] = stack[base + 45LLU];
29743563 // call add from proccall
29753564 stack[base + 43LLU] = base;
2976- stack[base + 44LLU] = 167LLU;
3565+ stack[base + 44LLU] = 208LLU;
29773566 // arguments for call to add
29783567 stack[base + 46LLU] = 1LLU;
29793568 stack[base + 47LLU] = stack[base + 32/*label*/];
@@ -2982,7 +3571,7 @@
29823571 label = 18446744073709551608LLU; // add
29833572 break;
29843573 }
2985- case 167LLU: // return from add to proccall
3574+ case 208LLU: // return from add to proccall
29863575 {
29873576 // copy back results provided by call to add
29883577 stack[base + 32/*label*/] = stack[base + 45LLU];
@@ -2989,7 +3578,7 @@
29893578 printf("%s", "\n stack[base + ");
29903579 // call printnr from proccall
29913580 stack[base + 43LLU] = base;
2992- stack[base + 44LLU] = 168LLU;
3581+ stack[base + 44LLU] = 209LLU;
29933582 // arguments for call to printnr
29943583 stack[base + 45LLU] = stack[base + 40/*sum*/];
29953584 // set stack-base & callee-address
@@ -2997,12 +3586,12 @@
29973586 label = 18446744073709551594LLU; // printnr
29983587 break;
29993588 }
3000- case 168LLU: // return from printnr to proccall
3589+ case 209LLU: // return from printnr to proccall
30013590 {
30023591 printf("%s", "LLU] = ");
30033592 // call printnr from proccall
30043593 stack[base + 43LLU] = base;
3005- stack[base + 44LLU] = 169LLU;
3594+ stack[base + 44LLU] = 210LLU;
30063595 // arguments for call to printnr
30073596 stack[base + 45LLU] = stack[base + 32/*label*/];
30083597 // set stack-base & callee-address
@@ -3010,7 +3599,7 @@
30103599 label = 18446744073709551594LLU; // printnr
30113600 break;
30123601 }
3013- case 169LLU: // return from printnr to proccall
3602+ case 210LLU: // return from printnr to proccall
30143603 {
30153604 printf("%s", "LLU;");
30163605 stack[base + 41/*n*/] = stack[base + 37/*ceargcount*/];
@@ -3017,7 +3606,7 @@
30173606 printf("%s", "\n // arguments for call to ");
30183607 // call printid from proccall
30193608 stack[base + 43LLU] = base;
3020- stack[base + 44LLU] = 170LLU;
3609+ stack[base + 44LLU] = 211LLU;
30213610 // arguments for call to printid
30223611 stack[base + 45LLU] = stack[base + 34/*ceid*/];
30233612 // set stack-base & callee-address
@@ -3025,16 +3614,16 @@
30253614 label = 18446744073709551591LLU; // printid
30263615 break;
30273616 }
3028- case 170LLU: // return from printid to proccall
3617+ case 211LLU: // return from printid to proccall
30293618 {
3030- label = 171LLU; // start to repeat
3619+ label = 212LLU; // start to repeat
30313620 break;
30323621 }
3033- case 171LLU: // repeat from here
3622+ case 212LLU: // repeat from here
30343623 {
30353624 if(!stack[base + 41/*n*/])
30363625 {
3037- label = 172LLU; // break loop
3626+ label = 213LLU; // break loop
30383627 break;
30393628 }
30403629
@@ -3041,7 +3630,7 @@
30413630 // loop body
30423631 // call sub from proccall
30433632 stack[base + 43LLU] = base;
3044- stack[base + 44LLU] = 173LLU;
3633+ stack[base + 44LLU] = 214LLU;
30453634 // arguments for call to sub
30463635 stack[base + 46LLU] = stack[base + 37/*ceargcount*/];
30473636 stack[base + 47LLU] = stack[base + 41/*n*/];
@@ -3050,13 +3639,13 @@
30503639 label = 18446744073709551607LLU; // sub
30513640 break;
30523641 }
3053- case 173LLU: // return from sub to proccall
3642+ case 214LLU: // return from sub to proccall
30543643 {
30553644 // copy back results provided by call to sub
30563645 stack[base + 42/*index*/] = stack[base + 45LLU];
30573646 // call sub from proccall
30583647 stack[base + 43LLU] = base;
3059- stack[base + 44LLU] = 174LLU;
3648+ stack[base + 44LLU] = 215LLU;
30603649 // arguments for call to sub
30613650 stack[base + 46LLU] = stack[base + 41/*n*/];
30623651 stack[base + 47LLU] = 1LLU;
@@ -3065,13 +3654,13 @@
30653654 label = 18446744073709551607LLU; // sub
30663655 break;
30673656 }
3068- case 174LLU: // return from sub to proccall
3657+ case 215LLU: // return from sub to proccall
30693658 {
30703659 // copy back results provided by call to sub
30713660 stack[base + 41/*n*/] = stack[base + 45LLU];
30723661 if(!stack[base + 42/*index*/])
30733662 {
3074- label = 175LLU; // jump to alternative
3663+ label = 216LLU; // jump to alternative
30753664 break;
30763665 }
30773666
@@ -3078,7 +3667,7 @@
30783667 // consequent
30793668 // call matchsym from proccall
30803669 stack[base + 43LLU] = base;
3081- stack[base + 44LLU] = 177LLU;
3670+ stack[base + 44LLU] = 218LLU;
30823671 // arguments for call to matchsym
30833672 stack[base + 46LLU] = 44LLU;
30843673 stack[base + 47LLU] = stack[base + 29/*lookahead*/];
@@ -3087,24 +3676,24 @@
30873676 label = 12LLU; // matchsym
30883677 break;
30893678 }
3090- case 177LLU: // return from matchsym to proccall
3679+ case 218LLU: // return from matchsym to proccall
30913680 {
30923681 // copy back results provided by call to matchsym
30933682 stack[base + 29/*lookahead*/] = stack[base + 45LLU];
3094- label = 176LLU; // consequent complete
3683+ label = 217LLU; // consequent complete
30953684 break;
30963685 }
3097- case 175LLU: // alternative
3686+ case 216LLU: // alternative
30983687 {
3099- label = 176LLU; // alternative complete
3688+ label = 217LLU; // alternative complete
31003689 break;
31013690 }
3102- case 176LLU: // completed if-then-else
3691+ case 217LLU: // completed if-then-else
31033692 {
31043693 stack[base + 40/*sum*/] = 0;
31053694 // call add from proccall
31063695 stack[base + 43LLU] = base;
3107- stack[base + 44LLU] = 178LLU;
3696+ stack[base + 44LLU] = 219LLU;
31083697 // arguments for call to add
31093698 stack[base + 46LLU] = stack[base + 22/*offset*/];
31103699 stack[base + 47LLU] = stack[base + 40/*sum*/];
@@ -3113,13 +3702,13 @@
31133702 label = 18446744073709551608LLU; // add
31143703 break;
31153704 }
3116- case 178LLU: // return from add to proccall
3705+ case 219LLU: // return from add to proccall
31173706 {
31183707 // copy back results provided by call to add
31193708 stack[base + 40/*sum*/] = stack[base + 45LLU];
31203709 // call add from proccall
31213710 stack[base + 43LLU] = base;
3122- stack[base + 44LLU] = 179LLU;
3711+ stack[base + 44LLU] = 220LLU;
31233712 // arguments for call to add
31243713 stack[base + 46LLU] = 2LLU;
31253714 stack[base + 47LLU] = stack[base + 40/*sum*/];
@@ -3128,13 +3717,13 @@
31283717 label = 18446744073709551608LLU; // add
31293718 break;
31303719 }
3131- case 179LLU: // return from add to proccall
3720+ case 220LLU: // return from add to proccall
31323721 {
31333722 // copy back results provided by call to add
31343723 stack[base + 40/*sum*/] = stack[base + 45LLU];
31353724 // call add from proccall
31363725 stack[base + 43LLU] = base;
3137- stack[base + 44LLU] = 180LLU;
3726+ stack[base + 44LLU] = 221LLU;
31383727 // arguments for call to add
31393728 stack[base + 46LLU] = stack[base + 26/*fnrescount*/];
31403729 stack[base + 47LLU] = stack[base + 40/*sum*/];
@@ -3143,13 +3732,13 @@
31433732 label = 18446744073709551608LLU; // add
31443733 break;
31453734 }
3146- case 180LLU: // return from add to proccall
3735+ case 221LLU: // return from add to proccall
31473736 {
31483737 // copy back results provided by call to add
31493738 stack[base + 40/*sum*/] = stack[base + 45LLU];
31503739 // call add from proccall
31513740 stack[base + 43LLU] = base;
3152- stack[base + 44LLU] = 181LLU;
3741+ stack[base + 44LLU] = 222LLU;
31533742 // arguments for call to add
31543743 stack[base + 46LLU] = stack[base + 27/*fnargcount*/];
31553744 stack[base + 47LLU] = stack[base + 40/*sum*/];
@@ -3158,13 +3747,13 @@
31583747 label = 18446744073709551608LLU; // add
31593748 break;
31603749 }
3161- case 181LLU: // return from add to proccall
3750+ case 222LLU: // return from add to proccall
31623751 {
31633752 // copy back results provided by call to add
31643753 stack[base + 40/*sum*/] = stack[base + 45LLU];
31653754 // call add from proccall
31663755 stack[base + 43LLU] = base;
3167- stack[base + 44LLU] = 182LLU;
3756+ stack[base + 44LLU] = 223LLU;
31683757 // arguments for call to add
31693758 stack[base + 46LLU] = stack[base + 36/*cerescount*/];
31703759 stack[base + 47LLU] = stack[base + 40/*sum*/];
@@ -3173,13 +3762,13 @@
31733762 label = 18446744073709551608LLU; // add
31743763 break;
31753764 }
3176- case 182LLU: // return from add to proccall
3765+ case 223LLU: // return from add to proccall
31773766 {
31783767 // copy back results provided by call to add
31793768 stack[base + 40/*sum*/] = stack[base + 45LLU];
31803769 // call add from proccall
31813770 stack[base + 43LLU] = base;
3182- stack[base + 44LLU] = 183LLU;
3771+ stack[base + 44LLU] = 224LLU;
31833772 // arguments for call to add
31843773 stack[base + 46LLU] = stack[base + 42/*index*/];
31853774 stack[base + 47LLU] = stack[base + 40/*sum*/];
@@ -3188,13 +3777,13 @@
31883777 label = 18446744073709551608LLU; // add
31893778 break;
31903779 }
3191- case 183LLU: // return from add to proccall
3780+ case 224LLU: // return from add to proccall
31923781 {
31933782 // copy back results provided by call to add
31943783 stack[base + 40/*sum*/] = stack[base + 45LLU];
31953784 // call parsetoken from proccall
31963785 stack[base + 43LLU] = base;
3197- stack[base + 44LLU] = 184LLU;
3786+ stack[base + 44LLU] = 225LLU;
31983787 // arguments for call to parsetoken
31993788 stack[base + 48LLU] = stack[base + 29/*lookahead*/];
32003789 // set stack-base & callee-address
@@ -3202,7 +3791,7 @@
32023791 label = 18446744073709551588LLU; // parsetoken
32033792 break;
32043793 }
3205- case 184LLU: // return from parsetoken to proccall
3794+ case 225LLU: // return from parsetoken to proccall
32063795 {
32073796 // copy back results provided by call to parsetoken
32083797 stack[base + 30/*variant*/] = stack[base + 45LLU];
@@ -3210,7 +3799,7 @@
32103799 stack[base + 29/*lookahead*/] = stack[base + 47LLU];
32113800 // call equ from proccall
32123801 stack[base + 43LLU] = base;
3213- stack[base + 44LLU] = 185LLU;
3802+ stack[base + 44LLU] = 226LLU;
32143803 // arguments for call to equ
32153804 stack[base + 46LLU] = stack[base + 30/*variant*/];
32163805 stack[base + 47LLU] = 1LLU;
@@ -3219,13 +3808,13 @@
32193808 label = 18446744073709551603LLU; // equ
32203809 break;
32213810 }
3222- case 185LLU: // return from equ to proccall
3811+ case 226LLU: // return from equ to proccall
32233812 {
32243813 // copy back results provided by call to equ
32253814 stack[base + 39/*isequal*/] = stack[base + 45LLU];
32263815 if(!stack[base + 39/*isequal*/])
32273816 {
3228- label = 186LLU; // jump to alternative
3817+ label = 227LLU; // jump to alternative
32293818 break;
32303819 }
32313820
@@ -3233,7 +3822,7 @@
32333822 printf("%s", "\n stack[base + ");
32343823 // call printnr from proccall
32353824 stack[base + 43LLU] = base;
3236- stack[base + 44LLU] = 188LLU;
3825+ stack[base + 44LLU] = 229LLU;
32373826 // arguments for call to printnr
32383827 stack[base + 45LLU] = stack[base + 40/*sum*/];
32393828 // set stack-base & callee-address
@@ -3241,12 +3830,12 @@
32413830 label = 18446744073709551594LLU; // printnr
32423831 break;
32433832 }
3244- case 188LLU: // return from printnr to proccall
3833+ case 229LLU: // return from printnr to proccall
32453834 {
32463835 printf("%s", "LLU] = ");
32473836 // call printnr from proccall
32483837 stack[base + 43LLU] = base;
3249- stack[base + 44LLU] = 189LLU;
3838+ stack[base + 44LLU] = 230LLU;
32503839 // arguments for call to printnr
32513840 stack[base + 45LLU] = stack[base + 31/*content*/];
32523841 // set stack-base & callee-address
@@ -3254,17 +3843,17 @@
32543843 label = 18446744073709551594LLU; // printnr
32553844 break;
32563845 }
3257- case 189LLU: // return from printnr to proccall
3846+ case 230LLU: // return from printnr to proccall
32583847 {
32593848 printf("%s", "LLU;");
3260- label = 187LLU; // consequent complete
3849+ label = 228LLU; // consequent complete
32613850 break;
32623851 }
3263- case 186LLU: // alternative
3852+ case 227LLU: // alternative
32643853 {
32653854 // call equ from proccall
32663855 stack[base + 43LLU] = base;
3267- stack[base + 44LLU] = 190LLU;
3856+ stack[base + 44LLU] = 231LLU;
32683857 // arguments for call to equ
32693858 stack[base + 46LLU] = stack[base + 30/*variant*/];
32703859 stack[base + 47LLU] = 2LLU;
@@ -3273,13 +3862,13 @@
32733862 label = 18446744073709551603LLU; // equ
32743863 break;
32753864 }
3276- case 190LLU: // return from equ to proccall
3865+ case 231LLU: // return from equ to proccall
32773866 {
32783867 // copy back results provided by call to equ
32793868 stack[base + 39/*isequal*/] = stack[base + 45LLU];
32803869 if(!stack[base + 39/*isequal*/])
32813870 {
3282- label = 191LLU; // jump to alternative
3871+ label = 232LLU; // jump to alternative
32833872 break;
32843873 }
32853874
@@ -3287,7 +3876,7 @@
32873876 printf("%s", "\n stack[base + ");
32883877 // call printnr from proccall
32893878 stack[base + 43LLU] = base;
3290- stack[base + 44LLU] = 193LLU;
3879+ stack[base + 44LLU] = 234LLU;
32913880 // arguments for call to printnr
32923881 stack[base + 45LLU] = stack[base + 40/*sum*/];
32933882 // set stack-base & callee-address
@@ -3295,12 +3884,12 @@
32953884 label = 18446744073709551594LLU; // printnr
32963885 break;
32973886 }
3298- case 193LLU: // return from printnr to proccall
3887+ case 234LLU: // return from printnr to proccall
32993888 {
33003889 printf("%s", "LLU] = ");
33013890 // call printnr from proccall
33023891 stack[base + 43LLU] = base;
3303- stack[base + 44LLU] = 194LLU;
3892+ stack[base + 44LLU] = 235LLU;
33043893 // arguments for call to printnr
33053894 stack[base + 45LLU] = stack[base + 31/*content*/];
33063895 // set stack-base & callee-address
@@ -3308,17 +3897,17 @@
33083897 label = 18446744073709551594LLU; // printnr
33093898 break;
33103899 }
3311- case 194LLU: // return from printnr to proccall
3900+ case 235LLU: // return from printnr to proccall
33123901 {
33133902 printf("%s", "LLU;");
3314- label = 192LLU; // consequent complete
3903+ label = 233LLU; // consequent complete
33153904 break;
33163905 }
3317- case 191LLU: // alternative
3906+ case 232LLU: // alternative
33183907 {
33193908 // call equ from proccall
33203909 stack[base + 43LLU] = base;
3321- stack[base + 44LLU] = 195LLU;
3910+ stack[base + 44LLU] = 236LLU;
33223911 // arguments for call to equ
33233912 stack[base + 46LLU] = stack[base + 30/*variant*/];
33243913 stack[base + 47LLU] = 3LLU;
@@ -3327,13 +3916,13 @@
33273916 label = 18446744073709551603LLU; // equ
33283917 break;
33293918 }
3330- case 195LLU: // return from equ to proccall
3919+ case 236LLU: // return from equ to proccall
33313920 {
33323921 // copy back results provided by call to equ
33333922 stack[base + 39/*isequal*/] = stack[base + 45LLU];
33343923 if(!stack[base + 39/*isequal*/])
33353924 {
3336- label = 196LLU; // jump to alternative
3925+ label = 237LLU; // jump to alternative
33373926 break;
33383927 }
33393928
@@ -3341,7 +3930,7 @@
33413930 printf("%s", "\n stack[base + ");
33423931 // call printnr from proccall
33433932 stack[base + 43LLU] = base;
3344- stack[base + 44LLU] = 198LLU;
3933+ stack[base + 44LLU] = 239LLU;
33453934 // arguments for call to printnr
33463935 stack[base + 45LLU] = stack[base + 40/*sum*/];
33473936 // set stack-base & callee-address
@@ -3349,12 +3938,12 @@
33493938 label = 18446744073709551594LLU; // printnr
33503939 break;
33513940 }
3352- case 198LLU: // return from printnr to proccall
3941+ case 239LLU: // return from printnr to proccall
33533942 {
33543943 printf("%s", "LLU] = ");
33553944 // call printnr from proccall
33563945 stack[base + 43LLU] = base;
3357- stack[base + 44LLU] = 199LLU;
3946+ stack[base + 44LLU] = 240LLU;
33583947 // arguments for call to printnr
33593948 stack[base + 45LLU] = stack[base + 31/*content*/];
33603949 // set stack-base & callee-address
@@ -3362,12 +3951,12 @@
33623951 label = 18446744073709551594LLU; // printnr
33633952 break;
33643953 }
3365- case 199LLU: // return from printnr to proccall
3954+ case 240LLU: // return from printnr to proccall
33663955 {
33673956 printf("%s", "LLU; // ");
33683957 // call printid from proccall
33693958 stack[base + 43LLU] = base;
3370- stack[base + 44LLU] = 200LLU;
3959+ stack[base + 44LLU] = 241LLU;
33713960 // arguments for call to printid
33723961 stack[base + 45LLU] = stack[base + 31/*content*/];
33733962 // set stack-base & callee-address
@@ -3375,16 +3964,16 @@
33753964 label = 18446744073709551591LLU; // printid
33763965 break;
33773966 }
3378- case 200LLU: // return from printid to proccall
3967+ case 241LLU: // return from printid to proccall
33793968 {
3380- label = 197LLU; // consequent complete
3969+ label = 238LLU; // consequent complete
33813970 break;
33823971 }
3383- case 196LLU: // alternative
3972+ case 237LLU: // alternative
33843973 {
33853974 // call equ from proccall
33863975 stack[base + 43LLU] = base;
3387- stack[base + 44LLU] = 201LLU;
3976+ stack[base + 44LLU] = 242LLU;
33883977 // arguments for call to equ
33893978 stack[base + 46LLU] = stack[base + 30/*variant*/];
33903979 stack[base + 47LLU] = 4LLU;
@@ -3393,13 +3982,13 @@
33933982 label = 18446744073709551603LLU; // equ
33943983 break;
33953984 }
3396- case 201LLU: // return from equ to proccall
3985+ case 242LLU: // return from equ to proccall
33973986 {
33983987 // copy back results provided by call to equ
33993988 stack[base + 39/*isequal*/] = stack[base + 45LLU];
34003989 if(!stack[base + 39/*isequal*/])
34013990 {
3402- label = 202LLU; // jump to alternative
3991+ label = 243LLU; // jump to alternative
34033992 break;
34043993 }
34053994
@@ -3407,7 +3996,7 @@
34073996 printf("%s", "\n stack[base + ");
34083997 // call printnr from proccall
34093998 stack[base + 43LLU] = base;
3410- stack[base + 44LLU] = 204LLU;
3999+ stack[base + 44LLU] = 245LLU;
34114000 // arguments for call to printnr
34124001 stack[base + 45LLU] = stack[base + 40/*sum*/];
34134002 // set stack-base & callee-address
@@ -3415,12 +4004,12 @@
34154004 label = 18446744073709551594LLU; // printnr
34164005 break;
34174006 }
3418- case 204LLU: // return from printnr to proccall
4007+ case 245LLU: // return from printnr to proccall
34194008 {
34204009 printf("%s", "LLU] = ");
34214010 // call emitvar from proccall
34224011 stack[base + 43LLU] = base;
3423- stack[base + 44LLU] = 205LLU;
4012+ stack[base + 44LLU] = 246LLU;
34244013 // arguments for call to emitvar
34254014 stack[base + 45LLU] = stack[base + 31/*content*/];
34264015 stack[base + 46LLU] = stack[base + 19/*scopes*/];
@@ -3430,18 +4019,18 @@
34304019 label = 74LLU; // emitvar
34314020 break;
34324021 }
3433- case 205LLU: // return from emitvar to proccall
4022+ case 246LLU: // return from emitvar to proccall
34344023 {
34354024 printf("%s", ";");
3436- label = 203LLU; // consequent complete
4025+ label = 244LLU; // consequent complete
34374026 break;
34384027 }
3439- case 202LLU: // alternative
4028+ case 243LLU: // alternative
34404029 {
34414030 fprintf(stderr, "%s", "expected identifier or constant argument but found ");
34424031 // call printtoken from proccall
34434032 stack[base + 43LLU] = base;
3444- stack[base + 44LLU] = 206LLU;
4033+ stack[base + 44LLU] = 247LLU;
34454034 // arguments for call to printtoken
34464035 stack[base + 45LLU] = stack[base + 30/*variant*/];
34474036 stack[base + 46LLU] = stack[base + 31/*content*/];
@@ -3450,38 +4039,38 @@
34504039 label = 18446744073709551587LLU; // printtoken
34514040 break;
34524041 }
3453- case 206LLU: // return from printtoken to proccall
4042+ case 247LLU: // return from printtoken to proccall
34544043 {
34554044 fprintf(stderr, "%s", "\n");
34564045 exit(-1);
3457- label = 203LLU; // alternative complete
4046+ label = 244LLU; // alternative complete
34584047 break;
34594048 }
3460- case 203LLU: // completed if-then-else
4049+ case 244LLU: // completed if-then-else
34614050 {
3462- label = 197LLU; // alternative complete
4051+ label = 238LLU; // alternative complete
34634052 break;
34644053 }
3465- case 197LLU: // completed if-then-else
4054+ case 238LLU: // completed if-then-else
34664055 {
3467- label = 192LLU; // alternative complete
4056+ label = 233LLU; // alternative complete
34684057 break;
34694058 }
3470- case 192LLU: // completed if-then-else
4059+ case 233LLU: // completed if-then-else
34714060 {
3472- label = 187LLU; // alternative complete
4061+ label = 228LLU; // alternative complete
34734062 break;
34744063 }
3475- case 187LLU: // completed if-then-else
4064+ case 228LLU: // completed if-then-else
34764065 {
3477- label = 171LLU; // repeat
4066+ label = 212LLU; // repeat
34784067 break;
34794068 }
3480- case 172LLU: // loop finished
4069+ case 213LLU: // loop finished
34814070 {
34824071 // call matchsym from proccall
34834072 stack[base + 43LLU] = base;
3484- stack[base + 44LLU] = 207LLU;
4073+ stack[base + 44LLU] = 248LLU;
34854074 // arguments for call to matchsym
34864075 stack[base + 46LLU] = 41LLU;
34874076 stack[base + 47LLU] = stack[base + 29/*lookahead*/];
@@ -3490,7 +4079,7 @@
34904079 label = 12LLU; // matchsym
34914080 break;
34924081 }
3493- case 207LLU: // return from matchsym to proccall
4082+ case 248LLU: // return from matchsym to proccall
34944083 {
34954084 // copy back results provided by call to matchsym
34964085 stack[base + 29/*lookahead*/] = stack[base + 45LLU];
@@ -3498,7 +4087,7 @@
34984087 stack[base + 40/*sum*/] = 0;
34994088 // call add from proccall
35004089 stack[base + 43LLU] = base;
3501- stack[base + 44LLU] = 208LLU;
4090+ stack[base + 44LLU] = 249LLU;
35024091 // arguments for call to add
35034092 stack[base + 46LLU] = stack[base + 22/*offset*/];
35044093 stack[base + 47LLU] = stack[base + 40/*sum*/];
@@ -3507,13 +4096,13 @@
35074096 label = 18446744073709551608LLU; // add
35084097 break;
35094098 }
3510- case 208LLU: // return from add to proccall
4099+ case 249LLU: // return from add to proccall
35114100 {
35124101 // copy back results provided by call to add
35134102 stack[base + 40/*sum*/] = stack[base + 45LLU];
35144103 // call add from proccall
35154104 stack[base + 43LLU] = base;
3516- stack[base + 44LLU] = 209LLU;
4105+ stack[base + 44LLU] = 250LLU;
35174106 // arguments for call to add
35184107 stack[base + 46LLU] = 2LLU;
35194108 stack[base + 47LLU] = stack[base + 40/*sum*/];
@@ -3522,13 +4111,13 @@
35224111 label = 18446744073709551608LLU; // add
35234112 break;
35244113 }
3525- case 209LLU: // return from add to proccall
4114+ case 250LLU: // return from add to proccall
35264115 {
35274116 // copy back results provided by call to add
35284117 stack[base + 40/*sum*/] = stack[base + 45LLU];
35294118 // call add from proccall
35304119 stack[base + 43LLU] = base;
3531- stack[base + 44LLU] = 210LLU;
4120+ stack[base + 44LLU] = 251LLU;
35324121 // arguments for call to add
35334122 stack[base + 46LLU] = stack[base + 26/*fnrescount*/];
35344123 stack[base + 47LLU] = stack[base + 40/*sum*/];
@@ -3537,13 +4126,13 @@
35374126 label = 18446744073709551608LLU; // add
35384127 break;
35394128 }
3540- case 210LLU: // return from add to proccall
4129+ case 251LLU: // return from add to proccall
35414130 {
35424131 // copy back results provided by call to add
35434132 stack[base + 40/*sum*/] = stack[base + 45LLU];
35444133 // call add from proccall
35454134 stack[base + 43LLU] = base;
3546- stack[base + 44LLU] = 211LLU;
4135+ stack[base + 44LLU] = 252LLU;
35474136 // arguments for call to add
35484137 stack[base + 46LLU] = stack[base + 27/*fnargcount*/];
35494138 stack[base + 47LLU] = stack[base + 40/*sum*/];
@@ -3552,7 +4141,7 @@
35524141 label = 18446744073709551608LLU; // add
35534142 break;
35544143 }
3555- case 211LLU: // return from add to proccall
4144+ case 252LLU: // return from add to proccall
35564145 {
35574146 // copy back results provided by call to add
35584147 stack[base + 40/*sum*/] = stack[base + 45LLU];
@@ -3559,7 +4148,7 @@
35594148 printf("%s", "\n base += ");
35604149 // call printnr from proccall
35614150 stack[base + 43LLU] = base;
3562- stack[base + 44LLU] = 212LLU;
4151+ stack[base + 44LLU] = 253LLU;
35634152 // arguments for call to printnr
35644153 stack[base + 45LLU] = stack[base + 40/*sum*/];
35654154 // set stack-base & callee-address
@@ -3567,13 +4156,13 @@
35674156 label = 18446744073709551594LLU; // printnr
35684157 break;
35694158 }
3570- case 212LLU: // return from printnr to proccall
4159+ case 253LLU: // return from printnr to proccall
35714160 {
35724161 printf("%s", "LLU;");
35734162 printf("%s", "\n label = ");
35744163 // call printnr from proccall
35754164 stack[base + 43LLU] = base;
3576- stack[base + 44LLU] = 213LLU;
4165+ stack[base + 44LLU] = 254LLU;
35774166 // arguments for call to printnr
35784167 stack[base + 45LLU] = stack[base + 35/*celabel*/];
35794168 // set stack-base & callee-address
@@ -3581,12 +4170,12 @@
35814170 label = 18446744073709551594LLU; // printnr
35824171 break;
35834172 }
3584- case 213LLU: // return from printnr to proccall
4173+ case 254LLU: // return from printnr to proccall
35854174 {
35864175 printf("%s", "LLU; // ");
35874176 // call printid from proccall
35884177 stack[base + 43LLU] = base;
3589- stack[base + 44LLU] = 214LLU;
4178+ stack[base + 44LLU] = 255LLU;
35904179 // arguments for call to printid
35914180 stack[base + 45LLU] = stack[base + 34/*ceid*/];
35924181 // set stack-base & callee-address
@@ -3594,7 +4183,7 @@
35944183 label = 18446744073709551591LLU; // printid
35954184 break;
35964185 }
3597- case 214LLU: // return from printid to proccall
4186+ case 255LLU: // return from printid to proccall
35984187 {
35994188 printf("%s", "\n break;");
36004189 printf("%s", "\n }");
@@ -3601,7 +4190,7 @@
36014190 printf("%s", "\n case ");
36024191 // call printnr from proccall
36034192 stack[base + 43LLU] = base;
3604- stack[base + 44LLU] = 215LLU;
4193+ stack[base + 44LLU] = 256LLU;
36054194 // arguments for call to printnr
36064195 stack[base + 45LLU] = stack[base + 32/*label*/];
36074196 // set stack-base & callee-address
@@ -3609,12 +4198,12 @@
36094198 label = 18446744073709551594LLU; // printnr
36104199 break;
36114200 }
3612- case 215LLU: // return from printnr to proccall
4201+ case 256LLU: // return from printnr to proccall
36134202 {
36144203 printf("%s", "LLU: // return from ");
36154204 // call printid from proccall
36164205 stack[base + 43LLU] = base;
3617- stack[base + 44LLU] = 216LLU;
4206+ stack[base + 44LLU] = 257LLU;
36184207 // arguments for call to printid
36194208 stack[base + 45LLU] = stack[base + 34/*ceid*/];
36204209 // set stack-base & callee-address
@@ -3622,12 +4211,12 @@
36224211 label = 18446744073709551591LLU; // printid
36234212 break;
36244213 }
3625- case 216LLU: // return from printid to proccall
4214+ case 257LLU: // return from printid to proccall
36264215 {
36274216 printf("%s", " to ");
36284217 // call printid from proccall
36294218 stack[base + 43LLU] = base;
3630- stack[base + 44LLU] = 217LLU;
4219+ stack[base + 44LLU] = 258LLU;
36314220 // arguments for call to printid
36324221 stack[base + 45LLU] = stack[base + 24/*fnid*/];
36334222 // set stack-base & callee-address
@@ -3635,12 +4224,12 @@
36354224 label = 18446744073709551591LLU; // printid
36364225 break;
36374226 }
3638- case 217LLU: // return from printid to proccall
4227+ case 258LLU: // return from printid to proccall
36394228 {
36404229 printf("%s", "\n {");
36414230 if(!stack[base + 36/*cerescount*/])
36424231 {
3643- label = 218LLU; // jump to alternative
4232+ label = 259LLU; // jump to alternative
36444233 break;
36454234 }
36464235
@@ -3647,7 +4236,7 @@
36474236 // consequent
36484237 // call matchsym from proccall
36494238 stack[base + 43LLU] = base;
3650- stack[base + 44LLU] = 220LLU;
4239+ stack[base + 44LLU] = 261LLU;
36514240 // arguments for call to matchsym
36524241 stack[base + 46LLU] = 45LLU;
36534242 stack[base + 47LLU] = stack[base + 29/*lookahead*/];
@@ -3656,13 +4245,13 @@
36564245 label = 12LLU; // matchsym
36574246 break;
36584247 }
3659- case 220LLU: // return from matchsym to proccall
4248+ case 261LLU: // return from matchsym to proccall
36604249 {
36614250 // copy back results provided by call to matchsym
36624251 stack[base + 29/*lookahead*/] = stack[base + 45LLU];
36634252 // call matchsym from proccall
36644253 stack[base + 43LLU] = base;
3665- stack[base + 44LLU] = 221LLU;
4254+ stack[base + 44LLU] = 262LLU;
36664255 // arguments for call to matchsym
36674256 stack[base + 46LLU] = 62LLU;
36684257 stack[base + 47LLU] = stack[base + 29/*lookahead*/];
@@ -3671,13 +4260,13 @@
36714260 label = 12LLU; // matchsym
36724261 break;
36734262 }
3674- case 221LLU: // return from matchsym to proccall
4263+ case 262LLU: // return from matchsym to proccall
36754264 {
36764265 // copy back results provided by call to matchsym
36774266 stack[base + 29/*lookahead*/] = stack[base + 45LLU];
36784267 // call matchsym from proccall
36794268 stack[base + 43LLU] = base;
3680- stack[base + 44LLU] = 222LLU;
4269+ stack[base + 44LLU] = 263LLU;
36814270 // arguments for call to matchsym
36824271 stack[base + 46LLU] = 40LLU;
36834272 stack[base + 47LLU] = stack[base + 29/*lookahead*/];
@@ -3686,7 +4275,7 @@
36864275 label = 12LLU; // matchsym
36874276 break;
36884277 }
3689- case 222LLU: // return from matchsym to proccall
4278+ case 263LLU: // return from matchsym to proccall
36904279 {
36914280 // copy back results provided by call to matchsym
36924281 stack[base + 29/*lookahead*/] = stack[base + 45LLU];
@@ -3693,7 +4282,7 @@
36934282 printf("%s", "\n // copy back results provided by call to ");
36944283 // call printid from proccall
36954284 stack[base + 43LLU] = base;
3696- stack[base + 44LLU] = 223LLU;
4285+ stack[base + 44LLU] = 264LLU;
36974286 // arguments for call to printid
36984287 stack[base + 45LLU] = stack[base + 34/*ceid*/];
36994288 // set stack-base & callee-address
@@ -3701,17 +4290,17 @@
37014290 label = 18446744073709551591LLU; // printid
37024291 break;
37034292 }
3704- case 223LLU: // return from printid to proccall
4293+ case 264LLU: // return from printid to proccall
37054294 {
37064295 stack[base + 41/*n*/] = stack[base + 36/*cerescount*/];
3707- label = 224LLU; // start to repeat
4296+ label = 265LLU; // start to repeat
37084297 break;
37094298 }
3710- case 224LLU: // repeat from here
4299+ case 265LLU: // repeat from here
37114300 {
37124301 if(!stack[base + 41/*n*/])
37134302 {
3714- label = 225LLU; // break loop
4303+ label = 266LLU; // break loop
37154304 break;
37164305 }
37174306
@@ -3718,7 +4307,7 @@
37184307 // loop body
37194308 // call sub from proccall
37204309 stack[base + 43LLU] = base;
3721- stack[base + 44LLU] = 226LLU;
4310+ stack[base + 44LLU] = 267LLU;
37224311 // arguments for call to sub
37234312 stack[base + 46LLU] = stack[base + 36/*cerescount*/];
37244313 stack[base + 47LLU] = stack[base + 41/*n*/];
@@ -3727,13 +4316,13 @@
37274316 label = 18446744073709551607LLU; // sub
37284317 break;
37294318 }
3730- case 226LLU: // return from sub to proccall
4319+ case 267LLU: // return from sub to proccall
37314320 {
37324321 // copy back results provided by call to sub
37334322 stack[base + 42/*index*/] = stack[base + 45LLU];
37344323 // call sub from proccall
37354324 stack[base + 43LLU] = base;
3736- stack[base + 44LLU] = 227LLU;
4325+ stack[base + 44LLU] = 268LLU;
37374326 // arguments for call to sub
37384327 stack[base + 46LLU] = stack[base + 41/*n*/];
37394328 stack[base + 47LLU] = 1LLU;
@@ -3742,13 +4331,13 @@
37424331 label = 18446744073709551607LLU; // sub
37434332 break;
37444333 }
3745- case 227LLU: // return from sub to proccall
4334+ case 268LLU: // return from sub to proccall
37464335 {
37474336 // copy back results provided by call to sub
37484337 stack[base + 41/*n*/] = stack[base + 45LLU];
37494338 if(!stack[base + 42/*index*/])
37504339 {
3751- label = 228LLU; // jump to alternative
4340+ label = 269LLU; // jump to alternative
37524341 break;
37534342 }
37544343
@@ -3755,7 +4344,7 @@
37554344 // consequent
37564345 // call matchsym from proccall
37574346 stack[base + 43LLU] = base;
3758- stack[base + 44LLU] = 230LLU;
4347+ stack[base + 44LLU] = 271LLU;
37594348 // arguments for call to matchsym
37604349 stack[base + 46LLU] = 44LLU;
37614350 stack[base + 47LLU] = stack[base + 29/*lookahead*/];
@@ -3764,23 +4353,23 @@
37644353 label = 12LLU; // matchsym
37654354 break;
37664355 }
3767- case 230LLU: // return from matchsym to proccall
4356+ case 271LLU: // return from matchsym to proccall
37684357 {
37694358 // copy back results provided by call to matchsym
37704359 stack[base + 29/*lookahead*/] = stack[base + 45LLU];
3771- label = 229LLU; // consequent complete
4360+ label = 270LLU; // consequent complete
37724361 break;
37734362 }
3774- case 228LLU: // alternative
4363+ case 269LLU: // alternative
37754364 {
3776- label = 229LLU; // alternative complete
4365+ label = 270LLU; // alternative complete
37774366 break;
37784367 }
3779- case 229LLU: // completed if-then-else
4368+ case 270LLU: // completed if-then-else
37804369 {
37814370 // call parsetoken from proccall
37824371 stack[base + 43LLU] = base;
3783- stack[base + 44LLU] = 231LLU;
4372+ stack[base + 44LLU] = 272LLU;
37844373 // arguments for call to parsetoken
37854374 stack[base + 48LLU] = stack[base + 29/*lookahead*/];
37864375 // set stack-base & callee-address
@@ -3788,7 +4377,7 @@
37884377 label = 18446744073709551588LLU; // parsetoken
37894378 break;
37904379 }
3791- case 231LLU: // return from parsetoken to proccall
4380+ case 272LLU: // return from parsetoken to proccall
37924381 {
37934382 // copy back results provided by call to parsetoken
37944383 stack[base + 30/*variant*/] = stack[base + 45LLU];
@@ -3796,7 +4385,7 @@
37964385 stack[base + 29/*lookahead*/] = stack[base + 47LLU];
37974386 // call equ from proccall
37984387 stack[base + 43LLU] = base;
3799- stack[base + 44LLU] = 232LLU;
4388+ stack[base + 44LLU] = 273LLU;
38004389 // arguments for call to equ
38014390 stack[base + 46LLU] = stack[base + 30/*variant*/];
38024391 stack[base + 47LLU] = 4LLU;
@@ -3805,26 +4394,26 @@
38054394 label = 18446744073709551603LLU; // equ
38064395 break;
38074396 }
3808- case 232LLU: // return from equ to proccall
4397+ case 273LLU: // return from equ to proccall
38094398 {
38104399 // copy back results provided by call to equ
38114400 stack[base + 39/*isequal*/] = stack[base + 45LLU];
38124401 if(!stack[base + 39/*isequal*/])
38134402 {
3814- label = 233LLU; // jump to alternative
4403+ label = 274LLU; // jump to alternative
38154404 break;
38164405 }
38174406
38184407 // consequent
3819- label = 234LLU; // consequent complete
4408+ label = 275LLU; // consequent complete
38204409 break;
38214410 }
3822- case 233LLU: // alternative
4411+ case 274LLU: // alternative
38234412 {
38244413 fprintf(stderr, "%s", "expected identifier as argument but found ");
38254414 // call reporttok from proccall
38264415 stack[base + 43LLU] = base;
3827- stack[base + 44LLU] = 235LLU;
4416+ stack[base + 44LLU] = 276LLU;
38284417 // arguments for call to reporttok
38294418 stack[base + 45LLU] = stack[base + 30/*variant*/];
38304419 stack[base + 46LLU] = stack[base + 31/*content*/];
@@ -3833,18 +4422,18 @@
38334422 label = 18446744073709551586LLU; // reporttok
38344423 break;
38354424 }
3836- case 235LLU: // return from reporttok to proccall
4425+ case 276LLU: // return from reporttok to proccall
38374426 {
38384427 exit(-1);
3839- label = 234LLU; // alternative complete
4428+ label = 275LLU; // alternative complete
38404429 break;
38414430 }
3842- case 234LLU: // completed if-then-else
4431+ case 275LLU: // completed if-then-else
38434432 {
38444433 stack[base + 40/*sum*/] = 0;
38454434 // call add from proccall
38464435 stack[base + 43LLU] = base;
3847- stack[base + 44LLU] = 236LLU;
4436+ stack[base + 44LLU] = 277LLU;
38484437 // arguments for call to add
38494438 stack[base + 46LLU] = stack[base + 26/*fnrescount*/];
38504439 stack[base + 47LLU] = stack[base + 40/*sum*/];
@@ -3853,13 +4442,13 @@
38534442 label = 18446744073709551608LLU; // add
38544443 break;
38554444 }
3856- case 236LLU: // return from add to proccall
4445+ case 277LLU: // return from add to proccall
38574446 {
38584447 // copy back results provided by call to add
38594448 stack[base + 40/*sum*/] = stack[base + 45LLU];
38604449 // call add from proccall
38614450 stack[base + 43LLU] = base;
3862- stack[base + 44LLU] = 237LLU;
4451+ stack[base + 44LLU] = 278LLU;
38634452 // arguments for call to add
38644453 stack[base + 46LLU] = stack[base + 27/*fnargcount*/];
38654454 stack[base + 47LLU] = stack[base + 40/*sum*/];
@@ -3868,13 +4457,13 @@
38684457 label = 18446744073709551608LLU; // add
38694458 break;
38704459 }
3871- case 237LLU: // return from add to proccall
4460+ case 278LLU: // return from add to proccall
38724461 {
38734462 // copy back results provided by call to add
38744463 stack[base + 40/*sum*/] = stack[base + 45LLU];
38754464 // call add from proccall
38764465 stack[base + 43LLU] = base;
3877- stack[base + 44LLU] = 238LLU;
4466+ stack[base + 44LLU] = 279LLU;
38784467 // arguments for call to add
38794468 stack[base + 46LLU] = stack[base + 22/*offset*/];
38804469 stack[base + 47LLU] = stack[base + 40/*sum*/];
@@ -3883,13 +4472,13 @@
38834472 label = 18446744073709551608LLU; // add
38844473 break;
38854474 }
3886- case 238LLU: // return from add to proccall
4475+ case 279LLU: // return from add to proccall
38874476 {
38884477 // copy back results provided by call to add
38894478 stack[base + 40/*sum*/] = stack[base + 45LLU];
38904479 // call add from proccall
38914480 stack[base + 43LLU] = base;
3892- stack[base + 44LLU] = 239LLU;
4481+ stack[base + 44LLU] = 280LLU;
38934482 // arguments for call to add
38944483 stack[base + 46LLU] = 2LLU;
38954484 stack[base + 47LLU] = stack[base + 40/*sum*/];
@@ -3898,13 +4487,13 @@
38984487 label = 18446744073709551608LLU; // add
38994488 break;
39004489 }
3901- case 239LLU: // return from add to proccall
4490+ case 280LLU: // return from add to proccall
39024491 {
39034492 // copy back results provided by call to add
39044493 stack[base + 40/*sum*/] = stack[base + 45LLU];
39054494 // call add from proccall
39064495 stack[base + 43LLU] = base;
3907- stack[base + 44LLU] = 240LLU;
4496+ stack[base + 44LLU] = 281LLU;
39084497 // arguments for call to add
39094498 stack[base + 46LLU] = stack[base + 42/*index*/];
39104499 stack[base + 47LLU] = stack[base + 40/*sum*/];
@@ -3913,7 +4502,7 @@
39134502 label = 18446744073709551608LLU; // add
39144503 break;
39154504 }
3916- case 240LLU: // return from add to proccall
4505+ case 281LLU: // return from add to proccall
39174506 {
39184507 // copy back results provided by call to add
39194508 stack[base + 40/*sum*/] = stack[base + 45LLU];
@@ -3920,7 +4509,7 @@
39204509 printf("%s", "\n ");
39214510 // call emitvar from proccall
39224511 stack[base + 43LLU] = base;
3923- stack[base + 44LLU] = 241LLU;
4512+ stack[base + 44LLU] = 282LLU;
39244513 // arguments for call to emitvar
39254514 stack[base + 45LLU] = stack[base + 31/*content*/];
39264515 stack[base + 46LLU] = stack[base + 19/*scopes*/];
@@ -3930,12 +4519,12 @@
39304519 label = 74LLU; // emitvar
39314520 break;
39324521 }
3933- case 241LLU: // return from emitvar to proccall
4522+ case 282LLU: // return from emitvar to proccall
39344523 {
39354524 printf("%s", " = stack[base + ");
39364525 // call printnr from proccall
39374526 stack[base + 43LLU] = base;
3938- stack[base + 44LLU] = 242LLU;
4527+ stack[base + 44LLU] = 283LLU;
39394528 // arguments for call to printnr
39404529 stack[base + 45LLU] = stack[base + 40/*sum*/];
39414530 // set stack-base & callee-address
@@ -3943,17 +4532,17 @@
39434532 label = 18446744073709551594LLU; // printnr
39444533 break;
39454534 }
3946- case 242LLU: // return from printnr to proccall
4535+ case 283LLU: // return from printnr to proccall
39474536 {
39484537 printf("%s", "LLU];");
3949- label = 224LLU; // repeat
4538+ label = 265LLU; // repeat
39504539 break;
39514540 }
3952- case 225LLU: // loop finished
4541+ case 266LLU: // loop finished
39534542 {
39544543 // call matchsym from proccall
39554544 stack[base + 43LLU] = base;
3956- stack[base + 44LLU] = 243LLU;
4545+ stack[base + 44LLU] = 284LLU;
39574546 // arguments for call to matchsym
39584547 stack[base + 46LLU] = 41LLU;
39594548 stack[base + 47LLU] = stack[base + 29/*lookahead*/];
@@ -3962,24 +4551,24 @@
39624551 label = 12LLU; // matchsym
39634552 break;
39644553 }
3965- case 243LLU: // return from matchsym to proccall
4554+ case 284LLU: // return from matchsym to proccall
39664555 {
39674556 // copy back results provided by call to matchsym
39684557 stack[base + 29/*lookahead*/] = stack[base + 45LLU];
3969- label = 219LLU; // consequent complete
4558+ label = 260LLU; // consequent complete
39704559 break;
39714560 }
3972- case 218LLU: // alternative
4561+ case 259LLU: // alternative
39734562 {
3974- label = 219LLU; // alternative complete
4563+ label = 260LLU; // alternative complete
39754564 break;
39764565 }
3977- case 219LLU: // completed if-then-else
4566+ case 260LLU: // completed if-then-else
39784567 {
39794568 stack[base + 40/*sum*/] = 0;
39804569 // call add from proccall
39814570 stack[base + 43LLU] = base;
3982- stack[base + 44LLU] = 244LLU;
4571+ stack[base + 44LLU] = 285LLU;
39834572 // arguments for call to add
39844573 stack[base + 46LLU] = stack[base + 22/*offset*/];
39854574 stack[base + 47LLU] = stack[base + 40/*sum*/];
@@ -3988,13 +4577,13 @@
39884577 label = 18446744073709551608LLU; // add
39894578 break;
39904579 }
3991- case 244LLU: // return from add to proccall
4580+ case 285LLU: // return from add to proccall
39924581 {
39934582 // copy back results provided by call to add
39944583 stack[base + 40/*sum*/] = stack[base + 45LLU];
39954584 // call add from proccall
39964585 stack[base + 43LLU] = base;
3997- stack[base + 44LLU] = 245LLU;
4586+ stack[base + 44LLU] = 286LLU;
39984587 // arguments for call to add
39994588 stack[base + 46LLU] = 2LLU;
40004589 stack[base + 47LLU] = stack[base + 40/*sum*/];
@@ -4003,13 +4592,13 @@
40034592 label = 18446744073709551608LLU; // add
40044593 break;
40054594 }
4006- case 245LLU: // return from add to proccall
4595+ case 286LLU: // return from add to proccall
40074596 {
40084597 // copy back results provided by call to add
40094598 stack[base + 40/*sum*/] = stack[base + 45LLU];
40104599 // call add from proccall
40114600 stack[base + 43LLU] = base;
4012- stack[base + 44LLU] = 246LLU;
4601+ stack[base + 44LLU] = 287LLU;
40134602 // arguments for call to add
40144603 stack[base + 46LLU] = stack[base + 36/*cerescount*/];
40154604 stack[base + 47LLU] = stack[base + 40/*sum*/];
@@ -4018,13 +4607,13 @@
40184607 label = 18446744073709551608LLU; // add
40194608 break;
40204609 }
4021- case 246LLU: // return from add to proccall
4610+ case 287LLU: // return from add to proccall
40224611 {
40234612 // copy back results provided by call to add
40244613 stack[base + 40/*sum*/] = stack[base + 45LLU];
40254614 // call add from proccall
40264615 stack[base + 43LLU] = base;
4027- stack[base + 44LLU] = 247LLU;
4616+ stack[base + 44LLU] = 288LLU;
40284617 // arguments for call to add
40294618 stack[base + 46LLU] = stack[base + 37/*ceargcount*/];
40304619 stack[base + 47LLU] = stack[base + 40/*sum*/];
@@ -4033,13 +4622,13 @@
40334622 label = 18446744073709551608LLU; // add
40344623 break;
40354624 }
4036- case 247LLU: // return from add to proccall
4625+ case 288LLU: // return from add to proccall
40374626 {
40384627 // copy back results provided by call to add
40394628 stack[base + 40/*sum*/] = stack[base + 45LLU];
40404629 // call add from proccall
40414630 stack[base + 43LLU] = base;
4042- stack[base + 44LLU] = 248LLU;
4631+ stack[base + 44LLU] = 289LLU;
40434632 // arguments for call to add
40444633 stack[base + 46LLU] = stack[base + 38/*cemaxcount*/];
40454634 stack[base + 47LLU] = stack[base + 40/*sum*/];
@@ -4048,13 +4637,13 @@
40484637 label = 18446744073709551608LLU; // add
40494638 break;
40504639 }
4051- case 248LLU: // return from add to proccall
4640+ case 289LLU: // return from add to proccall
40524641 {
40534642 // copy back results provided by call to add
40544643 stack[base + 40/*sum*/] = stack[base + 45LLU];
40554644 // call max from proccall
40564645 stack[base + 43LLU] = base;
4057- stack[base + 44LLU] = 249LLU;
4646+ stack[base + 44LLU] = 290LLU;
40584647 // arguments for call to max
40594648 stack[base + 46LLU] = stack[base + 40/*sum*/];
40604649 stack[base + 47LLU] = stack[base + 28/*fnmaxcount*/];
@@ -4063,14 +4652,14 @@
40634652 label = 18446744073709551609LLU; // max
40644653 break;
40654654 }
4066- case 249LLU: // return from max to proccall
4655+ case 290LLU: // return from max to proccall
40674656 {
40684657 // copy back results provided by call to max
40694658 stack[base + 28/*fnmaxcount*/] = stack[base + 45LLU];
4070- label = 80LLU; // alternative complete
4659+ label = 121LLU; // alternative complete
40714660 break;
40724661 }
4073- case 80LLU: // completed if-then-else
4662+ case 121LLU: // completed if-then-else
40744663 {
40754664 stack[base + 0/*res0*/] = stack[base + 28/*fnmaxcount*/];
40764665 stack[base + 1/*res1*/] = stack[base + 29/*lookahead*/];
@@ -4082,7 +4671,7 @@
40824671 base = stack[base - 2];
40834672 break;
40844673 }
4085- case 250LLU: // procblock
4674+ case 291LLU: // procblock
40864675 {
40874676 //#define res0 0
40884677 //#define res1 1
@@ -4137,14 +4726,14 @@
41374726 stack[base + 19/*scope*/] = 0;
41384727 //#define running 31
41394728 stack[base + 31/*running*/] = 1;
4140- label = 251LLU; // start to repeat
4729+ label = 292LLU; // start to repeat
41414730 break;
41424731 }
4143- case 251LLU: // repeat from here
4732+ case 292LLU: // repeat from here
41444733 {
41454734 if(!stack[base + 31/*running*/])
41464735 {
4147- label = 252LLU; // break loop
4736+ label = 293LLU; // break loop
41484737 break;
41494738 }
41504739
@@ -4151,7 +4740,7 @@
41514740 // loop body
41524741 // call parsetoken from procblock
41534742 stack[base + 32LLU] = base;
4154- stack[base + 33LLU] = 253LLU;
4743+ stack[base + 33LLU] = 294LLU;
41554744 // arguments for call to parsetoken
41564745 stack[base + 37LLU] = stack[base + 27/*lookahead*/];
41574746 // set stack-base & callee-address
@@ -4159,7 +4748,7 @@
41594748 label = 18446744073709551588LLU; // parsetoken
41604749 break;
41614750 }
4162- case 253LLU: // return from parsetoken to procblock
4751+ case 294LLU: // return from parsetoken to procblock
41634752 {
41644753 // copy back results provided by call to parsetoken
41654754 stack[base + 28/*variant*/] = stack[base + 34LLU];
@@ -4167,7 +4756,7 @@
41674756 stack[base + 27/*lookahead*/] = stack[base + 36LLU];
41684757 // call neq from procblock
41694758 stack[base + 32LLU] = base;
4170- stack[base + 33LLU] = 254LLU;
4759+ stack[base + 33LLU] = 295LLU;
41714760 // arguments for call to neq
41724761 stack[base + 35LLU] = 5LLU;
41734762 stack[base + 36LLU] = stack[base + 28/*variant*/];
@@ -4176,13 +4765,13 @@
41764765 label = 18446744073709551602LLU; // neq
41774766 break;
41784767 }
4179- case 254LLU: // return from neq to procblock
4768+ case 295LLU: // return from neq to procblock
41804769 {
41814770 // copy back results provided by call to neq
41824771 stack[base + 31/*running*/] = stack[base + 34LLU];
41834772 if(!stack[base + 31/*running*/])
41844773 {
4185- label = 255LLU; // jump to alternative
4774+ label = 296LLU; // jump to alternative
41864775 break;
41874776 }
41884777
@@ -4190,7 +4779,7 @@
41904779 //#define isequal 32
41914780 // call equ from procblock
41924781 stack[base + 33LLU] = base;
4193- stack[base + 34LLU] = 257LLU;
4782+ stack[base + 34LLU] = 298LLU;
41944783 // arguments for call to equ
41954784 stack[base + 36LLU] = stack[base + 28/*variant*/];
41964785 stack[base + 37LLU] = 0LLU;
@@ -4199,13 +4788,13 @@
41994788 label = 18446744073709551603LLU; // equ
42004789 break;
42014790 }
4202- case 257LLU: // return from equ to procblock
4791+ case 298LLU: // return from equ to procblock
42034792 {
42044793 // copy back results provided by call to equ
42054794 stack[base + 32/*isequal*/] = stack[base + 35LLU];
42064795 if(!stack[base + 32/*isequal*/])
42074796 {
4208- label = 258LLU; // jump to alternative
4797+ label = 299LLU; // jump to alternative
42094798 break;
42104799 }
42114800
@@ -4212,7 +4801,7 @@
42124801 // consequent
42134802 // call equ from procblock
42144803 stack[base + 33LLU] = base;
4215- stack[base + 34LLU] = 260LLU;
4804+ stack[base + 34LLU] = 301LLU;
42164805 // arguments for call to equ
42174806 stack[base + 36LLU] = stack[base + 29/*content*/];
42184807 stack[base + 37LLU] = 125LLU;
@@ -4221,26 +4810,26 @@
42214810 label = 18446744073709551603LLU; // equ
42224811 break;
42234812 }
4224- case 260LLU: // return from equ to procblock
4813+ case 301LLU: // return from equ to procblock
42254814 {
42264815 // copy back results provided by call to equ
42274816 stack[base + 32/*isequal*/] = stack[base + 35LLU];
42284817 if(!stack[base + 32/*isequal*/])
42294818 {
4230- label = 261LLU; // jump to alternative
4819+ label = 302LLU; // jump to alternative
42314820 break;
42324821 }
42334822
42344823 // consequent
42354824 stack[base + 31/*running*/] = 0;
4236- label = 262LLU; // consequent complete
4825+ label = 303LLU; // consequent complete
42374826 break;
42384827 }
4239- case 261LLU: // alternative
4828+ case 302LLU: // alternative
42404829 {
42414830 // call equ from procblock
42424831 stack[base + 33LLU] = base;
4243- stack[base + 34LLU] = 263LLU;
4832+ stack[base + 34LLU] = 304LLU;
42444833 // arguments for call to equ
42454834 stack[base + 36LLU] = stack[base + 29/*content*/];
42464835 stack[base + 37LLU] = 123LLU;
@@ -4249,13 +4838,13 @@
42494838 label = 18446744073709551603LLU; // equ
42504839 break;
42514840 }
4252- case 263LLU: // return from equ to procblock
4841+ case 304LLU: // return from equ to procblock
42534842 {
42544843 // copy back results provided by call to equ
42554844 stack[base + 32/*isequal*/] = stack[base + 35LLU];
42564845 if(!stack[base + 32/*isequal*/])
42574846 {
4258- label = 264LLU; // jump to alternative
4847+ label = 305LLU; // jump to alternative
42594848 break;
42604849 }
42614850
@@ -4265,7 +4854,7 @@
42654854 // call procblock from procblock
42664855 newstack[0] = (uint64_t)stack; // backup stack location
42674856 newstack[1] = base;
4268- newstack[2] = 266LLU;
4857+ newstack[2] = 307LLU;
42694858 // arguments for call to procblock
42704859 newstack[8LLU] = stack[base + 18/*scopes*/];
42714860 newstack[9LLU] = stack[base + 19/*scope*/];
@@ -4283,10 +4872,10 @@
42834872 stack = newstack;
42844873 // set stack-base & callee-address
42854874 base = 3;
4286- label = 250LLU; // procblock
4875+ label = 291LLU; // procblock
42874876 break;
42884877 }
4289- case 266LLU: // return from procblock to procblock
4878+ case 307LLU: // return from procblock to procblock
42904879 {
42914880 uint64_t *oldstack = (uint64_t *)stack[0];
42924881 // copy back results provided by call to procblock
@@ -4302,14 +4891,14 @@
43024891 }
43034892 free(stack);
43044893 stack = oldstack;
4305- label = 265LLU; // consequent complete
4894+ label = 306LLU; // consequent complete
43064895 break;
43074896 }
4308- case 264LLU: // alternative
4897+ case 305LLU: // alternative
43094898 {
43104899 // call equ from procblock
43114900 stack[base + 33LLU] = base;
4312- stack[base + 34LLU] = 267LLU;
4901+ stack[base + 34LLU] = 308LLU;
43134902 // arguments for call to equ
43144903 stack[base + 36LLU] = stack[base + 29/*content*/];
43154904 stack[base + 37LLU] = 96LLU;
@@ -4318,25 +4907,25 @@
43184907 label = 18446744073709551603LLU; // equ
43194908 break;
43204909 }
4321- case 267LLU: // return from equ to procblock
4910+ case 308LLU: // return from equ to procblock
43224911 {
43234912 // copy back results provided by call to equ
43244913 stack[base + 32/*isequal*/] = stack[base + 35LLU];
43254914 if(!stack[base + 32/*isequal*/])
43264915 {
4327- label = 268LLU; // jump to alternative
4916+ label = 309LLU; // jump to alternative
43284917 break;
43294918 }
43304919
43314920 // consequent
4332- label = 270LLU; // start to repeat
4921+ label = 311LLU; // start to repeat
43334922 break;
43344923 }
4335- case 270LLU: // repeat from here
4924+ case 311LLU: // repeat from here
43364925 {
43374926 if(!stack[base + 31/*running*/])
43384927 {
4339- label = 271LLU; // break loop
4928+ label = 312LLU; // break loop
43404929 break;
43414930 }
43424931
@@ -4343,7 +4932,7 @@
43434932 // loop body
43444933 // call leq from procblock
43454934 stack[base + 33LLU] = base;
4346- stack[base + 34LLU] = 272LLU;
4935+ stack[base + 34LLU] = 313LLU;
43474936 // arguments for call to leq
43484937 stack[base + 36LLU] = stack[base + 27/*lookahead*/];
43494938 stack[base + 37LLU] = 255LLU;
@@ -4352,13 +4941,13 @@
43524941 label = 18446744073709551601LLU; // leq
43534942 break;
43544943 }
4355- case 272LLU: // return from leq to procblock
4944+ case 313LLU: // return from leq to procblock
43564945 {
43574946 // copy back results provided by call to leq
43584947 stack[base + 31/*running*/] = stack[base + 35LLU];
43594948 if(!stack[base + 31/*running*/])
43604949 {
4361- label = 273LLU; // jump to alternative
4950+ label = 314LLU; // jump to alternative
43624951 break;
43634952 }
43644953
@@ -4365,7 +4954,7 @@
43654954 // consequent
43664955 // call neq from procblock
43674956 stack[base + 33LLU] = base;
4368- stack[base + 34LLU] = 275LLU;
4957+ stack[base + 34LLU] = 316LLU;
43694958 // arguments for call to neq
43704959 stack[base + 36LLU] = stack[base + 27/*lookahead*/];
43714960 stack[base + 37LLU] = 96LLU;
@@ -4374,13 +4963,13 @@
43744963 label = 18446744073709551602LLU; // neq
43754964 break;
43764965 }
4377- case 275LLU: // return from neq to procblock
4966+ case 316LLU: // return from neq to procblock
43784967 {
43794968 // copy back results provided by call to neq
43804969 stack[base + 31/*running*/] = stack[base + 35LLU];
43814970 if(!stack[base + 31/*running*/])
43824971 {
4383- label = 276LLU; // jump to alternative
4972+ label = 317LLU; // jump to alternative
43844973 break;
43854974 }
43864975
@@ -4387,7 +4976,7 @@
43874976 // consequent
43884977 // call printbyte from procblock
43894978 stack[base + 33LLU] = base;
4390- stack[base + 34LLU] = 278LLU;
4979+ stack[base + 34LLU] = 319LLU;
43914980 // arguments for call to printbyte
43924981 stack[base + 35LLU] = stack[base + 27/*lookahead*/];
43934982 // set stack-base & callee-address
@@ -4395,11 +4984,11 @@
43954984 label = 18446744073709551596LLU; // printbyte
43964985 break;
43974986 }
4398- case 278LLU: // return from printbyte to procblock
4987+ case 319LLU: // return from printbyte to procblock
43994988 {
44004989 // call getbyte from procblock
44014990 stack[base + 33LLU] = base;
4402- stack[base + 34LLU] = 279LLU;
4991+ stack[base + 34LLU] = 320LLU;
44034992 // arguments for call to getbyte
44044993 // set stack-base & callee-address
44054994 base += 35LLU;
@@ -4406,39 +4995,39 @@
44064995 label = 18446744073709551597LLU; // getbyte
44074996 break;
44084997 }
4409- case 279LLU: // return from getbyte to procblock
4998+ case 320LLU: // return from getbyte to procblock
44104999 {
44115000 // copy back results provided by call to getbyte
44125001 stack[base + 27/*lookahead*/] = stack[base + 35LLU];
4413- label = 277LLU; // consequent complete
5002+ label = 318LLU; // consequent complete
44145003 break;
44155004 }
4416- case 276LLU: // alternative
5005+ case 317LLU: // alternative
44175006 {
4418- label = 277LLU; // alternative complete
5007+ label = 318LLU; // alternative complete
44195008 break;
44205009 }
4421- case 277LLU: // completed if-then-else
5010+ case 318LLU: // completed if-then-else
44225011 {
4423- label = 274LLU; // consequent complete
5012+ label = 315LLU; // consequent complete
44245013 break;
44255014 }
4426- case 273LLU: // alternative
5015+ case 314LLU: // alternative
44275016 {
4428- label = 274LLU; // alternative complete
5017+ label = 315LLU; // alternative complete
44295018 break;
44305019 }
4431- case 274LLU: // completed if-then-else
5020+ case 315LLU: // completed if-then-else
44325021 {
4433- label = 270LLU; // repeat
5022+ label = 311LLU; // repeat
44345023 break;
44355024 }
4436- case 271LLU: // loop finished
5025+ case 312LLU: // loop finished
44375026 {
44385027 stack[base + 31/*running*/] = 1;
44395028 // call getbyte from procblock
44405029 stack[base + 33LLU] = base;
4441- stack[base + 34LLU] = 280LLU;
5030+ stack[base + 34LLU] = 321LLU;
44425031 // arguments for call to getbyte
44435032 // set stack-base & callee-address
44445033 base += 35LLU;
@@ -4445,19 +5034,19 @@
44455034 label = 18446744073709551597LLU; // getbyte
44465035 break;
44475036 }
4448- case 280LLU: // return from getbyte to procblock
5037+ case 321LLU: // return from getbyte to procblock
44495038 {
44505039 // copy back results provided by call to getbyte
44515040 stack[base + 27/*lookahead*/] = stack[base + 35LLU];
4452- label = 269LLU; // consequent complete
5041+ label = 310LLU; // consequent complete
44535042 break;
44545043 }
4455- case 268LLU: // alternative
5044+ case 309LLU: // alternative
44565045 {
44575046 fprintf(stderr, "%s", "parsing block unexpected token ");
44585047 // call reporttok from procblock
44595048 stack[base + 33LLU] = base;
4460- stack[base + 34LLU] = 281LLU;
5049+ stack[base + 34LLU] = 322LLU;
44615050 // arguments for call to reporttok
44625051 stack[base + 35LLU] = stack[base + 28/*variant*/];
44635052 stack[base + 36LLU] = stack[base + 29/*content*/];
@@ -4466,33 +5055,33 @@
44665055 label = 18446744073709551586LLU; // reporttok
44675056 break;
44685057 }
4469- case 281LLU: // return from reporttok to procblock
5058+ case 322LLU: // return from reporttok to procblock
44705059 {
44715060 fprintf(stderr, "%s", "\n");
44725061 exit(-1);
4473- label = 269LLU; // alternative complete
5062+ label = 310LLU; // alternative complete
44745063 break;
44755064 }
4476- case 269LLU: // completed if-then-else
5065+ case 310LLU: // completed if-then-else
44775066 {
4478- label = 265LLU; // alternative complete
5067+ label = 306LLU; // alternative complete
44795068 break;
44805069 }
4481- case 265LLU: // completed if-then-else
5070+ case 306LLU: // completed if-then-else
44825071 {
4483- label = 262LLU; // alternative complete
5072+ label = 303LLU; // alternative complete
44845073 break;
44855074 }
4486- case 262LLU: // completed if-then-else
5075+ case 303LLU: // completed if-then-else
44875076 {
4488- label = 259LLU; // consequent complete
5077+ label = 300LLU; // consequent complete
44895078 break;
44905079 }
4491- case 258LLU: // alternative
5080+ case 299LLU: // alternative
44925081 {
44935082 // call equ from procblock
44945083 stack[base + 33LLU] = base;
4495- stack[base + 34LLU] = 282LLU;
5084+ stack[base + 34LLU] = 323LLU;
44965085 // arguments for call to equ
44975086 stack[base + 36LLU] = stack[base + 28/*variant*/];
44985087 stack[base + 37LLU] = 4LLU;
@@ -4501,13 +5090,13 @@
45015090 label = 18446744073709551603LLU; // equ
45025091 break;
45035092 }
4504- case 282LLU: // return from equ to procblock
5093+ case 323LLU: // return from equ to procblock
45055094 {
45065095 // copy back results provided by call to equ
45075096 stack[base + 32/*isequal*/] = stack[base + 35LLU];
45085097 if(!stack[base + 32/*isequal*/])
45095098 {
4510- label = 283LLU; // jump to alternative
5099+ label = 324LLU; // jump to alternative
45115100 break;
45125101 }
45135102
@@ -4514,7 +5103,7 @@
45145103 // consequent
45155104 // call equ from procblock
45165105 stack[base + 33LLU] = base;
4517- stack[base + 34LLU] = 285LLU;
5106+ stack[base + 34LLU] = 326LLU;
45185107 // arguments for call to equ
45195108 stack[base + 36LLU] = stack[base + 29/*content*/];
45205109 stack[base + 37LLU] = 657807020572803072LLU; // if
@@ -4523,13 +5112,13 @@
45235112 label = 18446744073709551603LLU; // equ
45245113 break;
45255114 }
4526- case 285LLU: // return from equ to procblock
5115+ case 326LLU: // return from equ to procblock
45275116 {
45285117 // copy back results provided by call to equ
45295118 stack[base + 32/*isequal*/] = stack[base + 35LLU];
45305119 if(!stack[base + 32/*isequal*/])
45315120 {
4532- label = 286LLU; // jump to alternative
5121+ label = 327LLU; // jump to alternative
45335122 break;
45345123 }
45355124
@@ -4536,7 +5125,7 @@
45365125 // consequent
45375126 // call parsetoken from procblock
45385127 stack[base + 33LLU] = base;
4539- stack[base + 34LLU] = 288LLU;
5128+ stack[base + 34LLU] = 329LLU;
45405129 // arguments for call to parsetoken
45415130 stack[base + 38LLU] = stack[base + 27/*lookahead*/];
45425131 // set stack-base & callee-address
@@ -4544,7 +5133,7 @@
45445133 label = 18446744073709551588LLU; // parsetoken
45455134 break;
45465135 }
4547- case 288LLU: // return from parsetoken to procblock
5136+ case 329LLU: // return from parsetoken to procblock
45485137 {
45495138 // copy back results provided by call to parsetoken
45505139 stack[base + 28/*variant*/] = stack[base + 35LLU];
@@ -4552,7 +5141,7 @@
45525141 stack[base + 27/*lookahead*/] = stack[base + 37LLU];
45535142 // call issimple from procblock
45545143 stack[base + 33LLU] = base;
4555- stack[base + 34LLU] = 289LLU;
5144+ stack[base + 34LLU] = 330LLU;
45565145 // arguments for call to issimple
45575146 stack[base + 36LLU] = stack[base + 28/*variant*/];
45585147 stack[base + 37LLU] = stack[base + 29/*content*/];
@@ -4562,13 +5151,13 @@
45625151 label = 3LLU; // issimple
45635152 break;
45645153 }
4565- case 289LLU: // return from issimple to procblock
5154+ case 330LLU: // return from issimple to procblock
45665155 {
45675156 // copy back results provided by call to issimple
45685157 stack[base + 32/*isequal*/] = stack[base + 35LLU];
45695158 if(!stack[base + 32/*isequal*/])
45705159 {
4571- label = 290LLU; // jump to alternative
5160+ label = 331LLU; // jump to alternative
45725161 break;
45735162 }
45745163
@@ -4576,7 +5165,7 @@
45765165 printf("%s", "\n if(!");
45775166 // call parsetoken from procblock
45785167 stack[base + 33LLU] = base;
4579- stack[base + 34LLU] = 292LLU;
5168+ stack[base + 34LLU] = 333LLU;
45805169 // arguments for call to parsetoken
45815170 stack[base + 38LLU] = stack[base + 27/*lookahead*/];
45825171 // set stack-base & callee-address
@@ -4584,7 +5173,7 @@
45845173 label = 18446744073709551588LLU; // parsetoken
45855174 break;
45865175 }
4587- case 292LLU: // return from parsetoken to procblock
5176+ case 333LLU: // return from parsetoken to procblock
45885177 {
45895178 // copy back results provided by call to parsetoken
45905179 stack[base + 28/*variant*/] = stack[base + 35LLU];
@@ -4592,7 +5181,7 @@
45925181 stack[base + 27/*lookahead*/] = stack[base + 37LLU];
45935182 // call equ from procblock
45945183 stack[base + 33LLU] = base;
4595- stack[base + 34LLU] = 293LLU;
5184+ stack[base + 34LLU] = 334LLU;
45965185 // arguments for call to equ
45975186 stack[base + 36LLU] = stack[base + 28/*variant*/];
45985187 stack[base + 37LLU] = 1LLU;
@@ -4601,13 +5190,13 @@
46015190 label = 18446744073709551603LLU; // equ
46025191 break;
46035192 }
4604- case 293LLU: // return from equ to procblock
5193+ case 334LLU: // return from equ to procblock
46055194 {
46065195 // copy back results provided by call to equ
46075196 stack[base + 32/*isequal*/] = stack[base + 35LLU];
46085197 if(!stack[base + 32/*isequal*/])
46095198 {
4610- label = 294LLU; // jump to alternative
5199+ label = 335LLU; // jump to alternative
46115200 break;
46125201 }
46135202
@@ -4614,7 +5203,7 @@
46145203 // consequent
46155204 // call printnr from procblock
46165205 stack[base + 33LLU] = base;
4617- stack[base + 34LLU] = 296LLU;
5206+ stack[base + 34LLU] = 337LLU;
46185207 // arguments for call to printnr
46195208 stack[base + 35LLU] = stack[base + 29/*content*/];
46205209 // set stack-base & callee-address
@@ -4622,16 +5211,16 @@
46225211 label = 18446744073709551594LLU; // printnr
46235212 break;
46245213 }
4625- case 296LLU: // return from printnr to procblock
5214+ case 337LLU: // return from printnr to procblock
46265215 {
4627- label = 295LLU; // consequent complete
5216+ label = 336LLU; // consequent complete
46285217 break;
46295218 }
4630- case 294LLU: // alternative
5219+ case 335LLU: // alternative
46315220 {
46325221 // call equ from procblock
46335222 stack[base + 33LLU] = base;
4634- stack[base + 34LLU] = 297LLU;
5223+ stack[base + 34LLU] = 338LLU;
46355224 // arguments for call to equ
46365225 stack[base + 36LLU] = stack[base + 28/*variant*/];
46375226 stack[base + 37LLU] = 4LLU;
@@ -4640,13 +5229,13 @@
46405229 label = 18446744073709551603LLU; // equ
46415230 break;
46425231 }
4643- case 297LLU: // return from equ to procblock
5232+ case 338LLU: // return from equ to procblock
46445233 {
46455234 // copy back results provided by call to equ
46465235 stack[base + 32/*isequal*/] = stack[base + 35LLU];
46475236 if(!stack[base + 32/*isequal*/])
46485237 {
4649- label = 298LLU; // jump to alternative
5238+ label = 339LLU; // jump to alternative
46505239 break;
46515240 }
46525241
@@ -4653,7 +5242,7 @@
46535242 // consequent
46545243 // call emitvar from procblock
46555244 stack[base + 33LLU] = base;
4656- stack[base + 34LLU] = 300LLU;
5245+ stack[base + 34LLU] = 341LLU;
46575246 // arguments for call to emitvar
46585247 stack[base + 35LLU] = stack[base + 29/*content*/];
46595248 stack[base + 36LLU] = stack[base + 18/*scopes*/];
@@ -4663,17 +5252,17 @@
46635252 label = 74LLU; // emitvar
46645253 break;
46655254 }
4666- case 300LLU: // return from emitvar to procblock
5255+ case 341LLU: // return from emitvar to procblock
46675256 {
4668- label = 299LLU; // consequent complete
5257+ label = 340LLU; // consequent complete
46695258 break;
46705259 }
4671- case 298LLU: // alternative
5260+ case 339LLU: // alternative
46725261 {
46735262 fprintf(stderr, "%s", "expected identifier in if-then-else but found ");
46745263 // call reporttok from procblock
46755264 stack[base + 33LLU] = base;
4676- stack[base + 34LLU] = 301LLU;
5265+ stack[base + 34LLU] = 342LLU;
46775266 // arguments for call to reporttok
46785267 stack[base + 35LLU] = stack[base + 28/*variant*/];
46795268 stack[base + 36LLU] = stack[base + 29/*content*/];
@@ -4682,23 +5271,23 @@
46825271 label = 18446744073709551586LLU; // reporttok
46835272 break;
46845273 }
4685- case 301LLU: // return from reporttok to procblock
5274+ case 342LLU: // return from reporttok to procblock
46865275 {
46875276 fprintf(stderr, "%s", "\n");
46885277 exit(-1);
4689- label = 299LLU; // alternative complete
5278+ label = 340LLU; // alternative complete
46905279 break;
46915280 }
4692- case 299LLU: // completed if-then-else
5281+ case 340LLU: // completed if-then-else
46935282 {
4694- label = 295LLU; // alternative complete
5283+ label = 336LLU; // alternative complete
46955284 break;
46965285 }
4697- case 295LLU: // completed if-then-else
5286+ case 336LLU: // completed if-then-else
46985287 {
46995288 // call matchsym from procblock
47005289 stack[base + 33LLU] = base;
4701- stack[base + 34LLU] = 302LLU;
5290+ stack[base + 34LLU] = 343LLU;
47025291 // arguments for call to matchsym
47035292 stack[base + 36LLU] = 41LLU;
47045293 stack[base + 37LLU] = stack[base + 27/*lookahead*/];
@@ -4707,7 +5296,7 @@
47075296 label = 12LLU; // matchsym
47085297 break;
47095298 }
4710- case 302LLU: // return from matchsym to procblock
5299+ case 343LLU: // return from matchsym to procblock
47115300 {
47125301 // copy back results provided by call to matchsym
47135302 stack[base + 27/*lookahead*/] = stack[base + 35LLU];
@@ -4714,7 +5303,7 @@
47145303 printf("%s", ")");
47155304 // call add from procblock
47165305 stack[base + 33LLU] = base;
4717- stack[base + 34LLU] = 303LLU;
5306+ stack[base + 34LLU] = 344LLU;
47185307 // arguments for call to add
47195308 stack[base + 36LLU] = 1LLU;
47205309 stack[base + 37LLU] = stack[base + 30/*label*/];
@@ -4723,7 +5312,7 @@
47235312 label = 18446744073709551608LLU; // add
47245313 break;
47255314 }
4726- case 303LLU: // return from add to procblock
5315+ case 344LLU: // return from add to procblock
47275316 {
47285317 // copy back results provided by call to add
47295318 stack[base + 30/*label*/] = stack[base + 35LLU];
@@ -4731,7 +5320,7 @@
47315320 stack[base + 33/*labelalt*/] = stack[base + 30/*label*/];
47325321 // call add from procblock
47335322 stack[base + 34LLU] = base;
4734- stack[base + 35LLU] = 304LLU;
5323+ stack[base + 35LLU] = 345LLU;
47355324 // arguments for call to add
47365325 stack[base + 37LLU] = 1LLU;
47375326 stack[base + 38LLU] = stack[base + 30/*label*/];
@@ -4740,7 +5329,7 @@
47405329 label = 18446744073709551608LLU; // add
47415330 break;
47425331 }
4743- case 304LLU: // return from add to procblock
5332+ case 345LLU: // return from add to procblock
47445333 {
47455334 // copy back results provided by call to add
47465335 stack[base + 30/*label*/] = stack[base + 36LLU];
@@ -4750,7 +5339,7 @@
47505339 printf("%s", "\n label = ");
47515340 // call printnr from procblock
47525341 stack[base + 35LLU] = base;
4753- stack[base + 36LLU] = 305LLU;
5342+ stack[base + 36LLU] = 346LLU;
47545343 // arguments for call to printnr
47555344 stack[base + 37LLU] = stack[base + 33/*labelalt*/];
47565345 // set stack-base & callee-address
@@ -4758,7 +5347,7 @@
47585347 label = 18446744073709551594LLU; // printnr
47595348 break;
47605349 }
4761- case 305LLU: // return from printnr to procblock
5350+ case 346LLU: // return from printnr to procblock
47625351 {
47635352 printf("%s", "LLU; // jump to alternative");
47645353 printf("%s", "\n break;");
@@ -4767,7 +5356,7 @@
47675356 printf("%s", "\n // consequent");
47685357 // call matchsym from procblock
47695358 stack[base + 35LLU] = base;
4770- stack[base + 36LLU] = 306LLU;
5359+ stack[base + 36LLU] = 347LLU;
47715360 // arguments for call to matchsym
47725361 stack[base + 38LLU] = 123LLU;
47735362 stack[base + 39LLU] = stack[base + 27/*lookahead*/];
@@ -4776,7 +5365,7 @@
47765365 label = 12LLU; // matchsym
47775366 break;
47785367 }
4779- case 306LLU: // return from matchsym to procblock
5368+ case 347LLU: // return from matchsym to procblock
47805369 {
47815370 // copy back results provided by call to matchsym
47825371 stack[base + 27/*lookahead*/] = stack[base + 37LLU];
@@ -4785,7 +5374,7 @@
47855374 // call procblock from procblock
47865375 newstack[0] = (uint64_t)stack; // backup stack location
47875376 newstack[1] = base;
4788- newstack[2] = 307LLU;
5377+ newstack[2] = 348LLU;
47895378 // arguments for call to procblock
47905379 newstack[8LLU] = stack[base + 18/*scopes*/];
47915380 newstack[9LLU] = stack[base + 19/*scope*/];
@@ -4803,10 +5392,10 @@
48035392 stack = newstack;
48045393 // set stack-base & callee-address
48055394 base = 3;
4806- label = 250LLU; // procblock
5395+ label = 291LLU; // procblock
48075396 break;
48085397 }
4809- case 307LLU: // return from procblock to procblock
5398+ case 348LLU: // return from procblock to procblock
48105399 {
48115400 uint64_t *oldstack = (uint64_t *)stack[0];
48125401 // copy back results provided by call to procblock
@@ -4825,7 +5414,7 @@
48255414 printf("%s", "\n label = ");
48265415 // call printnr from procblock
48275416 stack[base + 35LLU] = base;
4828- stack[base + 36LLU] = 308LLU;
5417+ stack[base + 36LLU] = 349LLU;
48295418 // arguments for call to printnr
48305419 stack[base + 37LLU] = stack[base + 34/*labelskip*/];
48315420 // set stack-base & callee-address
@@ -4833,7 +5422,7 @@
48335422 label = 18446744073709551594LLU; // printnr
48345423 break;
48355424 }
4836- case 308LLU: // return from printnr to procblock
5425+ case 349LLU: // return from printnr to procblock
48375426 {
48385427 printf("%s", "LLU; // consequent complete");
48395428 printf("%s", "\n break;");
@@ -4841,7 +5430,7 @@
48415430 printf("%s", "\n case ");
48425431 // call printnr from procblock
48435432 stack[base + 35LLU] = base;
4844- stack[base + 36LLU] = 309LLU;
5433+ stack[base + 36LLU] = 350LLU;
48455434 // arguments for call to printnr
48465435 stack[base + 37LLU] = stack[base + 33/*labelalt*/];
48475436 // set stack-base & callee-address
@@ -4849,13 +5438,13 @@
48495438 label = 18446744073709551594LLU; // printnr
48505439 break;
48515440 }
4852- case 309LLU: // return from printnr to procblock
5441+ case 350LLU: // return from printnr to procblock
48535442 {
48545443 printf("%s", "LLU: // alternative");
48555444 printf("%s", "\n {");
48565445 // call matchid from procblock
48575446 stack[base + 35LLU] = base;
4858- stack[base + 36LLU] = 310LLU;
5447+ stack[base + 36LLU] = 351LLU;
48595448 // arguments for call to matchid
48605449 stack[base + 38LLU] = 587642785557905408LLU; // else
48615450 stack[base + 39LLU] = stack[base + 27/*lookahead*/];
@@ -4864,13 +5453,13 @@
48645453 label = 24LLU; // matchid
48655454 break;
48665455 }
4867- case 310LLU: // return from matchid to procblock
5456+ case 351LLU: // return from matchid to procblock
48685457 {
48695458 // copy back results provided by call to matchid
48705459 stack[base + 27/*lookahead*/] = stack[base + 37LLU];
48715460 // call matchsym from procblock
48725461 stack[base + 35LLU] = base;
4873- stack[base + 36LLU] = 311LLU;
5462+ stack[base + 36LLU] = 352LLU;
48745463 // arguments for call to matchsym
48755464 stack[base + 38LLU] = 123LLU;
48765465 stack[base + 39LLU] = stack[base + 27/*lookahead*/];
@@ -4879,7 +5468,7 @@
48795468 label = 12LLU; // matchsym
48805469 break;
48815470 }
4882- case 311LLU: // return from matchsym to procblock
5471+ case 352LLU: // return from matchsym to procblock
48835472 {
48845473 // copy back results provided by call to matchsym
48855474 stack[base + 27/*lookahead*/] = stack[base + 37LLU];
@@ -4888,7 +5477,7 @@
48885477 // call procblock from procblock
48895478 newstack[0] = (uint64_t)stack; // backup stack location
48905479 newstack[1] = base;
4891- newstack[2] = 312LLU;
5480+ newstack[2] = 353LLU;
48925481 // arguments for call to procblock
48935482 newstack[8LLU] = stack[base + 18/*scopes*/];
48945483 newstack[9LLU] = stack[base + 19/*scope*/];
@@ -4906,10 +5495,10 @@
49065495 stack = newstack;
49075496 // set stack-base & callee-address
49085497 base = 3;
4909- label = 250LLU; // procblock
5498+ label = 291LLU; // procblock
49105499 break;
49115500 }
4912- case 312LLU: // return from procblock to procblock
5501+ case 353LLU: // return from procblock to procblock
49135502 {
49145503 uint64_t *oldstack = (uint64_t *)stack[0];
49155504 // copy back results provided by call to procblock
@@ -4928,7 +5517,7 @@
49285517 printf("%s", "\n label = ");
49295518 // call printnr from procblock
49305519 stack[base + 35LLU] = base;
4931- stack[base + 36LLU] = 313LLU;
5520+ stack[base + 36LLU] = 354LLU;
49325521 // arguments for call to printnr
49335522 stack[base + 37LLU] = stack[base + 34/*labelskip*/];
49345523 // set stack-base & callee-address
@@ -4936,7 +5525,7 @@
49365525 label = 18446744073709551594LLU; // printnr
49375526 break;
49385527 }
4939- case 313LLU: // return from printnr to procblock
5528+ case 354LLU: // return from printnr to procblock
49405529 {
49415530 printf("%s", "LLU; // alternative complete");
49425531 printf("%s", "\n break;");
@@ -4944,7 +5533,7 @@
49445533 printf("%s", "\n case ");
49455534 // call printnr from procblock
49465535 stack[base + 35LLU] = base;
4947- stack[base + 36LLU] = 314LLU;
5536+ stack[base + 36LLU] = 355LLU;
49485537 // arguments for call to printnr
49495538 stack[base + 37LLU] = stack[base + 34/*labelskip*/];
49505539 // set stack-base & callee-address
@@ -4952,18 +5541,18 @@
49525541 label = 18446744073709551594LLU; // printnr
49535542 break;
49545543 }
4955- case 314LLU: // return from printnr to procblock
5544+ case 355LLU: // return from printnr to procblock
49565545 {
49575546 printf("%s", "LLU: // completed if-then-else");
49585547 printf("%s", "\n {");
4959- label = 291LLU; // consequent complete
5548+ label = 332LLU; // consequent complete
49605549 break;
49615550 }
4962- case 290LLU: // alternative
5551+ case 331LLU: // alternative
49635552 {
49645553 // call equ from procblock
49655554 stack[base + 33LLU] = base;
4966- stack[base + 34LLU] = 315LLU;
5555+ stack[base + 34LLU] = 356LLU;
49675556 // arguments for call to equ
49685557 stack[base + 36LLU] = stack[base + 29/*content*/];
49695558 stack[base + 37LLU] = 786630200929550336LLU; // pop
@@ -4972,13 +5561,13 @@
49725561 label = 18446744073709551603LLU; // equ
49735562 break;
49745563 }
4975- case 315LLU: // return from equ to procblock
5564+ case 356LLU: // return from equ to procblock
49765565 {
49775566 // copy back results provided by call to equ
49785567 stack[base + 32/*isequal*/] = stack[base + 35LLU];
49795568 if(!stack[base + 32/*isequal*/])
49805569 {
4981- label = 316LLU; // jump to alternative
5570+ label = 357LLU; // jump to alternative
49825571 break;
49835572 }
49845573
@@ -4985,7 +5574,7 @@
49855574 // consequent
49865575 // call matchsym from procblock
49875576 stack[base + 33LLU] = base;
4988- stack[base + 34LLU] = 318LLU;
5577+ stack[base + 34LLU] = 359LLU;
49895578 // arguments for call to matchsym
49905579 stack[base + 36LLU] = 40LLU;
49915580 stack[base + 37LLU] = stack[base + 27/*lookahead*/];
@@ -4994,13 +5583,13 @@
49945583 label = 12LLU; // matchsym
49955584 break;
49965585 }
4997- case 318LLU: // return from matchsym to procblock
5586+ case 359LLU: // return from matchsym to procblock
49985587 {
49995588 // copy back results provided by call to matchsym
50005589 stack[base + 27/*lookahead*/] = stack[base + 35LLU];
50015590 // call parsetoken from procblock
50025591 stack[base + 33LLU] = base;
5003- stack[base + 34LLU] = 319LLU;
5592+ stack[base + 34LLU] = 360LLU;
50045593 // arguments for call to parsetoken
50055594 stack[base + 38LLU] = stack[base + 27/*lookahead*/];
50065595 // set stack-base & callee-address
@@ -5008,7 +5597,7 @@
50085597 label = 18446744073709551588LLU; // parsetoken
50095598 break;
50105599 }
5011- case 319LLU: // return from parsetoken to procblock
5600+ case 360LLU: // return from parsetoken to procblock
50125601 {
50135602 // copy back results provided by call to parsetoken
50145603 stack[base + 28/*variant*/] = stack[base + 35LLU];
@@ -5016,7 +5605,7 @@
50165605 stack[base + 27/*lookahead*/] = stack[base + 37LLU];
50175606 // call equ from procblock
50185607 stack[base + 33LLU] = base;
5019- stack[base + 34LLU] = 320LLU;
5608+ stack[base + 34LLU] = 361LLU;
50205609 // arguments for call to equ
50215610 stack[base + 36LLU] = stack[base + 28/*variant*/];
50225611 stack[base + 37LLU] = 4LLU;
@@ -5025,13 +5614,13 @@
50255614 label = 18446744073709551603LLU; // equ
50265615 break;
50275616 }
5028- case 320LLU: // return from equ to procblock
5617+ case 361LLU: // return from equ to procblock
50295618 {
50305619 // copy back results provided by call to equ
50315620 stack[base + 32/*isequal*/] = stack[base + 35LLU];
50325621 if(!stack[base + 32/*isequal*/])
50335622 {
5034- label = 321LLU; // jump to alternative
5623+ label = 362LLU; // jump to alternative
50355624 break;
50365625 }
50375626
@@ -5041,7 +5630,7 @@
50415630 printf("%s", "\n struct listnode *list = (struct listnode *)");
50425631 // call emitvar from procblock
50435632 stack[base + 34LLU] = base;
5044- stack[base + 35LLU] = 323LLU;
5633+ stack[base + 35LLU] = 364LLU;
50455634 // arguments for call to emitvar
50465635 stack[base + 36LLU] = stack[base + 33/*listname*/];
50475636 stack[base + 37LLU] = stack[base + 18/*scopes*/];
@@ -5051,13 +5640,13 @@
50515640 label = 74LLU; // emitvar
50525641 break;
50535642 }
5054- case 323LLU: // return from emitvar to procblock
5643+ case 364LLU: // return from emitvar to procblock
50555644 {
50565645 printf("%s", ";");
50575646 printf("%s", "\n if(!list)");
50585647 // call matchsym from procblock
50595648 stack[base + 34LLU] = base;
5060- stack[base + 35LLU] = 324LLU;
5649+ stack[base + 35LLU] = 365LLU;
50615650 // arguments for call to matchsym
50625651 stack[base + 37LLU] = 41LLU;
50635652 stack[base + 38LLU] = stack[base + 27/*lookahead*/];
@@ -5066,13 +5655,13 @@
50665655 label = 12LLU; // matchsym
50675656 break;
50685657 }
5069- case 324LLU: // return from matchsym to procblock
5658+ case 365LLU: // return from matchsym to procblock
50705659 {
50715660 // copy back results provided by call to matchsym
50725661 stack[base + 27/*lookahead*/] = stack[base + 36LLU];
50735662 // call matchsym from procblock
50745663 stack[base + 34LLU] = base;
5075- stack[base + 35LLU] = 325LLU;
5664+ stack[base + 35LLU] = 366LLU;
50765665 // arguments for call to matchsym
50775666 stack[base + 37LLU] = 45LLU;
50785667 stack[base + 38LLU] = stack[base + 27/*lookahead*/];
@@ -5081,13 +5670,13 @@
50815670 label = 12LLU; // matchsym
50825671 break;
50835672 }
5084- case 325LLU: // return from matchsym to procblock
5673+ case 366LLU: // return from matchsym to procblock
50855674 {
50865675 // copy back results provided by call to matchsym
50875676 stack[base + 27/*lookahead*/] = stack[base + 36LLU];
50885677 // call matchsym from procblock
50895678 stack[base + 34LLU] = base;
5090- stack[base + 35LLU] = 326LLU;
5679+ stack[base + 35LLU] = 367LLU;
50915680 // arguments for call to matchsym
50925681 stack[base + 37LLU] = 62LLU;
50935682 stack[base + 38LLU] = stack[base + 27/*lookahead*/];
@@ -5096,13 +5685,13 @@
50965685 label = 12LLU; // matchsym
50975686 break;
50985687 }
5099- case 326LLU: // return from matchsym to procblock
5688+ case 367LLU: // return from matchsym to procblock
51005689 {
51015690 // copy back results provided by call to matchsym
51025691 stack[base + 27/*lookahead*/] = stack[base + 36LLU];
51035692 // call matchsym from procblock
51045693 stack[base + 34LLU] = base;
5105- stack[base + 35LLU] = 327LLU;
5694+ stack[base + 35LLU] = 368LLU;
51065695 // arguments for call to matchsym
51075696 stack[base + 37LLU] = 40LLU;
51085697 stack[base + 38LLU] = stack[base + 27/*lookahead*/];
@@ -5111,13 +5700,13 @@
51115700 label = 12LLU; // matchsym
51125701 break;
51135702 }
5114- case 327LLU: // return from matchsym to procblock
5703+ case 368LLU: // return from matchsym to procblock
51155704 {
51165705 // copy back results provided by call to matchsym
51175706 stack[base + 27/*lookahead*/] = stack[base + 36LLU];
51185707 // call parsetoken from procblock
51195708 stack[base + 34LLU] = base;
5120- stack[base + 35LLU] = 328LLU;
5709+ stack[base + 35LLU] = 369LLU;
51215710 // arguments for call to parsetoken
51225711 stack[base + 39LLU] = stack[base + 27/*lookahead*/];
51235712 // set stack-base & callee-address
@@ -5125,7 +5714,7 @@
51255714 label = 18446744073709551588LLU; // parsetoken
51265715 break;
51275716 }
5128- case 328LLU: // return from parsetoken to procblock
5717+ case 369LLU: // return from parsetoken to procblock
51295718 {
51305719 // copy back results provided by call to parsetoken
51315720 stack[base + 28/*variant*/] = stack[base + 36LLU];
@@ -5133,7 +5722,7 @@
51335722 stack[base + 27/*lookahead*/] = stack[base + 38LLU];
51345723 // call equ from procblock
51355724 stack[base + 34LLU] = base;
5136- stack[base + 35LLU] = 329LLU;
5725+ stack[base + 35LLU] = 370LLU;
51375726 // arguments for call to equ
51385727 stack[base + 37LLU] = stack[base + 28/*variant*/];
51395728 stack[base + 38LLU] = 4LLU;
@@ -5142,13 +5731,13 @@
51425731 label = 18446744073709551603LLU; // equ
51435732 break;
51445733 }
5145- case 329LLU: // return from equ to procblock
5734+ case 370LLU: // return from equ to procblock
51465735 {
51475736 // copy back results provided by call to equ
51485737 stack[base + 32/*isequal*/] = stack[base + 36LLU];
51495738 if(!stack[base + 32/*isequal*/])
51505739 {
5151- label = 330LLU; // jump to alternative
5740+ label = 371LLU; // jump to alternative
51525741 break;
51535742 }
51545743
@@ -5155,7 +5744,7 @@
51555744 // consequent
51565745 // call matchsym from procblock
51575746 stack[base + 34LLU] = base;
5158- stack[base + 35LLU] = 332LLU;
5747+ stack[base + 35LLU] = 373LLU;
51595748 // arguments for call to matchsym
51605749 stack[base + 37LLU] = 41LLU;
51615750 stack[base + 38LLU] = stack[base + 27/*lookahead*/];
@@ -5164,13 +5753,13 @@
51645753 label = 12LLU; // matchsym
51655754 break;
51665755 }
5167- case 332LLU: // return from matchsym to procblock
5756+ case 373LLU: // return from matchsym to procblock
51685757 {
51695758 // copy back results provided by call to matchsym
51705759 stack[base + 27/*lookahead*/] = stack[base + 36LLU];
51715760 // call add from procblock
51725761 stack[base + 34LLU] = base;
5173- stack[base + 35LLU] = 333LLU;
5762+ stack[base + 35LLU] = 374LLU;
51745763 // arguments for call to add
51755764 stack[base + 37LLU] = 1LLU;
51765765 stack[base + 38LLU] = stack[base + 30/*label*/];
@@ -5179,7 +5768,7 @@
51795768 label = 18446744073709551608LLU; // add
51805769 break;
51815770 }
5182- case 333LLU: // return from add to procblock
5771+ case 374LLU: // return from add to procblock
51835772 {
51845773 // copy back results provided by call to add
51855774 stack[base + 30/*label*/] = stack[base + 36LLU];
@@ -5187,7 +5776,7 @@
51875776 stack[base + 34/*labelalt*/] = stack[base + 30/*label*/];
51885777 // call add from procblock
51895778 stack[base + 35LLU] = base;
5190- stack[base + 36LLU] = 334LLU;
5779+ stack[base + 36LLU] = 375LLU;
51915780 // arguments for call to add
51925781 stack[base + 38LLU] = 1LLU;
51935782 stack[base + 39LLU] = stack[base + 30/*label*/];
@@ -5196,7 +5785,7 @@
51965785 label = 18446744073709551608LLU; // add
51975786 break;
51985787 }
5199- case 334LLU: // return from add to procblock
5788+ case 375LLU: // return from add to procblock
52005789 {
52015790 // copy back results provided by call to add
52025791 stack[base + 30/*label*/] = stack[base + 37LLU];
@@ -5206,7 +5795,7 @@
52065795 printf("%s", "\n label = ");
52075796 // call printnr from procblock
52085797 stack[base + 36LLU] = base;
5209- stack[base + 37LLU] = 335LLU;
5798+ stack[base + 37LLU] = 376LLU;
52105799 // arguments for call to printnr
52115800 stack[base + 38LLU] = stack[base + 34/*labelalt*/];
52125801 // set stack-base & callee-address
@@ -5214,7 +5803,7 @@
52145803 label = 18446744073709551594LLU; // printnr
52155804 break;
52165805 }
5217- case 335LLU: // return from printnr to procblock
5806+ case 376LLU: // return from printnr to procblock
52185807 {
52195808 printf("%s", "LLU; // jump to alternative");
52205809 printf("%s", "\n break;");
@@ -5223,7 +5812,7 @@
52235812 printf("%s", "\n // consequent");
52245813 // call matchsym from procblock
52255814 stack[base + 36LLU] = base;
5226- stack[base + 37LLU] = 336LLU;
5815+ stack[base + 37LLU] = 377LLU;
52275816 // arguments for call to matchsym
52285817 stack[base + 39LLU] = 123LLU;
52295818 stack[base + 40LLU] = stack[base + 27/*lookahead*/];
@@ -5232,7 +5821,7 @@
52325821 label = 12LLU; // matchsym
52335822 break;
52345823 }
5235- case 336LLU: // return from matchsym to procblock
5824+ case 377LLU: // return from matchsym to procblock
52365825 {
52375826 // copy back results provided by call to matchsym
52385827 stack[base + 27/*lookahead*/] = stack[base + 38LLU];
@@ -5240,7 +5829,7 @@
52405829 printf("%s", "\n ");
52415830 // call emitvar from procblock
52425831 stack[base + 36LLU] = base;
5243- stack[base + 37LLU] = 337LLU;
5832+ stack[base + 37LLU] = 378LLU;
52445833 // arguments for call to emitvar
52455834 stack[base + 38LLU] = stack[base + 29/*content*/];
52465835 stack[base + 39LLU] = stack[base + 18/*scopes*/];
@@ -5250,7 +5839,7 @@
52505839 label = 74LLU; // emitvar
52515840 break;
52525841 }
5253- case 337LLU: // return from emitvar to procblock
5842+ case 378LLU: // return from emitvar to procblock
52545843 {
52555844 printf("%s", " = list->data;");
52565845 printf("%s", "\n free(list);");
@@ -5257,7 +5846,7 @@
52575846 printf("%s", "\n ");
52585847 // call emitvar from procblock
52595848 stack[base + 36LLU] = base;
5260- stack[base + 37LLU] = 338LLU;
5849+ stack[base + 37LLU] = 379LLU;
52615850 // arguments for call to emitvar
52625851 stack[base + 38LLU] = stack[base + 33/*listname*/];
52635852 stack[base + 39LLU] = stack[base + 18/*scopes*/];
@@ -5267,7 +5856,7 @@
52675856 label = 74LLU; // emitvar
52685857 break;
52695858 }
5270- case 338LLU: // return from emitvar to procblock
5859+ case 379LLU: // return from emitvar to procblock
52715860 {
52725861 printf("%s", " = (uint64_t)next;");
52735862 uint64_t *newstack = (uint64_t *)calloc(106LLU + 1, sizeof(uint64_t));
@@ -5275,7 +5864,7 @@
52755864 // call procblock from procblock
52765865 newstack[0] = (uint64_t)stack; // backup stack location
52775866 newstack[1] = base;
5278- newstack[2] = 339LLU;
5867+ newstack[2] = 380LLU;
52795868 // arguments for call to procblock
52805869 newstack[8LLU] = stack[base + 18/*scopes*/];
52815870 newstack[9LLU] = stack[base + 19/*scope*/];
@@ -5293,10 +5882,10 @@
52935882 stack = newstack;
52945883 // set stack-base & callee-address
52955884 base = 3;
5296- label = 250LLU; // procblock
5885+ label = 291LLU; // procblock
52975886 break;
52985887 }
5299- case 339LLU: // return from procblock to procblock
5888+ case 380LLU: // return from procblock to procblock
53005889 {
53015890 uint64_t *oldstack = (uint64_t *)stack[0];
53025891 // copy back results provided by call to procblock
@@ -5315,7 +5904,7 @@
53155904 printf("%s", "\n label = ");
53165905 // call printnr from procblock
53175906 stack[base + 36LLU] = base;
5318- stack[base + 37LLU] = 340LLU;
5907+ stack[base + 37LLU] = 381LLU;
53195908 // arguments for call to printnr
53205909 stack[base + 38LLU] = stack[base + 35/*labelskip*/];
53215910 // set stack-base & callee-address
@@ -5323,7 +5912,7 @@
53235912 label = 18446744073709551594LLU; // printnr
53245913 break;
53255914 }
5326- case 340LLU: // return from printnr to procblock
5915+ case 381LLU: // return from printnr to procblock
53275916 {
53285917 printf("%s", "LLU; // consequent complete");
53295918 printf("%s", "\n break;");
@@ -5331,7 +5920,7 @@
53315920 printf("%s", "\n case ");
53325921 // call printnr from procblock
53335922 stack[base + 36LLU] = base;
5334- stack[base + 37LLU] = 341LLU;
5923+ stack[base + 37LLU] = 382LLU;
53355924 // arguments for call to printnr
53365925 stack[base + 38LLU] = stack[base + 34/*labelalt*/];
53375926 // set stack-base & callee-address
@@ -5339,13 +5928,13 @@
53395928 label = 18446744073709551594LLU; // printnr
53405929 break;
53415930 }
5342- case 341LLU: // return from printnr to procblock
5931+ case 382LLU: // return from printnr to procblock
53435932 {
53445933 printf("%s", "LLU: // alternative");
53455934 printf("%s", "\n {");
53465935 // call matchid from procblock
53475936 stack[base + 36LLU] = base;
5348- stack[base + 37LLU] = 342LLU;
5937+ stack[base + 37LLU] = 383LLU;
53495938 // arguments for call to matchid
53505939 stack[base + 39LLU] = 587642785557905408LLU; // else
53515940 stack[base + 40LLU] = stack[base + 27/*lookahead*/];
@@ -5354,13 +5943,13 @@
53545943 label = 24LLU; // matchid
53555944 break;
53565945 }
5357- case 342LLU: // return from matchid to procblock
5946+ case 383LLU: // return from matchid to procblock
53585947 {
53595948 // copy back results provided by call to matchid
53605949 stack[base + 27/*lookahead*/] = stack[base + 38LLU];
53615950 // call matchsym from procblock
53625951 stack[base + 36LLU] = base;
5363- stack[base + 37LLU] = 343LLU;
5952+ stack[base + 37LLU] = 384LLU;
53645953 // arguments for call to matchsym
53655954 stack[base + 39LLU] = 123LLU;
53665955 stack[base + 40LLU] = stack[base + 27/*lookahead*/];
@@ -5369,7 +5958,7 @@
53695958 label = 12LLU; // matchsym
53705959 break;
53715960 }
5372- case 343LLU: // return from matchsym to procblock
5961+ case 384LLU: // return from matchsym to procblock
53735962 {
53745963 // copy back results provided by call to matchsym
53755964 stack[base + 27/*lookahead*/] = stack[base + 38LLU];
@@ -5378,7 +5967,7 @@
53785967 // call procblock from procblock
53795968 newstack[0] = (uint64_t)stack; // backup stack location
53805969 newstack[1] = base;
5381- newstack[2] = 344LLU;
5970+ newstack[2] = 385LLU;
53825971 // arguments for call to procblock
53835972 newstack[8LLU] = stack[base + 18/*scopes*/];
53845973 newstack[9LLU] = stack[base + 19/*scope*/];
@@ -5396,10 +5985,10 @@
53965985 stack = newstack;
53975986 // set stack-base & callee-address
53985987 base = 3;
5399- label = 250LLU; // procblock
5988+ label = 291LLU; // procblock
54005989 break;
54015990 }
5402- case 344LLU: // return from procblock to procblock
5991+ case 385LLU: // return from procblock to procblock
54035992 {
54045993 uint64_t *oldstack = (uint64_t *)stack[0];
54055994 // copy back results provided by call to procblock
@@ -5418,7 +6007,7 @@
54186007 printf("%s", "\n label = ");
54196008 // call printnr from procblock
54206009 stack[base + 36LLU] = base;
5421- stack[base + 37LLU] = 345LLU;
6010+ stack[base + 37LLU] = 386LLU;
54226011 // arguments for call to printnr
54236012 stack[base + 38LLU] = stack[base + 35/*labelskip*/];
54246013 // set stack-base & callee-address
@@ -5426,7 +6015,7 @@
54266015 label = 18446744073709551594LLU; // printnr
54276016 break;
54286017 }
5429- case 345LLU: // return from printnr to procblock
6018+ case 386LLU: // return from printnr to procblock
54306019 {
54316020 printf("%s", "LLU; // alternative complete");
54326021 printf("%s", "\n break;");
@@ -5434,7 +6023,7 @@
54346023 printf("%s", "\n case ");
54356024 // call printnr from procblock
54366025 stack[base + 36LLU] = base;
5437- stack[base + 37LLU] = 346LLU;
6026+ stack[base + 37LLU] = 387LLU;
54386027 // arguments for call to printnr
54396028 stack[base + 38LLU] = stack[base + 35/*labelskip*/];
54406029 // set stack-base & callee-address
@@ -5442,19 +6031,19 @@
54426031 label = 18446744073709551594LLU; // printnr
54436032 break;
54446033 }
5445- case 346LLU: // return from printnr to procblock
6034+ case 387LLU: // return from printnr to procblock
54466035 {
54476036 printf("%s", "LLU: // completed if-then-else");
54486037 printf("%s", "\n {");
5449- label = 331LLU; // consequent complete
6038+ label = 372LLU; // consequent complete
54506039 break;
54516040 }
5452- case 330LLU: // alternative
6041+ case 371LLU: // alternative
54536042 {
54546043 fprintf(stderr, "%s", "expected identifier in pop but found ");
54556044 // call reporttok from procblock
54566045 stack[base + 34LLU] = base;
5457- stack[base + 35LLU] = 347LLU;
6046+ stack[base + 35LLU] = 388LLU;
54586047 // arguments for call to reporttok
54596048 stack[base + 36LLU] = stack[base + 28/*variant*/];
54606049 stack[base + 37LLU] = stack[base + 29/*content*/];
@@ -5463,24 +6052,24 @@
54636052 label = 18446744073709551586LLU; // reporttok
54646053 break;
54656054 }
5466- case 347LLU: // return from reporttok to procblock
6055+ case 388LLU: // return from reporttok to procblock
54676056 {
54686057 fprintf(stderr, "%s", "\n");
54696058 exit(-1);
5470- label = 331LLU; // alternative complete
6059+ label = 372LLU; // alternative complete
54716060 break;
54726061 }
5473- case 331LLU: // completed if-then-else
6062+ case 372LLU: // completed if-then-else
54746063 {
5475- label = 322LLU; // consequent complete
6064+ label = 363LLU; // consequent complete
54766065 break;
54776066 }
5478- case 321LLU: // alternative
6067+ case 362LLU: // alternative
54796068 {
54806069 fprintf(stderr, "%s", "expected identifier in pop but found ");
54816070 // call reporttok from procblock
54826071 stack[base + 33LLU] = base;
5483- stack[base + 34LLU] = 348LLU;
6072+ stack[base + 34LLU] = 389LLU;
54846073 // arguments for call to reporttok
54856074 stack[base + 35LLU] = stack[base + 28/*variant*/];
54866075 stack[base + 36LLU] = stack[base + 29/*content*/];
@@ -5489,24 +6078,24 @@
54896078 label = 18446744073709551586LLU; // reporttok
54906079 break;
54916080 }
5492- case 348LLU: // return from reporttok to procblock
6081+ case 389LLU: // return from reporttok to procblock
54936082 {
54946083 fprintf(stderr, "%s", "\n");
54956084 exit(-1);
5496- label = 322LLU; // alternative complete
6085+ label = 363LLU; // alternative complete
54976086 break;
54986087 }
5499- case 322LLU: // completed if-then-else
6088+ case 363LLU: // completed if-then-else
55006089 {
5501- label = 317LLU; // consequent complete
6090+ label = 358LLU; // consequent complete
55026091 break;
55036092 }
5504- case 316LLU: // alternative
6093+ case 357LLU: // alternative
55056094 {
55066095 fprintf(stderr, "%s", "expected '(' but found token ");
55076096 // call reporttok from procblock
55086097 stack[base + 33LLU] = base;
5509- stack[base + 34LLU] = 349LLU;
6098+ stack[base + 34LLU] = 390LLU;
55106099 // arguments for call to reporttok
55116100 stack[base + 35LLU] = stack[base + 28/*variant*/];
55126101 stack[base + 36LLU] = stack[base + 29/*content*/];
@@ -5515,28 +6104,28 @@
55156104 label = 18446744073709551586LLU; // reporttok
55166105 break;
55176106 }
5518- case 349LLU: // return from reporttok to procblock
6107+ case 390LLU: // return from reporttok to procblock
55196108 {
55206109 fprintf(stderr, "%s", "\n");
55216110 exit(-1);
5522- label = 317LLU; // alternative complete
6111+ label = 358LLU; // alternative complete
55236112 break;
55246113 }
5525- case 317LLU: // completed if-then-else
6114+ case 358LLU: // completed if-then-else
55266115 {
5527- label = 291LLU; // alternative complete
6116+ label = 332LLU; // alternative complete
55286117 break;
55296118 }
5530- case 291LLU: // completed if-then-else
6119+ case 332LLU: // completed if-then-else
55316120 {
5532- label = 287LLU; // consequent complete
6121+ label = 328LLU; // consequent complete
55336122 break;
55346123 }
5535- case 286LLU: // alternative
6124+ case 327LLU: // alternative
55366125 {
55376126 // call equ from procblock
55386127 stack[base + 33LLU] = base;
5539- stack[base + 34LLU] = 350LLU;
6128+ stack[base + 34LLU] = 391LLU;
55406129 // arguments for call to equ
55416130 stack[base + 36LLU] = stack[base + 29/*content*/];
55426131 stack[base + 37LLU] = 910732593752702976LLU; // while
@@ -5545,13 +6134,13 @@
55456134 label = 18446744073709551603LLU; // equ
55466135 break;
55476136 }
5548- case 350LLU: // return from equ to procblock
6137+ case 391LLU: // return from equ to procblock
55496138 {
55506139 // copy back results provided by call to equ
55516140 stack[base + 32/*isequal*/] = stack[base + 35LLU];
55526141 if(!stack[base + 32/*isequal*/])
55536142 {
5554- label = 351LLU; // jump to alternative
6143+ label = 392LLU; // jump to alternative
55556144 break;
55566145 }
55576146
@@ -5558,7 +6147,7 @@
55586147 // consequent
55596148 // call add from procblock
55606149 stack[base + 33LLU] = base;
5561- stack[base + 34LLU] = 353LLU;
6150+ stack[base + 34LLU] = 394LLU;
55626151 // arguments for call to add
55636152 stack[base + 36LLU] = 1LLU;
55646153 stack[base + 37LLU] = stack[base + 30/*label*/];
@@ -5567,7 +6156,7 @@
55676156 label = 18446744073709551608LLU; // add
55686157 break;
55696158 }
5570- case 353LLU: // return from add to procblock
6159+ case 394LLU: // return from add to procblock
55716160 {
55726161 // copy back results provided by call to add
55736162 stack[base + 30/*label*/] = stack[base + 35LLU];
@@ -5575,7 +6164,7 @@
55756164 stack[base + 33/*labelloop*/] = stack[base + 30/*label*/];
55766165 // call add from procblock
55776166 stack[base + 34LLU] = base;
5578- stack[base + 35LLU] = 354LLU;
6167+ stack[base + 35LLU] = 395LLU;
55796168 // arguments for call to add
55806169 stack[base + 37LLU] = 1LLU;
55816170 stack[base + 38LLU] = stack[base + 30/*label*/];
@@ -5584,7 +6173,7 @@
55846173 label = 18446744073709551608LLU; // add
55856174 break;
55866175 }
5587- case 354LLU: // return from add to procblock
6176+ case 395LLU: // return from add to procblock
55886177 {
55896178 // copy back results provided by call to add
55906179 stack[base + 30/*label*/] = stack[base + 36LLU];
@@ -5593,7 +6182,7 @@
55936182 printf("%s", "\n label = ");
55946183 // call printnr from procblock
55956184 stack[base + 35LLU] = base;
5596- stack[base + 36LLU] = 355LLU;
6185+ stack[base + 36LLU] = 396LLU;
55976186 // arguments for call to printnr
55986187 stack[base + 37LLU] = stack[base + 33/*labelloop*/];
55996188 // set stack-base & callee-address
@@ -5601,7 +6190,7 @@
56016190 label = 18446744073709551594LLU; // printnr
56026191 break;
56036192 }
5604- case 355LLU: // return from printnr to procblock
6193+ case 396LLU: // return from printnr to procblock
56056194 {
56066195 printf("%s", "LLU; // start to repeat");
56076196 printf("%s", "\n break;");
@@ -5609,7 +6198,7 @@
56096198 printf("%s", "\n case ");
56106199 // call printnr from procblock
56116200 stack[base + 35LLU] = base;
5612- stack[base + 36LLU] = 356LLU;
6201+ stack[base + 36LLU] = 397LLU;
56136202 // arguments for call to printnr
56146203 stack[base + 37LLU] = stack[base + 33/*labelloop*/];
56156204 // set stack-base & callee-address
@@ -5617,7 +6206,7 @@
56176206 label = 18446744073709551594LLU; // printnr
56186207 break;
56196208 }
5620- case 356LLU: // return from printnr to procblock
6209+ case 397LLU: // return from printnr to procblock
56216210 {
56226211 printf("%s", "LLU: // repeat from here");
56236212 printf("%s", "\n {");
@@ -5624,7 +6213,7 @@
56246213 printf("%s", "\n if(!");
56256214 // call matchsym from procblock
56266215 stack[base + 35LLU] = base;
5627- stack[base + 36LLU] = 357LLU;
6216+ stack[base + 36LLU] = 398LLU;
56286217 // arguments for call to matchsym
56296218 stack[base + 38LLU] = 40LLU;
56306219 stack[base + 39LLU] = stack[base + 27/*lookahead*/];
@@ -5633,13 +6222,13 @@
56336222 label = 12LLU; // matchsym
56346223 break;
56356224 }
5636- case 357LLU: // return from matchsym to procblock
6225+ case 398LLU: // return from matchsym to procblock
56376226 {
56386227 // copy back results provided by call to matchsym
56396228 stack[base + 27/*lookahead*/] = stack[base + 37LLU];
56406229 // call parsetoken from procblock
56416230 stack[base + 35LLU] = base;
5642- stack[base + 36LLU] = 358LLU;
6231+ stack[base + 36LLU] = 399LLU;
56436232 // arguments for call to parsetoken
56446233 stack[base + 40LLU] = stack[base + 27/*lookahead*/];
56456234 // set stack-base & callee-address
@@ -5647,7 +6236,7 @@
56476236 label = 18446744073709551588LLU; // parsetoken
56486237 break;
56496238 }
5650- case 358LLU: // return from parsetoken to procblock
6239+ case 399LLU: // return from parsetoken to procblock
56516240 {
56526241 // copy back results provided by call to parsetoken
56536242 stack[base + 28/*variant*/] = stack[base + 37LLU];
@@ -5655,7 +6244,7 @@
56556244 stack[base + 27/*lookahead*/] = stack[base + 39LLU];
56566245 // call equ from procblock
56576246 stack[base + 35LLU] = base;
5658- stack[base + 36LLU] = 359LLU;
6247+ stack[base + 36LLU] = 400LLU;
56596248 // arguments for call to equ
56606249 stack[base + 38LLU] = stack[base + 28/*variant*/];
56616250 stack[base + 39LLU] = 1LLU;
@@ -5664,13 +6253,13 @@
56646253 label = 18446744073709551603LLU; // equ
56656254 break;
56666255 }
5667- case 359LLU: // return from equ to procblock
6256+ case 400LLU: // return from equ to procblock
56686257 {
56696258 // copy back results provided by call to equ
56706259 stack[base + 32/*isequal*/] = stack[base + 37LLU];
56716260 if(!stack[base + 32/*isequal*/])
56726261 {
5673- label = 360LLU; // jump to alternative
6262+ label = 401LLU; // jump to alternative
56746263 break;
56756264 }
56766265
@@ -5677,7 +6266,7 @@
56776266 // consequent
56786267 // call printnr from procblock
56796268 stack[base + 35LLU] = base;
5680- stack[base + 36LLU] = 362LLU;
6269+ stack[base + 36LLU] = 403LLU;
56816270 // arguments for call to printnr
56826271 stack[base + 37LLU] = stack[base + 29/*content*/];
56836272 // set stack-base & callee-address
@@ -5685,16 +6274,16 @@
56856274 label = 18446744073709551594LLU; // printnr
56866275 break;
56876276 }
5688- case 362LLU: // return from printnr to procblock
6277+ case 403LLU: // return from printnr to procblock
56896278 {
5690- label = 361LLU; // consequent complete
6279+ label = 402LLU; // consequent complete
56916280 break;
56926281 }
5693- case 360LLU: // alternative
6282+ case 401LLU: // alternative
56946283 {
56956284 // call equ from procblock
56966285 stack[base + 35LLU] = base;
5697- stack[base + 36LLU] = 363LLU;
6286+ stack[base + 36LLU] = 404LLU;
56986287 // arguments for call to equ
56996288 stack[base + 38LLU] = stack[base + 28/*variant*/];
57006289 stack[base + 39LLU] = 4LLU;
@@ -5703,13 +6292,13 @@
57036292 label = 18446744073709551603LLU; // equ
57046293 break;
57056294 }
5706- case 363LLU: // return from equ to procblock
6295+ case 404LLU: // return from equ to procblock
57076296 {
57086297 // copy back results provided by call to equ
57096298 stack[base + 32/*isequal*/] = stack[base + 37LLU];
57106299 if(!stack[base + 32/*isequal*/])
57116300 {
5712- label = 364LLU; // jump to alternative
6301+ label = 405LLU; // jump to alternative
57136302 break;
57146303 }
57156304
@@ -5716,7 +6305,7 @@
57166305 // consequent
57176306 // call emitvar from procblock
57186307 stack[base + 35LLU] = base;
5719- stack[base + 36LLU] = 366LLU;
6308+ stack[base + 36LLU] = 407LLU;
57206309 // arguments for call to emitvar
57216310 stack[base + 37LLU] = stack[base + 29/*content*/];
57226311 stack[base + 38LLU] = stack[base + 18/*scopes*/];
@@ -5726,17 +6315,17 @@
57266315 label = 74LLU; // emitvar
57276316 break;
57286317 }
5729- case 366LLU: // return from emitvar to procblock
6318+ case 407LLU: // return from emitvar to procblock
57306319 {
5731- label = 365LLU; // consequent complete
6320+ label = 406LLU; // consequent complete
57326321 break;
57336322 }
5734- case 364LLU: // alternative
6323+ case 405LLU: // alternative
57356324 {
57366325 fprintf(stderr, "%s", "expected identifier in while but found ");
57376326 // call reporttok from procblock
57386327 stack[base + 35LLU] = base;
5739- stack[base + 36LLU] = 367LLU;
6328+ stack[base + 36LLU] = 408LLU;
57406329 // arguments for call to reporttok
57416330 stack[base + 37LLU] = stack[base + 28/*variant*/];
57426331 stack[base + 38LLU] = stack[base + 29/*content*/];
@@ -5745,23 +6334,23 @@
57456334 label = 18446744073709551586LLU; // reporttok
57466335 break;
57476336 }
5748- case 367LLU: // return from reporttok to procblock
6337+ case 408LLU: // return from reporttok to procblock
57496338 {
57506339 fprintf(stderr, "%s", "\n");
57516340 exit(-1);
5752- label = 365LLU; // alternative complete
6341+ label = 406LLU; // alternative complete
57536342 break;
57546343 }
5755- case 365LLU: // completed if-then-else
6344+ case 406LLU: // completed if-then-else
57566345 {
5757- label = 361LLU; // alternative complete
6346+ label = 402LLU; // alternative complete
57586347 break;
57596348 }
5760- case 361LLU: // completed if-then-else
6349+ case 402LLU: // completed if-then-else
57616350 {
57626351 // call matchsym from procblock
57636352 stack[base + 35LLU] = base;
5764- stack[base + 36LLU] = 368LLU;
6353+ stack[base + 36LLU] = 409LLU;
57656354 // arguments for call to matchsym
57666355 stack[base + 38LLU] = 41LLU;
57676356 stack[base + 39LLU] = stack[base + 27/*lookahead*/];
@@ -5770,7 +6359,7 @@
57706359 label = 12LLU; // matchsym
57716360 break;
57726361 }
5773- case 368LLU: // return from matchsym to procblock
6362+ case 409LLU: // return from matchsym to procblock
57746363 {
57756364 // copy back results provided by call to matchsym
57766365 stack[base + 27/*lookahead*/] = stack[base + 37LLU];
@@ -5779,7 +6368,7 @@
57796368 printf("%s", "\n label = ");
57806369 // call printnr from procblock
57816370 stack[base + 35LLU] = base;
5782- stack[base + 36LLU] = 369LLU;
6371+ stack[base + 36LLU] = 410LLU;
57836372 // arguments for call to printnr
57846373 stack[base + 37LLU] = stack[base + 34/*labelskip*/];
57856374 // set stack-base & callee-address
@@ -5787,7 +6376,7 @@
57876376 label = 18446744073709551594LLU; // printnr
57886377 break;
57896378 }
5790- case 369LLU: // return from printnr to procblock
6379+ case 410LLU: // return from printnr to procblock
57916380 {
57926381 printf("%s", "LLU; // break loop");
57936382 printf("%s", "\n break;");
@@ -5796,7 +6385,7 @@
57966385 printf("%s", "\n // loop body");
57976386 // call matchsym from procblock
57986387 stack[base + 35LLU] = base;
5799- stack[base + 36LLU] = 370LLU;
6388+ stack[base + 36LLU] = 411LLU;
58006389 // arguments for call to matchsym
58016390 stack[base + 38LLU] = 123LLU;
58026391 stack[base + 39LLU] = stack[base + 27/*lookahead*/];
@@ -5805,7 +6394,7 @@
58056394 label = 12LLU; // matchsym
58066395 break;
58076396 }
5808- case 370LLU: // return from matchsym to procblock
6397+ case 411LLU: // return from matchsym to procblock
58096398 {
58106399 // copy back results provided by call to matchsym
58116400 stack[base + 27/*lookahead*/] = stack[base + 37LLU];
@@ -5814,7 +6403,7 @@
58146403 // call procblock from procblock
58156404 newstack[0] = (uint64_t)stack; // backup stack location
58166405 newstack[1] = base;
5817- newstack[2] = 371LLU;
6406+ newstack[2] = 412LLU;
58186407 // arguments for call to procblock
58196408 newstack[8LLU] = stack[base + 18/*scopes*/];
58206409 newstack[9LLU] = stack[base + 19/*scope*/];
@@ -5832,10 +6421,10 @@
58326421 stack = newstack;
58336422 // set stack-base & callee-address
58346423 base = 3;
5835- label = 250LLU; // procblock
6424+ label = 291LLU; // procblock
58366425 break;
58376426 }
5838- case 371LLU: // return from procblock to procblock
6427+ case 412LLU: // return from procblock to procblock
58396428 {
58406429 uint64_t *oldstack = (uint64_t *)stack[0];
58416430 // copy back results provided by call to procblock
@@ -5854,7 +6443,7 @@
58546443 printf("%s", "\n label = ");
58556444 // call printnr from procblock
58566445 stack[base + 35LLU] = base;
5857- stack[base + 36LLU] = 372LLU;
6446+ stack[base + 36LLU] = 413LLU;
58586447 // arguments for call to printnr
58596448 stack[base + 37LLU] = stack[base + 33/*labelloop*/];
58606449 // set stack-base & callee-address
@@ -5862,7 +6451,7 @@
58626451 label = 18446744073709551594LLU; // printnr
58636452 break;
58646453 }
5865- case 372LLU: // return from printnr to procblock
6454+ case 413LLU: // return from printnr to procblock
58666455 {
58676456 printf("%s", "LLU; // repeat");
58686457 printf("%s", "\n break;");
@@ -5870,7 +6459,7 @@
58706459 printf("%s", "\n case ");
58716460 // call printnr from procblock
58726461 stack[base + 35LLU] = base;
5873- stack[base + 36LLU] = 373LLU;
6462+ stack[base + 36LLU] = 414LLU;
58746463 // arguments for call to printnr
58756464 stack[base + 37LLU] = stack[base + 34/*labelskip*/];
58766465 // set stack-base & callee-address
@@ -5878,18 +6467,18 @@
58786467 label = 18446744073709551594LLU; // printnr
58796468 break;
58806469 }
5881- case 373LLU: // return from printnr to procblock
6470+ case 414LLU: // return from printnr to procblock
58826471 {
58836472 printf("%s", "LLU: // loop finished");
58846473 printf("%s", "\n {");
5885- label = 352LLU; // consequent complete
6474+ label = 393LLU; // consequent complete
58866475 break;
58876476 }
5888- case 351LLU: // alternative
6477+ case 392LLU: // alternative
58896478 {
58906479 // call equ from procblock
58916480 stack[base + 33LLU] = base;
5892- stack[base + 34LLU] = 374LLU;
6481+ stack[base + 34LLU] = 415LLU;
58936482 // arguments for call to equ
58946483 stack[base + 36LLU] = stack[base + 29/*content*/];
58956484 stack[base + 37LLU] = 589327972884807680LLU; // error
@@ -5898,26 +6487,26 @@
58986487 label = 18446744073709551603LLU; // equ
58996488 break;
59006489 }
5901- case 374LLU: // return from equ to procblock
6490+ case 415LLU: // return from equ to procblock
59026491 {
59036492 // copy back results provided by call to equ
59046493 stack[base + 32/*isequal*/] = stack[base + 35LLU];
59056494 if(!stack[base + 32/*isequal*/])
59066495 {
5907- label = 375LLU; // jump to alternative
6496+ label = 416LLU; // jump to alternative
59086497 break;
59096498 }
59106499
59116500 // consequent
59126501 printf("%s", "\n exit(-1);");
5913- label = 376LLU; // consequent complete
6502+ label = 417LLU; // consequent complete
59146503 break;
59156504 }
5916- case 375LLU: // alternative
6505+ case 416LLU: // alternative
59176506 {
59186507 // call equ from procblock
59196508 stack[base + 33LLU] = base;
5920- stack[base + 34LLU] = 377LLU;
6509+ stack[base + 34LLU] = 418LLU;
59216510 // arguments for call to equ
59226511 stack[base + 36LLU] = stack[base + 29/*content*/];
59236512 stack[base + 37LLU] = 819847183506341888LLU; // report
@@ -5926,13 +6515,13 @@
59266515 label = 18446744073709551603LLU; // equ
59276516 break;
59286517 }
5929- case 377LLU: // return from equ to procblock
6518+ case 418LLU: // return from equ to procblock
59306519 {
59316520 // copy back results provided by call to equ
59326521 stack[base + 32/*isequal*/] = stack[base + 35LLU];
59336522 if(!stack[base + 32/*isequal*/])
59346523 {
5935- label = 378LLU; // jump to alternative
6524+ label = 419LLU; // jump to alternative
59366525 break;
59376526 }
59386527
@@ -5939,7 +6528,7 @@
59396528 // consequent
59406529 // call matchsym from procblock
59416530 stack[base + 33LLU] = base;
5942- stack[base + 34LLU] = 380LLU;
6531+ stack[base + 34LLU] = 421LLU;
59436532 // arguments for call to matchsym
59446533 stack[base + 36LLU] = 40LLU;
59456534 stack[base + 37LLU] = stack[base + 27/*lookahead*/];
@@ -5948,7 +6537,7 @@
59486537 label = 12LLU; // matchsym
59496538 break;
59506539 }
5951- case 380LLU: // return from matchsym to procblock
6540+ case 421LLU: // return from matchsym to procblock
59526541 {
59536542 // copy back results provided by call to matchsym
59546543 stack[base + 27/*lookahead*/] = stack[base + 35LLU];
@@ -5955,7 +6544,7 @@
59556544 printf("%s", "\n fprintf(stderr, \"%s\", ");
59566545 // call echostring from procblock
59576546 stack[base + 33LLU] = base;
5958- stack[base + 34LLU] = 381LLU;
6547+ stack[base + 34LLU] = 422LLU;
59596548 // arguments for call to echostring
59606549 stack[base + 36LLU] = stack[base + 27/*lookahead*/];
59616550 // set stack-base & callee-address
@@ -5963,7 +6552,7 @@
59636552 label = 18446744073709551585LLU; // echostring
59646553 break;
59656554 }
5966- case 381LLU: // return from echostring to procblock
6555+ case 422LLU: // return from echostring to procblock
59676556 {
59686557 // copy back results provided by call to echostring
59696558 stack[base + 27/*lookahead*/] = stack[base + 35LLU];
@@ -5970,7 +6559,7 @@
59706559 printf("%s", ");");
59716560 // call matchsym from procblock
59726561 stack[base + 33LLU] = base;
5973- stack[base + 34LLU] = 382LLU;
6562+ stack[base + 34LLU] = 423LLU;
59746563 // arguments for call to matchsym
59756564 stack[base + 36LLU] = 41LLU;
59766565 stack[base + 37LLU] = stack[base + 27/*lookahead*/];
@@ -5979,18 +6568,18 @@
59796568 label = 12LLU; // matchsym
59806569 break;
59816570 }
5982- case 382LLU: // return from matchsym to procblock
6571+ case 423LLU: // return from matchsym to procblock
59836572 {
59846573 // copy back results provided by call to matchsym
59856574 stack[base + 27/*lookahead*/] = stack[base + 35LLU];
5986- label = 379LLU; // consequent complete
6575+ label = 420LLU; // consequent complete
59876576 break;
59886577 }
5989- case 378LLU: // alternative
6578+ case 419LLU: // alternative
59906579 {
59916580 // call equ from procblock
59926581 stack[base + 33LLU] = base;
5993- stack[base + 34LLU] = 383LLU;
6582+ stack[base + 34LLU] = 424LLU;
59946583 // arguments for call to equ
59956584 stack[base + 36LLU] = stack[base + 29/*content*/];
59966585 stack[base + 37LLU] = 787446707498516480LLU; // print
@@ -5999,13 +6588,13 @@
59996588 label = 18446744073709551603LLU; // equ
60006589 break;
60016590 }
6002- case 383LLU: // return from equ to procblock
6591+ case 424LLU: // return from equ to procblock
60036592 {
60046593 // copy back results provided by call to equ
60056594 stack[base + 32/*isequal*/] = stack[base + 35LLU];
60066595 if(!stack[base + 32/*isequal*/])
60076596 {
6008- label = 384LLU; // jump to alternative
6597+ label = 425LLU; // jump to alternative
60096598 break;
60106599 }
60116600
@@ -6012,7 +6601,7 @@
60126601 // consequent
60136602 // call matchsym from procblock
60146603 stack[base + 33LLU] = base;
6015- stack[base + 34LLU] = 386LLU;
6604+ stack[base + 34LLU] = 427LLU;
60166605 // arguments for call to matchsym
60176606 stack[base + 36LLU] = 40LLU;
60186607 stack[base + 37LLU] = stack[base + 27/*lookahead*/];
@@ -6021,7 +6610,7 @@
60216610 label = 12LLU; // matchsym
60226611 break;
60236612 }
6024- case 386LLU: // return from matchsym to procblock
6613+ case 427LLU: // return from matchsym to procblock
60256614 {
60266615 // copy back results provided by call to matchsym
60276616 stack[base + 27/*lookahead*/] = stack[base + 35LLU];
@@ -6028,7 +6617,7 @@
60286617 printf("%s", "\n printf(\"%s\", ");
60296618 // call echostring from procblock
60306619 stack[base + 33LLU] = base;
6031- stack[base + 34LLU] = 387LLU;
6620+ stack[base + 34LLU] = 428LLU;
60326621 // arguments for call to echostring
60336622 stack[base + 36LLU] = stack[base + 27/*lookahead*/];
60346623 // set stack-base & callee-address
@@ -6036,7 +6625,7 @@
60366625 label = 18446744073709551585LLU; // echostring
60376626 break;
60386627 }
6039- case 387LLU: // return from echostring to procblock
6628+ case 428LLU: // return from echostring to procblock
60406629 {
60416630 // copy back results provided by call to echostring
60426631 stack[base + 27/*lookahead*/] = stack[base + 35LLU];
@@ -6043,7 +6632,7 @@
60436632 printf("%s", ");");
60446633 // call matchsym from procblock
60456634 stack[base + 33LLU] = base;
6046- stack[base + 34LLU] = 388LLU;
6635+ stack[base + 34LLU] = 429LLU;
60476636 // arguments for call to matchsym
60486637 stack[base + 36LLU] = 41LLU;
60496638 stack[base + 37LLU] = stack[base + 27/*lookahead*/];
@@ -6052,18 +6641,18 @@
60526641 label = 12LLU; // matchsym
60536642 break;
60546643 }
6055- case 388LLU: // return from matchsym to procblock
6644+ case 429LLU: // return from matchsym to procblock
60566645 {
60576646 // copy back results provided by call to matchsym
60586647 stack[base + 27/*lookahead*/] = stack[base + 35LLU];
6059- label = 385LLU; // consequent complete
6648+ label = 426LLU; // consequent complete
60606649 break;
60616650 }
6062- case 384LLU: // alternative
6651+ case 425LLU: // alternative
60636652 {
60646653 // call equ from procblock
60656654 stack[base + 33LLU] = base;
6066- stack[base + 34LLU] = 389LLU;
6655+ stack[base + 34LLU] = 430LLU;
60676656 // arguments for call to equ
60686657 stack[base + 36LLU] = stack[base + 29/*content*/];
60696658 stack[base + 37LLU] = 747817440469057536LLU; // new
@@ -6072,13 +6661,13 @@
60726661 label = 18446744073709551603LLU; // equ
60736662 break;
60746663 }
6075- case 389LLU: // return from equ to procblock
6664+ case 430LLU: // return from equ to procblock
60766665 {
60776666 // copy back results provided by call to equ
60786667 stack[base + 32/*isequal*/] = stack[base + 35LLU];
60796668 if(!stack[base + 32/*isequal*/])
60806669 {
6081- label = 390LLU; // jump to alternative
6670+ label = 431LLU; // jump to alternative
60826671 break;
60836672 }
60846673
@@ -6085,7 +6674,7 @@
60856674 // consequent
60866675 // call parsetoken from procblock
60876676 stack[base + 33LLU] = base;
6088- stack[base + 34LLU] = 392LLU;
6677+ stack[base + 34LLU] = 433LLU;
60896678 // arguments for call to parsetoken
60906679 stack[base + 38LLU] = stack[base + 27/*lookahead*/];
60916680 // set stack-base & callee-address
@@ -6093,7 +6682,7 @@
60936682 label = 18446744073709551588LLU; // parsetoken
60946683 break;
60956684 }
6096- case 392LLU: // return from parsetoken to procblock
6685+ case 433LLU: // return from parsetoken to procblock
60976686 {
60986687 // copy back results provided by call to parsetoken
60996688 stack[base + 28/*variant*/] = stack[base + 35LLU];
@@ -6101,7 +6690,7 @@
61016690 stack[base + 27/*lookahead*/] = stack[base + 37LLU];
61026691 // call equ from procblock
61036692 stack[base + 33LLU] = base;
6104- stack[base + 34LLU] = 393LLU;
6693+ stack[base + 34LLU] = 434LLU;
61056694 // arguments for call to equ
61066695 stack[base + 36LLU] = stack[base + 28/*variant*/];
61076696 stack[base + 37LLU] = 4LLU;
@@ -6110,13 +6699,13 @@
61106699 label = 18446744073709551603LLU; // equ
61116700 break;
61126701 }
6113- case 393LLU: // return from equ to procblock
6702+ case 434LLU: // return from equ to procblock
61146703 {
61156704 // copy back results provided by call to equ
61166705 stack[base + 32/*isequal*/] = stack[base + 35LLU];
61176706 if(!stack[base + 32/*isequal*/])
61186707 {
6119- label = 394LLU; // jump to alternative
6708+ label = 435LLU; // jump to alternative
61206709 break;
61216710 }
61226711
@@ -6124,7 +6713,7 @@
61246713 printf("%s", "\n//#define ");
61256714 // call printtoken from procblock
61266715 stack[base + 33LLU] = base;
6127- stack[base + 34LLU] = 396LLU;
6716+ stack[base + 34LLU] = 437LLU;
61286717 // arguments for call to printtoken
61296718 stack[base + 35LLU] = stack[base + 28/*variant*/];
61306719 stack[base + 36LLU] = stack[base + 29/*content*/];
@@ -6133,13 +6722,13 @@
61336722 label = 18446744073709551587LLU; // printtoken
61346723 break;
61356724 }
6136- case 396LLU: // return from printtoken to procblock
6725+ case 437LLU: // return from printtoken to procblock
61376726 {
61386727 //#define sum 33
61396728 stack[base + 33/*sum*/] = 0;
61406729 // call add from procblock
61416730 stack[base + 34LLU] = base;
6142- stack[base + 35LLU] = 397LLU;
6731+ stack[base + 35LLU] = 438LLU;
61436732 // arguments for call to add
61446733 stack[base + 37LLU] = stack[base + 23/*fnrescount*/];
61456734 stack[base + 38LLU] = stack[base + 33/*sum*/];
@@ -6148,13 +6737,13 @@
61486737 label = 18446744073709551608LLU; // add
61496738 break;
61506739 }
6151- case 397LLU: // return from add to procblock
6740+ case 438LLU: // return from add to procblock
61526741 {
61536742 // copy back results provided by call to add
61546743 stack[base + 33/*sum*/] = stack[base + 36LLU];
61556744 // call add from procblock
61566745 stack[base + 34LLU] = base;
6157- stack[base + 35LLU] = 398LLU;
6746+ stack[base + 35LLU] = 439LLU;
61586747 // arguments for call to add
61596748 stack[base + 37LLU] = stack[base + 24/*fnargcount*/];
61606749 stack[base + 38LLU] = stack[base + 33/*sum*/];
@@ -6163,13 +6752,13 @@
61636752 label = 18446744073709551608LLU; // add
61646753 break;
61656754 }
6166- case 398LLU: // return from add to procblock
6755+ case 439LLU: // return from add to procblock
61676756 {
61686757 // copy back results provided by call to add
61696758 stack[base + 33/*sum*/] = stack[base + 36LLU];
61706759 // call add from procblock
61716760 stack[base + 34LLU] = base;
6172- stack[base + 35LLU] = 399LLU;
6761+ stack[base + 35LLU] = 440LLU;
61736762 // arguments for call to add
61746763 stack[base + 37LLU] = stack[base + 26/*varcount*/];
61756764 stack[base + 38LLU] = stack[base + 33/*sum*/];
@@ -6178,7 +6767,7 @@
61786767 label = 18446744073709551608LLU; // add
61796768 break;
61806769 }
6181- case 399LLU: // return from add to procblock
6770+ case 440LLU: // return from add to procblock
61826771 {
61836772 // copy back results provided by call to add
61846773 stack[base + 33/*sum*/] = stack[base + 36LLU];
@@ -6185,7 +6774,7 @@
61856774 printf("%s", " ");
61866775 // call printnr from procblock
61876776 stack[base + 34LLU] = base;
6188- stack[base + 35LLU] = 400LLU;
6777+ stack[base + 35LLU] = 441LLU;
61896778 // arguments for call to printnr
61906779 stack[base + 36LLU] = stack[base + 33/*sum*/];
61916780 // set stack-base & callee-address
@@ -6193,7 +6782,7 @@
61936782 label = 18446744073709551594LLU; // printnr
61946783 break;
61956784 }
6196- case 400LLU: // return from printnr to procblock
6785+ case 441LLU: // return from printnr to procblock
61976786 {
61986787 //#define newlet 34
61996788 stack[base + 34/*newlet*/] = 0;
@@ -6209,7 +6798,7 @@
62096798 }
62106799 // call add from procblock
62116800 stack[base + 33LLU] = base;
6212- stack[base + 34LLU] = 401LLU;
6801+ stack[base + 34LLU] = 442LLU;
62136802 // arguments for call to add
62146803 stack[base + 36LLU] = 1LLU;
62156804 stack[base + 37LLU] = stack[base + 26/*varcount*/];
@@ -6218,13 +6807,13 @@
62186807 label = 18446744073709551608LLU; // add
62196808 break;
62206809 }
6221- case 401LLU: // return from add to procblock
6810+ case 442LLU: // return from add to procblock
62226811 {
62236812 // copy back results provided by call to add
62246813 stack[base + 26/*varcount*/] = stack[base + 35LLU];
62256814 // call max from procblock
62266815 stack[base + 33LLU] = base;
6227- stack[base + 34LLU] = 402LLU;
6816+ stack[base + 34LLU] = 443LLU;
62286817 // arguments for call to max
62296818 stack[base + 36LLU] = stack[base + 26/*varcount*/];
62306819 stack[base + 37LLU] = stack[base + 25/*fnmaxcount*/];
@@ -6233,19 +6822,19 @@
62336822 label = 18446744073709551609LLU; // max
62346823 break;
62356824 }
6236- case 402LLU: // return from max to procblock
6825+ case 443LLU: // return from max to procblock
62376826 {
62386827 // copy back results provided by call to max
62396828 stack[base + 25/*fnmaxcount*/] = stack[base + 35LLU];
6240- label = 395LLU; // consequent complete
6829+ label = 436LLU; // consequent complete
62416830 break;
62426831 }
6243- case 394LLU: // alternative
6832+ case 435LLU: // alternative
62446833 {
62456834 fprintf(stderr, "%s", "expected identifier in new but found ");
62466835 // call reporttok from procblock
62476836 stack[base + 33LLU] = base;
6248- stack[base + 34LLU] = 403LLU;
6837+ stack[base + 34LLU] = 444LLU;
62496838 // arguments for call to reporttok
62506839 stack[base + 35LLU] = stack[base + 28/*variant*/];
62516840 stack[base + 36LLU] = stack[base + 29/*content*/];
@@ -6254,23 +6843,23 @@
62546843 label = 18446744073709551586LLU; // reporttok
62556844 break;
62566845 }
6257- case 403LLU: // return from reporttok to procblock
6846+ case 444LLU: // return from reporttok to procblock
62586847 {
62596848 fprintf(stderr, "%s", "\n");
62606849 exit(-1);
6261- label = 395LLU; // alternative complete
6850+ label = 436LLU; // alternative complete
62626851 break;
62636852 }
6264- case 395LLU: // completed if-then-else
6853+ case 436LLU: // completed if-then-else
62656854 {
6266- label = 391LLU; // consequent complete
6855+ label = 432LLU; // consequent complete
62676856 break;
62686857 }
6269- case 390LLU: // alternative
6858+ case 431LLU: // alternative
62706859 {
62716860 // call equ from procblock
62726861 stack[base + 33LLU] = base;
6273- stack[base + 34LLU] = 404LLU;
6862+ stack[base + 34LLU] = 445LLU;
62746863 // arguments for call to equ
62756864 stack[base + 36LLU] = stack[base + 29/*content*/];
62766865 stack[base + 37LLU] = 567601207044997120LLU; // define
@@ -6279,13 +6868,13 @@
62796868 label = 18446744073709551603LLU; // equ
62806869 break;
62816870 }
6282- case 404LLU: // return from equ to procblock
6871+ case 445LLU: // return from equ to procblock
62836872 {
62846873 // copy back results provided by call to equ
62856874 stack[base + 32/*isequal*/] = stack[base + 35LLU];
62866875 if(!stack[base + 32/*isequal*/])
62876876 {
6288- label = 405LLU; // jump to alternative
6877+ label = 446LLU; // jump to alternative
62896878 break;
62906879 }
62916880
@@ -6292,7 +6881,7 @@
62926881 // consequent
62936882 // call parsetoken from procblock
62946883 stack[base + 33LLU] = base;
6295- stack[base + 34LLU] = 407LLU;
6884+ stack[base + 34LLU] = 448LLU;
62966885 // arguments for call to parsetoken
62976886 stack[base + 38LLU] = stack[base + 27/*lookahead*/];
62986887 // set stack-base & callee-address
@@ -6300,7 +6889,7 @@
63006889 label = 18446744073709551588LLU; // parsetoken
63016890 break;
63026891 }
6303- case 407LLU: // return from parsetoken to procblock
6892+ case 448LLU: // return from parsetoken to procblock
63046893 {
63056894 // copy back results provided by call to parsetoken
63066895 stack[base + 28/*variant*/] = stack[base + 35LLU];
@@ -6308,7 +6897,7 @@
63086897 stack[base + 27/*lookahead*/] = stack[base + 37LLU];
63096898 // call equ from procblock
63106899 stack[base + 33LLU] = base;
6311- stack[base + 34LLU] = 408LLU;
6900+ stack[base + 34LLU] = 449LLU;
63126901 // arguments for call to equ
63136902 stack[base + 36LLU] = stack[base + 28/*variant*/];
63146903 stack[base + 37LLU] = 4LLU;
@@ -6317,13 +6906,13 @@
63176906 label = 18446744073709551603LLU; // equ
63186907 break;
63196908 }
6320- case 408LLU: // return from equ to procblock
6909+ case 449LLU: // return from equ to procblock
63216910 {
63226911 // copy back results provided by call to equ
63236912 stack[base + 32/*isequal*/] = stack[base + 35LLU];
63246913 if(!stack[base + 32/*isequal*/])
63256914 {
6326- label = 409LLU; // jump to alternative
6915+ label = 450LLU; // jump to alternative
63276916 break;
63286917 }
63296918
@@ -6331,7 +6920,7 @@
63316920 printf("%s", "\n#define ");
63326921 // call printid from procblock
63336922 stack[base + 33LLU] = base;
6334- stack[base + 34LLU] = 411LLU;
6923+ stack[base + 34LLU] = 452LLU;
63356924 // arguments for call to printid
63366925 stack[base + 35LLU] = stack[base + 29/*content*/];
63376926 // set stack-base & callee-address
@@ -6339,12 +6928,12 @@
63396928 label = 18446744073709551591LLU; // printid
63406929 break;
63416930 }
6342- case 411LLU: // return from printid to procblock
6931+ case 452LLU: // return from printid to procblock
63436932 {
63446933 printf("%s", " ");
63456934 // call emitindex from procblock
63466935 stack[base + 33LLU] = base;
6347- stack[base + 34LLU] = 412LLU;
6936+ stack[base + 34LLU] = 453LLU;
63486937 // arguments for call to emitindex
63496938 stack[base + 35LLU] = stack[base + 29/*content*/];
63506939 stack[base + 36LLU] = stack[base + 18/*scopes*/];
@@ -6354,17 +6943,17 @@
63546943 label = 71LLU; // emitindex
63556944 break;
63566945 }
6357- case 412LLU: // return from emitindex to procblock
6946+ case 453LLU: // return from emitindex to procblock
63586947 {
6359- label = 410LLU; // consequent complete
6948+ label = 451LLU; // consequent complete
63606949 break;
63616950 }
6362- case 409LLU: // alternative
6951+ case 450LLU: // alternative
63636952 {
63646953 fprintf(stderr, "%s", "expected identifier in define but found ");
63656954 // call reporttok from procblock
63666955 stack[base + 33LLU] = base;
6367- stack[base + 34LLU] = 413LLU;
6956+ stack[base + 34LLU] = 454LLU;
63686957 // arguments for call to reporttok
63696958 stack[base + 35LLU] = stack[base + 28/*variant*/];
63706959 stack[base + 36LLU] = stack[base + 29/*content*/];
@@ -6373,23 +6962,23 @@
63736962 label = 18446744073709551586LLU; // reporttok
63746963 break;
63756964 }
6376- case 413LLU: // return from reporttok to procblock
6965+ case 454LLU: // return from reporttok to procblock
63776966 {
63786967 fprintf(stderr, "%s", "\n");
63796968 exit(-1);
6380- label = 410LLU; // alternative complete
6969+ label = 451LLU; // alternative complete
63816970 break;
63826971 }
6383- case 410LLU: // completed if-then-else
6972+ case 451LLU: // completed if-then-else
63846973 {
6385- label = 406LLU; // consequent complete
6974+ label = 447LLU; // consequent complete
63866975 break;
63876976 }
6388- case 405LLU: // alternative
6977+ case 446LLU: // alternative
63896978 {
63906979 // call equ from procblock
63916980 stack[base + 33LLU] = base;
6392- stack[base + 34LLU] = 414LLU;
6981+ stack[base + 34LLU] = 455LLU;
63936982 // arguments for call to equ
63946983 stack[base + 36LLU] = stack[base + 29/*content*/];
63956984 stack[base + 37LLU] = 876370176398852096LLU; // undef
@@ -6398,13 +6987,13 @@
63986987 label = 18446744073709551603LLU; // equ
63996988 break;
64006989 }
6401- case 414LLU: // return from equ to procblock
6990+ case 455LLU: // return from equ to procblock
64026991 {
64036992 // copy back results provided by call to equ
64046993 stack[base + 32/*isequal*/] = stack[base + 35LLU];
64056994 if(!stack[base + 32/*isequal*/])
64066995 {
6407- label = 415LLU; // jump to alternative
6996+ label = 456LLU; // jump to alternative
64086997 break;
64096998 }
64106999
@@ -6411,7 +7000,7 @@
64117000 // consequent
64127001 // call parsetoken from procblock
64137002 stack[base + 33LLU] = base;
6414- stack[base + 34LLU] = 417LLU;
7003+ stack[base + 34LLU] = 458LLU;
64157004 // arguments for call to parsetoken
64167005 stack[base + 38LLU] = stack[base + 27/*lookahead*/];
64177006 // set stack-base & callee-address
@@ -6419,7 +7008,7 @@
64197008 label = 18446744073709551588LLU; // parsetoken
64207009 break;
64217010 }
6422- case 417LLU: // return from parsetoken to procblock
7011+ case 458LLU: // return from parsetoken to procblock
64237012 {
64247013 // copy back results provided by call to parsetoken
64257014 stack[base + 28/*variant*/] = stack[base + 35LLU];
@@ -6427,7 +7016,7 @@
64277016 stack[base + 27/*lookahead*/] = stack[base + 37LLU];
64287017 // call equ from procblock
64297018 stack[base + 33LLU] = base;
6430- stack[base + 34LLU] = 418LLU;
7019+ stack[base + 34LLU] = 459LLU;
64317020 // arguments for call to equ
64327021 stack[base + 36LLU] = stack[base + 28/*variant*/];
64337022 stack[base + 37LLU] = 4LLU;
@@ -6436,13 +7025,13 @@
64367025 label = 18446744073709551603LLU; // equ
64377026 break;
64387027 }
6439- case 418LLU: // return from equ to procblock
7028+ case 459LLU: // return from equ to procblock
64407029 {
64417030 // copy back results provided by call to equ
64427031 stack[base + 32/*isequal*/] = stack[base + 35LLU];
64437032 if(!stack[base + 32/*isequal*/])
64447033 {
6445- label = 419LLU; // jump to alternative
7034+ label = 460LLU; // jump to alternative
64467035 break;
64477036 }
64487037
@@ -6450,7 +7039,7 @@
64507039 printf("%s", "\n#undef ");
64517040 // call printid from procblock
64527041 stack[base + 33LLU] = base;
6453- stack[base + 34LLU] = 421LLU;
7042+ stack[base + 34LLU] = 462LLU;
64547043 // arguments for call to printid
64557044 stack[base + 35LLU] = stack[base + 29/*content*/];
64567045 // set stack-base & callee-address
@@ -6458,17 +7047,17 @@
64587047 label = 18446744073709551591LLU; // printid
64597048 break;
64607049 }
6461- case 421LLU: // return from printid to procblock
7050+ case 462LLU: // return from printid to procblock
64627051 {
6463- label = 420LLU; // consequent complete
7052+ label = 461LLU; // consequent complete
64647053 break;
64657054 }
6466- case 419LLU: // alternative
7055+ case 460LLU: // alternative
64677056 {
64687057 fprintf(stderr, "%s", "expected identifier in define but found ");
64697058 // call reporttok from procblock
64707059 stack[base + 33LLU] = base;
6471- stack[base + 34LLU] = 422LLU;
7060+ stack[base + 34LLU] = 463LLU;
64727061 // arguments for call to reporttok
64737062 stack[base + 35LLU] = stack[base + 28/*variant*/];
64747063 stack[base + 36LLU] = stack[base + 29/*content*/];
@@ -6477,23 +7066,23 @@
64777066 label = 18446744073709551586LLU; // reporttok
64787067 break;
64797068 }
6480- case 422LLU: // return from reporttok to procblock
7069+ case 463LLU: // return from reporttok to procblock
64817070 {
64827071 fprintf(stderr, "%s", "\n");
64837072 exit(-1);
6484- label = 420LLU; // alternative complete
7073+ label = 461LLU; // alternative complete
64857074 break;
64867075 }
6487- case 420LLU: // completed if-then-else
7076+ case 461LLU: // completed if-then-else
64887077 {
6489- label = 416LLU; // consequent complete
7078+ label = 457LLU; // consequent complete
64907079 break;
64917080 }
6492- case 415LLU: // alternative
7081+ case 456LLU: // alternative
64937082 {
64947083 // call equ from procblock
64957084 stack[base + 33LLU] = base;
6496- stack[base + 34LLU] = 423LLU;
7085+ stack[base + 34LLU] = 464LLU;
64977086 // arguments for call to equ
64987087 stack[base + 36LLU] = stack[base + 29/*content*/];
64997088 stack[base + 37LLU] = 788334650111033344LLU; // push
@@ -6502,13 +7091,13 @@
65027091 label = 18446744073709551603LLU; // equ
65037092 break;
65047093 }
6505- case 423LLU: // return from equ to procblock
7094+ case 464LLU: // return from equ to procblock
65067095 {
65077096 // copy back results provided by call to equ
65087097 stack[base + 32/*isequal*/] = stack[base + 35LLU];
65097098 if(!stack[base + 32/*isequal*/])
65107099 {
6511- label = 424LLU; // jump to alternative
7100+ label = 465LLU; // jump to alternative
65127101 break;
65137102 }
65147103
@@ -6515,7 +7104,7 @@
65157104 // consequent
65167105 // call matchsym from procblock
65177106 stack[base + 33LLU] = base;
6518- stack[base + 34LLU] = 426LLU;
7107+ stack[base + 34LLU] = 467LLU;
65197108 // arguments for call to matchsym
65207109 stack[base + 36LLU] = 40LLU;
65217110 stack[base + 37LLU] = stack[base + 27/*lookahead*/];
@@ -6524,13 +7113,13 @@
65247113 label = 12LLU; // matchsym
65257114 break;
65267115 }
6527- case 426LLU: // return from matchsym to procblock
7116+ case 467LLU: // return from matchsym to procblock
65287117 {
65297118 // copy back results provided by call to matchsym
65307119 stack[base + 27/*lookahead*/] = stack[base + 35LLU];
65317120 // call parsetoken from procblock
65327121 stack[base + 33LLU] = base;
6533- stack[base + 34LLU] = 427LLU;
7122+ stack[base + 34LLU] = 468LLU;
65347123 // arguments for call to parsetoken
65357124 stack[base + 38LLU] = stack[base + 27/*lookahead*/];
65367125 // set stack-base & callee-address
@@ -6538,7 +7127,7 @@
65387127 label = 18446744073709551588LLU; // parsetoken
65397128 break;
65407129 }
6541- case 427LLU: // return from parsetoken to procblock
7130+ case 468LLU: // return from parsetoken to procblock
65427131 {
65437132 // copy back results provided by call to parsetoken
65447133 stack[base + 28/*variant*/] = stack[base + 35LLU];
@@ -6546,7 +7135,7 @@
65467135 stack[base + 27/*lookahead*/] = stack[base + 37LLU];
65477136 // call equ from procblock
65487137 stack[base + 33LLU] = base;
6549- stack[base + 34LLU] = 428LLU;
7138+ stack[base + 34LLU] = 469LLU;
65507139 // arguments for call to equ
65517140 stack[base + 36LLU] = stack[base + 28/*variant*/];
65527141 stack[base + 37LLU] = 4LLU;
@@ -6555,13 +7144,13 @@
65557144 label = 18446744073709551603LLU; // equ
65567145 break;
65577146 }
6558- case 428LLU: // return from equ to procblock
7147+ case 469LLU: // return from equ to procblock
65597148 {
65607149 // copy back results provided by call to equ
65617150 stack[base + 32/*isequal*/] = stack[base + 35LLU];
65627151 if(!stack[base + 32/*isequal*/])
65637152 {
6564- label = 429LLU; // jump to alternative
7153+ label = 470LLU; // jump to alternative
65657154 break;
65667155 }
65677156
@@ -6571,7 +7160,7 @@
65717160 printf("%s", "\n list->next = (struct listnode *)");
65727161 // call emitvar from procblock
65737162 stack[base + 33LLU] = base;
6574- stack[base + 34LLU] = 431LLU;
7163+ stack[base + 34LLU] = 472LLU;
65757164 // arguments for call to emitvar
65767165 stack[base + 35LLU] = stack[base + 29/*content*/];
65777166 stack[base + 36LLU] = stack[base + 18/*scopes*/];
@@ -6581,13 +7170,13 @@
65817170 label = 74LLU; // emitvar
65827171 break;
65837172 }
6584- case 431LLU: // return from emitvar to procblock
7173+ case 472LLU: // return from emitvar to procblock
65857174 {
65867175 printf("%s", ";");
65877176 printf("%s", "\n ");
65887177 // call emitvar from procblock
65897178 stack[base + 33LLU] = base;
6590- stack[base + 34LLU] = 432LLU;
7179+ stack[base + 34LLU] = 473LLU;
65917180 // arguments for call to emitvar
65927181 stack[base + 35LLU] = stack[base + 29/*content*/];
65937182 stack[base + 36LLU] = stack[base + 18/*scopes*/];
@@ -6597,12 +7186,12 @@
65977186 label = 74LLU; // emitvar
65987187 break;
65997188 }
6600- case 432LLU: // return from emitvar to procblock
7189+ case 473LLU: // return from emitvar to procblock
66017190 {
66027191 printf("%s", " = (uint64_t)list;");
66037192 // call matchsym from procblock
66047193 stack[base + 33LLU] = base;
6605- stack[base + 34LLU] = 433LLU;
7194+ stack[base + 34LLU] = 474LLU;
66067195 // arguments for call to matchsym
66077196 stack[base + 36LLU] = 44LLU;
66087197 stack[base + 37LLU] = stack[base + 27/*lookahead*/];
@@ -6611,13 +7200,13 @@
66117200 label = 12LLU; // matchsym
66127201 break;
66137202 }
6614- case 433LLU: // return from matchsym to procblock
7203+ case 474LLU: // return from matchsym to procblock
66157204 {
66167205 // copy back results provided by call to matchsym
66177206 stack[base + 27/*lookahead*/] = stack[base + 35LLU];
66187207 // call parsetoken from procblock
66197208 stack[base + 33LLU] = base;
6620- stack[base + 34LLU] = 434LLU;
7209+ stack[base + 34LLU] = 475LLU;
66217210 // arguments for call to parsetoken
66227211 stack[base + 38LLU] = stack[base + 27/*lookahead*/];
66237212 // set stack-base & callee-address
@@ -6625,7 +7214,7 @@
66257214 label = 18446744073709551588LLU; // parsetoken
66267215 break;
66277216 }
6628- case 434LLU: // return from parsetoken to procblock
7217+ case 475LLU: // return from parsetoken to procblock
66297218 {
66307219 // copy back results provided by call to parsetoken
66317220 stack[base + 28/*variant*/] = stack[base + 35LLU];
@@ -6633,7 +7222,7 @@
66337222 stack[base + 27/*lookahead*/] = stack[base + 37LLU];
66347223 // call equ from procblock
66357224 stack[base + 33LLU] = base;
6636- stack[base + 34LLU] = 435LLU;
7225+ stack[base + 34LLU] = 476LLU;
66377226 // arguments for call to equ
66387227 stack[base + 36LLU] = stack[base + 28/*variant*/];
66397228 stack[base + 37LLU] = 4LLU;
@@ -6642,13 +7231,13 @@
66427231 label = 18446744073709551603LLU; // equ
66437232 break;
66447233 }
6645- case 435LLU: // return from equ to procblock
7234+ case 476LLU: // return from equ to procblock
66467235 {
66477236 // copy back results provided by call to equ
66487237 stack[base + 32/*isequal*/] = stack[base + 35LLU];
66497238 if(!stack[base + 32/*isequal*/])
66507239 {
6651- label = 436LLU; // jump to alternative
7240+ label = 477LLU; // jump to alternative
66527241 break;
66537242 }
66547243
@@ -6656,7 +7245,7 @@
66567245 printf("%s", "\n list->data = ");
66577246 // call emitvar from procblock
66587247 stack[base + 33LLU] = base;
6659- stack[base + 34LLU] = 438LLU;
7248+ stack[base + 34LLU] = 479LLU;
66607249 // arguments for call to emitvar
66617250 stack[base + 35LLU] = stack[base + 29/*content*/];
66627251 stack[base + 36LLU] = stack[base + 18/*scopes*/];
@@ -6666,18 +7255,18 @@
66667255 label = 74LLU; // emitvar
66677256 break;
66687257 }
6669- case 438LLU: // return from emitvar to procblock
7258+ case 479LLU: // return from emitvar to procblock
66707259 {
66717260 printf("%s", ";");
6672- label = 437LLU; // consequent complete
7261+ label = 478LLU; // consequent complete
66737262 break;
66747263 }
6675- case 436LLU: // alternative
7264+ case 477LLU: // alternative
66767265 {
66777266 fprintf(stderr, "%s", "expected identifier in listpush but found ");
66787267 // call reporttok from procblock
66797268 stack[base + 33LLU] = base;
6680- stack[base + 34LLU] = 439LLU;
7269+ stack[base + 34LLU] = 480LLU;
66817270 // arguments for call to reporttok
66827271 stack[base + 35LLU] = stack[base + 28/*variant*/];
66837272 stack[base + 36LLU] = stack[base + 29/*content*/];
@@ -6686,19 +7275,19 @@
66867275 label = 18446744073709551586LLU; // reporttok
66877276 break;
66887277 }
6689- case 439LLU: // return from reporttok to procblock
7278+ case 480LLU: // return from reporttok to procblock
66907279 {
66917280 fprintf(stderr, "%s", "\n");
66927281 exit(-1);
6693- label = 437LLU; // alternative complete
7282+ label = 478LLU; // alternative complete
66947283 break;
66957284 }
6696- case 437LLU: // completed if-then-else
7285+ case 478LLU: // completed if-then-else
66977286 {
66987287 printf("%s", "\n }");
66997288 // call matchsym from procblock
67007289 stack[base + 33LLU] = base;
6701- stack[base + 34LLU] = 440LLU;
7290+ stack[base + 34LLU] = 481LLU;
67027291 // arguments for call to matchsym
67037292 stack[base + 36LLU] = 41LLU;
67047293 stack[base + 37LLU] = stack[base + 27/*lookahead*/];
@@ -6707,19 +7296,19 @@
67077296 label = 12LLU; // matchsym
67087297 break;
67097298 }
6710- case 440LLU: // return from matchsym to procblock
7299+ case 481LLU: // return from matchsym to procblock
67117300 {
67127301 // copy back results provided by call to matchsym
67137302 stack[base + 27/*lookahead*/] = stack[base + 35LLU];
6714- label = 430LLU; // consequent complete
7303+ label = 471LLU; // consequent complete
67157304 break;
67167305 }
6717- case 429LLU: // alternative
7306+ case 470LLU: // alternative
67187307 {
67197308 fprintf(stderr, "%s", "expected identifier in push but found ");
67207309 // call reporttok from procblock
67217310 stack[base + 33LLU] = base;
6722- stack[base + 34LLU] = 441LLU;
7311+ stack[base + 34LLU] = 482LLU;
67237312 // arguments for call to reporttok
67247313 stack[base + 35LLU] = stack[base + 28/*variant*/];
67257314 stack[base + 36LLU] = stack[base + 29/*content*/];
@@ -6728,23 +7317,23 @@
67287317 label = 18446744073709551586LLU; // reporttok
67297318 break;
67307319 }
6731- case 441LLU: // return from reporttok to procblock
7320+ case 482LLU: // return from reporttok to procblock
67327321 {
67337322 fprintf(stderr, "%s", "\n");
67347323 exit(-1);
6735- label = 430LLU; // alternative complete
7324+ label = 471LLU; // alternative complete
67367325 break;
67377326 }
6738- case 430LLU: // completed if-then-else
7327+ case 471LLU: // completed if-then-else
67397328 {
6740- label = 425LLU; // consequent complete
7329+ label = 466LLU; // consequent complete
67417330 break;
67427331 }
6743- case 424LLU: // alternative
7332+ case 465LLU: // alternative
67447333 {
67457334 // call equ from procblock
67467335 stack[base + 33LLU] = base;
6747- stack[base + 34LLU] = 442LLU;
7336+ stack[base + 34LLU] = 483LLU;
67487337 // arguments for call to equ
67497338 stack[base + 36LLU] = stack[base + 29/*content*/];
67507339 stack[base + 37LLU] = 860379359247073280LLU; // tuple
@@ -6753,13 +7342,13 @@
67537342 label = 18446744073709551603LLU; // equ
67547343 break;
67557344 }
6756- case 442LLU: // return from equ to procblock
7345+ case 483LLU: // return from equ to procblock
67577346 {
67587347 // copy back results provided by call to equ
67597348 stack[base + 32/*isequal*/] = stack[base + 35LLU];
67607349 if(!stack[base + 32/*isequal*/])
67617350 {
6762- label = 443LLU; // jump to alternative
7351+ label = 484LLU; // jump to alternative
67637352 break;
67647353 }
67657354
@@ -6766,7 +7355,7 @@
67667355 // consequent
67677356 // call parsetoken from procblock
67687357 stack[base + 33LLU] = base;
6769- stack[base + 34LLU] = 445LLU;
7358+ stack[base + 34LLU] = 486LLU;
67707359 // arguments for call to parsetoken
67717360 stack[base + 38LLU] = stack[base + 27/*lookahead*/];
67727361 // set stack-base & callee-address
@@ -6774,7 +7363,7 @@
67747363 label = 18446744073709551588LLU; // parsetoken
67757364 break;
67767365 }
6777- case 445LLU: // return from parsetoken to procblock
7366+ case 486LLU: // return from parsetoken to procblock
67787367 {
67797368 // copy back results provided by call to parsetoken
67807369 stack[base + 28/*variant*/] = stack[base + 35LLU];
@@ -6782,7 +7371,7 @@
67827371 stack[base + 27/*lookahead*/] = stack[base + 37LLU];
67837372 // call equ from procblock
67847373 stack[base + 33LLU] = base;
6785- stack[base + 34LLU] = 446LLU;
7374+ stack[base + 34LLU] = 487LLU;
67867375 // arguments for call to equ
67877376 stack[base + 36LLU] = stack[base + 28/*variant*/];
67887377 stack[base + 37LLU] = 4LLU;
@@ -6791,13 +7380,13 @@
67917380 label = 18446744073709551603LLU; // equ
67927381 break;
67937382 }
6794- case 446LLU: // return from equ to procblock
7383+ case 487LLU: // return from equ to procblock
67957384 {
67967385 // copy back results provided by call to equ
67977386 stack[base + 32/*isequal*/] = stack[base + 35LLU];
67987387 if(!stack[base + 32/*isequal*/])
67997388 {
6800- label = 447LLU; // jump to alternative
7389+ label = 488LLU; // jump to alternative
68017390 break;
68027391 }
68037392
@@ -6805,7 +7394,7 @@
68057394 printf("%s", "\n ");
68067395 // call emitvar from procblock
68077396 stack[base + 33LLU] = base;
6808- stack[base + 34LLU] = 449LLU;
7397+ stack[base + 34LLU] = 490LLU;
68097398 // arguments for call to emitvar
68107399 stack[base + 35LLU] = stack[base + 29/*content*/];
68117400 stack[base + 36LLU] = stack[base + 18/*scopes*/];
@@ -6815,12 +7404,12 @@
68157404 label = 74LLU; // emitvar
68167405 break;
68177406 }
6818- case 449LLU: // return from emitvar to procblock
7407+ case 490LLU: // return from emitvar to procblock
68197408 {
68207409 printf("%s", " = ");
68217410 // call parsetoken from procblock
68227411 stack[base + 33LLU] = base;
6823- stack[base + 34LLU] = 450LLU;
7412+ stack[base + 34LLU] = 491LLU;
68247413 // arguments for call to parsetoken
68257414 stack[base + 38LLU] = stack[base + 27/*lookahead*/];
68267415 // set stack-base & callee-address
@@ -6828,7 +7417,7 @@
68287417 label = 18446744073709551588LLU; // parsetoken
68297418 break;
68307419 }
6831- case 450LLU: // return from parsetoken to procblock
7420+ case 491LLU: // return from parsetoken to procblock
68327421 {
68337422 // copy back results provided by call to parsetoken
68347423 stack[base + 28/*variant*/] = stack[base + 35LLU];
@@ -6836,7 +7425,7 @@
68367425 stack[base + 27/*lookahead*/] = stack[base + 37LLU];
68377426 // call equ from procblock
68387427 stack[base + 33LLU] = base;
6839- stack[base + 34LLU] = 451LLU;
7428+ stack[base + 34LLU] = 492LLU;
68407429 // arguments for call to equ
68417430 stack[base + 36LLU] = stack[base + 28/*variant*/];
68427431 stack[base + 37LLU] = 1LLU;
@@ -6845,13 +7434,13 @@
68457434 label = 18446744073709551603LLU; // equ
68467435 break;
68477436 }
6848- case 451LLU: // return from equ to procblock
7437+ case 492LLU: // return from equ to procblock
68497438 {
68507439 // copy back results provided by call to equ
68517440 stack[base + 32/*isequal*/] = stack[base + 35LLU];
68527441 if(!stack[base + 32/*isequal*/])
68537442 {
6854- label = 452LLU; // jump to alternative
7443+ label = 493LLU; // jump to alternative
68557444 break;
68567445 }
68577446
@@ -6859,7 +7448,7 @@
68597448 printf("%s", "(uint64_t)calloc(");
68607449 // call printnr from procblock
68617450 stack[base + 33LLU] = base;
6862- stack[base + 34LLU] = 454LLU;
7451+ stack[base + 34LLU] = 495LLU;
68637452 // arguments for call to printnr
68647453 stack[base + 35LLU] = stack[base + 29/*content*/];
68657454 // set stack-base & callee-address
@@ -6867,18 +7456,18 @@
68677456 label = 18446744073709551594LLU; // printnr
68687457 break;
68697458 }
6870- case 454LLU: // return from printnr to procblock
7459+ case 495LLU: // return from printnr to procblock
68717460 {
68727461 printf("%s", ", sizeof(uint64_t));");
6873- label = 453LLU; // consequent complete
7462+ label = 494LLU; // consequent complete
68747463 break;
68757464 }
6876- case 452LLU: // alternative
7465+ case 493LLU: // alternative
68777466 {
68787467 fprintf(stderr, "%s", "expected size in tuple but found ");
68797468 // call reporttok from procblock
68807469 stack[base + 33LLU] = base;
6881- stack[base + 34LLU] = 455LLU;
7470+ stack[base + 34LLU] = 496LLU;
68827471 // arguments for call to reporttok
68837472 stack[base + 35LLU] = stack[base + 28/*variant*/];
68847473 stack[base + 36LLU] = stack[base + 29/*content*/];
@@ -6887,24 +7476,24 @@
68877476 label = 18446744073709551586LLU; // reporttok
68887477 break;
68897478 }
6890- case 455LLU: // return from reporttok to procblock
7479+ case 496LLU: // return from reporttok to procblock
68917480 {
68927481 fprintf(stderr, "%s", "\n");
68937482 exit(-1);
6894- label = 453LLU; // alternative complete
7483+ label = 494LLU; // alternative complete
68957484 break;
68967485 }
6897- case 453LLU: // completed if-then-else
7486+ case 494LLU: // completed if-then-else
68987487 {
6899- label = 448LLU; // consequent complete
7488+ label = 489LLU; // consequent complete
69007489 break;
69017490 }
6902- case 447LLU: // alternative
7491+ case 488LLU: // alternative
69037492 {
69047493 fprintf(stderr, "%s", "expected identifier in tuple but found ");
69057494 // call reporttok from procblock
69067495 stack[base + 33LLU] = base;
6907- stack[base + 34LLU] = 456LLU;
7496+ stack[base + 34LLU] = 497LLU;
69087497 // arguments for call to reporttok
69097498 stack[base + 35LLU] = stack[base + 28/*variant*/];
69107499 stack[base + 36LLU] = stack[base + 29/*content*/];
@@ -6913,23 +7502,23 @@
69137502 label = 18446744073709551586LLU; // reporttok
69147503 break;
69157504 }
6916- case 456LLU: // return from reporttok to procblock
7505+ case 497LLU: // return from reporttok to procblock
69177506 {
69187507 fprintf(stderr, "%s", "\n");
69197508 exit(-1);
6920- label = 448LLU; // alternative complete
7509+ label = 489LLU; // alternative complete
69217510 break;
69227511 }
6923- case 448LLU: // completed if-then-else
7512+ case 489LLU: // completed if-then-else
69247513 {
6925- label = 444LLU; // consequent complete
7514+ label = 485LLU; // consequent complete
69267515 break;
69277516 }
6928- case 443LLU: // alternative
7517+ case 484LLU: // alternative
69297518 {
69307519 // call equ from procblock
69317520 stack[base + 33LLU] = base;
6932- stack[base + 34LLU] = 457LLU;
7521+ stack[base + 34LLU] = 498LLU;
69337522 // arguments for call to equ
69347523 stack[base + 36LLU] = stack[base + 29/*content*/];
69357524 stack[base + 37LLU] = 607284461276495872LLU; // free
@@ -6938,13 +7527,13 @@
69387527 label = 18446744073709551603LLU; // equ
69397528 break;
69407529 }
6941- case 457LLU: // return from equ to procblock
7530+ case 498LLU: // return from equ to procblock
69427531 {
69437532 // copy back results provided by call to equ
69447533 stack[base + 32/*isequal*/] = stack[base + 35LLU];
69457534 if(!stack[base + 32/*isequal*/])
69467535 {
6947- label = 458LLU; // jump to alternative
7536+ label = 499LLU; // jump to alternative
69487537 break;
69497538 }
69507539
@@ -6951,7 +7540,7 @@
69517540 // consequent
69527541 // call parsetoken from procblock
69537542 stack[base + 33LLU] = base;
6954- stack[base + 34LLU] = 460LLU;
7543+ stack[base + 34LLU] = 501LLU;
69557544 // arguments for call to parsetoken
69567545 stack[base + 38LLU] = stack[base + 27/*lookahead*/];
69577546 // set stack-base & callee-address
@@ -6959,7 +7548,7 @@
69597548 label = 18446744073709551588LLU; // parsetoken
69607549 break;
69617550 }
6962- case 460LLU: // return from parsetoken to procblock
7551+ case 501LLU: // return from parsetoken to procblock
69637552 {
69647553 // copy back results provided by call to parsetoken
69657554 stack[base + 28/*variant*/] = stack[base + 35LLU];
@@ -6967,7 +7556,7 @@
69677556 stack[base + 27/*lookahead*/] = stack[base + 37LLU];
69687557 // call equ from procblock
69697558 stack[base + 33LLU] = base;
6970- stack[base + 34LLU] = 461LLU;
7559+ stack[base + 34LLU] = 502LLU;
69717560 // arguments for call to equ
69727561 stack[base + 36LLU] = stack[base + 28/*variant*/];
69737562 stack[base + 37LLU] = 4LLU;
@@ -6976,13 +7565,13 @@
69767565 label = 18446744073709551603LLU; // equ
69777566 break;
69787567 }
6979- case 461LLU: // return from equ to procblock
7568+ case 502LLU: // return from equ to procblock
69807569 {
69817570 // copy back results provided by call to equ
69827571 stack[base + 32/*isequal*/] = stack[base + 35LLU];
69837572 if(!stack[base + 32/*isequal*/])
69847573 {
6985- label = 462LLU; // jump to alternative
7574+ label = 503LLU; // jump to alternative
69867575 break;
69877576 }
69887577
@@ -6990,7 +7579,7 @@
69907579 printf("%s", "\n free((uint64_t *)");
69917580 // call emitvar from procblock
69927581 stack[base + 33LLU] = base;
6993- stack[base + 34LLU] = 464LLU;
7582+ stack[base + 34LLU] = 505LLU;
69947583 // arguments for call to emitvar
69957584 stack[base + 35LLU] = stack[base + 29/*content*/];
69967585 stack[base + 36LLU] = stack[base + 18/*scopes*/];
@@ -7000,18 +7589,18 @@
70007589 label = 74LLU; // emitvar
70017590 break;
70027591 }
7003- case 464LLU: // return from emitvar to procblock
7592+ case 505LLU: // return from emitvar to procblock
70047593 {
70057594 printf("%s", ");");
7006- label = 463LLU; // consequent complete
7595+ label = 504LLU; // consequent complete
70077596 break;
70087597 }
7009- case 462LLU: // alternative
7598+ case 503LLU: // alternative
70107599 {
70117600 fprintf(stderr, "%s", "expected identifier in free but found ");
70127601 // call reporttok from procblock
70137602 stack[base + 33LLU] = base;
7014- stack[base + 34LLU] = 465LLU;
7603+ stack[base + 34LLU] = 506LLU;
70157604 // arguments for call to reporttok
70167605 stack[base + 35LLU] = stack[base + 28/*variant*/];
70177606 stack[base + 36LLU] = stack[base + 29/*content*/];
@@ -7020,25 +7609,25 @@
70207609 label = 18446744073709551586LLU; // reporttok
70217610 break;
70227611 }
7023- case 465LLU: // return from reporttok to procblock
7612+ case 506LLU: // return from reporttok to procblock
70247613 {
70257614 fprintf(stderr, "%s", "\n");
70267615 exit(-1);
7027- label = 463LLU; // alternative complete
7616+ label = 504LLU; // alternative complete
70287617 break;
70297618 }
7030- case 463LLU: // completed if-then-else
7619+ case 504LLU: // completed if-then-else
70317620 {
7032- label = 459LLU; // consequent complete
7621+ label = 500LLU; // consequent complete
70337622 break;
70347623 }
7035- case 458LLU: // alternative
7624+ case 499LLU: // alternative
70367625 {
70377626 //#define id 33
70387627 stack[base + 33/*id*/] = stack[base + 29/*content*/];
70397628 // call parsetoken from procblock
70407629 stack[base + 34LLU] = base;
7041- stack[base + 35LLU] = 466LLU;
7630+ stack[base + 35LLU] = 507LLU;
70427631 // arguments for call to parsetoken
70437632 stack[base + 39LLU] = stack[base + 27/*lookahead*/];
70447633 // set stack-base & callee-address
@@ -7046,7 +7635,7 @@
70467635 label = 18446744073709551588LLU; // parsetoken
70477636 break;
70487637 }
7049- case 466LLU: // return from parsetoken to procblock
7638+ case 507LLU: // return from parsetoken to procblock
70507639 {
70517640 // copy back results provided by call to parsetoken
70527641 stack[base + 28/*variant*/] = stack[base + 36LLU];
@@ -7054,7 +7643,7 @@
70547643 stack[base + 27/*lookahead*/] = stack[base + 38LLU];
70557644 // call issimple from procblock
70567645 stack[base + 34LLU] = base;
7057- stack[base + 35LLU] = 467LLU;
7646+ stack[base + 35LLU] = 508LLU;
70587647 // arguments for call to issimple
70597648 stack[base + 37LLU] = stack[base + 28/*variant*/];
70607649 stack[base + 38LLU] = stack[base + 29/*content*/];
@@ -7064,13 +7653,13 @@
70647653 label = 3LLU; // issimple
70657654 break;
70667655 }
7067- case 467LLU: // return from issimple to procblock
7656+ case 508LLU: // return from issimple to procblock
70687657 {
70697658 // copy back results provided by call to issimple
70707659 stack[base + 32/*isequal*/] = stack[base + 36LLU];
70717660 if(!stack[base + 32/*isequal*/])
70727661 {
7073- label = 468LLU; // jump to alternative
7662+ label = 509LLU; // jump to alternative
70747663 break;
70757664 }
70767665
@@ -7078,7 +7667,7 @@
70787667 printf("%s", "\n ((uint64_t *)(");
70797668 // call emitvar from procblock
70807669 stack[base + 34LLU] = base;
7081- stack[base + 35LLU] = 470LLU;
7670+ stack[base + 35LLU] = 511LLU;
70827671 // arguments for call to emitvar
70837672 stack[base + 36LLU] = stack[base + 33/*id*/];
70847673 stack[base + 37LLU] = stack[base + 18/*scopes*/];
@@ -7088,12 +7677,12 @@
70887677 label = 74LLU; // emitvar
70897678 break;
70907679 }
7091- case 470LLU: // return from emitvar to procblock
7680+ case 511LLU: // return from emitvar to procblock
70927681 {
70937682 printf("%s", "))");
70947683 // call parsetoken from procblock
70957684 stack[base + 34LLU] = base;
7096- stack[base + 35LLU] = 471LLU;
7685+ stack[base + 35LLU] = 512LLU;
70977686 // arguments for call to parsetoken
70987687 stack[base + 39LLU] = stack[base + 27/*lookahead*/];
70997688 // set stack-base & callee-address
@@ -7101,7 +7690,7 @@
71017690 label = 18446744073709551588LLU; // parsetoken
71027691 break;
71037692 }
7104- case 471LLU: // return from parsetoken to procblock
7693+ case 512LLU: // return from parsetoken to procblock
71057694 {
71067695 // copy back results provided by call to parsetoken
71077696 stack[base + 28/*variant*/] = stack[base + 36LLU];
@@ -7109,7 +7698,7 @@
71097698 stack[base + 27/*lookahead*/] = stack[base + 38LLU];
71107699 // call equ from procblock
71117700 stack[base + 34LLU] = base;
7112- stack[base + 35LLU] = 472LLU;
7701+ stack[base + 35LLU] = 513LLU;
71137702 // arguments for call to equ
71147703 stack[base + 37LLU] = stack[base + 28/*variant*/];
71157704 stack[base + 38LLU] = 1LLU;
@@ -7118,13 +7707,13 @@
71187707 label = 18446744073709551603LLU; // equ
71197708 break;
71207709 }
7121- case 472LLU: // return from equ to procblock
7710+ case 513LLU: // return from equ to procblock
71227711 {
71237712 // copy back results provided by call to equ
71247713 stack[base + 32/*isequal*/] = stack[base + 36LLU];
71257714 if(!stack[base + 32/*isequal*/])
71267715 {
7127- label = 473LLU; // jump to alternative
7716+ label = 514LLU; // jump to alternative
71287717 break;
71297718 }
71307719
@@ -7131,7 +7720,7 @@
71317720 // consequent
71327721 // call matchsym from procblock
71337722 stack[base + 34LLU] = base;
7134- stack[base + 35LLU] = 475LLU;
7723+ stack[base + 35LLU] = 516LLU;
71357724 // arguments for call to matchsym
71367725 stack[base + 37LLU] = 93LLU;
71377726 stack[base + 38LLU] = stack[base + 27/*lookahead*/];
@@ -7140,7 +7729,7 @@
71407729 label = 12LLU; // matchsym
71417730 break;
71427731 }
7143- case 475LLU: // return from matchsym to procblock
7732+ case 516LLU: // return from matchsym to procblock
71447733 {
71457734 // copy back results provided by call to matchsym
71467735 stack[base + 27/*lookahead*/] = stack[base + 36LLU];
@@ -7147,7 +7736,7 @@
71477736 printf("%s", "[");
71487737 // call printnr from procblock
71497738 stack[base + 34LLU] = base;
7150- stack[base + 35LLU] = 476LLU;
7739+ stack[base + 35LLU] = 517LLU;
71517740 // arguments for call to printnr
71527741 stack[base + 36LLU] = stack[base + 29/*content*/];
71537742 // set stack-base & callee-address
@@ -7155,12 +7744,12 @@
71557744 label = 18446744073709551594LLU; // printnr
71567745 break;
71577746 }
7158- case 476LLU: // return from printnr to procblock
7747+ case 517LLU: // return from printnr to procblock
71597748 {
71607749 printf("%s", "] = ");
71617750 // call matchsym from procblock
71627751 stack[base + 34LLU] = base;
7163- stack[base + 35LLU] = 477LLU;
7752+ stack[base + 35LLU] = 518LLU;
71647753 // arguments for call to matchsym
71657754 stack[base + 37LLU] = 61LLU;
71667755 stack[base + 38LLU] = stack[base + 27/*lookahead*/];
@@ -7169,13 +7758,13 @@
71697758 label = 12LLU; // matchsym
71707759 break;
71717760 }
7172- case 477LLU: // return from matchsym to procblock
7761+ case 518LLU: // return from matchsym to procblock
71737762 {
71747763 // copy back results provided by call to matchsym
71757764 stack[base + 27/*lookahead*/] = stack[base + 36LLU];
71767765 // call parsetoken from procblock
71777766 stack[base + 34LLU] = base;
7178- stack[base + 35LLU] = 478LLU;
7767+ stack[base + 35LLU] = 519LLU;
71797768 // arguments for call to parsetoken
71807769 stack[base + 39LLU] = stack[base + 27/*lookahead*/];
71817770 // set stack-base & callee-address
@@ -7183,7 +7772,7 @@
71837772 label = 18446744073709551588LLU; // parsetoken
71847773 break;
71857774 }
7186- case 478LLU: // return from parsetoken to procblock
7775+ case 519LLU: // return from parsetoken to procblock
71877776 {
71887777 // copy back results provided by call to parsetoken
71897778 stack[base + 28/*variant*/] = stack[base + 36LLU];
@@ -7191,7 +7780,7 @@
71917780 stack[base + 27/*lookahead*/] = stack[base + 38LLU];
71927781 // call equ from procblock
71937782 stack[base + 34LLU] = base;
7194- stack[base + 35LLU] = 479LLU;
7783+ stack[base + 35LLU] = 520LLU;
71957784 // arguments for call to equ
71967785 stack[base + 37LLU] = stack[base + 28/*variant*/];
71977786 stack[base + 38LLU] = 1LLU;
@@ -7200,13 +7789,13 @@
72007789 label = 18446744073709551603LLU; // equ
72017790 break;
72027791 }
7203- case 479LLU: // return from equ to procblock
7792+ case 520LLU: // return from equ to procblock
72047793 {
72057794 // copy back results provided by call to equ
72067795 stack[base + 32/*isequal*/] = stack[base + 36LLU];
72077796 if(!stack[base + 32/*isequal*/])
72087797 {
7209- label = 480LLU; // jump to alternative
7798+ label = 521LLU; // jump to alternative
72107799 break;
72117800 }
72127801
@@ -7213,7 +7802,7 @@
72137802 // consequent
72147803 // call printnr from procblock
72157804 stack[base + 34LLU] = base;
7216- stack[base + 35LLU] = 482LLU;
7805+ stack[base + 35LLU] = 523LLU;
72177806 // arguments for call to printnr
72187807 stack[base + 36LLU] = stack[base + 29/*content*/];
72197808 // set stack-base & callee-address
@@ -7221,17 +7810,17 @@
72217810 label = 18446744073709551594LLU; // printnr
72227811 break;
72237812 }
7224- case 482LLU: // return from printnr to procblock
7813+ case 523LLU: // return from printnr to procblock
72257814 {
72267815 printf("%s", ";");
7227- label = 481LLU; // consequent complete
7816+ label = 522LLU; // consequent complete
72287817 break;
72297818 }
7230- case 480LLU: // alternative
7819+ case 521LLU: // alternative
72317820 {
72327821 // call equ from procblock
72337822 stack[base + 34LLU] = base;
7234- stack[base + 35LLU] = 483LLU;
7823+ stack[base + 35LLU] = 524LLU;
72357824 // arguments for call to equ
72367825 stack[base + 37LLU] = stack[base + 28/*variant*/];
72377826 stack[base + 38LLU] = 2LLU;
@@ -7240,13 +7829,13 @@
72407829 label = 18446744073709551603LLU; // equ
72417830 break;
72427831 }
7243- case 483LLU: // return from equ to procblock
7832+ case 524LLU: // return from equ to procblock
72447833 {
72457834 // copy back results provided by call to equ
72467835 stack[base + 32/*isequal*/] = stack[base + 36LLU];
72477836 if(!stack[base + 32/*isequal*/])
72487837 {
7249- label = 484LLU; // jump to alternative
7838+ label = 525LLU; // jump to alternative
72507839 break;
72517840 }
72527841
@@ -7253,7 +7842,7 @@
72537842 // consequent
72547843 // call printnr from procblock
72557844 stack[base + 34LLU] = base;
7256- stack[base + 35LLU] = 486LLU;
7845+ stack[base + 35LLU] = 527LLU;
72577846 // arguments for call to printnr
72587847 stack[base + 36LLU] = stack[base + 29/*content*/];
72597848 // set stack-base & callee-address
@@ -7261,12 +7850,12 @@
72617850 label = 18446744073709551594LLU; // printnr
72627851 break;
72637852 }
7264- case 486LLU: // return from printnr to procblock
7853+ case 527LLU: // return from printnr to procblock
72657854 {
72667855 printf("%s", "; // ");
72677856 // call printbyte from procblock
72687857 stack[base + 34LLU] = base;
7269- stack[base + 35LLU] = 487LLU;
7858+ stack[base + 35LLU] = 528LLU;
72707859 // arguments for call to printbyte
72717860 stack[base + 36LLU] = stack[base + 29/*content*/];
72727861 // set stack-base & callee-address
@@ -7274,16 +7863,16 @@
72747863 label = 18446744073709551596LLU; // printbyte
72757864 break;
72767865 }
7277- case 487LLU: // return from printbyte to procblock
7866+ case 528LLU: // return from printbyte to procblock
72787867 {
7279- label = 485LLU; // consequent complete
7868+ label = 526LLU; // consequent complete
72807869 break;
72817870 }
7282- case 484LLU: // alternative
7871+ case 525LLU: // alternative
72837872 {
72847873 // call equ from procblock
72857874 stack[base + 34LLU] = base;
7286- stack[base + 35LLU] = 488LLU;
7875+ stack[base + 35LLU] = 529LLU;
72877876 // arguments for call to equ
72887877 stack[base + 37LLU] = stack[base + 28/*variant*/];
72897878 stack[base + 38LLU] = 3LLU;
@@ -7292,13 +7881,13 @@
72927881 label = 18446744073709551603LLU; // equ
72937882 break;
72947883 }
7295- case 488LLU: // return from equ to procblock
7884+ case 529LLU: // return from equ to procblock
72967885 {
72977886 // copy back results provided by call to equ
72987887 stack[base + 32/*isequal*/] = stack[base + 36LLU];
72997888 if(!stack[base + 32/*isequal*/])
73007889 {
7301- label = 489LLU; // jump to alternative
7890+ label = 530LLU; // jump to alternative
73027891 break;
73037892 }
73047893
@@ -7305,7 +7894,7 @@
73057894 // consequent
73067895 // call printnr from procblock
73077896 stack[base + 34LLU] = base;
7308- stack[base + 35LLU] = 491LLU;
7897+ stack[base + 35LLU] = 532LLU;
73097898 // arguments for call to printnr
73107899 stack[base + 36LLU] = stack[base + 29/*content*/];
73117900 // set stack-base & callee-address
@@ -7313,12 +7902,12 @@
73137902 label = 18446744073709551594LLU; // printnr
73147903 break;
73157904 }
7316- case 491LLU: // return from printnr to procblock
7905+ case 532LLU: // return from printnr to procblock
73177906 {
73187907 printf("%s", "; // ");
73197908 // call printid from procblock
73207909 stack[base + 34LLU] = base;
7321- stack[base + 35LLU] = 492LLU;
7910+ stack[base + 35LLU] = 533LLU;
73227911 // arguments for call to printid
73237912 stack[base + 36LLU] = stack[base + 29/*content*/];
73247913 // set stack-base & callee-address
@@ -7326,17 +7915,17 @@
73267915 label = 18446744073709551591LLU; // printid
73277916 break;
73287917 }
7329- case 492LLU: // return from printid to procblock
7918+ case 533LLU: // return from printid to procblock
73307919 {
73317920 printf("%s", "");
7332- label = 490LLU; // consequent complete
7921+ label = 531LLU; // consequent complete
73337922 break;
73347923 }
7335- case 489LLU: // alternative
7924+ case 530LLU: // alternative
73367925 {
73377926 // call equ from procblock
73387927 stack[base + 34LLU] = base;
7339- stack[base + 35LLU] = 493LLU;
7928+ stack[base + 35LLU] = 534LLU;
73407929 // arguments for call to equ
73417930 stack[base + 37LLU] = stack[base + 28/*variant*/];
73427931 stack[base + 38LLU] = 4LLU;
@@ -7345,13 +7934,13 @@
73457934 label = 18446744073709551603LLU; // equ
73467935 break;
73477936 }
7348- case 493LLU: // return from equ to procblock
7937+ case 534LLU: // return from equ to procblock
73497938 {
73507939 // copy back results provided by call to equ
73517940 stack[base + 32/*isequal*/] = stack[base + 36LLU];
73527941 if(!stack[base + 32/*isequal*/])
73537942 {
7354- label = 494LLU; // jump to alternative
7943+ label = 535LLU; // jump to alternative
73557944 break;
73567945 }
73577946
@@ -7359,7 +7948,7 @@
73597948 stack[base + 33/*id*/] = stack[base + 29/*content*/];
73607949 // call skipwscmnt from procblock
73617950 stack[base + 34LLU] = base;
7362- stack[base + 35LLU] = 496LLU;
7951+ stack[base + 35LLU] = 537LLU;
73637952 // arguments for call to skipwscmnt
73647953 stack[base + 37LLU] = stack[base + 27/*lookahead*/];
73657954 // set stack-base & callee-address
@@ -7367,13 +7956,13 @@
73677956 label = 18446744073709551584LLU; // skipwscmnt
73687957 break;
73697958 }
7370- case 496LLU: // return from skipwscmnt to procblock
7959+ case 537LLU: // return from skipwscmnt to procblock
73717960 {
73727961 // copy back results provided by call to skipwscmnt
73737962 stack[base + 27/*lookahead*/] = stack[base + 36LLU];
73747963 // call equ from procblock
73757964 stack[base + 34LLU] = base;
7376- stack[base + 35LLU] = 497LLU;
7965+ stack[base + 35LLU] = 538LLU;
73777966 // arguments for call to equ
73787967 stack[base + 37LLU] = 91LLU;
73797968 stack[base + 38LLU] = stack[base + 27/*lookahead*/];
@@ -7382,13 +7971,13 @@
73827971 label = 18446744073709551603LLU; // equ
73837972 break;
73847973 }
7385- case 497LLU: // return from equ to procblock
7974+ case 538LLU: // return from equ to procblock
73867975 {
73877976 // copy back results provided by call to equ
73887977 stack[base + 32/*isequal*/] = stack[base + 36LLU];
73897978 if(!stack[base + 32/*isequal*/])
73907979 {
7391- label = 498LLU; // jump to alternative
7980+ label = 539LLU; // jump to alternative
73927981 break;
73937982 }
73947983
@@ -7395,7 +7984,7 @@
73957984 // consequent
73967985 // call matchsym from procblock
73977986 stack[base + 34LLU] = base;
7398- stack[base + 35LLU] = 500LLU;
7987+ stack[base + 35LLU] = 541LLU;
73997988 // arguments for call to matchsym
74007989 stack[base + 37LLU] = 91LLU;
74017990 stack[base + 38LLU] = stack[base + 27/*lookahead*/];
@@ -7404,13 +7993,13 @@
74047993 label = 12LLU; // matchsym
74057994 break;
74067995 }
7407- case 500LLU: // return from matchsym to procblock
7996+ case 541LLU: // return from matchsym to procblock
74087997 {
74097998 // copy back results provided by call to matchsym
74107999 stack[base + 27/*lookahead*/] = stack[base + 36LLU];
74118000 // call parsetoken from procblock
74128001 stack[base + 34LLU] = base;
7413- stack[base + 35LLU] = 501LLU;
8002+ stack[base + 35LLU] = 542LLU;
74148003 // arguments for call to parsetoken
74158004 stack[base + 39LLU] = stack[base + 27/*lookahead*/];
74168005 // set stack-base & callee-address
@@ -7418,7 +8007,7 @@
74188007 label = 18446744073709551588LLU; // parsetoken
74198008 break;
74208009 }
7421- case 501LLU: // return from parsetoken to procblock
8010+ case 542LLU: // return from parsetoken to procblock
74228011 {
74238012 // copy back results provided by call to parsetoken
74248013 stack[base + 28/*variant*/] = stack[base + 36LLU];
@@ -7426,7 +8015,7 @@
74268015 stack[base + 27/*lookahead*/] = stack[base + 38LLU];
74278016 // call equ from procblock
74288017 stack[base + 34LLU] = base;
7429- stack[base + 35LLU] = 502LLU;
8018+ stack[base + 35LLU] = 543LLU;
74308019 // arguments for call to equ
74318020 stack[base + 37LLU] = stack[base + 28/*variant*/];
74328021 stack[base + 38LLU] = 1LLU;
@@ -7435,13 +8024,13 @@
74358024 label = 18446744073709551603LLU; // equ
74368025 break;
74378026 }
7438- case 502LLU: // return from equ to procblock
8027+ case 543LLU: // return from equ to procblock
74398028 {
74408029 // copy back results provided by call to equ
74418030 stack[base + 32/*isequal*/] = stack[base + 36LLU];
74428031 if(!stack[base + 32/*isequal*/])
74438032 {
7444- label = 503LLU; // jump to alternative
8033+ label = 544LLU; // jump to alternative
74458034 break;
74468035 }
74478036
@@ -7449,7 +8038,7 @@
74498038 printf("%s", "((uint64_t *)(");
74508039 // call emitvar from procblock
74518040 stack[base + 34LLU] = base;
7452- stack[base + 35LLU] = 505LLU;
8041+ stack[base + 35LLU] = 546LLU;
74538042 // arguments for call to emitvar
74548043 stack[base + 36LLU] = stack[base + 33/*id*/];
74558044 stack[base + 37LLU] = stack[base + 18/*scopes*/];
@@ -7459,12 +8048,12 @@
74598048 label = 74LLU; // emitvar
74608049 break;
74618050 }
7462- case 505LLU: // return from emitvar to procblock
8051+ case 546LLU: // return from emitvar to procblock
74638052 {
74648053 printf("%s", "))[");
74658054 // call printnr from procblock
74668055 stack[base + 34LLU] = base;
7467- stack[base + 35LLU] = 506LLU;
8056+ stack[base + 35LLU] = 547LLU;
74688057 // arguments for call to printnr
74698058 stack[base + 36LLU] = stack[base + 29/*content*/];
74708059 // set stack-base & callee-address
@@ -7472,18 +8061,18 @@
74728061 label = 18446744073709551594LLU; // printnr
74738062 break;
74748063 }
7475- case 506LLU: // return from printnr to procblock
8064+ case 547LLU: // return from printnr to procblock
74768065 {
74778066 printf("%s", "];");
7478- label = 504LLU; // consequent complete
8067+ label = 545LLU; // consequent complete
74798068 break;
74808069 }
7481- case 503LLU: // alternative
8070+ case 544LLU: // alternative
74828071 {
74838072 fprintf(stderr, "%s", "in array-get expected index but found ");
74848073 // call reporttok from procblock
74858074 stack[base + 34LLU] = base;
7486- stack[base + 35LLU] = 507LLU;
8075+ stack[base + 35LLU] = 548LLU;
74878076 // arguments for call to reporttok
74888077 stack[base + 36LLU] = stack[base + 28/*variant*/];
74898078 stack[base + 37LLU] = stack[base + 29/*content*/];
@@ -7492,18 +8081,18 @@
74928081 label = 18446744073709551586LLU; // reporttok
74938082 break;
74948083 }
7495- case 507LLU: // return from reporttok to procblock
8084+ case 548LLU: // return from reporttok to procblock
74968085 {
74978086 fprintf(stderr, "%s", "\n");
74988087 exit(-1);
7499- label = 504LLU; // alternative complete
8088+ label = 545LLU; // alternative complete
75008089 break;
75018090 }
7502- case 504LLU: // completed if-then-else
8091+ case 545LLU: // completed if-then-else
75038092 {
75048093 // call matchsym from procblock
75058094 stack[base + 34LLU] = base;
7506- stack[base + 35LLU] = 508LLU;
8095+ stack[base + 35LLU] = 549LLU;
75078096 // arguments for call to matchsym
75088097 stack[base + 37LLU] = 93LLU;
75098098 stack[base + 38LLU] = stack[base + 27/*lookahead*/];
@@ -7512,18 +8101,18 @@
75128101 label = 12LLU; // matchsym
75138102 break;
75148103 }
7515- case 508LLU: // return from matchsym to procblock
8104+ case 549LLU: // return from matchsym to procblock
75168105 {
75178106 // copy back results provided by call to matchsym
75188107 stack[base + 27/*lookahead*/] = stack[base + 36LLU];
7519- label = 499LLU; // consequent complete
8108+ label = 540LLU; // consequent complete
75208109 break;
75218110 }
7522- case 498LLU: // alternative
8111+ case 539LLU: // alternative
75238112 {
75248113 // call emitvar from procblock
75258114 stack[base + 34LLU] = base;
7526- stack[base + 35LLU] = 509LLU;
8115+ stack[base + 35LLU] = 550LLU;
75278116 // arguments for call to emitvar
75288117 stack[base + 36LLU] = stack[base + 29/*content*/];
75298118 stack[base + 37LLU] = stack[base + 18/*scopes*/];
@@ -7533,23 +8122,23 @@
75338122 label = 74LLU; // emitvar
75348123 break;
75358124 }
7536- case 509LLU: // return from emitvar to procblock
8125+ case 550LLU: // return from emitvar to procblock
75378126 {
75388127 printf("%s", ";");
7539- label = 499LLU; // alternative complete
8128+ label = 540LLU; // alternative complete
75408129 break;
75418130 }
7542- case 499LLU: // completed if-then-else
8131+ case 540LLU: // completed if-then-else
75438132 {
7544- label = 495LLU; // consequent complete
8133+ label = 536LLU; // consequent complete
75458134 break;
75468135 }
7547- case 494LLU: // alternative
8136+ case 535LLU: // alternative
75488137 {
75498138 fprintf(stderr, "%s", "parsing assignment unexpected token ");
75508139 // call reporttok from procblock
75518140 stack[base + 34LLU] = base;
7552- stack[base + 35LLU] = 510LLU;
8141+ stack[base + 35LLU] = 551LLU;
75538142 // arguments for call to reporttok
75548143 stack[base + 36LLU] = stack[base + 28/*variant*/];
75558144 stack[base + 37LLU] = stack[base + 29/*content*/];
@@ -7558,39 +8147,39 @@
75588147 label = 18446744073709551586LLU; // reporttok
75598148 break;
75608149 }
7561- case 510LLU: // return from reporttok to procblock
8150+ case 551LLU: // return from reporttok to procblock
75628151 {
75638152 fprintf(stderr, "%s", "\n");
75648153 exit(-1);
7565- label = 495LLU; // alternative complete
8154+ label = 536LLU; // alternative complete
75668155 break;
75678156 }
7568- case 495LLU: // completed if-then-else
8157+ case 536LLU: // completed if-then-else
75698158 {
7570- label = 490LLU; // alternative complete
8159+ label = 531LLU; // alternative complete
75718160 break;
75728161 }
7573- case 490LLU: // completed if-then-else
8162+ case 531LLU: // completed if-then-else
75748163 {
7575- label = 485LLU; // alternative complete
8164+ label = 526LLU; // alternative complete
75768165 break;
75778166 }
7578- case 485LLU: // completed if-then-else
8167+ case 526LLU: // completed if-then-else
75798168 {
7580- label = 481LLU; // alternative complete
8169+ label = 522LLU; // alternative complete
75818170 break;
75828171 }
7583- case 481LLU: // completed if-then-else
8172+ case 522LLU: // completed if-then-else
75848173 {
7585- label = 474LLU; // consequent complete
8174+ label = 515LLU; // consequent complete
75868175 break;
75878176 }
7588- case 473LLU: // alternative
8177+ case 514LLU: // alternative
75898178 {
75908179 fprintf(stderr, "%s", "expected index in set but found ");
75918180 // call reporttok from procblock
75928181 stack[base + 34LLU] = base;
7593- stack[base + 35LLU] = 511LLU;
8182+ stack[base + 35LLU] = 552LLU;
75948183 // arguments for call to reporttok
75958184 stack[base + 36LLU] = stack[base + 28/*variant*/];
75968185 stack[base + 37LLU] = stack[base + 29/*content*/];
@@ -7599,23 +8188,23 @@
75998188 label = 18446744073709551586LLU; // reporttok
76008189 break;
76018190 }
7602- case 511LLU: // return from reporttok to procblock
8191+ case 552LLU: // return from reporttok to procblock
76038192 {
76048193 fprintf(stderr, "%s", "\n");
76058194 exit(-1);
7606- label = 474LLU; // alternative complete
8195+ label = 515LLU; // alternative complete
76078196 break;
76088197 }
7609- case 474LLU: // completed if-then-else
8198+ case 515LLU: // completed if-then-else
76108199 {
7611- label = 469LLU; // consequent complete
8200+ label = 510LLU; // consequent complete
76128201 break;
76138202 }
7614- case 468LLU: // alternative
8203+ case 509LLU: // alternative
76158204 {
76168205 // call issimple from procblock
76178206 stack[base + 34LLU] = base;
7618- stack[base + 35LLU] = 512LLU;
8207+ stack[base + 35LLU] = 553LLU;
76198208 // arguments for call to issimple
76208209 stack[base + 37LLU] = stack[base + 28/*variant*/];
76218210 stack[base + 38LLU] = stack[base + 29/*content*/];
@@ -7625,13 +8214,13 @@
76258214 label = 3LLU; // issimple
76268215 break;
76278216 }
7628- case 512LLU: // return from issimple to procblock
8217+ case 553LLU: // return from issimple to procblock
76298218 {
76308219 // copy back results provided by call to issimple
76318220 stack[base + 32/*isequal*/] = stack[base + 36LLU];
76328221 if(!stack[base + 32/*isequal*/])
76338222 {
7634- label = 513LLU; // jump to alternative
8223+ label = 554LLU; // jump to alternative
76358224 break;
76368225 }
76378226
@@ -7639,7 +8228,7 @@
76398228 printf("%s", "\n ");
76408229 // call emitvar from procblock
76418230 stack[base + 34LLU] = base;
7642- stack[base + 35LLU] = 515LLU;
8231+ stack[base + 35LLU] = 556LLU;
76438232 // arguments for call to emitvar
76448233 stack[base + 36LLU] = stack[base + 33/*id*/];
76458234 stack[base + 37LLU] = stack[base + 18/*scopes*/];
@@ -7649,12 +8238,12 @@
76498238 label = 74LLU; // emitvar
76508239 break;
76518240 }
7652- case 515LLU: // return from emitvar to procblock
8241+ case 556LLU: // return from emitvar to procblock
76538242 {
76548243 printf("%s", " = ");
76558244 // call parsetoken from procblock
76568245 stack[base + 34LLU] = base;
7657- stack[base + 35LLU] = 516LLU;
8246+ stack[base + 35LLU] = 557LLU;
76588247 // arguments for call to parsetoken
76598248 stack[base + 39LLU] = stack[base + 27/*lookahead*/];
76608249 // set stack-base & callee-address
@@ -7662,7 +8251,7 @@
76628251 label = 18446744073709551588LLU; // parsetoken
76638252 break;
76648253 }
7665- case 516LLU: // return from parsetoken to procblock
8254+ case 557LLU: // return from parsetoken to procblock
76668255 {
76678256 // copy back results provided by call to parsetoken
76688257 stack[base + 28/*variant*/] = stack[base + 36LLU];
@@ -7670,7 +8259,7 @@
76708259 stack[base + 27/*lookahead*/] = stack[base + 38LLU];
76718260 // call equ from procblock
76728261 stack[base + 34LLU] = base;
7673- stack[base + 35LLU] = 517LLU;
8262+ stack[base + 35LLU] = 558LLU;
76748263 // arguments for call to equ
76758264 stack[base + 37LLU] = stack[base + 28/*variant*/];
76768265 stack[base + 38LLU] = 1LLU;
@@ -7679,13 +8268,13 @@
76798268 label = 18446744073709551603LLU; // equ
76808269 break;
76818270 }
7682- case 517LLU: // return from equ to procblock
8271+ case 558LLU: // return from equ to procblock
76838272 {
76848273 // copy back results provided by call to equ
76858274 stack[base + 32/*isequal*/] = stack[base + 36LLU];
76868275 if(!stack[base + 32/*isequal*/])
76878276 {
7688- label = 518LLU; // jump to alternative
8277+ label = 559LLU; // jump to alternative
76898278 break;
76908279 }
76918280
@@ -7692,7 +8281,7 @@
76928281 // consequent
76938282 // call printnr from procblock
76948283 stack[base + 34LLU] = base;
7695- stack[base + 35LLU] = 520LLU;
8284+ stack[base + 35LLU] = 561LLU;
76968285 // arguments for call to printnr
76978286 stack[base + 36LLU] = stack[base + 29/*content*/];
76988287 // set stack-base & callee-address
@@ -7700,17 +8289,17 @@
77008289 label = 18446744073709551594LLU; // printnr
77018290 break;
77028291 }
7703- case 520LLU: // return from printnr to procblock
8292+ case 561LLU: // return from printnr to procblock
77048293 {
77058294 printf("%s", ";");
7706- label = 519LLU; // consequent complete
8295+ label = 560LLU; // consequent complete
77078296 break;
77088297 }
7709- case 518LLU: // alternative
8298+ case 559LLU: // alternative
77108299 {
77118300 // call equ from procblock
77128301 stack[base + 34LLU] = base;
7713- stack[base + 35LLU] = 521LLU;
8302+ stack[base + 35LLU] = 562LLU;
77148303 // arguments for call to equ
77158304 stack[base + 37LLU] = stack[base + 28/*variant*/];
77168305 stack[base + 38LLU] = 2LLU;
@@ -7719,13 +8308,13 @@
77198308 label = 18446744073709551603LLU; // equ
77208309 break;
77218310 }
7722- case 521LLU: // return from equ to procblock
8311+ case 562LLU: // return from equ to procblock
77238312 {
77248313 // copy back results provided by call to equ
77258314 stack[base + 32/*isequal*/] = stack[base + 36LLU];
77268315 if(!stack[base + 32/*isequal*/])
77278316 {
7728- label = 522LLU; // jump to alternative
8317+ label = 563LLU; // jump to alternative
77298318 break;
77308319 }
77318320
@@ -7732,7 +8321,7 @@
77328321 // consequent
77338322 // call printnr from procblock
77348323 stack[base + 34LLU] = base;
7735- stack[base + 35LLU] = 524LLU;
8324+ stack[base + 35LLU] = 565LLU;
77368325 // arguments for call to printnr
77378326 stack[base + 36LLU] = stack[base + 29/*content*/];
77388327 // set stack-base & callee-address
@@ -7740,12 +8329,12 @@
77408329 label = 18446744073709551594LLU; // printnr
77418330 break;
77428331 }
7743- case 524LLU: // return from printnr to procblock
8332+ case 565LLU: // return from printnr to procblock
77448333 {
77458334 printf("%s", "; // ");
77468335 // call printbyte from procblock
77478336 stack[base + 34LLU] = base;
7748- stack[base + 35LLU] = 525LLU;
8337+ stack[base + 35LLU] = 566LLU;
77498338 // arguments for call to printbyte
77508339 stack[base + 36LLU] = stack[base + 29/*content*/];
77518340 // set stack-base & callee-address
@@ -7753,16 +8342,16 @@
77538342 label = 18446744073709551596LLU; // printbyte
77548343 break;
77558344 }
7756- case 525LLU: // return from printbyte to procblock
8345+ case 566LLU: // return from printbyte to procblock
77578346 {
7758- label = 523LLU; // consequent complete
8347+ label = 564LLU; // consequent complete
77598348 break;
77608349 }
7761- case 522LLU: // alternative
8350+ case 563LLU: // alternative
77628351 {
77638352 // call equ from procblock
77648353 stack[base + 34LLU] = base;
7765- stack[base + 35LLU] = 526LLU;
8354+ stack[base + 35LLU] = 567LLU;
77668355 // arguments for call to equ
77678356 stack[base + 37LLU] = stack[base + 28/*variant*/];
77688357 stack[base + 38LLU] = 3LLU;
@@ -7771,13 +8360,13 @@
77718360 label = 18446744073709551603LLU; // equ
77728361 break;
77738362 }
7774- case 526LLU: // return from equ to procblock
8363+ case 567LLU: // return from equ to procblock
77758364 {
77768365 // copy back results provided by call to equ
77778366 stack[base + 32/*isequal*/] = stack[base + 36LLU];
77788367 if(!stack[base + 32/*isequal*/])
77798368 {
7780- label = 527LLU; // jump to alternative
8369+ label = 568LLU; // jump to alternative
77818370 break;
77828371 }
77838372
@@ -7784,7 +8373,7 @@
77848373 // consequent
77858374 // call printnr from procblock
77868375 stack[base + 34LLU] = base;
7787- stack[base + 35LLU] = 529LLU;
8376+ stack[base + 35LLU] = 570LLU;
77888377 // arguments for call to printnr
77898378 stack[base + 36LLU] = stack[base + 29/*content*/];
77908379 // set stack-base & callee-address
@@ -7792,12 +8381,12 @@
77928381 label = 18446744073709551594LLU; // printnr
77938382 break;
77948383 }
7795- case 529LLU: // return from printnr to procblock
8384+ case 570LLU: // return from printnr to procblock
77968385 {
77978386 printf("%s", "; // ");
77988387 // call printid from procblock
77998388 stack[base + 34LLU] = base;
7800- stack[base + 35LLU] = 530LLU;
8389+ stack[base + 35LLU] = 571LLU;
78018390 // arguments for call to printid
78028391 stack[base + 36LLU] = stack[base + 29/*content*/];
78038392 // set stack-base & callee-address
@@ -7805,17 +8394,17 @@
78058394 label = 18446744073709551591LLU; // printid
78068395 break;
78078396 }
7808- case 530LLU: // return from printid to procblock
8397+ case 571LLU: // return from printid to procblock
78098398 {
78108399 printf("%s", "");
7811- label = 528LLU; // consequent complete
8400+ label = 569LLU; // consequent complete
78128401 break;
78138402 }
7814- case 527LLU: // alternative
8403+ case 568LLU: // alternative
78158404 {
78168405 // call equ from procblock
78178406 stack[base + 34LLU] = base;
7818- stack[base + 35LLU] = 531LLU;
8407+ stack[base + 35LLU] = 572LLU;
78198408 // arguments for call to equ
78208409 stack[base + 37LLU] = stack[base + 28/*variant*/];
78218410 stack[base + 38LLU] = 4LLU;
@@ -7824,13 +8413,13 @@
78248413 label = 18446744073709551603LLU; // equ
78258414 break;
78268415 }
7827- case 531LLU: // return from equ to procblock
8416+ case 572LLU: // return from equ to procblock
78288417 {
78298418 // copy back results provided by call to equ
78308419 stack[base + 32/*isequal*/] = stack[base + 36LLU];
78318420 if(!stack[base + 32/*isequal*/])
78328421 {
7833- label = 532LLU; // jump to alternative
8422+ label = 573LLU; // jump to alternative
78348423 break;
78358424 }
78368425
@@ -7838,7 +8427,7 @@
78388427 stack[base + 33/*id*/] = stack[base + 29/*content*/];
78398428 // call skipwscmnt from procblock
78408429 stack[base + 34LLU] = base;
7841- stack[base + 35LLU] = 534LLU;
8430+ stack[base + 35LLU] = 575LLU;
78428431 // arguments for call to skipwscmnt
78438432 stack[base + 37LLU] = stack[base + 27/*lookahead*/];
78448433 // set stack-base & callee-address
@@ -7846,13 +8435,13 @@
78468435 label = 18446744073709551584LLU; // skipwscmnt
78478436 break;
78488437 }
7849- case 534LLU: // return from skipwscmnt to procblock
8438+ case 575LLU: // return from skipwscmnt to procblock
78508439 {
78518440 // copy back results provided by call to skipwscmnt
78528441 stack[base + 27/*lookahead*/] = stack[base + 36LLU];
78538442 // call equ from procblock
78548443 stack[base + 34LLU] = base;
7855- stack[base + 35LLU] = 535LLU;
8444+ stack[base + 35LLU] = 576LLU;
78568445 // arguments for call to equ
78578446 stack[base + 37LLU] = 91LLU;
78588447 stack[base + 38LLU] = stack[base + 27/*lookahead*/];
@@ -7861,13 +8450,13 @@
78618450 label = 18446744073709551603LLU; // equ
78628451 break;
78638452 }
7864- case 535LLU: // return from equ to procblock
8453+ case 576LLU: // return from equ to procblock
78658454 {
78668455 // copy back results provided by call to equ
78678456 stack[base + 32/*isequal*/] = stack[base + 36LLU];
78688457 if(!stack[base + 32/*isequal*/])
78698458 {
7870- label = 536LLU; // jump to alternative
8459+ label = 577LLU; // jump to alternative
78718460 break;
78728461 }
78738462
@@ -7874,7 +8463,7 @@
78748463 // consequent
78758464 // call matchsym from procblock
78768465 stack[base + 34LLU] = base;
7877- stack[base + 35LLU] = 538LLU;
8466+ stack[base + 35LLU] = 579LLU;
78788467 // arguments for call to matchsym
78798468 stack[base + 37LLU] = 91LLU;
78808469 stack[base + 38LLU] = stack[base + 27/*lookahead*/];
@@ -7883,13 +8472,13 @@
78838472 label = 12LLU; // matchsym
78848473 break;
78858474 }
7886- case 538LLU: // return from matchsym to procblock
8475+ case 579LLU: // return from matchsym to procblock
78878476 {
78888477 // copy back results provided by call to matchsym
78898478 stack[base + 27/*lookahead*/] = stack[base + 36LLU];
78908479 // call parsetoken from procblock
78918480 stack[base + 34LLU] = base;
7892- stack[base + 35LLU] = 539LLU;
8481+ stack[base + 35LLU] = 580LLU;
78938482 // arguments for call to parsetoken
78948483 stack[base + 39LLU] = stack[base + 27/*lookahead*/];
78958484 // set stack-base & callee-address
@@ -7897,7 +8486,7 @@
78978486 label = 18446744073709551588LLU; // parsetoken
78988487 break;
78998488 }
7900- case 539LLU: // return from parsetoken to procblock
8489+ case 580LLU: // return from parsetoken to procblock
79018490 {
79028491 // copy back results provided by call to parsetoken
79038492 stack[base + 28/*variant*/] = stack[base + 36LLU];
@@ -7905,7 +8494,7 @@
79058494 stack[base + 27/*lookahead*/] = stack[base + 38LLU];
79068495 // call equ from procblock
79078496 stack[base + 34LLU] = base;
7908- stack[base + 35LLU] = 540LLU;
8497+ stack[base + 35LLU] = 581LLU;
79098498 // arguments for call to equ
79108499 stack[base + 37LLU] = stack[base + 28/*variant*/];
79118500 stack[base + 38LLU] = 1LLU;
@@ -7914,13 +8503,13 @@
79148503 label = 18446744073709551603LLU; // equ
79158504 break;
79168505 }
7917- case 540LLU: // return from equ to procblock
8506+ case 581LLU: // return from equ to procblock
79188507 {
79198508 // copy back results provided by call to equ
79208509 stack[base + 32/*isequal*/] = stack[base + 36LLU];
79218510 if(!stack[base + 32/*isequal*/])
79228511 {
7923- label = 541LLU; // jump to alternative
8512+ label = 582LLU; // jump to alternative
79248513 break;
79258514 }
79268515
@@ -7928,7 +8517,7 @@
79288517 printf("%s", "((uint64_t *)(");
79298518 // call emitvar from procblock
79308519 stack[base + 34LLU] = base;
7931- stack[base + 35LLU] = 543LLU;
8520+ stack[base + 35LLU] = 584LLU;
79328521 // arguments for call to emitvar
79338522 stack[base + 36LLU] = stack[base + 33/*id*/];
79348523 stack[base + 37LLU] = stack[base + 18/*scopes*/];
@@ -7938,12 +8527,12 @@
79388527 label = 74LLU; // emitvar
79398528 break;
79408529 }
7941- case 543LLU: // return from emitvar to procblock
8530+ case 584LLU: // return from emitvar to procblock
79428531 {
79438532 printf("%s", "))[");
79448533 // call printnr from procblock
79458534 stack[base + 34LLU] = base;
7946- stack[base + 35LLU] = 544LLU;
8535+ stack[base + 35LLU] = 585LLU;
79478536 // arguments for call to printnr
79488537 stack[base + 36LLU] = stack[base + 29/*content*/];
79498538 // set stack-base & callee-address
@@ -7951,18 +8540,18 @@
79518540 label = 18446744073709551594LLU; // printnr
79528541 break;
79538542 }
7954- case 544LLU: // return from printnr to procblock
8543+ case 585LLU: // return from printnr to procblock
79558544 {
79568545 printf("%s", "];");
7957- label = 542LLU; // consequent complete
8546+ label = 583LLU; // consequent complete
79588547 break;
79598548 }
7960- case 541LLU: // alternative
8549+ case 582LLU: // alternative
79618550 {
79628551 fprintf(stderr, "%s", "in array-get expected index but found ");
79638552 // call reporttok from procblock
79648553 stack[base + 34LLU] = base;
7965- stack[base + 35LLU] = 545LLU;
8554+ stack[base + 35LLU] = 586LLU;
79668555 // arguments for call to reporttok
79678556 stack[base + 36LLU] = stack[base + 28/*variant*/];
79688557 stack[base + 37LLU] = stack[base + 29/*content*/];
@@ -7971,18 +8560,18 @@
79718560 label = 18446744073709551586LLU; // reporttok
79728561 break;
79738562 }
7974- case 545LLU: // return from reporttok to procblock
8563+ case 586LLU: // return from reporttok to procblock
79758564 {
79768565 fprintf(stderr, "%s", "\n");
79778566 exit(-1);
7978- label = 542LLU; // alternative complete
8567+ label = 583LLU; // alternative complete
79798568 break;
79808569 }
7981- case 542LLU: // completed if-then-else
8570+ case 583LLU: // completed if-then-else
79828571 {
79838572 // call matchsym from procblock
79848573 stack[base + 34LLU] = base;
7985- stack[base + 35LLU] = 546LLU;
8574+ stack[base + 35LLU] = 587LLU;
79868575 // arguments for call to matchsym
79878576 stack[base + 37LLU] = 93LLU;
79888577 stack[base + 38LLU] = stack[base + 27/*lookahead*/];
@@ -7991,18 +8580,18 @@
79918580 label = 12LLU; // matchsym
79928581 break;
79938582 }
7994- case 546LLU: // return from matchsym to procblock
8583+ case 587LLU: // return from matchsym to procblock
79958584 {
79968585 // copy back results provided by call to matchsym
79978586 stack[base + 27/*lookahead*/] = stack[base + 36LLU];
7998- label = 537LLU; // consequent complete
8587+ label = 578LLU; // consequent complete
79998588 break;
80008589 }
8001- case 536LLU: // alternative
8590+ case 577LLU: // alternative
80028591 {
80038592 // call emitvar from procblock
80048593 stack[base + 34LLU] = base;
8005- stack[base + 35LLU] = 547LLU;
8594+ stack[base + 35LLU] = 588LLU;
80068595 // arguments for call to emitvar
80078596 stack[base + 36LLU] = stack[base + 29/*content*/];
80088597 stack[base + 37LLU] = stack[base + 18/*scopes*/];
@@ -8012,23 +8601,23 @@
80128601 label = 74LLU; // emitvar
80138602 break;
80148603 }
8015- case 547LLU: // return from emitvar to procblock
8604+ case 588LLU: // return from emitvar to procblock
80168605 {
80178606 printf("%s", ";");
8018- label = 537LLU; // alternative complete
8607+ label = 578LLU; // alternative complete
80198608 break;
80208609 }
8021- case 537LLU: // completed if-then-else
8610+ case 578LLU: // completed if-then-else
80228611 {
8023- label = 533LLU; // consequent complete
8612+ label = 574LLU; // consequent complete
80248613 break;
80258614 }
8026- case 532LLU: // alternative
8615+ case 573LLU: // alternative
80278616 {
80288617 fprintf(stderr, "%s", "parsing assignment unexpected token ");
80298618 // call reporttok from procblock
80308619 stack[base + 34LLU] = base;
8031- stack[base + 35LLU] = 548LLU;
8620+ stack[base + 35LLU] = 589LLU;
80328621 // arguments for call to reporttok
80338622 stack[base + 36LLU] = stack[base + 28/*variant*/];
80348623 stack[base + 37LLU] = stack[base + 29/*content*/];
@@ -8037,38 +8626,38 @@
80378626 label = 18446744073709551586LLU; // reporttok
80388627 break;
80398628 }
8040- case 548LLU: // return from reporttok to procblock
8629+ case 589LLU: // return from reporttok to procblock
80418630 {
80428631 fprintf(stderr, "%s", "\n");
80438632 exit(-1);
8044- label = 533LLU; // alternative complete
8633+ label = 574LLU; // alternative complete
80458634 break;
80468635 }
8047- case 533LLU: // completed if-then-else
8636+ case 574LLU: // completed if-then-else
80488637 {
8049- label = 528LLU; // alternative complete
8638+ label = 569LLU; // alternative complete
80508639 break;
80518640 }
8052- case 528LLU: // completed if-then-else
8641+ case 569LLU: // completed if-then-else
80538642 {
8054- label = 523LLU; // alternative complete
8643+ label = 564LLU; // alternative complete
80558644 break;
80568645 }
8057- case 523LLU: // completed if-then-else
8646+ case 564LLU: // completed if-then-else
80588647 {
8059- label = 519LLU; // alternative complete
8648+ label = 560LLU; // alternative complete
80608649 break;
80618650 }
8062- case 519LLU: // completed if-then-else
8651+ case 560LLU: // completed if-then-else
80638652 {
8064- label = 514LLU; // consequent complete
8653+ label = 555LLU; // consequent complete
80658654 break;
80668655 }
8067- case 513LLU: // alternative
8656+ case 554LLU: // alternative
80688657 {
80698658 // call issimple from procblock
80708659 stack[base + 34LLU] = base;
8071- stack[base + 35LLU] = 549LLU;
8660+ stack[base + 35LLU] = 590LLU;
80728661 // arguments for call to issimple
80738662 stack[base + 37LLU] = stack[base + 28/*variant*/];
80748663 stack[base + 38LLU] = stack[base + 29/*content*/];
@@ -8078,13 +8667,13 @@
80788667 label = 3LLU; // issimple
80798668 break;
80808669 }
8081- case 549LLU: // return from issimple to procblock
8670+ case 590LLU: // return from issimple to procblock
80828671 {
80838672 // copy back results provided by call to issimple
80848673 stack[base + 32/*isequal*/] = stack[base + 36LLU];
80858674 if(!stack[base + 32/*isequal*/])
80868675 {
8087- label = 550LLU; // jump to alternative
8676+ label = 591LLU; // jump to alternative
80888677 break;
80898678 }
80908679
@@ -8091,7 +8680,7 @@
80918680 // consequent
80928681 // call proccall from procblock
80938682 stack[base + 34LLU] = base;
8094- stack[base + 35LLU] = 552LLU;
8683+ stack[base + 35LLU] = 593LLU;
80958684 // arguments for call to proccall
80968685 stack[base + 41LLU] = stack[base + 18/*scopes*/];
80978686 stack[base + 42LLU] = stack[base + 19/*scope*/];
@@ -8109,10 +8698,10 @@
81098698 stack[base + 54LLU] = stack[base + 30/*label*/];
81108699 // set stack-base & callee-address
81118700 base += 36LLU;
8112- label = 78LLU; // proccall
8701+ label = 119LLU; // proccall
81138702 break;
81148703 }
8115- case 552LLU: // return from proccall to procblock
8704+ case 593LLU: // return from proccall to procblock
81168705 {
81178706 // copy back results provided by call to proccall
81188707 stack[base + 25/*fnmaxcount*/] = stack[base + 36LLU];
@@ -8120,15 +8709,15 @@
81208709 stack[base + 28/*variant*/] = stack[base + 38LLU];
81218710 stack[base + 29/*content*/] = stack[base + 39LLU];
81228711 stack[base + 30/*label*/] = stack[base + 40LLU];
8123- label = 551LLU; // consequent complete
8712+ label = 592LLU; // consequent complete
81248713 break;
81258714 }
8126- case 550LLU: // alternative
8715+ case 591LLU: // alternative
81278716 {
81288717 fprintf(stderr, "%s", "expected assignment or call but found unexpected token ");
81298718 // call reporttok from procblock
81308719 stack[base + 34LLU] = base;
8131- stack[base + 35LLU] = 553LLU;
8720+ stack[base + 35LLU] = 594LLU;
81328721 // arguments for call to reporttok
81338722 stack[base + 36LLU] = stack[base + 28/*variant*/];
81348723 stack[base + 37LLU] = stack[base + 29/*content*/];
@@ -8137,89 +8726,89 @@
81378726 label = 18446744073709551586LLU; // reporttok
81388727 break;
81398728 }
8140- case 553LLU: // return from reporttok to procblock
8729+ case 594LLU: // return from reporttok to procblock
81418730 {
81428731 fprintf(stderr, "%s", "\n");
81438732 exit(-1);
8144- label = 551LLU; // alternative complete
8733+ label = 592LLU; // alternative complete
81458734 break;
81468735 }
8147- case 551LLU: // completed if-then-else
8736+ case 592LLU: // completed if-then-else
81488737 {
8149- label = 514LLU; // alternative complete
8738+ label = 555LLU; // alternative complete
81508739 break;
81518740 }
8152- case 514LLU: // completed if-then-else
8741+ case 555LLU: // completed if-then-else
81538742 {
8154- label = 469LLU; // alternative complete
8743+ label = 510LLU; // alternative complete
81558744 break;
81568745 }
8157- case 469LLU: // completed if-then-else
8746+ case 510LLU: // completed if-then-else
81588747 {
8159- label = 459LLU; // alternative complete
8748+ label = 500LLU; // alternative complete
81608749 break;
81618750 }
8162- case 459LLU: // completed if-then-else
8751+ case 500LLU: // completed if-then-else
81638752 {
8164- label = 444LLU; // alternative complete
8753+ label = 485LLU; // alternative complete
81658754 break;
81668755 }
8167- case 444LLU: // completed if-then-else
8756+ case 485LLU: // completed if-then-else
81688757 {
8169- label = 425LLU; // alternative complete
8758+ label = 466LLU; // alternative complete
81708759 break;
81718760 }
8172- case 425LLU: // completed if-then-else
8761+ case 466LLU: // completed if-then-else
81738762 {
8174- label = 416LLU; // alternative complete
8763+ label = 457LLU; // alternative complete
81758764 break;
81768765 }
8177- case 416LLU: // completed if-then-else
8766+ case 457LLU: // completed if-then-else
81788767 {
8179- label = 406LLU; // alternative complete
8768+ label = 447LLU; // alternative complete
81808769 break;
81818770 }
8182- case 406LLU: // completed if-then-else
8771+ case 447LLU: // completed if-then-else
81838772 {
8184- label = 391LLU; // alternative complete
8773+ label = 432LLU; // alternative complete
81858774 break;
81868775 }
8187- case 391LLU: // completed if-then-else
8776+ case 432LLU: // completed if-then-else
81888777 {
8189- label = 385LLU; // alternative complete
8778+ label = 426LLU; // alternative complete
81908779 break;
81918780 }
8192- case 385LLU: // completed if-then-else
8781+ case 426LLU: // completed if-then-else
81938782 {
8194- label = 379LLU; // alternative complete
8783+ label = 420LLU; // alternative complete
81958784 break;
81968785 }
8197- case 379LLU: // completed if-then-else
8786+ case 420LLU: // completed if-then-else
81988787 {
8199- label = 376LLU; // alternative complete
8788+ label = 417LLU; // alternative complete
82008789 break;
82018790 }
8202- case 376LLU: // completed if-then-else
8791+ case 417LLU: // completed if-then-else
82038792 {
8204- label = 352LLU; // alternative complete
8793+ label = 393LLU; // alternative complete
82058794 break;
82068795 }
8207- case 352LLU: // completed if-then-else
8796+ case 393LLU: // completed if-then-else
82088797 {
8209- label = 287LLU; // alternative complete
8798+ label = 328LLU; // alternative complete
82108799 break;
82118800 }
8212- case 287LLU: // completed if-then-else
8801+ case 328LLU: // completed if-then-else
82138802 {
8214- label = 284LLU; // consequent complete
8803+ label = 325LLU; // consequent complete
82158804 break;
82168805 }
8217- case 283LLU: // alternative
8806+ case 324LLU: // alternative
82188807 {
82198808 fprintf(stderr, "%s", "parsing block unexpected token ");
82208809 // call reporttok from procblock
82218810 stack[base + 33LLU] = base;
8222- stack[base + 34LLU] = 554LLU;
8811+ stack[base + 34LLU] = 595LLU;
82238812 // arguments for call to reporttok
82248813 stack[base + 35LLU] = stack[base + 28/*variant*/];
82258814 stack[base + 36LLU] = stack[base + 29/*content*/];
@@ -8228,43 +8817,43 @@
82288817 label = 18446744073709551586LLU; // reporttok
82298818 break;
82308819 }
8231- case 554LLU: // return from reporttok to procblock
8820+ case 595LLU: // return from reporttok to procblock
82328821 {
82338822 fprintf(stderr, "%s", "\n");
82348823 exit(-1);
8235- label = 284LLU; // alternative complete
8824+ label = 325LLU; // alternative complete
82368825 break;
82378826 }
8238- case 284LLU: // completed if-then-else
8827+ case 325LLU: // completed if-then-else
82398828 {
8240- label = 259LLU; // alternative complete
8829+ label = 300LLU; // alternative complete
82418830 break;
82428831 }
8243- case 259LLU: // completed if-then-else
8832+ case 300LLU: // completed if-then-else
82448833 {
8245- label = 256LLU; // consequent complete
8834+ label = 297LLU; // consequent complete
82468835 break;
82478836 }
8248- case 255LLU: // alternative
8837+ case 296LLU: // alternative
82498838 {
8250- label = 256LLU; // alternative complete
8839+ label = 297LLU; // alternative complete
82518840 break;
82528841 }
8253- case 256LLU: // completed if-then-else
8842+ case 297LLU: // completed if-then-else
82548843 {
8255- label = 251LLU; // repeat
8844+ label = 292LLU; // repeat
82568845 break;
82578846 }
8258- case 252LLU: // loop finished
8847+ case 293LLU: // loop finished
82598848 {
8260- label = 555LLU; // start to repeat
8849+ label = 596LLU; // start to repeat
82618850 break;
82628851 }
8263- case 555LLU: // repeat from here
8852+ case 596LLU: // repeat from here
82648853 {
82658854 if(!stack[base + 19/*scope*/])
82668855 {
8267- label = 556LLU; // break loop
8856+ label = 597LLU; // break loop
82688857 break;
82698858 }
82708859
@@ -8273,7 +8862,7 @@
82738862 struct listnode *list = (struct listnode *)stack[base + 19/*scope*/];
82748863 if(!list)
82758864 {
8276- label = 557LLU; // jump to alternative
8865+ label = 598LLU; // jump to alternative
82778866 break;
82788867 }
82798868
@@ -8283,27 +8872,27 @@
82838872 free(list);
82848873 stack[base + 19/*scope*/] = (uint64_t)next;
82858874 free((uint64_t *)stack[base + 32/*current*/]);
8286- label = 558LLU; // consequent complete
8875+ label = 599LLU; // consequent complete
82878876 break;
82888877 }
8289- case 557LLU: // alternative
8878+ case 598LLU: // alternative
82908879 {
82918880 fprintf(stderr, "%s", "internal error cleaning up lets in block\n");
82928881 exit(-1);
8293- label = 558LLU; // alternative complete
8882+ label = 599LLU; // alternative complete
82948883 break;
82958884 }
8296- case 558LLU: // completed if-then-else
8885+ case 599LLU: // completed if-then-else
82978886 {
8298- label = 555LLU; // repeat
8887+ label = 596LLU; // repeat
82998888 break;
83008889 }
8301- case 556LLU: // loop finished
8890+ case 597LLU: // loop finished
83028891 {
83038892 struct listnode *list = (struct listnode *)stack[base + 18/*scopes*/];
83048893 if(!list)
83058894 {
8306- label = 559LLU; // jump to alternative
8895+ label = 600LLU; // jump to alternative
83078896 break;
83088897 }
83098898
@@ -8312,17 +8901,17 @@
83128901 stack[base + 19/*scope*/] = list->data;
83138902 free(list);
83148903 stack[base + 18/*scopes*/] = (uint64_t)next;
8315- label = 560LLU; // consequent complete
8904+ label = 601LLU; // consequent complete
83168905 break;
83178906 }
8318- case 559LLU: // alternative
8907+ case 600LLU: // alternative
83198908 {
83208909 fprintf(stderr, "%s", "internal error poping scope in block\n");
83218910 exit(-1);
8322- label = 560LLU; // alternative complete
8911+ label = 601LLU; // alternative complete
83238912 break;
83248913 }
8325- case 560LLU: // completed if-then-else
8914+ case 601LLU: // completed if-then-else
83268915 {
83278916 stack[base + 0/*res0*/] = stack[base + 25/*fnmaxcount*/];
83288917 stack[base + 1/*res1*/] = stack[base + 27/*lookahead*/];
@@ -8334,7 +8923,7 @@
83348923 base = stack[base - 2];
83358924 break;
83368925 }
8337- case 561LLU: // procfn
8926+ case 602LLU: // procfn
83388927 {
83398928 //#define res0 0
83408929 //#define res1 1
@@ -8372,7 +8961,7 @@
83728961 //#define isnumber 22
83738962 // call equ from procfn
83748963 stack[base + 23LLU] = base;
8375- stack[base + 24LLU] = 562LLU;
8964+ stack[base + 24LLU] = 603LLU;
83768965 // arguments for call to equ
83778966 stack[base + 26LLU] = stack[base + 12/*variant*/];
83788967 stack[base + 27LLU] = 1LLU;
@@ -8381,27 +8970,27 @@
83818970 label = 18446744073709551603LLU; // equ
83828971 break;
83838972 }
8384- case 562LLU: // return from equ to procfn
8973+ case 603LLU: // return from equ to procfn
83858974 {
83868975 // copy back results provided by call to equ
83878976 stack[base + 22/*isnumber*/] = stack[base + 25LLU];
83888977 if(!stack[base + 22/*isnumber*/])
83898978 {
8390- label = 563LLU; // jump to alternative
8979+ label = 604LLU; // jump to alternative
83918980 break;
83928981 }
83938982
83948983 // consequent
83958984 stack[base + 19/*fnrescount*/] = stack[base + 13/*content*/];
8396- label = 564LLU; // consequent complete
8985+ label = 605LLU; // consequent complete
83978986 break;
83988987 }
8399- case 563LLU: // alternative
8988+ case 604LLU: // alternative
84008989 {
84018990 fprintf(stderr, "%s", "parsing function expected number of results but found token ");
84028991 // call reporttok from procfn
84038992 stack[base + 23LLU] = base;
8404- stack[base + 24LLU] = 565LLU;
8993+ stack[base + 24LLU] = 606LLU;
84058994 // arguments for call to reporttok
84068995 stack[base + 25LLU] = stack[base + 12/*variant*/];
84078996 stack[base + 26LLU] = stack[base + 13/*content*/];
@@ -8410,18 +8999,18 @@
84108999 label = 18446744073709551586LLU; // reporttok
84119000 break;
84129001 }
8413- case 565LLU: // return from reporttok to procfn
9002+ case 606LLU: // return from reporttok to procfn
84149003 {
84159004 fprintf(stderr, "%s", "\n");
84169005 exit(-1);
8417- label = 564LLU; // alternative complete
9006+ label = 605LLU; // alternative complete
84189007 break;
84199008 }
8420- case 564LLU: // completed if-then-else
9009+ case 605LLU: // completed if-then-else
84219010 {
84229011 // call parsetoken from procfn
84239012 stack[base + 23LLU] = base;
8424- stack[base + 24LLU] = 566LLU;
9013+ stack[base + 24LLU] = 607LLU;
84259014 // arguments for call to parsetoken
84269015 stack[base + 28LLU] = stack[base + 11/*lookahead*/];
84279016 // set stack-base & callee-address
@@ -8429,7 +9018,7 @@
84299018 label = 18446744073709551588LLU; // parsetoken
84309019 break;
84319020 }
8432- case 566LLU: // return from parsetoken to procfn
9021+ case 607LLU: // return from parsetoken to procfn
84339022 {
84349023 // copy back results provided by call to parsetoken
84359024 stack[base + 12/*variant*/] = stack[base + 25LLU];
@@ -8438,7 +9027,7 @@
84389027 //#define isname 23
84399028 // call equ from procfn
84409029 stack[base + 24LLU] = base;
8441- stack[base + 25LLU] = 567LLU;
9030+ stack[base + 25LLU] = 608LLU;
84429031 // arguments for call to equ
84439032 stack[base + 27LLU] = stack[base + 12/*variant*/];
84449033 stack[base + 28LLU] = 4LLU;
@@ -8447,27 +9036,27 @@
84479036 label = 18446744073709551603LLU; // equ
84489037 break;
84499038 }
8450- case 567LLU: // return from equ to procfn
9039+ case 608LLU: // return from equ to procfn
84519040 {
84529041 // copy back results provided by call to equ
84539042 stack[base + 23/*isname*/] = stack[base + 26LLU];
84549043 if(!stack[base + 23/*isname*/])
84559044 {
8456- label = 568LLU; // jump to alternative
9045+ label = 609LLU; // jump to alternative
84579046 break;
84589047 }
84599048
84609049 // consequent
84619050 stack[base + 17/*fnid*/] = stack[base + 13/*content*/];
8462- label = 569LLU; // consequent complete
9051+ label = 610LLU; // consequent complete
84639052 break;
84649053 }
8465- case 568LLU: // alternative
9054+ case 609LLU: // alternative
84669055 {
84679056 fprintf(stderr, "%s", "parsing function expected identifier but found token ");
84689057 // call reporttok from procfn
84699058 stack[base + 24LLU] = base;
8470- stack[base + 25LLU] = 570LLU;
9059+ stack[base + 25LLU] = 611LLU;
84719060 // arguments for call to reporttok
84729061 stack[base + 26LLU] = stack[base + 12/*variant*/];
84739062 stack[base + 27LLU] = stack[base + 13/*content*/];
@@ -8476,18 +9065,18 @@
84769065 label = 18446744073709551586LLU; // reporttok
84779066 break;
84789067 }
8479- case 570LLU: // return from reporttok to procfn
9068+ case 611LLU: // return from reporttok to procfn
84809069 {
84819070 fprintf(stderr, "%s", "\n");
84829071 exit(-1);
8483- label = 569LLU; // alternative complete
9072+ label = 610LLU; // alternative complete
84849073 break;
84859074 }
8486- case 569LLU: // completed if-then-else
9075+ case 610LLU: // completed if-then-else
84879076 {
84889077 // call parsetoken from procfn
84899078 stack[base + 24LLU] = base;
8490- stack[base + 25LLU] = 571LLU;
9079+ stack[base + 25LLU] = 612LLU;
84919080 // arguments for call to parsetoken
84929081 stack[base + 29LLU] = stack[base + 11/*lookahead*/];
84939082 // set stack-base & callee-address
@@ -8495,7 +9084,7 @@
84959084 label = 18446744073709551588LLU; // parsetoken
84969085 break;
84979086 }
8498- case 571LLU: // return from parsetoken to procfn
9087+ case 612LLU: // return from parsetoken to procfn
84999088 {
85009089 // copy back results provided by call to parsetoken
85019090 stack[base + 12/*variant*/] = stack[base + 26LLU];
@@ -8503,7 +9092,7 @@
85039092 stack[base + 11/*lookahead*/] = stack[base + 28LLU];
85049093 // call equ from procfn
85059094 stack[base + 24LLU] = base;
8506- stack[base + 25LLU] = 572LLU;
9095+ stack[base + 25LLU] = 613LLU;
85079096 // arguments for call to equ
85089097 stack[base + 27LLU] = stack[base + 12/*variant*/];
85099098 stack[base + 28LLU] = 1LLU;
@@ -8512,27 +9101,27 @@
85129101 label = 18446744073709551603LLU; // equ
85139102 break;
85149103 }
8515- case 572LLU: // return from equ to procfn
9104+ case 613LLU: // return from equ to procfn
85169105 {
85179106 // copy back results provided by call to equ
85189107 stack[base + 22/*isnumber*/] = stack[base + 26LLU];
85199108 if(!stack[base + 22/*isnumber*/])
85209109 {
8521- label = 573LLU; // jump to alternative
9110+ label = 614LLU; // jump to alternative
85229111 break;
85239112 }
85249113
85259114 // consequent
85269115 stack[base + 20/*fnargcount*/] = stack[base + 13/*content*/];
8527- label = 574LLU; // consequent complete
9116+ label = 615LLU; // consequent complete
85289117 break;
85299118 }
8530- case 573LLU: // alternative
9119+ case 614LLU: // alternative
85319120 {
85329121 fprintf(stderr, "%s", "parsing function expected number of arguments but found token ");
85339122 // call reporttok from procfn
85349123 stack[base + 24LLU] = base;
8535- stack[base + 25LLU] = 575LLU;
9124+ stack[base + 25LLU] = 616LLU;
85369125 // arguments for call to reporttok
85379126 stack[base + 26LLU] = stack[base + 12/*variant*/];
85389127 stack[base + 27LLU] = stack[base + 13/*content*/];
@@ -8541,19 +9130,19 @@
85419130 label = 18446744073709551586LLU; // reporttok
85429131 break;
85439132 }
8544- case 575LLU: // return from reporttok to procfn
9133+ case 616LLU: // return from reporttok to procfn
85459134 {
85469135 fprintf(stderr, "%s", "\n");
85479136 exit(-1);
8548- label = 574LLU; // alternative complete
9137+ label = 615LLU; // alternative complete
85499138 break;
85509139 }
8551- case 574LLU: // completed if-then-else
9140+ case 615LLU: // completed if-then-else
85529141 {
85539142 //#define sizelimit 24
85549143 // call sub from procfn
85559144 stack[base + 25LLU] = base;
8556- stack[base + 26LLU] = 576LLU;
9145+ stack[base + 26LLU] = 617LLU;
85579146 // arguments for call to sub
85589147 stack[base + 28LLU] = 0LLU;
85599148 stack[base + 29LLU] = 1LLU;
@@ -8562,13 +9151,13 @@
85629151 label = 18446744073709551607LLU; // sub
85639152 break;
85649153 }
8565- case 576LLU: // return from sub to procfn
9154+ case 617LLU: // return from sub to procfn
85669155 {
85679156 // copy back results provided by call to sub
85689157 stack[base + 24/*sizelimit*/] = stack[base + 27LLU];
85699158 if(!stack[base + 16/*fnrec*/])
85709159 {
8571- label = 577LLU; // jump to alternative
9160+ label = 618LLU; // jump to alternative
85729161 break;
85739162 }
85749163
@@ -8575,7 +9164,7 @@
85759164 // consequent
85769165 // call parsetoken from procfn
85779166 stack[base + 25LLU] = base;
8578- stack[base + 26LLU] = 579LLU;
9167+ stack[base + 26LLU] = 620LLU;
85799168 // arguments for call to parsetoken
85809169 stack[base + 30LLU] = stack[base + 11/*lookahead*/];
85819170 // set stack-base & callee-address
@@ -8583,7 +9172,7 @@
85839172 label = 18446744073709551588LLU; // parsetoken
85849173 break;
85859174 }
8586- case 579LLU: // return from parsetoken to procfn
9175+ case 620LLU: // return from parsetoken to procfn
85879176 {
85889177 // copy back results provided by call to parsetoken
85899178 stack[base + 12/*variant*/] = stack[base + 27LLU];
@@ -8591,7 +9180,7 @@
85919180 stack[base + 11/*lookahead*/] = stack[base + 29LLU];
85929181 // call equ from procfn
85939182 stack[base + 25LLU] = base;
8594- stack[base + 26LLU] = 580LLU;
9183+ stack[base + 26LLU] = 621LLU;
85959184 // arguments for call to equ
85969185 stack[base + 28LLU] = stack[base + 12/*variant*/];
85979186 stack[base + 29LLU] = 1LLU;
@@ -8600,27 +9189,27 @@
86009189 label = 18446744073709551603LLU; // equ
86019190 break;
86029191 }
8603- case 580LLU: // return from equ to procfn
9192+ case 621LLU: // return from equ to procfn
86049193 {
86059194 // copy back results provided by call to equ
86069195 stack[base + 22/*isnumber*/] = stack[base + 27LLU];
86079196 if(!stack[base + 22/*isnumber*/])
86089197 {
8609- label = 581LLU; // jump to alternative
9198+ label = 622LLU; // jump to alternative
86109199 break;
86119200 }
86129201
86139202 // consequent
86149203 stack[base + 24/*sizelimit*/] = stack[base + 13/*content*/];
8615- label = 582LLU; // consequent complete
9204+ label = 623LLU; // consequent complete
86169205 break;
86179206 }
8618- case 581LLU: // alternative
9207+ case 622LLU: // alternative
86199208 {
86209209 fprintf(stderr, "%s", "parsing recursive function expected size-limit but found token ");
86219210 // call reporttok from procfn
86229211 stack[base + 25LLU] = base;
8623- stack[base + 26LLU] = 583LLU;
9212+ stack[base + 26LLU] = 624LLU;
86249213 // arguments for call to reporttok
86259214 stack[base + 27LLU] = stack[base + 12/*variant*/];
86269215 stack[base + 28LLU] = stack[base + 13/*content*/];
@@ -8629,29 +9218,29 @@
86299218 label = 18446744073709551586LLU; // reporttok
86309219 break;
86319220 }
8632- case 583LLU: // return from reporttok to procfn
9221+ case 624LLU: // return from reporttok to procfn
86339222 {
86349223 fprintf(stderr, "%s", "\n");
86359224 exit(-1);
8636- label = 582LLU; // alternative complete
9225+ label = 623LLU; // alternative complete
86379226 break;
86389227 }
8639- case 582LLU: // completed if-then-else
9228+ case 623LLU: // completed if-then-else
86409229 {
8641- label = 578LLU; // consequent complete
9230+ label = 619LLU; // consequent complete
86429231 break;
86439232 }
8644- case 577LLU: // alternative
9233+ case 618LLU: // alternative
86459234 {
8646- label = 578LLU; // alternative complete
9235+ label = 619LLU; // alternative complete
86479236 break;
86489237 }
8649- case 578LLU: // completed if-then-else
9238+ case 619LLU: // completed if-then-else
86509239 {
86519240 //#define ismain 25
86529241 // call equ from procfn
86539242 stack[base + 26LLU] = base;
8654- stack[base + 27LLU] = 584LLU;
9243+ stack[base + 27LLU] = 625LLU;
86559244 // arguments for call to equ
86569245 stack[base + 29LLU] = 728618386900123648LLU; // main
86579246 stack[base + 30LLU] = stack[base + 17/*fnid*/];
@@ -8660,13 +9249,13 @@
86609249 label = 18446744073709551603LLU; // equ
86619250 break;
86629251 }
8663- case 584LLU: // return from equ to procfn
9252+ case 625LLU: // return from equ to procfn
86649253 {
86659254 // copy back results provided by call to equ
86669255 stack[base + 25/*ismain*/] = stack[base + 28LLU];
86679256 if(!stack[base + 25/*ismain*/])
86689257 {
8669- label = 585LLU; // jump to alternative
9258+ label = 626LLU; // jump to alternative
86709259 break;
86719260 }
86729261
@@ -8675,7 +9264,7 @@
86759264 //#define isequal 26
86769265 // call equ from procfn
86779266 stack[base + 27LLU] = base;
8678- stack[base + 28LLU] = 587LLU;
9267+ stack[base + 28LLU] = 628LLU;
86799268 // arguments for call to equ
86809269 stack[base + 30LLU] = 1LLU;
86819270 stack[base + 31LLU] = stack[base + 19/*fnrescount*/];
@@ -8684,26 +9273,26 @@
86849273 label = 18446744073709551603LLU; // equ
86859274 break;
86869275 }
8687- case 587LLU: // return from equ to procfn
9276+ case 628LLU: // return from equ to procfn
86889277 {
86899278 // copy back results provided by call to equ
86909279 stack[base + 26/*isequal*/] = stack[base + 29LLU];
86919280 if(!stack[base + 26/*isequal*/])
86929281 {
8693- label = 588LLU; // jump to alternative
9282+ label = 629LLU; // jump to alternative
86949283 break;
86959284 }
86969285
86979286 // consequent
8698- label = 589LLU; // consequent complete
9287+ label = 630LLU; // consequent complete
86999288 break;
87009289 }
8701- case 588LLU: // alternative
9290+ case 629LLU: // alternative
87029291 {
87039292 fprintf(stderr, "%s", "expected 1 result in definition of main but found ");
87049293 // call reportnr from procfn
87059294 stack[base + 27LLU] = base;
8706- stack[base + 28LLU] = 590LLU;
9295+ stack[base + 28LLU] = 631LLU;
87079296 // arguments for call to reportnr
87089297 stack[base + 29LLU] = stack[base + 19/*fnrescount*/];
87099298 // set stack-base & callee-address
@@ -8711,18 +9300,18 @@
87119300 label = 18446744073709551593LLU; // reportnr
87129301 break;
87139302 }
8714- case 590LLU: // return from reportnr to procfn
9303+ case 631LLU: // return from reportnr to procfn
87159304 {
87169305 fprintf(stderr, "%s", "\n");
87179306 exit(-1);
8718- label = 589LLU; // alternative complete
9307+ label = 630LLU; // alternative complete
87199308 break;
87209309 }
8721- case 589LLU: // completed if-then-else
9310+ case 630LLU: // completed if-then-else
87229311 {
87239312 // call equ from procfn
87249313 stack[base + 27LLU] = base;
8725- stack[base + 28LLU] = 591LLU;
9314+ stack[base + 28LLU] = 632LLU;
87269315 // arguments for call to equ
87279316 stack[base + 30LLU] = 0LLU;
87289317 stack[base + 31LLU] = stack[base + 20/*fnargcount*/];
@@ -8731,26 +9320,26 @@
87319320 label = 18446744073709551603LLU; // equ
87329321 break;
87339322 }
8734- case 591LLU: // return from equ to procfn
9323+ case 632LLU: // return from equ to procfn
87359324 {
87369325 // copy back results provided by call to equ
87379326 stack[base + 26/*isequal*/] = stack[base + 29LLU];
87389327 if(!stack[base + 26/*isequal*/])
87399328 {
8740- label = 592LLU; // jump to alternative
9329+ label = 633LLU; // jump to alternative
87419330 break;
87429331 }
87439332
87449333 // consequent
8745- label = 593LLU; // consequent complete
9334+ label = 634LLU; // consequent complete
87469335 break;
87479336 }
8748- case 592LLU: // alternative
9337+ case 633LLU: // alternative
87499338 {
87509339 fprintf(stderr, "%s", "expected 0 arguments in definition of main but found ");
87519340 // call reportnr from procfn
87529341 stack[base + 27LLU] = base;
8753- stack[base + 28LLU] = 594LLU;
9342+ stack[base + 28LLU] = 635LLU;
87549343 // arguments for call to reportnr
87559344 stack[base + 29LLU] = stack[base + 20/*fnargcount*/];
87569345 // set stack-base & callee-address
@@ -8758,23 +9347,23 @@
87589347 label = 18446744073709551593LLU; // reportnr
87599348 break;
87609349 }
8761- case 594LLU: // return from reportnr to procfn
9350+ case 635LLU: // return from reportnr to procfn
87629351 {
87639352 fprintf(stderr, "%s", "\n");
87649353 exit(-1);
8765- label = 593LLU; // alternative complete
9354+ label = 634LLU; // alternative complete
87669355 break;
87679356 }
8768- case 593LLU: // completed if-then-else
9357+ case 634LLU: // completed if-then-else
87699358 {
8770- label = 586LLU; // consequent complete
9359+ label = 627LLU; // consequent complete
87719360 break;
87729361 }
8773- case 585LLU: // alternative
9362+ case 626LLU: // alternative
87749363 {
87759364 // call add from procfn
87769365 stack[base + 26LLU] = base;
8777- stack[base + 27LLU] = 595LLU;
9366+ stack[base + 27LLU] = 636LLU;
87789367 // arguments for call to add
87799368 stack[base + 29LLU] = 1LLU;
87809369 stack[base + 30LLU] = stack[base + 14/*label*/];
@@ -8783,20 +9372,20 @@
87839372 label = 18446744073709551608LLU; // add
87849373 break;
87859374 }
8786- case 595LLU: // return from add to procfn
9375+ case 636LLU: // return from add to procfn
87879376 {
87889377 // copy back results provided by call to add
87899378 stack[base + 14/*label*/] = stack[base + 28LLU];
87909379 stack[base + 18/*fnlabel*/] = stack[base + 14/*label*/];
8791- label = 586LLU; // alternative complete
9380+ label = 627LLU; // alternative complete
87929381 break;
87939382 }
8794- case 586LLU: // completed if-then-else
9383+ case 627LLU: // completed if-then-else
87959384 {
87969385 printf("%s", "\n case ");
87979386 // call printnr from procfn
87989387 stack[base + 26LLU] = base;
8799- stack[base + 27LLU] = 596LLU;
9388+ stack[base + 27LLU] = 637LLU;
88009389 // arguments for call to printnr
88019390 stack[base + 28LLU] = stack[base + 18/*fnlabel*/];
88029391 // set stack-base & callee-address
@@ -8804,12 +9393,12 @@
88049393 label = 18446744073709551594LLU; // printnr
88059394 break;
88069395 }
8807- case 596LLU: // return from printnr to procfn
9396+ case 637LLU: // return from printnr to procfn
88089397 {
88099398 printf("%s", "LLU: // ");
88109399 // call printid from procfn
88119400 stack[base + 26LLU] = base;
8812- stack[base + 27LLU] = 597LLU;
9401+ stack[base + 27LLU] = 638LLU;
88139402 // arguments for call to printid
88149403 stack[base + 28LLU] = stack[base + 17/*fnid*/];
88159404 // set stack-base & callee-address
@@ -8817,7 +9406,7 @@
88179406 label = 18446744073709551591LLU; // printid
88189407 break;
88199408 }
8820- case 597LLU: // return from printid to procfn
9409+ case 638LLU: // return from printid to procfn
88219410 {
88229411 printf("%s", "\n {");
88239412 //#define scope 26
@@ -8824,14 +9413,14 @@
88249413 stack[base + 26/*scope*/] = 0;
88259414 //#define counter 27
88269415 stack[base + 27/*counter*/] = stack[base + 19/*fnrescount*/];
8827- label = 598LLU; // start to repeat
9416+ label = 639LLU; // start to repeat
88289417 break;
88299418 }
8830- case 598LLU: // repeat from here
9419+ case 639LLU: // repeat from here
88319420 {
88329421 if(!stack[base + 27/*counter*/])
88339422 {
8834- label = 599LLU; // break loop
9423+ label = 640LLU; // break loop
88359424 break;
88369425 }
88379426
@@ -8839,7 +9428,7 @@
88399428 //#define ires 28
88409429 // call sub from procfn
88419430 stack[base + 29LLU] = base;
8842- stack[base + 30LLU] = 600LLU;
9431+ stack[base + 30LLU] = 641LLU;
88439432 // arguments for call to sub
88449433 stack[base + 32LLU] = stack[base + 19/*fnrescount*/];
88459434 stack[base + 33LLU] = stack[base + 27/*counter*/];
@@ -8848,7 +9437,7 @@
88489437 label = 18446744073709551607LLU; // sub
88499438 break;
88509439 }
8851- case 600LLU: // return from sub to procfn
9440+ case 641LLU: // return from sub to procfn
88529441 {
88539442 // copy back results provided by call to sub
88549443 stack[base + 28/*ires*/] = stack[base + 31LLU];
@@ -8855,7 +9444,7 @@
88559444 printf("%s", "\n//#define res");
88569445 // call printnr from procfn
88579446 stack[base + 29LLU] = base;
8858- stack[base + 30LLU] = 601LLU;
9447+ stack[base + 30LLU] = 642LLU;
88599448 // arguments for call to printnr
88609449 stack[base + 31LLU] = stack[base + 28/*ires*/];
88619450 // set stack-base & callee-address
@@ -8863,12 +9452,12 @@
88639452 label = 18446744073709551594LLU; // printnr
88649453 break;
88659454 }
8866- case 601LLU: // return from printnr to procfn
9455+ case 642LLU: // return from printnr to procfn
88679456 {
88689457 printf("%s", " ");
88699458 // call printnr from procfn
88709459 stack[base + 29LLU] = base;
8871- stack[base + 30LLU] = 602LLU;
9460+ stack[base + 30LLU] = 643LLU;
88729461 // arguments for call to printnr
88739462 stack[base + 31LLU] = stack[base + 28/*ires*/];
88749463 // set stack-base & callee-address
@@ -8876,7 +9465,7 @@
88769465 label = 18446744073709551594LLU; // printnr
88779466 break;
88789467 }
8879- case 602LLU: // return from printnr to procfn
9468+ case 643LLU: // return from printnr to procfn
88809469 {
88819470 //#define newletres 29
88829471 stack[base + 29/*newletres*/] = 0;
@@ -8885,7 +9474,7 @@
88859474 //#define resid 30
88869475 // call idwithnr from procfn
88879476 stack[base + 31LLU] = base;
8888- stack[base + 32LLU] = 603LLU;
9477+ stack[base + 32LLU] = 644LLU;
88899478 // arguments for call to idwithnr
88909479 stack[base + 34LLU] = 819857442320941056LLU; // res
88919480 stack[base + 35LLU] = stack[base + 28/*ires*/];
@@ -8894,7 +9483,7 @@
88949483 label = 18446744073709551582LLU; // idwithnr
88959484 break;
88969485 }
8897- case 603LLU: // return from idwithnr to procfn
9486+ case 644LLU: // return from idwithnr to procfn
88989487 {
88999488 // copy back results provided by call to idwithnr
89009489 stack[base + 30/*resid*/] = stack[base + 33LLU];
@@ -8908,7 +9497,7 @@
89089497 }
89099498 // call sub from procfn
89109499 stack[base + 29LLU] = base;
8911- stack[base + 30LLU] = 604LLU;
9500+ stack[base + 30LLU] = 645LLU;
89129501 // arguments for call to sub
89139502 stack[base + 32LLU] = stack[base + 27/*counter*/];
89149503 stack[base + 33LLU] = 1LLU;
@@ -8917,24 +9506,24 @@
89179506 label = 18446744073709551607LLU; // sub
89189507 break;
89199508 }
8920- case 604LLU: // return from sub to procfn
9509+ case 645LLU: // return from sub to procfn
89219510 {
89229511 // copy back results provided by call to sub
89239512 stack[base + 27/*counter*/] = stack[base + 31LLU];
8924- label = 598LLU; // repeat
9513+ label = 639LLU; // repeat
89259514 break;
89269515 }
8927- case 599LLU: // loop finished
9516+ case 640LLU: // loop finished
89289517 {
89299518 stack[base + 27/*counter*/] = stack[base + 20/*fnargcount*/];
8930- label = 605LLU; // start to repeat
9519+ label = 646LLU; // start to repeat
89319520 break;
89329521 }
8933- case 605LLU: // repeat from here
9522+ case 646LLU: // repeat from here
89349523 {
89359524 if(!stack[base + 27/*counter*/])
89369525 {
8937- label = 606LLU; // break loop
9526+ label = 647LLU; // break loop
89389527 break;
89399528 }
89409529
@@ -8942,7 +9531,7 @@
89429531 //#define iarg 28
89439532 // call sub from procfn
89449533 stack[base + 29LLU] = base;
8945- stack[base + 30LLU] = 607LLU;
9534+ stack[base + 30LLU] = 648LLU;
89469535 // arguments for call to sub
89479536 stack[base + 32LLU] = stack[base + 20/*fnargcount*/];
89489537 stack[base + 33LLU] = stack[base + 27/*counter*/];
@@ -8951,7 +9540,7 @@
89519540 label = 18446744073709551607LLU; // sub
89529541 break;
89539542 }
8954- case 607LLU: // return from sub to procfn
9543+ case 648LLU: // return from sub to procfn
89559544 {
89569545 // copy back results provided by call to sub
89579546 stack[base + 28/*iarg*/] = stack[base + 31LLU];
@@ -8958,7 +9547,7 @@
89589547 printf("%s", "\n//#define arg");
89599548 // call printnr from procfn
89609549 stack[base + 29LLU] = base;
8961- stack[base + 30LLU] = 608LLU;
9550+ stack[base + 30LLU] = 649LLU;
89629551 // arguments for call to printnr
89639552 stack[base + 31LLU] = stack[base + 28/*iarg*/];
89649553 // set stack-base & callee-address
@@ -8966,7 +9555,7 @@
89669555 label = 18446744073709551594LLU; // printnr
89679556 break;
89689557 }
8969- case 608LLU: // return from printnr to procfn
9558+ case 649LLU: // return from printnr to procfn
89709559 {
89719560 printf("%s", " ");
89729561 //#define newletarg 29
@@ -8976,7 +9565,7 @@
89769565 //#define argid 30
89779566 // call idwithnr from procfn
89789567 stack[base + 31LLU] = base;
8979- stack[base + 32LLU] = 609LLU;
9568+ stack[base + 32LLU] = 650LLU;
89809569 // arguments for call to idwithnr
89819570 stack[base + 34LLU] = 517219065798852608LLU; // arg
89829571 stack[base + 35LLU] = stack[base + 28/*iarg*/];
@@ -8985,7 +9574,7 @@
89859574 label = 18446744073709551582LLU; // idwithnr
89869575 break;
89879576 }
8988- case 609LLU: // return from idwithnr to procfn
9577+ case 650LLU: // return from idwithnr to procfn
89899578 {
89909579 // copy back results provided by call to idwithnr
89919580 stack[base + 30/*argid*/] = stack[base + 33LLU];
@@ -8992,7 +9581,7 @@
89929581 ((uint64_t *)(stack[base + 29/*newletarg*/]))[1] = stack[base + 30/*argid*/];
89939582 // call add from procfn
89949583 stack[base + 31LLU] = base;
8995- stack[base + 32LLU] = 610LLU;
9584+ stack[base + 32LLU] = 651LLU;
89969585 // arguments for call to add
89979586 stack[base + 34LLU] = stack[base + 19/*fnrescount*/];
89989587 stack[base + 35LLU] = stack[base + 28/*iarg*/];
@@ -9001,13 +9590,13 @@
90019590 label = 18446744073709551608LLU; // add
90029591 break;
90039592 }
9004- case 610LLU: // return from add to procfn
9593+ case 651LLU: // return from add to procfn
90059594 {
90069595 // copy back results provided by call to add
90079596 stack[base + 28/*iarg*/] = stack[base + 33LLU];
90089597 // call printnr from procfn
90099598 stack[base + 31LLU] = base;
9010- stack[base + 32LLU] = 611LLU;
9599+ stack[base + 32LLU] = 652LLU;
90119600 // arguments for call to printnr
90129601 stack[base + 33LLU] = stack[base + 28/*iarg*/];
90139602 // set stack-base & callee-address
@@ -9015,7 +9604,7 @@
90159604 label = 18446744073709551594LLU; // printnr
90169605 break;
90179606 }
9018- case 611LLU: // return from printnr to procfn
9607+ case 652LLU: // return from printnr to procfn
90199608 {
90209609 ((uint64_t *)(stack[base + 29/*newletarg*/]))[2] = stack[base + 28/*iarg*/];
90219610 {
@@ -9026,7 +9615,7 @@
90269615 }
90279616 // call sub from procfn
90289617 stack[base + 29LLU] = base;
9029- stack[base + 30LLU] = 612LLU;
9618+ stack[base + 30LLU] = 653LLU;
90309619 // arguments for call to sub
90319620 stack[base + 32LLU] = stack[base + 27/*counter*/];
90329621 stack[base + 33LLU] = 1LLU;
@@ -9035,18 +9624,18 @@
90359624 label = 18446744073709551607LLU; // sub
90369625 break;
90379626 }
9038- case 612LLU: // return from sub to procfn
9627+ case 653LLU: // return from sub to procfn
90399628 {
90409629 // copy back results provided by call to sub
90419630 stack[base + 27/*counter*/] = stack[base + 31LLU];
9042- label = 605LLU; // repeat
9631+ label = 646LLU; // repeat
90439632 break;
90449633 }
9045- case 606LLU: // loop finished
9634+ case 647LLU: // loop finished
90469635 {
90479636 if(!stack[base + 16/*fnrec*/])
90489637 {
9049- label = 613LLU; // jump to alternative
9638+ label = 654LLU; // jump to alternative
90509639 break;
90519640 }
90529641
@@ -9077,21 +9666,21 @@
90779666 #undef sizelimit
90789667 #undef fnid
90799668 #undef fnrec
9080- label = 614LLU; // consequent complete
9669+ label = 655LLU; // consequent complete
90819670 break;
90829671 }
9083- case 613LLU: // alternative
9672+ case 654LLU: // alternative
90849673 {
9085- label = 614LLU; // alternative complete
9674+ label = 655LLU; // alternative complete
90869675 break;
90879676 }
9088- case 614LLU: // completed if-then-else
9677+ case 655LLU: // completed if-then-else
90899678 {
90909679 //#define varcount 28
90919680 stack[base + 28/*varcount*/] = 0;
90929681 // call matchsym from procfn
90939682 stack[base + 29LLU] = base;
9094- stack[base + 30LLU] = 615LLU;
9683+ stack[base + 30LLU] = 656LLU;
90959684 // arguments for call to matchsym
90969685 stack[base + 32LLU] = 123LLU;
90979686 stack[base + 33LLU] = stack[base + 11/*lookahead*/];
@@ -9100,7 +9689,7 @@
91009689 label = 12LLU; // matchsym
91019690 break;
91029691 }
9103- case 615LLU: // return from matchsym to procfn
9692+ case 656LLU: // return from matchsym to procfn
91049693 {
91059694 // copy back results provided by call to matchsym
91069695 stack[base + 11/*lookahead*/] = stack[base + 31LLU];
@@ -9111,7 +9700,7 @@
91119700 // call procblock from procfn
91129701 newstack[0] = (uint64_t)stack; // backup stack location
91139702 newstack[1] = base;
9114- newstack[2] = 616LLU;
9703+ newstack[2] = 657LLU;
91159704 // arguments for call to procblock
91169705 newstack[8LLU] = stack[base + 29/*scopes*/];
91179706 newstack[9LLU] = stack[base + 26/*scope*/];
@@ -9129,10 +9718,10 @@
91299718 stack = newstack;
91309719 // set stack-base & callee-address
91319720 base = 3;
9132- label = 250LLU; // procblock
9721+ label = 291LLU; // procblock
91339722 break;
91349723 }
9135- case 616LLU: // return from procblock to procfn
9724+ case 657LLU: // return from procblock to procfn
91369725 {
91379726 uint64_t *oldstack = (uint64_t *)stack[0];
91389727 // copy back results provided by call to procblock
@@ -9148,14 +9737,14 @@
91489737 }
91499738 free(stack);
91509739 stack = oldstack;
9151- label = 617LLU; // start to repeat
9740+ label = 658LLU; // start to repeat
91529741 break;
91539742 }
9154- case 617LLU: // repeat from here
9743+ case 658LLU: // repeat from here
91559744 {
91569745 if(!stack[base + 26/*scope*/])
91579746 {
9158- label = 618LLU; // break loop
9747+ label = 659LLU; // break loop
91599748 break;
91609749 }
91619750
@@ -9164,7 +9753,7 @@
91649753 struct listnode *list = (struct listnode *)stack[base + 26/*scope*/];
91659754 if(!list)
91669755 {
9167- label = 619LLU; // jump to alternative
9756+ label = 660LLU; // jump to alternative
91689757 break;
91699758 }
91709759
@@ -9174,27 +9763,27 @@
91749763 free(list);
91759764 stack[base + 26/*scope*/] = (uint64_t)next;
91769765 free((uint64_t *)stack[base + 30/*current*/]);
9177- label = 620LLU; // consequent complete
9766+ label = 661LLU; // consequent complete
91789767 break;
91799768 }
9180- case 619LLU: // alternative
9769+ case 660LLU: // alternative
91819770 {
91829771 fprintf(stderr, "%s", "internal error cleaning up lets in block\n");
91839772 exit(-1);
9184- label = 620LLU; // alternative complete
9773+ label = 661LLU; // alternative complete
91859774 break;
91869775 }
9187- case 620LLU: // completed if-then-else
9776+ case 661LLU: // completed if-then-else
91889777 {
9189- label = 617LLU; // repeat
9778+ label = 658LLU; // repeat
91909779 break;
91919780 }
9192- case 618LLU: // loop finished
9781+ case 659LLU: // loop finished
91939782 {
91949783 printf("%s", "\n // return from ");
91959784 // call printid from procfn
91969785 stack[base + 30LLU] = base;
9197- stack[base + 31LLU] = 621LLU;
9786+ stack[base + 31LLU] = 662LLU;
91989787 // arguments for call to printid
91999788 stack[base + 32LLU] = stack[base + 17/*fnid*/];
92009789 // set stack-base & callee-address
@@ -9202,7 +9791,7 @@
92029791 label = 18446744073709551591LLU; // printid
92039792 break;
92049793 }
9205- case 621LLU: // return from printid to procfn
9794+ case 662LLU: // return from printid to procfn
92069795 {
92079796 printf("%s", "\n label = stack[base - 1];");
92089797 printf("%s", "\n base = stack[base - 2];");
@@ -9211,7 +9800,7 @@
92119800 //#define isgtr 30
92129801 // call gtr from procfn
92139802 stack[base + 31LLU] = base;
9214- stack[base + 32LLU] = 622LLU;
9803+ stack[base + 32LLU] = 663LLU;
92159804 // arguments for call to gtr
92169805 stack[base + 34LLU] = stack[base + 21/*fnmaxcount*/];
92179806 stack[base + 35LLU] = stack[base + 24/*sizelimit*/];
@@ -9220,13 +9809,13 @@
92209809 label = 18446744073709551598LLU; // gtr
92219810 break;
92229811 }
9223- case 622LLU: // return from gtr to procfn
9812+ case 663LLU: // return from gtr to procfn
92249813 {
92259814 // copy back results provided by call to gtr
92269815 stack[base + 30/*isgtr*/] = stack[base + 33LLU];
92279816 if(!stack[base + 30/*isgtr*/])
92289817 {
9229- label = 623LLU; // jump to alternative
9818+ label = 664LLU; // jump to alternative
92309819 break;
92319820 }
92329821
@@ -9234,7 +9823,7 @@
92349823 fprintf(stderr, "%s", "function ");
92359824 // call reportid from procfn
92369825 stack[base + 31LLU] = base;
9237- stack[base + 32LLU] = 625LLU;
9826+ stack[base + 32LLU] = 666LLU;
92389827 // arguments for call to reportid
92399828 stack[base + 33LLU] = stack[base + 17/*fnid*/];
92409829 // set stack-base & callee-address
@@ -9242,12 +9831,12 @@
92429831 label = 18446744073709551590LLU; // reportid
92439832 break;
92449833 }
9245- case 625LLU: // return from reportid to procfn
9834+ case 666LLU: // return from reportid to procfn
92469835 {
92479836 fprintf(stderr, "%s", " size ");
92489837 // call reportnr from procfn
92499838 stack[base + 31LLU] = base;
9250- stack[base + 32LLU] = 626LLU;
9839+ stack[base + 32LLU] = 667LLU;
92519840 // arguments for call to reportnr
92529841 stack[base + 33LLU] = stack[base + 21/*fnmaxcount*/];
92539842 // set stack-base & callee-address
@@ -9255,12 +9844,12 @@
92559844 label = 18446744073709551593LLU; // reportnr
92569845 break;
92579846 }
9258- case 626LLU: // return from reportnr to procfn
9847+ case 667LLU: // return from reportnr to procfn
92599848 {
92609849 fprintf(stderr, "%s", " exceeds function memory ");
92619850 // call reportnr from procfn
92629851 stack[base + 31LLU] = base;
9263- stack[base + 32LLU] = 627LLU;
9852+ stack[base + 32LLU] = 668LLU;
92649853 // arguments for call to reportnr
92659854 stack[base + 33LLU] = stack[base + 24/*sizelimit*/];
92669855 // set stack-base & callee-address
@@ -9268,19 +9857,19 @@
92689857 label = 18446744073709551593LLU; // reportnr
92699858 break;
92709859 }
9271- case 627LLU: // return from reportnr to procfn
9860+ case 668LLU: // return from reportnr to procfn
92729861 {
92739862 fprintf(stderr, "%s", "\n");
92749863 exit(-1);
9275- label = 624LLU; // consequent complete
9864+ label = 665LLU; // consequent complete
92769865 break;
92779866 }
9278- case 623LLU: // alternative
9867+ case 664LLU: // alternative
92799868 {
9280- label = 624LLU; // alternative complete
9869+ label = 665LLU; // alternative complete
92819870 break;
92829871 }
9283- case 624LLU: // completed if-then-else
9872+ case 665LLU: // completed if-then-else
92849873 {
92859874 #define defcount 15
92869875 #define fnlabel 18
@@ -9333,7 +9922,7 @@
93339922 stack[base + 1/*defcount*/] = 0;
93349923 // call register from main
93359924 stack[base + 2LLU] = base;
9336- stack[base + 3LLU] = 628LLU;
9925+ stack[base + 3LLU] = 669LLU;
93379926 // arguments for call to register
93389927 stack[base + 5LLU] = 1LLU;
93399928 stack[base + 6LLU] = 1LLU;
@@ -9345,13 +9934,13 @@
93459934 label = 2LLU; // register
93469935 break;
93479936 }
9348- case 628LLU: // return from register to main
9937+ case 669LLU: // return from register to main
93499938 {
93509939 // copy back results provided by call to register
93519940 stack[base + 1/*defcount*/] = stack[base + 4LLU];
93529941 // call register from main
93539942 stack[base + 2LLU] = base;
9354- stack[base + 3LLU] = 629LLU;
9943+ stack[base + 3LLU] = 670LLU;
93559944 // arguments for call to register
93569945 stack[base + 5LLU] = 1LLU;
93579946 stack[base + 6LLU] = 2LLU;
@@ -9363,13 +9952,13 @@
93639952 label = 2LLU; // register
93649953 break;
93659954 }
9366- case 629LLU: // return from register to main
9955+ case 670LLU: // return from register to main
93679956 {
93689957 // copy back results provided by call to register
93699958 stack[base + 1/*defcount*/] = stack[base + 4LLU];
93709959 // call register from main
93719960 stack[base + 2LLU] = base;
9372- stack[base + 3LLU] = 630LLU;
9961+ stack[base + 3LLU] = 671LLU;
93739962 // arguments for call to register
93749963 stack[base + 5LLU] = 1LLU;
93759964 stack[base + 6LLU] = 2LLU;
@@ -9381,13 +9970,13 @@
93819970 label = 2LLU; // register
93829971 break;
93839972 }
9384- case 630LLU: // return from register to main
9973+ case 671LLU: // return from register to main
93859974 {
93869975 // copy back results provided by call to register
93879976 stack[base + 1/*defcount*/] = stack[base + 4LLU];
93889977 // call register from main
93899978 stack[base + 2LLU] = base;
9390- stack[base + 3LLU] = 631LLU;
9979+ stack[base + 3LLU] = 672LLU;
93919980 // arguments for call to register
93929981 stack[base + 5LLU] = 1LLU;
93939982 stack[base + 6LLU] = 2LLU;
@@ -9399,13 +9988,13 @@
93999988 label = 2LLU; // register
94009989 break;
94019990 }
9402- case 631LLU: // return from register to main
9991+ case 672LLU: // return from register to main
94039992 {
94049993 // copy back results provided by call to register
94059994 stack[base + 1/*defcount*/] = stack[base + 4LLU];
94069995 // call register from main
94079996 stack[base + 2LLU] = base;
9408- stack[base + 3LLU] = 632LLU;
9997+ stack[base + 3LLU] = 673LLU;
94099998 // arguments for call to register
94109999 stack[base + 5LLU] = 1LLU;
941110000 stack[base + 6LLU] = 2LLU;
@@ -9417,13 +10006,13 @@
941710006 label = 2LLU; // register
941810007 break;
941910008 }
9420- case 632LLU: // return from register to main
10009+ case 673LLU: // return from register to main
942110010 {
942210011 // copy back results provided by call to register
942310012 stack[base + 1/*defcount*/] = stack[base + 4LLU];
942410013 // call register from main
942510014 stack[base + 2LLU] = base;
9426- stack[base + 3LLU] = 633LLU;
10015+ stack[base + 3LLU] = 674LLU;
942710016 // arguments for call to register
942810017 stack[base + 5LLU] = 1LLU;
942910018 stack[base + 6LLU] = 2LLU;
@@ -9435,13 +10024,13 @@
943510024 label = 2LLU; // register
943610025 break;
943710026 }
9438- case 633LLU: // return from register to main
10027+ case 674LLU: // return from register to main
943910028 {
944010029 // copy back results provided by call to register
944110030 stack[base + 1/*defcount*/] = stack[base + 4LLU];
944210031 // call register from main
944310032 stack[base + 2LLU] = base;
9444- stack[base + 3LLU] = 634LLU;
10033+ stack[base + 3LLU] = 675LLU;
944510034 // arguments for call to register
944610035 stack[base + 5LLU] = 1LLU;
944710036 stack[base + 6LLU] = 2LLU;
@@ -9453,13 +10042,13 @@
945310042 label = 2LLU; // register
945410043 break;
945510044 }
9456- case 634LLU: // return from register to main
10045+ case 675LLU: // return from register to main
945710046 {
945810047 // copy back results provided by call to register
945910048 stack[base + 1/*defcount*/] = stack[base + 4LLU];
946010049 // call register from main
946110050 stack[base + 2LLU] = base;
9462- stack[base + 3LLU] = 635LLU;
10051+ stack[base + 3LLU] = 676LLU;
946310052 // arguments for call to register
946410053 stack[base + 5LLU] = 1LLU;
946510054 stack[base + 6LLU] = 2LLU;
@@ -9471,13 +10060,13 @@
947110060 label = 2LLU; // register
947210061 break;
947310062 }
9474- case 635LLU: // return from register to main
10063+ case 676LLU: // return from register to main
947510064 {
947610065 // copy back results provided by call to register
947710066 stack[base + 1/*defcount*/] = stack[base + 4LLU];
947810067 // call register from main
947910068 stack[base + 2LLU] = base;
9480- stack[base + 3LLU] = 636LLU;
10069+ stack[base + 3LLU] = 677LLU;
948110070 // arguments for call to register
948210071 stack[base + 5LLU] = 1LLU;
948310072 stack[base + 6LLU] = 2LLU;
@@ -9489,13 +10078,13 @@
948910078 label = 2LLU; // register
949010079 break;
949110080 }
9492- case 636LLU: // return from register to main
10081+ case 677LLU: // return from register to main
949310082 {
949410083 // copy back results provided by call to register
949510084 stack[base + 1/*defcount*/] = stack[base + 4LLU];
949610085 // call register from main
949710086 stack[base + 2LLU] = base;
9498- stack[base + 3LLU] = 637LLU;
10087+ stack[base + 3LLU] = 678LLU;
949910088 // arguments for call to register
950010089 stack[base + 5LLU] = 1LLU;
950110090 stack[base + 6LLU] = 2LLU;
@@ -9507,13 +10096,13 @@
950710096 label = 2LLU; // register
950810097 break;
950910098 }
9510- case 637LLU: // return from register to main
10099+ case 678LLU: // return from register to main
951110100 {
951210101 // copy back results provided by call to register
951310102 stack[base + 1/*defcount*/] = stack[base + 4LLU];
951410103 // call register from main
951510104 stack[base + 2LLU] = base;
9516- stack[base + 3LLU] = 638LLU;
10105+ stack[base + 3LLU] = 679LLU;
951710106 // arguments for call to register
951810107 stack[base + 5LLU] = 1LLU;
951910108 stack[base + 6LLU] = 2LLU;
@@ -9525,13 +10114,13 @@
952510114 label = 2LLU; // register
952610115 break;
952710116 }
9528- case 638LLU: // return from register to main
10117+ case 679LLU: // return from register to main
952910118 {
953010119 // copy back results provided by call to register
953110120 stack[base + 1/*defcount*/] = stack[base + 4LLU];
953210121 // call register from main
953310122 stack[base + 2LLU] = base;
9534- stack[base + 3LLU] = 639LLU;
10123+ stack[base + 3LLU] = 680LLU;
953510124 // arguments for call to register
953610125 stack[base + 5LLU] = 1LLU;
953710126 stack[base + 6LLU] = 2LLU;
@@ -9543,13 +10132,13 @@
954310132 label = 2LLU; // register
954410133 break;
954510134 }
9546- case 639LLU: // return from register to main
10135+ case 680LLU: // return from register to main
954710136 {
954810137 // copy back results provided by call to register
954910138 stack[base + 1/*defcount*/] = stack[base + 4LLU];
955010139 // call register from main
955110140 stack[base + 2LLU] = base;
9552- stack[base + 3LLU] = 640LLU;
10141+ stack[base + 3LLU] = 681LLU;
955310142 // arguments for call to register
955410143 stack[base + 5LLU] = 1LLU;
955510144 stack[base + 6LLU] = 2LLU;
@@ -9561,13 +10150,13 @@
956110150 label = 2LLU; // register
956210151 break;
956310152 }
9564- case 640LLU: // return from register to main
10153+ case 681LLU: // return from register to main
956510154 {
956610155 // copy back results provided by call to register
956710156 stack[base + 1/*defcount*/] = stack[base + 4LLU];
956810157 // call register from main
956910158 stack[base + 2LLU] = base;
9570- stack[base + 3LLU] = 641LLU;
10159+ stack[base + 3LLU] = 682LLU;
957110160 // arguments for call to register
957210161 stack[base + 5LLU] = 1LLU;
957310162 stack[base + 6LLU] = 2LLU;
@@ -9579,13 +10168,13 @@
957910168 label = 2LLU; // register
958010169 break;
958110170 }
9582- case 641LLU: // return from register to main
10171+ case 682LLU: // return from register to main
958310172 {
958410173 // copy back results provided by call to register
958510174 stack[base + 1/*defcount*/] = stack[base + 4LLU];
958610175 // call register from main
958710176 stack[base + 2LLU] = base;
9588- stack[base + 3LLU] = 642LLU;
10177+ stack[base + 3LLU] = 683LLU;
958910178 // arguments for call to register
959010179 stack[base + 5LLU] = 1LLU;
959110180 stack[base + 6LLU] = 2LLU;
@@ -9597,13 +10186,13 @@
959710186 label = 2LLU; // register
959810187 break;
959910188 }
9600- case 642LLU: // return from register to main
10189+ case 683LLU: // return from register to main
960110190 {
960210191 // copy back results provided by call to register
960310192 stack[base + 1/*defcount*/] = stack[base + 4LLU];
960410193 // call register from main
960510194 stack[base + 2LLU] = base;
9606- stack[base + 3LLU] = 643LLU;
10195+ stack[base + 3LLU] = 684LLU;
960710196 // arguments for call to register
960810197 stack[base + 5LLU] = 1LLU;
960910198 stack[base + 6LLU] = 2LLU;
@@ -9615,13 +10204,13 @@
961510204 label = 2LLU; // register
961610205 break;
961710206 }
9618- case 643LLU: // return from register to main
10207+ case 684LLU: // return from register to main
961910208 {
962010209 // copy back results provided by call to register
962110210 stack[base + 1/*defcount*/] = stack[base + 4LLU];
962210211 // call register from main
962310212 stack[base + 2LLU] = base;
9624- stack[base + 3LLU] = 644LLU;
10213+ stack[base + 3LLU] = 685LLU;
962510214 // arguments for call to register
962610215 stack[base + 5LLU] = 1LLU;
962710216 stack[base + 6LLU] = 2LLU;
@@ -9633,13 +10222,13 @@
963310222 label = 2LLU; // register
963410223 break;
963510224 }
9636- case 644LLU: // return from register to main
10225+ case 685LLU: // return from register to main
963710226 {
963810227 // copy back results provided by call to register
963910228 stack[base + 1/*defcount*/] = stack[base + 4LLU];
964010229 // call register from main
964110230 stack[base + 2LLU] = base;
9642- stack[base + 3LLU] = 645LLU;
10231+ stack[base + 3LLU] = 686LLU;
964310232 // arguments for call to register
964410233 stack[base + 5LLU] = 1LLU;
964510234 stack[base + 6LLU] = 2LLU;
@@ -9651,13 +10240,13 @@
965110240 label = 2LLU; // register
965210241 break;
965310242 }
9654- case 645LLU: // return from register to main
10243+ case 686LLU: // return from register to main
965510244 {
965610245 // copy back results provided by call to register
965710246 stack[base + 1/*defcount*/] = stack[base + 4LLU];
965810247 // call register from main
965910248 stack[base + 2LLU] = base;
9660- stack[base + 3LLU] = 646LLU;
10249+ stack[base + 3LLU] = 687LLU;
966110250 // arguments for call to register
966210251 stack[base + 5LLU] = 1LLU;
966310252 stack[base + 6LLU] = 0LLU;
@@ -9669,13 +10258,13 @@
966910258 label = 2LLU; // register
967010259 break;
967110260 }
9672- case 646LLU: // return from register to main
10261+ case 687LLU: // return from register to main
967310262 {
967410263 // copy back results provided by call to register
967510264 stack[base + 1/*defcount*/] = stack[base + 4LLU];
967610265 // call register from main
967710266 stack[base + 2LLU] = base;
9678- stack[base + 3LLU] = 647LLU;
10267+ stack[base + 3LLU] = 688LLU;
967910268 // arguments for call to register
968010269 stack[base + 5LLU] = 0LLU;
968110270 stack[base + 6LLU] = 1LLU;
@@ -9687,13 +10276,13 @@
968710276 label = 2LLU; // register
968810277 break;
968910278 }
9690- case 647LLU: // return from register to main
10279+ case 688LLU: // return from register to main
969110280 {
969210281 // copy back results provided by call to register
969310282 stack[base + 1/*defcount*/] = stack[base + 4LLU];
969410283 // call register from main
969510284 stack[base + 2LLU] = base;
9696- stack[base + 3LLU] = 648LLU;
10285+ stack[base + 3LLU] = 689LLU;
969710286 // arguments for call to register
969810287 stack[base + 5LLU] = 0LLU;
969910288 stack[base + 6LLU] = 1LLU;
@@ -9705,13 +10294,13 @@
970510294 label = 2LLU; // register
970610295 break;
970710296 }
9708- case 648LLU: // return from register to main
10297+ case 689LLU: // return from register to main
970910298 {
971010299 // copy back results provided by call to register
971110300 stack[base + 1/*defcount*/] = stack[base + 4LLU];
971210301 // call register from main
971310302 stack[base + 2LLU] = base;
9714- stack[base + 3LLU] = 649LLU;
10303+ stack[base + 3LLU] = 690LLU;
971510304 // arguments for call to register
971610305 stack[base + 5LLU] = 0LLU;
971710306 stack[base + 6LLU] = 1LLU;
@@ -9723,13 +10312,13 @@
972310312 label = 2LLU; // register
972410313 break;
972510314 }
9726- case 649LLU: // return from register to main
10315+ case 690LLU: // return from register to main
972710316 {
972810317 // copy back results provided by call to register
972910318 stack[base + 1/*defcount*/] = stack[base + 4LLU];
973010319 // call register from main
973110320 stack[base + 2LLU] = base;
9732- stack[base + 3LLU] = 650LLU;
10321+ stack[base + 3LLU] = 691LLU;
973310322 // arguments for call to register
973410323 stack[base + 5LLU] = 0LLU;
973510324 stack[base + 6LLU] = 1LLU;
@@ -9741,13 +10330,13 @@
974110330 label = 2LLU; // register
974210331 break;
974310332 }
9744- case 650LLU: // return from register to main
10333+ case 691LLU: // return from register to main
974510334 {
974610335 // copy back results provided by call to register
974710336 stack[base + 1/*defcount*/] = stack[base + 4LLU];
974810337 // call register from main
974910338 stack[base + 2LLU] = base;
9750- stack[base + 3LLU] = 651LLU;
10339+ stack[base + 3LLU] = 692LLU;
975110340 // arguments for call to register
975210341 stack[base + 5LLU] = 2LLU;
975310342 stack[base + 6LLU] = 1LLU;
@@ -9759,13 +10348,13 @@
975910348 label = 2LLU; // register
976010349 break;
976110350 }
9762- case 651LLU: // return from register to main
10351+ case 692LLU: // return from register to main
976310352 {
976410353 // copy back results provided by call to register
976510354 stack[base + 1/*defcount*/] = stack[base + 4LLU];
976610355 // call register from main
976710356 stack[base + 2LLU] = base;
9768- stack[base + 3LLU] = 652LLU;
10357+ stack[base + 3LLU] = 693LLU;
976910358 // arguments for call to register
977010359 stack[base + 5LLU] = 0LLU;
977110360 stack[base + 6LLU] = 1LLU;
@@ -9777,13 +10366,13 @@
977710366 label = 2LLU; // register
977810367 break;
977910368 }
9780- case 652LLU: // return from register to main
10369+ case 693LLU: // return from register to main
978110370 {
978210371 // copy back results provided by call to register
978310372 stack[base + 1/*defcount*/] = stack[base + 4LLU];
978410373 // call register from main
978510374 stack[base + 2LLU] = base;
9786- stack[base + 3LLU] = 653LLU;
10375+ stack[base + 3LLU] = 694LLU;
978710376 // arguments for call to register
978810377 stack[base + 5LLU] = 0LLU;
978910378 stack[base + 6LLU] = 1LLU;
@@ -9795,13 +10384,13 @@
979510384 label = 2LLU; // register
979610385 break;
979710386 }
9798- case 653LLU: // return from register to main
10387+ case 694LLU: // return from register to main
979910388 {
980010389 // copy back results provided by call to register
980110390 stack[base + 1/*defcount*/] = stack[base + 4LLU];
980210391 // call register from main
980310392 stack[base + 2LLU] = base;
9804- stack[base + 3LLU] = 654LLU;
10393+ stack[base + 3LLU] = 695LLU;
980510394 // arguments for call to register
980610395 stack[base + 5LLU] = 2LLU;
980710396 stack[base + 6LLU] = 1LLU;
@@ -9813,13 +10402,13 @@
981310402 label = 2LLU; // register
981410403 break;
981510404 }
9816- case 654LLU: // return from register to main
10405+ case 695LLU: // return from register to main
981710406 {
981810407 // copy back results provided by call to register
981910408 stack[base + 1/*defcount*/] = stack[base + 4LLU];
982010409 // call register from main
982110410 stack[base + 2LLU] = base;
9822- stack[base + 3LLU] = 655LLU;
10411+ stack[base + 3LLU] = 696LLU;
982310412 // arguments for call to register
982410413 stack[base + 5LLU] = 3LLU;
982510414 stack[base + 6LLU] = 1LLU;
@@ -9831,13 +10420,13 @@
983110420 label = 2LLU; // register
983210421 break;
983310422 }
9834- case 655LLU: // return from register to main
10423+ case 696LLU: // return from register to main
983510424 {
983610425 // copy back results provided by call to register
983710426 stack[base + 1/*defcount*/] = stack[base + 4LLU];
983810427 // call register from main
983910428 stack[base + 2LLU] = base;
9840- stack[base + 3LLU] = 656LLU;
10429+ stack[base + 3LLU] = 697LLU;
984110430 // arguments for call to register
984210431 stack[base + 5LLU] = 0LLU;
984310432 stack[base + 6LLU] = 2LLU;
@@ -9849,13 +10438,13 @@
984910438 label = 2LLU; // register
985010439 break;
985110440 }
9852- case 656LLU: // return from register to main
10441+ case 697LLU: // return from register to main
985310442 {
985410443 // copy back results provided by call to register
985510444 stack[base + 1/*defcount*/] = stack[base + 4LLU];
985610445 // call register from main
985710446 stack[base + 2LLU] = base;
9858- stack[base + 3LLU] = 657LLU;
10447+ stack[base + 3LLU] = 698LLU;
985910448 // arguments for call to register
986010449 stack[base + 5LLU] = 0LLU;
986110450 stack[base + 6LLU] = 2LLU;
@@ -9867,13 +10456,13 @@
986710456 label = 2LLU; // register
986810457 break;
986910458 }
9870- case 657LLU: // return from register to main
10459+ case 698LLU: // return from register to main
987110460 {
987210461 // copy back results provided by call to register
987310462 stack[base + 1/*defcount*/] = stack[base + 4LLU];
987410463 // call register from main
987510464 stack[base + 2LLU] = base;
9876- stack[base + 3LLU] = 658LLU;
10465+ stack[base + 3LLU] = 699LLU;
987710466 // arguments for call to register
987810467 stack[base + 5LLU] = 1LLU;
987910468 stack[base + 6LLU] = 1LLU;
@@ -9885,13 +10474,13 @@
988510474 label = 2LLU; // register
988610475 break;
988710476 }
9888- case 658LLU: // return from register to main
10477+ case 699LLU: // return from register to main
988910478 {
989010479 // copy back results provided by call to register
989110480 stack[base + 1/*defcount*/] = stack[base + 4LLU];
989210481 // call register from main
989310482 stack[base + 2LLU] = base;
9894- stack[base + 3LLU] = 659LLU;
10483+ stack[base + 3LLU] = 700LLU;
989510484 // arguments for call to register
989610485 stack[base + 5LLU] = 1LLU;
989710486 stack[base + 6LLU] = 1LLU;
@@ -9903,13 +10492,13 @@
990310492 label = 2LLU; // register
990410493 break;
990510494 }
9906- case 659LLU: // return from register to main
10495+ case 700LLU: // return from register to main
990710496 {
990810497 // copy back results provided by call to register
990910498 stack[base + 1/*defcount*/] = stack[base + 4LLU];
991010499 // call register from main
991110500 stack[base + 2LLU] = base;
9912- stack[base + 3LLU] = 660LLU;
10501+ stack[base + 3LLU] = 701LLU;
991310502 // arguments for call to register
991410503 stack[base + 5LLU] = 1LLU;
991510504 stack[base + 6LLU] = 1LLU;
@@ -9921,13 +10510,13 @@
992110510 label = 2LLU; // register
992210511 break;
992310512 }
9924- case 660LLU: // return from register to main
10513+ case 701LLU: // return from register to main
992510514 {
992610515 // copy back results provided by call to register
992710516 stack[base + 1/*defcount*/] = stack[base + 4LLU];
992810517 // call register from main
992910518 stack[base + 2LLU] = base;
9930- stack[base + 3LLU] = 661LLU;
10519+ stack[base + 3LLU] = 702LLU;
993110520 // arguments for call to register
993210521 stack[base + 5LLU] = 1LLU;
993310522 stack[base + 6LLU] = 2LLU;
@@ -9939,494 +10528,610 @@
993910528 label = 2LLU; // register
994010529 break;
994110530 }
9942- case 661LLU: // return from register to main
10531+ case 702LLU: // return from register to main
994310532 {
994410533 // copy back results provided by call to register
994510534 stack[base + 1/*defcount*/] = stack[base + 4LLU];
9946-//#define lookahead 2
9947-//#define variant 3
9948-//#define content 4
9949-//#define label 5
9950- stack[base + 5/*label*/] = 1;
9951-//#define runningx 6
9952- stack[base + 6/*runningx*/] = 1;
10535+//#define typedefs 2
10536+ stack[base + 2/*typedefs*/] = 0;
10537+//#define lookahead 3
10538+//#define variant 4
10539+//#define content 5
10540+//#define label 6
10541+ stack[base + 6/*label*/] = 1;
10542+//#define runningx 7
10543+ stack[base + 7/*runningx*/] = 1;
995310544 // call getbyte from main
9954- stack[base + 7LLU] = base;
9955- stack[base + 8LLU] = 662LLU;
10545+ stack[base + 8LLU] = base;
10546+ stack[base + 9LLU] = 703LLU;
995610547 // arguments for call to getbyte
995710548 // set stack-base & callee-address
9958- base += 9LLU;
10549+ base += 10LLU;
995910550 label = 18446744073709551597LLU; // getbyte
996010551 break;
996110552 }
9962- case 662LLU: // return from getbyte to main
10553+ case 703LLU: // return from getbyte to main
996310554 {
996410555 // copy back results provided by call to getbyte
9965- stack[base + 2/*lookahead*/] = stack[base + 9LLU];
9966- label = 663LLU; // start to repeat
10556+ stack[base + 3/*lookahead*/] = stack[base + 10LLU];
10557+ label = 704LLU; // start to repeat
996710558 break;
996810559 }
9969- case 663LLU: // repeat from here
10560+ case 704LLU: // repeat from here
997010561 {
9971- if(!stack[base + 6/*runningx*/])
10562+ if(!stack[base + 7/*runningx*/])
997210563 {
9973- label = 664LLU; // break loop
10564+ label = 705LLU; // break loop
997410565 break;
997510566 }
997610567
997710568 // loop body
997810569 // call parsetoken from main
9979- stack[base + 7LLU] = base;
9980- stack[base + 8LLU] = 665LLU;
10570+ stack[base + 8LLU] = base;
10571+ stack[base + 9LLU] = 706LLU;
998110572 // arguments for call to parsetoken
9982- stack[base + 12LLU] = stack[base + 2/*lookahead*/];
10573+ stack[base + 13LLU] = stack[base + 3/*lookahead*/];
998310574 // set stack-base & callee-address
9984- base += 9LLU;
10575+ base += 10LLU;
998510576 label = 18446744073709551588LLU; // parsetoken
998610577 break;
998710578 }
9988- case 665LLU: // return from parsetoken to main
10579+ case 706LLU: // return from parsetoken to main
998910580 {
999010581 // copy back results provided by call to parsetoken
9991- stack[base + 3/*variant*/] = stack[base + 9LLU];
9992- stack[base + 4/*content*/] = stack[base + 10LLU];
9993- stack[base + 2/*lookahead*/] = stack[base + 11LLU];
10582+ stack[base + 4/*variant*/] = stack[base + 10LLU];
10583+ stack[base + 5/*content*/] = stack[base + 11LLU];
10584+ stack[base + 3/*lookahead*/] = stack[base + 12LLU];
999410585 // call neq from main
9995- stack[base + 7LLU] = base;
9996- stack[base + 8LLU] = 666LLU;
10586+ stack[base + 8LLU] = base;
10587+ stack[base + 9LLU] = 707LLU;
999710588 // arguments for call to neq
9998- stack[base + 10LLU] = 5LLU;
9999- stack[base + 11LLU] = stack[base + 3/*variant*/];
10589+ stack[base + 11LLU] = 5LLU;
10590+ stack[base + 12LLU] = stack[base + 4/*variant*/];
1000010591 // set stack-base & callee-address
10001- base += 9LLU;
10592+ base += 10LLU;
1000210593 label = 18446744073709551602LLU; // neq
1000310594 break;
1000410595 }
10005- case 666LLU: // return from neq to main
10596+ case 707LLU: // return from neq to main
1000610597 {
1000710598 // copy back results provided by call to neq
10008- stack[base + 6/*runningx*/] = stack[base + 9LLU];
10009- if(!stack[base + 6/*runningx*/])
10599+ stack[base + 7/*runningx*/] = stack[base + 10LLU];
10600+ if(!stack[base + 7/*runningx*/])
1001010601 {
10011- label = 667LLU; // jump to alternative
10602+ label = 708LLU; // jump to alternative
1001210603 break;
1001310604 }
1001410605
1001510606 // consequent
10016-//#define issimple 7
10607+//#define issimple 8
1001710608 // call equ from main
10018- stack[base + 8LLU] = base;
10019- stack[base + 9LLU] = 669LLU;
10609+ stack[base + 9LLU] = base;
10610+ stack[base + 10LLU] = 710LLU;
1002010611 // arguments for call to equ
10021- stack[base + 11LLU] = stack[base + 3/*variant*/];
10022- stack[base + 12LLU] = 0LLU;
10612+ stack[base + 12LLU] = stack[base + 4/*variant*/];
10613+ stack[base + 13LLU] = 0LLU;
1002310614 // set stack-base & callee-address
10024- base += 10LLU;
10615+ base += 11LLU;
1002510616 label = 18446744073709551603LLU; // equ
1002610617 break;
1002710618 }
10028- case 669LLU: // return from equ to main
10619+ case 710LLU: // return from equ to main
1002910620 {
1003010621 // copy back results provided by call to equ
10031- stack[base + 7/*issimple*/] = stack[base + 10LLU];
10032-//#define isequal 8
10622+ stack[base + 8/*issimple*/] = stack[base + 11LLU];
10623+//#define isequal 9
1003310624 // call equ from main
10034- stack[base + 9LLU] = base;
10035- stack[base + 10LLU] = 670LLU;
10625+ stack[base + 10LLU] = base;
10626+ stack[base + 11LLU] = 711LLU;
1003610627 // arguments for call to equ
10037- stack[base + 12LLU] = stack[base + 4/*content*/];
10038- stack[base + 13LLU] = 96LLU;
10628+ stack[base + 13LLU] = stack[base + 5/*content*/];
10629+ stack[base + 14LLU] = 96LLU;
1003910630 // set stack-base & callee-address
10040- base += 11LLU;
10631+ base += 12LLU;
1004110632 label = 18446744073709551603LLU; // equ
1004210633 break;
1004310634 }
10044- case 670LLU: // return from equ to main
10635+ case 711LLU: // return from equ to main
1004510636 {
1004610637 // copy back results provided by call to equ
10047- stack[base + 8/*isequal*/] = stack[base + 11LLU];
10638+ stack[base + 9/*isequal*/] = stack[base + 12LLU];
1004810639 // call and from main
10049- stack[base + 9LLU] = base;
10050- stack[base + 10LLU] = 671LLU;
10640+ stack[base + 10LLU] = base;
10641+ stack[base + 11LLU] = 712LLU;
1005110642 // arguments for call to and
10052- stack[base + 12LLU] = stack[base + 7/*issimple*/];
10053- stack[base + 13LLU] = stack[base + 8/*isequal*/];
10643+ stack[base + 13LLU] = stack[base + 8/*issimple*/];
10644+ stack[base + 14LLU] = stack[base + 9/*isequal*/];
1005410645 // set stack-base & callee-address
10055- base += 11LLU;
10646+ base += 12LLU;
1005610647 label = 18446744073709551614LLU; // and
1005710648 break;
1005810649 }
10059- case 671LLU: // return from and to main
10650+ case 712LLU: // return from and to main
1006010651 {
1006110652 // copy back results provided by call to and
10062- stack[base + 8/*isequal*/] = stack[base + 11LLU];
10063- if(!stack[base + 8/*isequal*/])
10653+ stack[base + 9/*isequal*/] = stack[base + 12LLU];
10654+ if(!stack[base + 9/*isequal*/])
1006410655 {
10065- label = 672LLU; // jump to alternative
10656+ label = 713LLU; // jump to alternative
1006610657 break;
1006710658 }
1006810659
1006910660 // consequent
10070- label = 674LLU; // start to repeat
10661+ label = 715LLU; // start to repeat
1007110662 break;
1007210663 }
10073- case 674LLU: // repeat from here
10664+ case 715LLU: // repeat from here
1007410665 {
10075- if(!stack[base + 6/*runningx*/])
10666+ if(!stack[base + 7/*runningx*/])
1007610667 {
10077- label = 675LLU; // break loop
10668+ label = 716LLU; // break loop
1007810669 break;
1007910670 }
1008010671
1008110672 // loop body
1008210673 // call leq from main
10083- stack[base + 9LLU] = base;
10084- stack[base + 10LLU] = 676LLU;
10674+ stack[base + 10LLU] = base;
10675+ stack[base + 11LLU] = 717LLU;
1008510676 // arguments for call to leq
10086- stack[base + 12LLU] = stack[base + 2/*lookahead*/];
10087- stack[base + 13LLU] = 255LLU;
10677+ stack[base + 13LLU] = stack[base + 3/*lookahead*/];
10678+ stack[base + 14LLU] = 255LLU;
1008810679 // set stack-base & callee-address
10089- base += 11LLU;
10680+ base += 12LLU;
1009010681 label = 18446744073709551601LLU; // leq
1009110682 break;
1009210683 }
10093- case 676LLU: // return from leq to main
10684+ case 717LLU: // return from leq to main
1009410685 {
1009510686 // copy back results provided by call to leq
10096- stack[base + 6/*runningx*/] = stack[base + 11LLU];
10097- if(!stack[base + 6/*runningx*/])
10687+ stack[base + 7/*runningx*/] = stack[base + 12LLU];
10688+ if(!stack[base + 7/*runningx*/])
1009810689 {
10099- label = 677LLU; // jump to alternative
10690+ label = 718LLU; // jump to alternative
1010010691 break;
1010110692 }
1010210693
1010310694 // consequent
1010410695 // call neq from main
10105- stack[base + 9LLU] = base;
10106- stack[base + 10LLU] = 679LLU;
10696+ stack[base + 10LLU] = base;
10697+ stack[base + 11LLU] = 720LLU;
1010710698 // arguments for call to neq
10108- stack[base + 12LLU] = stack[base + 2/*lookahead*/];
10109- stack[base + 13LLU] = 96LLU;
10699+ stack[base + 13LLU] = stack[base + 3/*lookahead*/];
10700+ stack[base + 14LLU] = 96LLU;
1011010701 // set stack-base & callee-address
10111- base += 11LLU;
10702+ base += 12LLU;
1011210703 label = 18446744073709551602LLU; // neq
1011310704 break;
1011410705 }
10115- case 679LLU: // return from neq to main
10706+ case 720LLU: // return from neq to main
1011610707 {
1011710708 // copy back results provided by call to neq
10118- stack[base + 6/*runningx*/] = stack[base + 11LLU];
10119- if(!stack[base + 6/*runningx*/])
10709+ stack[base + 7/*runningx*/] = stack[base + 12LLU];
10710+ if(!stack[base + 7/*runningx*/])
1012010711 {
10121- label = 680LLU; // jump to alternative
10712+ label = 721LLU; // jump to alternative
1012210713 break;
1012310714 }
1012410715
1012510716 // consequent
1012610717 // call printbyte from main
10127- stack[base + 9LLU] = base;
10128- stack[base + 10LLU] = 682LLU;
10718+ stack[base + 10LLU] = base;
10719+ stack[base + 11LLU] = 723LLU;
1012910720 // arguments for call to printbyte
10130- stack[base + 11LLU] = stack[base + 2/*lookahead*/];
10721+ stack[base + 12LLU] = stack[base + 3/*lookahead*/];
1013110722 // set stack-base & callee-address
10132- base += 11LLU;
10723+ base += 12LLU;
1013310724 label = 18446744073709551596LLU; // printbyte
1013410725 break;
1013510726 }
10136- case 682LLU: // return from printbyte to main
10727+ case 723LLU: // return from printbyte to main
1013710728 {
1013810729 // call getbyte from main
10139- stack[base + 9LLU] = base;
10140- stack[base + 10LLU] = 683LLU;
10730+ stack[base + 10LLU] = base;
10731+ stack[base + 11LLU] = 724LLU;
1014110732 // arguments for call to getbyte
1014210733 // set stack-base & callee-address
10143- base += 11LLU;
10734+ base += 12LLU;
1014410735 label = 18446744073709551597LLU; // getbyte
1014510736 break;
1014610737 }
10147- case 683LLU: // return from getbyte to main
10738+ case 724LLU: // return from getbyte to main
1014810739 {
1014910740 // copy back results provided by call to getbyte
10150- stack[base + 2/*lookahead*/] = stack[base + 11LLU];
10151- label = 681LLU; // consequent complete
10741+ stack[base + 3/*lookahead*/] = stack[base + 12LLU];
10742+ label = 722LLU; // consequent complete
1015210743 break;
1015310744 }
10154- case 680LLU: // alternative
10745+ case 721LLU: // alternative
1015510746 {
10156- label = 681LLU; // alternative complete
10747+ label = 722LLU; // alternative complete
1015710748 break;
1015810749 }
10159- case 681LLU: // completed if-then-else
10750+ case 722LLU: // completed if-then-else
1016010751 {
10161- label = 678LLU; // consequent complete
10752+ label = 719LLU; // consequent complete
1016210753 break;
1016310754 }
10164- case 677LLU: // alternative
10755+ case 718LLU: // alternative
1016510756 {
10166- label = 678LLU; // alternative complete
10757+ label = 719LLU; // alternative complete
1016710758 break;
1016810759 }
10169- case 678LLU: // completed if-then-else
10760+ case 719LLU: // completed if-then-else
1017010761 {
10171- label = 674LLU; // repeat
10762+ label = 715LLU; // repeat
1017210763 break;
1017310764 }
10174- case 675LLU: // loop finished
10765+ case 716LLU: // loop finished
1017510766 {
10176- stack[base + 6/*runningx*/] = 1;
10767+ stack[base + 7/*runningx*/] = 1;
1017710768 // call getbyte from main
10178- stack[base + 9LLU] = base;
10179- stack[base + 10LLU] = 684LLU;
10769+ stack[base + 10LLU] = base;
10770+ stack[base + 11LLU] = 725LLU;
1018010771 // arguments for call to getbyte
1018110772 // set stack-base & callee-address
10182- base += 11LLU;
10773+ base += 12LLU;
1018310774 label = 18446744073709551597LLU; // getbyte
1018410775 break;
1018510776 }
10186- case 684LLU: // return from getbyte to main
10777+ case 725LLU: // return from getbyte to main
1018710778 {
1018810779 // copy back results provided by call to getbyte
10189- stack[base + 2/*lookahead*/] = stack[base + 11LLU];
10190- label = 673LLU; // consequent complete
10780+ stack[base + 3/*lookahead*/] = stack[base + 12LLU];
10781+ label = 714LLU; // consequent complete
1019110782 break;
1019210783 }
10193- case 672LLU: // alternative
10784+ case 713LLU: // alternative
1019410785 {
1019510786 // call equ from main
10196- stack[base + 9LLU] = base;
10197- stack[base + 10LLU] = 685LLU;
10787+ stack[base + 10LLU] = base;
10788+ stack[base + 11LLU] = 726LLU;
1019810789 // arguments for call to equ
10199- stack[base + 12LLU] = 1LLU;
10200- stack[base + 13LLU] = stack[base + 3/*variant*/];
10790+ stack[base + 13LLU] = 1LLU;
10791+ stack[base + 14LLU] = stack[base + 4/*variant*/];
1020110792 // set stack-base & callee-address
10202- base += 11LLU;
10793+ base += 12LLU;
1020310794 label = 18446744073709551603LLU; // equ
1020410795 break;
1020510796 }
10206- case 685LLU: // return from equ to main
10797+ case 726LLU: // return from equ to main
1020710798 {
1020810799 // copy back results provided by call to equ
10209- stack[base + 8/*isequal*/] = stack[base + 11LLU];
10210- if(!stack[base + 8/*isequal*/])
10800+ stack[base + 9/*isequal*/] = stack[base + 12LLU];
10801+ if(!stack[base + 9/*isequal*/])
1021110802 {
10212- label = 686LLU; // jump to alternative
10803+ label = 727LLU; // jump to alternative
1021310804 break;
1021410805 }
1021510806
1021610807 // consequent
1021710808 // call procfn from main
10218- stack[base + 9LLU] = base;
10219- stack[base + 10LLU] = 688LLU;
10809+ stack[base + 10LLU] = base;
10810+ stack[base + 11LLU] = 729LLU;
1022010811 // arguments for call to procfn
10221- stack[base + 16LLU] = stack[base + 2/*lookahead*/];
10222- stack[base + 17LLU] = stack[base + 3/*variant*/];
10223- stack[base + 18LLU] = stack[base + 4/*content*/];
10224- stack[base + 19LLU] = stack[base + 5/*label*/];
10225- stack[base + 20LLU] = stack[base + 1/*defcount*/];
10226- stack[base + 21LLU] = 0LLU;
10812+ stack[base + 17LLU] = stack[base + 3/*lookahead*/];
10813+ stack[base + 18LLU] = stack[base + 4/*variant*/];
10814+ stack[base + 19LLU] = stack[base + 5/*content*/];
10815+ stack[base + 20LLU] = stack[base + 6/*label*/];
10816+ stack[base + 21LLU] = stack[base + 1/*defcount*/];
10817+ stack[base + 22LLU] = 0LLU;
1022710818 // set stack-base & callee-address
10228- base += 11LLU;
10229- label = 561LLU; // procfn
10819+ base += 12LLU;
10820+ label = 602LLU; // procfn
1023010821 break;
1023110822 }
10232- case 688LLU: // return from procfn to main
10823+ case 729LLU: // return from procfn to main
1023310824 {
1023410825 // copy back results provided by call to procfn
10235- stack[base + 2/*lookahead*/] = stack[base + 11LLU];
10236- stack[base + 3/*variant*/] = stack[base + 12LLU];
10237- stack[base + 4/*content*/] = stack[base + 13LLU];
10238- stack[base + 5/*label*/] = stack[base + 14LLU];
10239- stack[base + 1/*defcount*/] = stack[base + 15LLU];
10240- label = 687LLU; // consequent complete
10826+ stack[base + 3/*lookahead*/] = stack[base + 12LLU];
10827+ stack[base + 4/*variant*/] = stack[base + 13LLU];
10828+ stack[base + 5/*content*/] = stack[base + 14LLU];
10829+ stack[base + 6/*label*/] = stack[base + 15LLU];
10830+ stack[base + 1/*defcount*/] = stack[base + 16LLU];
10831+ label = 728LLU; // consequent complete
1024110832 break;
1024210833 }
10243- case 686LLU: // alternative
10834+ case 727LLU: // alternative
1024410835 {
1024510836 // call equ from main
10246- stack[base + 9LLU] = base;
10247- stack[base + 10LLU] = 689LLU;
10837+ stack[base + 10LLU] = base;
10838+ stack[base + 11LLU] = 730LLU;
1024810839 // arguments for call to equ
10249- stack[base + 12LLU] = 4LLU;
10250- stack[base + 13LLU] = stack[base + 3/*variant*/];
10840+ stack[base + 13LLU] = 4LLU;
10841+ stack[base + 14LLU] = stack[base + 4/*variant*/];
1025110842 // set stack-base & callee-address
10252- base += 11LLU;
10843+ base += 12LLU;
1025310844 label = 18446744073709551603LLU; // equ
1025410845 break;
1025510846 }
10256- case 689LLU: // return from equ to main
10847+ case 730LLU: // return from equ to main
1025710848 {
1025810849 // copy back results provided by call to equ
10259- stack[base + 8/*isequal*/] = stack[base + 11LLU];
10260- if(!stack[base + 8/*isequal*/])
10850+ stack[base + 9/*isequal*/] = stack[base + 12LLU];
10851+ if(!stack[base + 9/*isequal*/])
1026110852 {
10262- label = 690LLU; // jump to alternative
10853+ label = 731LLU; // jump to alternative
1026310854 break;
1026410855 }
1026510856
1026610857 // consequent
1026710858 // call equ from main
10268- stack[base + 9LLU] = base;
10269- stack[base + 10LLU] = 692LLU;
10859+ stack[base + 10LLU] = base;
10860+ stack[base + 11LLU] = 733LLU;
1027010861 // arguments for call to equ
10271- stack[base + 12LLU] = 819787073576763392LLU; // rec
10272- stack[base + 13LLU] = stack[base + 4/*content*/];
10862+ stack[base + 13LLU] = 819787073576763392LLU; // rec
10863+ stack[base + 14LLU] = stack[base + 5/*content*/];
1027310864 // set stack-base & callee-address
10274- base += 11LLU;
10865+ base += 12LLU;
1027510866 label = 18446744073709551603LLU; // equ
1027610867 break;
1027710868 }
10278- case 692LLU: // return from equ to main
10869+ case 733LLU: // return from equ to main
1027910870 {
1028010871 // copy back results provided by call to equ
10281- stack[base + 8/*isequal*/] = stack[base + 11LLU];
10282- if(!stack[base + 8/*isequal*/])
10872+ stack[base + 9/*isequal*/] = stack[base + 12LLU];
10873+ if(!stack[base + 9/*isequal*/])
1028310874 {
10284- label = 693LLU; // jump to alternative
10875+ label = 734LLU; // jump to alternative
1028510876 break;
1028610877 }
1028710878
1028810879 // consequent
1028910880 // call parsetoken from main
10290- stack[base + 9LLU] = base;
10291- stack[base + 10LLU] = 695LLU;
10881+ stack[base + 10LLU] = base;
10882+ stack[base + 11LLU] = 736LLU;
1029210883 // arguments for call to parsetoken
10293- stack[base + 14LLU] = stack[base + 2/*lookahead*/];
10884+ stack[base + 15LLU] = stack[base + 3/*lookahead*/];
1029410885 // set stack-base & callee-address
10295- base += 11LLU;
10886+ base += 12LLU;
1029610887 label = 18446744073709551588LLU; // parsetoken
1029710888 break;
1029810889 }
10299- case 695LLU: // return from parsetoken to main
10890+ case 736LLU: // return from parsetoken to main
1030010891 {
1030110892 // copy back results provided by call to parsetoken
10302- stack[base + 3/*variant*/] = stack[base + 11LLU];
10303- stack[base + 4/*content*/] = stack[base + 12LLU];
10304- stack[base + 2/*lookahead*/] = stack[base + 13LLU];
10893+ stack[base + 4/*variant*/] = stack[base + 12LLU];
10894+ stack[base + 5/*content*/] = stack[base + 13LLU];
10895+ stack[base + 3/*lookahead*/] = stack[base + 14LLU];
10896+ // call equ from main
10897+ stack[base + 10LLU] = base;
10898+ stack[base + 11LLU] = 737LLU;
10899+ // arguments for call to equ
10900+ stack[base + 13LLU] = stack[base + 5/*content*/];
10901+ stack[base + 14LLU] = 566536285473210368LLU; // data
10902+ // set stack-base & callee-address
10903+ base += 12LLU;
10904+ label = 18446744073709551603LLU; // equ
10905+ break;
10906+ }
10907+ case 737LLU: // return from equ to main
10908+ {
10909+ // copy back results provided by call to equ
10910+ stack[base + 9/*isequal*/] = stack[base + 12LLU];
10911+ if(!stack[base + 9/*isequal*/])
10912+ {
10913+ label = 738LLU; // jump to alternative
10914+ break;
10915+ }
10916+
10917+ // consequent
10918+ // call procdata from main
10919+ stack[base + 10LLU] = base;
10920+ stack[base + 11LLU] = 740LLU;
10921+ // arguments for call to procdata
10922+ stack[base + 18LLU] = stack[base + 2/*typedefs*/];
10923+ stack[base + 19LLU] = stack[base + 3/*lookahead*/];
10924+ stack[base + 20LLU] = stack[base + 4/*variant*/];
10925+ stack[base + 21LLU] = stack[base + 5/*content*/];
10926+ stack[base + 22LLU] = stack[base + 6/*label*/];
10927+ stack[base + 23LLU] = stack[base + 1/*defcount*/];
10928+ stack[base + 24LLU] = 1LLU;
10929+ // set stack-base & callee-address
10930+ base += 12LLU;
10931+ label = 84LLU; // procdata
10932+ break;
10933+ }
10934+ case 740LLU: // return from procdata to main
10935+ {
10936+ // copy back results provided by call to procdata
10937+ stack[base + 2/*typedefs*/] = stack[base + 12LLU];
10938+ stack[base + 3/*lookahead*/] = stack[base + 13LLU];
10939+ stack[base + 4/*variant*/] = stack[base + 14LLU];
10940+ stack[base + 5/*content*/] = stack[base + 15LLU];
10941+ stack[base + 6/*label*/] = stack[base + 16LLU];
10942+ stack[base + 1/*defcount*/] = stack[base + 17LLU];
10943+ label = 739LLU; // consequent complete
10944+ break;
10945+ }
10946+ case 738LLU: // alternative
10947+ {
1030510948 // call procfn from main
10306- stack[base + 9LLU] = base;
10307- stack[base + 10LLU] = 696LLU;
10949+ stack[base + 10LLU] = base;
10950+ stack[base + 11LLU] = 741LLU;
1030810951 // arguments for call to procfn
10309- stack[base + 16LLU] = stack[base + 2/*lookahead*/];
10310- stack[base + 17LLU] = stack[base + 3/*variant*/];
10311- stack[base + 18LLU] = stack[base + 4/*content*/];
10312- stack[base + 19LLU] = stack[base + 5/*label*/];
10313- stack[base + 20LLU] = stack[base + 1/*defcount*/];
10314- stack[base + 21LLU] = 1LLU;
10952+ stack[base + 17LLU] = stack[base + 3/*lookahead*/];
10953+ stack[base + 18LLU] = stack[base + 4/*variant*/];
10954+ stack[base + 19LLU] = stack[base + 5/*content*/];
10955+ stack[base + 20LLU] = stack[base + 6/*label*/];
10956+ stack[base + 21LLU] = stack[base + 1/*defcount*/];
10957+ stack[base + 22LLU] = 1LLU;
1031510958 // set stack-base & callee-address
10316- base += 11LLU;
10317- label = 561LLU; // procfn
10959+ base += 12LLU;
10960+ label = 602LLU; // procfn
1031810961 break;
1031910962 }
10320- case 696LLU: // return from procfn to main
10963+ case 741LLU: // return from procfn to main
1032110964 {
1032210965 // copy back results provided by call to procfn
10323- stack[base + 2/*lookahead*/] = stack[base + 11LLU];
10324- stack[base + 3/*variant*/] = stack[base + 12LLU];
10325- stack[base + 4/*content*/] = stack[base + 13LLU];
10326- stack[base + 5/*label*/] = stack[base + 14LLU];
10327- stack[base + 1/*defcount*/] = stack[base + 15LLU];
10328- label = 694LLU; // consequent complete
10966+ stack[base + 3/*lookahead*/] = stack[base + 12LLU];
10967+ stack[base + 4/*variant*/] = stack[base + 13LLU];
10968+ stack[base + 5/*content*/] = stack[base + 14LLU];
10969+ stack[base + 6/*label*/] = stack[base + 15LLU];
10970+ stack[base + 1/*defcount*/] = stack[base + 16LLU];
10971+ label = 739LLU; // alternative complete
1032910972 break;
1033010973 }
10331- case 693LLU: // alternative
10974+ case 739LLU: // completed if-then-else
1033210975 {
10976+ label = 735LLU; // consequent complete
10977+ break;
10978+ }
10979+ case 734LLU: // alternative
10980+ {
10981+ // call equ from main
10982+ stack[base + 10LLU] = base;
10983+ stack[base + 11LLU] = 742LLU;
10984+ // arguments for call to equ
10985+ stack[base + 13LLU] = stack[base + 5/*content*/];
10986+ stack[base + 14LLU] = 566536285473210368LLU; // data
10987+ // set stack-base & callee-address
10988+ base += 12LLU;
10989+ label = 18446744073709551603LLU; // equ
10990+ break;
10991+ }
10992+ case 742LLU: // return from equ to main
10993+ {
10994+ // copy back results provided by call to equ
10995+ stack[base + 9/*isequal*/] = stack[base + 12LLU];
10996+ if(!stack[base + 9/*isequal*/])
10997+ {
10998+ label = 743LLU; // jump to alternative
10999+ break;
11000+ }
11001+
11002+ // consequent
11003+ // call procdata from main
11004+ stack[base + 10LLU] = base;
11005+ stack[base + 11LLU] = 745LLU;
11006+ // arguments for call to procdata
11007+ stack[base + 18LLU] = stack[base + 2/*typedefs*/];
11008+ stack[base + 19LLU] = stack[base + 3/*lookahead*/];
11009+ stack[base + 20LLU] = stack[base + 4/*variant*/];
11010+ stack[base + 21LLU] = stack[base + 5/*content*/];
11011+ stack[base + 22LLU] = stack[base + 6/*label*/];
11012+ stack[base + 23LLU] = stack[base + 1/*defcount*/];
11013+ stack[base + 24LLU] = 0LLU;
11014+ // set stack-base & callee-address
11015+ base += 12LLU;
11016+ label = 84LLU; // procdata
11017+ break;
11018+ }
11019+ case 745LLU: // return from procdata to main
11020+ {
11021+ // copy back results provided by call to procdata
11022+ stack[base + 2/*typedefs*/] = stack[base + 12LLU];
11023+ stack[base + 3/*lookahead*/] = stack[base + 13LLU];
11024+ stack[base + 4/*variant*/] = stack[base + 14LLU];
11025+ stack[base + 5/*content*/] = stack[base + 15LLU];
11026+ stack[base + 6/*label*/] = stack[base + 16LLU];
11027+ stack[base + 1/*defcount*/] = stack[base + 17LLU];
11028+ label = 744LLU; // consequent complete
11029+ break;
11030+ }
11031+ case 743LLU: // alternative
11032+ {
1033311033 fprintf(stderr, "%s", "unexpected token ");
1033411034 // call reporttok from main
10335- stack[base + 9LLU] = base;
10336- stack[base + 10LLU] = 697LLU;
11035+ stack[base + 10LLU] = base;
11036+ stack[base + 11LLU] = 746LLU;
1033711037 // arguments for call to reporttok
10338- stack[base + 11LLU] = stack[base + 3/*variant*/];
10339- stack[base + 12LLU] = stack[base + 4/*content*/];
11038+ stack[base + 12LLU] = stack[base + 4/*variant*/];
11039+ stack[base + 13LLU] = stack[base + 5/*content*/];
1034011040 // set stack-base & callee-address
10341- base += 11LLU;
11041+ base += 12LLU;
1034211042 label = 18446744073709551586LLU; // reporttok
1034311043 break;
1034411044 }
10345- case 697LLU: // return from reporttok to main
11045+ case 746LLU: // return from reporttok to main
1034611046 {
1034711047 fprintf(stderr, "%s", ", variant ");
1034811048 // call reportnr from main
10349- stack[base + 9LLU] = base;
10350- stack[base + 10LLU] = 698LLU;
11049+ stack[base + 10LLU] = base;
11050+ stack[base + 11LLU] = 747LLU;
1035111051 // arguments for call to reportnr
10352- stack[base + 11LLU] = stack[base + 3/*variant*/];
11052+ stack[base + 12LLU] = stack[base + 4/*variant*/];
1035311053 // set stack-base & callee-address
10354- base += 11LLU;
11054+ base += 12LLU;
1035511055 label = 18446744073709551593LLU; // reportnr
1035611056 break;
1035711057 }
10358- case 698LLU: // return from reportnr to main
11058+ case 747LLU: // return from reportnr to main
1035911059 {
1036011060 fprintf(stderr, "%s", "\n");
1036111061 exit(-1);
10362- label = 694LLU; // alternative complete
11062+ label = 744LLU; // alternative complete
1036311063 break;
1036411064 }
10365- case 694LLU: // completed if-then-else
11065+ case 744LLU: // completed if-then-else
1036611066 {
10367- label = 691LLU; // consequent complete
11067+ label = 735LLU; // alternative complete
1036811068 break;
1036911069 }
10370- case 690LLU: // alternative
11070+ case 735LLU: // completed if-then-else
1037111071 {
11072+ label = 732LLU; // consequent complete
11073+ break;
11074+ }
11075+ case 731LLU: // alternative
11076+ {
1037211077 fprintf(stderr, "%s", "unexpected token ");
1037311078 // call reporttok from main
10374- stack[base + 9LLU] = base;
10375- stack[base + 10LLU] = 699LLU;
11079+ stack[base + 10LLU] = base;
11080+ stack[base + 11LLU] = 748LLU;
1037611081 // arguments for call to reporttok
10377- stack[base + 11LLU] = stack[base + 3/*variant*/];
10378- stack[base + 12LLU] = stack[base + 4/*content*/];
11082+ stack[base + 12LLU] = stack[base + 4/*variant*/];
11083+ stack[base + 13LLU] = stack[base + 5/*content*/];
1037911084 // set stack-base & callee-address
10380- base += 11LLU;
11085+ base += 12LLU;
1038111086 label = 18446744073709551586LLU; // reporttok
1038211087 break;
1038311088 }
10384- case 699LLU: // return from reporttok to main
11089+ case 748LLU: // return from reporttok to main
1038511090 {
1038611091 fprintf(stderr, "%s", ", variant ");
1038711092 // call reportnr from main
10388- stack[base + 9LLU] = base;
10389- stack[base + 10LLU] = 700LLU;
11093+ stack[base + 10LLU] = base;
11094+ stack[base + 11LLU] = 749LLU;
1039011095 // arguments for call to reportnr
10391- stack[base + 11LLU] = stack[base + 3/*variant*/];
11096+ stack[base + 12LLU] = stack[base + 4/*variant*/];
1039211097 // set stack-base & callee-address
10393- base += 11LLU;
11098+ base += 12LLU;
1039411099 label = 18446744073709551593LLU; // reportnr
1039511100 break;
1039611101 }
10397- case 700LLU: // return from reportnr to main
11102+ case 749LLU: // return from reportnr to main
1039811103 {
1039911104 fprintf(stderr, "%s", "\n");
1040011105 exit(-1);
10401- label = 691LLU; // alternative complete
11106+ label = 732LLU; // alternative complete
1040211107 break;
1040311108 }
10404- case 691LLU: // completed if-then-else
11109+ case 732LLU: // completed if-then-else
1040511110 {
10406- label = 687LLU; // alternative complete
11111+ label = 728LLU; // alternative complete
1040711112 break;
1040811113 }
10409- case 687LLU: // completed if-then-else
11114+ case 728LLU: // completed if-then-else
1041011115 {
10411- label = 673LLU; // alternative complete
11116+ label = 714LLU; // alternative complete
1041211117 break;
1041311118 }
10414- case 673LLU: // completed if-then-else
11119+ case 714LLU: // completed if-then-else
1041511120 {
10416- label = 668LLU; // consequent complete
11121+ label = 709LLU; // consequent complete
1041711122 break;
1041811123 }
10419- case 667LLU: // alternative
11124+ case 708LLU: // alternative
1042011125 {
10421- label = 668LLU; // alternative complete
11126+ label = 709LLU; // alternative complete
1042211127 break;
1042311128 }
10424- case 668LLU: // completed if-then-else
11129+ case 709LLU: // completed if-then-else
1042511130 {
10426- label = 663LLU; // repeat
11131+ label = 704LLU; // repeat
1042711132 break;
1042811133 }
10429- case 664LLU: // loop finished
11134+ case 705LLU: // loop finished
1043011135 {
1043111136 {
1043211137 uint64_t i;
@@ -10458,6 +11163,184 @@
1045811163 printf("\n");
1045911164 }
1046011165
11166+ label = 750LLU; // start to repeat
11167+ break;
11168+ }
11169+ case 750LLU: // repeat from here
11170+ {
11171+ if(!stack[base + 2/*typedefs*/])
11172+ {
11173+ label = 751LLU; // break loop
11174+ break;
11175+ }
11176+
11177+ // loop body
11178+//#define typedef 8
11179+ struct listnode *list = (struct listnode *)stack[base + 2/*typedefs*/];
11180+ if(!list)
11181+ {
11182+ label = 752LLU; // jump to alternative
11183+ break;
11184+ }
11185+
11186+ // consequent
11187+ struct listnode *next = list->next;
11188+ stack[base + 8/*typedef*/] = list->data;
11189+ free(list);
11190+ stack[base + 2/*typedefs*/] = (uint64_t)next;
11191+//#define defid 9
11192+ stack[base + 9/*defid*/] = ((uint64_t *)(stack[base + 8/*typedef*/]))[0];
11193+ fprintf(stderr, "%s", "releasing definition of ");
11194+ // call reportid from main
11195+ stack[base + 10LLU] = base;
11196+ stack[base + 11LLU] = 754LLU;
11197+ // arguments for call to reportid
11198+ stack[base + 12LLU] = stack[base + 9/*defid*/];
11199+ // set stack-base & callee-address
11200+ base += 12LLU;
11201+ label = 18446744073709551590LLU; // reportid
11202+ break;
11203+ }
11204+ case 754LLU: // return from reportid to main
11205+ {
11206+ fprintf(stderr, "%s", " {");
11207+//#define variants 10
11208+ stack[base + 10/*variants*/] = ((uint64_t *)(stack[base + 8/*typedef*/]))[1];
11209+ label = 755LLU; // start to repeat
11210+ break;
11211+ }
11212+ case 755LLU: // repeat from here
11213+ {
11214+ if(!stack[base + 10/*variants*/])
11215+ {
11216+ label = 756LLU; // break loop
11217+ break;
11218+ }
11219+
11220+ // loop body
11221+//#define constr 11
11222+ struct listnode *list = (struct listnode *)stack[base + 10/*variants*/];
11223+ if(!list)
11224+ {
11225+ label = 757LLU; // jump to alternative
11226+ break;
11227+ }
11228+
11229+ // consequent
11230+ struct listnode *next = list->next;
11231+ stack[base + 11/*constr*/] = list->data;
11232+ free(list);
11233+ stack[base + 10/*variants*/] = (uint64_t)next;
11234+//#define constrid 12
11235+ stack[base + 12/*constrid*/] = ((uint64_t *)(stack[base + 11/*constr*/]))[0];
11236+ fprintf(stderr, "%s", " ");
11237+ // call reportid from main
11238+ stack[base + 13LLU] = base;
11239+ stack[base + 14LLU] = 759LLU;
11240+ // arguments for call to reportid
11241+ stack[base + 15LLU] = stack[base + 12/*constrid*/];
11242+ // set stack-base & callee-address
11243+ base += 15LLU;
11244+ label = 18446744073709551590LLU; // reportid
11245+ break;
11246+ }
11247+ case 759LLU: // return from reportid to main
11248+ {
11249+ fprintf(stderr, "%s", " {");
11250+//#define typeids 13
11251+ stack[base + 13/*typeids*/] = ((uint64_t *)(stack[base + 11/*constr*/]))[1];
11252+ label = 760LLU; // start to repeat
11253+ break;
11254+ }
11255+ case 760LLU: // repeat from here
11256+ {
11257+ if(!stack[base + 13/*typeids*/])
11258+ {
11259+ label = 761LLU; // break loop
11260+ break;
11261+ }
11262+
11263+ // loop body
11264+//#define ti 14
11265+ struct listnode *list = (struct listnode *)stack[base + 13/*typeids*/];
11266+ if(!list)
11267+ {
11268+ label = 762LLU; // jump to alternative
11269+ break;
11270+ }
11271+
11272+ // consequent
11273+ struct listnode *next = list->next;
11274+ stack[base + 14/*ti*/] = list->data;
11275+ free(list);
11276+ stack[base + 13/*typeids*/] = (uint64_t)next;
11277+//#define id 15
11278+ stack[base + 15/*id*/] = ((uint64_t *)(stack[base + 14/*ti*/]))[1];
11279+ fprintf(stderr, "%s", " ");
11280+ // call reportid from main
11281+ stack[base + 16LLU] = base;
11282+ stack[base + 17LLU] = 764LLU;
11283+ // arguments for call to reportid
11284+ stack[base + 18LLU] = stack[base + 15/*id*/];
11285+ // set stack-base & callee-address
11286+ base += 18LLU;
11287+ label = 18446744073709551590LLU; // reportid
11288+ break;
11289+ }
11290+ case 764LLU: // return from reportid to main
11291+ {
11292+ free((uint64_t *)stack[base + 14/*ti*/]);
11293+ label = 763LLU; // consequent complete
11294+ break;
11295+ }
11296+ case 762LLU: // alternative
11297+ {
11298+ label = 763LLU; // alternative complete
11299+ break;
11300+ }
11301+ case 763LLU: // completed if-then-else
11302+ {
11303+ fprintf(stderr, "%s", ";");
11304+ label = 760LLU; // repeat
11305+ break;
11306+ }
11307+ case 761LLU: // loop finished
11308+ {
11309+ fprintf(stderr, "%s", " };");
11310+ free((uint64_t *)stack[base + 11/*constr*/]);
11311+ label = 758LLU; // consequent complete
11312+ break;
11313+ }
11314+ case 757LLU: // alternative
11315+ {
11316+ label = 758LLU; // alternative complete
11317+ break;
11318+ }
11319+ case 758LLU: // completed if-then-else
11320+ {
11321+ label = 755LLU; // repeat
11322+ break;
11323+ }
11324+ case 756LLU: // loop finished
11325+ {
11326+ fprintf(stderr, "%s", " };\n");
11327+ free((uint64_t *)stack[base + 8/*typedef*/]);
11328+ label = 753LLU; // consequent complete
11329+ break;
11330+ }
11331+ case 752LLU: // alternative
11332+ {
11333+ label = 753LLU; // alternative complete
11334+ break;
11335+ }
11336+ case 753LLU: // completed if-then-else
11337+ {
11338+ label = 750LLU; // repeat
11339+ break;
11340+ }
11341+ case 751LLU: // loop finished
11342+ {
11343+ fprintf(stderr, "%s", "\n");
1046111344 // return from main
1046211345 label = stack[base - 1];
1046311346 base = stack[base - 2];
@@ -10474,10 +11357,10 @@
1047411357
1047511358 int main()
1047611359 {
10477- uint64_t *memory = (uint64_t *)calloc(57LLU + 1, sizeof(uint64_t));
10478- memory[57LLU] = 9876543210LLU; // overflow-marker
11360+ uint64_t *memory = (uint64_t *)calloc(58LLU + 1, sizeof(uint64_t));
11361+ memory[58LLU] = 9876543210LLU; // overflow-marker
1047911362 MAIN(memory);
10480- if(memory[57LLU] != 9876543210LLU)
11363+ if(memory[58LLU] != 9876543210LLU)
1048111364 {
1048211365 fprintf(stderr, "INTERNAL ERROR - OVERFLOW!");
1048311366 exit(-1);
--- trunk/jpl_compiler_pragmatic/compiler.source.c (revision 1015)
+++ trunk/jpl_compiler_pragmatic/compiler.source.c (revision 1016)
@@ -1040,6 +1040,175 @@
10401040 findvar(arg0/*id*/, arg1/*scopes*/, arg2/*scope*/)->(type, index)
10411041 print("stack[base + ") printnr(index) print("/*") printid(arg0/*id*/) print("*/]")
10421042 }
1043+ 2 parsetype 1 // (lookahead)->(type, lookahead)
1044+ {
1045+ new lookahead
1046+ lookahead = arg0
1047+ new variant
1048+ new content
1049+ new isequal
1050+ parsetoken(lookahead)->(variant, content, lookahead)
1051+ //reporttok(variant, content)
1052+ //report("\n")
1053+ equ(variant, 4/*IDENTIFIER*/)->(isequal)
1054+ if(isequal)
1055+ {
1056+ // TODO
1057+ }
1058+ else
1059+ {
1060+ report("parsing type: expected identifier but found ")
1061+ reporttok(variant, content)
1062+ report("\n")
1063+ error
1064+ }
1065+
1066+ res0 = 0 // XXX DUMMY XXX
1067+ res1 = lookahead // pass-through lookahead (until further parsetoken calls implemented)
1068+ }
1069+ 6 procdata 7 // (typedefs, lookahead, variant, content, label, defcount, recursive)->(typedefs, lookahead, variant, content, label, defcount)
1070+ {
1071+ new typedefs
1072+ typedefs = arg0
1073+ new lookahead
1074+ lookahead = arg1
1075+ new variant
1076+ variant = arg2
1077+ new content
1078+ content = arg3
1079+ new label
1080+ label = arg4
1081+ new defcount
1082+ defcount = arg5
1083+ new recursive
1084+ recursive = arg6
1085+
1086+ parsetoken(lookahead)->(variant, content, lookahead)
1087+
1088+ new isname
1089+ equ(variant, 4/*IDENTIFIER*/)->(isname)
1090+ new identifier
1091+ if(isname)
1092+ {
1093+ identifier = content
1094+ }
1095+ else
1096+ {
1097+ report("parsing data expected identifier but found token ")
1098+ reporttok(variant, content)
1099+ report("\n")
1100+ error
1101+ }
1102+
1103+ matchsym('{', lookahead)->(lookahead)
1104+
1105+ new variants
1106+ variants = 0
1107+
1108+ new continue
1109+ continue = 1
1110+
1111+ // e.g. "data test { var { int abc; float def; }; var2 { }; }"
1112+ while(continue)
1113+ {
1114+ skipwscmnt(lookahead)->(lookahead)
1115+ neq(lookahead, '}')->(continue)
1116+ if(continue)
1117+ {
1118+ parsetoken(lookahead)->(variant, content, lookahead)
1119+ //reporttok(variant, content)
1120+ //report("\n")
1121+ equ(variant, 4/*IDENTIFIER*/)->(isname)
1122+ new variant
1123+ if(isname)
1124+ {
1125+ new constr
1126+ tuple constr 2
1127+ constr[0] = content // constructor id
1128+ constr[1] = 0 // list of constructor type-ids
1129+ new typeids
1130+ typeids = 0
1131+
1132+ matchsym('{', lookahead)->(lookahead)
1133+
1134+ while(continue)
1135+ {
1136+ skipwscmnt(lookahead)->(lookahead)
1137+ neq(lookahead, '}')->(continue)
1138+ if(continue)
1139+ {
1140+ new typeid
1141+ tuple typeid 2
1142+ typeid[0] = 0 // type
1143+ typeid[1] = 0 // id
1144+
1145+ new type
1146+ parsetype(lookahead)->(type, lookahead)
1147+ typeid[0] = type
1148+
1149+ parsetoken(lookahead)->(variant, content, lookahead)
1150+ //reporttok(variant, content)
1151+ //report("\n")
1152+ equ(variant, 4/*IDENTIFIER*/)->(isname)
1153+ if(isname)
1154+ {
1155+ typeid[1] = content
1156+ }
1157+ else
1158+ {
1159+ report("parsing data-constructor: expected id but found ")
1160+ reporttok(variant, content)
1161+ report("\n")
1162+ error
1163+ }
1164+
1165+ matchsym(';', lookahead)->(lookahead)
1166+
1167+ push(typeids, typeid)
1168+ }
1169+ else
1170+ {
1171+ }
1172+ }
1173+
1174+ matchsym('}', lookahead)->(lookahead)
1175+
1176+ matchsym(';', lookahead)->(lookahead)
1177+
1178+ constr[1] = typeids
1179+ push(variants, constr)
1180+
1181+ continue = 1
1182+ }
1183+ else
1184+ {
1185+ report("parsing data-definition: expected constructor name but found ")
1186+ reporttok(variant, content)
1187+ report("\n")
1188+ error
1189+ }
1190+ }
1191+ else
1192+ {
1193+ }
1194+ }
1195+
1196+ matchsym('}', lookahead)->(lookahead)
1197+
1198+ new typedef
1199+ tuple typedef 2
1200+ typedef[0] = identifier // constructor id
1201+ typedef[1] = variants
1202+
1203+ push(typedefs, typedef)
1204+
1205+ res0 = typedefs
1206+ res1 = lookahead // pass-through lookahead (until further parsetoken calls implemented)
1207+ res2 = variant
1208+ res3 = content
1209+ res4 = label
1210+ res5 = defcount
1211+ }
10431212 5 proccall 14 // (scopes, scope, calleeid, offset, fnrec, fnid, fnlabel, fnrescount, fnargcount, fnmaxcount, lookahead, variant, content, label)->(fnmaxcount, lookahead, variant, content, label)
10441213 {
10451214 new scopes
@@ -2628,6 +2797,9 @@
26282797 register(1, 1, 0, "listnext", defcount)->(defcount)
26292798 register(1, 2, 0, "idwithnr", defcount)->(defcount)
26302799
2800+ new typedefs
2801+ typedefs = 0
2802+
26312803 new lookahead
26322804 new variant
26332805 new content
@@ -2689,17 +2861,32 @@
26892861 if(isequal)
26902862 {
26912863 parsetoken(lookahead)->(variant, content, lookahead)
2692-
2693- procfn(lookahead, variant, content, label, defcount, 1/*recursive*/)->(lookahead, variant, content, label, defcount)
2864+ equ(content, "data")->(isequal)
2865+ if(isequal)
2866+ {
2867+ procdata(typedefs, lookahead, variant, content, label, defcount, 1/*recursive*/)->(typedefs, lookahead, variant, content, label, defcount)
2868+ }
2869+ else
2870+ {
2871+ procfn(lookahead, variant, content, label, defcount, 1/*recursive*/)->(lookahead, variant, content, label, defcount)
2872+ }
26942873 }
26952874 else
26962875 {
2697- report("unexpected token ")
2698- reporttok(variant, content)
2699- report(", variant ")
2700- reportnr(variant)
2701- report("\n")
2702- error
2876+ equ(content, "data")->(isequal)
2877+ if(isequal)
2878+ {
2879+ procdata(typedefs, lookahead, variant, content, label, defcount, 0/*recursive*/)->(typedefs, lookahead, variant, content, label, defcount)
2880+ }
2881+ else
2882+ {
2883+ report("unexpected token ")
2884+ reporttok(variant, content)
2885+ report(", variant ")
2886+ reportnr(variant)
2887+ report("\n")
2888+ error
2889+ }
27032890 }
27042891 }
27052892 else
@@ -2749,6 +2936,72 @@
27492936 printf("\n");
27502937 }
27512938 `
2939+
2940+ // release typedefs
2941+ while(typedefs)
2942+ {
2943+ new typedef
2944+ if pop(typedefs)->(typedef)
2945+ {
2946+ new defid
2947+ defid = typedef[0]
2948+ report("releasing definition of ")
2949+ reportid(defid)
2950+ report(" {")
2951+
2952+ new variants
2953+ variants = typedef[1]
2954+
2955+ while(variants)
2956+ {
2957+ new constr
2958+ if pop(variants)->(constr)
2959+ {
2960+ new constrid
2961+ constrid = constr[0]
2962+ report(" ")
2963+ reportid(constrid)
2964+ report(" {")
2965+ new typeids
2966+ typeids = constr[1]
2967+ while(typeids)
2968+ {
2969+ new ti
2970+ if pop(typeids)->(ti)
2971+ {
2972+ new id
2973+ id = ti[1]
2974+ report(" ")
2975+ reportid(id)
2976+ free ti
2977+ }
2978+ else
2979+ {
2980+ // done
2981+ }
2982+ report(";")
2983+ }
2984+
2985+ report(" };")
2986+
2987+ free constr
2988+ }
2989+ else
2990+ {
2991+ // done
2992+ }
2993+ }
2994+
2995+ report(" };\n")
2996+
2997+ free typedef
2998+ }
2999+ else
3000+ {
3001+ // done
3002+ }
3003+ }
3004+ report("\n")
27523005 }
27533006 `
27543007 default:
Show on old repository browser