This is scdebug.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t1598, "~%***** INTERRUPT *****~%", 25 );
DEFSTATICTSCP2( c1566, t1598 );
DEFSTRING( t1599, "ERROR", 5 );
DEFSTATICTSCP2( c1560, t1599 );
DEFSTRING( t1600, ">> ", 3 );
DEFSTATICTSCP2( c1559, t1600 );
DEFSTRING( t1601, "***** ~a ", 9 );
DEFSTATICTSCP2( c1552, t1601 );
DEFSTATICTSCP( c1540 );
DEFSTRING( t1603, "ENV-19", 6 );
DEFSTATICTSCP( t1602 );
DEFSTRING( t1605, "ENV-18", 6 );
DEFSTATICTSCP( t1604 );
DEFSTRING( t1607, "ENV-17", 6 );
DEFSTATICTSCP( t1606 );
DEFSTRING( t1609, "ENV-16", 6 );
DEFSTATICTSCP( t1608 );
DEFSTRING( t1611, "ENV-15", 6 );
DEFSTATICTSCP( t1610 );
DEFSTRING( t1613, "ENV-14", 6 );
DEFSTATICTSCP( t1612 );
DEFSTRING( t1615, "ENV-13", 6 );
DEFSTATICTSCP( t1614 );
DEFSTRING( t1617, "ENV-12", 6 );
DEFSTATICTSCP( t1616 );
DEFSTRING( t1619, "ENV-11", 6 );
DEFSTATICTSCP( t1618 );
DEFSTRING( t1621, "ENV-10", 6 );
DEFSTATICTSCP( t1620 );
DEFSTRING( t1623, "ENV-9", 5 );
DEFSTATICTSCP( t1622 );
DEFSTRING( t1625, "ENV-8", 5 );
DEFSTATICTSCP( t1624 );
DEFSTRING( t1627, "ENV-7", 5 );
DEFSTATICTSCP( t1626 );
DEFSTRING( t1629, "ENV-6", 5 );
DEFSTATICTSCP( t1628 );
DEFSTRING( t1631, "ENV-5", 5 );
DEFSTATICTSCP( t1630 );
DEFSTRING( t1633, "ENV-4", 5 );
DEFSTATICTSCP( t1632 );
DEFSTRING( t1635, "ENV-3", 5 );
DEFSTATICTSCP( t1634 );
DEFSTRING( t1637, "ENV-2", 5 );
DEFSTATICTSCP( t1636 );
DEFSTRING( t1639, "ENV-1", 5 );
DEFSTATICTSCP( t1638 );
DEFSTRING( t1641, "ENV-0", 5 );
DEFSTATICTSCP( t1640 );
DEFSTRING( t1642, "ENV-0", 5 );
DEFSTATICTSCP( c1538 );
DEFSTRING( t1643, " in ", 4 );
DEFSTATICTSCP2( c1515, t1643 );
DEFSTRING( t1644, " ...", 4 );
DEFSTATICTSCP2( c1514, t1644 );
DEFSTRING( t1645, "Argument is not a STRING: ~s", 28 );
DEFSTATICTSCP2( c1512, t1645 );
DEFSTRING( t1646, "STRING-LENGTH", 13 );
DEFSTATICTSCP( c1511 );
DEFSTRING( t1647, " ...)", 5 );
DEFSTATICTSCP2( c1489, t1647 );
DEFSTRING( t1648, "(", 1 );
DEFSTATICTSCP2( c1488, t1648 );
DEFSTATICTSCP( c1484 );
DEFSTRING( t1650, "LOOP [inside EXEC]", 18 );
DEFSTATICTSCP2( t1649, t1650 );
DEFSTRING( t1652, "SCEVAL_INTERPRETED-PROC", 23 );
DEFSTATICTSCP2( t1651, t1652 );
DEFSTRING( t1653, "~s is not breakpointed", 22 );
DEFSTATICTSCP2( c1373, t1653 );
DEFSTRING( t1654, "DOUNBPT", 7 );
DEFSTATICTSCP( c1368 );
DEFSTRING( t1655, "UNBPT", 5 );
DEFSTATICTSCP( c1307 );
DEFSTRING( t1656, "~s- ", 4 );
DEFSTATICTSCP2( c1306, t1656 );
DEFSTRING( t1657, "RESULT", 6 );
DEFSTATICTSCP( c1305 );
DEFSTRING( t1658, "~s -returns- ~s", 15 );
DEFSTATICTSCP2( c1304, t1658 );
DEFSTRING( t1659, "READ-EVAL-PRINT", 15 );
DEFSTATICTSCP2( c1290, t1659 );
DEFSTRING( t1660, "ENV", 3 );
DEFSTATICTSCP( c1289 );
DEFSTRING( t1661, "PROMPT", 6 );
DEFSTATICTSCP( c1288 );
DEFSTRING( t1662, "~%~s -calls - ~s", 17 );
DEFSTATICTSCP2( c1287, t1662 );
DEFSTRING( t1663, "HEADER", 6 );
DEFSTATICTSCP( c1286 );
DEFSTATICTSCP( c1246 );
DEFSTRING( t1665, "BPT-PROCS", 9 );
DEFSTATICTSCP( t1664 );
DEFSTRING( t1667, "X", 1 );
DEFSTATICTSCP( t1666 );
DEFSTRING( t1669, "CAR", 3 );
DEFSTATICTSCP( t1668 );
DEFSTRING( t1671, "LAMBDA", 6 );
DEFSTATICTSCP( t1670 );
DEFSTRING( t1673, "MAP", 3 );
DEFSTATICTSCP( t1672 );
DEFSTRING( t1674, "LIST", 4 );
DEFSTATICTSCP( c1231 );
DEFSTRING( t1675, "DOBPT", 5 );
DEFSTATICTSCP( c1230 );
DEFSTRING( t1676, "APPLY", 5 );
DEFSTATICTSCP( c1229 );
DEFSTRING( t1677, "Illegal arguments", 17 );
DEFSTATICTSCP2( c1226, t1677 );
DEFSTRING( t1678, "BPT", 3 );
DEFSTATICTSCP( c1210 );
DEFSTRING( t1679, "~s is not traced", 16 );
DEFSTATICTSCP2( c1195, t1679 );
DEFSTRING( t1680, "DOUNTRACE", 9 );
DEFSTATICTSCP( c1190 );
DEFSTRING( t1681, "Argument not a PAIR: ~s", 23 );
DEFSTATICTSCP2( c1175, t1681 );
DEFSTRING( t1682, "SET-CDR!", 8 );
DEFSTATICTSCP( c1174 );
DEFSTRING( t1683, "UNTRACE", 7 );
DEFSTATICTSCP( c1127 );
DEFSTRING( t1684, "==> ", 4 );
DEFSTATICTSCP2( c1126, t1684 );
DEFSTRING( t1685, "~a~a~s~%", 8 );
DEFSTATICTSCP2( c1113, t1685 );
DEFSTRING( t1686, "~a~s~%", 6 );
DEFSTATICTSCP2( c1082, t1686 );
DEFSTRING( t1687, "~s is already traced", 20 );
DEFSTATICTSCP2( c1073, t1687 );
DEFSTRING( t1688, "Argument is not a PROCEDURE name", 32 );
DEFSTATICTSCP2( c1072, t1688 );
DEFSTRING( t1689, "QUOTE", 5 );
DEFSTATICTSCP( c1057 );
DEFSTRING( t1690, "DOTRACE", 7 );
DEFSTATICTSCP( c1056 );
DEFSTRING( t1691, "F", 1 );
DEFSTATICTSCP( c1055 );
DEFSTRING( t1692, "LAMBDA", 6 );
DEFSTATICTSCP( c1054 );
DEFSTRING( t1693, "MAP", 3 );
DEFSTATICTSCP( c1053 );
DEFSTATICTSCP( c1052 );
DEFSTRING( t1695, "TRACED-PROCS", 12 );
DEFSTATICTSCP( t1694 );
DEFSTRING( t1696, "TRACE", 5 );
DEFSTATICTSCP( c1044 );
static void init_constants()
{
TSCP X2, X1;
c1540 = EMPTYLIST;
t1602 = STRINGTOSYMBOL( U_TX( ADR( t1603 ) ) );
c1540 = CONS( t1602, c1540 );
t1604 = STRINGTOSYMBOL( U_TX( ADR( t1605 ) ) );
c1540 = CONS( t1604, c1540 );
t1606 = STRINGTOSYMBOL( U_TX( ADR( t1607 ) ) );
c1540 = CONS( t1606, c1540 );
t1608 = STRINGTOSYMBOL( U_TX( ADR( t1609 ) ) );
c1540 = CONS( t1608, c1540 );
t1610 = STRINGTOSYMBOL( U_TX( ADR( t1611 ) ) );
c1540 = CONS( t1610, c1540 );
t1612 = STRINGTOSYMBOL( U_TX( ADR( t1613 ) ) );
c1540 = CONS( t1612, c1540 );
t1614 = STRINGTOSYMBOL( U_TX( ADR( t1615 ) ) );
c1540 = CONS( t1614, c1540 );
t1616 = STRINGTOSYMBOL( U_TX( ADR( t1617 ) ) );
c1540 = CONS( t1616, c1540 );
t1618 = STRINGTOSYMBOL( U_TX( ADR( t1619 ) ) );
c1540 = CONS( t1618, c1540 );
t1620 = STRINGTOSYMBOL( U_TX( ADR( t1621 ) ) );
c1540 = CONS( t1620, c1540 );
t1622 = STRINGTOSYMBOL( U_TX( ADR( t1623 ) ) );
c1540 = CONS( t1622, c1540 );
t1624 = STRINGTOSYMBOL( U_TX( ADR( t1625 ) ) );
c1540 = CONS( t1624, c1540 );
t1626 = STRINGTOSYMBOL( U_TX( ADR( t1627 ) ) );
c1540 = CONS( t1626, c1540 );
t1628 = STRINGTOSYMBOL( U_TX( ADR( t1629 ) ) );
c1540 = CONS( t1628, c1540 );
t1630 = STRINGTOSYMBOL( U_TX( ADR( t1631 ) ) );
c1540 = CONS( t1630, c1540 );
t1632 = STRINGTOSYMBOL( U_TX( ADR( t1633 ) ) );
c1540 = CONS( t1632, c1540 );
t1634 = STRINGTOSYMBOL( U_TX( ADR( t1635 ) ) );
c1540 = CONS( t1634, c1540 );
t1636 = STRINGTOSYMBOL( U_TX( ADR( t1637 ) ) );
c1540 = CONS( t1636, c1540 );
t1638 = STRINGTOSYMBOL( U_TX( ADR( t1639 ) ) );
c1540 = CONS( t1638, c1540 );
t1640 = STRINGTOSYMBOL( U_TX( ADR( t1641 ) ) );
c1540 = CONS( t1640, c1540 );
CONSTANTEXP( ADR( c1540 ) );
c1538 = STRINGTOSYMBOL( U_TX( ADR( t1642 ) ) );
CONSTANTEXP( ADR( c1538 ) );
c1511 = STRINGTOSYMBOL( U_TX( ADR( t1646 ) ) );
CONSTANTEXP( ADR( c1511 ) );
c1484 = EMPTYLIST;
c1484 = CONS( t1649, c1484 );
c1484 = CONS( t1651, c1484 );
CONSTANTEXP( ADR( c1484 ) );
c1368 = STRINGTOSYMBOL( U_TX( ADR( t1654 ) ) );
CONSTANTEXP( ADR( c1368 ) );
c1307 = STRINGTOSYMBOL( U_TX( ADR( t1655 ) ) );
CONSTANTEXP( ADR( c1307 ) );
c1305 = STRINGTOSYMBOL( U_TX( ADR( t1657 ) ) );
CONSTANTEXP( ADR( c1305 ) );
c1289 = STRINGTOSYMBOL( U_TX( ADR( t1660 ) ) );
CONSTANTEXP( ADR( c1289 ) );
c1288 = STRINGTOSYMBOL( U_TX( ADR( t1661 ) ) );
CONSTANTEXP( ADR( c1288 ) );
c1286 = STRINGTOSYMBOL( U_TX( ADR( t1663 ) ) );
CONSTANTEXP( ADR( c1286 ) );
c1246 = EMPTYLIST;
t1664 = STRINGTOSYMBOL( U_TX( ADR( t1665 ) ) );
c1246 = CONS( t1664, c1246 );
X1 = EMPTYLIST;
X2 = EMPTYLIST;
t1666 = STRINGTOSYMBOL( U_TX( ADR( t1667 ) ) );
X2 = CONS( t1666, X2 );
t1668 = STRINGTOSYMBOL( U_TX( ADR( t1669 ) ) );
X2 = CONS( t1668, X2 );
X1 = CONS( X2, X1 );
X2 = EMPTYLIST;
X2 = CONS( t1666, X2 );
X1 = CONS( X2, X1 );
t1670 = STRINGTOSYMBOL( U_TX( ADR( t1671 ) ) );
X1 = CONS( t1670, X1 );
c1246 = CONS( X1, c1246 );
t1672 = STRINGTOSYMBOL( U_TX( ADR( t1673 ) ) );
c1246 = CONS( t1672, c1246 );
CONSTANTEXP( ADR( c1246 ) );
c1231 = STRINGTOSYMBOL( U_TX( ADR( t1674 ) ) );
CONSTANTEXP( ADR( c1231 ) );
c1230 = STRINGTOSYMBOL( U_TX( ADR( t1675 ) ) );
CONSTANTEXP( ADR( c1230 ) );
c1229 = STRINGTOSYMBOL( U_TX( ADR( t1676 ) ) );
CONSTANTEXP( ADR( c1229 ) );
c1210 = STRINGTOSYMBOL( U_TX( ADR( t1678 ) ) );
CONSTANTEXP( ADR( c1210 ) );
c1190 = STRINGTOSYMBOL( U_TX( ADR( t1680 ) ) );
CONSTANTEXP( ADR( c1190 ) );
c1174 = STRINGTOSYMBOL( U_TX( ADR( t1682 ) ) );
CONSTANTEXP( ADR( c1174 ) );
c1127 = STRINGTOSYMBOL( U_TX( ADR( t1683 ) ) );
CONSTANTEXP( ADR( c1127 ) );
c1057 = STRINGTOSYMBOL( U_TX( ADR( t1689 ) ) );
CONSTANTEXP( ADR( c1057 ) );
c1056 = STRINGTOSYMBOL( U_TX( ADR( t1690 ) ) );
CONSTANTEXP( ADR( c1056 ) );
c1055 = STRINGTOSYMBOL( U_TX( ADR( t1691 ) ) );
CONSTANTEXP( ADR( c1055 ) );
c1054 = STRINGTOSYMBOL( U_TX( ADR( t1692 ) ) );
CONSTANTEXP( ADR( c1054 ) );
c1053 = STRINGTOSYMBOL( U_TX( ADR( t1693 ) ) );
CONSTANTEXP( ADR( c1053 ) );
c1052 = EMPTYLIST;
t1694 = STRINGTOSYMBOL( U_TX( ADR( t1695 ) ) );
c1052 = CONS( t1694, c1052 );
X1 = EMPTYLIST;
X2 = EMPTYLIST;
X2 = CONS( t1666, X2 );
X2 = CONS( t1668, X2 );
X1 = CONS( X2, X1 );
X2 = EMPTYLIST;
X2 = CONS( t1666, X2 );
X1 = CONS( X2, X1 );
X1 = CONS( c1054, X1 );
c1052 = CONS( X1, c1052 );
c1052 = CONS( c1053, c1052 );
CONSTANTEXP( ADR( c1052 ) );
c1044 = STRINGTOSYMBOL( U_TX( ADR( t1696 ) ) );
CONSTANTEXP( ADR( c1044 ) );
}
DEFTSCP( scdebug_trace_2dlevel_v );
DEFSTRING( t1697, "SCDEBUG_TRACE-LEVEL", 19 );
DEFTSCP( scdebug_traced_2dprocs_v );
DEFSTRING( t1698, "TRACED-PROCS", 12 );
DEFTSCP( scdebug_bpt_2dprocs_v );
DEFSTRING( t1699, "BPT-PROCS", 9 );
DEFTSCP( scdebug__2aargs_2a_v );
DEFSTRING( t1700, "*ARGS*", 6 );
DEFTSCP( scdebug__2aresult_2a_v );
DEFSTRING( t1701, "*RESULT*", 8 );
EXTERNTSCPP( scexpand_install_2dexpander );
EXTERNTSCP( scexpand_install_2dexpander_v );
DEFSTRING( t1702, "scdebug_l1045 [inside TOP-LEVEL]", 32 );
EXTERNTSCPP( scrt1__24__cdr_2derror );
EXTERNTSCP( scrt1__24__cdr_2derror_v );
EXTERNTSCPP( scrt1_cons_2a );
EXTERNTSCP( scrt1_cons_2a_v );
TSCP scdebug_l1045( x1046, e1047 )
TSCP x1046, e1047;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1702 ) ) );
if ( EQ( TSCPTAG( x1046 ), PAIRTAG ) ) goto L1705;
scrt1__24__cdr_2derror( x1046 );
L1705:
if ( FALSE( PAIR_CDR( x1046 ) ) ) goto L1707;
X1 = CONS( EMPTYLIST, EMPTYLIST );
X2 = CONS( EMPTYLIST, EMPTYLIST );
X1 = CONS( scrt1_cons_2a( c1057,
CONS( PAIR_CDR( x1046 ), X2 ) ),
X1 );
X2 = CONS( EMPTYLIST, EMPTYLIST );
X3 = CONS( EMPTYLIST, EMPTYLIST );
X2 = CONS( scrt1_cons_2a( c1056, CONS( c1055, X3 ) ),
X2 );
POPSTACKTRACE( scrt1_cons_2a( c1053,
CONS( scrt1_cons_2a( c1054,
CONS( scrt1_cons_2a( c1055,
CONS( EMPTYLIST,
EMPTYLIST ) ),
X2 ) ),
X1 ) ) );
L1707:
POPSTACKTRACE( c1052 );
}
DEFTSCP( scdebug_dotrace_v );
DEFSTRING( t1710, "DOTRACE", 7 );
EXTERNTSCPP( scrt1_assoc );
EXTERNTSCP( scrt1_assoc_v );
EXTERNTSCPP( scdebug_dountrace );
EXTERNTSCP( scdebug_dountrace_v );
EXTERNTSCPP( scdebug_dounbpt );
EXTERNTSCP( scdebug_dounbpt_v );
EXTERNTSCPP( scrt2_top_2dlevel_2dvalue );
EXTERNTSCP( scrt2_top_2dlevel_2dvalue_v );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
EXTERNTSCPP( scdebug_tracer );
EXTERNTSCP( scdebug_tracer_v );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
EXTERNTSCPP( scrt2_2dvalue_21_c9d2a496 );
EXTERNTSCP( scrt2_2dvalue_21_c9d2a496_v );
TSCP scdebug_dotrace( n1064 )
TSCP n1064;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1710 ) ) );
if ( FALSE( scrt1_assoc( n1064, scdebug_traced_2dprocs_v ) )
) goto L1712;
scdebug_dountrace( n1064 );
L1712:
if ( FALSE( scrt1_assoc( n1064, scdebug_bpt_2dprocs_v ) )
) goto L1714;
scdebug_dounbpt( n1064 );
L1714:
X1 = FALSEVALUE;
X2 = scrt2_top_2dlevel_2dvalue( n1064 );
X1 = CONS( X1, EMPTYLIST );
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), PROCEDURETAG ) )
) goto L1717;
scrt6_error( c1044, c1072, EMPTYLIST );
L1717:
if ( FALSE( scrt1_assoc( n1064, scdebug_traced_2dprocs_v ) )
) goto L1719;
scrt6_error( c1044,
c1073, CONS( n1064, EMPTYLIST ) );
L1719:
X3 = scdebug_tracer( n1064, X2 );
SETGEN( PAIR_CAR( X1 ), X3 );
X6 = sc_cons( PAIR_CAR( X1 ), EMPTYLIST );
X5 = sc_cons( X2, X6 );
X4 = sc_cons( n1064, X5 );
X3 = X4;
scdebug_traced_2dprocs_v = sc_cons( X3,
scdebug_traced_2dprocs_v );
scrt2_2dvalue_21_c9d2a496( n1064, PAIR_CAR( X1 ) );
POPSTACKTRACE( n1064 );
}
DEFTSCP( scdebug_tracer_v );
DEFSTRING( t1722, "TRACER", 6 );
DEFSTRING( t1725, "scdebug_l1080 [inside TRACER]", 29 );
EXTERNTSCPP( scrt6_format );
EXTERNTSCP( scrt6_format_v );
EXTERNTSCP( scrt5_stdout_2dport_v );
EXTERNTSCPP( sc_make_2dstring );
EXTERNTSCP( sc_make_2dstring_v );
EXTERNTSCPP( scrt2_min_2dtwo );
EXTERNTSCP( scrt2_min_2dtwo_v );
EXTERNTSCPP( scrt2__2a_2dtwo );
EXTERNTSCP( scrt2__2a_2dtwo_v );
EXTERNTSCPP( scrt2__2b_2dtwo );
EXTERNTSCP( scrt2__2b_2dtwo_v );
EXTERNTSCPP( sc_apply_2dtwo );
EXTERNTSCP( sc_apply_2dtwo_v );
EXTERNTSCPP( scrt2__2d_2dtwo );
EXTERNTSCP( scrt2__2d_2dtwo_v );
TSCP scdebug_l1080( x1081, c1724 )
TSCP x1081, c1724;
{
TSCP X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1725 ) ) );
X1 = DISPLAY( 0 );
DISPLAY( 0 ) = CLOSURE_VAR( c1724, 0 );
X2 = DISPLAY( 1 );
DISPLAY( 1 ) = CLOSURE_VAR( c1724, 1 );
X4 = CONS( sc_cons( DISPLAY( 0 ), x1081 ),
EMPTYLIST );
X7 = scdebug_trace_2dlevel_v;
if ( BITAND( BITOR( INT( X7 ), INT( _TSCP( 60 ) ) ),
3 ) ) goto L1728;
if ( GTE( INT( X7 ), INT( _TSCP( 60 ) ) ) ) goto L1730;
X6 = X7;
goto L1729;
L1730:
X6 = _TSCP( 60 );
goto L1729;
L1728:
X6 = scrt2_min_2dtwo( X7, _TSCP( 60 ) );
L1729:
if ( BITAND( BITOR( INT( _TSCP( 8 ) ), INT( X6 ) ),
3 ) ) goto L1733;
X5 = _TSCP( ITIMES( FIXED_C( _TSCP( 8 ) ),
INT( X6 ) ) );
goto L1734;
L1733:
X5 = scrt2__2a_2dtwo( _TSCP( 8 ), X6 );
L1734:
X4 = CONS( sc_make_2dstring( X5,
CONS( _TSCP( 8210 ), EMPTYLIST ) ),
X4 );
scrt6_format( scrt5_stdout_2dport_v,
CONS( c1082, X4 ) );
X4 = scdebug_trace_2dlevel_v;
if ( BITAND( BITOR( INT( X4 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L1736;
X5 = _TSCP( IPLUS( INT( X4 ), INT( _TSCP( 4 ) ) ) );
goto L1737;
L1736:
X5 = scrt2__2b_2dtwo( X4, _TSCP( 4 ) );
L1737:
scdebug_trace_2dlevel_v = X5;
X4 = sc_apply_2dtwo( DISPLAY( 1 ), x1081 );
X5 = scdebug_trace_2dlevel_v;
if ( BITAND( BITOR( INT( X5 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L1740;
X6 = _TSCP( IDIFFERENCE( INT( X5 ),
INT( _TSCP( 4 ) ) ) );
goto L1741;
L1740:
X6 = scrt2__2d_2dtwo( X5, _TSCP( 4 ) );
L1741:
scdebug_trace_2dlevel_v = X6;
X5 = CONS( X4, EMPTYLIST );
X5 = CONS( c1126, X5 );
X8 = scdebug_trace_2dlevel_v;
if ( BITAND( BITOR( INT( X8 ), INT( _TSCP( 60 ) ) ),
3 ) ) goto L1743;
if ( GTE( INT( X8 ), INT( _TSCP( 60 ) ) ) ) goto L1745;
X7 = X8;
goto L1744;
L1745:
X7 = _TSCP( 60 );
goto L1744;
L1743:
X7 = scrt2_min_2dtwo( X8, _TSCP( 60 ) );
L1744:
if ( BITAND( BITOR( INT( _TSCP( 8 ) ), INT( X7 ) ),
3 ) ) goto L1748;
X6 = _TSCP( ITIMES( FIXED_C( _TSCP( 8 ) ),
INT( X7 ) ) );
goto L1749;
L1748:
X6 = scrt2__2a_2dtwo( _TSCP( 8 ), X7 );
L1749:
X5 = CONS( sc_make_2dstring( X6,
CONS( _TSCP( 8210 ), EMPTYLIST ) ),
X5 );
scrt6_format( scrt5_stdout_2dport_v,
CONS( c1113, X5 ) );
X3 = X4;
DISPLAY( 0 ) = X1;
DISPLAY( 1 ) = X2;
POPSTACKTRACE( X3 );
}
TSCP scdebug_tracer( n1078, p1079 )
TSCP n1078, p1079;
{
TSCP SD0 = DISPLAY( 0 );
TSCP SD1 = DISPLAY( 1 );
TSCP SDVAL;
PUSHSTACKTRACE( U_TX( ADR( t1722 ) ) );
DISPLAY( 0 ) = n1078;
DISPLAY( 1 ) = p1079;
SDVAL = MAKEPROCEDURE( 0,
1,
scdebug_l1080,
MAKECLOSURE( EMPTYLIST,
2,
DISPLAY( 0 ),
DISPLAY( 1 ) ) );
DISPLAY( 0 ) = SD0;
DISPLAY( 1 ) = SD1;
POPSTACKTRACE( SDVAL );
}
DEFSTRING( t1750, "scdebug_l1128 [inside TOP-LEVEL]", 32 );
EXTERNTSCPP( scrt1__24__car_2derror );
EXTERNTSCP( scrt1__24__car_2derror_v );
TSCP scdebug_l1128( x1129, e1130 )
TSCP x1129, e1130;
{
TSCP X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1750 ) ) );
x1129 = CONS( x1129, EMPTYLIST );
X2 = PAIR_CAR( x1129 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L1755;
scrt1__24__cdr_2derror( X2 );
L1755:
X1 = PAIR_CDR( X2 );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( EMPTYLIST ) ) ) goto L1752;
X2 = scdebug_traced_2dprocs_v;
X3 = X2;
X4 = EMPTYLIST;
X5 = EMPTYLIST;
L1759:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L1760;
X1 = X4;
goto L1771;
L1760:
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L1763;
scrt1__24__car_2derror( X3 );
L1763:
X8 = PAIR_CAR( X3 );
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L1767;
scrt1__24__car_2derror( X8 );
L1767:
X7 = PAIR_CAR( X8 );
X6 = sc_cons( X7, EMPTYLIST );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L1770;
X7 = PAIR_CDR( X3 );
X5 = X6;
X4 = X6;
X3 = X7;
goto L1759;
L1770:
X7 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L1775;
scrt6_error( c1174, c1175, CONS( X5, EMPTYLIST ) );
L1775:
X5 = SETGEN( PAIR_CDR( X5 ), X6 );
X3 = X7;
goto L1759;
L1771:
SETGEN( PAIR_CAR( x1129 ), X1 );
goto L1753;
L1752:
X2 = PAIR_CAR( x1129 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L1778;
scrt1__24__cdr_2derror( X2 );
L1778:
X1 = PAIR_CDR( X2 );
SETGEN( PAIR_CAR( x1129 ), X1 );
L1753:
X1 = CONS( EMPTYLIST, EMPTYLIST );
X2 = CONS( EMPTYLIST, EMPTYLIST );
X1 = CONS( scrt1_cons_2a( c1057,
CONS( PAIR_CAR( x1129 ), X2 ) ),
X1 );
X2 = CONS( EMPTYLIST, EMPTYLIST );
X3 = CONS( EMPTYLIST, EMPTYLIST );
X2 = CONS( scrt1_cons_2a( c1190, CONS( c1055, X3 ) ),
X2 );
POPSTACKTRACE( scrt1_cons_2a( c1053,
CONS( scrt1_cons_2a( c1054,
CONS( scrt1_cons_2a( c1055,
CONS( EMPTYLIST,
EMPTYLIST ) ),
X2 ) ),
X1 ) ) );
}
DEFTSCP( scdebug_dountrace_v );
DEFSTRING( t1780, "DOUNTRACE", 9 );
EXTERNTSCPP( scrt1_caddr );
EXTERNTSCP( scrt1_caddr_v );
EXTERNTSCPP( scrt1_remove );
EXTERNTSCP( scrt1_remove_v );
TSCP scdebug_dountrace( n1192 )
TSCP n1192;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1780 ) ) );
X1 = scrt1_assoc( n1192, scdebug_traced_2dprocs_v );
if ( TRUE( X1 ) ) goto L1783;
scrt6_error( c1127,
c1195, CONS( n1192, EMPTYLIST ) );
L1783:
X2 = scrt2_top_2dlevel_2dvalue( n1192 );
X3 = scrt1_caddr( X1 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( X3 ) ) ) goto L1785;
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L1788;
scrt1__24__cdr_2derror( X1 );
L1788:
X3 = PAIR_CDR( X1 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L1791;
scrt1__24__car_2derror( X3 );
L1791:
X2 = PAIR_CAR( X3 );
scrt2_2dvalue_21_c9d2a496( n1192, X2 );
L1785:
scdebug_traced_2dprocs_v = scrt1_remove( X1,
scdebug_traced_2dprocs_v );
POPSTACKTRACE( n1192 );
}
DEFSTRING( t1793, "scdebug_l1211 [inside TOP-LEVEL]", 32 );
EXTERNTSCPP( scrt1_length );
EXTERNTSCP( scrt1_length_v );
TSCP scdebug_l1211( x1212, e1213 )
TSCP x1212, e1213;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1793 ) ) );
X1 = scrt1_length( x1212 );
if ( EQ( UNSIGNED( X1 ), UNSIGNED( _TSCP( 4 ) ) ) ) goto L1796;
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( _TSCP( 8 ) ) ) ) goto L1798;
X2 = CONS( EMPTYLIST, EMPTYLIST );
X3 = CONS( EMPTYLIST, EMPTYLIST );
if ( EQ( TSCPTAG( x1212 ), PAIRTAG ) ) goto L1801;
scrt1__24__cdr_2derror( x1212 );
L1801:
X2 = CONS( scrt1_cons_2a( c1057,
CONS( PAIR_CDR( x1212 ), X3 ) ),
X2 );
POPSTACKTRACE( scrt1_cons_2a( c1229,
CONS( c1230, X2 ) ) );
L1798:
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( _TSCP( 12 ) ) ) ) goto L1803;
X4 = scrt1_caddr( x1212 );
X3 = e1213;
X3 = UNKNOWNCALL( X3, 2 );
X2 = VIA( PROCEDURE_CODE( X3 ) )( X4,
e1213,
PROCEDURE_CLOSURE( X3 ) );
X3 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( scrt1_cons_2a( c1057, CONS( X2, X5 ) ),
X4 );
X5 = CONS( EMPTYLIST, EMPTYLIST );
if ( EQ( TSCPTAG( x1212 ), PAIRTAG ) ) goto L1807;
scrt1__24__cdr_2derror( x1212 );
L1807:
X6 = PAIR_CDR( x1212 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L1810;
scrt1__24__car_2derror( X6 );
L1810:
X3 = CONS( scrt1_cons_2a( c1231,
CONS( scrt1_cons_2a( c1057,
CONS( PAIR_CAR( X6 ),
X5 ) ),
X4 ) ),
X3 );
POPSTACKTRACE( scrt1_cons_2a( c1229,
CONS( c1230, X3 ) ) );
L1803:
POPSTACKTRACE( scrt6_error( c1210, c1226, EMPTYLIST ) );
L1796:
POPSTACKTRACE( c1246 );
}
DEFTSCP( scdebug_dobpt_v );
DEFSTRING( t1812, "DOBPT", 5 );
EXTERNTSCPP( scdebug_bpter );
EXTERNTSCP( scdebug_bpter_v );
EXTERNTSCPP( sceval_eval );
EXTERNTSCP( sceval_eval_v );
TSCP scdebug_dobpt( n1249, c1250 )
TSCP n1249, c1250;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1812 ) ) );
if ( FALSE( scrt1_assoc( n1249, scdebug_traced_2dprocs_v ) )
) goto L1814;
scdebug_dountrace( n1249 );
L1814:
if ( FALSE( scrt1_assoc( n1249, scdebug_bpt_2dprocs_v ) )
) goto L1816;
scdebug_dounbpt( n1249 );
L1816:
X1 = FALSEVALUE;
X2 = scrt2_top_2dlevel_2dvalue( n1249 );
X1 = CONS( X1, EMPTYLIST );
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), PROCEDURETAG ) )
) goto L1819;
scrt6_error( c1210, c1072, EMPTYLIST );
L1819:
if ( FALSE( c1250 ) ) goto L1821;
if ( EQ( TSCPTAG( c1250 ), PAIRTAG ) ) goto L1824;
scrt1__24__car_2derror( c1250 );
L1824:
X5 = PAIR_CAR( c1250 );
X4 = sceval_eval( X5, EMPTYLIST );
goto L1822;
L1821:
X4 = FALSEVALUE;
L1822:
X3 = scdebug_bpter( n1249, X2, X4 );
SETGEN( PAIR_CAR( X1 ), X3 );
X6 = sc_cons( PAIR_CAR( X1 ), EMPTYLIST );
X5 = sc_cons( X2, X6 );
X4 = sc_cons( n1249, X5 );
X3 = X4;
scdebug_bpt_2dprocs_v = sc_cons( X3, scdebug_bpt_2dprocs_v );
scrt2_2dvalue_21_c9d2a496( n1249, PAIR_CAR( X1 ) );
POPSTACKTRACE( n1249 );
}
DEFTSCP( scdebug_bpter_2dprocname_v );
DEFSTRING( t1827, "SCDEBUG_BPTER-PROCNAME", 22 );
EXTERNTSCP( sc_emptystring );
DEFTSCP( scdebug_bpter_v );
DEFSTRING( t1828, "SCDEBUG_BPTER", 13 );
DEFSTRING( t1831, "XEQ [inside BPTER]", 18 );
EXTERNTSCPP( scrt5_le_2dtasks_f7f1ba87 );
EXTERNTSCP( scrt5_le_2dtasks_f7f1ba87_v );
EXTERNTSCPP( screp_read_2deval_2dprint );
EXTERNTSCP( screp_read_2deval_2dprint_v );
TSCP scdebug_x1269( a1271 )
TSCP a1271;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1831 ) ) );
X1 = scrt5_le_2dtasks_f7f1ba87( FALSEVALUE );
X2 = sc_apply_2dtwo( screp_read_2deval_2dprint_v, a1271 );
scrt5_le_2dtasks_f7f1ba87( X1 );
POPSTACKTRACE( X2 );
}
DEFSTRING( t1836, "scdebug_l1276 [inside BPTER]", 28 );
EXTERNTSCPP( scrt4_c_2dtscp_2dref );
EXTERNTSCP( scrt4_c_2dtscp_2dref_v );
EXTERNTSCPP( scdebug_x1269 );
EXTERNTSCPP( scdebug_dobacktrace );
EXTERNTSCP( scdebug_dobacktrace_v );
TSCP scdebug_l1276( x1277, c1835 )
TSCP x1277, c1835;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1836 ) ) );
X1 = DISPLAY( 0 );
DISPLAY( 0 ) = CLOSURE_VAR( c1835, 0 );
X2 = DISPLAY( 1 );
DISPLAY( 1 ) = CLOSURE_VAR( c1835, 1 );
X3 = DISPLAY( 2 );
DISPLAY( 2 ) = CLOSURE_VAR( c1835, 2 );
X5 = UNSIGNED_TSCP( sc_stacktrace );
scdebug_bpter_2dprocname_v = scrt4_c_2dtscp_2dref( X5,
_TSCP( 16 ) );
if ( FALSE( DISPLAY( 2 ) ) ) goto L1838;
X5 = FALSEVALUE;
goto L1839;
L1838:
X5 = TRUEVALUE;
L1839:
if ( TRUE( X5 ) ) goto L1844;
if ( TRUE( sc_apply_2dtwo( DISPLAY( 2 ), x1277 ) ) ) goto L1844;
X4 = sc_apply_2dtwo( DISPLAY( 1 ), x1277 );
goto L1847;
L1844:
X5 = scrt6_format( c1306,
CONS( scdebug_trace_2dlevel_v, EMPTYLIST ) );
scdebug__2aargs_2a_v = x1277;
X6 = CONS( scdebug_dobacktrace( scdebug_bpter_2dprocname_v,
c1290,
_TSCP( 80 ), FALSEVALUE ),
EMPTYLIST );
X6 = CONS( c1289, X6 );
X6 = CONS( X5, X6 );
X6 = CONS( c1288, X6 );
X7 = CONS( sc_cons( DISPLAY( 0 ), x1277 ),
EMPTYLIST );
X6 = CONS( scrt6_format( c1287,
CONS( scdebug_trace_2dlevel_v, X7 ) ),
X6 );
scdebug_x1269( CONS( c1286, X6 ) );
X6 = scdebug_trace_2dlevel_v;
if ( BITAND( BITOR( INT( X6 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L1850;
X7 = _TSCP( IPLUS( INT( X6 ), INT( _TSCP( 4 ) ) ) );
goto L1851;
L1850:
X7 = scrt2__2b_2dtwo( X6, _TSCP( 4 ) );
L1851:
scdebug_trace_2dlevel_v = X7;
scdebug__2aresult_2a_v = sc_apply_2dtwo( DISPLAY( 1 ),
scdebug__2aargs_2a_v );
X6 = scdebug_trace_2dlevel_v;
if ( BITAND( BITOR( INT( X6 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L1853;
X7 = _TSCP( IDIFFERENCE( INT( X6 ),
INT( _TSCP( 4 ) ) ) );
goto L1854;
L1853:
X7 = scrt2__2d_2dtwo( X6, _TSCP( 4 ) );
L1854:
scdebug_trace_2dlevel_v = X7;
X6 = CONS( scdebug_dobacktrace( scdebug_bpter_2dprocname_v,
c1290,
_TSCP( 80 ), FALSEVALUE ),
EMPTYLIST );
X6 = CONS( c1289, X6 );
X6 = CONS( scdebug__2aresult_2a_v, X6 );
X6 = CONS( c1305, X6 );
X6 = CONS( X5, X6 );
X6 = CONS( c1288, X6 );
X7 = CONS( scdebug__2aresult_2a_v, EMPTYLIST );
X6 = CONS( scrt6_format( c1304,
CONS( scdebug_trace_2dlevel_v, X7 ) ),
X6 );
X4 = scdebug_x1269( CONS( c1286, X6 ) );
L1847:
DISPLAY( 0 ) = X1;
DISPLAY( 1 ) = X2;
DISPLAY( 2 ) = X3;
POPSTACKTRACE( X4 );
}
TSCP scdebug_bpter( n1265, p1266, c1267 )
TSCP n1265, p1266, c1267;
{
TSCP SD0 = DISPLAY( 0 );
TSCP SD1 = DISPLAY( 1 );
TSCP SD2 = DISPLAY( 2 );
TSCP SDVAL;
PUSHSTACKTRACE( U_TX( ADR( t1828 ) ) );
DISPLAY( 0 ) = n1265;
DISPLAY( 1 ) = p1266;
DISPLAY( 2 ) = c1267;
SDVAL = MAKEPROCEDURE( 0,
1,
scdebug_l1276,
MAKECLOSURE( EMPTYLIST,
3,
DISPLAY( 0 ),
DISPLAY( 1 ),
DISPLAY( 2 ) ) );
DISPLAY( 0 ) = SD0;
DISPLAY( 1 ) = SD1;
DISPLAY( 2 ) = SD2;
POPSTACKTRACE( SDVAL );
}
DEFSTRING( t1855, "scdebug_l1308 [inside TOP-LEVEL]", 32 );
TSCP scdebug_l1308( x1309, e1310 )
TSCP x1309, e1310;
{
TSCP X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1855 ) ) );
x1309 = CONS( x1309, EMPTYLIST );
X2 = PAIR_CAR( x1309 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L1860;
scrt1__24__cdr_2derror( X2 );
L1860:
X1 = PAIR_CDR( X2 );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( EMPTYLIST ) ) ) goto L1857;
X2 = scdebug_bpt_2dprocs_v;
X3 = X2;
X4 = EMPTYLIST;
X5 = EMPTYLIST;
L1864:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L1865;
X1 = X4;
goto L1876;
L1865:
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L1868;
scrt1__24__car_2derror( X3 );
L1868:
X8 = PAIR_CAR( X3 );
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L1872;
scrt1__24__car_2derror( X8 );
L1872:
X7 = PAIR_CAR( X8 );
X6 = sc_cons( X7, EMPTYLIST );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L1875;
X7 = PAIR_CDR( X3 );
X5 = X6;
X4 = X6;
X3 = X7;
goto L1864;
L1875:
X7 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L1880;
scrt6_error( c1174, c1175, CONS( X5, EMPTYLIST ) );
L1880:
X5 = SETGEN( PAIR_CDR( X5 ), X6 );
X3 = X7;
goto L1864;
L1876:
SETGEN( PAIR_CAR( x1309 ), X1 );
goto L1858;
L1857:
X2 = PAIR_CAR( x1309 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L1883;
scrt1__24__cdr_2derror( X2 );
L1883:
X1 = PAIR_CDR( X2 );
SETGEN( PAIR_CAR( x1309 ), X1 );
L1858:
X1 = CONS( EMPTYLIST, EMPTYLIST );
X2 = CONS( EMPTYLIST, EMPTYLIST );
X1 = CONS( scrt1_cons_2a( c1057,
CONS( PAIR_CAR( x1309 ), X2 ) ),
X1 );
X2 = CONS( EMPTYLIST, EMPTYLIST );
X3 = CONS( EMPTYLIST, EMPTYLIST );
X2 = CONS( scrt1_cons_2a( c1368, CONS( c1055, X3 ) ),
X2 );
POPSTACKTRACE( scrt1_cons_2a( c1053,
CONS( scrt1_cons_2a( c1054,
CONS( scrt1_cons_2a( c1055,
CONS( EMPTYLIST,
EMPTYLIST ) ),
X2 ) ),
X1 ) ) );
}
DEFTSCP( scdebug_dounbpt_v );
DEFSTRING( t1885, "DOUNBPT", 7 );
TSCP scdebug_dounbpt( n1370 )
TSCP n1370;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1885 ) ) );
X1 = scrt1_assoc( n1370, scdebug_bpt_2dprocs_v );
if ( TRUE( X1 ) ) goto L1888;
scrt6_error( c1307,
c1373, CONS( n1370, EMPTYLIST ) );
L1888:
X2 = scrt2_top_2dlevel_2dvalue( n1370 );
X3 = scrt1_caddr( X1 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( X3 ) ) ) goto L1890;
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L1893;
scrt1__24__cdr_2derror( X1 );
L1893:
X3 = PAIR_CDR( X1 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L1896;
scrt1__24__car_2derror( X3 );
L1896:
X2 = PAIR_CAR( X3 );
scrt2_2dvalue_21_c9d2a496( n1370, X2 );
L1890:
scdebug_bpt_2dprocs_v = scrt1_remove( X1,
scdebug_bpt_2dprocs_v );
POPSTACKTRACE( n1370 );
}
DEFTSCP( scdebug_insertion_2dsort_v );
DEFSTRING( t1898, "SCDEBUG_INSERTION-SORT", 22 );
TSCP scdebug_insertion_2dsort( i1389, s1390, b1391 )
TSCP i1389, s1390, b1391;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1898 ) ) );
X1 = s1390;
X2 = FALSEVALUE;
L1901:
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( EMPTYLIST ) ) ) goto L1902;
if ( FALSE( X2 ) ) goto L1904;
X4 = sc_cons( i1389, EMPTYLIST );
X3 = X4;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L1909;
scrt6_error( c1174, c1175, CONS( X2, EMPTYLIST ) );
L1909:
SETGEN( PAIR_CDR( X2 ), X3 );
POPSTACKTRACE( s1390 );
L1904:
X3 = sc_cons( i1389, EMPTYLIST );
POPSTACKTRACE( X3 );
L1902:
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L1915;
scrt1__24__car_2derror( X1 );
L1915:
X4 = PAIR_CAR( X1 );
X3 = b1391;
X3 = UNKNOWNCALL( X3, 2 );
if ( FALSE( VIA( PROCEDURE_CODE( X3 ) )( i1389,
X4,
PROCEDURE_CLOSURE( X3 ) ) )
) goto L1912;
if ( FALSE( X2 ) ) goto L1917;
X3 = sc_cons( i1389, X1 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L1921;
scrt6_error( c1174, c1175, CONS( X2, EMPTYLIST ) );
L1921:
SETGEN( PAIR_CDR( X2 ), X3 );
POPSTACKTRACE( s1390 );
L1917:
POPSTACKTRACE( sc_cons( i1389, s1390 ) );
L1912:
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L1924;
scrt1__24__cdr_2derror( X1 );
L1924:
X3 = PAIR_CDR( X1 );
X2 = X1;
X1 = X3;
goto L1901;
}
DEFTSCP( scdebug_dobacktrace_v );
DEFSTRING( t1926, "SCDEBUG_DOBACKTRACE", 19 );
EXTERNTSCPP( scrt5_open_2doutput_2dstring );
EXTERNTSCP( scrt5_open_2doutput_2dstring_v );
EXTERNTSCPP( scrt2__3d_2dtwo );
EXTERNTSCP( scrt2__3d_2dtwo_v );
EXTERNTSCPP( scrt1_equal_3f );
EXTERNTSCP( scrt1_equal_3f_v );
EXTERNTSCPP( scrt1_member );
EXTERNTSCP( scrt1_member_v );
EXTERNTSCPP( scrt6_display );
EXTERNTSCP( scrt6_display_v );
EXTERNTSCPP( scrt6_newline );
EXTERNTSCP( scrt6_newline_v );
EXTERNTSCPP( scrt6_write );
EXTERNTSCP( scrt6_write_v );
EXTERNTSCPP( scrt6_get_2doutput_2dstring );
EXTERNTSCP( scrt6_get_2doutput_2dstring_v );
EXTERNTSCPP( scrt2__3e_2dtwo );
EXTERNTSCP( scrt2__3e_2dtwo_v );
EXTERNTSCPP( scrt3_string_2dappend );
EXTERNTSCP( scrt3_string_2dappend_v );
EXTERNTSCPP( scrt3_substring );
EXTERNTSCP( scrt3_substring_v );
EXTERNTSCPP( scrt4_c_2dunsigned_2dref );
EXTERNTSCP( scrt4_c_2dunsigned_2dref_v );
EXTERNTSCPP( scrt1_append_2dtwo );
EXTERNTSCP( scrt1_append_2dtwo_v );
EXTERNTSCPP( scrt1_assq );
EXTERNTSCP( scrt1_assq_v );
TSCP scdebug_dobacktrace( s1427, s1428, l1429, p1430 )
TSCP s1427, s1428, l1429, p1430;
{
TSCP X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1926 ) ) );
s1427 = CONS( s1427, EMPTYLIST );
l1429 = CONS( l1429, EMPTYLIST );
X1 = UNSIGNED_TSCP( sc_stacktrace );
X2 = sc_emptystring;
X3 = EMPTYLIST;
X4 = c1540;
X5 = scrt5_open_2doutput_2dstring( );
L1929:
X4 = CONS( X4, EMPTYLIST );
X3 = CONS( X3, EMPTYLIST );
X2 = CONS( X2, EMPTYLIST );
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 0 ) ) ),
3 ) ) goto L1930;
X6 = BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( _TSCP( 0 ) ) ) );
goto L1931;
L1930:
X6 = scrt2__3d_2dtwo( X1, _TSCP( 0 ) );
L1931:
if ( TRUE( X6 ) ) goto L1936;
X8 = PAIR_CAR( l1429 );
if ( BITAND( BITOR( INT( X8 ), INT( _TSCP( 0 ) ) ),
3 ) ) goto L1938;
X7 = BOOLEAN( EQ( UNSIGNED( X8 ),
UNSIGNED( _TSCP( 0 ) ) ) );
goto L1939;
L1938:
X7 = scrt2__3d_2dtwo( X8, _TSCP( 0 ) );
L1939:
if ( TRUE( X7 ) ) goto L1936;
if ( EQ( UNSIGNED( PAIR_CAR( X4 ) ),
UNSIGNED( EMPTYLIST ) ) ) goto L1936;
if ( FALSE( PAIR_CAR( s1427 ) ) ) goto L1949;
X8 = FALSEVALUE;
goto L1950;
L1949:
X8 = TRUEVALUE;
L1950:
if ( FALSE( X8 ) ) goto L1957;
if ( TRUE( scrt1_equal_3f( PAIR_CAR( X2 ), s1428 ) )
) goto L1936;
L1957:
X6 = scrt4_c_2dtscp_2dref( X1, _TSCP( 16 ) );
SETGEN( PAIR_CAR( X2 ), X6 );
if ( FALSE( PAIR_CAR( s1427 ) ) ) goto L1959;
if ( FALSE( scrt1_equal_3f( PAIR_CAR( s1427 ),
PAIR_CAR( X2 ) ) ) ) goto L1964;
X6 = FALSEVALUE;
SETGEN( PAIR_CAR( s1427 ), X6 );
goto L1964;
L1959:
if ( NOT( AND( EQ( TSCPTAG( PAIR_CAR( X2 ) ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( PAIR_CAR( X2 ) ),
STRINGTAG ) ) ) ) goto L1963;
X6 = scrt1_member( PAIR_CAR( X2 ), c1484 );
if ( TRUE( X6 ) ) goto L1964;
if ( FALSE( p1430 ) ) goto L1969;
scrt6_display( c1488, CONS( p1430, EMPTYLIST ) );
scrt6_display( PAIR_CAR( X2 ),
CONS( p1430, EMPTYLIST ) );
scrt6_display( c1489, CONS( p1430, EMPTYLIST ) );
scrt6_newline( CONS( p1430, EMPTYLIST ) );
L1969:
X8 = PAIR_CAR( l1429 );
if ( BITAND( BITOR( INT( X8 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L1973;
X7 = _TSCP( IDIFFERENCE( INT( X8 ),
INT( _TSCP( 4 ) ) ) );
goto L1974;
L1973:
X7 = scrt2__2d_2dtwo( X8, _TSCP( 4 ) );
L1974:
SETGEN( PAIR_CAR( l1429 ), X7 );
goto L1964;
L1963:
if ( FALSE( p1430 ) ) goto L1976;
X6 = scrt4_c_2dtscp_2dref( X1, _TSCP( 32 ) );
scrt6_write( X6, CONS( X5, EMPTYLIST ) );
X6 = scrt6_get_2doutput_2dstring( X5 );
if ( AND( EQ( TSCPTAG( X6 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X6 ), STRINGTAG ) ) ) goto L1981;
scrt6_error( c1511, c1512, CONS( X6, EMPTYLIST ) );
L1981:
X7 = C_FIXED( STRING_LENGTH( X6 ) );
if ( BITAND( BITOR( INT( X7 ),
INT( _TSCP( 260 ) ) ),
3 ) ) goto L1985;
if ( GT( INT( X7 ), INT( _TSCP( 260 ) ) ) ) goto L1989;
goto L1990;
L1985:
if ( FALSE( scrt2__3e_2dtwo( X7, _TSCP( 260 ) ) ) ) goto L1990;
L1989:
X8 = CONS( c1514, EMPTYLIST );
X7 = scrt3_string_2dappend( CONS( scrt3_substring( X6,
_TSCP( 0 ),
_TSCP( 260 ) ),
X8 ) );
scrt6_display( X7, CONS( p1430, EMPTYLIST ) );
goto L1993;
L1990:
scrt6_display( X6, CONS( p1430, EMPTYLIST ) );
L1993:
scrt6_display( c1515, CONS( p1430, EMPTYLIST ) );
X7 = PAIR_CAR( X4 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L1995;
scrt1__24__car_2derror( X7 );
L1995:
X6 = PAIR_CAR( X7 );
scrt6_display( X6, CONS( p1430, EMPTYLIST ) );
scrt6_newline( CONS( p1430, EMPTYLIST ) );
L1976:
X9 = PAIR_CAR( X4 );
if ( EQ( TSCPTAG( X9 ), PAIRTAG ) ) goto L1998;
scrt1__24__car_2derror( X9 );
L1998:
X8 = PAIR_CAR( X9 );
X7 = sc_cons( X8, PAIR_CAR( X2 ) );
X6 = sc_cons( X7, PAIR_CAR( X3 ) );
SETGEN( PAIR_CAR( X3 ), X6 );
X7 = PAIR_CAR( X4 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L2001;
scrt1__24__cdr_2derror( X7 );
L2001:
X6 = PAIR_CDR( X7 );
SETGEN( PAIR_CAR( X4 ), X6 );
X7 = PAIR_CAR( l1429 );
if ( BITAND( BITOR( INT( X7 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L2004;
X6 = _TSCP( IDIFFERENCE( INT( X7 ),
INT( _TSCP( 4 ) ) ) );
goto L2005;
L2004:
X6 = scrt2__2d_2dtwo( X7, _TSCP( 4 ) );
L2005:
SETGEN( PAIR_CAR( l1429 ), X6 );
L1964:
X6 = scrt4_c_2dunsigned_2dref( X1, _TSCP( 0 ) );
X4 = PAIR_CAR( X4 );
X3 = PAIR_CAR( X3 );
X2 = PAIR_CAR( X2 );
X1 = X6;
goto L1929;
L1936:
if ( FALSE( PAIR_CAR( X3 ) ) ) goto L2006;
X7 = scrt1_assq( c1538, PAIR_CAR( X3 ) );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L2009;
scrt1__24__cdr_2derror( X7 );
L2009:
X6 = PAIR_CDR( X7 );
POPSTACKTRACE( scrt1_append_2dtwo( X6, PAIR_CAR( X3 ) ) );
L2006:
POPSTACKTRACE( PAIR_CAR( X3 ) );
}
DEFTSCP( scdebug_backtrace_v );
DEFSTRING( t2011, "BACKTRACE", 9 );
EXTERNTSCP( scrt5_stderr_2dport_v );
TSCP scdebug_backtrace( c1543 )
TSCP c1543;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2011 ) ) );
if ( FALSE( c1543 ) ) goto L2013;
if ( EQ( TSCPTAG( c1543 ), PAIRTAG ) ) goto L2016;
scrt1__24__car_2derror( c1543 );
L2016:
X1 = PAIR_CAR( c1543 );
goto L2014;
L2013:
X1 = _TSCP( 80 );
L2014:
scdebug_dobacktrace( scdebug_bpter_2dprocname_v,
c1290, X1, scrt5_stderr_2dport_v );
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( scdebug_2derror_2a_ca4047fd_v );
DEFSTRING( t2018, "*DEBUG-ON-ERROR*", 16 );
DEFTSCP( scdebug__2dhandler_7d8722d5_v );
DEFSTRING( t2019, "SCDEBUG_BACKTRACE-ERROR-HANDLER", 31 );
EXTERNTSCPP( scdebug__2dhandler_7d8722d5 );
EXTERNTSCP( scdebug__2dhandler_7d8722d5_v );
EXTERNTSCP( scrt6__2aerror_2dhandler_2a_v );
EXTERNTSCPP( scrt6_char_2dready_3f );
EXTERNTSCP( scrt6_char_2dready_3f_v );
EXTERNTSCP( scrt5_stdin_2dport_v );
EXTERNTSCPP( scrt6_eof_2dobject_3f );
EXTERNTSCP( scrt6_eof_2dobject_3f_v );
EXTERNTSCPP( scrt6_read_2dchar );
EXTERNTSCP( scrt6_read_2dchar_v );
EXTERNTSCP( scrt6_reset_v );
TSCP scdebug__2dhandler_7d8722d5( i1549, f1550, a1551 )
TSCP i1549, f1550, a1551;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2019 ) ) );
X1 = scrt6_format( c1552, CONS( i1549, EMPTYLIST ) );
scrt6_display( X1,
CONS( scrt5_stderr_2dport_v, EMPTYLIST ) );
X2 = sc_cons( f1550, a1551 );
X1 = sc_apply_2dtwo( scrt6_format_v, X2 );
scrt6_display( X1,
CONS( scrt5_stderr_2dport_v, EMPTYLIST ) );
scrt6_newline( CONS( scrt5_stderr_2dport_v, EMPTYLIST ) );
scrt6__2aerror_2dhandler_2a_v = scdebug__2dhandler_7d8722d5_v;
if ( FALSE( scdebug_2derror_2a_ca4047fd_v ) ) goto L2021;
X1 = scrt5_le_2dtasks_f7f1ba87( FALSEVALUE );
X2 = scdebug_dobacktrace( c1560,
c1290,
_TSCP( 80 ), scrt5_stderr_2dport_v );
scdebug_2derror_2a_ca4047fd_v = FALSEVALUE;
L2024:
if ( FALSE( scrt6_char_2dready_3f( CONS( scrt5_stdin_2dport_v,
EMPTYLIST ) ) )
) goto L2028;
X3 = scrt6_read_2dchar( CONS( scrt5_stdin_2dport_v, EMPTYLIST ) );
if ( FALSE( scrt6_eof_2dobject_3f( X3 ) ) ) goto L2024;
L2028:
X3 = CONS( X2, EMPTYLIST );
X3 = CONS( c1289, X3 );
X3 = CONS( FALSEVALUE, X3 );
X3 = CONS( c1286, X3 );
X3 = CONS( c1559, X3 );
screp_read_2deval_2dprint( CONS( c1288, X3 ) );
scrt5_le_2dtasks_f7f1ba87( X1 );
scdebug_2derror_2a_ca4047fd_v = TRUEVALUE;
L2021:
X1 = scrt6_reset_v;
X1 = UNKNOWNCALL( X1, 0 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( scdebug_on_2dinterrupt_v );
DEFSTRING( t2030, "SCDEBUG_ON-INTERRUPT", 20 );
EXTERNTSCP( screp__2areading_2dstdin_2a_v );
TSCP scdebug_on_2dinterrupt( s1562 )
TSCP s1562;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2030 ) ) );
if ( FALSE( screp__2areading_2dstdin_2a_v ) ) goto L2032;
X1 = scrt6_reset_v;
X1 = UNKNOWNCALL( X1, 0 );
VIA( PROCEDURE_CODE( X1 ) )( PROCEDURE_CLOSURE( X1 ) );
L2032:
X4 = UNSIGNED_TSCP( sc_stacktrace );
X3 = scrt4_c_2dunsigned_2dref( X4, _TSCP( 0 ) );
X2 = scrt4_c_2dunsigned_2dref( X3, _TSCP( 0 ) );
X1 = scrt4_c_2dtscp_2dref( X2, _TSCP( 16 ) );
X2 = scrt5_le_2dtasks_f7f1ba87( FALSEVALUE );
scrt6_format( scrt5_stderr_2dport_v,
CONS( c1566, EMPTYLIST ) );
scdebug_dobacktrace( X1,
c1290,
_TSCP( 80 ), scrt5_stderr_2dport_v );
X3 = CONS( scdebug_dobacktrace( X1,
c1290,
_TSCP( 80 ), FALSEVALUE ),
EMPTYLIST );
X3 = CONS( c1289, X3 );
X3 = CONS( c1559, X3 );
X3 = CONS( c1288, X3 );
X3 = CONS( FALSEVALUE, X3 );
screp_read_2deval_2dprint( CONS( c1286, X3 ) );
POPSTACKTRACE( scrt5_le_2dtasks_f7f1ba87( X2 ) );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt3__init();
scrt4__init();
screp__init();
sceval__init();
scrt5__init();
scrt6__init();
scrt2__init();
scrt1__init();
scexpand__init();
MAXDISPLAY( 3 );
}
void scdebug__init()
{
TSCP X1;
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(scdebug SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t1697 ) ),
ADR( scdebug_trace_2dlevel_v ),
_TSCP( 0 ) );
INITIALIZEVAR( U_TX( ADR( t1698 ) ),
ADR( scdebug_traced_2dprocs_v ),
EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t1699 ) ),
ADR( scdebug_bpt_2dprocs_v ), EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t1700 ) ),
ADR( scdebug__2aargs_2a_v ), EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t1701 ) ),
ADR( scdebug__2aresult_2a_v ), EMPTYLIST );
X1 = MAKEPROCEDURE( 2, 0, scdebug_l1045, EMPTYLIST );
scexpand_install_2dexpander( c1044, X1 );
INITIALIZEVAR( U_TX( ADR( t1710 ) ),
ADR( scdebug_dotrace_v ),
MAKEPROCEDURE( 1,
0,
scdebug_dotrace, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1722 ) ),
ADR( scdebug_tracer_v ),
MAKEPROCEDURE( 2,
0, scdebug_tracer, EMPTYLIST ) );
X1 = MAKEPROCEDURE( 2, 0, scdebug_l1128, EMPTYLIST );
scexpand_install_2dexpander( c1127, X1 );
INITIALIZEVAR( U_TX( ADR( t1780 ) ),
ADR( scdebug_dountrace_v ),
MAKEPROCEDURE( 1,
0,
scdebug_dountrace, EMPTYLIST ) );
X1 = MAKEPROCEDURE( 2, 0, scdebug_l1211, EMPTYLIST );
scexpand_install_2dexpander( c1210, X1 );
INITIALIZEVAR( U_TX( ADR( t1812 ) ),
ADR( scdebug_dobpt_v ),
MAKEPROCEDURE( 1,
1, scdebug_dobpt, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1827 ) ),
ADR( scdebug_bpter_2dprocname_v ),
sc_emptystring );
INITIALIZEVAR( U_TX( ADR( t1828 ) ),
ADR( scdebug_bpter_v ),
MAKEPROCEDURE( 3,
0, scdebug_bpter, EMPTYLIST ) );
X1 = MAKEPROCEDURE( 2, 0, scdebug_l1308, EMPTYLIST );
scexpand_install_2dexpander( c1307, X1 );
INITIALIZEVAR( U_TX( ADR( t1885 ) ),
ADR( scdebug_dounbpt_v ),
MAKEPROCEDURE( 1,
0,
scdebug_dounbpt, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1898 ) ),
ADR( scdebug_insertion_2dsort_v ),
MAKEPROCEDURE( 3,
0,
scdebug_insertion_2dsort,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1926 ) ),
ADR( scdebug_dobacktrace_v ),
MAKEPROCEDURE( 4,
0,
scdebug_dobacktrace, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2011 ) ),
ADR( scdebug_backtrace_v ),
MAKEPROCEDURE( 0,
1,
scdebug_backtrace, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2018 ) ),
ADR( scdebug_2derror_2a_ca4047fd_v ),
FALSEVALUE );
INITIALIZEVAR( U_TX( ADR( t2019 ) ),
ADR( scdebug__2dhandler_7d8722d5_v ),
MAKEPROCEDURE( 2,
1,
scdebug__2dhandler_7d8722d5,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2030 ) ),
ADR( scdebug_on_2dinterrupt_v ),
MAKEPROCEDURE( 1,
0,
scdebug_on_2dinterrupt,
EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.