cfad47cfa3/t3compiler/tads3/test/data/debugTrace.t

Show revision log
 
4b825dc642cb6eb9a060e54bf8d69288fbee4904cfad47cfa334b206c65f22086bcc5d63e6f70944
1
#include "tads.h"



2
#include "t3.h"



3



4
main(args)



5
{



6
    if (t3DebugTrace(T3DebugCheck))



7
        "The debugger is present.\n";



8
    else



9
        "No debugger is available.\n";



10



11
    for (local i = 1 ; i <= 10 ; ++i)



12
        "i = <<i>>\n";



13



14
    if (!t3DebugTrace(T3DebugBreak))



15
        "<Unable to stop in debugger - no debugger present>\n";



16



17
    for (local i = 10 ; i >= 1 ; --i)



18
        "i = <<i>>\n";



19
}



20



21
preinit()



22
{



23
}