![[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 / pcc / pcc.tahoe|
Return to table.c CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / lib / pcc / pcc.tahoe |
1.1 root 1: #ifndef lint
2: static char sccsid[] = "@(#)table.c 1.24 (Berkeley) 7/14/88";
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: #ifdef REG_CHAR
18: PCONV, INAREG|INTAREG,
19: SAREG|AWD, TCHAR|TSHORT,
20: SANY, TPOINT,
21: NAREG|NASL, RESC1,
22: " cvtZLl AL,A1\n",
23:
24: PCONV, INAREG|INTAREG,
25: SAREG|AWD, TUCHAR|TUSHORT,
26: SANY, TPOINT,
27: NAREG|NASL, RESC1,
28: " movzZLl AL,A1\n",
29: #endif
30:
31: /* the following entry is to fix a problem with
32: the manner that the first pass handles the
33: type of a shift expression */
34: PCONV, INAREG|INTAREG,
35: SAREG|AWD, TINT|TUNSIGNED,
36: SANY, TPOINT,
37: NAREG|NASL, RLEFT,
38: "",
39:
40: /* take care of redundant conversions introduced by reclaim() */
41: SCONV, INAREG|INTAREG,
42: STAREG, TWORD,
43: SANY, TWORD,
44: 0, RLEFT,
45: "",
46:
47: SCONV, INAREG|INTAREG,
48: SAREG|AWD, ANYFIXED,
49: SANY, ANYFIXED,
50: NAREG|NASL, RESC1,
51: " ZU\n",
52:
53: SCONV, FORCC,
54: SAREG|AWD, ANYFIXED,
55: SANY, ANYFIXED,
56: NAREG|NASL, RESCC,
57: " ZV\n",
58:
59: SCONV, INAREG|INTAREG|FORCC,
60: SAREG|AWD, TDOUBLE,
61: SANY, TFLOAT,
62: NAREG|NASL, RESC1|RESCC,
63: " ldd AL\n cvdf\n stf TA1\n",
64:
65: SCONV, INAREG|INTAREG|FORCC,
66: SAREG|AWD, TFLOAT,
67: SANY, TDOUBLE,
68: NAREG|NASL, RESC1|RESCC,
69: " ldfd AL\n std A1\n",
70:
71: SCONV, INAREG|INTAREG|FORCC,
72: SAREG|AWD, TINT,
73: SANY, TFLOAT|TDOUBLE,
74: NAREG|NASL, RESC1|RESCC,
75: " cvlZR AL\n stZR TA1\n",
76:
77: /* the hard stuff */
78: /* XXX how about TUCHAR|TUSHORT to TFLOAT|TDOUBLE? */
79: SCONV, INAREG|INTAREG|FORCC,
80: SAREG|AWD, TUNSIGNED,
81: SANY, TFLOAT|TDOUBLE,
82: NAREG|NASL, RESC1|RESCC,
83: " ZY\n",
84:
85: SCONV, INAREG|INTAREG|FORCC,
86: SAREG|AWD, TFLOAT|TDOUBLE,
87: SANY, ANYUSIGNED,
88: NAREG|NASL, RESC1|RESCC,
89: " ZW\n",
90:
91: /* XXX need to trim significance here? */
92: SCONV, INAREG|INTAREG|FORCC,
93: SAREG|AWD, TFLOAT|TDOUBLE,
94: SANY, ANYSIGNED,
95: NAREG|NASL, RESC1|RESCC,
96: " ldZL AL\n cvZLl A1\n",
97:
98: INIT, FOREFF,
99: SCON, TANY,
100: SANY, TWORD,
101: 0, RNOP,
102: " .long CL\n",
103:
104: INIT, FOREFF,
105: SCON, TANY,
106: SANY, TSHORT|TUSHORT,
107: 0, RNOP,
108: " .word CL\n",
109:
110: INIT, FOREFF,
111: SCON, TANY,
112: SANY, TCHAR|TUCHAR,
113: 0, RNOP,
114: " .byte CL\n",
115:
116: #ifdef FORT
117: /* for the use of fortran only */
118:
119: GOTO, FOREFF,
120: SCON, TANY,
121: SANY, TANY,
122: 0, RNOP,
123: " jbr CL\n",
124: #endif
125:
126: GOTO, FOREFF,
127: AWD, TANY,
128: SANY, TANY,
129: 0, RNOP,
130: " jmp *AL\n",
131:
132: GOTO, FOREFF,
133: SAREG, TANY,
134: SANY, TANY,
135: 0, RNOP,
136: " jmp (AL)\n",
137:
138: STARG, FORARG,
139: SCON|SOREG, TANY,
140: SANY, TANY,
141: NTEMP+2*NAREG, RESC3,
142: "ZS",
143:
144: STASG, FORARG,
145: SNAME|SOREG, TANY,
146: SCON|SAREG, TANY,
147: 0, RNULL,
148: " ZT\nZS",
149:
150: STASG, FOREFF,
151: SNAME|SOREG, TANY,
152: SCON|SAREG, TANY,
153: 0, RNOP,
154: "ZS",
155:
156: STASG, INAREG,
157: SNAME|SOREG, TANY,
158: SCON, TANY,
159: NAREG, RESC1,
160: "ZS movl AR,A1\n",
161:
162: STASG, INAREG,
163: SNAME|SOREG, TANY,
164: SAREG, TANY,
165: 0, RRIGHT,
166: " pushl AR\nZS movl (sp)+,AR\n",
167:
168: OPLOG, FORCC,
169: SAREG|AWD, TWORD,
170: SAREG|AWD, TWORD,
171: 0, RESCC,
172: " cmpl AL,AR\nZP",
173:
174: /* more grot: constants in unsigned char/short comparisons sign-extend */
175: /* optim2() ensures that SCCON/SSCON iff high bit is not set */
176: OPLOG, FORCC,
177: SAREG|AWD, TUCHAR,
178: SCCON, TANY,
179: 0, RESCC,
180: " cmpZL AL,AR\nZP",
181:
182: OPLOG, FORCC,
183: AWD, TUCHAR,
184: SCON, TANY,
185: NAREG, RESCC,
186: " movzZLl AL,A1\n cmpl A1,AR\nZP",
187:
188: OPLOG, FORCC,
189: SAREG|AWD, TUSHORT,
190: SSCON, TANY,
191: 0, RESCC,
192: " cmpZL AL,AR\nZP",
193:
194: OPLOG, FORCC,
195: AWD, TUSHORT,
196: SCON, TANY,
197: NAREG, RESCC,
198: " movzZLl AL,A1\n cmpl A1,AR\nZP",
199:
200: /* optim2() handles degenerate comparisons with constants */
201: OPLOG, FORCC,
202: SAREG|AWD, TCHAR|TSHORT,
203: SCON, TANY,
204: 0, RESCC,
205: " cmpZL AL,AR\nZP",
206:
207: OPLOG, FORCC,
208: SAREG|AWD, TSHORT,
209: SAREG|AWD, TSHORT,
210: 0, RESCC,
211: " cmpw AL,AR\nZP",
212:
213: OPLOG, FORCC,
214: SAREG|AWD, TUSHORT,
215: SAREG|AWD, TUSHORT,
216: 0, RESCC,
217: " cmpw AL,AR\nZP",
218:
219: OPLOG, FORCC,
220: SAREG|AWD, TCHAR,
221: SAREG|AWD, TCHAR,
222: 0, RESCC,
223: " cmpb AL,AR\nZP",
224:
225: OPLOG, FORCC,
226: SAREG|AWD, TUCHAR,
227: SAREG|AWD, TUCHAR,
228: 0, RESCC,
229: " cmpb AL,AR\nZP",
230:
231: OPLOG, FORCC,
232: SAREG|AWD, TFLOAT,
233: SAREG|AWD, TFLOAT,
234: 0, RESCC,
235: " cmpZL2 AL,AR\nZP",
236:
237: OPLOG, FORCC,
238: SZERO, TDOUBLE,
239: SAREG|AWD, TDOUBLE,
240: 0, RESCC,
241: " cmpf2 AL,AR\nZP",
242:
243: OPLOG, FORCC,
244: SAREG|AWD, TDOUBLE,
245: SAREG|AWD, TDOUBLE,
246: 0, RESCC,
247: " cmpZL2 AL,AR\nZP",
248:
249: #ifdef FORT
250: /* some implicit conversions made explicit to help f77 out (sigh) */
251: OPLOG, FORCC,
252: SAREG|AWD, TFLOAT,
253: SAREG|AWD, TDOUBLE,
254: 0, RESCC,
255: " ldfd AL\n cmpd AR\nZP",
256:
257: /* ought to flip this comparison, save an instruction */
258: OPLOG, FORCC,
259: SAREG|AWD, TDOUBLE,
260: SAREG|AWD, TFLOAT,
261: NAREG|NEVEN|NASR, RESCC,
262: " ldfd AR\n std A1\n cmpd2 AL,A1\nZP",
263: #endif
264:
265: CCODES, INAREG|INTAREG,
266: SANY, TANY,
267: SANY, TANY,
268: NAREG, RESC1,
269: " movl $1,A1\nZN",
270:
271: UNARY CALL, INAREG|INTAREG,
272: SCON, TANY,
273: SANY, TANY,
274: NAREG|NASL, RESC1, /* should be register 0 */
275: " ZC,CL\n",
276:
277: UNARY CALL, INAREG|INTAREG,
278: SAREG, TANY,
279: SANY, TANY,
280: NAREG|NASL, RESC1, /* should be 0 */
281: " ZC,(AL)\n",
282:
283: UNARY CALL, INAREG|INTAREG,
284: SNAME, TANY,
285: SANY, TANY,
286: NAREG|NASL, RESC1, /* really reg 0 */
287: " ZC,*AL\n",
288:
289: UNARY CALL, INAREG|INTAREG,
290: SSOREG, TANY,
291: SANY, TANY,
292: NAREG|NASL, RESC1, /* really reg 0 */
293: " ZC,*AL\n",
294:
295: FORTCALL, INAREG|INTAREG,
296: SCON, TANY,
297: SAREG|AWD, TFLOAT,
298: NAREG|NASL|NASR, RESC1,
299: " ldf AR\n CLf\n stf TA1\n",
300:
301: ASG OPSHFT, INAREG|FOREFF|FORCC,
302: SAREG|AWD, TWORD,
303: SAREG|SCON, ANYFIXED,
304: 0, RLEFT|RESCC,
305: " ZH AR,AL,AL\n",
306:
307: ASG OPSHFT, INAREG|FOREFF|FORCC,
308: SAREG|AWD, TWORD,
309: AWD, TCHAR|TUCHAR,
310: 0, RLEFT|RESCC,
311: " ZH AR,AL,AL\n",
312:
313: ASG OPSHFT, INAREG|FOREFF|FORCC,
314: SAREG|AWD, TWORD,
315: AWD, ANYFIXED,
316: NAREG, RLEFT|RESCC,
317: " ZB AR,A1\n ZH A1,AL,AL\n",
318:
319: OPSHFT, INAREG|INTAREG|FORCC,
320: SAREG|AWD, TWORD,
321: SAREG|SCON, ANYFIXED,
322: NAREG|NASL|NASR, RESC1|RESCC,
323: " ZH AR,AL,A1\n",
324:
325: OPSHFT, INAREG|INTAREG|FORCC,
326: SAREG|AWD, TWORD,
327: AWD, TCHAR|TUCHAR,
328: NAREG|NASL|NASR, RESC1|RESCC,
329: " ZH AR,AL,A1\n",
330:
331: OPSHFT, INAREG|INTAREG|FORCC,
332: SAREG|AWD, TWORD,
333: AWD, ANYFIXED,
334: NAREG|NASR, RESC1|RESCC,
335: " ZB AR,A1\n ZH A1,AL,A1\n",
336:
337: INCR, FOREFF,
338: SAREG|AWD, TANY,
339: SCON|SNAME, TANY,
340: 0, RLEFT,
341: " ZE\n",
342:
343: DECR, FOREFF,
344: SAREG|AWD, TANY,
345: SCON|SNAME, TANY,
346: 0, RLEFT,
347: " ZE\n",
348:
349: INCR, INAREG|INTAREG,
350: SAREG|AWD, TANY,
351: SCON|SNAME, TANY,
352: NAREG, RESC1,
353: " ZD\n",
354:
355: DECR, INAREG|INTAREG,
356: SAREG|AWD, TANY,
357: SCON|SNAME, TANY,
358: NAREG, RESC1,
359: " ZD\n",
360:
361: ASSIGN, INAREG|FOREFF,
362: SAREG|AWD, ANYFIXED,
363: SAREG|AWD, ANYFIXED,
364: 0, RLEFT,
365: " ZU\n",
366:
367: ASSIGN, FORCC,
368: SAREG|AWD, ANYFIXED,
369: SAREG|AWD, ANYFIXED,
370: 0, RESCC,
371: " ZV\n",
372:
373: ASSIGN, INAREG|FOREFF|FORCC,
374: SIREG, TDOUBLE,
375: SZERO, TANY,
376: 0, RLEFT|RESCC,
377: " cvld $0\n std AL\n",
378:
379: ASSIGN, INAREG|FOREFF|FORCC,
380: SAREG|SNAME|SOREG, TDOUBLE,
381: SZERO, TANY,
382: 0, RLEFT|RESCC,
383: " clrl UL\n clrl AL\n",
384:
385: ASSIGN, INAREG|FOREFF|FORCC,
386: SAREG|AWD, TDOUBLE,
387: SIREG, TDOUBLE,
388: 0, RLEFT|RRIGHT|RESCC,
389: " ldd AR\n std AL\n",
390:
391: ASSIGN, INAREG|FOREFF|FORCC,
392: SIREG, TDOUBLE,
393: SAREG|AWD, TDOUBLE,
394: 0, RLEFT|RRIGHT|RESCC,
395: " ldd AR\n std AL\n",
396:
397: ASSIGN, INAREG|FOREFF|FORCC,
398: SAREG|SNAME|SOREG, TDOUBLE,
399: SAREG|SNAME|SOREG, TDOUBLE,
400: 0, RLEFT|RRIGHT|RESCC,
401: " movl UR,UL\n movl AR,AL\n",
402:
403: ASSIGN, INAREG|FOREFF|FORCC,
404: SAREG|AWD, TDOUBLE,
405: STARNM, TDOUBLE,
406: 0, RLEFT|RRIGHT|RESCC,
407: " ldd AR\n std AL\n",
408:
409: ASSIGN, INAREG|FOREFF|FORCC,
410: STARNM, TDOUBLE,
411: SAREG|AWD, TDOUBLE,
412: 0, RLEFT|RRIGHT|RESCC,
413: " ldd AR\n std AL\n",
414:
415: ASSIGN, INAREG|FOREFF|FORCC,
416: SAREG|AWD, TFLOAT,
417: SZERO, TANY,
418: 0, RLEFT|RESCC,
419: " clrl TAL\n",
420:
421: ASSIGN, INAREG|FOREFF|FORCC,
422: SAREG|AWD, TFLOAT,
423: SAREG|AWD, TFLOAT,
424: 0, RLEFT|RRIGHT|RESCC,
425: " movl AR,TAL\n",
426:
427: ASSIGN, INAREG|FOREFF|FORCC,
428: SAREG|AWD, TFLOAT,
429: SAREG|AWD, TDOUBLE,
430: 0, RLEFT|RESCC,
431: " ldd AR\n cvdf\n stf AL\n",
432:
433: ASSIGN, INAREG|FOREFF|FORCC,
434: SAREG|AWD, TDOUBLE,
435: SAREG|AWD, TFLOAT,
436: 0, RLEFT|RESCC,
437: " ldfd AR\n std AL\n",
438:
439: ASSIGN, INAREG|FOREFF|FORCC,
440: SAREG|AWD, TFLOAT|TDOUBLE,
441: SAREG|AWD, TINT,
442: 0, RLEFT|RESCC,
443: " cvlZL AR\n stZL AL\n",
444:
445: /* XXX need to trim significance here? */
446: ASSIGN, INAREG|FOREFF|FORCC,
447: SAREG|AWD, TINT,
448: SAREG|AWD, TFLOAT|TDOUBLE,
449: 0, RLEFT|RESCC,
450: " ldZR AR\n cvZRl AL\n",
451:
452: /* unfortunately assignments are exempt from type balancing */
453: ASSIGN, INAREG|FOREFF|FORCC,
454: SAREG|AWD, TCHAR|TUCHAR|TSHORT|TUSHORT,
455: SAREG|AWD, TFLOAT|TDOUBLE,
456: NAREG|NASR, RLEFT|RESCC,
457: " ldZR AR\n cvZRl A1\n cvtlZL A1,AL\n",
458:
459: ASSIGN, INAREG|FOREFF|FORCC,
460: SAREG|AWD, TFLOAT|TDOUBLE,
461: SAREG|AWD, TCHAR|TSHORT,
462: NAREG|NASR, RLEFT|RESCC,
463: " cvtZRl AR,A1\n cvlZL A1\n stZL AL\n",
464:
465: ASSIGN, INAREG|FOREFF|FORCC,
466: SAREG|AWD, TFLOAT|TDOUBLE,
467: SAREG|AWD, TUCHAR|TUSHORT,
468: NAREG|NASR, RLEFT|RESCC,
469: " movzZRl AR,A1\n cvlZL A1\n stZL AL\n",
470:
471: ASSIGN, INAREG|FOREFF|FORCC,
472: SAREG|AWD, TUNSIGNED,
473: SAREG|AWD, TFLOAT|TDOUBLE,
474: 0, RLEFT|RESCC,
475: " ZW\n",
476:
477: ASSIGN, INAREG|FOREFF|FORCC,
478: SAREG|AWD, TFLOAT|TDOUBLE,
479: SAREG|AWD, TUNSIGNED,
480: 0, RLEFT|RESCC,
481: " ZY\n",
482:
483: ASSIGN, INAREG|FOREFF,
484: SFLD, TANY,
485: SZERO, TANY,
486: 0, RRIGHT,
487: " andl2 N,AL\n",
488:
489: ASSIGN, FOREFF,
490: SFLD, TANY,
491: SCON, TANY,
492: 0, RNOP,
493: " andl2 N,AL\n orl2 ZF,AL\n",
494:
495: ASSIGN, INAREG,
496: SFLD, TANY,
497: SCON, TANY,
498: NAREG, RESC1,
499: " andl2 N,AL\n orl2 ZF,AL\n ZI\n",
500:
501: ASSIGN, FOREFF,
502: SFLD, TANY,
503: SAREG|AWD, TWORD,
504: NAREG|NASR, RNOP,
505: " shll $H,AR,A1\n andl2 M,A1\n andl2 N,AL\n\
506: orl2 A1,AL\n",
507:
508: ASSIGN, INAREG,
509: SFLD, TANY,
510: SAREG|AWD, TWORD,
511: NAREG, RESC1,
512: " shll $H,AR,A1\n andl2 M,A1\n andl2 N,AL\n\
513: orl2 A1,AL\n ZI\n",
514:
515: /* dummy UNARY MUL entry to get U* to possibly match OPLTYPE */
516: UNARY MUL, FOREFF,
517: SCC, TANY,
518: SCC, TANY,
519: 0, RNULL,
520: " help help help\n",
521:
522: REG, INTEMP,
523: SANY, TANY,
524: SAREG, TDOUBLE,
525: 2*NTEMP, RESC1,
526: " movl UR,U1\n movl AR,A1\n",
527:
528: REG, INTEMP,
529: SANY, TANY,
530: SAREG, TANY,
531: NTEMP, RESC1,
532: " movl AR,A1\n",
533:
534: REG, FORARG,
535: SANY, TANY,
536: SAREG, TFLOAT,
537: 0, RNULL,
538: " pushl $0\n pushl AR\n",
539:
540: REG, FORARG,
541: SANY, TANY,
542: SAREG, TDOUBLE,
543: 0, RNULL,
544: " pushl UR\n pushl AR\n",
545:
546: OREG, INTEMP,
547: SANY, TANY,
548: SOREG, TWORD|TFLOAT,
549: NTEMP, RESC1,
550: " movl AR,A1\n",
551:
552: OREG, INTEMP,
553: SANY, TANY,
554: SIREG, TDOUBLE,
555: 2*NTEMP, RESC1,
556: " ldd UR\n std A1\n",
557:
558: OREG, INTEMP,
559: SANY, TANY,
560: SOREG, TDOUBLE,
561: 2*NTEMP, RESC1,
562: " movl UR,U1\n movl AR,A1\n",
563:
564: OREG, INTEMP,
565: SANY, TANY,
566: SOREG, TANY,
567: NTEMP, RESC1,
568: " movZR AR,A1\n",
569:
570: OPLEAF, FOREFF,
571: SANY, TANY,
572: SAREG|AWD, TANY,
573: 0, RLEFT,
574: "",
575:
576: OPLTYPE, INAREG|INTAREG,
577: SANY, TANY,
578: SZERO, TDOUBLE,
579: NAREG|NASR, RESC1,
580: " clrl U1\n clrl A1\n",
581:
582: OPLTYPE, INAREG|INTAREG,
583: SANY, TANY,
584: SIREG, TDOUBLE,
585: NAREG|NASR, RESC1,
586: " ldd AR\n std A1\n",
587:
588: OPLTYPE, INAREG|INTAREG,
589: SANY, TANY,
590: SAREG|SNAME|SOREG|SCON, TDOUBLE,
591: NAREG, RESC1,
592: " movl AR,A1\n movl UR,U1\n",
593:
594: OPLTYPE, INAREG|INTAREG,
595: SANY, TANY,
596: STARNM, TDOUBLE,
597: NAREG|NASR, RESC1,
598: " ldd AR\n std A1\n",
599:
600: OPLTYPE, INAREG|INTAREG,
601: SANY, TANY,
602: SZERO, TANY,
603: NAREG|NASR, RESC1,
604: " clrl TA1\n",
605:
606: OPLTYPE, INAREG|INTAREG,
607: SANY, TANY,
608: SAREG|AWD, TFLOAT,
609: NAREG|NASR, RESC1,
610: " movl AR,TA1\n",
611:
612: OPLTYPE, INAREG|INTAREG,
613: SANY, TANY,
614: SANY, ANYFIXED,
615: NAREG|NASR, RESC1,
616: " ZU\n",
617:
618: OPLTYPE, FORCC,
619: SANY, TANY,
620: SAREG|AWD, TFLOAT,
621: 0, RESCC,
622: " ldf AR\n tstf\n",
623:
624: OPLTYPE, FORCC,
625: SANY, TANY,
626: SAREG|AWD, TDOUBLE,
627: 0, RESCC,
628: " ldd AR\n tstd\n",
629:
630: OPLTYPE, FORCC,
631: SANY, TANY,
632: SANY, ANYFIXED,
633: 0, RESCC,
634: " tstZR AR\n",
635:
636: OPLTYPE, FORARG,
637: SANY, TANY,
638: SANY, TWORD,
639: 0, RNULL,
640: " pushl AR\n",
641:
642: OPLTYPE, FORARG,
643: SANY, TANY,
644: SANY, TCHAR|TSHORT,
645: 0, RNULL,
646: " pushZR AR\n",
647:
648: OPLTYPE, FORARG,
649: SANY, TANY,
650: SANY, TUCHAR|TUSHORT,
651: 0, RNULL,
652: " movzZRl AR,-(sp)\n",
653:
654: OPLTYPE, FORARG,
655: SANY, TANY,
656: SZERO, TFLOAT|TDOUBLE,
657: 0, RNULL,
658: " pushl $0\n pushl $0\n",
659:
660: OPLTYPE, FORARG,
661: SANY, TANY,
662: SIREG, TDOUBLE,
663: 0, RNULL,
664: " ldd AR\n pushd\n",
665:
666: OPLTYPE, FORARG,
667: SANY, TANY,
668: SAREG|SNAME|SOREG, TDOUBLE,
669: 0, RNULL,
670: " pushl UR\n pushl AR\n",
671:
672: OPLTYPE, FORARG,
673: SANY, TANY,
674: STARNM, TDOUBLE,
675: 0, RNULL,
676: " ldd AR\n pushd\n",
677:
678: OPLTYPE, FORARG,
679: SANY, TANY,
680: SAREG|AWD, TFLOAT,
681: 0, RNULL,
682: " pushl $0\n pushl AR\n",
683:
684: UNARY MINUS, INAREG|INTAREG|FORCC,
685: SAREG|AWD, ANYSIGNED|TUNSIGNED,
686: SANY, TANY,
687: NAREG|NASL, RESC1|RESCC,
688: " mnegZL AL,A1\n",
689:
690: UNARY MINUS, INAREG|INTAREG|FORCC,
691: SAREG|AWD, TFLOAT|TDOUBLE,
692: SANY, TANY,
693: NAREG|NASL, RESC1|RESCC,
694: " lnZL AL\n stZL TA1\n",
695:
696: COMPL, INAREG|INTAREG|FORCC,
697: SAREG|AWD, ANYSIGNED|TUNSIGNED,
698: SANY, TANY,
699: NAREG|NASL, RESC1|RESCC,
700: " mcomZL AL,A1\n",
701:
702: COMPL, INAREG|INTAREG|FORCC,
703: SAREG|AWD, ANYFIXED,
704: SANY, TANY,
705: NAREG|NASL, RESC1|RESCC,
706: " movzZLl AL,A1\n mcoml A1,A1\n",
707:
708: AND, FORCC,
709: SAREG|AWD, TWORD,
710: SAREG|AWD, TWORD,
711: 0, RESCC,
712: " bitl AR,AL\n",
713:
714: AND, FORCC,
715: SAREG|AWD, TSHORT|TUSHORT,
716: SSCON, TWORD,
717: 0, RESCC,
718: " bitw AR,AL\n",
719:
720: AND, FORCC,
721: SAREG|AWD, TSHORT|TUSHORT,
722: SAREG|AWD, TSHORT|TUSHORT,
723: 0, RESCC,
724: " bitw AR,AL\n",
725:
726: AND, FORCC,
727: SAREG|AWD, TCHAR|TUCHAR,
728: SCCON, TWORD,
729: 0, RESCC,
730: " bitb AR,AL\n",
731:
732: AND, FORCC,
733: SAREG|AWD, TCHAR|TUCHAR,
734: SAREG|AWD, TCHAR|TUCHAR,
735: 0, RESCC,
736: " bitb AR,AL\n",
737:
738: /* General cases for DIV and ASG DIV are handled below with OPMUL */
739: /* Some special cases are handled in optim2() */
740:
741: DIV, INAREG|FOREFF|FORCC,
742: SAREG|AWD, TUNSIGNED|TULONG,
743: SCON, ANYUSIGNED,
744: NAREG|NEVEN, RESC1|RESCC,
745: " movl AL,U1\n clrl A1\n ediv AR,A1,A1,U1\n",
746:
747: ASG DIV, INAREG|FOREFF|FORCC,
748: SAREG|AWD, TINT|TLONG|TUNSIGNED|TULONG,
749: SMCON, ANYUSIGNED,
750: 0, RLEFT|RESCC,
751: " ZJ\n",
752:
753: ASG DIV, INAREG|FOREFF|FORCC,
754: SAREG|AWD, TINT|TLONG|TUNSIGNED|TULONG,
755: SCON, ANYUSIGNED,
756: NAREG|NEVEN, RLEFT|RESCC,
757: " movl AL,U1\n clrl A1\n ediv AR,A1,AL,U1\n",
758:
759: MOD, INAREG|INTAREG,
760: SAREG|AWD, TINT|TLONG,
761: SAREG|AWD, TINT|TLONG,
762: NAREG|NEVEN, RESC1,
763: " ZM ediv AR,A1,U1,A1\n",
764:
765: MOD, INAREG|FOREFF,
766: SAREG|AWD, TUNSIGNED|TULONG,
767: SMCON, ANYUSIGNED,
768: NAREG|NASL, RLEFT|RESC1,
769: " ZJ\n",
770:
771: MOD, INAREG|FOREFF,
772: SAREG|AWD, TUNSIGNED|TULONG,
773: SCON, ANYUSIGNED,
774: NAREG|NEVEN, RESC1,
775: " movl AL,U1\n clrl A1\n ediv AR,A1,U1,A1\n",
776:
777: /* should only see UNSIGNED lhs here if converted from UCHAR/USHORT lhs */
778: /* beware -- the ediv remainder operand must be a register */
779: ASG MOD, INAREG|FOREFF|FORCC,
780: SAREG|AWD, TINT|TLONG|TUNSIGNED|TULONG,
781: SAREG|AWD, TINT|TLONG,
782: NAREG|NEVEN, RLEFT|RESCC,
783: " ZM ediv AR,A1,U1,A1\n movl A1,AL\n",
784:
785: ASG MOD, INAREG|FOREFF,
786: SAREG|AWD, TINT|TLONG|TUNSIGNED|TULONG,
787: SMCON, ANYUSIGNED,
788: 0, RLEFT,
789: " ZJ\n",
790:
791: ASG MOD, INAREG|FOREFF,
792: SAREG|AWD, TINT|TLONG|TUNSIGNED|TULONG,
793: SCON, ANYUSIGNED,
794: NAREG|NEVEN, RLEFT,
795: " movl AL,U1\n clrl A1\n ediv AR,A1,U1,A1\n movl A1,AL\n",
796:
797: /* XXX is this supposed to help on overflow? */
798: ASG MUL, INAREG|FOREFF|FORCC,
799: SAREG|AWD, TUNSIGNED,
800: SAREG|AWD, TUNSIGNED|TINT,
801: NAREG|NEVEN, RLEFT|RESCC,
802: " emul AR,AL,$0,A1\n movl U1,AL\n",
803:
804: ASG MUL, INAREG|FOREFF|FORCC,
805: SAREG|AWD, TUNSIGNED|TINT,
806: SAREG|AWD, TUNSIGNED,
807: NAREG|NEVEN, RLEFT|RESCC,
808: " emul AR,AL,$0,A1\n movl U1,AL\n",
809:
810: ASG OPMUL, INAREG|FOREFF|FORCC,
811: SAREG|AWD, TWORD,
812: SAREG|AWD, TWORD,
813: 0, RLEFT|RESCC,
814: " OL2 AR,AL\n",
815:
816: MUL, INAREG|INTAREG|FORCC,
817: STAREG, TUNSIGNED,
818: SAREG|AWD, TUNSIGNED,
819: NAREG|NEVEN, RLEFT|RESCC,
820: " emul AR,AL,$0,A1\n movl U1,AL\n",
821:
822: OPMUL, INAREG|INTAREG|FORCC,
823: STAREG, TWORD,
824: SAREG|AWD, TWORD,
825: 0, RLEFT|RESCC,
826: " OL2 AR,AL\n",
827:
828: MUL, INAREG|INTAREG|FORCC,
829: SAREG|AWD, TUNSIGNED,
830: SAREG|AWD, TUNSIGNED,
831: NAREG|NEVEN, RESC1|RESCC,
832: " emul AR,AL,$0,A1\n movl U1,A1\n",
833:
834: OPMUL, INAREG|INTAREG|FORCC,
835: SAREG|AWD, TWORD,
836: SAREG|AWD, TWORD,
837: NAREG|NASL|NASR, RESC1|RESCC,
838: " OL3 AR,AL,A1\n",
839:
840: #ifdef REG_CHAR
841: ASG PLUS, INAREG|FOREFF|FORCC,
842: SAREG, TWORD,
843: SONE, TINT,
844: 0, RLEFT|RESCC,
845: " incZL AL\n",
846:
847: ASG PLUS, INAREG|FOREFF|FORCC,
848: AWD, ANYFIXED,
849: SONE, TINT,
850: 0, RLEFT|RESCC,
851: " incZL AL\n",
852:
853: ASG MINUS, INAREG|FOREFF|FORCC,
854: SAREG, TWORD,
855: SONE, TINT,
856: 0, RLEFT|RESCC,
857: " decZL AL\n",
858:
859: ASG MINUS, INAREG|FOREFF|FORCC,
860: AWD, ANYFIXED,
861: SONE, TINT,
862: 0, RLEFT|RESCC,
863: " decZL AL\n",
864: #else
865: ASG PLUS, INAREG|FOREFF|FORCC,
866: SAREG|AWD, ANYFIXED,
867: SONE, TANY,
868: 0, RLEFT|RESCC,
869: " incZL AL\n",
870:
871: ASG MINUS, INAREG|FOREFF|FORCC,
872: SAREG|AWD, ANYFIXED,
873: SONE, TANY,
874: 0, RLEFT|RESCC,
875: " decZL AL\n",
876: #endif
877:
878: PLUS, INAREG|INTAREG|FORCC,
879: STAREG, TWORD,
880: SONE, TWORD,
881: 0, RLEFT|RESCC,
882: " incZL AL\n",
883:
884: MINUS, INAREG|INTAREG|FORCC,
885: STAREG, TWORD,
886: SONE, TWORD,
887: 0, RLEFT|RESCC,
888: " decZL AL\n",
889:
890: ASG OPSIMP, INAREG|FOREFF|FORCC,
891: SAREG|AWD, TWORD,
892: SAREG|AWD, TWORD,
893: 0, RLEFT|RESCC,
894: " OL2 AR,AL\n",
895:
896: ASG OPSIMP, INAREG|FOREFF|FORCC,
897: SAREG, TWORD,
898: SAREG, TSHORT|TUSHORT|TCHAR|TUCHAR,
899: 0, RLEFT|RESCC,
900: " OL2 AR,AL\n",
901:
902: ASG OPSIMP, INAREG|FOREFF|FORCC,
903: AWD, TSHORT|TUSHORT,
904: SAREG|AWD, TSHORT|TUSHORT,
905: 0, RLEFT|RESCC,
906: " OW2 AR,AL\n",
907:
908: ASG OPSIMP, INAREG|FOREFF|FORCC,
909: AWD, TSHORT|TUSHORT,
910: SSCON, TWORD,
911: 0, RLEFT|RESCC,
912: " OW2 AR,AL\n",
913:
914: ASG OPSIMP, INAREG|FOREFF|FORCC,
915: AWD, TCHAR|TUCHAR,
916: SAREG|AWD, TCHAR|TUCHAR,
917: 0, RLEFT|RESCC,
918: " OB2 AR,AL\n",
919:
920: ASG OPSIMP, INAREG|FOREFF|FORCC,
921: AWD, TCHAR|TUCHAR,
922: SCCON, TWORD,
923: 0, RLEFT|RESCC,
924: " OB2 AR,AL\n",
925:
926: OPSIMP, INAREG|INTAREG|FORCC,
927: STAREG, ANYFIXED,
928: SAREG|AWD, TWORD,
929: 0, RLEFT|RESCC,
930: " OL2 AR,AL\n",
931:
932: OPSIMP, INAREG|INTAREG|FORCC,
933: SAREG|AWD, TWORD,
934: SAREG|AWD, TWORD,
935: NAREG|NASL|NASR, RESC1|RESCC,
936: " OL3 AR,AL,A1\n",
937:
938: ASG OPSIMP, INAREG|FOREFF,
939: SAREG|AWD, TFLOAT|TDOUBLE,
940: SZERO, TANY,
941: 0, RLEFT,
942: "",
943:
944: ASG MUL, INAREG|FOREFF|FORCC,
945: SIREG, TDOUBLE,
946: SZERO, TANY,
947: 0, RLEFT|RESCC,
948: " cvld $0\n std AL\n",
949:
950: ASG MUL, INAREG|FOREFF|FORCC,
951: SAREG|SNAME|SOREG, TDOUBLE,
952: SZERO, TANY,
953: 0, RLEFT|RESCC,
954: " clrl UL\n clrl AL\n",
955:
956: ASG MUL, INAREG|FOREFF|FORCC,
957: SAREG|AWD, TFLOAT,
958: SZERO, TANY,
959: 0, RLEFT|RESCC,
960: " clrl TAL\n",
961:
962: ASG OPFLOAT, INAREG|FOREFF|FORCC,
963: SAREG|AWD, TFLOAT,
964: SAREG|AWD, TFLOAT,
965: 0, RLEFT|RESCC,
966: " ldf AL\n OF AR\n stf TAL\n",
967:
968: ASG OPFLOAT, INAREG|FOREFF|FORCC,
969: SAREG|AWD, TDOUBLE,
970: SAREG|AWD, TDOUBLE,
971: 0, RLEFT|RESCC,
972: " ldd AL\n OD AR\n std AL\n",
973:
974: ASG PLUS, INAREG|FOREFF|FORCC,
975: SAREG|AWD, TDOUBLE,
976: SAREG|AWD, TFLOAT,
977: NAREG|NASL, RLEFT|RESCC,
978: " ldfd AR\n OD AL\n std AL\n",
979:
980: ASG MUL, INAREG|FOREFF|FORCC,
981: SAREG|AWD, TDOUBLE,
982: SAREG|AWD, TFLOAT,
983: NAREG|NASL, RLEFT|RESCC,
984: " ldfd AR\n OD AL\n std AL\n",
985:
986: ASG OPFLOAT, INAREG|FOREFF|FORCC,
987: SAREG|AWD, TDOUBLE,
988: SAREG|AWD, TFLOAT,
989: NAREG|NASL, RLEFT|RESCC,
990: " ldfd AR\n std A1\n ldd AL\n OD A1\n std AL\n",
991:
992: ASG OPFLOAT, INAREG|FOREFF|FORCC,
993: SAREG|AWD, TFLOAT,
994: SAREG|AWD, TDOUBLE,
995: 0, RLEFT|RESCC,
996: " ldfd AL\n OD AR\n cvdf\n stf TAL\n",
997:
998: ASG OPFLOAT, INAREG|FOREFF|FORCC,
999: SAREG|AWD, ANYFIXED,
1000: SAREG|AWD, TFLOAT|TDOUBLE,
1001: NAREG, RLEFT|RESCC, /* usable() knows we may need a reg pair */
1002: " ZG\n",
1003:
1004: OPSIMP, INAREG|INTAREG,
1005: SAREG, TFLOAT|TDOUBLE,
1006: SZERO, TANY,
1007: 0, RLEFT,
1008: #if defined(FORT) || defined(SPRECC)
1009: "T",
1010: #else
1011: "",
1012: #endif
1013:
1014: OPSIMP, INAREG|INTAREG|FORCC,
1015: AWD, TFLOAT,
1016: SZERO, TANY,
1017: NAREG, RESC1|RESCC,
1018: " movl AL,A1\n",
1019:
1020: OPSIMP, INAREG|INTAREG|FORCC,
1021: SIREG, TDOUBLE,
1022: SZERO, TANY,
1023: NAREG, RESC1|RESCC,
1024: " ldd AL\n std A1\n",
1025:
1026: OPSIMP, INAREG|INTAREG|FORCC,
1027: SAREG|SNAME|SOREG, TDOUBLE,
1028: SZERO, TANY,
1029: NAREG, RESC1|RESCC,
1030: " movl UL,U1\n movl AL,A1\n",
1031:
1032: MUL, INAREG|INTAREG|FORCC,
1033: SIREG, TDOUBLE,
1034: SZERO, TANY,
1035: NAREG|NASR, RESC1|RESCC,
1036: " cvld $0\n std A1\n",
1037:
1038: MUL, INAREG|INTAREG|FORCC,
1039: SAREG|SNAME|SOREG, TDOUBLE,
1040: SZERO, TANY,
1041: NAREG|NASR, RESC1|RESCC,
1042: " clrl U1\n clrl A1\n",
1043:
1044: MUL, INAREG|INTAREG|FORCC,
1045: SAREG|AWD, TFLOAT,
1046: SZERO, TANY,
1047: NAREG|NASR, RESC1|RESCC,
1048: " clrl TA1\n",
1049:
1050: OPFLOAT, INAREG|INTAREG|FORCC,
1051: SAREG|AWD, TFLOAT,
1052: SAREG|AWD, TFLOAT,
1053: NAREG|NASL|NASR, RESC1|RESCC,
1054: " ldf AL\n OF AR\n stf TA1\n",
1055:
1056: OPFLOAT, INAREG|INTAREG|FORCC,
1057: SZERO, TANY,
1058: SAREG|AWD, TDOUBLE,
1059: NAREG, RESC1|RESCC,
1060: "\tclrl\tA1\n\tclrl\tU1\n\tldd\tA1\n\tOD\tAR\n\tstd\tA1\n",
1061:
1062: OPFLOAT, INAREG|INTAREG|FORCC,
1063: SAREG|AWD, TDOUBLE,
1064: SAREG|AWD, TDOUBLE,
1065: NAREG|NASL|NASR, RESC1|RESCC,
1066: " ldd AL\n OD AR\n std A1\n",
1067:
1068: /* Default actions for hard trees ... */
1069:
1070: # define DF(x) FORREW,SANY,TANY,SANY,TANY,REWRITE,x,""
1071:
1072: UNARY MUL, DF( UNARY MUL ),
1073:
1074: INCR, DF(INCR),
1075:
1076: DECR, DF(INCR),
1077:
1078: ASSIGN, DF(ASSIGN),
1079:
1080: STASG, DF(STASG),
1081:
1082: FLD, DF(FLD),
1083:
1084: OPLEAF, DF(NAME),
1085:
1086: OPLOG, FORCC,
1087: SANY, TANY,
1088: SANY, TANY,
1089: REWRITE, BITYPE,
1090: "",
1091:
1092: OPLOG, DF(NOT),
1093:
1094: COMOP, DF(COMOP),
1095:
1096: INIT, DF(INIT),
1097:
1098: OPUNARY, DF(UNARY MINUS),
1099:
1100:
1101: ASG OPANY, DF(ASG PLUS),
1102:
1103: OPANY, DF(BITYPE),
1104:
1105: 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.