home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / gnustuff / tos / updates / update26.zoo / lib / diffc
Encoding:
Text File  |  1992-11-07  |  23.8 KB  |  840 lines
  1. ===================================================================
  2. RCS file: /net/acae127/home/bammi/etc/src/master/atari/lib/Changelo,v
  3. retrieving revision 1.81
  4. diff -c -r1.81 Changelo
  5. *** 1.81    1992/10/09 20:32:44
  6. --- Changelo    1992/11/08 00:03:26
  7. ***************
  8. *** 3361,3363 ****
  9. --- 3361,3421 ----
  10.       may be picked istead of the inline asm version.
  11.   
  12.   ---------------------------- Patchlevel 84 ---------------------------
  13. + 
  14. + doprnt.c:: ++jrb
  15. +     Revert out michaels 15 sig digit hack. causing too many problems
  16. +     (michal jaegermann reports all kinds of failures from gawk, mawk).
  17. +     Revert out DBL_EPSILON hack too..
  18. +     Awaitings michals advise on how to fix mjr's problems...
  19. + 
  20. + _addsub*:: Olaff (flebbe@tat.physik.uni-tuebingen.de)
  21. +     To summarize the changes in both double and float arithmetic:
  22. + 
  23. +     * The "sticky" byte d2.b is now initalized properly. In the former
  24. +     version it was a deterministic random generator.
  25. + 
  26. +     * The rounding is now computed correctly. The rounding bits reside in
  27. +     d3.b.
  28. + 
  29. +     * Due to cancellation effects one get one extra bit. So a conditional
  30. +     jump had to be modified.
  31. + 
  32. +     One extra bug was included in the single precision arithmetic. 
  33. + 
  34. +     * When the routine discovered that shifting can be done by swapping, it
  35. +     shifted the result one  additional digit. 
  36. + 
  37. + _norm*:: Olaff (flebbe@tat.physik.uni-tuebingen.de)
  38. +     round up towards even.
  39. + 
  40. + bcopy.s, bzero.cpp: andreas
  41. +     dont use a4 (for -mbaserel)
  42. + 
  43. + linea.h:: ++jrb
  44. +     linea2() really needs to declare its output (i know its implicit, but
  45. +          unless you put it in the output list, g++ thinks linea2() does
  46. +     not output anthing, and complains on its usage).
  47. + 
  48. + doprnt.c:: ++jrb
  49. +     change condition for unreasonable precision for floats. (it should not
  50. +     have been MAXFRACT only as we do zero padding on the right).
  51. + 
  52. + regexp.c :: ++jrb
  53. +     - include <sys/types.h> instread of <types.h>
  54. +     - fix cast in malloc from (unsigned)  to (size_t) as it should be.
  55. + 
  56. + regexp.c:: ++jrb
  57. +     in regmatch(), there was over-enthusuatic conversion of
  58. +     int to size_t that caused regular expressions to break.
  59. +     please be careful!
  60. + 
  61. +     in the PLUS/STAR case, `no' needs to be a signed entity, other
  62. +     wise the loop is useless.
  63. + 
  64. +     tregex in the library tests showed this up.
  65. + 
  66. + doprnt.c:: ++jrb
  67. +     constraint ("g") on the source operand was wrong for divu. source
  68. +     has to be  data addressable ("dmi" constrain should cover).
  69. + 
  70. + ---------------------------- Patchlevel 85 ---------------------------
  71. ===================================================================
  72. RCS file: /net/acae127/home/bammi/etc/src/master/atari/lib/PatchLev.h,v
  73. retrieving revision 1.60
  74. diff -c -r1.60 PatchLev.h
  75. *** 1.60    1992/10/09 20:32:44
  76. --- PatchLev.h    1992/11/08 00:03:31
  77. ***************
  78. *** 1,5 ****
  79.   
  80. ! #define    PatchLevel "84"
  81.   
  82.   /*
  83.    *
  84. --- 1,5 ----
  85.   
  86. ! #define    PatchLevel "85"
  87.   
  88.   /*
  89.    *
  90. ===================================================================
  91. RCS file: /net/acae127/home/bammi/etc/src/master/atari/lib/mincl,v
  92. retrieving revision 1.22
  93. diff -c -r1.22 mincl
  94. *** 1.22    1992/10/09 20:32:44
  95. --- mincl    1992/11/08 00:03:36
  96. ***************
  97. *** 10,16 ****
  98.           _umoddi3.o _negdi2.o _anddi3.o _iordi3.o _xordi3.o _lshrdi3.o \
  99.           _lshldi3.o _ashldi3.o _ashrdi3.o _one_cmpldi2.o _bdiv.o _cmpdi2.o \
  100.           _ucmpdi2.o _fixunsdfdi.o _fixdfdi.o _floatdidf.o \
  101. !     _fxussfsi.o
  102.   
  103.   GCC=     $(GLIB1) $(GLIB2) \
  104.       ldexp.o frexp.o modf.o alloca.o setjmp.o osbind.o\
  105. --- 10,16 ----
  106.           _umoddi3.o _negdi2.o _anddi3.o _iordi3.o _xordi3.o _lshrdi3.o \
  107.           _lshldi3.o _ashldi3.o _ashrdi3.o _one_cmpldi2.o _bdiv.o _cmpdi2.o \
  108.           _ucmpdi2.o _fixunsdfdi.o _fixdfdi.o _floatdidf.o \
  109. !     _fxussfsi.o _gccbcmp.o
  110.   
  111.   GCC=     $(GLIB1) $(GLIB2) \
  112.       ldexp.o frexp.o modf.o alloca.o setjmp.o osbind.o\
  113. ===================================================================
  114. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/_addsubd.cpp,v
  115. retrieving revision 1.2
  116. diff -c -r1.2 _addsubd.cpp
  117. *** 1.2    1992/10/09 20:35:29
  118. --- _addsubd.cpp    1992/11/06 23:02:09
  119. ***************
  120. *** 10,16 ****
  121. --- 10,30 ----
  122.   |
  123.   | written by Kai-Uwe Bloem (I5110401@dbstu1.bitnet).
  124.   | Based on a 80x86 floating point packet from comp.os.minix, written by P.Housel
  125. + | patched by Olaf Flebbe (flebbe@tat.physik.uni-tuebingen.de)
  126. + | 
  127. + | Revision 1.3.2 olaf 10-92 :
  128. + |  + increased comparson by one again. (Dont understand, but it works)
  129. + |  + corrected negation of rounding bits and mantissa
  130. + |     >enquire now detects correct IEEE precision
  131. + |     >paranoia now qualifies add/sub as correctly rounded
  132.   |
  133. + | Revision 1.3.1 olaf 10-92 :
  134. + |  + increased comparison of exponents by one.
  135. + |  + initialized sticky byte
  136. + |  + corrected handling of rounding bits
  137. + |     >paranoia now detects no SERIOUS DEFECTS any more
  138. + |     ** Patches need _normdf Rev 1.6.1 (or higher) **
  139. + |
  140.   | Revision 1.3, kub 01-90 :
  141.   | added support for denormalized numbers
  142.   |
  143. ***************
  144. *** 72,78 ****
  145.       bpl    1f
  146.       bchg    #31,d2
  147.   1:
  148. !     cmpw    #53,d1        | is u so much bigger that v is not
  149.       bge    7f        | significant ?
  150.   
  151.       movew    #10-1,d3    | shift u left up to 10 bits to minimize loss
  152. --- 86,92 ----
  153.       bpl    1f
  154.       bchg    #31,d2
  155.   1:
  156. !     cmpw    #55,d1        | is u so much bigger that v is not
  157.       bge    7f        | significant ?
  158.   
  159.       movew    #10-1,d3    | shift u left up to 10 bits to minimize loss
  160. ***************
  161. *** 83,88 ****
  162. --- 97,103 ----
  163.       subw    #1,d1        | done shifting altogether ?
  164.       dbeq    d3,2b        | loop if still can shift u.mant more
  165.       clrw    d3
  166. +     clrb    d2              | clear "sticky byte"
  167.   3:
  168.       cmpw    #16,d1        | see if fast rotate possible
  169.       blt    4f
  170. ***************
  171. *** 101,107 ****
  172.       lsrl    #1,d4        | shift v.mant right the rest of the way
  173.       roxrl    #1,d5        | to line it up with u.mant
  174.       orb    d3,d2        | set "sticky byte" if necessary
  175. !     roxrw    #1,d3        | shift into rounding bits
  176.   4:    dbra    d1,0b        | loop
  177.       andb    #1,d2        | see if "sticky bit" should be set
  178.       orb    d2,d3
  179. --- 116,122 ----
  180.       lsrl    #1,d4        | shift v.mant right the rest of the way
  181.       roxrl    #1,d5        | to line it up with u.mant
  182.       orb    d3,d2        | set "sticky byte" if necessary
  183. !     roxrb    #1,d3        | shift into rounding bits
  184.   4:    dbra    d1,0b        | loop
  185.       andb    #1,d2        | see if "sticky bit" should be set
  186.       orb    d2,d3
  187. ***************
  188. *** 110,116 ****
  189.       bpl    6f        | yes, no negate necessary
  190.   
  191.       negb    d3        | negate rounding bits and v.mant
  192. !     negl    d5
  193.       negxl    d4
  194.   6:
  195.       addl    d5,d7        | u.mant = u.mant + v.mant
  196. --- 125,131 ----
  197.       bpl    6f        | yes, no negate necessary
  198.   
  199.       negb    d3        | negate rounding bits and v.mant
  200. !     negxl    d5
  201.       negxl    d4
  202.   6:
  203.       addl    d5,d7        | u.mant = u.mant + v.mant
  204. ===================================================================
  205. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/_addsubs.cpp,v
  206. retrieving revision 1.2
  207. diff -c -r1.2 _addsubs.cpp
  208. *** 1.2    1992/10/09 20:35:29
  209. --- _addsubs.cpp    1992/11/06 23:02:09
  210. ***************
  211. *** 10,16 ****
  212. --- 10,31 ----
  213.   |
  214.   | written by Kai-Uwe Bloem (I5110401@dbstu1.bitnet).
  215.   | Based on a 80x86 floating point packet from comp.os.minix, written by P.Housel
  216. + | patched by Olaf Flebbe (flebbe@tat.physik.un-tuebingen.de)
  217.   |
  218. + | Revision 1.3.2 olaf 10-92 :
  219. + |  + increased comparson by one again. (Dont understand, but it works)
  220. + |  + corrected negation of rounding bits and mantissa
  221. + |     >enquire now detects correct IEEE precision
  222. + |     >paranoia now qualifies add/sub as correctly rounded
  223. + |
  224. + | Revision 1.3.1 olaf 10-92 :
  225. + |  + increased comparison of exponents by one.
  226. + |  + initialized sticky byte
  227. + |  + corrected handling of rounding bits
  228. + |  + corrected swapping of register halves
  229. + |     >paranoia now detects only one (obscure) SERIOUS DEFECT.
  230. + |     ** Patches need _normsf Rev 1.4.1 (or higher) **
  231. + |
  232.   | Revision 1.3, kub 01-90 :
  233.   | added support for denormalized numbers
  234.   |
  235. ***************
  236. *** 73,79 ****
  237.       bpl    1f
  238.       bchg    #31,d2
  239.   1:
  240. !     cmpw    #24,d1        | is u so much bigger that v is not
  241.       bge    7f        | significant ?
  242.   
  243.       movew    #7-1,d3        | shift u left up to 7 bits to minimize loss
  244. --- 88,94 ----
  245.       bpl    1f
  246.       bchg    #31,d2
  247.   1:
  248. !     cmpw    #26,d1        | is u so much bigger that v is not
  249.       bge    7f        | significant ?
  250.   
  251.       movew    #7-1,d3        | shift u left up to 7 bits to minimize loss
  252. ***************
  253. *** 83,88 ****
  254. --- 98,104 ----
  255.       subw    #1,d1        | done shifting altogether ?
  256.       dbeq    d3,2b        | loop if still can shift u.mant more
  257.       clrw    d3
  258. +     clrb    d2
  259.   
  260.       cmpw    #16,d1        | see if fast rotate possible
  261.       blt    4f
  262. ***************
  263. *** 94,103 ****
  264.       clrw    d4        | rotate by swapping register halfs
  265.       swap    d4
  266.       subw    #16,d1
  267.   0:
  268.       lsrl    #1,d4        | shift v.mant right the rest of the way
  269.       orb    d3,d2        | set "sticky byte" if necessary
  270. !     roxrw    #1,d3        | shift into rounding bits
  271.   4:    dbra    d1,0b        | loop
  272.       andb    #1,d2        | see if "sticky bit" should be set
  273.       orb    d2,d3
  274. --- 110,120 ----
  275.       clrw    d4        | rotate by swapping register halfs
  276.       swap    d4
  277.       subw    #16,d1
  278. +         bra     4f
  279.   0:
  280.       lsrl    #1,d4        | shift v.mant right the rest of the way
  281.       orb    d3,d2        | set "sticky byte" if necessary
  282. !     roxrb    #1,d3        | shift into rounding bits
  283.   4:    dbra    d1,0b        | loop
  284.       andb    #1,d2        | see if "sticky bit" should be set
  285.       orb    d2,d3
  286. ***************
  287. *** 106,112 ****
  288.       bpl    6f        | yes, no negate necessary
  289.   
  290.       negb    d3        | negate rounding bits and v.mant
  291. !     negl    d4
  292.   6:
  293.       addl    d4,d5        | u.mant = u.mant + v.mant
  294.       bcs    7f        | needn not negate
  295. --- 123,129 ----
  296.       bpl    6f        | yes, no negate necessary
  297.   
  298.       negb    d3        | negate rounding bits and v.mant
  299. !     negxl    d4
  300.   6:
  301.       addl    d4,d5        | u.mant = u.mant + v.mant
  302.       bcs    7f        | needn not negate
  303. ***************
  304. *** 114,120 ****
  305.       bpl    7f        | do not need to negate result
  306.   
  307.       negb    d3        | negate rounding bits and u.mant
  308. !     negl    d5
  309.       notl    d2        | switch sign
  310.   7:
  311.       movel    d5,d4        | move result for normalization
  312. --- 131,137 ----
  313.       bpl    7f        | do not need to negate result
  314.   
  315.       negb    d3        | negate rounding bits and u.mant
  316. !     negxl    d5
  317.       notl    d2        | switch sign
  318.   7:
  319.       movel    d5,d4        | move result for normalization
  320. ===================================================================
  321. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/_normdf.cpp,v
  322. retrieving revision 1.5
  323. diff -c -r1.5 _normdf.cpp
  324. *** 1.5    1992/10/09 20:35:29
  325. --- _normdf.cpp    1992/11/06 23:02:09
  326. ***************
  327. *** 7,13 ****
  328. --- 7,18 ----
  329.   |
  330.   | written by Kai-Uwe Bloem (I5110401@dbstu1.bitnet).
  331.   | Based on a 80x86 floating point packet from comp.os.minix, written by P.Housel
  332. + | patched by Olaf Flebbe (flebbe@tat.physik.uni-tuebingen.de)
  333.   |
  334. + | Revision 1.6.1 olaf 10-92:
  335. + |  + corrected rounding in tie case: round up, not down.
  336. + |    (needed for enquire 4.3)
  337. + |
  338.   | Revision 1.6, kub 04-90 :
  339.   | more robust handling exponent and sign handling for 32 bit integers. There
  340.   | are now overflow tests for 32 bit exponents, and bit 31 of the sign flag
  341. ***************
  342. *** 129,136 ****
  343.       bge    8f        | round down - no action neccessary
  344.       negb    d1
  345.       bvc    7f        | round up
  346. !     bclr    #0,d5        | tie case - round to even
  347. !     bra    8f
  348.   7:
  349.       clrl    d1        | zero rounding bits
  350.       addl    #1,d5
  351. --- 134,144 ----
  352.       bge    8f        | round down - no action neccessary
  353.       negb    d1
  354.       bvc    7f        | round up
  355. !         movew   d5,d1           | tie case - round to even 
  356. !                                 | dont need rounding bits any more
  357. !         andw    #1,d1           | check if even
  358. !         beq     8f              | mantissa is even - no action necessary
  359. !                                 | fall through
  360.   7:
  361.       clrl    d1        | zero rounding bits
  362.       addl    #1,d5
  363. ===================================================================
  364. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/_normsf.cpp,v
  365. retrieving revision 1.2
  366. diff -c -r1.2 _normsf.cpp
  367. *** 1.2    1992/10/09 20:35:29
  368. --- _normsf.cpp    1992/11/06 23:02:09
  369. ***************
  370. *** 7,13 ****
  371. --- 7,17 ----
  372.   |
  373.   | written by Kai-Uwe Bloem (I5110401@dbstu1.bitnet).
  374.   | Based on a 80x86 floating point packet from comp.os.minix, written by P.Housel
  375. + | patched by Olaf Flebbe (flebbe@tat.physik.uni-tuebingen.de)
  376.   |
  377. + | Revision 1.4.1 olaf 10-92:
  378. + |  + corrected rounding in tie case: round up, not down.
  379. + |    (needed for enquire 4.3)
  380.   |
  381.   | Revision 1.4, kub 03-90 :
  382.   | export ___normsf entry to C language. Rename the internal entry to a name
  383. ***************
  384. *** 86,93 ****
  385.       bge    6f        | round down - no action neccessary
  386.       negb    d1
  387.       bvc    5f        | round up
  388. !     bclr    #0,d4        | tie case - round to even
  389. !     bra    6f
  390.   5:
  391.       clrw    d1        | zero rounding bits
  392.       addl    #1,d4
  393. --- 90,101 ----
  394.       bge    6f        | round down - no action neccessary
  395.       negb    d1
  396.       bvc    5f        | round up
  397. !     movew   d4,d1           | tie case - round to even
  398. !                                 | dont need rounding bits any more
  399. !     andw    #1,d1           | check if even        
  400. !     beq    6f              | mantissa is even - no action necessary
  401. !                                 | fall through
  402. ! 
  403.   5:
  404.       clrw    d1        | zero rounding bits
  405.       addl    #1,d4
  406. ===================================================================
  407. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/bcopy.s,v
  408. retrieving revision 1.6
  409. diff -c -r1.6 bcopy.s
  410. *** 1.6    1992/06/01 01:54:10
  411. --- bcopy.s    1992/11/06 23:02:09
  412. ***************
  413. *** 56,79 ****
  414.       movb    d0,d1
  415.       lsrl    #8,d0        | number of 256 bytes blocks
  416.       jeq    less256
  417. !     movml    d3-d7/a2-a6,sp@-    | d2 is already saved
  418.   copy256:
  419. !     movml    a0@+,d2-d7/a2-a6    | copy 5*44+36=256 bytes
  420. !     movml    d2-d7/a2-a6,a1@
  421. !     movml    a0@+,d2-d7/a2-a6
  422. !     movml    d2-d7/a2-a6,a1@(44)
  423. !     movml    a0@+,d2-d7/a2-a6
  424. !     movml    d2-d7/a2-a6,a1@(88)
  425. !     movml    a0@+,d2-d7/a2-a6
  426. !     movml    d2-d7/a2-a6,a1@(132)
  427. !     movml    a0@+,d2-d7/a2-a6
  428. !     movml    d2-d7/a2-a6,a1@(176)
  429. !     movml    a0@+,d2-d7/a2-a4
  430. !     movml    d2-d7/a2-a4,a1@(220)
  431.       lea    a1@(256),a1        | increment dest, src is already
  432.       subql    #1,d0
  433.       jne    copy256         | next, please
  434. !     movml    sp@+,d3-d7/a2-a6
  435.   less256:            | copy 16 bytes blocks
  436.       movw    d1,d0
  437.       lsrw    #2,d0        | number of 4 bytes blocks
  438. --- 56,80 ----
  439.       movb    d0,d1
  440.       lsrl    #8,d0        | number of 256 bytes blocks
  441.       jeq    less256
  442. !     movml    d1/d3-d7/a2/a3/a5/a6,sp@-    | d2 is already saved
  443. !                     | exclude a4 because of -mbaserel
  444.   copy256:
  445. !     movml    a0@+,d1-d7/a2/a3/a5/a6    | copy 5*44+36=256 bytes
  446. !     movml    d1-d7/a2/a3/a5/a6,a1@
  447. !     movml    a0@+,d1-d7/a2/a3/a5/a6
  448. !     movml    d1-d7/a2/a3/a5/a6,a1@(44)
  449. !     movml    a0@+,d1-d7/a2/a3/a5/a6
  450. !     movml    d1-d7/a2/a3/a5/a6,a1@(88)
  451. !     movml    a0@+,d1-d7/a2/a3/a5/a6
  452. !     movml    d1-d7/a2/a3/a5/a6,a1@(132)
  453. !     movml    a0@+,d1-d7/a2/a3/a5/a6
  454. !     movml    d1-d7/a2/a3/a5/a6,a1@(176)
  455. !     movml    a0@+,d1-d7/a2-a3
  456. !     movml    d1-d7/a2-a3,a1@(220)
  457.       lea    a1@(256),a1        | increment dest, src is already
  458.       subql    #1,d0
  459.       jne    copy256         | next, please
  460. !     movml    sp@+,d1/d3-d7/a2/a3/a5/a6
  461.   less256:            | copy 16 bytes blocks
  462.       movw    d1,d0
  463.       lsrw    #2,d0        | number of 4 bytes blocks
  464. ***************
  465. *** 146,169 ****
  466.       movb    d0,d1
  467.       lsrl    #8,d0
  468.       jeq    less256_d
  469. !     movml    d3-d7/a2-a6,sp@-
  470.   copy256_d:
  471. !     movml    a0@(-44),d2-d7/a2-a6
  472. !     movml    d2-d7/a2-a6,a1@-
  473. !     movml    a0@(-88),d2-d7/a2-a6
  474. !     movml    d2-d7/a2-a6,a1@-
  475. !     movml    a0@(-132),d2-d7/a2-a6
  476. !     movml    d2-d7/a2-a6,a1@-
  477. !     movml    a0@(-176),d2-d7/a2-a6
  478. !     movml    d2-d7/a2-a6,a1@-
  479. !     movml    a0@(-220),d2-d7/a2-a6
  480. !     movml    d2-d7/a2-a6,a1@-
  481. !     movml    a0@(-256),d2-d7/a2-a4
  482. !     movml    d2-d7/a2-a4,a1@-
  483.       lea    a0@(-256),a0
  484.       subql    #1,d0
  485.       jne    copy256_d
  486. !     movml    sp@+,d3-d7/a2-a6
  487.   less256_d:
  488.       movw    d1,d0
  489.       lsrw    #2,d0
  490. --- 147,170 ----
  491.       movb    d0,d1
  492.       lsrl    #8,d0
  493.       jeq    less256_d
  494. !     movml    d1/d3-d7/a2/a3/a5/a6,sp@-
  495.   copy256_d:
  496. !     movml    a0@(-44),d1-d7/a2/a3/a5/a6
  497. !     movml    d1-d7/a2/a3/a5/a6,a1@-
  498. !     movml    a0@(-88),d1-d7/a2/a3/a5/a6
  499. !     movml    d1-d7/a2/a3/a5/a6,a1@-
  500. !     movml    a0@(-132),d1-d7/a2/a3/a5/a6
  501. !     movml    d1-d7/a2/a3/a5/a6,a1@-
  502. !     movml    a0@(-176),d1-d7/a2/a3/a5/a6
  503. !     movml    d1-d7/a2/a3/a5/a6,a1@-
  504. !     movml    a0@(-220),d1-d7/a2/a3/a5/a6
  505. !     movml    d1-d7/a2/a3/a5/a6,a1@-
  506. !     movml    a0@(-256),d1-d7/a2-a3
  507. !     movml    d1-d7/a2-a3,a1@-
  508.       lea    a0@(-256),a0
  509.       subql    #1,d0
  510.       jne    copy256_d
  511. !     movml    sp@+,d1/d3-d7/a2/a3/a5/a6
  512.   less256_d:
  513.       movw    d1,d0
  514.       lsrw    #2,d0
  515. ===================================================================
  516. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/bzero.cpp,v
  517. retrieving revision 1.2
  518. diff -c -r1.2 bzero.cpp
  519. *** 1.2    1992/06/01 01:54:10
  520. --- bzero.cpp    1992/11/06 23:02:09
  521. ***************
  522. *** 59,65 ****
  523.       movb    d1,d0
  524.       lsrl    #8,d1        | number of 256 bytes blocks
  525.       jeq    less256
  526. !     movml    d3-d7/a2-a6,sp@-    | d2 is already saved
  527.       movl    d2,d3
  528.       movl    d2,d4
  529.       movl    d2,d5
  530. --- 59,67 ----
  531.       movb    d1,d0
  532.       lsrl    #8,d1        | number of 256 bytes blocks
  533.       jeq    less256
  534. !     movml    d0/d3-d7/a2/a3/a5/a6,sp@-    | d2 is already saved
  535. !                 | exclude a4 because of -mbaserel
  536. !     movl    d2,d0
  537.       movl    d2,d3
  538.       movl    d2,d4
  539.       movl    d2,d5
  540. ***************
  541. *** 67,85 ****
  542.       movl    d2,d7
  543.       movl    d2,a2
  544.       movl    d2,a3
  545. -     movl    d2,a4
  546.       movl    d2,a5
  547.       movl    d2,a6
  548.   set256:
  549. !     movml    d2-d7/a2-a6,a0@-    | set 5*44+36=256 bytes
  550. !     movml    d2-d7/a2-a6,a0@-
  551. !     movml    d2-d7/a2-a6,a0@-
  552. !     movml    d2-d7/a2-a6,a0@-
  553. !     movml    d2-d7/a2-a6,a0@-
  554. !     movml    d2-d7/a2-a4,a0@-
  555.       subql    #1,d1
  556.       jne    set256            | next, please
  557. !     movml    sp@+,d3-d7/a2-a6
  558.   less256:            | set 16 bytes blocks
  559.       movw    d0,sp@-     | save length below 256 for last 3 bytes
  560.       lsrw    #2,d0        | number of 4 bytes blocks
  561. --- 69,86 ----
  562.       movl    d2,d7
  563.       movl    d2,a2
  564.       movl    d2,a3
  565.       movl    d2,a5
  566.       movl    d2,a6
  567.   set256:
  568. !     movml    d0/d2-d7/a2/a3/a5/a6,a0@-    | set 5*44+36=256 bytes
  569. !     movml    d0/d2-d7/a2/a3/a5/a6,a0@-
  570. !     movml    d0/d2-d7/a2/a3/a5/a6,a0@-
  571. !     movml    d0/d2-d7/a2/a3/a5/a6,a0@-
  572. !     movml    d0/d2-d7/a2/a3/a5/a6,a0@-
  573. !     movml    d0/d2-d7/a2-a3,a0@-
  574.       subql    #1,d1
  575.       jne    set256            | next, please
  576. !     movml    sp@+,d0/d3-d7/a2/a3/a5/a6
  577.   less256:            | set 16 bytes blocks
  578.       movw    d0,sp@-     | save length below 256 for last 3 bytes
  579.       lsrw    #2,d0        | number of 4 bytes blocks
  580. ===================================================================
  581. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/doprnt.c,v
  582. retrieving revision 1.17
  583. diff -c -r1.17 doprnt.c
  584. *** 1.17    1992/10/09 20:35:29
  585. --- doprnt.c    1992/11/08 00:02:47
  586. ***************
  587. *** 45,50 ****
  588. --- 45,51 ----
  589.   static char sccsid[] = "@(#)doprnt.c    5.37 (Berkeley) 3/26/89";
  590.   #endif /* LIBC_SCCS */
  591.   
  592. + #include <compiler.h>
  593.   #ifdef __TURBOC__
  594.   #include <sys\types.h>
  595.   #else
  596. ***************
  597. *** 163,169 ****
  598.            clrw    %0;
  599.                   swap    %0"                    \
  600.                : "=d"((long)NUMBER), "=g"(i)            \
  601. !          : "0"((long)NUMBER), "g"((short)BASE));    \
  602.           *--BUF = digs[i];                    \
  603.       } while(NUMBER);                        \
  604.   }
  605. --- 164,170 ----
  606.            clrw    %0;
  607.                   swap    %0"                    \
  608.                : "=d"((long)NUMBER), "=g"(i)            \
  609. !          : "0"((long)NUMBER), "dm"((short)BASE));    \
  610.           *--BUF = digs[i];                    \
  611.       } while(NUMBER);                        \
  612.   }
  613. ***************
  614. *** 330,336 ****
  615.                * don't do unrealistic precision; just pad it with
  616.                * zeroes later, so buffer size stays rational.
  617.                */
  618. !             if (prec > MAXFRACT) {
  619.                   if ((*fmt != 'g' && *fmt != 'G') || (flags&ALT))
  620.                       fpprec = prec - MAXFRACT;
  621.                   prec = MAXFRACT;
  622. --- 331,337 ----
  623.                * don't do unrealistic precision; just pad it with
  624.                * zeroes later, so buffer size stays rational.
  625.                */
  626. !             if (prec > (MAXEXP - MAXFRACT)) {
  627.                   if ((*fmt != 'g' && *fmt != 'G') || (flags&ALT))
  628.                       fpprec = prec - MAXFRACT;
  629.                   prec = MAXFRACT;
  630. ***************
  631. *** 545,551 ****
  632.   {
  633.       register char *p, *t;
  634.       register double fract;
  635. !     int dotrim, expcnt, gformat, /* mjr++ : */ old_prec;
  636.       double integer, tmp, modf __PROTO((double, double *));
  637.       char *exponent __PROTO((char *, int, int)),
  638.            *_round __PROTO((double, int *, char *, char *, int, char *));
  639. --- 546,552 ----
  640.   {
  641.       register char *p, *t;
  642.       register double fract;
  643. !     int dotrim, expcnt, gformat;
  644.       double integer, tmp, modf __PROTO((double, double *));
  645.       char *exponent __PROTO((char *, int, int)),
  646.            *_round __PROTO((double, int *, char *, char *, int, char *));
  647. ***************
  648. *** 555,561 ****
  649.   
  650.       /* get an extra slot for rounding. */
  651.       t = ++startp;
  652. ! #define DBL_EPSILON 1.1107651257113995e-16 /* mjr ++ /
  653.       /*
  654.        * get integer portion of number; put into the end of the buffer; the
  655.        * .01 is added for modf(356.0 / 10, &integer) returning .59999999...
  656. --- 556,562 ----
  657.   
  658.       /* get an extra slot for rounding. */
  659.       t = ++startp;
  660. ! /* jrb -- #define DBL_EPSILON 1.1107651257113995e-16 /* mjr ++ /
  661.       /*
  662.        * get integer portion of number; put into the end of the buffer; the
  663.        * .01 is added for modf(356.0 / 10, &integer) returning .59999999...
  664. ***************
  665. *** 562,568 ****
  666.        */
  667.       for (p = endp - 1; integer; ++expcnt) {
  668.           tmp = modf(integer / 10, &integer);
  669. !         *p-- = tochar((int)((tmp + DBL_EPSILON) * 10));
  670.       }
  671.       switch(fmtch) {
  672.       case 'f':
  673. --- 563,572 ----
  674.        */
  675.       for (p = endp - 1; integer; ++expcnt) {
  676.           tmp = modf(integer / 10, &integer);
  677. !         *p-- = tochar((int)((tmp + .01) * 10));
  678. ! /* await michals advise on this    -- in the mean while use above line
  679. !     *p-- = tochar((int)((tmp + DBL_EPSILON) * 10));
  680. !  */
  681.       }
  682.       switch(fmtch) {
  683.       case 'f':
  684. ***************
  685. *** 654,661 ****
  686.           break;
  687.       case 'g':
  688.       case 'G':
  689. -         old_prec = min(prec,15);    /* mjr++, avoid "precision" that */
  690. -                         /* cannot be numerically resolved */
  691.           /* a precision of 0 is treated as a precision of 1. */
  692.           if (!prec)
  693.               ++prec;
  694. --- 658,663 ----
  695. ***************
  696. *** 693,699 ****
  697.           if (prec || flags&ALT) {
  698.               dotrim = 1;
  699.               *t++ = '.';
  700. -             old_prec ++; /* mjr++ */
  701.           }
  702.           else
  703.               dotrim = 0;
  704. --- 695,700 ----
  705. ***************
  706. *** 722,729 ****
  707.           if (flags&ALT)
  708.               for (; prec--; *t++ = '0');
  709.           else if (dotrim) {
  710. -             if( (int)(t-startp) > old_prec ) /* mjr++ */
  711. -                 t = startp + old_prec;
  712.               while (t > startp && *--t == '0');
  713.               if (*t != '.')
  714.                   ++t;
  715. --- 723,728 ----
  716. ===================================================================
  717. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/gnulib2.c,v
  718. retrieving revision 1.13
  719. diff -c -r1.13 gnulib2.c
  720. *** 1.13    1992/09/14 14:56:40
  721. --- gnulib2.c    1992/11/08 00:02:51
  722. ***************
  723. *** 52,57 ****
  724. --- 52,58 ----
  725.   #define L_lesf2
  726.   #endif
  727.   #define L_fxussfsi
  728. + #define L_gccbcmp
  729.   
  730.   #endif /* __DEF_ALL__ */
  731.   
  732. ***************
  733. *** 1641,1644 ****
  734. --- 1642,1668 ----
  735.       return (SItype) (a + LONG_MIN) - LONG_MIN;
  736.     return (SItype) a;
  737.   }
  738. + #endif
  739. + 
  740. + #ifdef L_gccbcmp
  741. + 
  742. + /* Like bcmp except the sign is meaningful.
  743. +    Reult is negative if S1 is less than S2,
  744. +    positive if S1 is greater, 0 if S1 and S2 are equal.  */
  745. + 
  746. + int
  747. + __gcc_bcmp (s1, s2, size)
  748. +      unsigned char *s1, *s2;
  749. +      size_t size;
  750. + {
  751. +   while (size > 0)
  752. +     {
  753. +       unsigned char c1 = *s1++, c2 = *s2++;
  754. +       if (c1 != c2)
  755. +     return c1 - c2;
  756. +       size--;
  757. +     }
  758. +   return 0;
  759. + }
  760. + 
  761.   #endif
  762. ===================================================================
  763. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/regexp.c,v
  764. retrieving revision 1.5
  765. diff -c -r1.5 regexp.c
  766. *** 1.5    1992/10/09 20:35:29
  767. --- regexp.c    1992/11/06 23:02:09
  768. ***************
  769. *** 32,38 ****
  770.   #include <string.h>
  771.   #include <regexp.h>
  772.   #include <stdio.h>
  773. ! #include <types.h>
  774.   #ifndef _COMPILER_H
  775.   #include <compiler.h>
  776.   #endif
  777. --- 32,38 ----
  778.   #include <string.h>
  779.   #include <regexp.h>
  780.   #include <stdio.h>
  781. ! #include <sys/types.h>
  782.   #ifndef _COMPILER_H
  783.   #include <compiler.h>
  784.   #endif
  785. ***************
  786. *** 218,224 ****
  787.       RFAIL("regexp too big");
  788.   
  789.     /* Allocate space. */
  790. !   r = (regexp *) malloc(sizeof(regexp) + (unsigned) regsize);
  791.     if (r == (regexp *)NULL) RFAIL("out of space");
  792.   
  793.     /* Second pass: emit code. */
  794. --- 218,224 ----
  795.       RFAIL("regexp too big");
  796.   
  797.     /* Allocate space. */
  798. !   r = (regexp *) malloc(sizeof(regexp) + (size_t) regsize);
  799.     if (r == (regexp *)NULL) RFAIL("out of space");
  800.   
  801.     /* Second pass: emit code. */
  802. ***************
  803. *** 871,879 ****
  804.           case STAR:
  805.           case PLUS:{
  806.               register char nextch;
  807. !             register size_t no;
  808.               register char *save;
  809. !             register size_t min;
  810.   
  811.               /* Lookahead to avoid useless match attempts
  812.                * when we know what character comes next. */
  813. --- 871,879 ----
  814.           case STAR:
  815.           case PLUS:{
  816.               register char nextch;
  817. !             register long no;
  818.               register char *save;
  819. !             register long min;
  820.   
  821.               /* Lookahead to avoid useless match attempts
  822.                * when we know what character comes next. */
  823. ***************
  824. *** 977,983 ****
  825.   
  826.   #ifdef DEBUG
  827.   
  828. ! STATIC char *regprop();
  829.   
  830.   /*
  831.    - regdump - dump a regexp onto stdout in vaguely comprehensible form
  832. --- 977,983 ----
  833.   
  834.   #ifdef DEBUG
  835.   
  836. ! static char *regprop();
  837.   
  838.   /*
  839.    - regdump - dump a regexp onto stdout in vaguely comprehensible form
  840.