|
|
1.1 ! root 1: /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */ ! 2: ! 3: /* ! 4: $Header: b2gen.h,v 1.4 85/08/22 16:42:31 timo Exp $ ! 5: */ ! 6: ! 7: #define Is_node(t) ((t) != NilTree && Is_parsetree(t)) ! 8: ! 9: extern int nextvarnumber; /* Counts local targets (including formals) */ ! 10: extern value formals, locals, globals, mysteries, refinements; ! 11: extern string gentab[]; ! 12: ! 13: #define NTYPES (FORMAL+1) ! 14: ! 15: struct state { ! 16: parsetree h_last; ! 17: parsetree *h_wanthere; ! 18: parsetree h_bpchain; ! 19: }; ! 20: ! 21: #define f_expr(p) fix(p, 'v') /* "evaluate" */ ! 22: #define f_targ(p) fix(p, 'l') /* "locate" */ ! 23: ! 24: value copydef(); ! 25: bool modify_tag();
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.