![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to table.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDTahoe / lib / old_compiler / pcc / pcc.tahoe|
Return to table.c CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / lib / old_compiler / pcc / pcc.tahoe |
1.1 root 1: #ifndef lint
2: static char sccsid[] = "@(#)table.c 1.5 (Berkeley) 1/9/87";
3: #endif
4:
5: # include "pass2.h"
6: /* special shapes (SSOREG,SZERO etc.) shouldn't be or-ed */
7: # define AWD SNAME|SOREG|SCON|STARNM|STARREG
8: /* tbl */
9: # define ANYSIGNED TPOINT|TINT|TSHORT|TCHAR
10: # define ANYUSIGNED TUNSIGNED|TUSHORT|TUCHAR
11: # define ANYFIXED ANYSIGNED|ANYUSIGNED
12: # define TWORD TINT|TUNSIGNED|TPOINT
13: /* tbl */
14:
15: struct optab table[] = {
16:
17: PCONV, INAREG|INTAREG,
18: SAREG|AWD, TCHAR|TSHORT,
19: SANY, TPOINT,
20: NAREG|NASL, RESC1,
21: " cvtZLl AL,A1\n",
22:
23: PCONV, INAREG|INTAREG,
24: SAREG|AWD, TUCHAR|TUSHORT,
25: SANY, TPOINT,
26: NAREG|NASL, RESC1,
27: " movzZLl AL,A1\n",
28:
29: /* the following entry is to fix a problem with
30: the manner that the first pass handles the
31: type of a shift expression */
32: PCONV, INAREG|INTAREG,
33: SAREG|AWD, TINT|TUNSIGNED,
34: SANY, TPOINT,
35: NAREG|NASL, RLEFT,
36: "",
37:
38: SCONV, INAREG|INTAREG|FORCC,
39: SAREG|AWD, TDOUBLE,
40: SANY, TFLOAT,
41: NAREG|NASL, RESC1|RESCC,
42: " ldd AL\n cvdf\n stf TA1\n",
43:
44: SCONV, INAREG|INTAREG|FORCC,
45: SAREG|AWD, TFLOAT,
46: SANY, TDOUBLE,
47: NAREG|NASL, RESC1|RESCC,
48: " ldfd AL\n std A1\n",
49:
50: SCONV, INAREG|INTAREG|FORCC,
51: SAREG|AWD, TINT|TUNSIGNED,
52: SANY, TFLOAT|TDOUBLE,
53: NAREG|NASL, RESC1|RESCC,
54: " cvlZR AL\n stZR TA1\n",
55:
56: SCONV, INAREG|INTAREG|FORCC,
57: SAREG|AWD, TFLOAT|TDOUBLE,
58: SANY, ANYFIXED,
59: NAREG|NASL, RESC1|RESCC,
60: " ldZL AL\n cvZLl A1\n",
61:
62: SCONV, INAREG|INTAREG,
63: SAREG|AWD, ANYFIXED,
64: SANY, ANYFIXED,
65: NAREG|NASL, RESC1|RESCC,
66: "ZU",
67:
68: SCONV, INAREG|INTAREG|FORCC,
69: SAREG|AWD, ANYFIXED,
70: SANY, ANYFIXED,
71: NAREG|NASL, RESC1|RESCC,
72: "ZV",
73:
74: INIT, FOREFF,
75: SCON, TANY,
76: SANY, TWORD,
77: 0, RNOP,
78: " .long CL\n",
79:
80: INIT, FOREFF,
81: SCON, TANY,
82: SANY, TSHORT|TUSHORT,
83: 0, RNOP,
84: " .word CL\n",
85:
86: INIT, FOREFF,
87: SCON, TANY,
88: SANY, TCHAR|TUCHAR,
89: 0, RNOP,
90: " .byte CL\n",
91:
92: /* for the use of fortran only */
93:
94: GOTO, FOREFF,
95: SCON, TANY,
96: SANY, TANY,
97: 0, RNOP,
98: " jbr CL\n",
99:
100: GOTO, FOREFF,
101: AWD, TANY,
102: SANY, TANY,
103: 0, RNOP,
104: " jmp *AL\n",
105:
106: GOTO, FOREFF,
107: SAREG, TANY,
108: SANY, TANY,
109: 0, RNOP,
110: " jmp (AL)\n",
111:
112: STARG, FORARG,
113: SCON|SOREG, TANY,
114: SANY, TANY,
115: NTEMP+2*NAREG, RESC3,
116: "ZS",
117:
118: STASG, FORARG,
119: SNAME|SOREG, TANY,
120: SCON|SAREG, TANY,
121: 0, RNULL,
122: " ZT\nZS",
123:
124: STASG, FOREFF,
125: SNAME|SOREG, TANY,
126: SCON|SAREG, TANY,
127: 0, RNOP,
128: "ZS",
129:
130: STASG, INAREG,
131: SNAME|SOREG, TANY,
132: SCON, TANY,
133: NAREG, RESC1,
134: "ZS movl AR,A1\n",
135:
136: STASG, INAREG,
137: SNAME|SOREG, TANY,
138: SAREG, TANY,
139: 0, RRIGHT,
140: " pushl AR\nZS movl (sp)+,AR\n",
141:
142: OPLOG, FORCC,
143: SAREG|AWD, TWORD,
144: SAREG|AWD, TWORD,
145: 0, RESCC,
146: " cmpl AL,AR\nZP",
147:
148: OPLOG, FORCC,
149: AWD, TUSHORT,
150: SCON, TANY,
151: NAREG, RESCC,
152: " movzwl AL,A1\n cmpw A1,AR\nZP",
153:
154: OPLOG, FORCC,
155: SAREG|AWD, TSHORT|TUSHORT,
156: SCON, TANY,
157: 0, RESCC,
158: " cmpw AL,ZZ\nZP",
159:
160: OPLOG, FORCC,
161: SAREG|AWD, TSHORT|TUSHORT,
162: SAREG|AWD, TSHORT|TUSHORT,
163: 0, RESCC,
164: " cmpw AL,AR\nZP",
165:
166: OPLOG, FORCC,
167: AWD, TUCHAR,
168: SCON, TANY,
169: NAREG, RESCC,
170: " movzbl AL,A1\n cmpb A1,AR\nZP",
171:
172: OPLOG, FORCC,
173: SAREG|AWD, TCHAR|TUCHAR,
174: SCON, TANY,
175: 0, RESCC,
176: " cmpb AL,ZZ\nZP",
177:
178: OPLOG, FORCC,
179: SAREG|AWD, TCHAR|TUCHAR,
180: SAREG|AWD, TCHAR|TUCHAR,
181: 0, RESCC,
182: " cmpb AL,AR\nZP",
183:
184: OPLOG, FORCC,
185: SAREG|AWD, TFLOAT,
186: SAREG|AWD, TFLOAT,
187: 0, RESCC,
188: " cmpZL2 AL,AR\nZP",
189:
190: OPLOG, FORCC,
191: SZERO, TDOUBLE,
192: SAREG|AWD, TDOUBLE,
193: 0, RESCC,
194: " cmpf2 AL,AR\nZP",
195:
196: OPLOG, FORCC,
197: SAREG|AWD, TDOUBLE,
198: SAREG|AWD, TDOUBLE,
199: 0, RESCC,
200: " cmpZL2 AL,AR\nZP",
201:
202: CCODES, INAREG|INTAREG,
203: SANY, TANY,
204: SANY, TANY,
205: NAREG, RESC1,
206: " movl $1,A1\nZN",
207:
208: UNARY CALL, INAREG|INTAREG,
209: SCON, TANY,
210: SANY, TANY,
211: NAREG|NASL, RESC1, /* should be register 0 */
212: " ZC,CL\n",
213:
214: UNARY CALL, INAREG|INTAREG,
215: SAREG, TANY,
216: SANY, TANY,
217: NAREG|NASL, RESC1, /* should be 0 */
218: " ZC,(AL)\n",
219:
220: UNARY CALL, INAREG|INTAREG,
221: SNAME, TANY,
222: SANY, TANY,
223: NAREG|NASL, RESC1, /* really reg 0 */
224: " ZC,*AL\n",
225:
226: UNARY CALL, INAREG|INTAREG,
227: SSOREG, TANY,
228: SANY, TANY,
229: NAREG|NASL, RESC1, /* really reg 0 */
230: " ZC,*AL\n",
231:
232: FORTCALL, INAREG|INTAREG,
233: SCON, TANY,
234: SAREG|AWD, TFLOAT,
235: NAREG|NASL|NASR, RESC1,
236: " ldf AR\n CLf\n stf TA1\n",
237:
238: ASG OPSHFT, INAREG|FOREFF|FORCC,
239: SAREG|AWD, TWORD,
240: SAREG|SCON, ANYFIXED,
241: 0, RLEFT|RESCC,
242: " ZH AR,AL,AL\n",
243:
244: ASG OPSHFT, INAREG|FOREFF|FORCC,
245: SAREG|AWD, TWORD,
246: AWD, TCHAR|TUCHAR,
247: 0, RLEFT|RESCC,
248: " ZH AR,AL,AL\n",
249:
250: ASG OPSHFT, INAREG|FOREFF|FORCC,
251: SAREG|AWD, TWORD,
252: AWD, ANYFIXED,
253: NAREG, RLEFT|RESCC,
254: " ZB AR,A1\n ZH A1,AL,AL\n",
255:
256: OPSHFT, INAREG|INTAREG|FORCC,
257: SAREG|AWD, TWORD,
258: SAREG|SCON, ANYFIXED,
259: NAREG|NASL|NASR, RESC1|RESCC,
260: " ZH AR,AL,A1\n",
261:
262: OPSHFT, INAREG|INTAREG|FORCC,
263: SAREG|AWD, TWORD,
264: AWD, TCHAR|TUCHAR,
265: NAREG|NASL|NASR, RESC1|RESCC,
266: " ZH AR,AL,A1\n",
267:
268: OPSHFT, INAREG|INTAREG|FORCC,
269: SAREG|AWD, TWORD,
270: AWD, ANYFIXED,
271: NAREG|NASR, RESC1|RESCC,
272: " ZB AR,A1\n ZH A1,AL,A1\n",
273:
274: INCR, FOREFF,
275: AWD, TWORD,
276: SCON, TANY,
277: 0, RLEFT,
278: " ZE\n",
279:
280: DECR, FOREFF,
281: AWD, TWORD,
282: SCON, TANY,
283: 0, RLEFT,
284: " ZE\n",
285:
286: INCR, FOREFF,
287: SAREG, TWORD,
288: SCON, TANY,
289: 0, RLEFT,
290: " ZE\n",
291:
292: DECR, FOREFF,
293: SAREG, TWORD,
294: SCON, TANY,
295: 0, RLEFT,
296: " ZE\n",
297:
298: /* jwf INCR and DECR for SAREG TCHAR|TSHORT matched by ASG PLUS etc */
299:
300: INCR, INAREG|INTAREG,
301: AWD, TANY,
302: SCON, TANY,
303: NAREG, RESC1,
304: " ZD\n",
305:
306: DECR, INAREG|INTAREG,
307: AWD, TANY,
308: SCON, TANY,
309: NAREG, RESC1,
310: " ZD\n",
311:
312: INCR, INAREG|INTAREG,
313: SAREG, TWORD,
314: SCON, TANY,
315: NAREG, RESC1,
316: " ZD\n",
317:
318: DECR, INAREG|INTAREG,
319: SAREG, TWORD,
320: SCON, TANY,
321: NAREG, RESC1,
322: " ZD\n",
323:
324: ASSIGN, INAREG|FOREFF|FORCC,
325: SIREG, TDOUBLE,
326: SZERO, TANY,
327: 0, RLEFT|RESCC,
328: " cvld $0\n std AL\n",
329:
330: ASSIGN, INAREG|FOREFF|FORCC,
331: SAREG|SNAME|SOREG, TDOUBLE,
332: SZERO, TANY,
333: 0, RLEFT|RESCC,
334: " clrl UL\n clrl AL\n",
335:
336: ASSIGN, INAREG|FOREFF|FORCC,
337: SAREG|AWD, TDOUBLE,
338: SIREG, TDOUBLE,
339: 0, RLEFT|RRIGHT|RESCC,
340: " ldd AR\n std AL\n",
341:
342: ASSIGN, INAREG|FOREFF|FORCC,
343: SIREG, TDOUBLE,
344: SAREG|AWD, TDOUBLE,
345: 0, RLEFT|RRIGHT|RESCC,
346: " ldd AR\n std AL\n",
347:
348: ASSIGN, INAREG|FOREFF|FORCC,
349: SAREG|SNAME|SOREG, TDOUBLE,
350: SAREG|SNAME|SOREG, TDOUBLE,
351: 0, RLEFT|RRIGHT|RESCC,
352: " movl UR,UL\n movl AR,AL\n",
353:
354: ASSIGN, INAREG|FOREFF|FORCC,
355: SAREG|AWD, TFLOAT,
356: SZERO, TANY,
357: 0, RLEFT|RESCC,
358: " clrl TAL\n",
359:
360: ASSIGN, INAREG|FOREFF|FORCC,
361: SAREG|AWD, TFLOAT,
362: SAREG|AWD, TFLOAT,
363: 0, RLEFT|RRIGHT|RESCC,
364: " movl AR,TAL\n",
365:
366: ASSIGN, INAREG|FOREFF|FORCC,
367: SAREG|AWD, ANYFIXED,
368: SAREG|AWD, ANYFIXED,
369: 0, RLEFT|RRIGHT|RESCC,
370: " ZA\n",
371:
372: ASSIGN, INAREG|FOREFF,
373: SFLD, TANY,
374: SZERO, TANY,
375: 0, RRIGHT,
376: " andl2 N,AL\n",
377:
378: ASSIGN, INAREG|FOREFF,
379: SFLD, TANY,
380: SCON, TANY,
381: 0, RRIGHT,
382: " andl2 N,AL\n orl2 ZF,AL\n",
383:
384: ASSIGN, INAREG|FOREFF,
385: SFLD, TANY,
386: SAREG|AWD, TWORD,
387: NAREG|NASL, RRIGHT,
388: " shll $H,AR,A1\n andl2 M,A1\n andl2 N,AL\n\
389: orl2 A1,AL\n",
390:
391: /* dummy UNARY MUL entry to get U* to possibly match OPLTYPE */
392: UNARY MUL, FOREFF,
393: SCC, TANY,
394: SCC, TANY,
395: 0, RNULL,
396: " help help help\n",
397:
398: REG, INTEMP,
399: SANY, TANY,
400: SAREG, TDOUBLE,
401: 2*NTEMP, RESC1,
402: " movl UR,U1\n movl AR,A1\n",
403:
404: REG, INTEMP,
405: SANY, TANY,
406: SAREG, TANY,
407: NTEMP, RESC1,
408: " movl AR,A1\n",
409:
410: REG, FORARG,
411: SANY, TANY,
412: SAREG, TFLOAT,
413: 0, RNULL,
414: " pushl $0\n pushl AR\n",
415:
416: REG, FORARG,
417: SANY, TANY,
418: SAREG, TDOUBLE,
419: 0, RNULL,
420: " pushl UR\n pushl AR\n",
421:
422: OPLEAF, FOREFF,
423: SANY, TANY,
424: SAREG|AWD, TANY,
425: 0, RLEFT,
426: "",
427:
428: OPLTYPE, INAREG|INTAREG,
429: SANY, TANY,
430: SZERO, TDOUBLE,
431: NAREG|NASR, RESC1,
432: " clrl U1\n clrl A1\n",
433:
434: OPLTYPE, INAREG|INTAREG,
435: SANY, TANY,
436: SIREG, TDOUBLE,
437: NAREG|NASR, RESC1,
438: " ldd AR\n std A1\n",
439:
440: OPLTYPE, INAREG|INTAREG,
441: SANY, TANY,
442: SAREG|SNAME|SOREG|SCON, TDOUBLE,
443: NAREG, RESC1,
444: " movl AR,A1\n movl UR,U1\n",
445:
446: OPLTYPE, INAREG|INTAREG,
447: SANY, TANY,
448: SZERO, TANY,
449: NAREG|NASR, RESC1,
450: " clrl TA1\n",
451:
452: OPLTYPE, INAREG|INTAREG,
453: SANY, TANY,
454: SAREG|AWD, TFLOAT,
455: NAREG|NASR, RESC1,
456: " movl AR,TA1\n",
457:
458: OPLTYPE, INAREG|INTAREG,
459: SANY, TANY,
460: SANY, ANYFIXED,
461: NAREG|NASR, RESC1,
462: " ZA\n",
463:
464: OPLTYPE, FORCC,
465: SANY, TANY,
466: SIREG, TDOUBLE,
467: 0, RESCC,
468: " ldd AR\n tstd\n",
469:
470: OPLTYPE, FORCC,
471: SANY, TANY,
472: SAREG|AWD, TFLOAT,
473: 0, RESCC,
474: " ldf AR\n tstf\n",
475:
476: OPLTYPE, FORCC,
477: SANY, TANY,
478: SAREG|AWD, TDOUBLE,
479: 0, RESCC,
480: " ldd AR\n tstd\n",
481:
482: OPLTYPE, FORCC,
483: SANY, TANY,
484: SANY, ANYFIXED,
485: 0, RESCC,
486: " tstZR AR\n",
487:
488: OPLTYPE, FORARG,
489: SANY, TANY,
490: SANY, TWORD,
491: 0, RNULL,
492: " pushl AR\n",
493:
494: OPLTYPE, FORARG,
495: SANY, TANY,
496: SANY, TCHAR|TSHORT,
497: 0, RNULL,
498: " pushZR AR\n",
499:
500: OPLTYPE, FORARG,
501: SANY, TANY,
502: SANY, TUCHAR|TUSHORT,
503: 0, RNULL,
504: " movzZRl AR,-(sp)\n",
505:
506: OPLTYPE, FORARG,
507: SANY, TANY,
508: SZERO, TFLOAT|TDOUBLE,
509: 0, RNULL,
510: " pushl $0\n pushl $0\n",
511:
512: OPLTYPE, FORARG,
513: SANY, TANY,
514: SIREG, TDOUBLE,
515: 0, RNULL,
516: " ldd AR\n pushd\n",
517:
518: OPLTYPE, FORARG,
519: SANY, TANY,
520: SAREG|AWD, TDOUBLE,
521: 0, RNULL,
522: " pushl UR\n pushl AR\n",
523:
524: OPLTYPE, FORARG,
525: SANY, TANY,
526: SAREG|AWD, TFLOAT,
527: 0, RNULL,
528: " pushl $0\n pushl AR\n",
529:
530: UNARY MINUS, INAREG|INTAREG|FORCC,
531: SAREG|AWD, ANYSIGNED|TUNSIGNED,
532: SANY, TANY,
533: NAREG|NASL, RESC1|RESCC,
534: " mnegZL AL,A1\n",
535:
536: UNARY MINUS, INAREG|INTAREG|FORCC,
537: SAREG|AWD, TFLOAT|TDOUBLE,
538: SANY, TANY,
539: NAREG|NASL, RESC1|RESCC,
540: " lnZL AL\n stZL TA1\n",
541:
542: COMPL, INAREG|INTAREG|FORCC,
543: SAREG|AWD, ANYSIGNED|TUNSIGNED,
544: SANY, TANY,
545: NAREG|NASL, RESC1|RESCC,
546: " mcomZL AL,A1\n",
547:
548: COMPL, INAREG|INTAREG|FORCC,
549: SAREG|AWD, ANYFIXED,
550: SANY, TANY,
551: NAREG|NASL, RESC1|RESCC,
552: " cvtZLl AL,A1\n mcoml A1,A1\n",
553:
554: AND, FORCC,
555: SAREG|AWD, TWORD,
556: SAREG|AWD, TWORD,
557: 0, RESCC,
558: " bitl AR,AL\n",
559:
560: AND, FORCC,
561: SAREG|AWD, TSHORT|TUSHORT,
562: SSCON, TWORD,
563: 0, RESCC,
564: " bitw AR,AL\n",
565:
566: AND, FORCC,
567: SAREG|AWD, TSHORT|TUSHORT,
568: SAREG|AWD, TSHORT|TUSHORT,
569: 0, RESCC,
570: " bitw AR,AL\n",
571:
572: AND, FORCC,
573: SAREG|AWD, TCHAR|TUCHAR,
574: SCCON, TWORD,
575: 0, RESCC,
576: " bitb AR,AL\n",
577:
578: AND, FORCC,
579: SAREG|AWD, TCHAR|TUCHAR,
580: SAREG|AWD, TCHAR|TUCHAR,
581: 0, RESCC,
582: " bitb AR,AL\n",
583:
584: ASG DIV, INAREG|FOREFF|FORCC, /* should have been done in mip */
585: SAREG|AWD, ANYFIXED,
586: SONE, TWORD,
587: 0, RLEFT|RESCC,
588: " tstZL AL\n",
589:
590: ASG DIV, INAREG|FOREFF|FORCC,
591: SAREG|AWD, TUCHAR|TUSHORT,
592: SAREG|AWD, TUCHAR|TUSHORT,
593: 2*NAREG, RLEFT|RESC1|RESCC,
594: "ZX OL2 A2,A1\n cvtlZL A1,AL\n",
595:
596: ASG DIV, INAREG|FOREFF|FORCC,
597: SAREG|AWD, TWORD,
598: SAREG|AWD, TUNSIGNED,
599: 3*NAREG|NEVEN, RLEFT|RESCC,
600: "ZM OE AR,A1,A2,A3\n movl A2,AL\n",
601:
602: DIV, INAREG|INTAREG|FORCC,
603: SAREG|AWD, TUCHAR|TUSHORT,
604: SAREG|AWD, TUCHAR|TUSHORT,
605: 2*NAREG, RESC1|RESCC,
606: "ZX OL2 A2,A1\n",
607:
608: DIV, INAREG|INTAREG|FORCC,
609: SAREG|AWD, TWORD,
610: SAREG|AWD, TUNSIGNED,
611: 3*NAREG|NEVEN, RESC2|RESCC,
612: "ZM OE AR,A1,A2,A3\n",
613:
614: ASG MOD, INAREG|FOREFF,
615: SAREG|AWD, ANYFIXED,
616: SONE, TWORD,
617: 0, RLEFT,
618: " clrZL AL\n",
619:
620: MOD, INAREG|INTAREG,
621: STAREG, TWORD,
622: SONE, TWORD,
623: 0, RLEFT,
624: " clrl AL\n",
625:
626: MOD, INAREG|INTAREG,
627: SAREG|AWD, ANYFIXED,
628: SONE, TWORD,
629: 0, RESC1,
630: " clrl A1\n",
631:
632: ASG MOD, INAREG|FOREFF,
633: SAREG|AWD, TWORD,
634: SAREG|AWD, TWORD,
635: 3*NAREG|NEVEN, RLEFT,
636: "ZM OE AR,A1,A2,A3\n movl A3,AL\n",
637:
638: MOD, INAREG|INTAREG,
639: SAREG|AWD, TWORD,
640: SAREG|AWD, TWORD,
641: 3*NAREG|NEVEN, RESC3,
642: "ZM OE AR,A1,A2,A3\n",
643:
644: ASG MUL, INAREG|FOREFF|FORCC,
645: SAREG|AWD, TCHAR|TUCHAR,
646: SAREG|AWD, TCHAR|TUCHAR,
647: 2*NAREG, RLEFT|RESCC,
648: "ZX OL2 A2,A1\n cvtlb A1,AL\n",
649:
650: ASG MUL, INAREG|FOREFF|FORCC,
651: SAREG|AWD, TUNSIGNED,
652: SAREG|AWD, TUNSIGNED|TINT,
653: NAREG|NEVEN, RLEFT|RESCC,
654: " emul AR,AL,$0,A1\n movl U1,AL\n",
655:
656: ASG MUL, INAREG|FOREFF|FORCC,
657: SAREG|AWD, TUNSIGNED|TINT,
658: SAREG|AWD, TUNSIGNED,
659: NAREG|NEVEN, RLEFT|RESCC,
660: " emul AR,AL,$0,A1\n movl U1,AL\n",
661:
662: ASG OPMUL, INAREG|FOREFF|FORCC,
663: SAREG|AWD, TWORD,
664: SAREG|AWD, TWORD,
665: 0, RLEFT|RESCC,
666: " OL2 AR,AL\n",
667:
668: MUL, INAREG|INTAREG|FORCC,
669: STAREG, TUNSIGNED,
670: SAREG|AWD, TUNSIGNED|TINT,
671: NAREG|NEVEN, RLEFT|RESCC,
672: " emul AR,AL,$0,A1\n movl U1,AL\n",
673:
674: MUL, INAREG|INTAREG|FORCC,
675: STAREG, TUNSIGNED|TINT,
676: SAREG|AWD, TUNSIGNED,
677: NAREG|NEVEN, RLEFT|RESCC,
678: " emul AR,AL,$0,A1\n movl U1,AL\n",
679:
680: OPMUL, INAREG|INTAREG|FORCC,
681: STAREG, TWORD,
682: SAREG|AWD, TWORD,
683: 0, RLEFT|RESCC,
684: " OL2 AR,AL\n",
685:
686: MUL, INAREG|INTAREG|FORCC,
687: SAREG|AWD, TCHAR|TUCHAR,
688: SAREG|AWD, TCHAR|TUCHAR,
689: 2*NAREG, RESC1|RESCC,
690: "ZX mull2 A2,A1\n",
691:
692: MUL, INAREG|INTAREG|FORCC,
693: SAREG|AWD, TUNSIGNED,
694: SAREG|AWD, TUNSIGNED|TINT,
695: NAREG|NEVEN, RESC1|RESCC,
696: " emul AR,AL,$0,A1\n movl U1,A1\n",
697:
698: MUL, INAREG|INTAREG|FORCC,
699: SAREG|AWD, TUNSIGNED|TINT,
700: SAREG|AWD, TUNSIGNED,
701: NAREG|NEVEN, RESC1|RESCC,
702: " emul AR,AL,$0,A1\n movl U1,A1\n",
703:
704: OPMUL, INAREG|INTAREG|FORCC,
705: SAREG|AWD, TWORD,
706: SAREG|AWD, TWORD,
707: NAREG|NASL|NASR, RESC1|RESCC,
708: " OL3 AR,AL,A1\n",
709:
710: ASG PLUS, INAREG|FOREFF|FORCC,
711: SAREG, TWORD,
712: SONE, TINT,
713: 0, RLEFT|RESCC,
714: " incZL AL\n",
715:
716: ASG PLUS, INAREG|FOREFF|FORCC,
717: AWD, ANYFIXED,
718: SONE, TINT,
719: 0, RLEFT|RESCC,
720: " incZL AL\n",
721:
722: ASG MINUS, INAREG|FOREFF|FORCC,
723: SAREG, TWORD,
724: SONE, TINT,
725: 0, RLEFT|RESCC,
726: " decZL AL\n",
727:
728: ASG MINUS, INAREG|FOREFF|FORCC,
729: AWD, ANYFIXED,
730: SONE, TINT,
731: 0, RLEFT|RESCC,
732: " decZL AL\n",
733:
734: PLUS, INAREG|INTAREG|FORCC,
735: STAREG, TWORD,
736: SONE, TWORD,
737: 0, RLEFT|RESCC,
738: " incZL AL\n",
739:
740: MINUS, INAREG|INTAREG|FORCC,
741: STAREG, TWORD,
742: SONE, TWORD,
743: 0, RLEFT|RESCC,
744: " decZL AL\n",
745:
746: ASG OPSIMP, INAREG|FOREFF|FORCC,
747: SAREG|AWD, TWORD,
748: SAREG|AWD, TWORD,
749: 0, RLEFT|RESCC,
750: " OL2 AR,AL\n",
751:
752: ASG OPSIMP, INAREG|FOREFF|FORCC,
753: SAREG, TWORD,
754: SAREG, TSHORT|TUSHORT|TCHAR|TUCHAR,
755: 0, RLEFT|RESCC,
756: " OL2 AR,AL\n",
757:
758: ASG OPSIMP, INAREG|FOREFF|FORCC,
759: AWD, TSHORT|TUSHORT,
760: SAREG|AWD, TSHORT|TUSHORT,
761: 0, RLEFT|RESCC,
762: " OW2 AR,AL\n",
763:
764: ASG OPSIMP, INAREG|FOREFF|FORCC,
765: AWD, TSHORT|TUSHORT,
766: SSCON, TWORD,
767: 0, RLEFT|RESCC,
768: " OW2 AR,AL\n",
769:
770: ASG OPSIMP, INAREG|FOREFF|FORCC,
771: AWD, TCHAR|TUCHAR,
772: SAREG|AWD, TCHAR|TUCHAR,
773: 0, RLEFT|RESCC,
774: " OB2 AR,AL\n",
775:
776: ASG OPSIMP, INAREG|FOREFF|FORCC,
777: AWD, TCHAR|TUCHAR,
778: SCCON, TWORD,
779: 0, RLEFT|RESCC,
780: " OB2 AR,AL\n",
781:
782: OPSIMP, INAREG|INTAREG|FORCC,
783: STAREG, ANYFIXED,
784: SAREG|AWD, TWORD,
785: 0, RLEFT|RESCC,
786: " OL2 AR,AL\n",
787:
788: OPSIMP, INAREG|INTAREG|FORCC,
789: SAREG|AWD, TWORD,
790: SAREG|AWD, TWORD,
791: NAREG|NASL|NASR, RESC1|RESCC,
792: " OL3 AR,AL,A1\n",
793:
794: ASG OPSIMP, INAREG|FOREFF,
795: SAREG|AWD, TFLOAT|TDOUBLE,
796: SZERO, TANY,
797: 0, RLEFT,
798: "",
799:
800: ASG MUL, INAREG|FOREFF|FORCC,
801: SIREG, TDOUBLE,
802: SZERO, TANY,
803: 0, RLEFT|RESCC,
804: " cvld $0\n std AL\n",
805:
806: ASG MUL, INAREG|FOREFF|FORCC,
807: SAREG|SNAME|SOREG, TDOUBLE,
808: SZERO, TANY,
809: 0, RLEFT|RESCC,
810: " clrl UL\n clrl AL\n",
811:
812: ASG MUL, INAREG|FOREFF|FORCC,
813: SAREG|AWD, TFLOAT,
814: SZERO, TANY,
815: 0, RLEFT|RESCC,
816: " clrl TAL\n",
817:
818: ASG OPFLOAT, INAREG|FOREFF|FORCC,
819: SAREG|AWD, TFLOAT,
820: SAREG|AWD, TFLOAT,
821: 0, RLEFT|RESCC,
822: " ldf AL\n OF AR\n stf TAL\n",
823:
824: ASG OPFLOAT, INAREG|FOREFF|FORCC,
825: SAREG|AWD, TDOUBLE,
826: SAREG|AWD, TDOUBLE,
827: 0, RLEFT|RESCC,
828: " ldd AL\n OD AR\n std AL\n",
829:
830: OPSIMP, INAREG|INTAREG,
831: SAREG, TFLOAT|TDOUBLE,
832: SZERO, TANY,
833: 0, RLEFT,
834: #if defined(FORT) || defined(SPRECC)
835: "T",
836: #else
837: "",
838: #endif
839:
840: OPSIMP, INAREG|INTAREG|FORCC,
841: AWD, TFLOAT,
842: SZERO, TANY,
843: NAREG, RESC1|RESCC,
844: " movl AL,A1\n",
845:
846: OPSIMP, INAREG|INTAREG|FORCC,
847: AWD, TDOUBLE,
848: SZERO, TANY,
849: NAREG, RESC1|RESCC,
850: " movl UL,U1\n movl AL,A1\n",
851:
852: MUL, INAREG|INTAREG|FORCC,
853: SAREG|AWD, TDOUBLE,
854: SZERO, TANY,
855: NAREG|NASR, RESC1|RESCC,
856: " clrl U1\n clrl A1\n",
857:
858: MUL, INAREG|INTAREG|FORCC,
859: SAREG|AWD, TFLOAT,
860: SZERO, TANY,
861: NAREG|NASR, RESC1|RESCC,
862: " clrl TA1\n",
863:
864: OPFLOAT, INAREG|INTAREG|FORCC,
865: SAREG|AWD, TFLOAT,
866: SAREG|AWD, TFLOAT,
867: NAREG|NASL|NASR, RESC1|RESCC,
868: " ldf AL\n OF AR\n stf TA1\n",
869:
870: OPFLOAT, INAREG|INTAREG|FORCC,
871: SZERO, TANY,
872: SAREG|AWD, TDOUBLE,
873: NAREG, RESC1|RESCC,
874: "\tclrl\tA1\n\tclrl\tU1\n\tldd\tA1\n\tOD\tAR\n\tstd\tA1\n",
875:
876: OPFLOAT, INAREG|INTAREG|FORCC,
877: SAREG|AWD, TDOUBLE,
878: SAREG|AWD, TDOUBLE,
879: NAREG|NASL|NASR, RESC1|RESCC,
880: " ldd AL\n OD AR\n std A1\n",
881:
882: /* Default actions for hard trees ... */
883:
884: # define DF(x) FORREW,SANY,TANY,SANY,TANY,REWRITE,x,""
885:
886: UNARY MUL, DF( UNARY MUL ),
887:
888: INCR, DF(INCR),
889:
890: DECR, DF(INCR),
891:
892: ASSIGN, DF(ASSIGN),
893:
894: STASG, DF(STASG),
895:
896: FLD, DF(FLD),
897:
898: OPLEAF, DF(NAME),
899:
900: OPLOG, FORCC,
901: SANY, TANY,
902: SANY, TANY,
903: REWRITE, BITYPE,
904: "",
905:
906: OPLOG, DF(NOT),
907:
908: COMOP, DF(COMOP),
909:
910: INIT, DF(INIT),
911:
912: OPUNARY, DF(UNARY MINUS),
913:
914:
915: ASG OPANY, DF(ASG PLUS),
916:
917: OPANY, DF(BITYPE),
918:
919: FREE, FREE, FREE, FREE, FREE, FREE, FREE, FREE, "help; I'm in trouble\n" };
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.