This is gencode.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t1830, "CURRENT-DEFINE-NAME", 19 );
DEFSTATICTSCP( current_2ddefine_2dname_v );
DEFSTRING( t1831, "GLOBAL-LAP-CODE", 15 );
DEFSTATICTSCP( global_2dlap_2dcode_v );
DEFSTRING( t1832, "C-INCLUDE-FILE", 14 );
DEFSTATICTSCP( c_2dinclude_2dfile_v );
DEFSTRING( t1833, "MAIN-PROGRAM-NAME", 17 );
DEFSTATICTSCP( main_2dprogram_2dname_v );
DEFSTRING( t1834, "HEAP-SIZE", 9 );
DEFSTATICTSCP( heap_2dsize_v );
DEFSTRING( t1835, "MODULE-NAME", 11 );
DEFSTATICTSCP( module_2dname_v );
DEFSTRING( t1836, "SCC-VERSION", 11 );
DEFSTATICTSCP( scc_2dversion_v );
DEFSTRING( t1837, "REPORT-ERROR", 12 );
DEFSTATICTSCP( report_2derror_v );
DEFSTRING( t1838, "$DEFINE-GENC", 12 );
DEFSTATICTSCP( _24define_2dgenc_v );
DEFSTRING( t1839, "$IF-GENC", 8 );
DEFSTATICTSCP( _24if_2dgenc_v );
DEFSTRING( t1840, "$LAMBDA-GENC", 12 );
DEFSTATICTSCP( _24lambda_2dgenc_v );
DEFSTRING( t1841, "$SET-GENC", 9 );
DEFSTATICTSCP( _24set_2dgenc_v );
DEFSTRING( t1842, "$CALL-GENC", 10 );
DEFSTATICTSCP( _24call_2dgenc_v );
DEFSTRING( t1843, "SYMBOL-GENC", 11 );
DEFSTATICTSCP( symbol_2dgenc_v );
DEFSTRING( t1844, "WITH-MODULES", 12 );
DEFSTATICTSCP( with_2dmodules_v );
DEFSTRING( t1845, "QUOTE-CONSTANTS", 15 );
DEFSTATICTSCP( quote_2dconstants_v );
DEFSTRING( t1846, "TRUEVALUE", 9 );
DEFSTATICTSCP2( c1774, t1846 );
DEFSTRING( t1847, "EMPTYLIST", 9 );
DEFSTATICTSCP2( c1773, t1847 );
DEFSTRING( t1848, "FALSEVALUE", 10 );
DEFSTATICTSCP2( c1772, t1848 );
DEFSTRING( t1849, "EMPTYSTRING", 11 );
DEFSTATICTSCP2( c1771, t1849 );
DEFSTRING( t1850, "EMPTYVECTOR", 11 );
DEFSTATICTSCP2( c1770, t1850 );
DEFSTRING( t1851, "EMIT-CONSTANT-KLUDGE", 20 );
DEFSTATICTSCP( c1769 );
DEFSTRING( t1852, "CONS", 4 );
DEFSTATICTSCP( c1709 );
DEFSTRING( t1853, "DEFFLOAT", 8 );
DEFSTATICTSCP( c1588 );
DEFSTRING( t1854, "VNAME", 5 );
DEFSTATICTSCP( c1585 );
DEFSTRING( t1855, " )", 2 );
DEFSTATICTSCP2( c1581, t1855 );
DEFSTRING( t1856, "Argument not a CHAR: ~s", 23 );
DEFSTATICTSCP2( c1578, t1856 );
DEFSTRING( t1857, "CHAR->INTEGER", 13 );
DEFSTATICTSCP( c1577 );
DEFSTRING( t1858, "_TSCP( ", 7 );
DEFSTATICTSCP2( c1560, t1858 );
DEFSTRING( t1859, "DEFSTATICTSCP2", 14 );
DEFSTATICTSCP( c1558 );
DEFSTRING( t1860, "U_TX", 4 );
DEFSTATICTSCP( c1549 );
DEFSTRING( t1861, "STRINGTOSYMBOL", 14 );
DEFSTATICTSCP( c1548 );
DEFSTRING( t1862, "Argument is not a STRING: ~s", 28 );
DEFSTATICTSCP2( c1543, t1862 );
DEFSTRING( t1863, "STRING-LENGTH", 13 );
DEFSTATICTSCP( c1542 );
DEFSTRING( t1864, "Argument is not a SYMBOL: ~s", 28 );
DEFSTATICTSCP2( c1537, t1864 );
DEFSTRING( t1865, "SYMBOL->STRING", 14 );
DEFSTATICTSCP( c1536 );
DEFSTRING( t1866, "DEFSTRING", 9 );
DEFSTATICTSCP( c1531 );
DEFSTRING( t1867, "DEFSTATICTSCP", 13 );
DEFSTATICTSCP( c1527 );
DEFSTRING( t1868, "LISTTOVECTOR", 12 );
DEFSTATICTSCP( c1520 );
DEFSTRING( t1869, "SET", 3 );
DEFSTATICTSCP( c1519 );
DEFSTRING( t1870, "EMIT-CONSTANT compile error:", 28 );
DEFSTATICTSCP2( c1517, t1870 );
DEFSTRING( t1871, "ADR", 3 );
DEFSTATICTSCP( c1484 );
DEFSTRING( t1872, "CONSTANTEXP", 11 );
DEFSTATICTSCP( c1483 );
DEFSTATICTSCP( c1432 );
DEFSTRING( t1874, "LOCALS", 6 );
DEFSTATICTSCP( t1873 );
DEFSTATICTSCP( c1431 );
DEFSTRING( t1876, "static void init_constants()", 29 );
DEFSTATICTSCP2( t1875, t1876 );
DEFSTRING( t1878, "LIT", 3 );
DEFSTATICTSCP( t1877 );
DEFSTRING( t1879, "}", 1 );
DEFSTATICTSCP2( c1425, t1879 );
DEFSTRING( t1880, "MAXDISPLAY", 10 );
DEFSTATICTSCP( c1424 );
DEFSTRING( t1881, "__init();", 9 );
DEFSTATICTSCP2( c1422, t1881 );
DEFSTATICTSCP( c1398 );
DEFSTRING( t1883, " char *compiler_version;", 31 );
DEFSTATICTSCP2( t1882, t1883 );
DEFSTATICTSCP( c1397 );
DEFSTRING( t1885,
"static void init_modules( compiler_version )", 45 );
DEFSTATICTSCP2( t1884, t1885 );
DEFSTRING( t1886, "CONSTANT", 8 );
DEFSTATICTSCP( c1386 );
DEFSTATICTSCP( c1378 );
DEFSTRING( t1888, "EXTERNDOUBLEP", 13 );
DEFSTATICTSCP( t1887 );
DEFSTRING( t1890, "DOUBLE", 6 );
DEFSTATICTSCP( t1889 );
DEFSTRING( t1892, "EXTERNFLOATP", 12 );
DEFSTATICTSCP( t1891 );
DEFSTRING( t1894, "FLOAT", 5 );
DEFSTATICTSCP( t1893 );
DEFSTRING( t1896, "EXTERNLONGUNSIGNEDP", 19 );
DEFSTATICTSCP( t1895 );
DEFSTRING( t1898, "LONGUNSIGNED", 12 );
DEFSTATICTSCP( t1897 );
DEFSTRING( t1900, "EXTERNSHORTUNSIGNEDP", 20 );
DEFSTATICTSCP( t1899 );
DEFSTRING( t1902, "SHORTUNSIGNED", 13 );
DEFSTATICTSCP( t1901 );
DEFSTRING( t1904, "EXTERNUNSIGNEDP", 15 );
DEFSTATICTSCP( t1903 );
DEFSTRING( t1906, "UNSIGNED", 8 );
DEFSTATICTSCP( t1905 );
DEFSTRING( t1908, "EXTERNLONGINTP", 14 );
DEFSTATICTSCP( t1907 );
DEFSTRING( t1910, "LONGINT", 7 );
DEFSTATICTSCP( t1909 );
DEFSTRING( t1912, "EXTERNSHORTINTP", 15 );
DEFSTATICTSCP( t1911 );
DEFSTRING( t1914, "SHORTINT", 8 );
DEFSTATICTSCP( t1913 );
DEFSTRING( t1916, "EXTERNINTP", 10 );
DEFSTATICTSCP( t1915 );
DEFSTRING( t1918, "INT", 3 );
DEFSTATICTSCP( t1917 );
DEFSTRING( t1920, "EXTERNCHARP", 11 );
DEFSTATICTSCP( t1919 );
DEFSTRING( t1922, "CHAR", 4 );
DEFSTATICTSCP( t1921 );
DEFSTRING( t1924, "EXTERNTSCPP", 11 );
DEFSTATICTSCP( t1923 );
DEFSTRING( t1926, "TSCP", 4 );
DEFSTATICTSCP( t1925 );
DEFSTRING( t1928, "EXTERNPOINTERP", 14 );
DEFSTATICTSCP( t1927 );
DEFSTRING( t1930, "POINTER", 7 );
DEFSTATICTSCP( t1929 );
DEFSTRING( t1932, "EXTERNVOIDP", 11 );
DEFSTATICTSCP( t1931 );
DEFSTRING( t1934, "VOID", 4 );
DEFSTATICTSCP( t1933 );
DEFSTATICTSCP( c1363 );
DEFSTRING( t1936, "EXTERNDOUBLE", 12 );
DEFSTATICTSCP( t1935 );
DEFSTRING( t1938, "EXTERNFLOAT", 11 );
DEFSTATICTSCP( t1937 );
DEFSTRING( t1940, "EXTERNLONGUNSIGNED", 18 );
DEFSTATICTSCP( t1939 );
DEFSTRING( t1942, "EXTERNSHORTUNSIGNED", 19 );
DEFSTATICTSCP( t1941 );
DEFSTRING( t1944, "EXTERNUNSIGNED", 14 );
DEFSTATICTSCP( t1943 );
DEFSTRING( t1946, "EXTERNLONGINT", 13 );
DEFSTATICTSCP( t1945 );
DEFSTRING( t1948, "EXTERNSHORTINT", 14 );
DEFSTATICTSCP( t1947 );
DEFSTRING( t1950, "EXTERNINT", 9 );
DEFSTATICTSCP( t1949 );
DEFSTRING( t1952, "EXTERNCHAR", 10 );
DEFSTATICTSCP( t1951 );
DEFSTRING( t1954, "EXTERNTSCP", 10 );
DEFSTATICTSCP( t1953 );
DEFSTRING( t1956, "EXTERNPOINTER", 13 );
DEFSTATICTSCP( t1955 );
DEFSTRING( t1957, "MODULE", 6 );
DEFSTATICTSCP( c1352 );
DEFSTATICTSCP( c1348 );
DEFSTRING( t1959, "sc", 2 );
DEFSTATICTSCP2( t1958, t1959 );
DEFSTRING( t1960, "EXTERNTSCP", 10 );
DEFSTATICTSCP( c1340 );
DEFSTRING( t1961, "EXTERNTSCPP", 11 );
DEFSTATICTSCP( c1337 );
DEFSTRING( t1962, "EXTERNAL", 8 );
DEFSTATICTSCP( c1325 );
DEFSTRING( t1963, "NAME", 4 );
DEFSTATICTSCP( c1320 );
DEFSTRING( t1964, "LAMBDA", 6 );
DEFSTATICTSCP( c1317 );
DEFSTRING( t1965, "LEXICAL", 7 );
DEFSTATICTSCP( c1305 );
DEFSTRING( t1966, "PRINTNAME", 9 );
DEFSTATICTSCP( c1297 );
DEFSTRING( t1967, "SYMBOL does not have a value cell", 33 );
DEFSTATICTSCP2( c1294, t1967 );
DEFSTRING( t1968, "TYPE", 4 );
DEFSTATICTSCP( c1291 );
DEFSTRING( t1969, "DISPLAY", 7 );
DEFSTATICTSCP( c1276 );
DEFSTRING( t1970, "PAIR_CAR", 8 );
DEFSTATICTSCP( c1273 );
DEFSTRING( t1971, "DISPLAY", 7 );
DEFSTATICTSCP2( c1272, t1971 );
DEFSTRING( t1972, "SET!", 4 );
DEFSTATICTSCP( c1271 );
DEFSTRING( t1973, "SYMBOL_VALUE", 12 );
DEFSTATICTSCP( c1266 );
DEFSTRING( t1974, "Variable is not bound", 21 );
DEFSTATICTSCP2( c1265, t1974 );
DEFSTRING( t1975, "OPTVARS", 7 );
DEFSTATICTSCP( c1247 );
DEFSTRING( t1976, "TEMPORARY", 9 );
DEFSTATICTSCP( c1241 );
DEFSTRING( t1977, "TEMP", 4 );
DEFSTATICTSCP( c1240 );
DEFSTRING( t1978, "CODE-LABEL", 10 );
DEFSTATICTSCP( c1235 );
DEFSTRING( t1979, "GOTOS", 5 );
DEFSTATICTSCP( c1225 );
DEFSTRING( t1980, "LABEL", 5 );
DEFSTATICTSCP( c1224 );
DEFSTRING( t1981, "USE", 3 );
DEFSTATICTSCP( c1223 );
DEFSTRING( t1982, "L", 1 );
DEFSTATICTSCP( c1222 );
DEFSTRING( t1983, "Illegal use of LAP", 18 );
DEFSTATICTSCP2( c1213, t1983 );
DEFSTRING( t1984, "GENERATE-CODE compiler error", 28 );
DEFSTATICTSCP2( c1212, t1984 );
DEFSTRING( t1985, "$LAP", 4 );
DEFSTATICTSCP( c1211 );
DEFSTRING( t1986, "$DEFINE", 7 );
DEFSTATICTSCP( c1203 );
DEFSTRING( t1987, "$IF", 3 );
DEFSTATICTSCP( c1195 );
DEFSTRING( t1988, "$LAMBDA", 7 );
DEFSTATICTSCP( c1187 );
DEFSTRING( t1989, "$SET", 4 );
DEFSTATICTSCP( c1179 );
DEFSTRING( t1990, "$CALL", 5 );
DEFSTATICTSCP( c1171 );
DEFSTRING( t1991, "main", 4 );
DEFSTATICTSCP2( c1157, t1991 );
DEFSTRING( t1992, "__init", 6 );
DEFSTATICTSCP2( c1156, t1992 );
DEFSTRING( t1993, "Compiler error - display index is not 0", 39 );
DEFSTATICTSCP2( c1154, t1993 );
DEFSTATICTSCP( c1144 );
DEFSTRING( t1995, "}", 1 );
DEFSTATICTSCP2( t1994, t1995 );
DEFSTATICTSCP( c1143 );
DEFSTRING( t1997, "INDENT", 6 );
DEFSTATICTSCP( t1996 );
DEFSTATICTSCP( c1140 );
DEFSTRING( t1999, "SCHEMEEXIT();", 13 );
DEFSTATICTSCP2( t1998, t1999 );
DEFSTRING( t2000, "( CLARGUMENTS( argc, argv ) );", 30 );
DEFSTATICTSCP2( c1139, t2000 );
DEFSTRING( t2001, "Main procedure is not defined", 29 );
DEFSTATICTSCP2( c1138, t2001 );
DEFSTRING( t2002, "__init(){}", 10 );
DEFSTATICTSCP2( c1136, t2002 );
DEFSTATICTSCP( c1133 );
DEFSTRING( t2004, "void", 4 );
DEFSTATICTSCP2( t2003, t2004 );
DEFSTRING( t2006, "RETURN", 6 );
DEFSTATICTSCP( t2005 );
DEFSTRING( t2007, "NO-VALUE", 8 );
DEFSTATICTSCP( c1132 );
DEFSTRING( t2008, " );", 3 );
DEFSTATICTSCP2( c1107, t2008 );
DEFSTRING( t2009, ")", 1 );
DEFSTATICTSCP2( c1106, t2009 );
DEFSTRING( t2010, " SCHEME->C COMPILER ", 20 );
DEFSTATICTSCP2( c1104, t2010 );
DEFSTRING( t2011, "(", 1 );
DEFSTATICTSCP2( c1102, t2011 );
DEFSTRING( t2012, "CSTRING", 7 );
DEFSTATICTSCP( c1101 );
DEFSTRING( t2013, "init_modules( ", 14 );
DEFSTATICTSCP2( c1100, t2013 );
DEFSTATICTSCP( c1098 );
DEFSTRING( t2015, "init_constants();", 17 );
DEFSTATICTSCP2( t2014, t2015 );
DEFSTRING( t2016, "GLOBAL", 6 );
DEFSTATICTSCP( c1097 );
DEFSTRING( t2017, "argv", 4 );
DEFSTATICTSCP2( c1094, t2017 );
DEFSTRING( t2018, "argc", 4 );
DEFSTATICTSCP2( c1093, t2018 );
DEFSTRING( t2019, "INITHEAP", 8 );
DEFSTATICTSCP( c1091 );
DEFSTATICTSCP( c1090 );
DEFSTRING( t2021, "init = 1;", 9 );
DEFSTATICTSCP2( t2020, t2021 );
DEFSTATICTSCP( c1089 );
DEFSTRING( t2023, "if (init) return;", 19 );
DEFSTATICTSCP2( t2022, t2023 );
DEFSTATICTSCP( c1088 );
DEFSTRING( t2025, "static int init = 0;", 21 );
DEFSTATICTSCP2( t2024, t2025 );
DEFSTATICTSCP( c1087 );
DEFSTATICTSCP( c1086 );
DEFSTATICTSCP( c1085 );
DEFSTRING( t2027, "{", 1 );
DEFSTATICTSCP2( t2026, t2027 );
DEFSTATICTSCP( c1084 );
DEFSTRING( t2029, " int argc; char *argv[];", 32 );
DEFSTATICTSCP2( t2028, t2029 );
DEFSTATICTSCP( c1083 );
DEFSTRING( t2031, "main( argc, argv )", 18 );
DEFSTATICTSCP2( t2030, t2031 );
DEFSTRING( t2032, "()", 2 );
DEFSTATICTSCP2( c1081, t2032 );
DEFSTRING( t2033, "void ", 6 );
DEFSTATICTSCP2( c1080, t2033 );
DEFSTATICTSCP( c1078 );
DEFSTRING( t2034, "#include ", 9 );
DEFSTATICTSCP2( c1074, t2034 );
DEFSTRING( t2035, "/* SCHEME->C */", 15 );
DEFSTATICTSCP2( c1073, t2035 );
DEFSTRING( t2036, "LIT", 3 );
DEFSTATICTSCP( c1072 );
DEFSTRING( t2037, "$_CDR-ERROR", 11 );
DEFSTATICTSCP( c1070 );
DEFSTRING( t2038, "$_CAR-ERROR", 11 );
DEFSTATICTSCP( c1069 );
DEFSTRING( t2039, "ERROR", 5 );
DEFSTATICTSCP( c1068 );
DEFSTATICTSCP( c1055 );
DEFSTRING( t2040, "TOP-LEVEL", 9 );
DEFSTATICTSCP( c1048 );
static void init_constants()
{
TSCP X1;
current_2ddefine_2dname_v = STRINGTOSYMBOL( U_TX( ADR( t1830 ) ) );
CONSTANTEXP( ADR( current_2ddefine_2dname_v ) );
global_2dlap_2dcode_v = STRINGTOSYMBOL( U_TX( ADR( t1831 ) ) );
CONSTANTEXP( ADR( global_2dlap_2dcode_v ) );
c_2dinclude_2dfile_v = STRINGTOSYMBOL( U_TX( ADR( t1832 ) ) );
CONSTANTEXP( ADR( c_2dinclude_2dfile_v ) );
main_2dprogram_2dname_v = STRINGTOSYMBOL( U_TX( ADR( t1833 ) ) );
CONSTANTEXP( ADR( main_2dprogram_2dname_v ) );
heap_2dsize_v = STRINGTOSYMBOL( U_TX( ADR( t1834 ) ) );
CONSTANTEXP( ADR( heap_2dsize_v ) );
module_2dname_v = STRINGTOSYMBOL( U_TX( ADR( t1835 ) ) );
CONSTANTEXP( ADR( module_2dname_v ) );
scc_2dversion_v = STRINGTOSYMBOL( U_TX( ADR( t1836 ) ) );
CONSTANTEXP( ADR( scc_2dversion_v ) );
report_2derror_v = STRINGTOSYMBOL( U_TX( ADR( t1837 ) ) );
CONSTANTEXP( ADR( report_2derror_v ) );
_24define_2dgenc_v = STRINGTOSYMBOL( U_TX( ADR( t1838 ) ) );
CONSTANTEXP( ADR( _24define_2dgenc_v ) );
_24if_2dgenc_v = STRINGTOSYMBOL( U_TX( ADR( t1839 ) ) );
CONSTANTEXP( ADR( _24if_2dgenc_v ) );
_24lambda_2dgenc_v = STRINGTOSYMBOL( U_TX( ADR( t1840 ) ) );
CONSTANTEXP( ADR( _24lambda_2dgenc_v ) );
_24set_2dgenc_v = STRINGTOSYMBOL( U_TX( ADR( t1841 ) ) );
CONSTANTEXP( ADR( _24set_2dgenc_v ) );
_24call_2dgenc_v = STRINGTOSYMBOL( U_TX( ADR( t1842 ) ) );
CONSTANTEXP( ADR( _24call_2dgenc_v ) );
symbol_2dgenc_v = STRINGTOSYMBOL( U_TX( ADR( t1843 ) ) );
CONSTANTEXP( ADR( symbol_2dgenc_v ) );
with_2dmodules_v = STRINGTOSYMBOL( U_TX( ADR( t1844 ) ) );
CONSTANTEXP( ADR( with_2dmodules_v ) );
quote_2dconstants_v = STRINGTOSYMBOL( U_TX( ADR( t1845 ) ) );
CONSTANTEXP( ADR( quote_2dconstants_v ) );
c1769 = STRINGTOSYMBOL( U_TX( ADR( t1851 ) ) );
CONSTANTEXP( ADR( c1769 ) );
c1709 = STRINGTOSYMBOL( U_TX( ADR( t1852 ) ) );
CONSTANTEXP( ADR( c1709 ) );
c1588 = STRINGTOSYMBOL( U_TX( ADR( t1853 ) ) );
CONSTANTEXP( ADR( c1588 ) );
c1585 = STRINGTOSYMBOL( U_TX( ADR( t1854 ) ) );
CONSTANTEXP( ADR( c1585 ) );
c1577 = STRINGTOSYMBOL( U_TX( ADR( t1857 ) ) );
CONSTANTEXP( ADR( c1577 ) );
c1558 = STRINGTOSYMBOL( U_TX( ADR( t1859 ) ) );
CONSTANTEXP( ADR( c1558 ) );
c1549 = STRINGTOSYMBOL( U_TX( ADR( t1860 ) ) );
CONSTANTEXP( ADR( c1549 ) );
c1548 = STRINGTOSYMBOL( U_TX( ADR( t1861 ) ) );
CONSTANTEXP( ADR( c1548 ) );
c1542 = STRINGTOSYMBOL( U_TX( ADR( t1863 ) ) );
CONSTANTEXP( ADR( c1542 ) );
c1536 = STRINGTOSYMBOL( U_TX( ADR( t1865 ) ) );
CONSTANTEXP( ADR( c1536 ) );
c1531 = STRINGTOSYMBOL( U_TX( ADR( t1866 ) ) );
CONSTANTEXP( ADR( c1531 ) );
c1527 = STRINGTOSYMBOL( U_TX( ADR( t1867 ) ) );
CONSTANTEXP( ADR( c1527 ) );
c1520 = STRINGTOSYMBOL( U_TX( ADR( t1868 ) ) );
CONSTANTEXP( ADR( c1520 ) );
c1519 = STRINGTOSYMBOL( U_TX( ADR( t1869 ) ) );
CONSTANTEXP( ADR( c1519 ) );
c1484 = STRINGTOSYMBOL( U_TX( ADR( t1871 ) ) );
CONSTANTEXP( ADR( c1484 ) );
c1483 = STRINGTOSYMBOL( U_TX( ADR( t1872 ) ) );
CONSTANTEXP( ADR( c1483 ) );
c1432 = EMPTYLIST;
t1873 = STRINGTOSYMBOL( U_TX( ADR( t1874 ) ) );
c1432 = CONS( t1873, c1432 );
CONSTANTEXP( ADR( c1432 ) );
c1431 = EMPTYLIST;
c1431 = CONS( t1875, c1431 );
t1877 = STRINGTOSYMBOL( U_TX( ADR( t1878 ) ) );
c1431 = CONS( t1877, c1431 );
CONSTANTEXP( ADR( c1431 ) );
c1424 = STRINGTOSYMBOL( U_TX( ADR( t1880 ) ) );
CONSTANTEXP( ADR( c1424 ) );
c1398 = EMPTYLIST;
c1398 = CONS( t1882, c1398 );
c1398 = CONS( t1877, c1398 );
CONSTANTEXP( ADR( c1398 ) );
c1397 = EMPTYLIST;
c1397 = CONS( t1884, c1397 );
c1397 = CONS( t1877, c1397 );
CONSTANTEXP( ADR( c1397 ) );
c1386 = STRINGTOSYMBOL( U_TX( ADR( t1886 ) ) );
CONSTANTEXP( ADR( c1386 ) );
c1378 = EMPTYLIST;
t1887 = STRINGTOSYMBOL( U_TX( ADR( t1888 ) ) );
X1 = t1887;
t1889 = STRINGTOSYMBOL( U_TX( ADR( t1890 ) ) );
X1 = CONS( t1889, X1 );
c1378 = CONS( X1, c1378 );
t1891 = STRINGTOSYMBOL( U_TX( ADR( t1892 ) ) );
X1 = t1891;
t1893 = STRINGTOSYMBOL( U_TX( ADR( t1894 ) ) );
X1 = CONS( t1893, X1 );
c1378 = CONS( X1, c1378 );
t1895 = STRINGTOSYMBOL( U_TX( ADR( t1896 ) ) );
X1 = t1895;
t1897 = STRINGTOSYMBOL( U_TX( ADR( t1898 ) ) );
X1 = CONS( t1897, X1 );
c1378 = CONS( X1, c1378 );
t1899 = STRINGTOSYMBOL( U_TX( ADR( t1900 ) ) );
X1 = t1899;
t1901 = STRINGTOSYMBOL( U_TX( ADR( t1902 ) ) );
X1 = CONS( t1901, X1 );
c1378 = CONS( X1, c1378 );
t1903 = STRINGTOSYMBOL( U_TX( ADR( t1904 ) ) );
X1 = t1903;
t1905 = STRINGTOSYMBOL( U_TX( ADR( t1906 ) ) );
X1 = CONS( t1905, X1 );
c1378 = CONS( X1, c1378 );
t1907 = STRINGTOSYMBOL( U_TX( ADR( t1908 ) ) );
X1 = t1907;
t1909 = STRINGTOSYMBOL( U_TX( ADR( t1910 ) ) );
X1 = CONS( t1909, X1 );
c1378 = CONS( X1, c1378 );
t1911 = STRINGTOSYMBOL( U_TX( ADR( t1912 ) ) );
X1 = t1911;
t1913 = STRINGTOSYMBOL( U_TX( ADR( t1914 ) ) );
X1 = CONS( t1913, X1 );
c1378 = CONS( X1, c1378 );
t1915 = STRINGTOSYMBOL( U_TX( ADR( t1916 ) ) );
X1 = t1915;
t1917 = STRINGTOSYMBOL( U_TX( ADR( t1918 ) ) );
X1 = CONS( t1917, X1 );
c1378 = CONS( X1, c1378 );
t1919 = STRINGTOSYMBOL( U_TX( ADR( t1920 ) ) );
X1 = t1919;
t1921 = STRINGTOSYMBOL( U_TX( ADR( t1922 ) ) );
X1 = CONS( t1921, X1 );
c1378 = CONS( X1, c1378 );
t1923 = STRINGTOSYMBOL( U_TX( ADR( t1924 ) ) );
X1 = t1923;
t1925 = STRINGTOSYMBOL( U_TX( ADR( t1926 ) ) );
X1 = CONS( t1925, X1 );
c1378 = CONS( X1, c1378 );
t1927 = STRINGTOSYMBOL( U_TX( ADR( t1928 ) ) );
X1 = t1927;
t1929 = STRINGTOSYMBOL( U_TX( ADR( t1930 ) ) );
X1 = CONS( t1929, X1 );
c1378 = CONS( X1, c1378 );
t1931 = STRINGTOSYMBOL( U_TX( ADR( t1932 ) ) );
X1 = t1931;
t1933 = STRINGTOSYMBOL( U_TX( ADR( t1934 ) ) );
X1 = CONS( t1933, X1 );
c1378 = CONS( X1, c1378 );
CONSTANTEXP( ADR( c1378 ) );
c1363 = EMPTYLIST;
t1935 = STRINGTOSYMBOL( U_TX( ADR( t1936 ) ) );
X1 = t1935;
X1 = CONS( t1889, X1 );
c1363 = CONS( X1, c1363 );
t1937 = STRINGTOSYMBOL( U_TX( ADR( t1938 ) ) );
X1 = t1937;
X1 = CONS( t1893, X1 );
c1363 = CONS( X1, c1363 );
t1939 = STRINGTOSYMBOL( U_TX( ADR( t1940 ) ) );
X1 = t1939;
X1 = CONS( t1897, X1 );
c1363 = CONS( X1, c1363 );
t1941 = STRINGTOSYMBOL( U_TX( ADR( t1942 ) ) );
X1 = t1941;
X1 = CONS( t1901, X1 );
c1363 = CONS( X1, c1363 );
t1943 = STRINGTOSYMBOL( U_TX( ADR( t1944 ) ) );
X1 = t1943;
X1 = CONS( t1905, X1 );
c1363 = CONS( X1, c1363 );
t1945 = STRINGTOSYMBOL( U_TX( ADR( t1946 ) ) );
X1 = t1945;
X1 = CONS( t1909, X1 );
c1363 = CONS( X1, c1363 );
t1947 = STRINGTOSYMBOL( U_TX( ADR( t1948 ) ) );
X1 = t1947;
X1 = CONS( t1913, X1 );
c1363 = CONS( X1, c1363 );
t1949 = STRINGTOSYMBOL( U_TX( ADR( t1950 ) ) );
X1 = t1949;
X1 = CONS( t1917, X1 );
c1363 = CONS( X1, c1363 );
t1951 = STRINGTOSYMBOL( U_TX( ADR( t1952 ) ) );
X1 = t1951;
X1 = CONS( t1921, X1 );
c1363 = CONS( X1, c1363 );
t1953 = STRINGTOSYMBOL( U_TX( ADR( t1954 ) ) );
X1 = t1953;
X1 = CONS( t1925, X1 );
c1363 = CONS( X1, c1363 );
t1955 = STRINGTOSYMBOL( U_TX( ADR( t1956 ) ) );
X1 = t1955;
X1 = CONS( t1929, X1 );
c1363 = CONS( X1, c1363 );
CONSTANTEXP( ADR( c1363 ) );
c1352 = STRINGTOSYMBOL( U_TX( ADR( t1957 ) ) );
CONSTANTEXP( ADR( c1352 ) );
c1348 = EMPTYLIST;
c1348 = CONS( t1958, c1348 );
c1348 = CONS( EMPTYSTRING, c1348 );
CONSTANTEXP( ADR( c1348 ) );
c1340 = STRINGTOSYMBOL( U_TX( ADR( t1960 ) ) );
CONSTANTEXP( ADR( c1340 ) );
c1337 = STRINGTOSYMBOL( U_TX( ADR( t1961 ) ) );
CONSTANTEXP( ADR( c1337 ) );
c1325 = STRINGTOSYMBOL( U_TX( ADR( t1962 ) ) );
CONSTANTEXP( ADR( c1325 ) );
c1320 = STRINGTOSYMBOL( U_TX( ADR( t1963 ) ) );
CONSTANTEXP( ADR( c1320 ) );
c1317 = STRINGTOSYMBOL( U_TX( ADR( t1964 ) ) );
CONSTANTEXP( ADR( c1317 ) );
c1305 = STRINGTOSYMBOL( U_TX( ADR( t1965 ) ) );
CONSTANTEXP( ADR( c1305 ) );
c1297 = STRINGTOSYMBOL( U_TX( ADR( t1966 ) ) );
CONSTANTEXP( ADR( c1297 ) );
c1291 = STRINGTOSYMBOL( U_TX( ADR( t1968 ) ) );
CONSTANTEXP( ADR( c1291 ) );
c1276 = STRINGTOSYMBOL( U_TX( ADR( t1969 ) ) );
CONSTANTEXP( ADR( c1276 ) );
c1273 = STRINGTOSYMBOL( U_TX( ADR( t1970 ) ) );
CONSTANTEXP( ADR( c1273 ) );
c1271 = STRINGTOSYMBOL( U_TX( ADR( t1972 ) ) );
CONSTANTEXP( ADR( c1271 ) );
c1266 = STRINGTOSYMBOL( U_TX( ADR( t1973 ) ) );
CONSTANTEXP( ADR( c1266 ) );
c1247 = STRINGTOSYMBOL( U_TX( ADR( t1975 ) ) );
CONSTANTEXP( ADR( c1247 ) );
c1241 = STRINGTOSYMBOL( U_TX( ADR( t1976 ) ) );
CONSTANTEXP( ADR( c1241 ) );
c1240 = STRINGTOSYMBOL( U_TX( ADR( t1977 ) ) );
CONSTANTEXP( ADR( c1240 ) );
c1235 = STRINGTOSYMBOL( U_TX( ADR( t1978 ) ) );
CONSTANTEXP( ADR( c1235 ) );
c1225 = STRINGTOSYMBOL( U_TX( ADR( t1979 ) ) );
CONSTANTEXP( ADR( c1225 ) );
c1224 = STRINGTOSYMBOL( U_TX( ADR( t1980 ) ) );
CONSTANTEXP( ADR( c1224 ) );
c1223 = STRINGTOSYMBOL( U_TX( ADR( t1981 ) ) );
CONSTANTEXP( ADR( c1223 ) );
c1222 = STRINGTOSYMBOL( U_TX( ADR( t1982 ) ) );
CONSTANTEXP( ADR( c1222 ) );
c1211 = STRINGTOSYMBOL( U_TX( ADR( t1985 ) ) );
CONSTANTEXP( ADR( c1211 ) );
c1203 = STRINGTOSYMBOL( U_TX( ADR( t1986 ) ) );
CONSTANTEXP( ADR( c1203 ) );
c1195 = STRINGTOSYMBOL( U_TX( ADR( t1987 ) ) );
CONSTANTEXP( ADR( c1195 ) );
c1187 = STRINGTOSYMBOL( U_TX( ADR( t1988 ) ) );
CONSTANTEXP( ADR( c1187 ) );
c1179 = STRINGTOSYMBOL( U_TX( ADR( t1989 ) ) );
CONSTANTEXP( ADR( c1179 ) );
c1171 = STRINGTOSYMBOL( U_TX( ADR( t1990 ) ) );
CONSTANTEXP( ADR( c1171 ) );
c1144 = EMPTYLIST;
c1144 = CONS( t1994, c1144 );
c1144 = CONS( t1877, c1144 );
CONSTANTEXP( ADR( c1144 ) );
c1143 = EMPTYLIST;
c1143 = CONS( _TSCP( 0 ), c1143 );
t1996 = STRINGTOSYMBOL( U_TX( ADR( t1997 ) ) );
c1143 = CONS( t1996, c1143 );
CONSTANTEXP( ADR( c1143 ) );
c1140 = EMPTYLIST;
c1140 = CONS( t1998, c1140 );
c1140 = CONS( t1877, c1140 );
CONSTANTEXP( ADR( c1140 ) );
c1133 = EMPTYLIST;
c1133 = CONS( t2003, c1133 );
t2005 = STRINGTOSYMBOL( U_TX( ADR( t2006 ) ) );
c1133 = CONS( t2005, c1133 );
c1133 = CONS( c1519, c1133 );
CONSTANTEXP( ADR( c1133 ) );
c1132 = STRINGTOSYMBOL( U_TX( ADR( t2007 ) ) );
CONSTANTEXP( ADR( c1132 ) );
c1101 = STRINGTOSYMBOL( U_TX( ADR( t2012 ) ) );
CONSTANTEXP( ADR( c1101 ) );
c1098 = EMPTYLIST;
c1098 = CONS( t2014, c1098 );
c1098 = CONS( t1877, c1098 );
CONSTANTEXP( ADR( c1098 ) );
c1097 = STRINGTOSYMBOL( U_TX( ADR( t2016 ) ) );
CONSTANTEXP( ADR( c1097 ) );
c1091 = STRINGTOSYMBOL( U_TX( ADR( t2019 ) ) );
CONSTANTEXP( ADR( c1091 ) );
c1090 = EMPTYLIST;
c1090 = CONS( t2020, c1090 );
c1090 = CONS( t1877, c1090 );
CONSTANTEXP( ADR( c1090 ) );
c1089 = EMPTYLIST;
c1089 = CONS( t2022, c1089 );
c1089 = CONS( t1877, c1089 );
CONSTANTEXP( ADR( c1089 ) );
c1088 = EMPTYLIST;
c1088 = CONS( t2024, c1088 );
c1088 = CONS( t1877, c1088 );
CONSTANTEXP( ADR( c1088 ) );
c1087 = EMPTYLIST;
c1087 = CONS( _TSCP( 0 ), c1087 );
c1087 = CONS( c1276, c1087 );
c1087 = CONS( t1873, c1087 );
CONSTANTEXP( ADR( c1087 ) );
c1086 = EMPTYLIST;
c1086 = CONS( _TSCP( 32 ), c1086 );
c1086 = CONS( t1996, c1086 );
CONSTANTEXP( ADR( c1086 ) );
c1085 = EMPTYLIST;
c1085 = CONS( t2026, c1085 );
c1085 = CONS( t1877, c1085 );
CONSTANTEXP( ADR( c1085 ) );
c1084 = EMPTYLIST;
c1084 = CONS( t2028, c1084 );
c1084 = CONS( t1877, c1084 );
CONSTANTEXP( ADR( c1084 ) );
c1083 = EMPTYLIST;
c1083 = CONS( t2030, c1083 );
c1083 = CONS( t1877, c1083 );
CONSTANTEXP( ADR( c1083 ) );
c1078 = EMPTYLIST;
c1078 = CONS( t1877, c1078 );
CONSTANTEXP( ADR( c1078 ) );
c1072 = STRINGTOSYMBOL( U_TX( ADR( t2036 ) ) );
CONSTANTEXP( ADR( c1072 ) );
c1070 = STRINGTOSYMBOL( U_TX( ADR( t2037 ) ) );
CONSTANTEXP( ADR( c1070 ) );
c1069 = STRINGTOSYMBOL( U_TX( ADR( t2038 ) ) );
CONSTANTEXP( ADR( c1069 ) );
c1068 = STRINGTOSYMBOL( U_TX( ADR( t2039 ) ) );
CONSTANTEXP( ADR( c1068 ) );
c1055 = EMPTYLIST;
c1055 = CONS( EMPTYLIST, c1055 );
CONSTANTEXP( ADR( c1055 ) );
c1048 = STRINGTOSYMBOL( U_TX( ADR( t2040 ) ) );
CONSTANTEXP( ADR( c1048 ) );
}
DEFTSCP( gencode_e_2dlambda_7a3ae383_v );
DEFSTRING( t2041, "CURRENT-CODE-LAMBDA", 19 );
DEFTSCP( gencode_e_2dstring_8ca45c6a_v );
DEFSTRING( t2042, "CURRENT-DEFINE-STRING", 21 );
DEFTSCP( gencode_init_2dmodules_v );
DEFSTRING( t2043, "INIT-MODULES", 12 );
DEFTSCP( gencode_free_2ddisplay_v );
DEFSTRING( t2044, "FREE-DISPLAY", 12 );
DEFTSCP( gencode_max_2ddisplay_v );
DEFSTRING( t2045, "MAX-DISPLAY", 11 );
DEFTSCP( gencode_ion_2dinfo_cc47b64b_v );
DEFSTRING( t2046, "EMPTY-CONDITION-INFO", 20 );
DEFTSCP( gencode_ion_2dinfo_f92fd619_v );
DEFSTRING( t2047, "GLOBAL-CONDITION-INFO", 21 );
DEFTSCP( gencode_error_2did_v );
DEFSTRING( t2048, "ERROR-ID", 8 );
DEFTSCP( gencode__24__car_2derror_2did_v );
DEFSTRING( t2049, "$_CAR-ERROR-ID", 14 );
DEFTSCP( gencode__24__cdr_2derror_2did_v );
DEFSTRING( t2050, "$_CDR-ERROR-ID", 14 );
DEFTSCP( gencode_generate_2dcode_v );
DEFSTRING( t2051, "GENERATE-CODE", 13 );
EXTERNTSCPP( scrt3_string_2dappend );
EXTERNTSCP( scrt3_string_2dappend_v );
EXTERNTSCPP( lap_save_2dcurrent_2dlap );
EXTERNTSCP( lap_save_2dcurrent_2dlap_v );
EXTERNTSCPP( expform_bound );
EXTERNTSCP( expform_bound_v );
EXTERNTSCPP( lap_emit_2dglobal_2dlap );
EXTERNTSCP( lap_emit_2dglobal_2dlap_v );
EXTERNTSCPP( scrt1_cons_2a );
EXTERNTSCP( scrt1_cons_2a_v );
EXTERNTSCPP( lap_emit_2dlap );
EXTERNTSCP( lap_emit_2dlap_v );
EXTERNTSCPP( expform_cname );
EXTERNTSCP( expform_cname_v );
EXTERNTSCPP( plist_get );
EXTERNTSCP( plist_get_v );
EXTERNTSCPP( gencode_emit_2dconstants );
EXTERNTSCP( gencode_emit_2dconstants_v );
EXTERNTSCPP( lap_done_2dlap );
EXTERNTSCP( lap_done_2dlap_v );
EXTERNTSCPP( scrt1__24__car_2derror );
EXTERNTSCP( scrt1__24__car_2derror_v );
EXTERNTSCPP( gencode_exp_2dgenc );
EXTERNTSCP( gencode_exp_2dgenc_v );
EXTERNTSCPP( scrt2__3d_2dtwo );
EXTERNTSCP( scrt2__3d_2dtwo_v );
EXTERNTSCPP( gencode_t__modules_bfe186ca );
EXTERNTSCP( gencode_t__modules_bfe186ca_v );
TSCP gencode_generate_2dcode( e1062 )
TSCP e1062;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2051 ) ) );
if ( FALSE( SYMBOL_VALUE( main_2dprogram_2dname_v ) )
) goto L2053;
X1 = c1157;
goto L2054;
L2053:
X2 = CONS( c1156, EMPTYLIST );
X1 = scrt3_string_2dappend( CONS( SYMBOL_VALUE( module_2dname_v ),
X2 ) );
L2054:
X2 = EMPTYLIST;
X2 = CONS( X2, EMPTYLIST );
gencode_e_2dlambda_7a3ae383_v = c1048;
SETGENTL( SYMBOL_VALUE( current_2ddefine_2dname_v ),
c1048 );
lap_save_2dcurrent_2dlap( FALSEVALUE );
gencode_max_2ddisplay_v = _TSCP( 0 );
gencode_free_2ddisplay_v = _TSCP( 0 );
gencode_error_2did_v = expform_bound( c1068 );
gencode__24__car_2derror_2did_v = expform_bound( c1069 );
gencode__24__cdr_2derror_2did_v = expform_bound( c1070 );
SETGENTL( SYMBOL_VALUE( global_2dlap_2dcode_v ),
EMPTYLIST );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X3 = scrt1_cons_2a( c1072, CONS( c1073, X4 ) );
lap_emit_2dglobal_2dlap( X3 );
X3 = scrt1_cons_2a( c1072,
CONS( EMPTYLIST, EMPTYLIST ) );
lap_emit_2dglobal_2dlap( X3 );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( _TSCP( 15890 ), X4 );
X4 = CONS( SYMBOL_VALUE( c_2dinclude_2dfile_v ), X4 );
X4 = CONS( _TSCP( 15378 ), X4 );
X3 = scrt1_cons_2a( c1072, CONS( c1074, X4 ) );
lap_emit_2dglobal_2dlap( X3 );
lap_emit_2dglobal_2dlap( c1078 );
gencode_init_2dmodules_v = EMPTYLIST;
if ( FALSE( SYMBOL_VALUE( main_2dprogram_2dname_v ) )
) goto L2056;
lap_emit_2dlap( c1083 );
lap_emit_2dlap( c1084 );
goto L2057;
L2056:
X4 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( c1081, X4 );
X4 = CONS( X1, X4 );
X3 = scrt1_cons_2a( c1072, CONS( c1080, X4 ) );
lap_emit_2dlap( X3 );
L2057:
lap_emit_2dlap( c1085 );
lap_emit_2dlap( c1086 );
lap_emit_2dlap( c1087 );
lap_emit_2dlap( c1088 );
lap_emit_2dlap( c1089 );
lap_emit_2dlap( c1090 );
if ( FALSE( SYMBOL_VALUE( main_2dprogram_2dname_v ) )
) goto L2059;
X4 = CONS( EMPTYLIST, EMPTYLIST );
X6 = SYMBOL_VALUE( main_2dprogram_2dname_v );
X5 = plist_get( X6, c1097 );
X4 = CONS( expform_cname( X5 ), X4 );
X4 = CONS( c1094, X4 );
X4 = CONS( c1093, X4 );
X3 = scrt1_cons_2a( c1091,
CONS( SYMBOL_VALUE( heap_2dsize_v ),
X4 ) );
lap_emit_2dlap( X3 );
goto L2060;
L2059:
X4 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( _TSCP( 0 ), X4 );
X4 = CONS( _TSCP( 0 ), X4 );
X4 = CONS( _TSCP( 0 ), X4 );
X3 = scrt1_cons_2a( c1091,
CONS( SYMBOL_VALUE( heap_2dsize_v ),
X4 ) );
lap_emit_2dlap( X3 );
L2060:
lap_emit_2dlap( c1098 );
X3 = gencode_emit_2dconstants( );
SETGEN( PAIR_CAR( X2 ), X3 );
lap_done_2dlap( PAIR_CAR( X2 ) );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( c1107, X4 );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X6 = CONS( c1106, EMPTYLIST );
X6 = CONS( SYMBOL_VALUE( scc_2dversion_v ), X6 );
X6 = CONS( c1104, X6 );
X6 = CONS( SYMBOL_VALUE( module_2dname_v ), X6 );
X4 = CONS( scrt1_cons_2a( c1101,
CONS( scrt3_string_2dappend( CONS( c1102,
X6 ) ),
X5 ) ),
X4 );
X3 = scrt1_cons_2a( c1072, CONS( c1100, X4 ) );
lap_emit_2dlap( X3 );
X3 = e1062;
L2062:
if ( EQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L2063;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2067;
scrt1__24__car_2derror( X3 );
L2067:
X4 = PAIR_CAR( X3 );
gencode_ion_2dinfo_f92fd619_v = gencode_ion_2dinfo_cc47b64b_v;
gencode_exp_2dgenc( c1132, X4, EMPTYLIST );
X3 = PAIR_CDR( X3 );
goto L2062;
L2063:
if ( FALSE( SYMBOL_VALUE( main_2dprogram_2dname_v ) )
) goto L2071;
X4 = SYMBOL_VALUE( main_2dprogram_2dname_v );
X3 = plist_get( X4, c1097 );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X5 = CONS( c1136, X5 );
X5 = CONS( SYMBOL_VALUE( module_2dname_v ), X5 );
X4 = scrt1_cons_2a( c1072, CONS( c1080, X5 ) );
lap_emit_2dglobal_2dlap( X4 );
if ( FALSE( X3 ) ) goto L2074;
X5 = CONS( EMPTYLIST, EMPTYLIST );
X5 = CONS( c1139, X5 );
X4 = scrt1_cons_2a( c1072,
CONS( expform_cname( X3 ), X5 ) );
lap_emit_2dlap( X4 );
goto L2075;
L2074:
X4 = SYMBOL_VALUE( report_2derror_v );
X4 = UNKNOWNCALL( X4, 1 );
VIA( PROCEDURE_CODE( X4 ) )( c1138,
PROCEDURE_CLOSURE( X4 ) );
L2075:
lap_emit_2dlap( c1140 );
goto L2072;
L2071:
lap_emit_2dlap( c1133 );
L2072:
lap_emit_2dlap( c1143 );
lap_emit_2dlap( c1144 );
X3 = gencode_free_2ddisplay_v;
if ( BITAND( BITOR( INT( _TSCP( 0 ) ), INT( X3 ) ),
3 ) ) goto L2078;
if ( NEQ( UNSIGNED( _TSCP( 0 ) ), UNSIGNED( X3 ) ) ) goto L2082;
goto L2085;
L2078:
if ( TRUE( scrt2__3d_2dtwo( _TSCP( 0 ), X3 ) ) ) goto L2085;
L2082:
X4 = SYMBOL_VALUE( report_2derror_v );
X4 = UNKNOWNCALL( X4, 1 );
VIA( PROCEDURE_CODE( X4 ) )( c1154,
PROCEDURE_CLOSURE( X4 ) );
L2085:
gencode_t__modules_bfe186ca( );
X3 = lap_save_2dcurrent_2dlap( EMPTYLIST );
POPSTACKTRACE( lap_done_2dlap( X3 ) );
}
DEFTSCP( gencode_exp_2dgenc_v );
DEFSTRING( t2086, "EXP-GENC", 8 );
TSCP gencode_exp_2dgenc( l1159, e1160, b1161 )
TSCP l1159, e1160, b1161;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2086 ) ) );
if ( NOT( AND( EQ( TSCPTAG( e1160 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( e1160 ), SYMBOLTAG ) ) )
) goto L2088;
X1 = SYMBOL_VALUE( symbol_2dgenc_v );
X1 = UNKNOWNCALL( X1, 3 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( l1159,
e1160,
b1161,
PROCEDURE_CLOSURE( X1 ) ) );
L2088:
if ( EQ( TSCPTAG( e1160 ), PAIRTAG ) ) goto L2093;
scrt1__24__car_2derror( e1160 );
L2093:
X1 = PAIR_CAR( e1160 );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1171 ) ) ) goto L2090;
X1 = SYMBOL_VALUE( _24call_2dgenc_v );
X1 = UNKNOWNCALL( X1, 3 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( l1159,
e1160,
b1161,
PROCEDURE_CLOSURE( X1 ) ) );
L2090:
if ( EQ( TSCPTAG( e1160 ), PAIRTAG ) ) goto L2098;
scrt1__24__car_2derror( e1160 );
L2098:
X1 = PAIR_CAR( e1160 );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1179 ) ) ) goto L2095;
X1 = SYMBOL_VALUE( _24set_2dgenc_v );
X1 = UNKNOWNCALL( X1, 3 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( l1159,
e1160,
b1161,
PROCEDURE_CLOSURE( X1 ) ) );
L2095:
if ( EQ( TSCPTAG( e1160 ), PAIRTAG ) ) goto L2103;
scrt1__24__car_2derror( e1160 );
L2103:
X1 = PAIR_CAR( e1160 );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1187 ) ) ) goto L2100;
X1 = SYMBOL_VALUE( _24lambda_2dgenc_v );
X1 = UNKNOWNCALL( X1, 3 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( l1159,
e1160,
b1161,
PROCEDURE_CLOSURE( X1 ) ) );
L2100:
if ( EQ( TSCPTAG( e1160 ), PAIRTAG ) ) goto L2108;
scrt1__24__car_2derror( e1160 );
L2108:
X1 = PAIR_CAR( e1160 );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1195 ) ) ) goto L2105;
X1 = SYMBOL_VALUE( _24if_2dgenc_v );
X1 = UNKNOWNCALL( X1, 3 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( l1159,
e1160,
b1161,
PROCEDURE_CLOSURE( X1 ) ) );
L2105:
if ( EQ( TSCPTAG( e1160 ), PAIRTAG ) ) goto L2113;
scrt1__24__car_2derror( e1160 );
L2113:
X1 = PAIR_CAR( e1160 );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1203 ) ) ) goto L2110;
X1 = SYMBOL_VALUE( _24define_2dgenc_v );
X1 = UNKNOWNCALL( X1, 3 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( l1159,
e1160,
b1161,
PROCEDURE_CLOSURE( X1 ) ) );
L2110:
if ( EQ( TSCPTAG( e1160 ), PAIRTAG ) ) goto L2118;
scrt1__24__car_2derror( e1160 );
L2118:
X1 = PAIR_CAR( e1160 );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1211 ) ) ) goto L2115;
X1 = SYMBOL_VALUE( report_2derror_v );
X1 = UNKNOWNCALL( X1, 1 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( c1213,
PROCEDURE_CLOSURE( X1 ) ) );
L2115:
X1 = SYMBOL_VALUE( report_2derror_v );
X1 = UNKNOWNCALL( X1, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( c1212,
e1160,
PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( gencode_make_2dlabel_v );
DEFSTRING( t2120, "MAKE-LABEL", 10 );
EXTERNTSCPP( expform_newv );
EXTERNTSCP( expform_newv_v );
TSCP gencode_make_2dlabel( )
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2120 ) ) );
X1 = CONS( _TSCP( 0 ), EMPTYLIST );
X1 = CONS( c1225, X1 );
X1 = CONS( c1224, X1 );
POPSTACKTRACE( expform_newv( c1222,
CONS( c1223, X1 ) ) );
}
DEFTSCP( gencode_code_2dlabel_v );
DEFSTRING( t2122, "CODE-LABEL", 10 );
EXTERNTSCPP( plist_put );
EXTERNTSCP( plist_put_v );
TSCP gencode_code_2dlabel( i1228 )
TSCP i1228;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2122 ) ) );
X1 = plist_get( i1228, c1235 );
X1 = CONS( X1, EMPTYLIST );
if ( TRUE( PAIR_CAR( X1 ) ) ) goto L2125;
X2 = gencode_make_2dlabel( );
SETGEN( PAIR_CAR( X1 ), X2 );
plist_put( i1228, c1235, PAIR_CAR( X1 ) );
L2125:
POPSTACKTRACE( PAIR_CAR( X1 ) );
}
DEFTSCP( gencode_make_2dc_2dglobal_v );
DEFSTRING( t2128, "MAKE-C-GLOBAL", 13 );
TSCP gencode_make_2dc_2dglobal( )
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2128 ) ) );
X1 = CONS( c1241, EMPTYLIST );
POPSTACKTRACE( expform_newv( c1240,
CONS( c1223, X1 ) ) );
}
DEFTSCP( gencode_optional_2dargs_v );
DEFSTRING( t2130, "OPTIONAL-ARGS", 13 );
TSCP gencode_optional_2dargs( i1244 )
TSCP i1244;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2130 ) ) );
if ( FALSE( plist_get( i1244, c1247 ) ) ) goto L2132;
X1 = plist_get( i1244, c1247 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2135;
scrt1__24__car_2derror( X1 );
L2135:
POPSTACKTRACE( PAIR_CAR( X1 ) );
L2132:
POPSTACKTRACE( EMPTYLIST );
}
DEFTSCP( gencode_lookup_v );
DEFSTRING( t2137, "LOOKUP", 6 );
EXTERNTSCPP( gencode_var_2dis_2dconstant );
EXTERNTSCP( gencode_var_2dis_2dconstant_v );
EXTERNTSCPP( expform_vname );
EXTERNTSCP( expform_vname_v );
EXTERNTSCPP( gencode_var_2dis_2dglobal );
EXTERNTSCP( gencode_var_2dis_2dglobal_v );
EXTERNTSCPP( gencode_emit_2dextern );
EXTERNTSCP( gencode_emit_2dextern_v );
EXTERNTSCPP( gencode_var_2din_2dstack );
EXTERNTSCP( gencode_var_2din_2dstack_v );
EXTERNTSCPP( gencode_op_2dlevel_343ff0cb );
EXTERNTSCP( gencode_op_2dlevel_343ff0cb_v );
TSCP gencode_lookup( v1256, b1257 )
TSCP v1256, b1257;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2137 ) ) );
if ( FALSE( gencode_var_2dis_2dconstant( v1256 ) ) ) goto L2139;
POPSTACKTRACE( expform_vname( v1256 ) );
L2139:
if ( FALSE( gencode_var_2dis_2dglobal( v1256 ) ) ) goto L2141;
gencode_emit_2dextern( v1256 );
X1 = expform_vname( v1256 );
if ( TRUE( X1 ) ) goto L2145;
X3 = plist_get( v1256, c1291 );
if ( FALSE( X3 ) ) goto L2148;
X2 = expform_cname( v1256 );
goto L2149;
L2148:
X2 = X3;
L2149:
if ( TRUE( X2 ) ) goto L2151;
X4 = plist_get( v1256, c1297 );
X3 = SYMBOL_VALUE( report_2derror_v );
X3 = UNKNOWNCALL( X3, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X3 ) )( c1294,
X4,
PROCEDURE_CLOSURE( X3 ) ) );
L2151:
POPSTACKTRACE( X2 );
L2145:
POPSTACKTRACE( X1 );
L2141:
if ( FALSE( gencode_var_2din_2dstack( v1256 ) ) ) goto L2153;
X1 = plist_get( v1256, c1276 );
if ( FALSE( plist_get( v1256, c1271 ) ) ) goto L2156;
X2 = CONS( EMPTYLIST, EMPTYLIST );
if ( FALSE( X1 ) ) goto L2158;
X4 = CONS( EMPTYLIST, EMPTYLIST );
X3 = scrt1_cons_2a( c1272, CONS( X1, X4 ) );
goto L2159;
L2158:
X3 = expform_vname( v1256 );
L2159:
POPSTACKTRACE( scrt1_cons_2a( c1273, CONS( X3, X2 ) ) );
L2156:
if ( FALSE( X1 ) ) goto L2160;
X2 = CONS( EMPTYLIST, EMPTYLIST );
POPSTACKTRACE( scrt1_cons_2a( c1272, CONS( X1, X2 ) ) );
L2160:
POPSTACKTRACE( expform_vname( v1256 ) );
L2153:
if ( FALSE( gencode_op_2dlevel_343ff0cb( v1256 ) ) ) goto L2162;
X1 = CONS( EMPTYLIST, EMPTYLIST );
POPSTACKTRACE( scrt1_cons_2a( c1266,
CONS( expform_vname( v1256 ),
X1 ) ) );
L2162:
X2 = expform_vname( v1256 );
X1 = SYMBOL_VALUE( report_2derror_v );
X1 = UNKNOWNCALL( X1, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( c1265,
X2,
PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( gencode_var_2din_2dstack_v );
DEFSTRING( t2164, "VAR-IN-STACK", 12 );
TSCP gencode_var_2din_2dstack( v1299 )
TSCP v1299;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2164 ) ) );
X1 = plist_get( v1299, c1223 );
POPSTACKTRACE( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c1305 ) ) ) );
}
DEFTSCP( gencode_var_2dis_2dglobal_v );
DEFSTRING( t2166, "VAR-IS-GLOBAL", 13 );
TSCP gencode_var_2dis_2dglobal( v1307 )
TSCP v1307;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2166 ) ) );
X1 = plist_get( v1307, c1223 );
POPSTACKTRACE( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c1097 ) ) ) );
}
DEFTSCP( gencode_emit_2dextern_v );
DEFSTRING( t2168, "EMIT-EXTERN", 11 );
EXTERNTSCPP( scrt1_assq );
EXTERNTSCP( scrt1_assq_v );
EXTERNTSCPP( scrt1__24__cdr_2derror );
EXTERNTSCP( scrt1__24__cdr_2derror_v );
EXTERNTSCPP( scrt1_equal_3f );
EXTERNTSCP( scrt1_equal_3f_v );
EXTERNTSCPP( scrt1_member );
EXTERNTSCP( scrt1_member_v );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
TSCP gencode_emit_2dextern( v1314 )
TSCP v1314;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2168 ) ) );
v1314 = CONS( v1314, EMPTYLIST );
if ( FALSE( plist_get( PAIR_CAR( v1314 ), c1317 ) ) ) goto L2170;
X2 = plist_get( PAIR_CAR( v1314 ), c1317 );
X1 = plist_get( X2, c1320 );
SETGEN( PAIR_CAR( v1314 ), X1 );
L2170:
if ( TRUE( plist_get( PAIR_CAR( v1314 ), c1325 ) ) ) goto L2172;
plist_put( PAIR_CAR( v1314 ), c1325, TRUEVALUE );
X2 = plist_get( PAIR_CAR( v1314 ), c1317 );
if ( FALSE( X2 ) ) goto L2176;
X3 = plist_get( PAIR_CAR( v1314 ), c1291 );
X1 = scrt1_assq( X3, c1378 );
goto L2177;
L2176:
X1 = X2;
L2177:
if ( FALSE( X1 ) ) goto L2179;
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2182;
scrt1__24__cdr_2derror( X1 );
L2182:
X3 = PAIR_CDR( X1 );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X2 = scrt1_cons_2a( X3,
CONS( expform_cname( PAIR_CAR( v1314 ) ),
X4 ) );
POPSTACKTRACE( lap_emit_2dglobal_2dlap( X2 ) );
L2179:
X3 = plist_get( PAIR_CAR( v1314 ), c1291 );
X2 = scrt1_assq( X3, c1363 );
if ( FALSE( X2 ) ) goto L2185;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2188;
scrt1__24__cdr_2derror( X2 );
L2188:
X4 = PAIR_CDR( X2 );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X3 = scrt1_cons_2a( X4,
CONS( expform_vname( PAIR_CAR( v1314 ) ),
X5 ) );
POPSTACKTRACE( lap_emit_2dglobal_2dlap( X3 ) );
L2185:
if ( FALSE( plist_get( PAIR_CAR( v1314 ), c1317 ) ) ) goto L2191;
X4 = CONS( EMPTYLIST, EMPTYLIST );
X3 = scrt1_cons_2a( c1337,
CONS( expform_cname( PAIR_CAR( v1314 ) ),
X4 ) );
lap_emit_2dglobal_2dlap( X3 );
L2191:
if ( FALSE( gencode_var_2dis_2dglobal( PAIR_CAR( v1314 ) ) )
) goto L2193;
X3 = plist_get( PAIR_CAR( v1314 ), c1352 );
if ( FALSE( expform_vname( PAIR_CAR( v1314 ) ) ) ) goto L2196;
X5 = CONS( EMPTYLIST, EMPTYLIST );
X4 = scrt1_cons_2a( c1340,
CONS( expform_vname( PAIR_CAR( v1314 ) ),
X5 ) );
lap_emit_2dglobal_2dlap( X4 );
L2196:
X4 = SYMBOL_VALUE( module_2dname_v );
if ( TRUE( scrt1_equal_3f( X4, X3 ) ) ) goto L2198;
if ( TRUE( scrt1_member( X3, c1348 ) ) ) goto L2200;
if ( TRUE( scrt1_member( X3, gencode_init_2dmodules_v ) )
) goto L2202;
X4 = plist_get( PAIR_CAR( v1314 ), c1352 );
POPSTACKTRACE( SET( gencode_init_2dmodules_v,
sc_cons( X4, gencode_init_2dmodules_v ) ) );
L2202:
POPSTACKTRACE( FALSEVALUE );
L2200:
POPSTACKTRACE( FALSEVALUE );
L2198:
POPSTACKTRACE( FALSEVALUE );
L2193:
POPSTACKTRACE( FALSEVALUE );
L2172:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( gencode_var_2dis_2dconstant_v );
DEFSTRING( t2204, "VAR-IS-CONSTANT", 15 );
TSCP gencode_var_2dis_2dconstant( v1380 )
TSCP v1380;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2204 ) ) );
X1 = plist_get( v1380, c1223 );
POPSTACKTRACE( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c1386 ) ) ) );
}
DEFTSCP( gencode_op_2dlevel_343ff0cb_v );
DEFSTRING( t2206, "VAR-IS-TOP-LEVEL", 16 );
TSCP gencode_op_2dlevel_343ff0cb( v1388 )
TSCP v1388;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2206 ) ) );
X1 = plist_get( v1388, c1223 );
POPSTACKTRACE( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c1048 ) ) ) );
}
DEFTSCP( gencode_t__modules_bfe186ca_v );
DEFSTRING( t2208, "GENERATE-INIT_MODULES", 21 );
EXTERNTSCPP( scrt1_append_2dtwo );
EXTERNTSCP( scrt1_append_2dtwo_v );
TSCP gencode_t__modules_bfe186ca( )
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2208 ) ) );
X1 = lap_save_2dcurrent_2dlap( EMPTYLIST );
lap_emit_2dlap( c1397 );
lap_emit_2dlap( c1398 );
lap_emit_2dlap( c1085 );
lap_emit_2dlap( c1086 );
X3 = SYMBOL_VALUE( with_2dmodules_v );
X2 = scrt1_append_2dtwo( gencode_init_2dmodules_v, X3 );
X3 = X2;
L2213:
if ( EQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L2214;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2218;
scrt1__24__car_2derror( X3 );
L2218:
X4 = PAIR_CAR( X3 );
X6 = CONS( EMPTYLIST, EMPTYLIST );
X7 = CONS( c1422, EMPTYLIST );
X5 = scrt1_cons_2a( c1072,
CONS( scrt3_string_2dappend( CONS( X4, X7 ) ),
X6 ) );
lap_emit_2dlap( X5 );
X3 = PAIR_CDR( X3 );
goto L2213;
L2214:
X3 = CONS( EMPTYLIST, EMPTYLIST );
X2 = scrt1_cons_2a( c1424,
CONS( gencode_max_2ddisplay_v, X3 ) );
lap_emit_2dlap( X2 );
lap_emit_2dlap( c1143 );
X3 = CONS( EMPTYLIST, EMPTYLIST );
X2 = scrt1_cons_2a( c1072, CONS( c1425, X3 ) );
lap_emit_2dlap( X2 );
X2 = lap_save_2dcurrent_2dlap( X1 );
POPSTACKTRACE( lap_done_2dlap( X2 ) );
}
DEFTSCP( gencode_constant_2dsymbols_v );
DEFSTRING( t2222, "CONSTANT-SYMBOLS", 16 );
DEFTSCP( gencode_bol_2dport_c6b2ebee_v );
DEFSTRING( t2223, "CONSTANT-SYMBOL-PORT", 20 );
DEFTSCP( gencode_emit_2dconstants_v );
DEFSTRING( t2224, "EMIT-CONSTANTS", 14 );
EXTERNTSCPP( scrt5_open_2doutput_2dstring );
EXTERNTSCP( scrt5_open_2doutput_2dstring_v );
EXTERNTSCPP( lap_save_2dlap_2dtemps );
EXTERNTSCP( lap_save_2dlap_2dtemps_v );
EXTERNTSCPP( gencode_emit_2dconstant );
EXTERNTSCP( gencode_emit_2dconstant_v );
EXTERNTSCPP( lap_restore_2dlap_2dtemps );
EXTERNTSCP( lap_restore_2dlap_2dtemps_v );
TSCP gencode_emit_2dconstants( )
{
TSCP X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2224 ) ) );
X1 = lap_save_2dcurrent_2dlap( EMPTYLIST );
gencode_constant_2dsymbols_v = EMPTYLIST;
gencode_bol_2dport_c6b2ebee_v = scrt5_open_2doutput_2dstring( );
lap_emit_2dlap( c1431 );
lap_emit_2dlap( c1085 );
lap_emit_2dlap( c1086 );
lap_emit_2dlap( c1432 );
X2 = SYMBOL_VALUE( quote_2dconstants_v );
X3 = X2;
L2229:
if ( EQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L2230;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2234;
scrt1__24__car_2derror( X3 );
L2234:
X4 = PAIR_CAR( X3 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2238;
scrt1__24__cdr_2derror( X4 );
L2238:
X6 = PAIR_CDR( X4 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L2241;
scrt1__24__car_2derror( X6 );
L2241:
X5 = PAIR_CAR( X6 );
X6 = PAIR_CAR( X4 );
X7 = lap_save_2dlap_2dtemps( );
gencode_emit_2dconstant( X5, X6 );
if ( AND( EQ( TSCPTAG( X6 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X6 ), STRINGTAG ) ) ) goto L2251;
if ( EQ( TSCPTAG( X6 ), FIXNUMTAG ) ) goto L2251;
if ( AND( EQ( TSCPTAG( X6 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X6 ), FLOATTAG ) ) ) goto L2251;
if ( EQ( TSCPIMMEDIATETAG( X6 ), CHARACTERTAG ) ) goto L2251;
X9 = CONS( EMPTYLIST, EMPTYLIST );
X10 = CONS( EMPTYLIST, EMPTYLIST );
X8 = scrt1_cons_2a( c1483,
CONS( scrt1_cons_2a( c1484,
CONS( expform_vname( X5 ),
X10 ) ),
X9 ) );
lap_emit_2dlap( X8 );
L2251:
lap_restore_2dlap_2dtemps( X7 );
X3 = PAIR_CDR( X3 );
goto L2229;
L2230:
lap_emit_2dlap( c1143 );
lap_emit_2dlap( c1144 );
POPSTACKTRACE( lap_save_2dcurrent_2dlap( X1 ) );
}
DEFTSCP( gencode_emit_2dconstant_v );
DEFSTRING( t2254, "EMIT-CONSTANT", 13 );
EXTERNTSCPP( scrt6_display );
EXTERNTSCP( scrt6_display_v );
EXTERNTSCPP( scrt2__3e_2dtwo );
EXTERNTSCP( scrt2__3e_2dtwo_v );
EXTERNTSCPP( scrt2__3c_2dtwo );
EXTERNTSCP( scrt2__3c_2dtwo_v );
EXTERNTSCPP( scrt6_write );
EXTERNTSCP( scrt6_write_v );
EXTERNTSCPP( scrt2_remainder );
EXTERNTSCP( scrt2_remainder_v );
EXTERNTSCPP( scrt2__2a_2dtwo );
EXTERNTSCP( scrt2__2a_2dtwo_v );
EXTERNTSCPP( scrt2_quotient );
EXTERNTSCP( scrt2_quotient_v );
EXTERNTSCPP( scrt2__2b_2dtwo );
EXTERNTSCP( scrt2__2b_2dtwo_v );
EXTERNTSCPP( scrt2_abs );
EXTERNTSCP( scrt2_abs_v );
EXTERNTSCPP( scrt6_get_2doutput_2dstring );
EXTERNTSCP( scrt6_get_2doutput_2dstring_v );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
EXTERNTSCPP( gencode_ant_2dlist_82e6441b );
EXTERNTSCP( gencode_ant_2dlist_82e6441b_v );
EXTERNTSCPP( scrt4_vector_2d_3elist );
EXTERNTSCP( scrt4_vector_2d_3elist_v );
TSCP gencode_emit_2dconstant( v1501, c1502 )
TSCP v1501, c1502;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2254 ) ) );
if ( NEQ( TSCPTAG( c1502 ), FIXNUMTAG ) ) goto L2256;
scrt6_display( c1560,
CONS( gencode_bol_2dport_c6b2ebee_v, EMPTYLIST ) );
if ( BITAND( BITOR( INT( c1502 ),
INT( _TSCP( 8 ) ) ),
3 ) ) goto L2259;
X1 = BOOLEAN( GT( INT( c1502 ), INT( _TSCP( 8 ) ) ) );
goto L2260;
L2259:
X1 = scrt2__3e_2dtwo( c1502, _TSCP( 8 ) );
L2260:
if ( TRUE( X1 ) ) goto L2265;
if ( BITAND( BITOR( INT( c1502 ),
INT( _TSCP( -8 ) ) ),
3 ) ) goto L2267;
if ( LT( INT( c1502 ), INT( _TSCP( -8 ) ) ) ) goto L2265;
goto L2272;
L2267:
if ( TRUE( scrt2__3c_2dtwo( c1502, _TSCP( -8 ) ) ) ) goto L2265;
L2272:
if ( BITAND( BITOR( INT( c1502 ),
INT( _TSCP( 40 ) ) ),
3 ) ) goto L2276;
X4 = _TSCP( REMAINDER( INT( c1502 ),
INT( _TSCP( 40 ) ) ) );
goto L2277;
L2276:
X4 = scrt2_remainder( c1502, _TSCP( 40 ) );
L2277:
if ( BITAND( BITOR( INT( _TSCP( 16 ) ), INT( X4 ) ),
3 ) ) goto L2279;
X3 = _TSCP( ITIMES( FIXED_C( _TSCP( 16 ) ),
INT( X4 ) ) );
goto L2280;
L2279:
X3 = scrt2__2a_2dtwo( _TSCP( 16 ), X4 );
L2280:
if ( BITAND( BITOR( INT( X3 ), INT( _TSCP( 40 ) ) ),
3 ) ) goto L2282;
X2 = _TSCP( REMAINDER( INT( X3 ),
INT( _TSCP( 40 ) ) ) );
goto L2283;
L2282:
X2 = scrt2_remainder( X3, _TSCP( 40 ) );
L2283:
scrt6_write( X2,
CONS( gencode_bol_2dport_c6b2ebee_v, EMPTYLIST ) );
goto L2275;
L2265:
if ( BITAND( BITOR( INT( c1502 ),
INT( _TSCP( 40 ) ) ),
3 ) ) goto L2285;
X4 = C_FIXED( QUOTIENT( INT( c1502 ),
INT( _TSCP( 40 ) ) ) );
goto L2286;
L2285:
X4 = scrt2_quotient( c1502, _TSCP( 40 ) );
L2286:
if ( BITAND( BITOR( INT( _TSCP( 16 ) ), INT( X4 ) ),
3 ) ) goto L2288;
X3 = _TSCP( ITIMES( FIXED_C( _TSCP( 16 ) ),
INT( X4 ) ) );
goto L2289;
L2288:
X3 = scrt2__2a_2dtwo( _TSCP( 16 ), X4 );
L2289:
if ( BITAND( BITOR( INT( c1502 ),
INT( _TSCP( 40 ) ) ),
3 ) ) goto L2290;
X6 = _TSCP( REMAINDER( INT( c1502 ),
INT( _TSCP( 40 ) ) ) );
goto L2291;
L2290:
X6 = scrt2_remainder( c1502, _TSCP( 40 ) );
L2291:
if ( BITAND( BITOR( INT( _TSCP( 16 ) ), INT( X6 ) ),
3 ) ) goto L2293;
X5 = _TSCP( ITIMES( FIXED_C( _TSCP( 16 ) ),
INT( X6 ) ) );
goto L2294;
L2293:
X5 = scrt2__2a_2dtwo( _TSCP( 16 ), X6 );
L2294:
if ( BITAND( BITOR( INT( X5 ), INT( _TSCP( 40 ) ) ),
3 ) ) goto L2296;
X4 = C_FIXED( QUOTIENT( INT( X5 ),
INT( _TSCP( 40 ) ) ) );
goto L2297;
L2296:
X4 = scrt2_quotient( X5, _TSCP( 40 ) );
L2297:
if ( BITAND( BITOR( INT( X3 ), INT( X4 ) ),
3 ) ) goto L2299;
X2 = _TSCP( IPLUS( INT( X3 ), INT( X4 ) ) );
goto L2300;
L2299:
X2 = scrt2__2b_2dtwo( X3, X4 );
L2300:
scrt6_write( X2,
CONS( gencode_bol_2dport_c6b2ebee_v, EMPTYLIST ) );
if ( BITAND( BITOR( INT( c1502 ),
INT( _TSCP( 40 ) ) ),
3 ) ) goto L2301;
X5 = _TSCP( REMAINDER( INT( c1502 ),
INT( _TSCP( 40 ) ) ) );
goto L2302;
L2301:
X5 = scrt2_remainder( c1502, _TSCP( 40 ) );
L2302:
if ( BITAND( BITOR( INT( _TSCP( 16 ) ), INT( X5 ) ),
3 ) ) goto L2304;
X4 = _TSCP( ITIMES( FIXED_C( _TSCP( 16 ) ),
INT( X5 ) ) );
goto L2305;
L2304:
X4 = scrt2__2a_2dtwo( _TSCP( 16 ), X5 );
L2305:
if ( BITAND( BITOR( INT( X4 ), INT( _TSCP( 40 ) ) ),
3 ) ) goto L2307;
X3 = _TSCP( REMAINDER( INT( X4 ),
INT( _TSCP( 40 ) ) ) );
goto L2308;
L2307:
X3 = scrt2_remainder( X4, _TSCP( 40 ) );
L2308:
if ( NEQ( TSCPTAG( X3 ), FIXNUMTAG ) ) goto L2310;
if ( LT( INT( X3 ), 0 ) ) goto L2315;
X2 = X3;
goto L2316;
L2310:
X2 = scrt2_abs( X3 );
goto L2316;
L2315:
X2 = _TSCP( INEGATE( INT( X3 ) ) );
L2316:
scrt6_write( X2,
CONS( gencode_bol_2dport_c6b2ebee_v, EMPTYLIST ) );
L2275:
scrt6_display( c1581,
CONS( gencode_bol_2dport_c6b2ebee_v, EMPTYLIST ) );
X1 = scrt6_get_2doutput_2dstring( gencode_bol_2dport_c6b2ebee_v );
POPSTACKTRACE( plist_put( v1501, c1585, X1 ) );
L2256:
if ( NOT( AND( EQ( TSCPTAG( c1502 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( c1502 ), FLOATTAG ) ) )
) goto L2317;
X1 = gencode_make_2dc_2dglobal( );
X3 = CONS( EMPTYLIST, EMPTYLIST );
X3 = CONS( c1502, X3 );
X2 = scrt1_cons_2a( c1588,
CONS( expform_vname( X1 ), X3 ) );
lap_emit_2dglobal_2dlap( X2 );
X3 = CONS( EMPTYLIST, EMPTYLIST );
X3 = CONS( expform_vname( X1 ), X3 );
X2 = scrt1_cons_2a( c1558,
CONS( expform_vname( v1501 ), X3 ) );
POPSTACKTRACE( lap_emit_2dglobal_2dlap( X2 ) );
L2317:
if ( NEQ( TSCPIMMEDIATETAG( c1502 ), CHARACTERTAG ) ) goto L2320;
scrt6_display( c1560,
CONS( gencode_bol_2dport_c6b2ebee_v, EMPTYLIST ) );
X3 = CHAR_FIX( c1502 );
if ( BITAND( BITOR( INT( X3 ),
INT( _TSCP( 1024 ) ) ),
3 ) ) goto L2325;
X2 = _TSCP( ITIMES( FIXED_C( X3 ),
INT( _TSCP( 1024 ) ) ) );
goto L2326;
L2325:
X2 = scrt2__2a_2dtwo( X3, _TSCP( 1024 ) );
L2326:
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 72 ) ) ),
3 ) ) goto L2328;
X1 = _TSCP( IPLUS( INT( X2 ), INT( _TSCP( 72 ) ) ) );
goto L2329;
L2328:
X1 = scrt2__2b_2dtwo( X2, _TSCP( 72 ) );
L2329:
scrt6_write( X1,
CONS( gencode_bol_2dport_c6b2ebee_v, EMPTYLIST ) );
scrt6_display( c1581,
CONS( gencode_bol_2dport_c6b2ebee_v, EMPTYLIST ) );
X1 = scrt6_get_2doutput_2dstring( gencode_bol_2dport_c6b2ebee_v );
POPSTACKTRACE( plist_put( v1501, c1585, X1 ) );
L2320:
if ( NOT( AND( EQ( TSCPTAG( c1502 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( c1502 ), STRINGTAG ) ) )
) goto L2330;
X1 = gencode_make_2dc_2dglobal( );
X3 = CONS( EMPTYLIST, EMPTYLIST );
X3 = CONS( C_FIXED( STRING_LENGTH( c1502 ) ), X3 );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X3 = CONS( scrt1_cons_2a( c1101, CONS( c1502, X4 ) ),
X3 );
X2 = scrt1_cons_2a( c1531,
CONS( expform_vname( X1 ), X3 ) );
lap_emit_2dglobal_2dlap( X2 );
X3 = CONS( EMPTYLIST, EMPTYLIST );
X3 = CONS( expform_vname( X1 ), X3 );
X2 = scrt1_cons_2a( c1558,
CONS( expform_vname( v1501 ), X3 ) );
POPSTACKTRACE( lap_emit_2dglobal_2dlap( X2 ) );
L2330:
if ( NOT( AND( EQ( TSCPTAG( c1502 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( c1502 ), SYMBOLTAG ) ) )
) goto L2334;
X1 = gencode_make_2dc_2dglobal( );
X3 = CONS( EMPTYLIST, EMPTYLIST );
X4 = SYMBOL_NAME( c1502 );
if ( AND( EQ( TSCPTAG( X4 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X4 ), STRINGTAG ) ) ) goto L2339;
scrt6_error( c1542, c1543, CONS( X4, EMPTYLIST ) );
L2339:
X3 = CONS( C_FIXED( STRING_LENGTH( X4 ) ), X3 );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X3 = CONS( scrt1_cons_2a( c1101,
CONS( SYMBOL_NAME( c1502 ), X4 ) ),
X3 );
X2 = scrt1_cons_2a( c1531,
CONS( expform_vname( X1 ), X3 ) );
lap_emit_2dglobal_2dlap( X2 );
X3 = CONS( EMPTYLIST, EMPTYLIST );
X2 = scrt1_cons_2a( c1527,
CONS( expform_vname( v1501 ), X3 ) );
lap_emit_2dglobal_2dlap( X2 );
X3 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X6 = CONS( EMPTYLIST, EMPTYLIST );
X3 = CONS( scrt1_cons_2a( c1548,
CONS( scrt1_cons_2a( c1549,
CONS( scrt1_cons_2a( c1484,
CONS( expform_vname( X1 ),
X6 ) ),
X5 ) ),
X4 ) ),
X3 );
X2 = scrt1_cons_2a( c1519,
CONS( expform_vname( v1501 ), X3 ) );
lap_emit_2dlap( X2 );
X4 = sc_cons( v1501, EMPTYLIST );
X3 = sc_cons( c1502, X4 );
X2 = X3;
POPSTACKTRACE( SET( gencode_constant_2dsymbols_v,
sc_cons( X2, gencode_constant_2dsymbols_v ) ) );
L2334:
if ( NEQ( TSCPTAG( c1502 ), PAIRTAG ) ) goto L2343;
X1 = plist_get( v1501, c1223 );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1386 ) ) ) goto L2346;
X2 = CONS( EMPTYLIST, EMPTYLIST );
X1 = scrt1_cons_2a( c1527,
CONS( expform_vname( v1501 ), X2 ) );
lap_emit_2dglobal_2dlap( X1 );
L2346:
X1 = expform_vname( v1501 );
POPSTACKTRACE( gencode_ant_2dlist_82e6441b( X1, c1502 ) );
L2343:
if ( NOT( AND( EQ( TSCPTAG( c1502 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( c1502 ), VECTORTAG ) ) )
) goto L2348;
X1 = scrt4_vector_2d_3elist( c1502 );
gencode_emit_2dconstant( v1501, X1 );
X2 = CONS( EMPTYLIST, EMPTYLIST );
X3 = CONS( EMPTYLIST, EMPTYLIST );
X2 = CONS( scrt1_cons_2a( c1520,
CONS( expform_vname( v1501 ),
X3 ) ),
X2 );
X1 = scrt1_cons_2a( c1519,
CONS( expform_vname( v1501 ), X2 ) );
POPSTACKTRACE( lap_emit_2dlap( X1 ) );
L2348:
X1 = SYMBOL_VALUE( report_2derror_v );
X1 = UNKNOWNCALL( X1, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( c1517,
c1502,
PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( gencode_ant_2dlist_82e6441b_v );
DEFSTRING( t2351, "EMIT-CONSTANT-LIST", 18 );
EXTERNTSCPP( gencode__2delement_28e1d5cf );
EXTERNTSCP( gencode__2delement_28e1d5cf_v );
TSCP gencode_ant_2dlist_82e6441b( v1699, c1700 )
TSCP v1699, c1700;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2351 ) ) );
if ( NEQ( TSCPTAG( c1700 ), PAIRTAG ) ) goto L2353;
X1 = PAIR_CDR( c1700 );
gencode_ant_2dlist_82e6441b( v1699, X1 );
X2 = CONS( EMPTYLIST, EMPTYLIST );
X3 = CONS( EMPTYLIST, EMPTYLIST );
X3 = CONS( v1699, X3 );
X4 = PAIR_CAR( c1700 );
X2 = CONS( scrt1_cons_2a( c1709,
CONS( gencode__2delement_28e1d5cf( X4 ),
X3 ) ),
X2 );
X1 = scrt1_cons_2a( c1519, CONS( v1699, X2 ) );
POPSTACKTRACE( lap_emit_2dlap( X1 ) );
L2353:
X2 = CONS( EMPTYLIST, EMPTYLIST );
X2 = CONS( gencode__2delement_28e1d5cf( c1700 ), X2 );
X1 = scrt1_cons_2a( c1519, CONS( v1699, X2 ) );
POPSTACKTRACE( lap_emit_2dlap( X1 ) );
}
DEFTSCP( gencode__2delement_28e1d5cf_v );
DEFSTRING( t2358, "EMIT-CONSTANT-ELEMENT", 21 );
EXTERNTSCP( sc_emptystring );
EXTERNTSCP( sc_emptyvector );
EXTERNTSCPP( lap_use_2dlap_2dtemp );
EXTERNTSCP( lap_use_2dlap_2dtemp_v );
EXTERNTSCPP( lap_drop_2dlap_2dtemp );
EXTERNTSCP( lap_drop_2dlap_2dtemp_v );
TSCP gencode__2delement_28e1d5cf( c1715 )
TSCP c1715;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2358 ) ) );
if ( EQ( UNSIGNED( c1715 ), UNSIGNED( TRUEVALUE ) ) ) goto L2360;
if ( EQ( UNSIGNED( c1715 ), UNSIGNED( EMPTYLIST ) ) ) goto L2362;
if ( EQ( UNSIGNED( c1715 ),
UNSIGNED( FALSEVALUE ) ) ) goto L2364;
if ( TRUE( scrt1_equal_3f( c1715, sc_emptystring ) )
) goto L2366;
if ( TRUE( scrt1_equal_3f( c1715, sc_emptyvector ) )
) goto L2368;
X1 = BOOLEAN( EQ( TSCPTAG( c1715 ), FIXNUMTAG ) );
if ( TRUE( X1 ) ) goto L2374;
if ( EQ( TSCPIMMEDIATETAG( c1715 ), CHARACTERTAG ) ) goto L2374;
if ( NEQ( TSCPTAG( c1715 ), PAIRTAG ) ) goto L2377;
X2 = lap_use_2dlap_2dtemp( );
X3 = expform_vname( X2 );
gencode_ant_2dlist_82e6441b( X3, c1715 );
lap_drop_2dlap_2dtemp( X2 );
POPSTACKTRACE( plist_get( X2, c1585 ) );
L2377:
if ( NOT( AND( EQ( TSCPTAG( c1715 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( c1715 ), VECTORTAG ) ) )
) goto L2380;
X2 = lap_use_2dlap_2dtemp( );
gencode_emit_2dconstant( X2, c1715 );
lap_drop_2dlap_2dtemp( X2 );
POPSTACKTRACE( plist_get( X2, c1585 ) );
L2380:
if ( NOT( AND( EQ( TSCPTAG( c1715 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( c1715 ), SYMBOLTAG ) ) )
) goto L2383;
X2 = scrt1_assq( c1715, gencode_constant_2dsymbols_v );
goto L2384;
L2383:
X2 = FALSEVALUE;
L2384:
if ( FALSE( X2 ) ) goto L2386;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2389;
scrt1__24__cdr_2derror( X2 );
L2389:
X4 = PAIR_CDR( X2 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2392;
scrt1__24__car_2derror( X4 );
L2392:
X3 = PAIR_CAR( X4 );
POPSTACKTRACE( expform_vname( X3 ) );
L2386:
X3 = gencode_make_2dc_2dglobal( );
gencode_emit_2dconstant( X3, c1715 );
POPSTACKTRACE( plist_get( X3, c1585 ) );
L2368:
POPSTACKTRACE( c1770 );
L2366:
POPSTACKTRACE( c1771 );
L2364:
POPSTACKTRACE( c1772 );
L2362:
POPSTACKTRACE( c1773 );
L2360:
POPSTACKTRACE( c1774 );
L2374:
POPSTACKTRACE( gencode_emit_2dconstant( c1769, c1715 ) );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt4__init();
scrt6__init();
scrt5__init();
scrt2__init();
plist__init();
scrt1__init();
expform__init();
lap__init();
scrt3__init();
MAXDISPLAY( 0 );
}
void gencode__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(gencode SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t2041 ) ),
ADR( gencode_e_2dlambda_7a3ae383_v ),
c1048 );
INITIALIZEVAR( U_TX( ADR( t2042 ) ),
ADR( gencode_e_2dstring_8ca45c6a_v ),
EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t2043 ) ),
ADR( gencode_init_2dmodules_v ),
EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t2044 ) ),
ADR( gencode_free_2ddisplay_v ),
_TSCP( 0 ) );
INITIALIZEVAR( U_TX( ADR( t2045 ) ),
ADR( gencode_max_2ddisplay_v ),
_TSCP( 0 ) );
INITIALIZEVAR( U_TX( ADR( t2046 ) ),
ADR( gencode_ion_2dinfo_cc47b64b_v ),
c1055 );
INITIALIZEVAR( U_TX( ADR( t2047 ) ),
ADR( gencode_ion_2dinfo_f92fd619_v ),
gencode_ion_2dinfo_cc47b64b_v );
INITIALIZEVAR( U_TX( ADR( t2048 ) ),
ADR( gencode_error_2did_v ), FALSEVALUE );
INITIALIZEVAR( U_TX( ADR( t2049 ) ),
ADR( gencode__24__car_2derror_2did_v ),
FALSEVALUE );
INITIALIZEVAR( U_TX( ADR( t2050 ) ),
ADR( gencode__24__cdr_2derror_2did_v ),
FALSEVALUE );
INITIALIZEVAR( U_TX( ADR( t2051 ) ),
ADR( gencode_generate_2dcode_v ),
MAKEPROCEDURE( 1,
0,
gencode_generate_2dcode,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2086 ) ),
ADR( gencode_exp_2dgenc_v ),
MAKEPROCEDURE( 3,
0,
gencode_exp_2dgenc, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2120 ) ),
ADR( gencode_make_2dlabel_v ),
MAKEPROCEDURE( 0,
0,
gencode_make_2dlabel, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2122 ) ),
ADR( gencode_code_2dlabel_v ),
MAKEPROCEDURE( 1,
0,
gencode_code_2dlabel, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2128 ) ),
ADR( gencode_make_2dc_2dglobal_v ),
MAKEPROCEDURE( 0,
0,
gencode_make_2dc_2dglobal,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2130 ) ),
ADR( gencode_optional_2dargs_v ),
MAKEPROCEDURE( 1,
0,
gencode_optional_2dargs,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2137 ) ),
ADR( gencode_lookup_v ),
MAKEPROCEDURE( 2,
0, gencode_lookup, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2164 ) ),
ADR( gencode_var_2din_2dstack_v ),
MAKEPROCEDURE( 1,
0,
gencode_var_2din_2dstack,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2166 ) ),
ADR( gencode_var_2dis_2dglobal_v ),
MAKEPROCEDURE( 1,
0,
gencode_var_2dis_2dglobal,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2168 ) ),
ADR( gencode_emit_2dextern_v ),
MAKEPROCEDURE( 1,
0,
gencode_emit_2dextern, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2204 ) ),
ADR( gencode_var_2dis_2dconstant_v ),
MAKEPROCEDURE( 1,
0,
gencode_var_2dis_2dconstant,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2206 ) ),
ADR( gencode_op_2dlevel_343ff0cb_v ),
MAKEPROCEDURE( 1,
0,
gencode_op_2dlevel_343ff0cb,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2208 ) ),
ADR( gencode_t__modules_bfe186ca_v ),
MAKEPROCEDURE( 0,
0,
gencode_t__modules_bfe186ca,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2222 ) ),
ADR( gencode_constant_2dsymbols_v ),
EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t2223 ) ),
ADR( gencode_bol_2dport_c6b2ebee_v ),
EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t2224 ) ),
ADR( gencode_emit_2dconstants_v ),
MAKEPROCEDURE( 0,
0,
gencode_emit_2dconstants,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2254 ) ),
ADR( gencode_emit_2dconstant_v ),
MAKEPROCEDURE( 2,
0,
gencode_emit_2dconstant,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2351 ) ),
ADR( gencode_ant_2dlist_82e6441b_v ),
MAKEPROCEDURE( 2,
0,
gencode_ant_2dlist_82e6441b,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2358 ) ),
ADR( gencode__2delement_28e1d5cf_v ),
MAKEPROCEDURE( 1,
0,
gencode__2delement_28e1d5cf,
EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.