![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to mfile2 CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 3BSD / cmd / mip|
Return to mfile2 CVS log | Up to [CSRG BSD Unix] / 3BSD / cmd / mip |
1.1 root 1: # include "macdefs"
2: # include "mac2defs"
3: # include "manifest"
4:
5: # ifdef ONEPASS
6:
7: /* bunch of stuff for putting the passes together... */
8: # define crslab crs2lab
9: # define where where2
10: # define xdebug x2debug
11: # define tdebug t2debug
12: # define deflab def2lab
13: # define edebug e2debug
14: # define eprint e2print
15: # define filename ftitle
16: # define getlab get2lab
17: # endif
18:
19: /* cookies, used as arguments to codgen */
20:
21: # define FOREFF 01 /* compute for effects only */
22: # define INAREG 02 /* compute into a register */
23: # define INTAREG 04 /* compute into a scratch register */
24: # define INBREG 010 /* compute into a lvalue register */
25: # define INTBREG 020 /* compute into a scratch lvalue register */
26: # define FORCC 040 /* compute for condition codes only */
27: # define INTEMP 010000 /* compute into a temporary location */
28: # define FORARG 020000 /* compute for an argument of a function */
29: # define FORREW 040000 /* search the table, looking for a rewrite rule */
30:
31: /* OP descriptors */
32: /* the ASG operator may be used on some of these */
33:
34: # define OPSIMP 010000 /* +, -, &, |, ^ */
35: # define OPCOMM 010002 /* +, &, |, ^ */
36: # define OPMUL 010004 /* *, / */
37: # define OPDIV 010006 /* /, % */
38: # define OPUNARY 010010 /* unary ops */
39: # define OPLEAF 010012 /* leaves */
40: # define OPANY 010014 /* any op... */
41: # define OPLOG 010016 /* logical ops */
42: # define OPFLOAT 010020 /* +, -, *, or / (for floats) */
43: # define OPSHFT 010022 /* <<, >> */
44: # define OPLTYPE 010024 /* leaf type nodes (e.g, NAME, ICON, etc. ) */
45:
46: /* match returns */
47:
48: # define MNOPE 010000
49: # define MDONE 010001
50:
51: /* shapes */
52:
53: # define SANY 01 /* same as FOREFF */
54: # define SAREG 02 /* same as INAREG */
55: # define STAREG 04 /* same as INTAREG */
56: # define SBREG 010 /* same as INBREG */
57: # define STBREG 020 /* same as INTBREG */
58: # define SCC 040 /* same as FORCC */
59: # define SNAME 0100
60: # define SCON 0200
61: # define SFLD 0400
62: # define SOREG 01000
63: # define STARNM 02000
64: # define STARREG 04000
65: # define SWADD 040000
66: # define SPECIAL 0100000
67: # define SZERO SPECIAL
68: # define SONE (SPECIAL|1)
69: # define SMONE (SPECIAL|2)
70: # define SCCON (SPECIAL|3) /* -256 <= constant < 256 */
71: # define SSCON (SPECIAL|4) /* -32768 <= constant < 32768 */
72: # define SSOREG (SPECIAL|5) /* non-indexed OREG */
73:
74: /* FORARG and INTEMP are carefully not conflicting with shapes */
75:
76: /* types */
77:
78: # define TCHAR 01
79: # define TSHORT 02
80: # define TINT 04
81: # define TLONG 010
82: # define TFLOAT 020
83: # define TDOUBLE 040
84: # define TPOINT 0100
85: # define TUCHAR 0200
86: # define TUSHORT 0400
87: # define TUNSIGNED 01000
88: # define TULONG 02000
89: # define TPTRTO 04000 /* pointer to one of the above */
90: # define TANY 010000 /* matches anything within reason */
91: # define TSTRUCT 020000 /* structure or union */
92:
93: /* reclamation cookies */
94:
95: # define RNULL 0 /* clobber result */
96: # define RLEFT 01
97: # define RRIGHT 02
98: # define RESC1 04
99: # define RESC2 010
100: # define RESC3 020
101: # define RESCC 04000
102: # define RNOP 010000 /* DANGER: can cause loops.. */
103:
104: /* needs */
105:
106: # define NAREG 01
107: # define NACOUNT 03
108: # define NAMASK 017
109: # define NASL 04 /* share left register */
110: # define NASR 010 /* share right register */
111: # define NBREG 020
112: # define NBCOUNT 060
113: # define NBMASK 0360
114: # define NBSL 0100
115: # define NBSR 0200
116: # define NTEMP 0400
117: # define NTMASK 07400
118: # define REWRITE 010000
119:
120:
121: # define MUSTDO 010000 /* force register requirements */
122: # define NOPREF 020000 /* no preference for register assignment */
123:
124:
125: /* register allocation */
126:
127: extern int rstatus[];
128: extern int busy[];
129:
130: extern struct respref { int cform; int mform; } respref[];
131:
132: # define isbreg(r) (rstatus[r]&SBREG)
133: # define istreg(r) (rstatus[r]&(STBREG|STAREG))
134: # define istnode(p) (p->op==REG && istreg(p->rval))
135:
136: # define TBUSY 01000
137: # define REGLOOP(i) for(i=0;i<REGSZ;++i)
138:
139: # define SETSTO(x,y) (stotree=(x),stocook=(y))
140: extern int stocook;
141: # define DELAYS 20
142: extern NODE *deltrees[DELAYS];
143: extern int deli; /* mmmmm */
144:
145: extern NODE *stotree;
146: extern int callflag;
147:
148: extern int fregs;
149:
150: # ifndef ONEPASS
151: union ndu {
152:
153: struct {
154: int op;
155: int rall;
156: TWORD type;
157: int su;
158: char name[NCHNAM];
159: NODE *left;
160: NODE *right;
161: };
162:
163: struct {
164: int op;
165: int rall;
166: TWORD type;
167: int su;
168: char name[NCHNAM];
169: CONSZ lval;
170: int rval;
171: };
172:
173: struct {
174: int op, rall;
175: TWORD type;
176: int su;
177: int label; /* for use with branching */
178: };
179:
180: struct {
181: int op, rall;
182: TWORD type;
183: int su;
184: int stsize; /* sizes of structure objects */
185: int stalign; /* alignment of structure objects */
186: };
187:
188: };
189: #endif
190:
191: extern NODE node[];
192:
193: extern struct optab {
194: int op;
195: int visit;
196: int lshape;
197: int ltype;
198: int rshape;
199: int rtype;
200: int needs;
201: int rewrite;
202: char * cstring;
203: }
204: table[];
205:
206: extern NODE resc[];
207:
208: extern OFFSZ tmpoff;
209: extern OFFSZ maxoff;
210: extern OFFSZ baseoff;
211: extern OFFSZ maxtemp;
212: extern int maxtreg;
213: extern int ftnno;
214:
215: extern int nrecur; /* flag to keep track of recursions */
216:
217: # define NRECUR (10*TREESZ)
218:
219: extern NODE
220: *talloc(),
221: *eread(),
222: *tcopy(),
223: *getlr();
224:
225: extern CONSZ rdin();
226:
227: extern int eprint();
228:
229: extern char *rnames[];
230:
231: extern int lineno;
232: extern char filename[];
233: extern int fldshf, fldsz;
234: extern int lflag, xdebug, udebug, edebug, odebug, rdebug, radebug, tdebug, sdebug;
235:
236: #ifndef callchk
237: #define callchk(x) allchk()
238: #endif
239:
240: #ifndef PUTCHAR
241: # define PUTCHAR(x) putchar(x)
242: #endif
243:
244: /* macros for doing double indexing */
245: # define R2PACK(x,y,z) (0200*((x)+1)+y+040000*z)
246: # define R2UPK1(x) ((((x)>>7)-1)&0177)
247: # define R2UPK2(x) ((x)&0177)
248: # define R2UPK3(x) (x>>14)
249: # define R2TEST(x) ((x)>=0200)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.