lang/m2/comp/walk.h

   1 /*
   2  * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
   3  * See the copyright notice in the ACK home directory, in the file "Copyright".
   4  *
   5  * Author: Ceriel J.H. Jacobs
   6  */
   7
   8 /* P A R S E   T R E E   W A L K E R */
   9
  10 /* $Id: walk.h,v 1.12 1994/06/24 12:43:27 ceriel Exp $ */
  11
  12 /*      Definition of WalkNode macro
  13 */
  14
  15 extern int (*WalkTable[])();
  16
  17 #define WalkNode(xnd, xlab, rch)        (*WalkTable[(xnd)->nd_class])((xnd), (xlab),(rch))
  18
  19 extern label    text_label;
  20 extern label    data_label;
  21
  22 #include "squeeze.h"
  23
  24 #ifndef SQUEEZE
  25 #define c_loc(x)        C_loc((arith) (x))
  26 #define c_lae_dlb(x)    C_lae_dlb(x,(arith) 0)
  27 #define CAL(nm, sz)     (C_cal(nm), C_asp((arith)(sz)))
  28 #define c_bra(x)        C_bra((label) (x))
  29 #endif