home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / sozobon2 / nodes.h < prev    next >
Encoding:
C/C++ Source or Header  |  1993-10-23  |  4.6 KB  |  212 lines
  1. /* Copyright (c) 1988 by Sozobon, Limited.  Author: Johann Ruegg
  2.  *
  3.  * Permission is granted to anyone to use this software for any purpose
  4.  * on any computer system, and to redistribute it freely, with the
  5.  * following restrictions:
  6.  * 1) No charge may be made other than reasonable charges for reproduction.
  7.  * 2) Modified versions must be clearly marked as such.
  8.  * 3) The authors are not responsible for any harmful consequences
  9.  *    of using this software, even if they result from defects in it.
  10.  *
  11.  *    nodes.h
  12.  */
  13.  
  14. /*
  15.  *    stuff common to all nodes
  16.  */
  17. #define COMMON    int cflags;    \
  18.         int fill;    \
  19.         union node *left;    \
  20.         union node *right;    \
  21.         union node *tptr;    \
  22.         union node *nm_ext;    \
  23.         char cname[NMSIZE]
  24.  
  25. #define n_flags    e.cflags
  26. #define n_left    e.left
  27. #define n_next    e.left
  28. #define n_right e.right
  29. #define n_tptr    e.tptr
  30. #define n_nmx    e.nm_ext
  31. #define n_name    e.cname
  32.  
  33. /*
  34.  *    expression (and symbol table) node
  35.  */
  36. struct enode {
  37.     COMMON;
  38.     int    token;        /* must be same place as tnode */
  39.     int    eflags;
  40.     char    etype;        /* type of node */
  41.     char    sc;
  42.     char    eprec;
  43.     char    rno;
  44.     union {
  45.         long    vival;
  46.         long    voffs;
  47.         double    vfval;
  48.     } vu;
  49. #ifndef NOFIELDS
  50.     unsigned    fldw:6, fldof:6;    /* use fields just so
  51.                         we know fields work */
  52. #else
  53.     char    fldw, fldof;        /* use if cant do fields */
  54. #endif
  55. };
  56.  
  57. #define e_token    e.token
  58. #define e_flags    e.eflags
  59. #define e_prec    e.eprec
  60. #define e_rno    e.rno
  61. #define e_type    e.etype
  62. #define e_ival    e.vu.vival
  63. #define e_offs    e.vu.voffs
  64. #define e_fval    e.vu.vfval
  65. #define e_sc    e.sc
  66. #define e_fldw    e.fldw
  67. #define e_fldo    e.fldof
  68.  
  69. /* for e_flags values, see tok.h */
  70.  
  71. /* values for e_type */
  72.  
  73. #define E_LEAF    0    /* no descendants */
  74. #define E_UNARY 1    /* left node is expr, no right node */
  75. #define E_BIN    2    /* left and right are expr */
  76. #define E_SPEC    3    /* special '(', '[', '.', '->', ... */
  77.  
  78. /*
  79.  * code generation node
  80.  */
  81. struct gnode {
  82.     COMMON;
  83.     int    token;
  84.     int    eflags;
  85.     char    etype;
  86.     char    sc;
  87. /* all of above fields must match first fields in enode! */
  88.  
  89.     char    needs;        /* registers needed */
  90.     char    grno;        /* register used in ret value */
  91.     char    basety;        /* type FLOAT, UNS, INT or AGREG */
  92.     char    basesz;        /* size 1,2,4 or 3 -> see bsize */
  93.     char    gr1, gr2;
  94.     char    *betwc;        /* code for between L and R */
  95.     long    goffs;        /* offsets for OREG, ONAME */
  96.     union gu {
  97.         long    bsize;        /* AGREG size or misc. */
  98.         struct {
  99. #ifndef NOFIELDS
  100. #ifdef AZ_HOST
  101.             unsigned gfldw:6, gfldo:6;    /* BUG! */
  102. #else
  103.             int    gfldw:6, gfldo:6;    /* field info */
  104. #endif
  105. #else
  106.             char    gfldw, gfldo;    /* use if no fields */
  107. #endif
  108.         } gfl;
  109.     } gu;
  110. };
  111.  
  112. #define g_token    g.token
  113. #define g_flags    g.eflags
  114. #define g_type    g.etype
  115. #define g_sc    g.sc
  116. #define g_needs g.needs
  117. #define g_rno    g.grno
  118. #define g_offs    g.goffs
  119. #define g_betw    g.betwc
  120. #define g_ty    g.basety
  121. #define g_sz    g.basesz
  122. #define g_code    g.tptr
  123. #define g_bsize    g.gu.bsize
  124. #define g_fldw    g.gu.gfl.gfldw
  125. #define g_fldo    g.gu.gfl.gfldo
  126. #define g_r1    g.gr1
  127. #define g_r2    g.gr2
  128.  
  129. /* types of operands -- ordered in cast strength order */
  130. #define ET_S    1    /* signed integer */
  131. #define ET_U    2    /* unsigned integer */
  132. #define ET_F    3    /* float or double */
  133. #define ET_A    4    /* aggregate */
  134.  
  135. /*
  136.  *    type list node
  137.  */
  138. struct tnode {
  139.     COMMON;
  140.     int    token;        /* must be same place as enode */
  141.     int    tflags;
  142.     char    aln;        /* alignment needed */
  143.     long    tsize;
  144. };
  145.  
  146. #define t_token    t.token
  147. #define t_flags    t.tflags
  148. #define t_size    t.tsize
  149. #define t_aln    t.aln
  150.  
  151. /*
  152.  *    name extension node
  153.  */
  154. struct nmext {
  155.     COMMON;
  156.     char nmx[NMXSIZE-NMSIZE];    /* name extension (with name)*/
  157. };
  158.  
  159. #define x_nm    x.nmx
  160.  
  161. /*
  162.  *    block info node
  163.  */
  164. struct bnode {
  165.     COMMON;
  166.     union node *syms;
  167.     union node *tags;
  168.     int    regs;        /* reg alloc mask */
  169.     long    lsize;        /* size of locals */
  170.     int    tmsize;        /* max tmps used for 1 expr */
  171. };
  172.  
  173. #define b_syms    b.syms
  174. #define b_tags    b.tags
  175. #define b_regs    b.regs
  176. #define b_size    b.lsize
  177. #define b_tsize b.tmsize
  178.  
  179. /*
  180.  *    node to hold case for switch generation
  181.  */
  182. struct cnode {
  183.     COMMON;
  184.     int    c_value;    /* value for case */
  185.     int    c_label;    /* case label or label label */
  186.     int    c_def;        /* label defined */
  187. };
  188.  
  189. #define c_defined c.c_def
  190. #define c_casev c.c_value
  191. #define c_casel c.c_label
  192.  
  193. union node {
  194.     struct enode e;
  195.     struct tnode t;
  196.     struct nmext x;
  197.     struct bnode b;
  198.     struct cnode c;
  199.     struct gnode g;
  200. };
  201.  
  202. typedef union node NODE;
  203. typedef NODE *NODEP;
  204.  
  205. /* defines for n_flags */
  206.  
  207. #define N_BRKPR    1    /* break printnode recursion */
  208. #define N_COPYT    2    /* tptr is a copy */
  209. #define N_ISFREE 4    /* node is on free list (error check) */
  210.  
  211. NODEP allocnode();
  212.