![[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] / 43BSDReno / libexec / pcc / ccom.vax|
Return to table.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / libexec / pcc / ccom.vax |
1.1 root 1: #ifndef lint
2: static char *sccsid ="@(#)table.c 1.33 (Berkeley) 5/11/88";
3: #endif lint
4:
5: # include "pass2.h"
6:
7: # define WPTR TPTRTO|TINT|TLONG|TFLOAT|TDOUBLE|TPOINT|TUNSIGNED|TULONG
8: # define AWD SNAME|SOREG|SCON|STARNM|STARREG
9: /* tbl */
10: # define ANYSIGNED TPOINT|TINT|TLONG|TSHORT|TCHAR
11: # define ANYUSIGNED TUNSIGNED|TULONG|TUSHORT|TUCHAR
12: # define ANYFIXED ANYSIGNED|ANYUSIGNED
13: # define TWORD TINT|TUNSIGNED|TPOINT|TLONG|TULONG
14: # define NIAWD SNAME|SCON|STARNM
15: /* tbl */
16:
17: struct optab table[] = {
18:
19: /* the following entry is to fix a problem with
20: the manner that the first pass handles the
21: type of a shift expression */
22: PCONV, INAREG|INTAREG,
23: SAREG|AWD, TINT|TUNSIGNED,
24: SANY, TPOINT,
25: NAREG|NASL, RLEFT,
26: "",
27:
28: #if defined(FORT) || defined(SPRECC)
29: SCONV, INTAREG|FORCC,
30: SAREG|AWD, TDOUBLE,
31: SANY, TFLOAT,
32: NAREG|NASL, RESC1|RESCC,
33: " cvtdf AL,A1\n",
34:
35: SCONV, INTAREG|FORCC,
36: SAREG|AWD, ANYSIGNED,
37: SANY, TFLOAT,
38: NAREG|NASL, RESC1|RESCC,
39: " cvtZLf AL,TA1\n",
40: #endif
41:
42: /* take care of redundant conversions introduced by reclaim() */
43: SCONV, INTAREG,
44: STAREG, TWORD,
45: SANY, TWORD,
46: 0, RLEFT,
47: "",
48:
49: SCONV, INTAREG,
50: STAREG, TDOUBLE,
51: SANY, TDOUBLE,
52: 0, RLEFT,
53: "",
54:
55: SCONV, INTAREG|FORCC,
56: SAREG|AWD, TANY,
57: SANY, TANY,
58: NAREG|NASL, RESC1|RESCC,
59: " ZA\n",
60:
61: SCONV, FORARG,
62: SAREG|AWD, TANY,
63: SANY, TANY,
64: NAREG|NASL, RNULL,
65: " ZV\n",
66:
67: INIT, FOREFF,
68: SCON, TANY,
69: SANY, TWORD,
70: 0, RNOP,
71: " .long CL\n",
72:
73: INIT, FOREFF,
74: SCON, TANY,
75: SANY, TSHORT|TUSHORT,
76: 0, RNOP,
77: " .word CL\n",
78:
79: INIT, FOREFF,
80: SCON, TANY,
81: SANY, TCHAR|TUCHAR,
82: 0, RNOP,
83: " .byte CL\n",
84:
85: #ifdef FORT
86: /* for the use of fortran only */
87:
88: GOTO, FOREFF,
89: SCON, TANY,
90: SANY, TANY,
91: 0, RNOP,
92: " jbr CL\n",
93: #endif
94:
95: GOTO, FOREFF,
96: SNAME|SOREG, TANY,
97: SANY, TANY,
98: 0, RNOP,
99: " jmp *AL\n",
100:
101: GOTO, FOREFF,
102: SAREG, TANY,
103: SANY, TANY,
104: 0, RNOP,
105: " jmp (AL)\n",
106:
107: STARG, FORARG,
108: SCON|SOREG, TANY,
109: SANY, TANY,
110: 0, RNULL,
111: " subl2 ZT,sp\nZS",
112:
113: STASG, FOREFF,
114: SNAME|SOREG, TANY,
115: SCON|SAREG, TANY,
116: 0, RNOP,
117: "ZS",
118:
119: STASG, INAREG,
120: SNAME|SOREG, TANY,
121: SCON, TANY,
122: NAREG, RESC1,
123: "ZS movl AR,A1\n",
124:
125: STASG, INAREG,
126: SNAME|SOREG, TANY,
127: SAREG, TANY,
128: 0, RRIGHT,
129: " pushl AR\nZS movl (sp)+,AR\n",
130:
131: FLD, INAREG|INTAREG,
132: SANY, TANY,
133: SFLD, ANYSIGNED,
134: NAREG|NASR, RESC1,
135: " extv $H,$S,AR,A1\n",
136:
137: FLD, INAREG|INTAREG,
138: SANY, TANY,
139: SFLD, ANYUSIGNED,
140: NAREG|NASR, RESC1,
141: " extzv $H,$S,AR,A1\n",
142:
143: FLD, FORARG,
144: SANY, TANY,
145: SFLD, ANYSIGNED,
146: 0, RNULL,
147: " extv $H,$S,AR,-(sp)\n",
148:
149: FLD, FORARG,
150: SANY, TANY,
151: SFLD, ANYUSIGNED,
152: 0, RNULL,
153: " extzv $H,$S,AR,-(sp)\n",
154:
155: OPLOG, FORCC,
156: SAREG|AWD, TWORD,
157: SAREG|AWD, TWORD,
158: 0, RESCC,
159: " cmpl AL,AR\nZP",
160:
161: OPLOG, FORCC,
162: SAREG|AWD, TSHORT,
163: SAREG|AWD, TSHORT,
164: 0, RESCC,
165: " cmpw AL,AR\nZP",
166:
167: OPLOG, FORCC,
168: SAREG|AWD, TUSHORT,
169: SAREG|AWD, TUSHORT,
170: 0, RESCC,
171: " cmpw AL,AR\nZP",
172:
173: OPLOG, FORCC,
174: SAREG|AWD, TCHAR,
175: SAREG|AWD, TCHAR,
176: 0, RESCC,
177: " cmpb AL,AR\nZP",
178:
179: OPLOG, FORCC,
180: SAREG|AWD, TUCHAR,
181: SAREG|AWD, TUCHAR,
182: 0, RESCC,
183: " cmpb AL,AR\nZP",
184:
185: /* optim2() handles degenerate comparisons with constants */
186: OPLOG, FORCC,
187: SAREG|AWD, TCHAR|TUCHAR|TSHORT|TUSHORT,
188: SCON, ANYFIXED,
189: 0, RESCC,
190: " cmpZL AL,AR\nZP",
191:
192: OPLOG, FORCC,
193: SAREG|AWD, TDOUBLE,
194: SAREG|AWD, TDOUBLE,
195: 0, RESCC,
196: " cmpd AL,AR\nZP",
197:
198: OPLOG, FORCC,
199: SAREG|AWD, TFLOAT,
200: SAREG|AWD, TFLOAT,
201: 0, RESCC,
202: " cmpf AL,AR\nZP",
203:
204: #ifdef FORT
205: /* this really ought to be taken care of farther upstream... XXX */
206: OPLOG, FORCC,
207: SAREG|AWD, TFLOAT,
208: SAREG|AWD, TDOUBLE,
209: NAREG|NASL, RESCC,
210: " cvtfd AL,A1\n cmpd A1,AR\nZP",
211:
212: OPLOG, FORCC,
213: SAREG|AWD, TDOUBLE,
214: SAREG|AWD, TFLOAT,
215: NAREG|NASR, RESCC,
216: " cvtfd AR,A1\n cmpd AL,A1\nZP",
217: #endif
218:
219: CCODES, INAREG|INTAREG,
220: SANY, TANY,
221: SANY, TANY,
222: NAREG, RESC1,
223: " movl $1,A1\nZN",
224:
225: UNARY CALL, INTAREG,
226: SCON, TANY,
227: SANY, TWORD|TCHAR|TUCHAR|TSHORT|TUSHORT|TFLOAT|TDOUBLE,
228: NAREG|NASL, RESC1,
229: " calls ZC,CL\n",
230:
231: UNARY CALL, INTAREG,
232: SAREG, TANY,
233: SANY, TWORD|TCHAR|TUCHAR|TSHORT|TUSHORT|TFLOAT|TDOUBLE,
234: NAREG|NASL, RESC1, /* should be 0 */
235: " calls ZC,(AL)\n",
236:
237: UNARY CALL, INAREG|INTAREG,
238: SNAME, TANY,
239: SANY, TANY,
240: NAREG|NASL, RESC1, /* really reg 0 */
241: " calls ZC,*AL\n",
242:
243: UNARY CALL, INAREG|INTAREG,
244: SSOREG, TANY,
245: SANY, TANY,
246: NAREG|NASL, RESC1, /* really reg 0 */
247: " calls ZC,*AL\n",
248:
249: ASG RS, INAREG|FOREFF|FORCC,
250: SAREG, TWORD,
251: SCON, TINT|TUNSIGNED,
252: 0, RLEFT|RESCC,
253: " extzv AR,ZU,AL,AL\n",
254:
255: ASG RS, INAREG|FOREFF|FORCC,
256: SAREG, TWORD,
257: SAREG, ANYFIXED,
258: NAREG, RLEFT|RESCC,
259: " subl3 AR,$32,A1\n extzv AR,A1,AL,AL\n",
260:
261: ASG RS, INAREG|FOREFF|FORCC,
262: SAREG, TWORD,
263: SAREG|AWD, TWORD,
264: NAREG, RLEFT|RESCC,
265: " subl3 AR,$32,A1\n extzv AR,A1,AL,AL\n",
266:
267: RS, INAREG|INTAREG|FORCC,
268: SAREG, TWORD,
269: SCON, TINT|TUNSIGNED,
270: NAREG|NASL, RESC1|RESCC,
271: " extzv AR,ZU,AL,A1\n",
272:
273: ASG LS, INAREG|FOREFF|FORCC,
274: SAREG|AWD, TWORD,
275: SAREG|NIAWD, ANYSIGNED|ANYUSIGNED,
276: 0, RLEFT|RESCC,
277: " ashl AR,AL,AL\n",
278:
279: ASG LS, INAREG|FOREFF|FORCC,
280: SAREG|AWD, TWORD,
281: SSOREG, ANYSIGNED|ANYUSIGNED,
282: 0, RLEFT|RESCC,
283: " ashl AR,AL,AL\n",
284:
285: ASG LS, INAREG|FOREFF|FORCC,
286: SAREG|AWD, TWORD,
287: SOREG, ANYSIGNED|ANYUSIGNED,
288: NAREG, RLEFT|RESCC,
289: " ZB AR,A1\n ashl A1,AL,AL\n",
290:
291: LS, INAREG|INTAREG|FORCC,
292: SAREG|AWD, TWORD,
293: SAREG|NIAWD, ANYSIGNED|ANYUSIGNED,
294: NAREG|NASL|NASR, RESC1|RESCC,
295: " ashl AR,AL,A1\n",
296:
297: LS, INAREG|INTAREG|FORCC,
298: SAREG|AWD, TWORD,
299: SSOREG, ANYSIGNED|ANYUSIGNED,
300: NAREG|NASL|NASR, RESC1|RESCC,
301: " ashl AR,AL,A1\n",
302:
303: LS, INAREG|INTAREG|FORCC,
304: SAREG|AWD, TWORD,
305: SOREG, ANYSIGNED|ANYUSIGNED,
306: NAREG|NASR, RESC1|RESCC,
307: " ZB AR,A1\n ashl A1,AL,A1\n",
308:
309: INCR, FOREFF,
310: SAREG|AWD, TANY,
311: SCON|SNAME, TANY,
312: 0, RLEFT,
313: " ZE\n",
314:
315: DECR, FOREFF,
316: SAREG|AWD, TANY,
317: SCON|SNAME, TANY,
318: 0, RLEFT,
319: " ZE\n",
320:
321: INCR, INAREG|INTAREG,
322: SAREG|AWD, TANY,
323: SCON|SNAME, TANY,
324: NAREG, RESC1,
325: " ZD\n",
326:
327: DECR, INAREG|INTAREG,
328: SAREG|AWD, TANY,
329: SCON|SNAME, TANY,
330: NAREG, RESC1,
331: " ZD\n",
332:
333: ASSIGN, INAREG|FOREFF|FORCC,
334: SAREG|AWD, TFLOAT|TDOUBLE,
335: SAREG|AWD, TUCHAR|TUSHORT,
336: NAREG|NASR, RLEFT|RESCC,
337: " ZA\n",
338:
339: ASSIGN, INAREG|FOREFF|FORCC,
340: SAREG|AWD, TANY,
341: SAREG|AWD, TANY,
342: 0, RLEFT|RESCC,
343: " ZA\n",
344:
345: ASSIGN, FOREFF,
346: SFLD, TANY,
347: SAREG|AWD, TWORD,
348: 0, RNOP,
349: " insv AR,$H,$S,AL\n",
350:
351: ASSIGN, INAREG,
352: SFLD, ANYSIGNED,
353: SAREG|AWD, TWORD,
354: NAREG, RESC1,
355: " insv AR,$H,$S,AL\n extv $H,$S,AL,A1\n",
356:
357: ASSIGN, INAREG,
358: SFLD, ANYUSIGNED,
359: SAREG|AWD, TWORD,
360: NAREG, RESC1,
361: " insv AR,$H,$S,AL\n extzv $H,$S,AL,A1\n",
362:
363: ASSIGN, INAREG|FOREFF|FORCC,
364: SAREG|AWD, TWORD,
365: SFLD, ANYSIGNED,
366: 0, RLEFT|RESCC,
367: " extv $H,$S,AR,AL\n",
368:
369: ASSIGN, INAREG|FOREFF|FORCC,
370: SAREG|AWD, TWORD,
371: SFLD, ANYUSIGNED,
372: 0, RLEFT|RESCC,
373: " extzv $H,$S,AR,AL\n",
374:
375: /* dummy UNARY MUL entry to get U* to possibly match OPLTYPE */
376: UNARY MUL, FOREFF,
377: SCC, TANY,
378: SCC, TANY,
379: 0, RNULL,
380: " HELP HELP HELP\n",
381:
382: OREG, INTEMP,
383: SANY, TANY,
384: SOREG, TDOUBLE,
385: 2*NTEMP, RESC1,
386: " movq AR,A1\n",
387:
388: OREG, INTEMP,
389: SANY, TANY,
390: SOREG, TANY,
391: NTEMP, RESC1,
392: " movZR AR,A1\n",
393:
394: REG, INTEMP,
395: SANY, TANY,
396: SAREG, TDOUBLE,
397: 2*NTEMP, RESC1,
398: " movq AR,A1\n",
399:
400: REG, INTEMP,
401: SANY, TANY,
402: SAREG, TANY,
403: NTEMP, RESC1,
404: " movZF AR,A1\n",
405:
406: #if defined(FORT) || defined(SPRECC)
407: REG, FORARG,
408: SANY, TANY,
409: SAREG, TFLOAT,
410: 0, RNULL,
411: " cvtfd AR,-(sp)\n",
412:
413: REG, FORARG,
414: SANY, TANY,
415: SAREG, TDOUBLE,
416: 0, RNULL,
417: " movq AR,-(sp)\n",
418: #endif
419:
420: OPLEAF, FOREFF,
421: SANY, TANY,
422: SAREG|AWD, TANY,
423: 0, RLEFT,
424: "",
425:
426: OPLTYPE, INAREG|INTAREG,
427: SANY, TANY,
428: SANY, TANY,
429: NAREG|NASR, RESC1,
430: " ZA\n",
431:
432: OPLTYPE, FORCC,
433: SANY, TANY,
434: SANY, TANY,
435: 0, RESCC,
436: " tstZR AR\n",
437:
438: OPLTYPE, FORARG,
439: SANY, TANY,
440: SANY, TANY,
441: 0, RNULL,
442: " ZV\n",
443:
444: #if defined(FORT) || defined(SPRECC)
445: UNARY MINUS, INTAREG|FORCC,
446: SAREG|AWD, TFLOAT,
447: SANY, TANY,
448: NAREG|NASL, RESC1|RESCC,
449: " mnegZL TAL,A1\n",
450:
451: #endif
452:
453: UNARY MINUS, INTAREG|FORCC,
454: SAREG|AWD, TWORD|TDOUBLE,
455: SANY, TANY,
456: NAREG|NASL, RESC1|RESCC,
457: " mnegZL AL,A1\n",
458:
459: COMPL, INTAREG|FORCC,
460: SAREG|AWD, TWORD,
461: SANY, TANY,
462: NAREG|NASL, RESC1|RESCC,
463: " mcomZL AL,A1\n",
464:
465: AND, FORCC,
466: SAREG|AWD, TCHAR|TSHORT,
467: SCON, ANYFIXED,
468: NAREG|NASL, RESCC,
469: " ZZ\n",
470:
471: AND, FORCC,
472: SAREG|AWD, TWORD|ANYUSIGNED,
473: SCON, ANYFIXED,
474: 0, RESCC,
475: " ZZ\n",
476:
477: ASG AND, INAREG|FOREFF|FORCC,
478: SAREG, TWORD,
479: SCON, TWORD,
480: 0, RLEFT|RESCC,
481: " bicl2 AR,AL\n",
482:
483: /* General cases for DIV and ASG DIV are handled below with OPMUL */
484: /* Some special cases are handled in optim2() */
485:
486: DIV, INAREG|FOREFF|FORCC,
487: SAREG|AWD, TUNSIGNED|TULONG,
488: SCON, ANYUSIGNED,
489: NAREG|NEVEN, RESC1|RESCC,
490: " movl AL,A1\n clrl U1\n ediv AR,A1,A1,U1\n",
491:
492: ASG DIV, INAREG|FOREFF|FORCC,
493: SAREG|AWD, TINT|TLONG|TUNSIGNED|TULONG,
494: SMCON, ANYUSIGNED,
495: 0, RLEFT|RESCC,
496: " ZJ\n",
497:
498: ASG DIV, INAREG|FOREFF|FORCC,
499: SAREG|AWD, TINT|TLONG|TUNSIGNED|TULONG,
500: SCON, ANYUSIGNED,
501: NAREG|NEVEN, RLEFT|RESCC,
502: " movl AL,A1\n clrl U1\n ediv AR,A1,AL,U1\n",
503:
504: MOD, INAREG|INTAREG,
505: SAREG|AWD, TINT|TLONG,
506: SAREG|AWD, TINT|TLONG,
507: NAREG, RESC1,
508: " divl3 AR,AL,A1\n mull2 AR,A1\n subl3 A1,AL,A1\n",
509:
510: MOD, INAREG|FOREFF,
511: SAREG|AWD, TUNSIGNED|TULONG,
512: SMCON, ANYUSIGNED,
513: NAREG|NASL, RLEFT|RESC1,
514: " ZJ\n",
515:
516: MOD, INAREG|FOREFF,
517: SAREG|AWD, TUNSIGNED|TULONG,
518: SCON, ANYUSIGNED,
519: NAREG|NEVEN, RESC1,
520: " movl AL,A1\n clrl U1\n ediv AR,A1,U1,A1\n",
521:
522: /* should only see UNSIGNED lhs here if converted from UCHAR/USHORT lhs */
523: ASG MOD, INAREG|FOREFF|FORCC,
524: SAREG|AWD, TINT|TLONG|TUNSIGNED|TULONG,
525: SAREG|AWD, TINT|TLONG,
526: NAREG, RLEFT|RESCC,
527: " divl3 AR,AL,A1\n mull2 AR,A1\n subl2 A1,AL\n",
528:
529: ASG MOD, INAREG|FOREFF,
530: SAREG|AWD, TINT|TLONG|TUNSIGNED|TULONG,
531: SMCON, ANYUSIGNED,
532: 0, RLEFT,
533: " ZJ\n",
534:
535: ASG MOD, INAREG|FOREFF,
536: SAREG|AWD, TINT|TLONG|TUNSIGNED|TULONG,
537: SCON, ANYUSIGNED,
538: NAREG|NEVEN, RLEFT,
539: " movl AL,A1\n clrl U1\n ediv AR,A1,A1,AL\n",
540:
541: ASG OPMUL, INAREG|FOREFF|FORCC,
542: SAREG|AWD, TINT|TUNSIGNED|TLONG|TULONG,
543: SAREG|AWD, TINT|TUNSIGNED|TLONG|TULONG,
544: 0, RLEFT|RESCC,
545: " OL2 AR,AL\n",
546:
547: OPMUL, INAREG|INTAREG|FORCC,
548: STAREG, TINT|TUNSIGNED|TLONG|TULONG,
549: SAREG|AWD, TINT|TUNSIGNED|TLONG|TULONG,
550: 0, RLEFT|RESCC,
551: " OL2 AR,AL\n",
552:
553: OPMUL, INAREG|INTAREG|FORCC,
554: SAREG|AWD, TINT|TUNSIGNED|TLONG|TULONG,
555: SAREG|AWD, TINT|TUNSIGNED|TLONG|TULONG,
556: NAREG|NASL|NASR, RESC1|RESCC,
557: " OL3 AR,AL,A1\n",
558:
559: ASG PLUS, INAREG|FOREFF|FORCC,
560: SAREG|AWD, ANYFIXED,
561: SONE, TANY,
562: 0, RLEFT|RESCC,
563: " incZL AL\n",
564:
565: ASG MINUS, INAREG|FOREFF|FORCC,
566: SAREG|AWD, ANYFIXED,
567: SONE, TANY,
568: 0, RLEFT|RESCC,
569: " decZL AL\n",
570:
571: PLUS, INAREG|INTAREG|FORCC,
572: STAREG, TWORD,
573: SONE, TWORD,
574: 0, RLEFT|RESCC,
575: " incZL AL\n",
576:
577: MINUS, INAREG|INTAREG|FORCC,
578: STAREG, TWORD,
579: SONE, TWORD,
580: 0, RLEFT|RESCC,
581: " decZL AL\n",
582:
583: ASG OPSIMP, INAREG|FOREFF|FORCC,
584: SAREG|AWD, TWORD,
585: SAREG|AWD, TWORD,
586: 0, RLEFT|RESCC,
587: " OL2 AR,AL\n",
588:
589: ASG OPSIMP, INAREG|FOREFF|FORCC,
590: AWD, TSHORT|TUSHORT,
591: SAREG|SNAME|STARNM, TSHORT|TUSHORT|TINT|TUNSIGNED|TLONG|TULONG,
592: 0, RLEFT|RESCC,
593: " OW2 AR,AL\n",
594:
595: ASG OPSIMP, INAREG|FOREFF|FORCC,
596: AWD, TSHORT|TUSHORT,
597: SSOREG, TSHORT|TUSHORT|TINT|TUNSIGNED|TLONG|TULONG,
598: 0, RLEFT|RESCC,
599: " OW2 AR,AL\n",
600:
601: ASG OPSIMP, INAREG|FOREFF|FORCC,
602: AWD, TSHORT|TUSHORT,
603: SSCON, ANYFIXED,
604: 0, RLEFT|RESCC,
605: " OW2 AR,AL\n",
606:
607: ASG OPSIMP, INAREG|FOREFF|FORCC,
608: AWD, TSHORT|TUSHORT,
609: AWD, TSHORT|TUSHORT,
610: 0, RLEFT|RESCC,
611: " OW2 AR,AL\n",
612:
613: ASG OPSIMP, INAREG|FOREFF|FORCC,
614: AWD, TCHAR|TUCHAR,
615: SSOREG, ANYFIXED,
616: 0, RLEFT|RESCC,
617: " OB2 AR,AL\n",
618:
619: ASG OPSIMP, INAREG|FOREFF|FORCC,
620: AWD, TCHAR|TUCHAR,
621: SAREG|SNAME|STARNM, ANYFIXED,
622: 0, RLEFT|RESCC,
623: " OB2 AR,AL\n",
624:
625: ASG OPSIMP, INAREG|FOREFF|FORCC,
626: AWD, TCHAR|TUCHAR,
627: SCCON, ANYFIXED,
628: 0, RLEFT|RESCC,
629: " OB2 AR,AL\n",
630:
631: ASG OPSIMP, INAREG|FOREFF|FORCC,
632: AWD, TCHAR|TUCHAR,
633: AWD, TCHAR|TUCHAR,
634: 0, RLEFT|RESCC,
635: " OB2 AR,AL\n",
636:
637: OPSIMP, INAREG|INTAREG|FORCC,
638: STAREG, ANYFIXED,
639: SAREG|AWD, TWORD,
640: 0, RLEFT|RESCC,
641: " OL2 AR,AL\n",
642:
643: OPSIMP, INAREG|INTAREG|FORCC,
644: SAREG|AWD, TWORD,
645: SAREG|AWD, TWORD,
646: NAREG|NASL|NASR, RESC1|RESCC,
647: " OL3 AR,AL,A1\n",
648:
649: ASG OPFLOAT, INAREG|FOREFF|FORCC,
650: SAREG|AWD, TDOUBLE,
651: SAREG|AWD, TDOUBLE,
652: 0, RLEFT|RESCC,
653: " OD2 AR,AL\n",
654:
655: ASG OPFLOAT, INAREG|FOREFF|FORCC,
656: SAREG|AWD, TFLOAT,
657: SAREG|AWD, TFLOAT,
658: 0, RLEFT|RESCC,
659: #if defined(FORT) || defined(SPRECC)
660: " OF2 AR,TAL\n",
661: #else
662: " OF2 AR,AL\n",
663: #endif
664:
665: ASG OPFLOAT, INAREG|INTAREG|FOREFF|FORCC,
666: SAREG|AWD, TFLOAT,
667: SAREG|AWD, TDOUBLE,
668: NAREG, RLEFT|RESC1|RESCC,
669: " cvtfd AL,A1\n OD2 AR,A1\n cvtdf A1,AL\n",
670:
671: ASG OPFLOAT, INAREG|FOREFF|FORCC,
672: SAREG|AWD, ANYFIXED,
673: #ifndef SPRECC
674: SAREG|AWD, TDOUBLE, /* force FLOAT to register */
675: #else
676: SAREG|AWD, TFLOAT|TDOUBLE,
677: #endif
678: NAREG, RLEFT|RESCC, /* usable() knows we need a reg pair */
679: " ZG\n",
680:
681: OPFLOAT, INAREG|INTAREG|FORCC,
682: STAREG, TDOUBLE,
683: SAREG|AWD, TDOUBLE,
684: 0, RLEFT|RESCC,
685: " OD2 AR,AL\n",
686:
687: OPFLOAT, INAREG|INTAREG|FORCC,
688: SAREG|AWD, TDOUBLE,
689: SAREG|AWD, TDOUBLE,
690: NAREG|NASL|NASR, RESC1|RESCC,
691: " OD3 AR,AL,A1\n",
692:
693: #if defined(FORT) || defined(SPRECC)
694: OPFLOAT, INAREG|INTAREG|FORCC,
695: STAREG, TFLOAT,
696: SAREG|AWD, TFLOAT,
697: 0, RLEFT|RESCC,
698: " OF2 AR,TAL\n",
699:
700: OPFLOAT, INAREG|INTAREG|FORCC,
701: SAREG|AWD, TFLOAT,
702: SAREG|AWD, TFLOAT,
703: NAREG|NASL|NASR, RESC1|RESCC,
704: " OF3 AR,AL,TA1\n",
705: #endif
706:
707: #ifdef FORT
708: /* perform some implicit conversions XXX SHOULD FIX f77 FRONT END */
709: OPFLOAT, INAREG|INTAREG|FORCC,
710: SAREG|AWD, TFLOAT,
711: SAREG|AWD, TDOUBLE,
712: NAREG|NASL, RESC1|RESCC,
713: " cvtfd AL,A1\n OD2 AR,A1\n",
714:
715: OPFLOAT, INAREG|INTAREG|FORCC,
716: SAREG|AWD, TDOUBLE,
717: SAREG|AWD, TFLOAT,
718: NAREG|NASR, RESC1|RESCC,
719: " cvtfd AR,A1\n OD3 A1,AL,A1\n",
720: #endif
721:
722: /* Default actions for hard trees ... */
723:
724: # define DF(x) FORREW,SANY,TANY,SANY,TANY,REWRITE,x,""
725:
726: UNARY MUL, DF( UNARY MUL ),
727:
728: INCR, DF(INCR),
729:
730: DECR, DF(INCR),
731:
732: ASSIGN, DF(ASSIGN),
733:
734: STASG, DF(STASG),
735:
736: FLD, DF(FLD),
737:
738: OPLEAF, DF(NAME),
739:
740: OPLOG, FORCC,
741: SANY, TANY,
742: SANY, TANY,
743: REWRITE, BITYPE,
744: "",
745:
746: OPLOG, DF(NOT),
747:
748: COMOP, DF(COMOP),
749:
750: INIT, DF(INIT),
751:
752: OPUNARY, DF(UNARY MINUS),
753:
754: ASG OPANY, DF(ASG PLUS),
755:
756: OPANY, DF(BITYPE),
757:
758: 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.