cg_pattern.h 4.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161
  1. /* $Id$ */
  2. /*
  3. * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
  4. * See the copyright notice in the ACK home directory, in the file "Copyright".
  5. */
  6. /* offsets of interesting fields in EM-pattern */
  7. #define PO_HASH 0
  8. #define PO_NEXT 1
  9. #define PO_MATCH 3
  10. #define ILLHASH 0177777
  11. /* Escapes in printstrings */
  12. #define PR_TOK '\001'
  13. #define PR_TOKFLD '\002'
  14. #define PR_EMINT '\003'
  15. #define PR_EMSTR '\004'
  16. #define PR_ALLREG '\005'
  17. #define PR_SUBREG '\006'
  18. /*
  19. * In case this list gets longer remember to keep out printable nonprintables
  20. * like \t \n \r and the like.
  21. */
  22. /* Commands for codegenerator, in low order 5 bits of byte */
  23. #define DO_NEXTEM 0
  24. #define DO_MATCH 1
  25. #define DO_XMATCH 2
  26. #define DO_XXMATCH 3
  27. #define DO_REMOVE 4
  28. #define DO_DEALLOCATE 5
  29. #define DO_REALLOCATE 6
  30. #define DO_ALLOCATE 7
  31. #define DO_LOUTPUT 8
  32. #define DO_ROUTPUT 9
  33. #define DO_MOVE 10
  34. #define DO_ERASE 11
  35. #define DO_TOKREPLACE 12
  36. #define DO_EMREPLACE 13
  37. #define DO_COST 14
  38. #define DO_RETURN 15
  39. #define DO_COERC 16
  40. #define DO_PRETURN 17
  41. #define DO_RREMOVE 18
  42. typedef struct instance {
  43. int in_which;
  44. # define IN_COPY 1
  45. # define IN_RIDENT 2
  46. # define IN_ALLOC 3
  47. # define IN_DESCR 4
  48. # define IN_REGVAR 5
  49. int in_info[TOKENSIZE+1];
  50. } inst_t,*inst_p;
  51. typedef struct {
  52. int c_size; /* index in enode-table */
  53. int c_time; /* dito */
  54. } cost_t,*cost_p;
  55. typedef struct {
  56. int m_set1; /* number of tokenexpr in move: from */
  57. int m_expr1; /* optional expression */
  58. int m_set2; /* number of tokenexpr in move: to */
  59. int m_expr2; /* optional expression */
  60. int m_cindex; /* code index to really do it */
  61. cost_t m_cost; /* associated cost */
  62. } move_t, *move_p;
  63. typedef struct {
  64. int set_size;
  65. short set_val[SETSIZE];
  66. } set_t,*set_p;
  67. struct exprnode {
  68. short ex_operator;
  69. short ex_lnode;
  70. short ex_rnode;
  71. };
  72. typedef struct exprnode node_t;
  73. typedef struct exprnode *node_p;
  74. typedef struct { /* to stack coercions */
  75. int c1_texpno; /* token expression number */
  76. int c1_expr; /* boolean expression */
  77. int c1_prop; /* property of register needed */
  78. int c1_codep; /* code index */
  79. cost_t c1_cost; /* cost involved */
  80. } c1_t,*c1_p;
  81. #ifdef MAXSPLIT
  82. typedef struct { /* splitting coercions */
  83. int c2_texpno; /* token expression number */
  84. int c2_nsplit; /* split factor */
  85. int c2_repl[MAXSPLIT]; /* replacement instances */
  86. int c2_codep; /* code index */
  87. } c2_t,*c2_p;
  88. #endif /* MAXSPLIT */
  89. typedef struct { /* one to one coercions */
  90. int c3_texpno; /* token expression number */
  91. int c3_prop; /* property of register needed */
  92. int c3_repl; /* replacement instance */
  93. int c3_codep; /* code index */
  94. } c3_t,*c3_p;
  95. /*
  96. * contents of .ex_operator
  97. */
  98. #define EX_TOKFIELD 0
  99. #define EX_ARG 1
  100. #define EX_CON 2
  101. #define EX_ALLREG 3
  102. #define EX_SAMESIGN 4
  103. #define EX_SFIT 5
  104. #define EX_UFIT 6
  105. #define EX_ROM 7
  106. #define EX_NCPEQ 8
  107. #define EX_SCPEQ 9
  108. #define EX_RCPEQ 10
  109. #define EX_NCPNE 11
  110. #define EX_SCPNE 12
  111. #define EX_RCPNE 13
  112. #define EX_NCPGT 14
  113. #define EX_NCPGE 15
  114. #define EX_NCPLT 16
  115. #define EX_NCPLE 17
  116. #define EX_OR2 18
  117. #define EX_AND2 19
  118. #define EX_PLUS 20
  119. #define EX_CAT 21
  120. #define EX_MINUS 22
  121. #define EX_TIMES 23
  122. #define EX_DIVIDE 24
  123. #define EX_MOD 25
  124. #define EX_LSHIFT 26
  125. #define EX_RSHIFT 27
  126. #define EX_NOT 28
  127. #define EX_COMP 29
  128. #define EX_COST 30
  129. #define EX_STRING 31
  130. #define EX_DEFINED 32
  131. #define EX_SUBREG 33
  132. #define EX_TOSTRING 34
  133. #define EX_UMINUS 35
  134. #define EX_REG 36
  135. #define EX_LOWW 37
  136. #define EX_HIGHW 38
  137. #define EX_INREG 39
  138. #define EX_REGVAR 40
  139. #define getint(a,b) \
  140. if ((a=((*(b)++)&BMASK)) >= 128) {\
  141. a = ((a-128)<<BSHIFT) | (*(b)++&BMASK); \
  142. }