![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dope.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [MW Coherent from dump] / coherent / d / bin / cc / c / n0|
Return to dope.c CVS log | Up to [MW Coherent from dump] / coherent / d / bin / cc / c / n0 |
1.1 root 1: /*
2: * C compiler.
3: * Operator and type conversion
4: * information ("dope") tables.
5: */
6: #ifdef vax
7: #include "INC$LIB:cc0.h"
8: #else
9: #include "cc0.h"
10: #endif
11:
12: /*
13: * This table, indexed by operator
14: * number (less MIOBASE) is used to get the legal
15: * left and right operand rules.
16: */
17: short opdope[] = {
18:
19: 13 + NSTR+NSTL, /* + */
20: 13 + NSTR+NSTL, /* - */
21: 14 + NSTR+NSTL+NPTR+NPTL, /* * */
22: 14 + NSTR+NSTL+NPTR+NPTL, /* / */
23: 14 + NSTR+NSTL+NPTR+NPTL+NFLT, /* % */
24: 9 + NSTR+NSTL+NPTR+NPTL+NFLT, /* & */
25: 7 + NSTR+NSTL+NPTR+NPTL+NFLT, /* | */
26: 8 + NSTR+NSTL+NPTR+NPTL+NFLT, /* ^ */
27: 12 + NSTR+NSTL+NPTR+NPTL+NFLT, /* << */
28: 12 + NSTR+NSTL+NPTR+NPTL+NFLT, /* >> */
29:
30: 2 + NSTR+NSTL+NPTR+ASGN+RLVL+RAS, /* += */
31: 2 + NSTR+NSTL+NPTR+ASGN+RLVL+RAS, /* -= */
32: 2 + NSTR+NSTL+NPTR+NPTL+ASGN+RLVL+RAS, /* *= */
33: 2 + NSTR+NSTL+NPTR+NPTL+ASGN+RLVL+RAS, /* /= */
34: 2 + NSTR+NSTL+NPTR+NPTL+NFLT+ASGN+RLVL+RAS, /* %= */
35: 2 + NSTR+NSTL+NPTR+NPTL+NFLT+ASGN+RLVL+RAS, /* &= */
36: 2 + NSTR+NSTL+NPTR+NPTL+NFLT+ASGN+RLVL+RAS, /* |= */
37: 2 + NSTR+NSTL+NPTR+NPTL+NFLT+ASGN+RLVL+RAS, /* ^= */
38: 2 + NSTR+NSTL+NPTR+NPTL+NFLT+ASGN+RLVL+RAS, /* <<= */
39: 2 + NSTR+NSTL+NPTR+NPTL+NFLT+ASGN+RLVL+RAS, /* >>= */
40:
41: 10 + NSTR+NSTL, /* == */
42: 10 + NSTR+NSTL, /* != */
43: 11 + NSTR+NSTL, /* > */
44: 11 + NSTR+NSTL, /* >= */
45: 11 + NSTR+NSTL, /* <= */
46: 11 + NSTR+NSTL, /* < */
47: 0, /* > unsigned */
48: 0, /* >= unsigned */
49: 0, /* <= unsigned */
50: 0, /* < unsigned */
51:
52: 0 + NSTL+NFLT, /* Ind */
53: 0 + RLVL, /* Addr */
54: 0 + NSTL+NPTL, /* - u */
55: 0 + NSTL+NPTL+NFLT, /* ~ */
56: 0 + RTOL, /* ! */
57: 4 + RTOL, /* ? */
58: 4 + RAS, /* : */
59: 15 + NSTL+RLVL+RAS, /* ++x */
60: 15 + NSTL+RLVL+RAS, /* --x */
61: 15 + NSTL+RLVL+RAS, /* x++ */
62: 15 + NSTL+RLVL+RAS, /* x-- */
63: 1, /* , */
64: 0 + NSTL, /* Call */
65: 6 + RTOL+RTOR, /* && */
66: 5 + RTOL+RTOR, /* || */
67: 0, /* Cast of types */
68: 0, /* Conversion */
69: 0, /* Field marker */
70: 0 + RAS, /* Sizeof */
71: 2 + ASGN+RLVL+RAS, /* = */
72: 0, /* Drain conversions */
73: 0, /* Init */
74: 0, /* Arglist */
75: 0, /* Leaf */
76: 0, /* Fix up */
77: 0 /* Block move */
78:
79: };
80:
81: /*
82: * Conversions.
83: * Indexed by 12*(lt-T_CHAR) + (rt-T_CHAR).
84: * Linear types are the same as the abstract
85: * types, with all pointers mapped to T_PTR
86: * and nothing greater than T_STRUCT.
87: * Flags are:
88: * GOAL Mask to get goal type.
89: * GTR Goal is same as right.
90: * GTL Goal is same as left.
91: * CVR Convert right.
92: * CVL Convert left.
93: * CVRA If op is ASGN, do CVR.
94: * CARA If op is ASGN, do CAST right side.
95: * UREL Use unsigned relations.
96: */
97: short cvdope[] = {
98:
99: T_INT + CVL + CVR + CVRA, /* c :: c */
100: T_UINT + CVL + CVR + CVRA + UREL, /* c :: uc */
101: T_INT + CVL + CVR + CVRA, /* c :: s */
102: T_UINT + CVL + CVR + CVRA + UREL, /* c :: us */
103: T_INT + CVL, /* c :: i */
104: T_UINT + CVL + CVRA + UREL, /* c :: ui */
105: GTR + CVL + CARA + UREL, /* c :: p */
106: T_LONG + CVL + CVRA, /* c :: l */
107: T_ULONG + CVL + CVRA + UREL, /* c :: ul */
108: T_DOUBLE+ CVL + CVR + CVRA, /* c :: f */
109: T_DOUBLE+ CVL + CVRA, /* c :: d */
110: 0, /* c :: v */
111: 0, /* c :: t */
112:
113: T_UINT + CVL + CVR + CVRA + UREL, /* uc :: c */
114: T_UINT + CVL + CVR + CVRA + UREL, /* uc :: uc */
115: T_UINT + CVL + CVR + CVRA + UREL, /* uc :: s */
116: T_UINT + CVL + CVR + CVRA + UREL, /* uc :: us */
117: T_UINT + CVL + CVR + UREL, /* uc :: i */
118: T_UINT + CVL + CVRA + UREL, /* uc :: ui */
119: GTR + CVL + CARA + UREL, /* uc :: p */
120: T_ULONG + CVL + CVR + CVRA + UREL, /* uc :: l */
121: T_ULONG + CVL + CVRA + UREL, /* uc :: ul */
122: T_DOUBLE+ CVL + CVR + CVRA, /* uc :: f */
123: T_DOUBLE+ CVL + CVRA, /* uc :: d */
124: 0, /* uc :: v */
125: 0, /* uc :: t */
126:
127: T_INT + CVL + CVR + CVRA, /* s :: c */
128: T_UINT + CVL + CVR + CVRA + UREL, /* s :: uc */
129: T_INT + CVL + CVR + CVRA, /* s :: s */
130: T_UINT + CVL + CVR + CVRA + UREL, /* s :: us */
131: T_INT + CVL, /* s :: i */
132: T_UINT + CVL + CVRA + UREL, /* s :: ui */
133: GTR + CVL + CARA + UREL, /* s :: p */
134: T_LONG + CVL + CVRA, /* s :: l */
135: T_ULONG + CVL + CVRA + UREL, /* s :: ul */
136: T_DOUBLE+ CVL + CVR + CVRA, /* s :: f */
137: T_DOUBLE+ CVL + CVRA, /* s :: d */
138: 0, /* s :: v */
139: 0, /* s :: t */
140:
141: T_UINT + CVL + CVR + CVRA + UREL, /* us :: c */
142: T_UINT + CVL + CVR + CVRA + UREL, /* us :: uc */
143: T_UINT + CVL + CVR + CVRA + UREL, /* us :: s */
144: T_UINT + CVL + CVR + CVRA + UREL, /* us :: us */
145: T_UINT + CVL + CVR + CVRA + UREL, /* us :: i */
146: T_UINT + CVL + UREL, /* us :: ui */
147: GTR + CVL + CARA + UREL, /* us :: p */
148: T_ULONG + CVL + CVR + CVRA + UREL, /* us :: l */
149: T_ULONG + CVL + CVRA + UREL, /* us :: ul */
150: T_DOUBLE+ CVL + CVR + CVRA, /* us :: f */
151: T_DOUBLE+ CVL + CVRA, /* us :: d */
152: 0, /* us :: v */
153: 0, /* us :: t */
154:
155: T_INT + CVR + CVRA, /* i :: c */
156: T_UINT + CVL + CVR + CVRA + UREL, /* i :: uc */
157: T_INT + CVR + CVRA, /* i :: s */
158: T_UINT + CVL + CVR + CVRA + UREL, /* i :: us */
159: T_INT, /* i :: i */
160: T_UINT + CVL + CVRA + UREL, /* i :: ui */
161: GTR + CVL + CARA + UREL, /* i :: p */
162: T_LONG + CVL + CVRA, /* i :: l */
163: T_ULONG + CVL + CVRA + UREL, /* i :: ul */
164: T_DOUBLE+ CVL + CVR + CVRA, /* i :: f */
165: T_DOUBLE+ CVL + CVRA, /* i :: d */
166: 0, /* i :: v */
167: 0, /* i :: t */
168:
169: T_UINT + CVR + CVRA + UREL, /* ui :: c */
170: T_UINT + CVR + CVRA + UREL, /* ui :: uc */
171: T_UINT + CVR + CVRA + UREL, /* ui :: s */
172: T_UINT + CVR + CVRA + UREL, /* ui :: us */
173: T_UINT + CVR + CVRA + UREL, /* ui :: i */
174: T_UINT + UREL, /* ui :: ui */
175: GTR + CVL + CARA + UREL, /* ui :: p */
176: T_ULONG + CVL + CVR + CVRA + UREL, /* ui :: l */
177: T_ULONG + CVL + CVRA + UREL, /* ui :: ul */
178: T_DOUBLE+ CVL + CVR + CVRA, /* ui :: f */
179: T_DOUBLE+ CVL + CVRA, /* ui :: d */
180: 0, /* ui :: v */
181: 0, /* ui :: t */
182:
183: GTL + CVR + CVRA + UREL, /* p :: c */
184: GTL + CVR + CVRA + UREL, /* p :: uc */
185: GTL + CVR + CVRA + UREL, /* p :: s */
186: GTL + CVR + CVRA + UREL, /* p :: us */
187: GTL + CVR + CVRA + UREL, /* p :: i */
188: GTL + CVR + CVRA + UREL, /* p :: ui */
189: GTL + UREL, /* p :: p */
190: GTL + CVR + CVRA + UREL, /* p :: l */
191: GTL + CVR + CVRA + UREL, /* p :: ul */
192: 0, /* p :: f */
193: 0, /* p :: d */
194: 0, /* p :: v */
195: 0, /* p :: t */
196:
197: T_LONG + CVR + CVRA, /* l :: c */
198: T_ULONG + CVL + CVR + CVRA + UREL, /* l :: uc */
199: T_LONG + CVR + CVRA, /* l :: s */
200: T_ULONG + CVL + CVR + CVRA + UREL, /* l :: us */
201: T_LONG + CVR + CVRA, /* l :: i */
202: T_ULONG + CVL + CVR + CVRA + UREL, /* l :: ui */
203: GTR + CVL + CARA + UREL, /* l :: p */
204: T_LONG, /* l :: l */
205: T_ULONG + CVL + CVRA + UREL, /* l :: ul */
206: T_DOUBLE+ CVL + CVR + CVRA, /* l :: f */
207: T_DOUBLE+ CVL + CVRA, /* l :: d */
208: 0, /* l :: v */
209: 0, /* l :: t */
210:
211: T_ULONG + CVR + CVRA + UREL, /* ul :: c */
212: T_ULONG + CVR + CVRA + UREL, /* ul :: uc */
213: T_ULONG + CVR + CVRA + UREL, /* ul :: s */
214: T_ULONG + CVR + CVRA + UREL, /* ul :: us */
215: T_ULONG + CVR + CVRA + UREL, /* ul :: i */
216: T_ULONG + CVR + CVRA + UREL, /* ul :: ui */
217: GTR + CVL + CARA + UREL, /* ul :: p */
218: T_ULONG + CVR + CVRA + UREL, /* ul :: l */
219: T_ULONG + UREL, /* ul :: ul */
220: T_DOUBLE+ CVL + CVR + CVRA, /* ul :: f */
221: T_DOUBLE+ CVL + CVRA, /* ul :: d */
222: 0, /* ul :: v */
223: 0, /* ul :: t */
224:
225: T_DOUBLE+ CVL + CVR + CVRA, /* f :: c */
226: T_DOUBLE+ CVL + CVR + CVRA, /* f :: uc */
227: T_DOUBLE+ CVL + CVR + CVRA, /* f :: s */
228: T_DOUBLE+ CVL + CVR + CVRA, /* f :: us */
229: T_DOUBLE+ CVL + CVR + CVRA, /* f :: i */
230: T_DOUBLE+ CVL + CVR + CVRA, /* f :: ui */
231: 0, /* f :: p */
232: T_DOUBLE+ CVL + CVR + CVRA, /* f :: l */
233: T_DOUBLE+ CVL + CVR + CVRA, /* f :: ul */
234: T_DOUBLE+ CVL + CVR + CVRA, /* f :: f */
235: T_DOUBLE+ CVL + CVRA, /* f :: d */
236: 0, /* f :: v */
237: 0, /* f :: t */
238:
239: T_DOUBLE+ CVR + CVRA, /* d :: c */
240: T_DOUBLE+ CVR + CVRA, /* d :: uc */
241: T_DOUBLE+ CVR + CVRA, /* d :: s */
242: T_DOUBLE+ CVR + CVRA, /* d :: us */
243: T_DOUBLE+ CVR + CVRA, /* d :: i */
244: T_DOUBLE+ CVR + CVRA, /* d :: ui */
245: 0, /* d :: p */
246: T_DOUBLE+ CVR + CVRA, /* d :: l */
247: T_DOUBLE+ CVR + CVRA, /* d :: ul */
248: T_DOUBLE+ CVR + CVRA, /* d :: f */
249: T_DOUBLE, /* d :: d */
250: 0, /* d :: v */
251: 0, /* d :: t */
252:
253: 0, /* v :: c */
254: 0, /* v :: uc */
255: 0, /* v :: s */
256: 0, /* v :: us */
257: 0, /* v :: i */
258: 0, /* v :: ui */
259: 0, /* v :: p */
260: 0, /* v :: l */
261: 0, /* v :: ul */
262: 0, /* v :: f */
263: 0, /* v :: d */
264: 0, /* v :: v */
265: 0, /* v :: t */
266:
267: 0, /* t :: c */
268: 0, /* t :: uc */
269: 0, /* t :: s */
270: 0, /* t :: us */
271: 0, /* t :: i */
272: 0, /* t :: ui */
273: 0, /* t :: p */
274: 0, /* t :: l */
275: 0, /* t :: ul */
276: 0, /* t :: f */
277: 0, /* t :: d */
278: 0, /* t :: v */
279: GTL /* t :: t */
280: };
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.