home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 2 / 2350 / att.pats
Encoding:
Text File  |  1990-12-28  |  39.6 KB  |  2,078 lines
  1. *** ../_getsw.s    Sun Dec  9 18:13:52 1990
  2. --- _getsw.s    Mon Dec 17 15:02:29 1990
  3. ***************
  4. *** 1,11 ****
  5. ! /*
  6. ! ** This file is part of the alternative 80386 math library and is
  7. ! ** covered by the GNU General Public license with my modification
  8. ! ** as noted in the README file that accompanied this file.
  9. ! **
  10. ! ** Copyright 1990 G. Geers
  11. ! **
  12. ! */
  13.   
  14.           .align 4
  15.           .globl _getsw
  16. --- 1,11 ----
  17. ! //
  18. ! // This file is part of the alternative 80386 math library and is
  19. ! // covered by the GNU General Public license with my modification
  20. ! // as noted in the README file that accompanied this file.
  21. ! //
  22. ! // Copyright 1990 G. Geers
  23. ! //
  24. ! //
  25.   
  26.           .align 4
  27.           .globl _getsw
  28. *** ../acos.s    Sun Dec  9 18:13:52 1990
  29. --- acos.s    Mon Dec 17 14:06:57 1990
  30. ***************
  31. *** 1,11 ****
  32. ! /*
  33. ! ** This file is part of the alternative 80386 math library and is
  34. ! ** covered by the GNU General Public license with my modification
  35. ! ** as noted in the README file that accompanied this file.
  36. ! **
  37. ! ** Copyright 1990 G. Geers
  38. ! **
  39. ! */
  40.   
  41.       .align 4
  42.   .Lhalfpi:
  43. --- 1,11 ----
  44. ! //
  45. ! // This file is part of the alternative 80386 math library and is
  46. ! // covered by the GNU General Public license with my modification
  47. ! // as noted in the README file that accompanied this file.
  48. ! //
  49. ! // Copyright 1990 G. Geers
  50. ! //
  51. ! //
  52.   
  53.       .align 4
  54.   .Lhalfpi:
  55. ***************
  56. *** 27,41 ****
  57.       fst %st(1)
  58.       fmull 8(%ebp)
  59.       fld1
  60. !     fsubp
  61.       fsqrt
  62. !     fdivp
  63.       fld1
  64.       fpatan
  65.       jnc .Ldone
  66.   
  67.       fldpi
  68. !     faddp
  69.       leave
  70.       ret
  71.   
  72. --- 27,41 ----
  73.       fst %st(1)
  74.       fmull 8(%ebp)
  75.       fld1
  76. !     fsubp %st, %st(1)
  77.       fsqrt
  78. !     fdivp %st, %st(1)
  79.       fld1
  80.       fpatan
  81.       jnc .Ldone
  82.   
  83.       fldpi
  84. !     faddp %st, %st(1)
  85.       leave
  86.       ret
  87.   
  88. *** ../acosh.s    Sun Dec  9 18:13:52 1990
  89. --- acosh.s    Tue Dec 18 06:51:37 1990
  90. ***************
  91. *** 1,11 ****
  92. ! /*
  93. ! ** This file is part of the alternative 80386 math library and is
  94. ! ** covered by the GNU General Public license with my modification
  95. ! ** as noted in the README file that accompanied this file.
  96. ! **
  97. ! ** Copyright 1990 G. Geers
  98. ! **
  99. ! */
  100.   
  101.       .align 4
  102.       .globl acosh
  103. --- 1,11 ----
  104. ! //
  105. ! // This file is part of the alternative 80386 math library and is
  106. ! // covered by the GNU General Public license with my modification
  107. ! // as noted in the README file that accompanied this file.
  108. ! //
  109. ! // Copyright 1990 G. Geers
  110. ! //
  111. ! //
  112.   
  113.       .align 4
  114.       .globl acosh
  115. ***************
  116. *** 17,23 ****
  117.   
  118.       fmull 8(%ebp)
  119.       fld1
  120. !     fsubrp
  121.       fsqrt
  122.       faddl 8(%ebp)
  123.       fldln2
  124. --- 17,23 ----
  125.   
  126.       fmull 8(%ebp)
  127.       fld1
  128. !     fsubrp %st, %st(1)
  129.       fsqrt
  130.       faddl 8(%ebp)
  131.       fldln2
  132. *** ../asin.s    Sun Dec  9 18:13:52 1990
  133. --- asin.s    Mon Dec 17 14:10:03 1990
  134. ***************
  135. *** 1,11 ****
  136. ! /*
  137. ! ** This file is part of the alternative 80386 math library and is
  138. ! ** covered by the GNU General Public license with my modification
  139. ! ** as noted in the README file that accompanied this file.
  140. ! **
  141. ! ** Copyright 1990 G. Geers
  142. ! **
  143. ! */
  144.   
  145.       .align 4
  146.       .globl asin
  147. --- 1,11 ----
  148. ! //
  149. ! // This file is part of the alternative 80386 math library and is
  150. ! // covered by the GNU General Public license with my modification
  151. ! // as noted in the README file that accompanied this file.
  152. ! //
  153. ! // Copyright 1990 G. Geers
  154. ! //
  155. ! //
  156.   
  157.       .align 4
  158.       .globl asin
  159. ***************
  160. *** 16,28 ****
  161.       fldl 8(%ebp)
  162.       fst %st(1)
  163.       fst %st(2)
  164. !     fmulp
  165.       fld1
  166. !     fsubp
  167.       fsqrt
  168.       fld1
  169. !     fdivp
  170. !     fmulp
  171.       fld1
  172.       fpatan
  173.   
  174. --- 16,28 ----
  175.       fldl 8(%ebp)
  176.       fst %st(1)
  177.       fst %st(2)
  178. !     fmulp %st, %st(1)
  179.       fld1
  180. !     fsubp %st, %st(1)
  181.       fsqrt
  182.       fld1
  183. !     fdivp %st, %st(1)
  184. !     fmulp %st, %st(1)
  185.       fld1
  186.       fpatan
  187.   
  188. *** ../asinh.s    Sun Dec  9 18:13:52 1990
  189. --- asinh.s    Mon Dec 17 14:11:34 1990
  190. ***************
  191. *** 1,11 ****
  192. ! /*
  193. ! ** This file is part of the alternative 80386 math library and is
  194. ! ** covered by the GNU General Public license with my modification
  195. ! ** as noted in the README file that accompanied this file.
  196. ! **
  197. ! ** Copyright 1990 G. Geers
  198. ! **
  199. ! */
  200.   
  201.       .align 4
  202.       .globl asinh
  203. --- 1,11 ----
  204. ! //
  205. ! // This file is part of the alternative 80386 math library and is
  206. ! // covered by the GNU General Public license with my modification
  207. ! // as noted in the README file that accompanied this file.
  208. ! //
  209. ! // Copyright 1990 G. Geers
  210. ! //
  211. ! //
  212.   
  213.       .align 4
  214.       .globl asinh
  215. ***************
  216. *** 17,23 ****
  217.   
  218.       fmull 8(%ebp)
  219.       fld1
  220. !     faddp
  221.       fsqrt
  222.       faddl 8(%ebp)
  223.       fldln2
  224. --- 17,23 ----
  225.   
  226.       fmull 8(%ebp)
  227.       fld1
  228. !     faddp %st, %st(1)
  229.       fsqrt
  230.       faddl 8(%ebp)
  231.       fldln2
  232. *** ../atan.s    Sun Dec  9 18:13:52 1990
  233. --- atan.s    Mon Dec 17 14:12:28 1990
  234. ***************
  235. *** 1,11 ****
  236. ! /*
  237. ! ** This file is part of the alternative 80386 math library and is
  238. ! ** covered by the GNU General Public license with my modification
  239. ! ** as noted in the README file that accompanied this file.
  240. ! **
  241. ! ** Copyright 1990 G. Geers
  242. ! **
  243. ! */
  244.   
  245.       .align 4
  246.       .globl atan
  247. --- 1,11 ----
  248. ! //
  249. ! // This file is part of the alternative 80386 math library and is
  250. ! // covered by the GNU General Public license with my modification
  251. ! // as noted in the README file that accompanied this file.
  252. ! //
  253. ! // Copyright 1990 G. Geers
  254. ! //
  255. ! //
  256.   
  257.       .align 4
  258.       .globl atan
  259. *** ../atan2.s    Sun Dec  9 18:13:52 1990
  260. --- atan2.s    Tue Dec 18 06:57:16 1990
  261. ***************
  262. *** 1,11 ****
  263. ! /*
  264. ! ** This file is part of the alternative 80386 math library and is
  265. ! ** covered by the GNU General Public license with my modification
  266. ! ** as noted in the README file that accompanied this file.
  267. ! **
  268. ! ** Copyright 1990 G. Geers
  269. ! **
  270. ! */
  271.   
  272.       .align 4
  273.   .Lpi:
  274. --- 1,11 ----
  275. ! //
  276. ! // This file is part of the alternative 80386 math library and is
  277. ! // covered by the GNU General Public license with my modification
  278. ! // as noted in the README file that accompanied this file.
  279. ! //
  280. ! // Copyright 1990 G. Geers
  281. ! //
  282. ! //
  283.   
  284.       .align 4
  285.   .Lpi:
  286. ***************
  287. *** 37,43 ****
  288.       jz .Lgotzero
  289.       jc .Lgotneg
  290.   
  291. !     fdivp
  292.       fld1
  293.       fpatan
  294.   
  295. --- 37,43 ----
  296.       jz .Lgotzero
  297.       jc .Lgotneg
  298.   
  299. !     fdivp %st, %st(1)
  300.       fld1
  301.       fpatan
  302.   
  303. ***************
  304. *** 50,70 ****
  305.       sahf 
  306.       jc .Lneg1
  307.   
  308. !     fdivp
  309.       fld1
  310.       fpatan
  311.       fldl .Lmpi
  312. !     fsubrp
  313.   
  314.       leave
  315.       ret
  316.   
  317.   .Lneg1:
  318. !     fdivp
  319.       fld1
  320.       fpatan
  321.       fldl .Lpi
  322. !     fsubrp
  323.   
  324.       leave
  325.       ret
  326. --- 50,70 ----
  327.       sahf 
  328.       jc .Lneg1
  329.   
  330. !     fdivp %st, %st(1)
  331.       fld1
  332.       fpatan
  333.       fldl .Lmpi
  334. !     fsubrp %st, %st(1)
  335.   
  336.       leave
  337.       ret
  338.   
  339.   .Lneg1:
  340. !     fdivp %st, %st(1)
  341.       fld1
  342.       fpatan
  343.       fldl .Lpi
  344. !     fsubrp %st, %st(1)
  345.   
  346.       leave
  347.       ret
  348. *** ../atanh.s    Sun Dec  9 18:13:53 1990
  349. --- atanh.s    Tue Dec 18 06:50:11 1990
  350. ***************
  351. *** 1,11 ****
  352. ! /*
  353. ! ** This file is part of the alternative 80386 math library and is
  354. ! ** covered by the GNU General Public license with my modification
  355. ! ** as noted in the README file that accompanied this file.
  356. ! **
  357. ! ** Copyright 1990 G. Geers
  358. ! **
  359. ! */
  360.   
  361.       .align 4
  362.   .Lhalf:
  363. --- 1,11 ----
  364. ! //
  365. ! // This file is part of the alternative 80386 math library and is
  366. ! // covered by the GNU General Public license with my modification
  367. ! // as noted in the README file that accompanied this file.
  368. ! //
  369. ! // Copyright 1990 G. Geers
  370. ! //
  371. ! //
  372.   
  373.       .align 4
  374.   .Lhalf:
  375. ***************
  376. *** 21,27 ****
  377.       faddl 8(%ebp)
  378.       fld1
  379.       fsubl 8(%ebp)
  380. !     fdivrp
  381.   
  382.       fldln2
  383.       fxch %st(1)
  384. --- 21,27 ----
  385.       faddl 8(%ebp)
  386.       fld1
  387.       fsubl 8(%ebp)
  388. !     fdivrp %st, %st(1)
  389.   
  390.       fldln2
  391.       fxch %st(1)
  392. ***************
  393. *** 28,34 ****
  394.       fyl2x
  395.   
  396.       fldl .Lhalf
  397. !     fmulp
  398.   
  399.       leave
  400.       ret
  401. --- 28,34 ----
  402.       fyl2x
  403.   
  404.       fldl .Lhalf
  405. !     fmulp %st, %st(1)
  406.   
  407.       leave
  408.       ret
  409. *** ../ceil.s    Sun Dec  9 18:13:53 1990
  410. --- ceil.s    Mon Dec 17 14:17:24 1990
  411. ***************
  412. *** 1,13 ****
  413. ! /*
  414. ! ** This file is part of the alternative 80386 math library and is
  415. ! ** covered by the GNU General Public license with my modification
  416. ! ** as noted in the README file that accompanied this file.
  417. ! **
  418. ! ** Could use ceil(x) = -floor(-x) but this is quicker.
  419. ! **
  420. ! ** Copyright 1990 G. Geers
  421. ! **
  422. ! */
  423.   
  424.       .align 4
  425.       .globl ceil
  426. --- 1,13 ----
  427. ! //
  428. ! // This file is part of the alternative 80386 math library and is
  429. ! // covered by the GNU General Public license with my modification
  430. ! // as noted in the README file that accompanied this file.
  431. ! //
  432. ! // Could use ceil(x) = -floor(-x) but this is quicker.
  433. ! //
  434. ! // Copyright 1990 G. Geers
  435. ! //
  436. ! //
  437.   
  438.       .align 4
  439.       .globl ceil
  440. *** ../copysign.s    Wed Dec 12 06:52:45 1990
  441. --- copysign.s    Mon Dec 17 14:18:13 1990
  442. ***************
  443. *** 1,11 ****
  444. ! /*
  445. ! ** This file is part of the alternative 80386 math library and is
  446. ! ** covered by the GNU General Public license with my modification
  447. ! ** as noted in the README file that accompanied this file.
  448. ! **
  449. ! ** Copyright 1990 G. Geers
  450. ! **
  451. ! */
  452.   
  453.       .align 4
  454.   .globl copysign
  455. --- 1,11 ----
  456. ! //
  457. ! // This file is part of the alternative 80386 math library and is
  458. ! // covered by the GNU General Public license with my modification
  459. ! // as noted in the README file that accompanied this file.
  460. ! //
  461. ! // Copyright 1990 G. Geers
  462. ! //
  463. ! //
  464.   
  465.       .align 4
  466.   .globl copysign
  467. *** ../cos.s    Sun Dec  9 18:13:53 1990
  468. --- cos.s    Mon Dec 17 14:18:49 1990
  469. ***************
  470. *** 1,11 ****
  471. ! /*
  472. ! ** This file is part of the alternative 80386 math library and is
  473. ! ** covered by the GNU General Public license with my modification
  474. ! ** as noted in the README file that accompanied this file.
  475. ! **
  476. ! ** Copyright 1990 G. Geers
  477. ! **
  478. ! */
  479.   
  480.       .align 4
  481.       .globl cos
  482. --- 1,11 ----
  483. ! //
  484. ! // This file is part of the alternative 80386 math library and is
  485. ! // covered by the GNU General Public license with my modification
  486. ! // as noted in the README file that accompanied this file.
  487. ! //
  488. ! // Copyright 1990 G. Geers
  489. ! //
  490. ! //
  491.   
  492.       .align 4
  493.       .globl cos
  494. *** ../cosh.s    Thu Dec 13 19:35:36 1990
  495. --- cosh.s    Tue Dec 18 06:55:23 1990
  496. ***************
  497. *** 1,11 ****
  498. ! /*
  499. ! ** This file is part of the alternative 80386 math library and is
  500. ! ** covered by the GNU General Public license with my modification
  501. ! ** as noted in the README file that accompanied this file.
  502. ! **
  503. ! ** Copyright 1990 G. Geers
  504. ! **
  505. ! */
  506.   
  507.       .align 4
  508.   .LC2:
  509. --- 1,11 ----
  510. ! //
  511. ! // This file is part of the alternative 80386 math library and is
  512. ! // covered by the GNU General Public license with my modification
  513. ! // as noted in the README file that accompanied this file.
  514. ! //
  515. ! // Copyright 1990 G. Geers
  516. ! //
  517. ! //
  518.   
  519.       .align 4
  520.   .LC2:
  521. ***************
  522. *** 26,48 ****
  523.   
  524.   .Lpos:
  525.       fldl2e
  526. !     fmulp
  527. !     fstl %st(1)
  528.       frndint
  529. !     fstl %st(2)
  530. !     fsubrp
  531.       f2xm1
  532.       fld1
  533. !     faddp
  534.       fscale
  535.       fst %st(1)
  536.   
  537.       fld1
  538. !     fdivp
  539. !     faddp
  540.   
  541.       fldl .LC2
  542. !     fmulp
  543.   
  544.       leave
  545.       ret
  546. --- 26,48 ----
  547.   
  548.   .Lpos:
  549.       fldl2e
  550. !     fmulp %st, %st(1)
  551. !     fst %st(1)
  552.       frndint
  553. !     fst %st(2)
  554. !     fsubrp %st, %st(1)
  555.       f2xm1
  556.       fld1
  557. !     faddp %st, %st(1)
  558.       fscale
  559.       fst %st(1)
  560.   
  561.       fld1
  562. !     fdivp %st, %st(1)
  563. !     faddp %st, %st(1)
  564.   
  565.       fldl .LC2
  566. !     fmulp %st, %st(1)
  567.   
  568.       leave
  569.       ret
  570. *** ../drem.s    Sun Dec  9 18:13:53 1990
  571. --- drem.s    Mon Dec 17 14:24:54 1990
  572. ***************
  573. *** 1,11 ****
  574. ! /*
  575. ! ** This file is part of the alternative 80386 math library and is
  576. ! ** covered by the GNU General Public license with my modification
  577. ! ** as noted in the README file that accompanied this file.
  578. ! **
  579. ! ** Copyright 1990 G. Geers
  580. ! **
  581. ! */
  582.   
  583.       .align 4
  584.       .globl drem
  585. --- 1,11 ----
  586. ! //
  587. ! // This file is part of the alternative 80386 math library and is
  588. ! // covered by the GNU General Public license with my modification
  589. ! // as noted in the README file that accompanied this file.
  590. ! //
  591. ! // Copyright 1990 G. Geers
  592. ! //
  593. ! //
  594.   
  595.       .align 4
  596.       .globl drem
  597. *** ../exp.s    Sun Dec  9 18:13:54 1990
  598. --- exp.s    Tue Dec 18 09:43:48 1990
  599. ***************
  600. *** 1,11 ****
  601. ! /*
  602. ! ** This file is part of the alternative 80386 math library and is
  603. ! ** covered by the GNU General Public license with my modification
  604. ! ** as noted in the README file that accompanied this file.
  605. ! **
  606. ! ** Copyright 1990 G. Geers
  607. ! **
  608. ! */
  609.   
  610.       .align 4
  611.       .globl exp
  612. --- 1,11 ----
  613. ! //
  614. ! // This file is part of the alternative 80386 math library and is
  615. ! // covered by the GNU General Public license with my modification
  616. ! // as noted in the README file that accompanied this file.
  617. ! //
  618. ! // Copyright 1990 G. Geers
  619. ! //
  620. ! //
  621.   
  622.       .align 4
  623.       .globl exp
  624. ***************
  625. *** 15,28 ****
  626.   
  627.       fldl 8(%ebp)
  628.       fldl2e
  629. !     fmulp
  630. !     fstl %st(1)
  631.       frndint
  632. !     fstl %st(2)
  633. !     fsubrp
  634.       f2xm1
  635.       fld1
  636. !     faddp
  637.       fscale
  638.   
  639.       leave
  640. --- 15,28 ----
  641.   
  642.       fldl 8(%ebp)
  643.       fldl2e
  644. !     fmulp %st, %st(1)
  645. !     fst %st(1)
  646.       frndint
  647. !     fst %st(2)
  648. !     fsubrp %st, %st(1)
  649.       f2xm1
  650.       fld1
  651. !     faddp %st, %st(1)
  652.       fscale
  653.   
  654.       leave
  655. *** ../exp10.s    Sun Dec  9 18:13:54 1990
  656. --- exp10.s    Tue Dec 18 06:53:40 1990
  657. ***************
  658. *** 1,11 ****
  659. ! /*
  660. ! ** This file is part of the alternative 80386 math library and is
  661. ! ** covered by the GNU General Public license with my modification
  662. ! ** as noted in the README file that accompanied this file.
  663. ! **
  664. ! ** Copyright 1990 G. Geers
  665. ! **
  666. ! */
  667.   
  668.       .align 4
  669.       .globl exp10
  670. --- 1,11 ----
  671. ! //
  672. ! // This file is part of the alternative 80386 math library and is
  673. ! // covered by the GNU General Public license with my modification
  674. ! // as noted in the README file that accompanied this file.
  675. ! //
  676. ! // Copyright 1990 G. Geers
  677. ! //
  678. ! //
  679.   
  680.       .align 4
  681.       .globl exp10
  682. ***************
  683. *** 15,28 ****
  684.   
  685.       fldl 8(%ebp)
  686.       fldl2t
  687. !     fmulp
  688. !     fstl %st(1)
  689.       frndint
  690. !     fstl %st(2)
  691. !     fsubrp
  692.       f2xm1
  693.       fld1
  694. !     faddp
  695.       fscale
  696.   
  697.       leave
  698. --- 15,28 ----
  699.   
  700.       fldl 8(%ebp)
  701.       fldl2t
  702. !     fmulp %st, %st(1)
  703. !     fst %st(1)
  704.       frndint
  705. !     fst %st(2)
  706. !     fsubrp %st, %st(1)
  707.       f2xm1
  708.       fld1
  709. !     faddp %st, %st(1)
  710.       fscale
  711.   
  712.       leave
  713. *** ../exp2.s    Sun Dec  9 18:13:54 1990
  714. --- exp2.s    Tue Dec 18 06:57:45 1990
  715. ***************
  716. *** 1,11 ****
  717. ! /*
  718. ! ** This file is part of the alternative 80386 math library and is
  719. ! ** covered by the GNU General Public license with my modification
  720. ! ** as noted in the README file that accompanied this file.
  721. ! **
  722. ! ** Copyright 1990 G. Geers
  723. ! **
  724. ! */
  725.   
  726.       .align 4
  727.       .globl exp2
  728. --- 1,11 ----
  729. ! //
  730. ! // This file is part of the alternative 80386 math library and is
  731. ! // covered by the GNU General Public license with my modification
  732. ! // as noted in the README file that accompanied this file.
  733. ! //
  734. ! // Copyright 1990 G. Geers
  735. ! //
  736. ! //
  737.   
  738.       .align 4
  739.       .globl exp2
  740. ***************
  741. *** 14,26 ****
  742.       movl %esp,%ebp
  743.   
  744.       fldl 8(%ebp)
  745. !     fstl %st(1)
  746.       frndint
  747. !     fstl %st(2)
  748. !     fsubrp
  749.       f2xm1
  750.       fld1
  751. !     faddp
  752.       fscale
  753.   
  754.       leave
  755. --- 14,26 ----
  756.       movl %esp,%ebp
  757.   
  758.       fldl 8(%ebp)
  759. !     fst %st(1)
  760.       frndint
  761. !     fst %st(2)
  762. !     fsubrp %st, %st(1)
  763.       f2xm1
  764.       fld1
  765. !     faddp %st, %st(1)
  766.       fscale
  767.   
  768.       leave
  769. *** ../expm1.s    Thu Dec 13 19:03:26 1990
  770. --- expm1.s    Tue Dec 18 06:54:10 1990
  771. ***************
  772. *** 1,11 ****
  773. ! /*
  774. ! ** This file is part of the alternative 80386 math library and is
  775. ! ** covered by the GNU General Public license with my modification
  776. ! ** as noted in the README file that accompanied this file.
  777. ! **
  778. ! ** Copyright 1990 G. Geers
  779. ! **
  780. ! */
  781.   
  782.       .align 4
  783.       .globl expm1
  784. --- 1,11 ----
  785. ! //
  786. ! // This file is part of the alternative 80386 math library and is
  787. ! // covered by the GNU General Public license with my modification
  788. ! // as noted in the README file that accompanied this file.
  789. ! //
  790. ! // Copyright 1990 G. Geers
  791. ! //
  792. ! //
  793.   
  794.       .align 4
  795.       .globl expm1
  796. ***************
  797. *** 16,29 ****
  798.   
  799.       fldl 8(%ebp)
  800.       fldl2e
  801. !     fmulp
  802. !     fstl %st(1)
  803.       frndint
  804. !     fstl %st(2)
  805. !     fsubrp
  806.       f2xm1
  807.       fld1
  808. !     faddp
  809.       fscale
  810.   
  811.       fstpl -8(%ebp)
  812. --- 16,29 ----
  813.   
  814.       fldl 8(%ebp)
  815.       fldl2e
  816. !     fmulp %st, %st(1)
  817. !     fst %st(1)
  818.       frndint
  819. !     fst %st(2)
  820. !     fsubrp %st, %st(1)
  821.       f2xm1
  822.       fld1
  823. !     faddp %st, %st(1)
  824.       fscale
  825.   
  826.       fstpl -8(%ebp)
  827. ***************
  828. *** 31,48 ****
  829.       fldl 8(%ebp)
  830.       fchs
  831.       fldl2e
  832. !     fmulp
  833. !     fstl %st(1)
  834.       frndint
  835. !     fstl %st(2)
  836. !     fsubrp
  837.       f2xm1
  838.       fld1
  839. !     faddp
  840.       fscale
  841.   
  842.       fld1
  843. !     fsubp
  844.       fmull -8(%ebp)
  845.   
  846.       leave
  847. --- 31,48 ----
  848.       fldl 8(%ebp)
  849.       fchs
  850.       fldl2e
  851. !     fmulp %st, %st(1)
  852. !     fst %st(1)
  853.       frndint
  854. !     fst %st(2)
  855. !     fsubrp %st, %st(1)
  856.       f2xm1
  857.       fld1
  858. !     faddp %st, %st(1)
  859.       fscale
  860.   
  861.       fld1
  862. !     fsubp %st, %st(1)
  863.       fmull -8(%ebp)
  864.   
  865.       leave
  866. *** ../fabs.s    Sun Dec  9 18:13:54 1990
  867. --- fabs.s    Mon Dec 17 14:31:48 1990
  868. ***************
  869. *** 1,11 ****
  870. ! /*
  871. ! ** This file is part of the alternative 80386 math library and is
  872. ! ** covered by the GNU General Public license with my modification
  873. ! ** as noted in the README file that accompanied this file.
  874. ! **
  875. ! ** Copyright 1990 G. Geers
  876. ! **
  877. ! */
  878.   
  879.       .align 4
  880.       .globl fabs
  881. --- 1,11 ----
  882. ! //
  883. ! // This file is part of the alternative 80386 math library and is
  884. ! // covered by the GNU General Public license with my modification
  885. ! // as noted in the README file that accompanied this file.
  886. ! //
  887. ! // Copyright 1990 G. Geers
  888. ! //
  889. ! //
  890.   
  891.       .align 4
  892.       .globl fabs
  893. *** ../finite.s    Sun Dec  9 18:13:54 1990
  894. --- finite.s    Mon Dec 17 14:32:09 1990
  895. ***************
  896. *** 1,11 ****
  897. ! /*
  898. ! ** This file is part of the alternative 80386 math library and is
  899. ! ** covered by the GNU General Public license with my modification
  900. ! ** as noted in the README file that accompanied this file.
  901. ! **
  902. ! ** Copyright 1990 G. Geers
  903. ! **
  904. ! */
  905.   
  906.       .align 4
  907.       .globl finite
  908. --- 1,11 ----
  909. ! //
  910. ! // This file is part of the alternative 80386 math library and is
  911. ! // covered by the GNU General Public license with my modification
  912. ! // as noted in the README file that accompanied this file.
  913. ! //
  914. ! // Copyright 1990 G. Geers
  915. ! //
  916. ! //
  917.   
  918.       .align 4
  919.       .globl finite
  920. *** ../floor.s    Sun Dec  9 18:13:54 1990
  921. --- floor.s    Mon Dec 17 14:32:41 1990
  922. ***************
  923. *** 1,11 ****
  924. ! /*
  925. ! ** This file is part of the alternative 80386 math library and is
  926. ! ** covered by the GNU General Public license with my modification
  927. ! ** as noted in the README file that accompanied this file.
  928. ! **
  929. ! ** Copyright 1990 G. Geers
  930. ! **
  931. ! */
  932.   
  933.       .align 4
  934.       .globl floor
  935. --- 1,11 ----
  936. ! //
  937. ! // This file is part of the alternative 80386 math library and is
  938. ! // covered by the GNU General Public license with my modification
  939. ! // as noted in the README file that accompanied this file.
  940. ! //
  941. ! // Copyright 1990 G. Geers
  942. ! //
  943. ! //
  944.   
  945.       .align 4
  946.       .globl floor
  947. *** ../fmod.s    Sun Dec  9 18:13:54 1990
  948. --- fmod.s    Mon Dec 17 14:33:15 1990
  949. ***************
  950. *** 1,11 ****
  951. ! /*
  952. ! ** This file is part of the alternative 80386 math library and is
  953. ! ** covered by the GNU General Public license with my modification
  954. ! ** as noted in the README file that accompanied this file.
  955. ! **
  956. ! ** Copyright 1990 G. Geers
  957. ! **
  958. ! */
  959.   
  960.       .align 4
  961.       .globl fmod
  962. --- 1,11 ----
  963. ! //
  964. ! // This file is part of the alternative 80386 math library and is
  965. ! // covered by the GNU General Public license with my modification
  966. ! // as noted in the README file that accompanied this file.
  967. ! //
  968. ! // Copyright 1990 G. Geers
  969. ! //
  970. ! //
  971.   
  972.       .align 4
  973.       .globl fmod
  974. *** ../hypot.s    Sun Dec  9 18:13:55 1990
  975. --- hypot.s    Mon Dec 17 14:35:25 1990
  976. ***************
  977. *** 1,11 ****
  978. ! /*
  979. ! ** This file is part of the alternative 80386 math library and is
  980. ! ** covered by the GNU General Public license with my modification
  981. ! ** as noted in the README file that accompanied this file.
  982. ! **
  983. ! ** Copyright 1990 G. Geers
  984. ! **
  985. ! */
  986.   
  987.       .align 4
  988.   .globl hypot
  989. --- 1,11 ----
  990. ! //
  991. ! // This file is part of the alternative 80386 math library and is
  992. ! // covered by the GNU General Public license with my modification
  993. ! // as noted in the README file that accompanied this file.
  994. ! //
  995. ! // Copyright 1990 G. Geers
  996. ! //
  997. ! //
  998.   
  999.       .align 4
  1000.   .globl hypot
  1001. ***************
  1002. *** 17,23 ****
  1003.       fmull 8(%ebp)
  1004.       fldl 16(%ebp)
  1005.       fmull 16(%ebp)
  1006. !     faddp
  1007.       fsqrt
  1008.   
  1009.       leave
  1010. --- 17,23 ----
  1011.       fmull 8(%ebp)
  1012.       fldl 16(%ebp)
  1013.       fmull 16(%ebp)
  1014. !     faddp %st, %st(1)
  1015.       fsqrt
  1016.   
  1017.       leave
  1018. *** ../ieee_ext.s    Tue Dec 11 18:45:05 1990
  1019. --- ieee_ext.s    Mon Dec 17 14:36:21 1990
  1020. ***************
  1021. *** 1,11 ****
  1022. ! /*
  1023. ! ** This file is part of the alternative 80386 math library and is
  1024. ! ** covered by the GNU General Public license with my modification
  1025. ! ** as noted in the README file that accompanied this file.
  1026. ! **
  1027. ! ** Copyright 1990 G. Geers
  1028. ! **
  1029. ! */
  1030.   
  1031.       .align 4
  1032.       .globl isnan
  1033. --- 1,11 ----
  1034. ! //
  1035. ! // This file is part of the alternative 80386 math library and is
  1036. ! // covered by the GNU General Public license with my modification
  1037. ! // as noted in the README file that accompanied this file.
  1038. ! //
  1039. ! // Copyright 1990 G. Geers
  1040. ! //
  1041. ! //
  1042.   
  1043.       .align 4
  1044.       .globl isnan
  1045. *** ../ieee_values.s    Mon Dec 17 12:11:31 1990
  1046. --- ieee_values.s    Mon Dec 17 14:36:46 1990
  1047. ***************
  1048. *** 1,11 ****
  1049. ! /*
  1050. ! ** This file is part of the alternative 80386 math library and is
  1051. ! ** covered by the GNU General Public license with my modification
  1052. ! ** as noted in the README file that accompanied this file.
  1053. ! **
  1054. ! ** Copyright 1990 G. Geers
  1055. ! **
  1056. ! */
  1057.   
  1058.       .align 4
  1059.       .globl max_normal
  1060. --- 1,11 ----
  1061. ! //
  1062. ! // This file is part of the alternative 80386 math library and is
  1063. ! // covered by the GNU General Public license with my modification
  1064. ! // as noted in the README file that accompanied this file.
  1065. ! //
  1066. ! // Copyright 1990 G. Geers
  1067. ! //
  1068. ! //
  1069.   
  1070.       .align 4
  1071.       .globl max_normal
  1072. *** ../infinity.s    Mon Dec 17 12:08:18 1990
  1073. --- infinity.s    Mon Dec 17 14:37:07 1990
  1074. ***************
  1075. *** 1,11 ****
  1076. ! /*
  1077. ! ** This file is part of the alternative 80386 math library and is
  1078. ! ** covered by the GNU General Public license with my modification
  1079. ! ** as noted in the README file that accompanied this file.
  1080. ! **
  1081. ! ** Copyright 1990 G. Geers
  1082. ! **
  1083. ! */
  1084.   
  1085.       .align 4
  1086.       .globl infinity
  1087. --- 1,11 ----
  1088. ! //
  1089. ! // This file is part of the alternative 80386 math library and is
  1090. ! // covered by the GNU General Public license with my modification
  1091. ! // as noted in the README file that accompanied this file.
  1092. ! //
  1093. ! // Copyright 1990 G. Geers
  1094. ! //
  1095. ! //
  1096.   
  1097.       .align 4
  1098.       .globl infinity
  1099. *** ../log.s    Sun Dec  9 18:13:55 1990
  1100. --- log.s    Mon Dec 17 14:38:00 1990
  1101. ***************
  1102. *** 1,11 ****
  1103. ! /*
  1104. ! ** This file is part of the alternative 80386 math library and is
  1105. ! ** covered by the GNU General Public license with my modification
  1106. ! ** as noted in the README file that accompanied this file.
  1107. ! **
  1108. ! ** Copyright 1990 G. Geers
  1109. ! **
  1110. ! */
  1111.   
  1112.       .align 4
  1113.       .globl log
  1114. --- 1,11 ----
  1115. ! //
  1116. ! // This file is part of the alternative 80386 math library and is
  1117. ! // covered by the GNU General Public license with my modification
  1118. ! // as noted in the README file that accompanied this file.
  1119. ! //
  1120. ! // Copyright 1990 G. Geers
  1121. ! //
  1122. ! //
  1123.   
  1124.       .align 4
  1125.       .globl log
  1126. *** ../log10.s    Sun Dec  9 18:13:55 1990
  1127. --- log10.s    Mon Dec 17 14:38:09 1990
  1128. ***************
  1129. *** 1,11 ****
  1130. ! /*
  1131. ! ** This file is part of the alternative 80386 math library and is
  1132. ! ** covered by the GNU General Public license with my modification
  1133. ! ** as noted in the README file that accompanied this file.
  1134. ! **
  1135. ! ** Copyright 1990 G. Geers
  1136. ! **
  1137. ! */
  1138.   
  1139.       .align 4
  1140.       .globl log10
  1141. --- 1,11 ----
  1142. ! //
  1143. ! // This file is part of the alternative 80386 math library and is
  1144. ! // covered by the GNU General Public license with my modification
  1145. ! // as noted in the README file that accompanied this file.
  1146. ! //
  1147. ! // Copyright 1990 G. Geers
  1148. ! //
  1149. ! //
  1150.   
  1151.       .align 4
  1152.       .globl log10
  1153. *** ../log1p.s    Sun Dec  9 18:13:56 1990
  1154. --- log1p.s    Mon Dec 17 14:38:41 1990
  1155. ***************
  1156. *** 1,11 ****
  1157. ! /*
  1158. ! ** This file is part of the alternative 80386 math library and is
  1159. ! ** covered by the GNU General Public license with my modification
  1160. ! ** as noted in the README file that accompanied this file.
  1161. ! **
  1162. ! ** Copyright 1990 G. Geers
  1163. ! **
  1164. ! */
  1165.   
  1166.       .align 4
  1167.       .globl log1p
  1168. --- 1,11 ----
  1169. ! //
  1170. ! // This file is part of the alternative 80386 math library and is
  1171. ! // covered by the GNU General Public license with my modification
  1172. ! // as noted in the README file that accompanied this file.
  1173. ! //
  1174. ! // Copyright 1990 G. Geers
  1175. ! //
  1176. ! //
  1177.   
  1178.       .align 4
  1179.       .globl log1p
  1180. ***************
  1181. *** 16,22 ****
  1182.       fldln2
  1183.       fldl 8(%ebp)
  1184.       fld1
  1185. !     faddp
  1186.       fyl2x
  1187.   
  1188.       leave
  1189. --- 16,22 ----
  1190.       fldln2
  1191.       fldl 8(%ebp)
  1192.       fld1
  1193. !     faddp %st, %st(1)
  1194.       fyl2x
  1195.   
  1196.       leave
  1197. *** ../log2.s    Sun Dec  9 18:13:56 1990
  1198. --- log2.s    Mon Dec 17 14:39:30 1990
  1199. ***************
  1200. *** 1,11 ****
  1201. ! /*
  1202. ! ** This file is part of the alternative 80386 math library and is
  1203. ! ** covered by the GNU General Public license with my modification
  1204. ! ** as noted in the README file that accompanied this file.
  1205. ! **
  1206. ! ** Copyright 1990 G. Geers
  1207. ! **
  1208. ! */
  1209.   
  1210.       .align 4
  1211.       .globl log2
  1212. --- 1,11 ----
  1213. ! //
  1214. ! // This file is part of the alternative 80386 math library and is
  1215. ! // covered by the GNU General Public license with my modification
  1216. ! // as noted in the README file that accompanied this file.
  1217. ! //
  1218. ! // Copyright 1990 G. Geers
  1219. ! //
  1220. ! //
  1221.   
  1222.       .align 4
  1223.       .globl log2
  1224. *** ../logb.s    Sun Dec  9 18:13:56 1990
  1225. --- logb.s    Mon Dec 17 14:42:35 1990
  1226. ***************
  1227. *** 1,11 ****
  1228. ! /*
  1229. ! ** This file is part of the alternative 80386 math library and is
  1230. ! ** covered by the GNU General Public license with my modification
  1231. ! ** as noted in the README file that accompanied this file.
  1232. ! **
  1233. ! ** Copyright 1990 G. Geers
  1234. ! **
  1235. ! */
  1236.   
  1237.       .align 4
  1238.       .globl logb
  1239. --- 1,11 ----
  1240. ! //
  1241. ! // This file is part of the alternative 80386 math library and is
  1242. ! // covered by the GNU General Public license with my modification
  1243. ! // as noted in the README file that accompanied this file.
  1244. ! //
  1245. ! // Copyright 1990 G. Geers
  1246. ! //
  1247. ! //
  1248.   
  1249.       .align 4
  1250.       .globl logb
  1251. ***************
  1252. *** 15,21 ****
  1253.       
  1254.       fldl 8(%ebp)
  1255.       fxtract
  1256. !     fldl %st(1)
  1257.   
  1258.       leave
  1259.       ret
  1260. --- 15,21 ----
  1261.       
  1262.       fldl 8(%ebp)
  1263.       fxtract
  1264. !     fld %st(1)
  1265.   
  1266.       leave
  1267.       ret
  1268. *** ../pow.s    Sun Dec  9 18:13:56 1990
  1269. --- pow.s    Tue Dec 18 08:12:52 1990
  1270. ***************
  1271. *** 1,161 ****
  1272. ! /*
  1273. ! ** This file is part of the alternative 80386 math library and is
  1274. ! ** covered by the GNU General Public license with my modification
  1275. ! ** as noted in the README file that accompanied this file.
  1276. ! **
  1277. ! ** This file started life as a C implemenation of pow, it then evolved
  1278. ! ** into an embeded asm version (with some C) and finally, all assembler.
  1279. ! ** It's actually hacked assembler produced by gcc.
  1280. ! **
  1281. ! ** Copyright 1990 G. Geers
  1282. ! **
  1283. ! */
  1284.   
  1285. ! .text
  1286. ! .LC0:
  1287. !     .ascii "pow: DOMAIN error\12\0"
  1288. !     .align 4
  1289. ! .LC1:
  1290. !     .double 0d0.00000000000000000000e+00
  1291. !     .align 4
  1292. ! .LC2:
  1293. !     .double 0d1.00000000000000000000e+00
  1294. !     .align 4
  1295. ! .globl pow
  1296.   pow:
  1297. !     pushl %ebp
  1298. !     movl %esp,%ebp
  1299. !     subl $28,%esp
  1300. !     pushl %edi
  1301. !     pushl %esi
  1302. !     pushl %ebx
  1303. !     movl 16(%ebp),%esi
  1304. !     movl 20(%ebp),%edi
  1305. !     movl $0,-4(%ebp)
  1306. !     movl $1,%ebx
  1307. !     fldl 8(%ebp)
  1308. !     ftst
  1309. !     fstp %st(0)
  1310. !     fnstsw %ax
  1311. !     sahf
  1312. !     jae .L2
  1313. !     movl %ebx,-4(%ebp)
  1314. !     pushl %edi
  1315. !     pushl %esi
  1316. ! /**/
  1317. !     fldl 16(%ebp)
  1318. ! 
  1319. !     fstcw -8(%ebp)
  1320. !     fstcw -12(%ebp)
  1321. !     orw $0x0400, -12(%ebp)
  1322.       fldcw -12(%ebp)
  1323. ! 
  1324. !     frndint
  1325. !     fldcw -8(%ebp)
  1326. ! /**/
  1327. !     fstpl -16(%ebp)
  1328. !     pushl %edi
  1329. !     pushl %esi
  1330. !     fldl (%esp) 
  1331. !     addl $8,%esp
  1332. !     fsubl -16(%ebp)
  1333. !     fstpl -16(%ebp)
  1334. !     addl $8,%esp
  1335. !     fldl -16(%ebp)
  1336. !     ftst
  1337. !     fstp %st(0)
  1338. !     fnstsw %ax
  1339. !     sahf
  1340. !     je .L3
  1341. !     movl $33,errno
  1342. !     pushl $.LC0
  1343. !     pushl $_iob+32
  1344. !     call fprintf
  1345. !     fldl .LC1
  1346. !     jmp .L1
  1347. !     .align 4
  1348. ! .L3:
  1349. !     pushl %edi
  1350. !     pushl %esi
  1351. ! /**/
  1352.       fldl    16(%ebp)
  1353. !     fistpl    -8(%ebp)
  1354. !     movl    -8(%ebp),%eax
  1355. ! /**/
  1356. !     testl %eax,%eax
  1357. !     jge .L5
  1358. !     incl %eax
  1359. ! .L5:
  1360. !     andl $-2,%eax
  1361. !     movl -8(%ebp),%ecx
  1362. !     subl %eax,%ecx
  1363. !     movl %ecx,%eax
  1364. !     testl %eax,%eax
  1365. !     je .L2
  1366. !     xorl %ebx,%ebx
  1367. ! .L2:
  1368. !     fldl 8(%ebp)
  1369. !     ftst
  1370. !     fstp %st(0)
  1371. !     fnstsw %ax
  1372. !     sahf
  1373. !     jne .L6
  1374. !     pushl %edi
  1375. !     pushl %esi
  1376. !     fldl (%esp) 
  1377. !     addl $8,%esp
  1378. !     ftst
  1379. !     fstp %st(0)
  1380. !     fnstsw %ax
  1381. !     sahf
  1382. !     je .L6
  1383. !     fldl .LC1
  1384. !     jmp .L1
  1385. !     .align 4
  1386. ! .L6:
  1387. !     pushl %edi
  1388. !     pushl %esi
  1389. !     fldl (%esp) 
  1390. !     addl $8,%esp
  1391. !     ftst
  1392. !     fstp %st(0)
  1393. !     fnstsw %ax
  1394. !     sahf
  1395. !     jne .L8
  1396. !     fldl .LC2
  1397. !     jmp .L1
  1398. !     .align 4
  1399. ! .L8:
  1400. ! /APP
  1401. !     fldl 16(%ebp)
  1402. !     fldl 8(%ebp)
  1403. ! /NO_APP
  1404. !     cmpl $0,-4(%ebp)
  1405. !     je .L10
  1406. ! /APP
  1407. !     fchs
  1408. ! /NO_APP
  1409. ! .L10:
  1410. ! /APP
  1411. !     fyl2x
  1412. !     fstl %st(1)
  1413. !     frndint
  1414. !     fstl %st(2)
  1415. !     fsubrp
  1416. !     f2xm1
  1417. !     fld1
  1418. !     faddp
  1419. !     fscale
  1420. ! /NO_APP
  1421. !     testl %ebx,%ebx
  1422. !     jne .L1
  1423. ! /APP
  1424. !     fchs
  1425. ! /NO_APP
  1426. ! .L1:
  1427. !     leal -28(%ebp),%esp
  1428. !     popl %ebx
  1429. !     popl %esi
  1430. !     popl %edi
  1431. !     leave
  1432. !     ret
  1433. --- 1,190 ----
  1434. ! //
  1435. ! // This file is part of the alternative 80386 math library and is
  1436. ! // covered by the GNU General Public license with my modification
  1437. ! // as noted in the README file that accompanied this file.
  1438. ! //
  1439. ! // This file started life as a C implemenation of pow, it then evolved
  1440. ! // into an embeded asm version (with some C) and finally, all assembler.
  1441. ! // It's actually hacked assembler produced by gcc.
  1442. ! //
  1443. ! // Copyright 1990 G. Geers
  1444. ! //
  1445. ! //
  1446.   
  1447. !     .data
  1448. !     .align    4
  1449. ! .L92:
  1450. !     .double    0.0000000000000000000000e+00
  1451. !     .data
  1452. !     .align    4
  1453. ! .L94:
  1454. !     .double    0.0000000000000000000000e+00
  1455. !     .data
  1456. !     .align    4
  1457. ! .L96:
  1458. !     .double    0.0000000000000000000000e+00
  1459. !     .data
  1460. !     .align    4
  1461. ! .L99:
  1462. !     .double    0.0000000000000000000000e+00
  1463. !     .align    4
  1464. ! .L100:
  1465. !     .double    0.0000000000000000000000e+00
  1466. !     .data
  1467. !     .align    4
  1468. ! .L101:
  1469. !     .double    0.0000000000000000000000e+00
  1470. !     .data
  1471. !     .align    4
  1472. ! .L103:
  1473. !     .double    0.0000000000000000000000e+00
  1474. !     .data
  1475. !     .align    4
  1476. ! .L104:
  1477. !     .double    1.0000000000000000000000e+00
  1478. !     .data
  1479. !     .long    __fltused
  1480. !     .text
  1481. !     .align    4
  1482. !     .def    pow;    .val    pow;    .scl    2;    .type    047;    .endef
  1483. !     .globl    pow
  1484.   pow:
  1485. !     pushl    %ebp
  1486. !     movl    %esp,%ebp
  1487. !     subl    $16,%esp
  1488. !     movl    $0,-4(%ebp)
  1489. !     movl    $1,-8(%ebp)
  1490. !     fldl    8(%ebp)
  1491. !     fcompl    .L92
  1492. !     fstsw    %ax
  1493. !     sahf    
  1494. !     jae    .L91
  1495. !     movl    $1,-4(%ebp)
  1496. ! //
  1497. !     fldl 16(%ebp)        
  1498. !     fstcw -12(%ebp)    
  1499. !     fstcw -16(%ebp)
  1500. !     orw $0x0400, -16(%ebp)
  1501. !     fldcw -16(%ebp)
  1502. !     frndint        
  1503.       fldcw -12(%ebp)
  1504. ! //
  1505. !     addl    $8,%esp
  1506. !     fsubrl    16(%ebp)
  1507. !     fcompl    .L94
  1508. !     fstsw    %ax
  1509. !     sahf    
  1510. !     je    .L93
  1511. !     movl    $33,errno
  1512. !     pushl    $.L95
  1513. !     pushl    $_iob+32
  1514. !     call    fprintf
  1515. !     addl    $8,%esp
  1516. !     fldl    .L96
  1517. ! .L106:
  1518. ! .L88:
  1519. !     leave    
  1520. !     ret    
  1521. !     .align    4
  1522. ! .L93:
  1523. !     fstcw    -12(%ebp)
  1524. !     movw    -12(%ebp),%ax
  1525. !     orw    $0x0c00,%ax
  1526. !     movw    %ax,-10(%ebp)
  1527. !     fldcw    -10(%ebp)
  1528.       fldl    16(%ebp)
  1529. !     fistpl    -16(%ebp)
  1530. !     fldcw    -12(%ebp)
  1531. !     movl    -16(%ebp),%eax
  1532. !     movl    $2,%ecx
  1533. !     cltd    
  1534. !     idivl    %ecx
  1535. !     testl    %edx,%edx
  1536. !     je    .L97
  1537. !     movl    $0,-8(%ebp)
  1538. ! .L97:
  1539. ! .L91:
  1540. !     fldl    8(%ebp)
  1541. !     fcompl    .L100
  1542. !     fstsw    %ax
  1543. !     sahf    
  1544. !     jne    .L98
  1545. !     fldl    16(%ebp)
  1546. !     fcompl    .L99
  1547. !     fstsw    %ax
  1548. !     sahf    
  1549. !     je    .L98
  1550. !     fldl    .L101
  1551. !     leave    
  1552. !     ret    
  1553. !     .align    4
  1554. ! .L98:
  1555. !     fldl    16(%ebp)
  1556. !     fcompl    .L103
  1557. !     fstsw    %ax
  1558. !     sahf    
  1559. !     jne    .L102
  1560. !     fldl    .L104
  1561. !     leave    
  1562. !     ret    
  1563. !     .align    4
  1564. ! .L102:
  1565. ! /ASM
  1566. ! fldl 16(%ebp)
  1567. ! /ASMEND0
  1568. ! /ASM
  1569. ! fldl 8(%ebp)
  1570. ! /ASMEND1
  1571. !     cmpl    $0,-4(%ebp)
  1572. !     je    .L105
  1573. ! /ASM
  1574. ! fchs
  1575. ! /ASMEND2
  1576. ! .L105:
  1577. ! /ASM
  1578. ! fyl2x
  1579. ! /ASMEND3
  1580. ! /ASM
  1581. ! fst %st(1)
  1582. ! /ASMEND4
  1583. ! /ASM
  1584. ! frndint
  1585. ! /ASMEND5
  1586. ! /ASM
  1587. ! fst %st(2)
  1588. ! /ASMEND6
  1589. ! /ASM
  1590. ! fsubr %st(1), %st
  1591. ! /ASMEND7
  1592. ! /ASM
  1593. ! f2xm1
  1594. ! /ASMEND8
  1595. ! /ASM
  1596. ! fld1
  1597. ! /ASMEND9
  1598. ! /ASM
  1599. ! faddp %st, %st(1)
  1600. ! /ASMEND10
  1601. ! /ASM
  1602. ! fld %st(2)
  1603. ! /ASMEND11
  1604. ! /ASM
  1605. ! fstp %st(2)
  1606. ! /ASMEND12
  1607. ! /ASM
  1608. ! fscale
  1609. ! /ASMEND13
  1610. !     cmpl    $0,-8(%ebp)
  1611. !     jne    .L106
  1612. ! /ASM
  1613. ! fchs
  1614. ! /ASMEND14
  1615. !     leave    
  1616. !     ret    
  1617. !     .align    4
  1618. !     .def    pow;    .val    .;    .scl    -1;    .endef
  1619. !     .data
  1620. ! .L95:
  1621. !     .byte    0x70,0x6f,0x77,0x3a,0x20,0x44,0x4f,0x4d,0x41,0x49
  1622. !     .byte    0x4e,0x20,0x45,0x52,0x52,0x4f,0x52,0x0a,0x00
  1623. !     .text
  1624. *** ../rint.s    Sun Dec  9 18:13:56 1990
  1625. --- rint.s    Mon Dec 17 14:53:52 1990
  1626. ***************
  1627. *** 1,11 ****
  1628. ! /*
  1629. ! ** This file is part of the alternative 80386 math library and is
  1630. ! ** covered by the GNU General Public license with my modification
  1631. ! ** as noted in the README file that accompanied this file.
  1632. ! **
  1633. ! ** Copyright 1990 G. Geers
  1634. ! **
  1635. ! */
  1636.   
  1637.       .align 4
  1638.       .globl rint
  1639. --- 1,11 ----
  1640. ! //
  1641. ! // This file is part of the alternative 80386 math library and is
  1642. ! // covered by the GNU General Public license with my modification
  1643. ! // as noted in the README file that accompanied this file.
  1644. ! //
  1645. ! // Copyright 1990 G. Geers
  1646. ! //
  1647. ! //
  1648.   
  1649.       .align 4
  1650.       .globl rint
  1651. *** ../scalb.s    Thu Dec 13 13:55:10 1990
  1652. --- scalb.s    Mon Dec 17 14:54:21 1990
  1653. ***************
  1654. *** 1,11 ****
  1655. ! /*
  1656. ! ** This file is part of the alternative 80386 math library and is
  1657. ! ** covered by the GNU General Public license with my modification
  1658. ! ** as noted in the README file that accompanied this file.
  1659. ! **
  1660. ! ** Copyright 1990 G. Geers
  1661. ! **
  1662. ! */
  1663.   
  1664.       .align 4
  1665.       .globl scalb
  1666. --- 1,11 ----
  1667. ! //
  1668. ! // This file is part of the alternative 80386 math library and is
  1669. ! // covered by the GNU General Public license with my modification
  1670. ! // as noted in the README file that accompanied this file.
  1671. ! //
  1672. ! // Copyright 1990 G. Geers
  1673. ! //
  1674. ! //
  1675.   
  1676.       .align 4
  1677.       .globl scalb
  1678. *** ../setcont.s    Sun Dec  9 18:13:57 1990
  1679. --- setcont.s    Mon Dec 17 14:54:38 1990
  1680. ***************
  1681. *** 1,11 ****
  1682. ! /*
  1683. ! ** This file is part of the alternative 80386 math library and is
  1684. ! ** covered by the GNU General Public license with my modification
  1685. ! ** as noted in the README file that accompanied this file.
  1686. ! **
  1687. ! ** Copyright 1990 G. Geers
  1688. ! **
  1689. ! */
  1690.   
  1691.       .align 4
  1692.       .globl setcont
  1693. --- 1,11 ----
  1694. ! //
  1695. ! // This file is part of the alternative 80386 math library and is
  1696. ! // covered by the GNU General Public license with my modification
  1697. ! // as noted in the README file that accompanied this file.
  1698. ! //
  1699. ! // Copyright 1990 G. Geers
  1700. ! //
  1701. ! //
  1702.   
  1703.       .align 4
  1704.       .globl setcont
  1705. *** ../setinternal.s    Sun Dec  9 18:13:57 1990
  1706. --- setinternal.s    Mon Dec 17 14:54:47 1990
  1707. ***************
  1708. *** 1,11 ****
  1709. ! /*
  1710. ! ** This file is part of the alternative 80386 math library and is
  1711. ! ** covered by the GNU General Public license with my modification
  1712. ! ** as noted in the README file that accompanied this file.
  1713. ! **
  1714. ! ** Copyright 1990 G. Geers
  1715. ! **
  1716. ! */
  1717.   
  1718.       .align 4
  1719.       .globl setinternal
  1720. --- 1,11 ----
  1721. ! //
  1722. ! // This file is part of the alternative 80386 math library and is
  1723. ! // covered by the GNU General Public license with my modification
  1724. ! // as noted in the README file that accompanied this file.
  1725. ! //
  1726. ! // Copyright 1990 G. Geers
  1727. ! //
  1728. ! //
  1729.   
  1730.       .align 4
  1731.       .globl setinternal
  1732. *** ../sin.s    Sun Dec  9 18:13:57 1990
  1733. --- sin.s    Mon Dec 17 14:54:58 1990
  1734. ***************
  1735. *** 1,11 ****
  1736. ! /*
  1737. ! ** This file is part of the alternative 80386 math library and is
  1738. ! ** covered by the GNU General Public license with my modification
  1739. ! ** as noted in the README file that accompanied this file.
  1740. ! **
  1741. ! ** Copyright 1990 G. Geers
  1742. ! **
  1743. ! */
  1744.   
  1745.       .align 4
  1746.       .globl sin
  1747. --- 1,11 ----
  1748. ! //
  1749. ! // This file is part of the alternative 80386 math library and is
  1750. ! // covered by the GNU General Public license with my modification
  1751. ! // as noted in the README file that accompanied this file.
  1752. ! //
  1753. ! // Copyright 1990 G. Geers
  1754. ! //
  1755. ! //
  1756.   
  1757.       .align 4
  1758.       .globl sin
  1759. *** ../sinh.s    Sun Dec 16 08:51:42 1990
  1760. --- sinh.s    Tue Dec 18 06:53:16 1990
  1761. ***************
  1762. *** 1,15 ****
  1763. ! /*
  1764. ! ** This file is part of the alternative 80386 math library and is
  1765. ! ** covered by the GNU General Public license with my modification
  1766. ! ** as noted in the README file that accompanied this file.
  1767. ! **
  1768. ! ** Copyright 1990 G. Geers
  1769. ! **
  1770. ! ** This file started life as a C program but has been massively hacked.
  1771. ! **
  1772. ! ** The coefficients are from Hart, et.al. via Berkeley
  1773. ! **
  1774. ! */
  1775.   
  1776.   .data
  1777.       .align 4
  1778. --- 1,15 ----
  1779. ! //
  1780. ! // This file is part of the alternative 80386 math library and is
  1781. ! // covered by the GNU General Public license with my modification
  1782. ! // as noted in the README file that accompanied this file.
  1783. ! //
  1784. ! // Copyright 1990 G. Geers
  1785. ! //
  1786. ! // This file started life as a C program but has been massively hacked.
  1787. ! //
  1788. ! // The coefficients are from Hart, et.al. via Berkeley
  1789. ! //
  1790. ! //
  1791.   
  1792.   .data
  1793.       .align 4
  1794. ***************
  1795. *** 71,87 ****
  1796.       jbe .L3
  1797.       fldl -8(%ebp)
  1798.       fldl2e
  1799. !     fmulp
  1800. !     fstl %st(1)
  1801.       frndint
  1802. !     fstl %st(2)
  1803. !     fsubrp
  1804.       f2xm1
  1805.       fld1
  1806. !     faddp
  1807.       fscale
  1808.       fldl .LC1
  1809. !     fmulp
  1810.       testl %edx,%edx
  1811.       jg .L7
  1812.       fchs
  1813. --- 71,87 ----
  1814.       jbe .L3
  1815.       fldl -8(%ebp)
  1816.       fldl2e
  1817. !     fmulp %st, %st(1)
  1818. !     fst %st(1)
  1819.       frndint
  1820. !     fst %st(2)
  1821. !     fsubrp %st, %st(1)
  1822.       f2xm1
  1823.       fld1
  1824. !     faddp %st, %st(1)
  1825.       fscale
  1826.       fldl .LC1
  1827. !     fmulp %st, %st(1)
  1828.       testl %edx,%edx
  1829.       jg .L7
  1830.       fchs
  1831. ***************
  1832. *** 97,117 ****
  1833.       jbe .L6
  1834.       fldl 8(%ebp)
  1835.       fldl2e
  1836. !     fmulp
  1837. !     fstl %st(1)
  1838.       frndint
  1839. !     fstl %st(2)
  1840. !     fsubrp
  1841.       f2xm1
  1842.       fld1
  1843. !     faddp
  1844.       fscale
  1845.       fst %st(1)
  1846.       fld1
  1847. !     fdivp
  1848. !     fsubrp
  1849.       fldl .LC1
  1850. !     fmulp
  1851.       leave
  1852.       ret
  1853.   .L6:
  1854. --- 97,117 ----
  1855.       jbe .L6
  1856.       fldl 8(%ebp)
  1857.       fldl2e
  1858. !     fmulp %st, %st(1)
  1859. !     fst %st(1)
  1860.       frndint
  1861. !     fst %st(2)
  1862. !     fsubrp %st, %st(1)
  1863.       f2xm1
  1864.       fld1
  1865. !     faddp %st, %st(1)
  1866.       fscale
  1867.       fst %st(1)
  1868.       fld1
  1869. !     fdivp %st, %st(1)
  1870. !     fsubrp %st, %st(1)
  1871.       fldl .LC1
  1872. !     fmulp %st, %st(1)
  1873.       leave
  1874.       ret
  1875.   .L6:
  1876. *** ../sqrt.s    Sun Dec  9 18:13:57 1990
  1877. --- sqrt.s    Mon Dec 17 14:58:28 1990
  1878. ***************
  1879. *** 1,12 ****
  1880. ! /*
  1881. ! ** This file is part of the alternative 80386 math library and is
  1882. ! ** covered by the GNU General Public license with my modification
  1883. ! ** as noted in the README file that accompanied this file.
  1884. ! **
  1885. ! ** Copyright 1990 G. Geers
  1886. ! **
  1887. ! ** sqrt in the prevailing precision
  1888. ! */
  1889.   
  1890.       .align 4
  1891.       .globl sqrt
  1892. --- 1,12 ----
  1893. ! //
  1894. ! // This file is part of the alternative 80386 math library and is
  1895. ! // covered by the GNU General Public license with my modification
  1896. ! // as noted in the README file that accompanied this file.
  1897. ! //
  1898. ! // Copyright 1990 G. Geers
  1899. ! //
  1900. ! // sqrt in the prevailing precision
  1901. ! //
  1902.   
  1903.       .align 4
  1904.       .globl sqrt
  1905. *** ../sqrtp.s    Sun Dec  9 18:13:57 1990
  1906. --- sqrtp.s    Mon Dec 17 14:58:52 1990
  1907. ***************
  1908. *** 1,12 ****
  1909. ! /*
  1910. ! ** This file is part of the alternative 80386 math library and is
  1911. ! ** covered by the GNU General Public license with my modification
  1912. ! ** as noted in the README file that accompanied this file.
  1913. ! **
  1914. ! ** Copyright 1990 G. Geers
  1915. ! **
  1916. ! ** sqrt in 64 bit precision always
  1917. ! */
  1918.   
  1919.       .align 4
  1920.       .globl sqrtp
  1921. --- 1,12 ----
  1922. ! //
  1923. ! // This file is part of the alternative 80386 math library and is
  1924. ! // covered by the GNU General Public license with my modification
  1925. ! // as noted in the README file that accompanied this file.
  1926. ! //
  1927. ! // Copyright 1990 G. Geers
  1928. ! //
  1929. ! // sqrt in 64 bit precision always
  1930. ! //
  1931.   
  1932.       .align 4
  1933.       .globl sqrtp
  1934. *** ../tan.s    Sun Dec  9 18:13:57 1990
  1935. --- tan.s    Mon Dec 17 14:59:55 1990
  1936. ***************
  1937. *** 1,11 ****
  1938. ! /*
  1939. ! ** This file is part of the alternative 80386 math library and is
  1940. ! ** covered by the GNU General Public license with my modification
  1941. ! ** as noted in the README file that accompanied this file.
  1942. ! **
  1943. ! ** Copyright 1990 G. Geers
  1944. ! **
  1945. ! */
  1946.   
  1947.       .align 4
  1948.       .globl tan
  1949. --- 1,11 ----
  1950. ! //
  1951. ! // This file is part of the alternative 80386 math library and is
  1952. ! // covered by the GNU General Public license with my modification
  1953. ! // as noted in the README file that accompanied this file.
  1954. ! //
  1955. ! // Copyright 1990 G. Geers
  1956. ! //
  1957. ! //
  1958.   
  1959.       .align 4
  1960.       .globl tan
  1961. *** ../tanh.s    Sun Dec  9 18:13:58 1990
  1962. --- tanh.s    Tue Dec 18 06:56:49 1990
  1963. ***************
  1964. *** 1,11 ****
  1965. ! /*
  1966. ! ** This file is part of the alternative 80386 math library and is
  1967. ! ** covered by the GNU General Public license with my modification
  1968. ! ** as noted in the README file that accompanied this file.
  1969. ! **
  1970. ! ** Copyright 1990 G. Geers
  1971. ! **
  1972. ! */
  1973.   
  1974.       .align 4
  1975.       .globl tanh
  1976. --- 1,11 ----
  1977. ! //
  1978. ! // This file is part of the alternative 80386 math library and is
  1979. ! // covered by the GNU General Public license with my modification
  1980. ! // as noted in the README file that accompanied this file.
  1981. ! //
  1982. ! // Copyright 1990 G. Geers
  1983. ! //
  1984. ! //
  1985.   
  1986.       .align 4
  1987.       .globl tanh
  1988. ***************
  1989. *** 16,39 ****
  1990.   
  1991.       fldl 8(%ebp)
  1992.       fldl2e
  1993. !     fmulp
  1994. !     fstl %st(1)
  1995.       frndint
  1996. !     fstl %st(2)
  1997. !     fsubrp
  1998.       f2xm1
  1999.       fld1
  2000. !     faddp
  2001.       fscale
  2002. !     fstl %st(1)
  2003.       fstl -16(%ebp)
  2004.   
  2005.       fld1
  2006. !     fdivp
  2007.   
  2008. !     fsubr
  2009.       faddl -16(%ebp)
  2010. !     fdivrp
  2011.   
  2012.       leave
  2013.       ret
  2014. --- 16,39 ----
  2015.   
  2016.       fldl 8(%ebp)
  2017.       fldl2e
  2018. !     fmulp %st, %st(1)
  2019. !     fst %st(1)
  2020.       frndint
  2021. !     fst %st(2)
  2022. !     fsubrp %st, %st(1)
  2023.       f2xm1
  2024.       fld1
  2025. !     faddp %st, %st(1)
  2026.       fscale
  2027. !     fst %st(1)
  2028.       fstl -16(%ebp)
  2029.   
  2030.       fld1
  2031. !     fdivp %st, %st(1)
  2032.   
  2033. !     fsubr %st(1), %st
  2034.       faddl -16(%ebp)
  2035. !     fdivrp %st, %st(1)
  2036.   
  2037.       leave
  2038.       ret
  2039. *** ../nextafter.c    Mon Dec 17 12:00:23 1990
  2040. --- nextafter.c    Tue Dec 18 10:03:34 1990
  2041. ***************
  2042. *** 64,80 ****
  2043.               asm("fldl .Lulpup");
  2044.   
  2045.           asm("fldl -16(%ebp)");
  2046. !         asm("fmulp");
  2047.   
  2048.           if (y > x) {
  2049.               asm("fldl 8(%ebp)");
  2050. !             asm("faddp");
  2051.               asm("leave");
  2052.               asm("ret");
  2053.           }
  2054.           if (y < x) {
  2055.               asm("fldl 8(%ebp)");
  2056. !             asm("fsubp");
  2057.               asm("leave");
  2058.               asm("ret");
  2059.           }
  2060. --- 64,80 ----
  2061.               asm("fldl .Lulpup");
  2062.   
  2063.           asm("fldl -16(%ebp)");
  2064. !         asm("fmulp %st, %st(1)");
  2065.   
  2066.           if (y > x) {
  2067.               asm("fldl 8(%ebp)");
  2068. !             asm("faddp %st, %st(1)");
  2069.               asm("leave");
  2070.               asm("ret");
  2071.           }
  2072.           if (y < x) {
  2073.               asm("fldl 8(%ebp)");
  2074. !             asm("fsubp %st, %st(1)");
  2075.               asm("leave");
  2076.               asm("ret");
  2077.           }
  2078.