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;
Last modified: 1985-08-27
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 2140
Valid CSS Valid XHTML 1.0 Strict