home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume3 / g-format / part2 / gfloat / f77 / src / f1 / table.c.diff < prev   
Encoding:
Text File  |  1986-11-30  |  10.2 KB  |  543 lines
  1. *** ../f77/src/f1/table.c.orig    Tue Oct 29 15:16:28 1985
  2. --- ../f77/src/f1/table.c    Tue Oct 29 15:21:50 1985
  3. ***************
  4. *** 89,94
  5.       SAREG|AWD,    TDOUBLE,
  6.       SANY,    TFLOAT,
  7.           NAREG|NASL,    RESC1|RESCC,
  8.           "    cvtdf    AL,A1\n",
  9.   
  10.   SCONV,    INTAREG|FORCC,
  11.  
  12. --- 89,95 -----
  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. *** 90,95
  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. --- 91,99 -----
  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. *** 108,113
  41.       SAREG|AWD,    ANYSIGNED|TUNSIGNED|TULONG|TFLOAT,
  42.       SANY,    TFLOAT|TDOUBLE,
  43.           NAREG|NASL,    RESC1|RESCC,
  44.           "    cvtZLd    AL,A1\n",
  45.   
  46.   SCONV,    INTAREG|FORCC,
  47.  
  48. --- 112,118 -----
  49.       SAREG|AWD,    ANYSIGNED|TUNSIGNED|TULONG|TFLOAT,
  50.       SANY,    TFLOAT|TDOUBLE,
  51.           NAREG|NASL,    RESC1|RESCC,
  52. + #ifndef GFLOAT
  53.           "    cvtZLd    AL,A1\n",
  54.   #else GFLOAT
  55.           "    cvtZLg    AL,A1\n",
  56. ***************
  57. *** 109,114
  58.       SANY,    TFLOAT|TDOUBLE,
  59.           NAREG|NASL,    RESC1|RESCC,
  60.           "    cvtZLd    AL,A1\n",
  61.   
  62.   SCONV,    INTAREG|FORCC,
  63.       SAREG|AWD,    TUCHAR|TUSHORT,
  64.  
  65. --- 114,122 -----
  66.           NAREG|NASL,    RESC1|RESCC,
  67.   #ifndef GFLOAT
  68.           "    cvtZLd    AL,A1\n",
  69. + #else GFLOAT
  70. +         "    cvtZLg    AL,A1\n",
  71. + #endif GFLOAT
  72.   
  73.   SCONV,    INTAREG|FORCC,
  74.       SAREG|AWD,    TUCHAR|TUSHORT,
  75. ***************
  76. *** 114,119
  77.       SAREG|AWD,    TUCHAR|TUSHORT,
  78.       SANY,    TFLOAT|TDOUBLE,
  79.           NAREG|NASL,    RESC1|RESCC,
  80.           "    movzZLl    AL,A1\n    cvtld    A1,A1\n",
  81.   
  82.   SCONV,    INTAREG|FORCC,
  83.  
  84. --- 122,128 -----
  85.       SAREG|AWD,    TUCHAR|TUSHORT,
  86.       SANY,    TFLOAT|TDOUBLE,
  87.           NAREG|NASL,    RESC1|RESCC,
  88. + #ifndef GFLOAT
  89.           "    movzZLl    AL,A1\n    cvtld    A1,A1\n",
  90.   #else GFLOAT
  91.           "    movzZLl    AL,A1\n    cvtlg    A1,A1\n",
  92. ***************
  93. *** 115,120
  94.       SANY,    TFLOAT|TDOUBLE,
  95.           NAREG|NASL,    RESC1|RESCC,
  96.           "    movzZLl    AL,A1\n    cvtld    A1,A1\n",
  97.   
  98.   SCONV,    INTAREG|FORCC,
  99.       SAREG|AWD,    TFLOAT|TDOUBLE,
  100.  
  101. --- 124,132 -----
  102.           NAREG|NASL,    RESC1|RESCC,
  103.   #ifndef GFLOAT
  104.           "    movzZLl    AL,A1\n    cvtld    A1,A1\n",
  105. + #else GFLOAT
  106. +         "    movzZLl    AL,A1\n    cvtlg    A1,A1\n",
  107. + #endif GFLOAT
  108.   
  109.   SCONV,    INTAREG|FORCC,
  110.       SAREG|AWD,    TFLOAT|TDOUBLE,
  111. ***************
  112. *** 273,278
  113.       SAREG|AWD,    TDOUBLE,
  114.       SAREG|AWD,    TDOUBLE,
  115.           0,    RESCC,
  116.           "    cmpd    AL,AR\nZP",
  117.   
  118.   OPLOG,    FORCC,
  119.  
  120. --- 285,291 -----
  121.       SAREG|AWD,    TDOUBLE,
  122.       SAREG|AWD,    TDOUBLE,
  123.           0,    RESCC,
  124. + #ifndef GFLOAT
  125.           "    cmpd    AL,AR\nZP",
  126.   #else GFLOAT
  127.           "    cmpg    AL,AR\nZP",
  128. ***************
  129. *** 274,279
  130.       SAREG|AWD,    TDOUBLE,
  131.           0,    RESCC,
  132.           "    cmpd    AL,AR\nZP",
  133.   
  134.   OPLOG,    FORCC,
  135.       SAREG|AWD,    TDOUBLE,
  136.  
  137. --- 287,295 -----
  138.           0,    RESCC,
  139.   #ifndef GFLOAT
  140.           "    cmpd    AL,AR\nZP",
  141. + #else GFLOAT
  142. +         "    cmpg    AL,AR\nZP",
  143. + #endif GFLOAT
  144.   
  145.   OPLOG,    FORCC,
  146.       SAREG|AWD,    TDOUBLE,
  147. ***************
  148. *** 279,284
  149.       SAREG|AWD,    TDOUBLE,
  150.       SAREG|AWD,    TFLOAT,
  151.           NAREG|NASR,    RESCC,
  152.           "    cvtfd    AR,A1\n    cmpd    AL,A1\nZP",
  153.   
  154.   OPLOG,    FORCC,
  155.  
  156. --- 295,301 -----
  157.       SAREG|AWD,    TDOUBLE,
  158.       SAREG|AWD,    TFLOAT,
  159.           NAREG|NASR,    RESCC,
  160. + #ifndef GFLOAT
  161.           "    cvtfd    AR,A1\n    cmpd    AL,A1\nZP",
  162.   #else GFLOAT
  163.           "    cvtfg    AR,A1\n    cmpg    AL,A1\nZP",
  164. ***************
  165. *** 280,285
  166.       SAREG|AWD,    TFLOAT,
  167.           NAREG|NASR,    RESCC,
  168.           "    cvtfd    AR,A1\n    cmpd    AL,A1\nZP",
  169.   
  170.   OPLOG,    FORCC,
  171.       SAREG|AWD,    TFLOAT,
  172.  
  173. --- 297,305 -----
  174.           NAREG|NASR,    RESCC,
  175.   #ifndef GFLOAT
  176.           "    cvtfd    AR,A1\n    cmpd    AL,A1\nZP",
  177. + #else GFLOAT
  178. +         "    cvtfg    AR,A1\n    cmpg    AL,A1\nZP",
  179. + #endif GFLOAT
  180.   
  181.   OPLOG,    FORCC,
  182.       SAREG|AWD,    TFLOAT,
  183. ***************
  184. *** 285,290
  185.       SAREG|AWD,    TFLOAT,
  186.       SAREG|AWD,    TDOUBLE,
  187.           NAREG|NASL,    RESCC,
  188.           "    cvtfd    AL,A1\n    cmpd    A1,AR\nZP",
  189.   
  190.   OPLOG,    FORCC,
  191.  
  192. --- 305,311 -----
  193.       SAREG|AWD,    TFLOAT,
  194.       SAREG|AWD,    TDOUBLE,
  195.           NAREG|NASL,    RESCC,
  196. + #ifndef GFLOAT
  197.           "    cvtfd    AL,A1\n    cmpd    A1,AR\nZP",
  198.   #else GFLOAT
  199.           "    cvtfg    AL,A1\n    cmpg    A1,AR\nZP",
  200. ***************
  201. *** 286,291
  202.       SAREG|AWD,    TDOUBLE,
  203.           NAREG|NASL,    RESCC,
  204.           "    cvtfd    AL,A1\n    cmpd    A1,AR\nZP",
  205.   
  206.   OPLOG,    FORCC,
  207.       SAREG|AWD,    TFLOAT,
  208.  
  209. --- 307,315 -----
  210.           NAREG|NASL,    RESCC,
  211.   #ifndef GFLOAT
  212.           "    cvtfd    AL,A1\n    cmpd    A1,AR\nZP",
  213. + #else GFLOAT
  214. +         "    cvtfg    AL,A1\n    cmpg    A1,AR\nZP",
  215. + #endif GFLOAT
  216.   
  217.   OPLOG,    FORCC,
  218.       SAREG|AWD,    TFLOAT,
  219. ***************
  220. *** 484,489
  221.       SANY,    TANY,
  222.       SAREG,    TDOUBLE,
  223.           2*NTEMP,    RESC1,
  224.           "    movd    AR,A1\n",
  225.   
  226.   REG,    INTEMP,
  227.  
  228. --- 508,514 -----
  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. *** 485,490
  238.       SAREG,    TDOUBLE,
  239.           2*NTEMP,    RESC1,
  240.           "    movd    AR,A1\n",
  241.   
  242.   REG,    INTEMP,
  243.       SANY,    TANY,
  244.  
  245. --- 510,518 -----
  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. *** 497,502
  257.       SANY,    TANY,
  258.       SAREG,    TFLOAT,
  259.           0,    RNULL,
  260.           "    cvtfd    AR,-(sp)\n",
  261.   
  262.   REG,    FORARG,
  263.  
  264. --- 525,531 -----
  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. *** 498,503
  274.       SAREG,    TFLOAT,
  275.           0,    RNULL,
  276.           "    cvtfd    AR,-(sp)\n",
  277.   
  278.   REG,    FORARG,
  279.       SANY,    TANY,
  280.  
  281. --- 527,535 -----
  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. *** 552,557
  293.       SANY,    TANY,
  294.       SANY,    TDOUBLE,
  295.           0,    RNULL,
  296.           "    movd    AR,-(sp)\n",
  297.   
  298.   OPLTYPE,    FORARG,
  299.  
  300. --- 584,590 -----
  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. *** 553,558
  310.       SANY,    TDOUBLE,
  311.           0,    RNULL,
  312.           "    movd    AR,-(sp)\n",
  313.   
  314.   OPLTYPE,    FORARG,
  315.       SANY,    TANY,
  316.  
  317. --- 586,594 -----
  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. *** 558,563
  329.       SANY,    TANY,
  330.       SANY,    TFLOAT,
  331.           0,    RNULL,
  332.           "    cvtfd    AR,-(sp)\n",
  333.   
  334.   #ifdef FORT
  335.  
  336. --- 594,600 -----
  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. *** 559,564
  346.       SANY,    TFLOAT,
  347.           0,    RNULL,
  348.           "    cvtfd    AR,-(sp)\n",
  349.   
  350.   #ifdef FORT
  351.   UNARY MINUS,    INTAREG|FORCC,
  352.  
  353. --- 596,604 -----
  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. *** 814,819
  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. --- 854,860 -----
  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. *** 815,820
  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. --- 856,864 -----
  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. *** 820,825
  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. --- 864,870 -----
  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. *** 821,826
  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. --- 866,874 -----
  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. *** 838,843
  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. --- 886,892 -----
  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. *** 839,844
  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. --- 888,896 -----
  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. *** 844,849
  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. --- 896,902 -----
  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. *** 845,850
  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. --- 898,906 -----
  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. *** 864,869
  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. --- 920,926 -----
  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. *** 865,870
  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. --- 922,930 -----
  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.