home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume3 / g-format / part2 / gfloat / f77 / src / f1 / otable.c.diff < prev    next >
Encoding:
Text File  |  1986-11-30  |  10.1 KB  |  543 lines
  1. *** ../f77/src/f1/otable.c.orig    Tue Oct 29 15:16:27 1985
  2. --- ../f77/src/f1/otable.c    Tue Oct 29 15:21:44 1985
  3. ***************
  4. *** 45,50
  5.       SAREG|AWD,    TDOUBLE,
  6.       SANY,    TFLOAT,
  7.           NAREG|NASL,    RESC1|RESCC,
  8.           "    cvtdf    AL,A1\n",
  9.   
  10.   SCONV,    INTAREG|FORCC,
  11.  
  12. --- 45,51 -----
  13.       SAREG|AWD,    TDOUBLE,
  14.       SANY,    TFLOAT,
  15.           NAREG|NASL,    RESC1|RESCC,
  16. + #ifndef GFLOAT
  17.           "    cvtdf    AL,A1\n",
  18.   #else GFLOAT
  19.           "    cvtgf    AL,A1\n",
  20. ***************
  21. *** 46,51
  22.       SANY,    TFLOAT,
  23.           NAREG|NASL,    RESC1|RESCC,
  24.           "    cvtdf    AL,A1\n",
  25.   
  26.   SCONV,    INTAREG|FORCC,
  27.       SAREG|AWD,    ANYSIGNED|TUNSIGNED|TULONG|TFLOAT,
  28.  
  29. --- 47,55 -----
  30.           NAREG|NASL,    RESC1|RESCC,
  31.   #ifndef GFLOAT
  32.           "    cvtdf    AL,A1\n",
  33. + #else GFLOAT
  34. +         "    cvtgf    AL,A1\n",
  35. + #endif GFLOAT
  36.   
  37.   SCONV,    INTAREG|FORCC,
  38.       SAREG|AWD,    ANYSIGNED|TUNSIGNED|TULONG|TFLOAT,
  39. ***************
  40. *** 70,75
  41.       SAREG|AWD,    TUCHAR|TUSHORT,
  42.       SANY,    TFLOAT|TDOUBLE,
  43.           NAREG|NASL,    RESC1|RESCC,
  44.           "    movzZLl    AL,A1\n    cvtld    A1,A1\n",
  45.   
  46.   SCONV,    INTAREG|FORCC,
  47.  
  48. --- 74,80 -----
  49.       SAREG|AWD,    TUCHAR|TUSHORT,
  50.       SANY,    TFLOAT|TDOUBLE,
  51.           NAREG|NASL,    RESC1|RESCC,
  52. + #ifndef GFLOAT
  53.           "    movzZLl    AL,A1\n    cvtld    A1,A1\n",
  54.   #else GFLOAT
  55.           "    movzZLl    AL,A1\n    cvtlg    A1,A1\n",
  56. ***************
  57. *** 71,76
  58.       SANY,    TFLOAT|TDOUBLE,
  59.           NAREG|NASL,    RESC1|RESCC,
  60.           "    movzZLl    AL,A1\n    cvtld    A1,A1\n",
  61.   
  62.   SCONV,    INTAREG|FORCC,
  63.       SAREG|AWD,    TFLOAT|TDOUBLE,
  64.  
  65. --- 76,84 -----
  66.           NAREG|NASL,    RESC1|RESCC,
  67.   #ifndef GFLOAT
  68.           "    movzZLl    AL,A1\n    cvtld    A1,A1\n",
  69. + #else GFLOAT
  70. +         "    movzZLl    AL,A1\n    cvtlg    A1,A1\n",
  71. + #endif GFLOAT
  72.   
  73.   SCONV,    INTAREG|FORCC,
  74.       SAREG|AWD,    TFLOAT|TDOUBLE,
  75. ***************
  76. *** 229,234
  77.       SAREG|AWD,    TDOUBLE,
  78.       SAREG|AWD,    TDOUBLE,
  79.           0,    RESCC,
  80.           "    cmpd    AL,AR\nZP",
  81.   
  82.   OPLOG,    FORCC,
  83.  
  84. --- 237,243 -----
  85.       SAREG|AWD,    TDOUBLE,
  86.       SAREG|AWD,    TDOUBLE,
  87.           0,    RESCC,
  88. + #ifndef GFLOAT
  89.           "    cmpd    AL,AR\nZP",
  90.   #else GFLOAT
  91.           "    cmpg    AL,AR\nZP",
  92. ***************
  93. *** 230,235
  94.       SAREG|AWD,    TDOUBLE,
  95.           0,    RESCC,
  96.           "    cmpd    AL,AR\nZP",
  97.   
  98.   OPLOG,    FORCC,
  99.       SAREG|AWD,    TDOUBLE,
  100.  
  101. --- 239,247 -----
  102.           0,    RESCC,
  103.   #ifndef GFLOAT
  104.           "    cmpd    AL,AR\nZP",
  105. + #else GFLOAT
  106. +         "    cmpg    AL,AR\nZP",
  107. + #endif GFLOAT
  108.   
  109.   OPLOG,    FORCC,
  110.       SAREG|AWD,    TDOUBLE,
  111. ***************
  112. *** 235,240
  113.       SAREG|AWD,    TDOUBLE,
  114.       SAREG|AWD,    TFLOAT,
  115.           NAREG|NASR,    RESCC,
  116.           "    cvtfd    AR,A1\n    cmpd    AL,A1\nZP",
  117.   
  118.   OPLOG,    FORCC,
  119.  
  120. --- 247,253 -----
  121.       SAREG|AWD,    TDOUBLE,
  122.       SAREG|AWD,    TFLOAT,
  123.           NAREG|NASR,    RESCC,
  124. + #ifndef GFLOAT
  125.           "    cvtfd    AR,A1\n    cmpd    AL,A1\nZP",
  126.   #else GFLOAT
  127.           "    cvtfg    AR,A1\n    cmpg    AL,A1\nZP",
  128. ***************
  129. *** 236,241
  130.       SAREG|AWD,    TFLOAT,
  131.           NAREG|NASR,    RESCC,
  132.           "    cvtfd    AR,A1\n    cmpd    AL,A1\nZP",
  133.   
  134.   OPLOG,    FORCC,
  135.       SAREG|AWD,    TFLOAT,
  136.  
  137. --- 249,257 -----
  138.           NAREG|NASR,    RESCC,
  139.   #ifndef GFLOAT
  140.           "    cvtfd    AR,A1\n    cmpd    AL,A1\nZP",
  141. + #else GFLOAT
  142. +         "    cvtfg    AR,A1\n    cmpg    AL,A1\nZP",
  143. + #endif GFLOAT
  144.   
  145.   OPLOG,    FORCC,
  146.       SAREG|AWD,    TFLOAT,
  147. ***************
  148. *** 241,246
  149.       SAREG|AWD,    TFLOAT,
  150.       SAREG|AWD,    TDOUBLE,
  151.           NAREG|NASL,    RESCC,
  152.           "    cvtfd    AL,A1\n    cmpd    A1,AR\nZP",
  153.   
  154.   OPLOG,    FORCC,
  155.  
  156. --- 257,263 -----
  157.       SAREG|AWD,    TFLOAT,
  158.       SAREG|AWD,    TDOUBLE,
  159.           NAREG|NASL,    RESCC,
  160. + #ifndef GFLOAT
  161.           "    cvtfd    AL,A1\n    cmpd    A1,AR\nZP",
  162.   #else GFLOAT
  163.           "    cvtfg    AL,A1\n    cmpg    A1,AR\nZP",
  164. ***************
  165. *** 242,247
  166.       SAREG|AWD,    TDOUBLE,
  167.           NAREG|NASL,    RESCC,
  168.           "    cvtfd    AL,A1\n    cmpd    A1,AR\nZP",
  169.   
  170.   OPLOG,    FORCC,
  171.       SAREG|AWD,    TFLOAT,
  172.  
  173. --- 259,267 -----
  174.           NAREG|NASL,    RESCC,
  175.   #ifndef GFLOAT
  176.           "    cvtfd    AL,A1\n    cmpd    A1,AR\nZP",
  177. + #else GFLOAT
  178. +         "    cvtfg    AL,A1\n    cmpg    A1,AR\nZP",
  179. + #endif GFLOAT
  180.   
  181.   OPLOG,    FORCC,
  182.       SAREG|AWD,    TFLOAT,
  183. ***************
  184. *** 260,265
  185.       SCON,    TANY,
  186.       SANY,    TFLOAT,
  187.           NAREG|NASL,    RESC1,
  188.           "    calls    ZC,CL\n    cvtdf    r0,r0\n",
  189.   
  190.   UNARY CALL,    INTAREG,
  191.  
  192. --- 280,286 -----
  193.       SCON,    TANY,
  194.       SANY,    TFLOAT,
  195.           NAREG|NASL,    RESC1,
  196. + #ifndef GFLOAT
  197.           "    calls    ZC,CL\n    cvtdf    r0,r0\n",
  198.   #else GFLOAT
  199.           "    calls    ZC,CL\n    cvtgf    r0,r0\n",
  200. ***************
  201. *** 261,266
  202.       SANY,    TFLOAT,
  203.           NAREG|NASL,    RESC1,
  204.           "    calls    ZC,CL\n    cvtdf    r0,r0\n",
  205.   
  206.   UNARY CALL,    INTAREG,
  207.       SCON,    TANY,
  208.  
  209. --- 282,290 -----
  210.           NAREG|NASL,    RESC1,
  211.   #ifndef GFLOAT
  212.           "    calls    ZC,CL\n    cvtdf    r0,r0\n",
  213. + #else GFLOAT
  214. +         "    calls    ZC,CL\n    cvtgf    r0,r0\n",
  215. + #endif GFLOAT
  216.   
  217.   UNARY CALL,    INTAREG,
  218.       SCON,    TANY,
  219. ***************
  220. *** 440,445
  221.       SANY,    TANY,
  222.       SAREG,    TDOUBLE,
  223.           2*NTEMP,    RESC1,
  224.           "    movd    AR,A1\n",
  225.   
  226.   REG,    INTEMP,
  227.  
  228. --- 464,470 -----
  229.       SANY,    TANY,
  230.       SAREG,    TDOUBLE,
  231.           2*NTEMP,    RESC1,
  232. + #ifndef GFLOAT
  233.           "    movd    AR,A1\n",
  234.   #else GFLOAT
  235.           "    movg    AR,A1\n",
  236. ***************
  237. *** 441,446
  238.       SAREG,    TDOUBLE,
  239.           2*NTEMP,    RESC1,
  240.           "    movd    AR,A1\n",
  241.   
  242.   REG,    INTEMP,
  243.       SANY,    TANY,
  244.  
  245. --- 466,474 -----
  246.           2*NTEMP,    RESC1,
  247.   #ifndef GFLOAT
  248.           "    movd    AR,A1\n",
  249. + #else GFLOAT
  250. +         "    movg    AR,A1\n",
  251. + #endif GFLOAT
  252.   
  253.   REG,    INTEMP,
  254.       SANY,    TANY,
  255. ***************
  256. *** 453,458
  257.       SANY,    TANY,
  258.       SAREG,    TFLOAT,
  259.           0,    RNULL,
  260.           "    cvtfd    AR,-(sp)\n",
  261.   
  262.   REG,    FORARG,
  263.  
  264. --- 481,487 -----
  265.       SANY,    TANY,
  266.       SAREG,    TFLOAT,
  267.           0,    RNULL,
  268. + #ifndef GFLOAT
  269.           "    cvtfd    AR,-(sp)\n",
  270.   #else GFLOAT
  271.           "    cvtfg    AR,-(sp)\n",
  272. ***************
  273. *** 454,459
  274.       SAREG,    TFLOAT,
  275.           0,    RNULL,
  276.           "    cvtfd    AR,-(sp)\n",
  277.   
  278.   REG,    FORARG,
  279.       SANY,    TANY,
  280.  
  281. --- 483,491 -----
  282.           0,    RNULL,
  283.   #ifndef GFLOAT
  284.           "    cvtfd    AR,-(sp)\n",
  285. + #else GFLOAT
  286. +         "    cvtfg    AR,-(sp)\n",
  287. + #endif GFLOAT
  288.   
  289.   REG,    FORARG,
  290.       SANY,    TANY,
  291. ***************
  292. *** 508,513
  293.       SANY,    TANY,
  294.       SANY,    TDOUBLE,
  295.           0,    RNULL,
  296.           "    movd    AR,-(sp)\n",
  297.   
  298.   OPLTYPE,    FORARG,
  299.  
  300. --- 540,546 -----
  301.       SANY,    TANY,
  302.       SANY,    TDOUBLE,
  303.           0,    RNULL,
  304. + #ifndef GFLOAT
  305.           "    movd    AR,-(sp)\n",
  306.   #else GFLOAT
  307.           "    movg    AR,-(sp)\n",
  308. ***************
  309. *** 509,514
  310.       SANY,    TDOUBLE,
  311.           0,    RNULL,
  312.           "    movd    AR,-(sp)\n",
  313.   
  314.   OPLTYPE,    FORARG,
  315.       SANY,    TANY,
  316.  
  317. --- 542,550 -----
  318.           0,    RNULL,
  319.   #ifndef GFLOAT
  320.           "    movd    AR,-(sp)\n",
  321. + #else GFLOAT
  322. +         "    movg    AR,-(sp)\n",
  323. + #endif GFLOAT
  324.   
  325.   OPLTYPE,    FORARG,
  326.       SANY,    TANY,
  327. ***************
  328. *** 514,519
  329.       SANY,    TANY,
  330.       SANY,    TFLOAT,
  331.           0,    RNULL,
  332.           "    cvtfd    AR,-(sp)\n",
  333.   
  334.   #ifdef FORT
  335.  
  336. --- 550,556 -----
  337.       SANY,    TANY,
  338.       SANY,    TFLOAT,
  339.           0,    RNULL,
  340. + #ifndef GFLOAT
  341.           "    cvtfd    AR,-(sp)\n",
  342.   #else GFLOAT
  343.           "    cvtfg    AR,-(sp)\n",
  344. ***************
  345. *** 515,520
  346.       SANY,    TFLOAT,
  347.           0,    RNULL,
  348.           "    cvtfd    AR,-(sp)\n",
  349.   
  350.   #ifdef FORT
  351.   UNARY MINUS,    INTAREG|FORCC,
  352.  
  353. --- 552,560 -----
  354.           0,    RNULL,
  355.   #ifndef GFLOAT
  356.           "    cvtfd    AR,-(sp)\n",
  357. + #else GFLOAT
  358. +         "    cvtfg    AR,-(sp)\n",
  359. + #endif GFLOAT
  360.   
  361.   #ifdef FORT
  362.   UNARY MINUS,    INTAREG|FORCC,
  363. ***************
  364. *** 770,775
  365.       SAREG|AWD,    TDOUBLE,
  366.       SAREG|AWD,    TFLOAT,
  367.           NAREG,    RLEFT|RESCC,
  368.           "    cvtfd    AR,A1\n    OD2    A1,AL\n",
  369.   
  370.   ASG OPFLOAT,    INAREG|INTAREG|FOREFF|FORCC,
  371.  
  372. --- 810,816 -----
  373.       SAREG|AWD,    TDOUBLE,
  374.       SAREG|AWD,    TFLOAT,
  375.           NAREG,    RLEFT|RESCC,
  376. + #ifndef GFLOAT
  377.           "    cvtfd    AR,A1\n    OD2    A1,AL\n",
  378.   #else GFLOAT
  379.           "    cvtfg    AR,A1\n    OD2    A1,AL\n",
  380. ***************
  381. *** 771,776
  382.       SAREG|AWD,    TFLOAT,
  383.           NAREG,    RLEFT|RESCC,
  384.           "    cvtfd    AR,A1\n    OD2    A1,AL\n",
  385.   
  386.   ASG OPFLOAT,    INAREG|INTAREG|FOREFF|FORCC,
  387.       SAREG|AWD,    TFLOAT,
  388.  
  389. --- 812,820 -----
  390.           NAREG,    RLEFT|RESCC,
  391.   #ifndef GFLOAT
  392.           "    cvtfd    AR,A1\n    OD2    A1,AL\n",
  393. + #else GFLOAT
  394. +         "    cvtfg    AR,A1\n    OD2    A1,AL\n",
  395. + #endif GFLOAT
  396.   
  397.   ASG OPFLOAT,    INAREG|INTAREG|FOREFF|FORCC,
  398.       SAREG|AWD,    TFLOAT,
  399. ***************
  400. *** 776,781
  401.       SAREG|AWD,    TFLOAT,
  402.       SAREG|AWD,    TDOUBLE,
  403.           NAREG,    RLEFT|RESC1|RESCC,
  404.           "    cvtfd    AL,A1\n    OD2    AR,A1\n    cvtdf    A1,AL\n",
  405.   
  406.   OPFLOAT,    INAREG|INTAREG|FORCC,
  407.  
  408. --- 820,826 -----
  409.       SAREG|AWD,    TFLOAT,
  410.       SAREG|AWD,    TDOUBLE,
  411.           NAREG,    RLEFT|RESC1|RESCC,
  412. + #ifndef GFLOAT
  413.           "    cvtfd    AL,A1\n    OD2    AR,A1\n    cvtdf    A1,AL\n",
  414.   #else GFLOAT
  415.           "    cvtfg    AL,A1\n    OD2    AR,A1\n    cvtgf    A1,AL\n",
  416. ***************
  417. *** 777,782
  418.       SAREG|AWD,    TDOUBLE,
  419.           NAREG,    RLEFT|RESC1|RESCC,
  420.           "    cvtfd    AL,A1\n    OD2    AR,A1\n    cvtdf    A1,AL\n",
  421.   
  422.   OPFLOAT,    INAREG|INTAREG|FORCC,
  423.       STAREG,    TDOUBLE,
  424.  
  425. --- 822,830 -----
  426.           NAREG,    RLEFT|RESC1|RESCC,
  427.   #ifndef GFLOAT
  428.           "    cvtfd    AL,A1\n    OD2    AR,A1\n    cvtdf    A1,AL\n",
  429. + #else GFLOAT
  430. +         "    cvtfg    AL,A1\n    OD2    AR,A1\n    cvtgf    A1,AL\n",
  431. + #endif GFLOAT
  432.   
  433.   OPFLOAT,    INAREG|INTAREG|FORCC,
  434.       STAREG,    TDOUBLE,
  435. ***************
  436. *** 794,799
  437.       SAREG|AWD,    TFLOAT,
  438.       SAREG|AWD,    TDOUBLE,
  439.           NAREG|NASL,    RESC1|RESCC,
  440.           "    cvtfd    AL,A1\n    OD2    AR,A1\n",
  441.   
  442.   OPFLOAT,    INAREG|INTAREG|FORCC,
  443.  
  444. --- 842,848 -----
  445.       SAREG|AWD,    TFLOAT,
  446.       SAREG|AWD,    TDOUBLE,
  447.           NAREG|NASL,    RESC1|RESCC,
  448. + #ifndef GFLOAT
  449.           "    cvtfd    AL,A1\n    OD2    AR,A1\n",
  450.   #else GFLOAT
  451.           "    cvtfg    AL,A1\n    OD2    AR,A1\n",
  452. ***************
  453. *** 795,800
  454.       SAREG|AWD,    TDOUBLE,
  455.           NAREG|NASL,    RESC1|RESCC,
  456.           "    cvtfd    AL,A1\n    OD2    AR,A1\n",
  457.   
  458.   OPFLOAT,    INAREG|INTAREG|FORCC,
  459.       SAREG|AWD,    TDOUBLE,
  460.  
  461. --- 844,852 -----
  462.           NAREG|NASL,    RESC1|RESCC,
  463.   #ifndef GFLOAT
  464.           "    cvtfd    AL,A1\n    OD2    AR,A1\n",
  465. + #else GFLOAT
  466. +         "    cvtfg    AL,A1\n    OD2    AR,A1\n",
  467. + #endif GFLOAT
  468.   
  469.   OPFLOAT,    INAREG|INTAREG|FORCC,
  470.       SAREG|AWD,    TDOUBLE,
  471. ***************
  472. *** 800,805
  473.       SAREG|AWD,    TDOUBLE,
  474.       SAREG|AWD,    TFLOAT,
  475.           NAREG|NASR,    RESC1|RESCC,
  476.           "    cvtfd    AR,A1\n    OD3    A1,AL,A1\n",
  477.   
  478.   #ifdef FORT
  479.  
  480. --- 852,858 -----
  481.       SAREG|AWD,    TDOUBLE,
  482.       SAREG|AWD,    TFLOAT,
  483.           NAREG|NASR,    RESC1|RESCC,
  484. + #ifndef GFLOAT
  485.           "    cvtfd    AR,A1\n    OD3    A1,AL,A1\n",
  486.   #else GFLOAT
  487.           "    cvtfg    AR,A1\n    OD3    A1,AL,A1\n",
  488. ***************
  489. *** 801,806
  490.       SAREG|AWD,    TFLOAT,
  491.           NAREG|NASR,    RESC1|RESCC,
  492.           "    cvtfd    AR,A1\n    OD3    A1,AL,A1\n",
  493.   
  494.   #ifdef FORT
  495.   OPFLOAT,    INAREG|INTAREG|FORCC,
  496.  
  497. --- 854,862 -----
  498.           NAREG|NASR,    RESC1|RESCC,
  499.   #ifndef GFLOAT
  500.           "    cvtfd    AR,A1\n    OD3    A1,AL,A1\n",
  501. + #else GFLOAT
  502. +         "    cvtfg    AR,A1\n    OD3    A1,AL,A1\n",
  503. + #endif GFLOAT
  504.   
  505.   #ifdef FORT
  506.   OPFLOAT,    INAREG|INTAREG|FORCC,
  507. ***************
  508. *** 820,825
  509.       SAREG|AWD,    TFLOAT,
  510.       SAREG|AWD,    TFLOAT,
  511.           NAREG|NASL|NASR,    RESC1|RESCC,
  512.           "    OF3    AR,AL,A1\n    cvtfd    A1,A1\n",
  513.   #endif
  514.   
  515.  
  516. --- 876,882 -----
  517.       SAREG|AWD,    TFLOAT,
  518.       SAREG|AWD,    TFLOAT,
  519.           NAREG|NASL|NASR,    RESC1|RESCC,
  520. + #ifndef GFLOAT
  521.           "    OF3    AR,AL,A1\n    cvtfd    A1,A1\n",
  522.   #else GFLOAT
  523.           "    OF3    AR,AL,A1\n    cvtfg    A1,A1\n",
  524. ***************
  525. *** 821,826
  526.       SAREG|AWD,    TFLOAT,
  527.           NAREG|NASL|NASR,    RESC1|RESCC,
  528.           "    OF3    AR,AL,A1\n    cvtfd    A1,A1\n",
  529.   #endif
  530.   
  531.       /* Default actions for hard trees ... */
  532.  
  533. --- 878,886 -----
  534.           NAREG|NASL|NASR,    RESC1|RESCC,
  535.   #ifndef GFLOAT
  536.           "    OF3    AR,AL,A1\n    cvtfd    A1,A1\n",
  537. + #else GFLOAT
  538. +         "    OF3    AR,AL,A1\n    cvtfg    A1,A1\n",
  539. + #endif GFLOAT
  540.   #endif
  541.   
  542.       /* Default actions for hard trees ... */
  543.