|
|
1.1 ! root 1: /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */ ! 2: ! 3: /* ! 4: $Header: b3int.h,v 1.4 85/08/22 16:44:13 timo Exp $ ! 5: */ ! 6: ! 7: /* Interpreter */ ! 8: ! 9: value evalthread(); ! 10: /* Procedure execthread(); */ ! 11: ! 12: value pop(); ! 13: /* Procedure push(); */ ! 14: ! 15: extern bool tracing; ! 16: ! 17: #define Thread(t) *Branch(t, Nbranches(t)) /* Next instruction */ ! 18: #define Thread2(t) *Branch(t, Nbranches(t)+1) /* Alternate next instr. or flag */ ! 19: ! 20: #define Stop ((parsetree)zero) /* Legal stop */ ! 21: #define Halt NilTree /* Illegal stop (loose end of code) */ ! 22: ! 23: extern int call_level;
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.