home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / gnustuff / tos / updates / update25.zoo / lib / diffs next >
Encoding:
Text File  |  1992-10-09  |  128.7 KB  |  5,629 lines
  1. *** 1.80    1992/08/14 14:37:45
  2. --- Changelo    1992/10/09 20:34:22
  3. ***************
  4. *** 3263,3265 ****
  5. --- 3263,3363 ----
  6.       in the common case.
  7.   
  8.   ---------------------------- Patchlevel 83 ---------------------------
  9. + 
  10. + ioctl.h, signal.h:: ers
  11. +     sync with mntlib changes.
  12. + 
  13. + main.c, ctime.c, getuid.c, lib.h, ltoa.c, sprintf.c:: ers
  14. +     sync with mntlib changes
  15. + 
  16. + frwbin.c:: ++jrb
  17. +     new file containing the default __FRW_BIN__ flag. this flag controls
  18. +     the default  behaviour fread/fwrite:
  19. +       when non-zero, fread/fwrite will not do CR processing
  20. +       even for text mode files (ie: ignore file mode).
  21. + 
  22. +       when zero fread/fwrite is process according to file mode
  23. + 
  24. +     this file is linked in when the user does not specify the variable.
  25. + 
  26. + fread.c, fwrite.c:: ++jrb
  27. +     incorporate flag.
  28. + 
  29. + mincl:: ++jrb
  30. +     add target for frwbin.o
  31. + 
  32. + compiler.h dirent.h float.h math.h mintbind.h osbind.h
  33. + ostruct.h regexp.h setjmp.h stdarg.h tcfloat.h tcmath.h
  34. + unistd.h varargs.h :: ++jrb/ers
  35. +     sync up with mntlib 21_2, mainly changes for Turbo/Pure C
  36. + 
  37. + access.c alphasor.c atof.c bcmp.c bsearch.c calloc.c chmod.c doprnt.c
  38. + findfile.c flonum.h fopen.c fseek.c ftw.c getbuf.c getenv.c getlogin.c
  39. + getopt.c getpid.c getpw.c getuid.c gnulib2.c grp.c lib.h localtim.c lseek.c
  40. + ltoa.c malloc.c putenv.c qsort.c random.c realloc.c  regexp.c sbrk.c setbuf.c
  41. + setvbuf.c strcat.c strchr.c strftime.c strncat.c strncpy.c strrchr.c strtol.c
  42. + strtoul.c system.c sysvar.c time.c timeoday.c tmpfile.c tmpnam.c utime.c
  43. + getcwd.c isatty.c spawnve.c sleep.c :: ++jrb/ers
  44. +     sync up with mntlib 21_2, mainly changes for Turbo/Pure C. nice thing
  45. +     about this merge and the earlier soz/lcc merges is that a lot of
  46. +     lint cleaning took place as a result.
  47. + 
  48. + compiler.h ioctl.h unistd.h signal.h setjmp.h osbind.h mintbind.h
  49. + math.h keycodes.h :: ++jrb/ers
  50. +     sync with mntlib 21_3
  51. + 
  52. + perror.c:: ++jrb/ers
  53. +     sync with mntlib 21_3
  54. + 
  55. + scanf.c:: michal
  56. +     sscanf (test,"%%Page: %d %d\n", &i1, &i2);
  57. +     after "%%" *fc equals 'P' but c was never updated and is still
  58. +     equal '%'.  Therefore test on line 232 fails and no conversions will
  59. +     be performed. [the fix was to get the next char into c after testing
  60. +     for '%' - ++jrb]
  61. +     thanks michal!
  62. +     
  63. + *.s, *.cpp, linea.c crto.c:: howard
  64. +     changes to support baserel code generation.
  65. + 
  66. + Makefile, mincl:: howard
  67. +      New integrated scheme elimiating makefile.16 makefile.32.
  68. +     thanks howard!
  69. + 
  70. + maikefile.16, makefile.32 :: ++jrb
  71. +     delete, no longer needed.
  72. + 
  73. + mintbind.h obsind.h obstack.h
  74. + doprnt.c getpass.c linea.c malloc.c obstack.c regexp.c
  75. + sbrk.c stricmp.c strnicmp.c strrchr.c system.c textio.c :: ers/+=jrb
  76. +     more cleanups from mntlib pl 22 (casts etc from compilers that
  77. +     are more fussy [some really overkill]).
  78. + 
  79. + compiler.h mintbind.h:: ers/++jrb
  80. +     sync up with mntlib pl 23
  81. + 
  82. + difftime.c:: uunet!gnu.ai.mit.edu!entropy
  83. +     operands were backwards
  84. + 
  85. + doprnt.c:: Michael (ritzert@dfg.dbp.de)
  86. +   the g-format does not work correctly. In many circumstances, the output is
  87. +   a huge fp-number which is correct in all the 15 significant digits; but the
  88. +   length of the mantissa is roughly doubled and filled with garbage. This
  89. +   seems to be rounding problem - it occurs more frequently with the 68881,
  90. +   but only when the significant rest of the mantissa is a sequence of zeros.
  91. +   I observed it with  %g %1.6g %1.14g %1.15g.
  92. + 
  93. +   In my opinion, the g-formatter of cvt() and round() should be rewritten.
  94. +   As i don't have the time doing this, i hacked a kludgy fix:
  95. +   I save the original no of digits, keep track of the '.', and cutoff the
  96. +   buffer before the trailing zeros are stripped. At the same time, i supress
  97. +   unreasonable precision, i.e., digs = min( digs, 15 ).
  98. + 
  99. + doprnt.c:: Michael/++jrb
  100. +     Michael had a problem with ICONV when doprnt.o is linked
  101. +     from outside gnu.olb. (i have'nt figured out why this
  102. +     would make a difference). Anyways now there is a 
  103. +     !defined(__NO_INLINE__) around _ICONV so that the C version
  104. +     may be picked istead of the inline asm version.
  105. + 
  106. + ---------------------------- Patchlevel 84 ---------------------------
  107. *** 1.59    1992/08/14 14:37:45
  108. --- PatchLev.h    1992/10/09 20:34:23
  109. ***************
  110. *** 1,5 ****
  111.   
  112. ! #define    PatchLevel "83"
  113.   
  114.   /*
  115.    *
  116. --- 1,5 ----
  117.   
  118. ! #define    PatchLevel "84"
  119.   
  120.   /*
  121.    *
  122. *** 1.22    1992/08/14 14:37:45
  123. --- crt0.c    1992/10/09 20:34:24
  124. ***************
  125. *** 176,205 ****
  126.        .text                
  127.        .even                
  128.        .globl __start            
  129. ! __start:                
  130. !      cmpw    #0,a0             /* test acc or prog  */
  131.        jeq    __start0         /* br if prog          */
  132.       tstl    a0@(36)             /* tst parent basepage pointer */
  133.       jne     __start0         /* its a prog if != 0  */
  134.   
  135.    /* its an acc, set up a stck+heap */
  136. !      movl    a0,__base         /* sto basepage    */
  137. !     tstl    __heapbase         /* setup _heapbase and sp */
  138.       jne    1f
  139. !     movl    __stksize,d3         /* _heapbase not specified */
  140. !         addql    #3, d3
  141.       andl    #0xfffffffc,d3
  142.       movl    d3,sp@-             /* _heapbase = Malloc(_stksize) */
  143.           movw    #0x48,sp@-
  144.       trap    #1
  145.       addqw    #6,sp
  146. !     movl    d0, __heapbase
  147.       addl    d3,d0
  148.       movl    d0, sp              /* sp = _heapbase + _stksize */
  149.       jra    __acc_main
  150.   1:                     /* heap base specified */
  151. !      movl    __heapbase,sp         /* setup sp        */
  152. !      addl    __stksize,sp        
  153.        jra    __acc_main");           /* acc main          */
  154.                          /* dont even think of */
  155.                          /* dropping through    */
  156. --- 176,224 ----
  157.        .text                
  158.        .even                
  159.        .globl __start            
  160. ! __start:
  161. ! "
  162. ! #ifdef __MBASE__
  163. ! "    movl    a0,a1            /* Find basepage, data seg */
  164. !     cmpw    #0,a1
  165. !     jne    1f
  166. !     movl    sp@(4),a1
  167. ! 1:
  168. !     movl    a1@(16)," __MBASESTR__ "    /* Set base to data seg + 32K */
  169. !     subw    #32768," __MBASESTR__ "
  170. ! 
  171. ! "
  172. ! #define    Base    __MBASESTR__ "@(__base)"
  173. ! #define Heapbase __MBASESTR__ "@(__heapbase)"
  174. ! #define Stksize    __MBASESTR__ "@(__stksize)"
  175. ! #else
  176. ! #define Base    "__base"
  177. ! #define Heapbase "__heapbase"
  178. ! #define Stksize "__stksize"
  179. ! #endif
  180. ! "    cmpw    #0,a0             /* test acc or prog  */
  181.        jeq    __start0         /* br if prog          */
  182.       tstl    a0@(36)             /* tst parent basepage pointer */
  183.       jne     __start0         /* its a prog if != 0  */
  184.   
  185.    /* its an acc, set up a stck+heap */
  186. !     movl    a0," Base "         /* sto basepage    */
  187. !     tstl    " Heapbase "         /* setup _heapbase and sp */
  188.       jne    1f
  189. !     movl    " Stksize ",d3         /* _heapbase not specified */
  190. !     addql    #3, d3
  191.       andl    #0xfffffffc,d3
  192.       movl    d3,sp@-             /* _heapbase = Malloc(_stksize) */
  193.           movw    #0x48,sp@-
  194.       trap    #1
  195.       addqw    #6,sp
  196. !     movl    d0," Heapbase "
  197.       addl    d3,d0
  198.       movl    d0, sp              /* sp = _heapbase + _stksize */
  199.       jra    __acc_main
  200.   1:                     /* heap base specified */
  201. !      movl    " Heapbase ",sp         /* setup sp        */
  202. !      addl    " Stksize ",sp        
  203.        jra    __acc_main");           /* acc main          */
  204.                          /* dont even think of */
  205.                          /* dropping through    */
  206. ***************
  207. *** 232,237 ****
  208. --- 251,257 ----
  209.   {
  210.       register long m __asm("d3");
  211.       register long freemem __asm("d4");
  212. +     extern void etext();        /* fake-out if pcrel used */
  213.       
  214.       _app = 1;    /* its an application */
  215.       _base = bp;
  216. ***************
  217. *** 240,249 ****
  218.   
  219.       m = parseargs(bp);    /* m = # bytes used by environment + args */
  220.   /* make m the total number of bytes required by program sans stack/heap */
  221. !     m += (bp->p_tlen + bp->p_dlen + bp->p_blen);
  222.       m = (m + 3L) & (~3L);
  223.   /* freemem the amount of free mem accounting for MINFREE at top */
  224. !     if((freemem = (long)bp->p_hitpa - (long)bp->p_tbase - MINFREE - m) <= 0L)
  225.           goto notenough;
  226.       
  227.       if(_initial_stack)
  228. --- 260,269 ----
  229.   
  230.       m = parseargs(bp);    /* m = # bytes used by environment + args */
  231.   /* make m the total number of bytes required by program sans stack/heap */
  232. !     m += (bp->p_tlen + bp->p_dlen + bp->p_blen + sizeof(BASEPAGE));
  233.       m = (m + 3L) & (~3L);
  234.   /* freemem the amount of free mem accounting for MINFREE at top */
  235. !     if((freemem = (long)bp->p_hitpa - (long)bp - MINFREE - m) <= 0L)
  236.           goto notenough;
  237.       
  238.       if(_initial_stack)
  239. ***************
  240. *** 250,262 ****
  241.       {
  242.           /* the primary use of _initial_stack will be in dumping */
  243.           /* applications where only a heap for malloc makes sense */
  244. !         _heapbase = (void *) ((long)bp->p_tbase + m);
  245.           _stksize = _initial_stack;
  246.       }
  247.       
  248.       if((_stksize <  -1L))
  249.       {
  250. !         _heapbase = (void *) ((long)bp->p_tbase + m);
  251.           _stksize = -_stksize - 1;
  252.           }
  253.           
  254. --- 270,282 ----
  255.       {
  256.           /* the primary use of _initial_stack will be in dumping */
  257.           /* applications where only a heap for malloc makes sense */
  258. !         _heapbase = (void *) ((long)bp + m);
  259.           _stksize = _initial_stack;
  260.       }
  261.       
  262.       if((_stksize <  -1L))
  263.       {
  264. !         _heapbase = (void *) ((long)bp + m);
  265.           _stksize = -_stksize - 1;
  266.           }
  267.           
  268. ***************
  269. *** 269,275 ****
  270.       {
  271.         case -1L:    /* keep all but MINFREE */
  272.           _stksize = freemem;
  273. !         _heapbase = (void *) ((long)bp->p_tbase + m);
  274.           break;
  275.           
  276.         case 0L:    /* free all but MINKEEP */
  277. --- 289,295 ----
  278.       {
  279.         case -1L:    /* keep all but MINFREE */
  280.           _stksize = freemem;
  281. !         _heapbase = (void *) ((long)bp + m);
  282.           break;
  283.           
  284.         case 0L:    /* free all but MINKEEP */
  285. ***************
  286. *** 298,324 ****
  287.       m += _stksize;
  288.   
  289.   /* make sure there's enough room for the stack */
  290. !     if ((((long)bp->p_tbase) + m) > ((long)bp->p_hitpa - MINFREE))
  291.           goto notenough;
  292.   
  293. ! /* set up the new stack to bp->p_tbase + m  */
  294.       asm volatile("\
  295.            movl    %0, sp  | move base to sp
  296.            addal    %1, sp    | add total bytes"
  297.                :            /* outputs */
  298. !              : "g"(bp->p_tbase), "g"(m)    /* inputs  */
  299.                );     /* we dont tell gcc about clobbered reggies */
  300.       
  301. ! /* shrink the TPA */
  302. ! /* this is right only if bp == bp->p_tbase - sizeof(BASEPAGE) */
  303. !     (void)Mshrink(bp, m + sizeof(BASEPAGE));
  304.       asm volatile("subl a6,a6");    /* clear link reg for gdb */
  305.       
  306.   /* establish handlers,  call the main routine */
  307.       setup_handlers();
  308.   #ifdef __GCRT0__
  309. !     monstartup((void *)(bp->p_tbase), 
  310. !            (void *)((long)bp->p_tbase +  bp->p_tlen));
  311.   #endif
  312.       _main(argc, argv, environ);
  313.       /* not reached normally */
  314. --- 318,342 ----
  315.       m += _stksize;
  316.   
  317.   /* make sure there's enough room for the stack */
  318. !     if (((long)bp + m) > ((long)bp->p_hitpa - MINFREE))
  319.           goto notenough;
  320.   
  321. ! /* set up the new stack to bp + m  */
  322.       asm volatile("\
  323.            movl    %0, sp  | move base to sp
  324.            addal    %1, sp    | add total bytes"
  325.                :            /* outputs */
  326. !              : "g"(bp), "g"(m)    /* inputs  */
  327.                );     /* we dont tell gcc about clobbered reggies */
  328.       
  329. ! /* shrink the TPA - this is always correct, shared text or not -- hyc */
  330. !     (void)Mshrink(bp, m);
  331.       asm volatile("subl a6,a6");    /* clear link reg for gdb */
  332.       
  333.   /* establish handlers,  call the main routine */
  334.       setup_handlers();
  335.   #ifdef __GCRT0__
  336. !     monstartup((void *)(bp->p_tbase), (void *)etext-1);
  337.   #endif
  338.       _main(argc, argv, environ);
  339.       /* not reached normally */
  340. *** 1.10    1992/03/06 19:19:47
  341. --- getcwd.c    1992/10/09 20:34:25
  342. ***************
  343. *** 11,16 ****
  344. --- 11,18 ----
  345.   This routine is in the public domain.
  346.   ********************************************************************/
  347.   
  348. + char *getcwd __PROTO((char *, int));
  349. + 
  350.   char *getcwd(buf, size)
  351.   char *buf; int size;
  352.   {
  353. ***************
  354. *** 23,29 ****
  355.   #endif
  356.   
  357.       if (!buf)
  358. !         if (!(buf = (char *) malloc((size_t)size)))
  359.               return NULL;
  360.       path[2] = '\0';
  361.       (void)Dgetpath(path+2, 0);
  362. --- 25,31 ----
  363.   #endif
  364.   
  365.       if (!buf)
  366. !         if ((buf = (char *) malloc((size_t)size)) == 0)
  367.               return NULL;
  368.       path[2] = '\0';
  369.       (void)Dgetpath(path+2, 0);
  370. *** 1.9    1991/12/26 15:53:59
  371. --- isatty.c    1992/10/09 20:34:26
  372. ***************
  373. *** 29,35 ****
  374.       if (__open_stat[handle].status != FH_UNKNOWN)
  375.           return(__open_stat[handle].status == FH_ISATTY);
  376.     oldloc = Fseek (0L, fd, SEEK_CUR);    /* seek zero bytes from current loc */
  377. !   if (seekval = Fseek (1L, fd, SEEK_SET))    /* try to seek ahead one byte */
  378.       if ((seekval > 0) || (seekval == ((long)(-EBADARG)))) /* out of range... */
  379.         rc = 0;            /* file, not a tty */
  380.       else 
  381. --- 29,35 ----
  382.       if (__open_stat[handle].status != FH_UNKNOWN)
  383.           return(__open_stat[handle].status == FH_ISATTY);
  384.     oldloc = Fseek (0L, fd, SEEK_CUR);    /* seek zero bytes from current loc */
  385. !   if ((seekval = Fseek (1L, fd, SEEK_SET)) != 0) /* try to seek ahead one byte */
  386.       if ((seekval > 0) || (seekval == ((long)(-EBADARG)))) /* out of range... */
  387.         rc = 0;            /* file, not a tty */
  388.       else 
  389. *** 1.23    1992/08/14 14:37:45
  390. --- main.c    1992/10/09 20:34:26
  391. ***************
  392. *** 9,14 ****
  393. --- 9,15 ----
  394.   #include "symdir.h"
  395.   #include <unistd.h>
  396.   #include "lib.h"
  397. + #include <ctype.h>
  398.   
  399.   int    errno;
  400.   int    __mint;        /* 0 for TOS, MiNT version number otherwise */
  401. ***************
  402. *** 65,71 ****
  403.       char *tty;
  404.       register FILE *f;
  405.       register int i;
  406. !      char *s, *t, *new;
  407.       extern int __default_mode__; /* in defmode.c or defined by user */
  408.       int main(int, char **, char **);
  409.   
  410. --- 66,72 ----
  411.       char *tty;
  412.       register FILE *f;
  413.       register int i;
  414. !      char *s, *t;
  415.       extern int __default_mode__; /* in defmode.c or defined by user */
  416.       int main(int, char **, char **);
  417.   
  418. ***************
  419. *** 137,148 ****
  420.       for (i = 0; s = _envp[i]; i++) {    /* '=', NOT '==' */
  421.           if (s[0] == 'P' && s[1] == 'A' && s[2] == 'T' &&
  422.               s[3] == 'H' && s[4] == '=') {
  423. !             new = alloca(4*strlen(s));
  424. !             strncpy(new, s, 5);
  425. !             t = new+5;
  426.               s += 5;
  427.               while (*s) {
  428. !                 if (s[1] == ':') {    /* drive letter */
  429.                       *t++ = '/';
  430.                       *t++ = 'd'; *t++ = 'e'; *t++ = 'v';
  431.                       *t++ = '/'; *t++ = *s++; s++;
  432. --- 138,149 ----
  433.       for (i = 0; s = _envp[i]; i++) {    /* '=', NOT '==' */
  434.           if (s[0] == 'P' && s[1] == 'A' && s[2] == 'T' &&
  435.               s[3] == 'H' && s[4] == '=') {
  436. !             _envp[i] = (char *)malloc(4 * strlen(s));
  437. !             strncpy(_envp[i], s, 5);
  438. !             t = _envp[i]+5;
  439.               s += 5;
  440.               while (*s) {
  441. !                 if (s[1] == ':' && isalpha(*s)) {    /* drive letter */
  442.                       *t++ = '/';
  443.                       *t++ = 'd'; *t++ = 'e'; *t++ = 'v';
  444.                       *t++ = '/'; *t++ = *s++; s++;
  445. ***************
  446. *** 153,159 ****
  447.                   }
  448.               }
  449.               *t++ = 0;
  450. -             _envp[i] = strdup(new);
  451.               break;
  452.           }
  453.       }
  454. --- 154,159 ----
  455. *** 1.14    1992/04/13 15:50:45
  456. --- scanf.c    1992/10/09 20:34:28
  457. ***************
  458. *** 160,166 ****
  459.           {
  460.           /* Whitespace characters match any amount of whitespace.  */
  461.           while (isspace (c))
  462. !             inchar ();
  463.           continue;
  464.           }
  465.           else if (c == fc)
  466. --- 160,166 ----
  467.           {
  468.           /* Whitespace characters match any amount of whitespace.  */
  469.           while (isspace (c))
  470. !             (void)inchar ();
  471.           continue;
  472.           }
  473.           else if (c == fc)
  474. ***************
  475. *** 230,235 ****
  476. --- 230,237 ----
  477.         case '%':    /* Must match a literal '%'.  */
  478.           if (c != fc)
  479.           conv_error();
  480. +         else
  481. +         c = inchar();
  482.           break;
  483.           
  484.         case 'n':    /* Answer number of assignments done.  */
  485. *** 1.6    1992/03/06 19:19:47
  486. --- sleep.c    1992/10/09 20:34:28
  487. ***************
  488. *** 7,18 ****
  489.   
  490.   /* clock() has a rez of CLOCKS_PER_SEC ticks/sec */
  491.   
  492. ! #define USEC_PER_TICK (1000000U / ((unsigned long)CLOCKS_PER_SEC))
  493.   #define    USEC_TO_CLOCK_TICKS(us)    ((us) / USEC_PER_TICK )
  494.   
  495. ! void
  496.   sleep(n)
  497. ! unsigned int    n;
  498.   {
  499.       unsigned long    stop;
  500.   
  501. --- 7,18 ----
  502.   
  503.   /* clock() has a rez of CLOCKS_PER_SEC ticks/sec */
  504.   
  505. ! #define USEC_PER_TICK (1000000L / ((unsigned long)CLOCKS_PER_SEC))
  506.   #define    USEC_TO_CLOCK_TICKS(us)    ((us) / USEC_PER_TICK )
  507.   
  508. ! unsigned int
  509.   sleep(n)
  510. !     unsigned int n;
  511.   {
  512.       unsigned long    stop;
  513.   
  514. ***************
  515. *** 19,24 ****
  516. --- 19,26 ----
  517.       stop = clock() + n * CLOCKS_PER_SEC;
  518.       while (clock() < stop)
  519.           ;
  520. + 
  521. +     return 0;
  522.   }
  523.   
  524.   /*
  525. *** 1.16    1992/03/22 21:57:30
  526. --- spawnve.c    1992/10/09 20:34:28
  527. ***************
  528. *** 47,54 ****
  529.   {
  530.       void        __exit(long);
  531.       static char    path[MAXPATHLEN];
  532. !     int        cmlen = 0;
  533. !     int        enlen = 0;
  534.       char        *p;
  535.       char        *s, *t;
  536.       char        *env;
  537. --- 47,54 ----
  538.   {
  539.       void        __exit(long);
  540.       static char    path[MAXPATHLEN];
  541. !     size_t        cmlen;
  542. !     size_t        enlen = 0;
  543.       char        *p;
  544.       char        *s, *t;
  545.       char        *env;
  546. ***************
  547. *** 70,76 ****
  548.           enlen += strlen(envp[cmlen]) + 1;
  549.       enlen += 32;    /* filler for stuff like ARGV= and zeros */
  550.   
  551. !     if (!(env = (char *)Malloc((long)enlen))) {
  552.           errno = ENOMEM;
  553.           return -1;
  554.       }
  555. --- 70,76 ----
  556.           enlen += strlen(envp[cmlen]) + 1;
  557.       enlen += 32;    /* filler for stuff like ARGV= and zeros */
  558.   
  559. !     if ((env = (char *)Malloc((long)enlen)) == NULL) {
  560.           errno = ENOMEM;
  561.           return -1;
  562.       }
  563. ***************
  564. *** 154,160 ****
  565.   /* MiNT and MicroRTX support background processes with Pexec(100,...) */
  566.       cmlen = (mode == P_NOWAIT) ? 100 : PE_LOADGO;
  567.   
  568. !     if ((rval = Pexec(cmlen, path, cmd, env)) < 0)
  569.       {
  570.           errno = -rval;
  571.           cmlen = -1;
  572. --- 154,160 ----
  573.   /* MiNT and MicroRTX support background processes with Pexec(100,...) */
  574.       cmlen = (mode == P_NOWAIT) ? 100 : PE_LOADGO;
  575.   
  576. !     if ((rval = Pexec((int)cmlen, path, cmd, env)) < 0)
  577.       {
  578.           errno = -rval;
  579.           cmlen = -1;
  580. *** 1.1    1992/02/04 17:11:06
  581. --- _addsubd.cpp    1992/10/09 20:46:12
  582. ***************
  583. *** 1,11 ****
  584.   #ifndef __M68881__
  585.   #ifndef    sfp004
  586. - | double floating point add/subtract routine
  587.   |
  588.   | written by Kai-Uwe Bloem (I5110401@dbstu1.bitnet).
  589.   | Based on a 80x86 floating point packet from comp.os.minix, written by P.Housel
  590.   |
  591. - |
  592.   | Revision 1.3, kub 01-90 :
  593.   | added support for denormalized numbers
  594.   |
  595. --- 1,16 ----
  596. + |
  597. + | double floating point add/subtract routine
  598. + |
  599.   #ifndef __M68881__
  600. +     .text
  601. +     .even
  602. +     .globl    __subdf3, ___subdf3
  603. +     .globl    __adddf3, ___adddf3
  604.   #ifndef    sfp004
  605.   |
  606.   | written by Kai-Uwe Bloem (I5110401@dbstu1.bitnet).
  607.   | Based on a 80x86 floating point packet from comp.os.minix, written by P.Housel
  608.   |
  609.   | Revision 1.3, kub 01-90 :
  610.   | added support for denormalized numbers
  611.   |
  612. ***************
  613. *** 18,28 ****
  614.   | Revision 1.0:
  615.   | original 8088 code from P.S.Housel
  616.   
  617. -     .text
  618. -     .even
  619. -     .globl    __subdf3, ___subdf3
  620. -     .globl    __adddf3, ___adddf3
  621. - 
  622.   __subdf3:
  623.   ___subdf3:
  624.       eorb    #0x80,sp@(12)    | reverse sign of v
  625. --- 23,28 ----
  626. ***************
  627. *** 157,172 ****
  628.   | is coded directly by
  629.   |    .long    0x0c688900, 0xfff067f8
  630.   
  631. -     .text
  632. -     .even
  633. -     .globl    __subdf3, ___subdf3
  634. -     .globl    __adddf3, ___adddf3
  635. - 
  636.   __subdf3:
  637.   ___subdf3:
  638.   | double precision subtraction
  639.   | sub second arg from fp0
  640. !     lea    0xfffa50,a0
  641.       movew    #0x5400,a0@(comm)    | load first argument to fp0
  642.       cmpiw    #0x8900,a0@(resp)    | check
  643.       movel    a7@(4),a0@
  644. --- 157,167 ----
  645.   | is coded directly by
  646.   |    .long    0x0c688900, 0xfff067f8
  647.   
  648.   __subdf3:
  649.   ___subdf3:
  650.   | double precision subtraction
  651.   | sub second arg from fp0
  652. !     lea    0xfffffa50:w,a0
  653.       movew    #0x5400,a0@(comm)    | load first argument to fp0
  654.       cmpiw    #0x8900,a0@(resp)    | check
  655.       movel    a7@(4),a0@
  656. ***************
  657. *** 183,189 ****
  658.   
  659.   __adddf3:
  660.   ___adddf3:
  661. !     lea    0xfffa50,a0
  662.       movew    #0x5400,a0@(comm)        | load fp0
  663.       cmpiw    #0x8900,a0@(resp)        | got it?
  664.       movel    a7@(4),a0@            | take a hi from stack to FPU
  665. --- 178,184 ----
  666.   
  667.   __adddf3:
  668.   ___adddf3:
  669. !     lea    0xfffffa50:w,a0
  670.       movew    #0x5400,a0@(comm)        | load fp0
  671.       cmpiw    #0x8900,a0@(resp)        | got it?
  672.       movel    a7@(4),a0@            | take a hi from stack to FPU
  673. *** 1.1    1992/02/04 17:11:06
  674. --- _addsubs.cpp    1992/10/09 20:46:12
  675. ***************
  676. *** 1,12 ****
  677.   #ifndef    __M68881__
  678.   # ifndef sfp004
  679. - 
  680. - | single floating point add/subtract routine
  681.   |
  682.   | written by Kai-Uwe Bloem (I5110401@dbstu1.bitnet).
  683.   | Based on a 80x86 floating point packet from comp.os.minix, written by P.Housel
  684.   |
  685. - |
  686.   | Revision 1.3, kub 01-90 :
  687.   | added support for denormalized numbers
  688.   |
  689. --- 1,16 ----
  690. + |
  691. + | single floating point add/subtract routine
  692. + |
  693.   #ifndef    __M68881__
  694. +     .text
  695. +     .even
  696. +     .globl    __subsf3, ___subsf3
  697. +     .globl    __addsf3, ___addsf3
  698.   # ifndef sfp004
  699.   |
  700.   | written by Kai-Uwe Bloem (I5110401@dbstu1.bitnet).
  701.   | Based on a 80x86 floating point packet from comp.os.minix, written by P.Housel
  702.   |
  703.   | Revision 1.3, kub 01-90 :
  704.   | added support for denormalized numbers
  705.   |
  706. ***************
  707. *** 21,31 ****
  708.   | Revision 1.0:
  709.   | original 8088 code from P.S.Housel for double floats
  710.   
  711. -     .text
  712. -     .even
  713. -     .globl    __subsf3, ___subsf3
  714. -     .globl    __addsf3, ___addsf3
  715. - 
  716.   __subsf3:
  717.   ___subsf3:
  718.       eorb    #0x80,sp@(8)    | reverse sign of v
  719. --- 25,30 ----
  720. ***************
  721. *** 152,165 ****
  722.   | is coded directly by
  723.   |    .long    0x0c688900, 0xfff067f8
  724.   
  725. -     .text
  726. -     .even
  727. -     .globl    __subsf3, ___subsf3
  728. -     .globl    __addsf3, ___addsf3
  729. - 
  730.   __subsf3:
  731.   ___subsf3:
  732. !     lea    0xfffa50,a0
  733.       movew    #0x4400,a0@(comm)    | load first argument to fp0
  734.       cmpiw    #0x8900,a0@(resp)    | check
  735.       movel    a7@(4),a0@
  736. --- 151,159 ----
  737.   | is coded directly by
  738.   |    .long    0x0c688900, 0xfff067f8
  739.   
  740.   __subsf3:
  741.   ___subsf3:
  742. !     lea    0xfffffa50:w,a0
  743.       movew    #0x4400,a0@(comm)    | load first argument to fp0
  744.       cmpiw    #0x8900,a0@(resp)    | check
  745.       movel    a7@(4),a0@
  746. ***************
  747. *** 173,179 ****
  748.   
  749.   __addsf3:
  750.   ___addsf3:
  751. !     lea    0xfffa50,a0
  752.       movew    #0x4400,a0@(comm)        | load fp0
  753.       cmpiw    #0x8900,a0@(resp)        | got it?
  754.       movel    a7@(4),a0@            | take a from stack to FPU
  755. --- 167,173 ----
  756.   
  757.   __addsf3:
  758.   ___addsf3:
  759. !     lea    0xfffffa50:w,a0
  760.       movew    #0x4400,a0@(comm)        | load fp0
  761.       cmpiw    #0x8900,a0@(resp)        | got it?
  762.       movel    a7@(4),a0@            | take a from stack to FPU
  763. *** 1.2    1992/04/13 15:50:45
  764. --- _cmpdf2.s    1992/10/09 20:46:12
  765. ***************
  766. *** 29,35 ****
  767.       bpl    1f
  768.       negl    d1        | negate
  769.       negxl    d0
  770. !     eorl    #0x80000000,d0    | toggle sign bit
  771.   1:
  772.       exg    a0,d0
  773.       exg    a1,d1
  774. --- 29,35 ----
  775.       bpl    1f
  776.       negl    d1        | negate
  777.       negxl    d0
  778. !     bchg    #31,d0        | toggle sign bit
  779.   1:
  780.       exg    a0,d0
  781.       exg    a1,d1
  782. ***************
  783. *** 37,43 ****
  784.       bpl    2f
  785.       negl    d1        | negate
  786.       negxl    d0
  787. !     eorl    #0x80000000,d0    | toggle sign bit
  788.   2:
  789.       cmpl    d0,a0
  790.       blt    lt
  791. --- 37,43 ----
  792.       bpl    2f
  793.       negl    d1        | negate
  794.       negxl    d0
  795. !     bchg    #31,d0        | toggle sign bit
  796.   2:
  797.       cmpl    d0,a0
  798.       blt    lt
  799. *** 1.2    1992/04/13 15:50:45
  800. --- _cmpsf2.s    1992/10/09 20:46:12
  801. ***************
  802. *** 28,39 ****
  803.       tstl    d1        | check sign bit
  804.       bpl    1f
  805.       negl    d1        | negate
  806. !     eorl    #0x80000000,d1    | toggle sign bit
  807.   1:
  808.       tstl    d0        | check sign bit
  809.       bpl    2f
  810.       negl    d0        | negate
  811. !     eorl    #0x80000000,d0    | toggle sign bit
  812.   2:
  813.       cmpl    d1,d0
  814.       blt    lt
  815. --- 28,39 ----
  816.       tstl    d1        | check sign bit
  817.       bpl    1f
  818.       negl    d1        | negate
  819. !     bchg    #31,d1        | toggle sign bit
  820.   1:
  821.       tstl    d0        | check sign bit
  822.       bpl    2f
  823.       negl    d0        | negate
  824. !     bchg    #31,d0        | toggle sign bit
  825.   2:
  826.       cmpl    d1,d0
  827.       blt    lt
  828. *** 1.1    1992/02/04 17:11:06
  829. --- _divdf3.cpp    1992/10/09 20:46:12
  830. ***************
  831. *** 1,56 ****
  832. - #if !defined (__M68881__) && !defined (sfp004)
  833. - 
  834. - | double floating point divide routine
  835. - |
  836. - | written by Kai-Uwe Bloem (I5110401@dbstu1.bitnet).
  837. - | Based on a 80x86 floating point packet from comp.os.minix, written by P.Housel
  838. - |
  839. - |
  840. - | Revision 1.2, kub 01-90 :
  841. - | added support for denormalized numbers
  842.   |
  843. ! | Revision 1.1, kub 12-89 :
  844. ! | Ported over to 68k assembler
  845.   |
  846. ! | Revision 1.0:
  847. ! | original 8088 code from P.S.Housel
  848. ! 
  849. ! BIAS8    =    0x3FF-1
  850. ! 
  851.       .text
  852.       .even
  853.       .globl    __divdf3, ___divdf3
  854.       .globl    __infinitydf
  855. - 
  856. - # ifdef    ERROR_CHECK
  857.   LC0:
  858.       .ascii "floating point division by 0\12\15\0"
  859.       .even
  860. ! # endif    ERROR_CHECK
  861.   
  862.   __divdf3:
  863.   ___divdf3:
  864. ! 
  865. ! # ifdef    ERROR_CHECK
  866.       tstl    a7@(12)            | check if divisor is 0
  867.       bne    continue
  868.       tstl    a7@(16)
  869.       bne    continue
  870.   
  871. !     moveml    d0-d1,a7@-
  872. !     pea    LC0
  873. !     pea    __iob+52    |
  874.       jbsr    _fprintf    |
  875.       addql    #8,a7        |
  876. -     moveml    a7@+,d0-d1
  877.                       | set _errno to ERANGE
  878. ! #  ifdef __MSHORT__
  879. !     movew    #63,_errno
  880. ! #  else
  881. !     movel    #63,_errno
  882. ! #  endif
  883. !     movel    #0x7ff00000,d0        | return signed infinity 
  884. !     clrl    d1            |
  885.       btst    #31,a7@(4)        | transfer sign of dividend
  886.       beq    clear            | (mjr++)
  887.       bset    #31,d0            |
  888. --- 1,34 ----
  889.   |
  890. ! | double floating point divide routine
  891.   |
  892. ! #ifndef __M68881__
  893.       .text
  894.       .even
  895.       .globl    __divdf3, ___divdf3
  896. + #ifdef    ERROR_CHECK
  897. + #include "errbase.h"
  898.       .globl    __infinitydf
  899.   LC0:
  900.       .ascii "floating point division by 0\12\15\0"
  901.       .even
  902. ! #endif    ERROR_CHECK
  903.   
  904.   __divdf3:
  905.   ___divdf3:
  906. ! #ifdef    ERROR_CHECK
  907.       tstl    a7@(12)            | check if divisor is 0
  908.       bne    continue
  909.       tstl    a7@(16)
  910.       bne    continue
  911.   
  912. !     pea    pc@(LC0)
  913. !     pea    Stderr
  914.       jbsr    _fprintf    |
  915.       addql    #8,a7        |
  916.                       | set _errno to ERANGE
  917. !     moveq    #ERANGE,d0
  918. !     Emove    d0,Errno
  919. !     moveml    __infinitydf,d0-d1    | return signed infinity 
  920.       btst    #31,a7@(4)        | transfer sign of dividend
  921.       beq    clear            | (mjr++)
  922.       bset    #31,d0            |
  923. ***************
  924. *** 60,66 ****
  925.       rts
  926.   continue:
  927.   
  928. ! # endif    ERROR_CHECK
  929.   
  930.       lea    sp@(4),a0    | pointer to parameters u and v
  931.       moveml    d2-d7,sp@-    | save registers
  932. --- 38,59 ----
  933.       rts
  934.   continue:
  935.   
  936. ! #endif    /* ERROR_CHECK */
  937. ! #ifndef sfp004
  938. ! |
  939. ! | written by Kai-Uwe Bloem (I5110401@dbstu1.bitnet).
  940. ! | Based on a 80x86 floating point packet from comp.os.minix, written by P.Housel
  941. ! |
  942. ! | Revision 1.2, kub 01-90 :
  943. ! | added support for denormalized numbers
  944. ! |
  945. ! | Revision 1.1, kub 12-89 :
  946. ! | Ported over to 68k assembler
  947. ! |
  948. ! | Revision 1.0:
  949. ! | original 8088 code from P.S.Housel
  950. ! 
  951. ! BIAS8    =    0x3FF-1
  952.   
  953.       lea    sp@(4),a0    | pointer to parameters u and v
  954.       moveml    d2-d7,sp@-    | save registers
  955. ***************
  956. *** 148,154 ****
  957.       rts            | no normalization needed
  958.   
  959.   #ifndef    ERROR_CHECK
  960. ! divz:    moveml    __infinitydf,d0-d1 | return infinty value
  961.       moveml    sp@+,d2-d7    | should really cause trap ?!?
  962.   
  963.       btst    #31,a7@(4)        | transfer sign of dividend
  964. --- 141,148 ----
  965.       rts            | no normalization needed
  966.   
  967.   #ifndef    ERROR_CHECK
  968. ! | NOTE: __infinitydf is in the text segment
  969. ! divz: moveml  __infinitydf,d0-d1 | return infinity value
  970.       moveml    sp@+,d2-d7    | should really cause trap ?!?
  971.   
  972.       btst    #31,a7@(4)        | transfer sign of dividend
  973. ***************
  974. *** 161,168 ****
  975.   
  976.   #endif    ERROR_CHECK
  977.   
  978. ! #endif
  979. ! #ifdef    sfp004
  980.   
  981.   | double precision floating point stuff for Atari-gcc using the SFP004
  982.   | developed with gas
  983. --- 155,161 ----
  984.   
  985.   #endif    ERROR_CHECK
  986.   
  987. ! #else
  988.   
  989.   | double precision floating point stuff for Atari-gcc using the SFP004
  990.   | developed with gas
  991. ***************
  992. *** 190,240 ****
  993.   | is coded directly by
  994.   |    .long    0x0c688900, 0xfff067f8
  995.   
  996. ! # ifdef    ERROR_CHECK
  997. ! LC0:
  998. !     .ascii "floating point division by 0\12\15\0"
  999. !     .even
  1000. ! # endif    ERROR_CHECK
  1001. ! 
  1002. !     .text
  1003. !     .even
  1004. !     .globl    __divdf3, ___divdf3
  1005. ! 
  1006. ! __divdf3:
  1007. ! ___divdf3:
  1008. ! 
  1009. ! # ifdef    ERROR_CHECK
  1010. !     tstl    a7@(12)            | check if divisor is 0
  1011. !     bne    continue
  1012. !     tstl    a7@(16)
  1013. !     bne    continue
  1014. ! 
  1015. !     moveml    d0-d7/a0-a6,a7@-    | print error message
  1016. !     pea    LC0
  1017. !     movew    #9,a7@-
  1018. !     trap    #1
  1019. !     addql    #6,a7
  1020. !     moveml    a7@+,d0-d7/a0-a6
  1021. !                     | set _errno to ERANGE
  1022. ! #  ifdef __MSHORT__
  1023. !     movew    #63,_errno
  1024. ! #  else
  1025. !     movel    #63,_errno
  1026. ! #  endif
  1027. !     movel    #0x7ff00000,d0        | return signed infinity 
  1028. !     clrl    d1            |
  1029. !     btst    #31,a7@(4)        | transfer sign of dividend
  1030. !     beq    clear            | (mjr++)
  1031. !     bset    #31,d0            |
  1032. !     rts                |
  1033. ! clear:                    |
  1034. !     bclr    #31,d0            |
  1035. !     rts
  1036. ! continue:
  1037. ! 
  1038. ! # endif    ERROR_CHECK
  1039. ! 
  1040. !     lea    0xfffa50,a0
  1041.       movew    #0x5400,a0@(comm)    | load first argument to fp0
  1042.       cmpiw    #0x8900,a0@(resp)    | check
  1043.       movel    a7@(4),a0@
  1044. --- 183,189 ----
  1045.   | is coded directly by
  1046.   |    .long    0x0c688900, 0xfff067f8
  1047.   
  1048. !     lea    0xfffffa50:w,a0
  1049.       movew    #0x5400,a0@(comm)    | load first argument to fp0
  1050.       cmpiw    #0x8900,a0@(resp)    | check
  1051.       movel    a7@(4),a0@
  1052. ***************
  1053. *** 249,251 ****
  1054. --- 198,201 ----
  1055.       movel    a0@,d1
  1056.        rts
  1057.   #endif    sfp004
  1058. + #endif /* !__M68881__ */
  1059. *** 1.1    1992/02/04 17:11:06
  1060. --- _divsf3.cpp    1992/10/09 20:46:13
  1061. ***************
  1062. *** 1,30 ****
  1063. - #if !defined (__M68881__) && !defined (sfp004)
  1064. - 
  1065. - | single floating point divide routine
  1066. - |
  1067. - | written by Kai-Uwe Bloem (I5110401@dbstu1.bitnet).
  1068. - | Based on a 80x86 floating point packet from comp.os.minix, written by P.Housel
  1069. - |
  1070. - |
  1071. - | Revision 1.2, kub 01-90 :
  1072. - | added support for denormalized numbers
  1073.   |
  1074. ! | Revision 1.1, kub 12-89 :
  1075. ! | Created single float version for 68000
  1076.   |
  1077. ! | Revision 1.0:
  1078. ! | original 8088 code from P.S.Housel for double floats
  1079. ! 
  1080. ! BIAS4    =    0x7F-1
  1081. ! 
  1082.       .text
  1083.       .even
  1084.       .globl    __divsf3, ___divsf3
  1085.       .globl    __infinitysf
  1086.   
  1087. - #ifdef    ERROR_CHECK
  1088.   LC0:
  1089. !     .ascii "FLOATING POINT DIVISION by 0\12\15\0"
  1090.       .even
  1091.   #endif    ERROR_CHECK
  1092.   
  1093. --- 1,16 ----
  1094.   |
  1095. ! | single floating point divide routine
  1096.   |
  1097. ! #ifndef __M68881__
  1098.       .text
  1099.       .even
  1100.       .globl    __divsf3, ___divsf3
  1101. + #ifdef    ERROR_CHECK
  1102. + #include "errbase.h"
  1103.       .globl    __infinitysf
  1104.   
  1105.   LC0:
  1106. !     .ascii "floating point division by 0\12\15\0"
  1107.       .even
  1108.   #endif    ERROR_CHECK
  1109.   
  1110. ***************
  1111. *** 31,52 ****
  1112.   __divsf3:
  1113.   ___divsf3:
  1114.   
  1115. ! # ifdef    ERROR_CHECK
  1116.       tstl    a7@(8)            | check if divisor is 0
  1117.       bne    no_exception
  1118.   
  1119. !     moveml    d0-d1,a7@-
  1120. !     pea    LC0
  1121. !     pea    __iob+52    |
  1122.       jbsr    _fprintf    |
  1123.       addql    #8,a7        |
  1124. -     moveml    a7@+,d0-d1
  1125.                       | set _errno to ERANGE
  1126. ! #  ifdef __MSHORT__
  1127. !     movew    #63,_errno
  1128. ! #  else
  1129. !     movel    #63,_errno
  1130. ! #  endif
  1131.       movel    __infinitysf,d0        | return signed infinity 
  1132.       btst    #31,a7@(4)        | transfer sign of dividend
  1133.       beq    clear            | (mjr++)
  1134. --- 17,33 ----
  1135.   __divsf3:
  1136.   ___divsf3:
  1137.   
  1138. ! #ifdef    ERROR_CHECK
  1139.       tstl    a7@(8)            | check if divisor is 0
  1140.       bne    no_exception
  1141.   
  1142. !     pea    pc@(LC0)
  1143. !     pea    Stderr
  1144.       jbsr    _fprintf    |
  1145.       addql    #8,a7        |
  1146.                       | set _errno to ERANGE
  1147. !     moveq    #ERANGE,d0
  1148. !     Emove    d0,Errno
  1149.       movel    __infinitysf,d0        | return signed infinity 
  1150.       btst    #31,a7@(4)        | transfer sign of dividend
  1151.       beq    clear            | (mjr++)
  1152. ***************
  1153. *** 56,64 ****
  1154.       rts
  1155.   
  1156.   no_exception:
  1157.   
  1158. ! # endif    ERROR_CHECK
  1159.   
  1160.       lea    sp@(4),a0    | pointer to parameters u and v
  1161.       moveml    d2-d5,sp@-    | save registers
  1162.       moveml    a0@,d4/d5    | d4 = u, d5 = v
  1163. --- 37,60 ----
  1164.       rts
  1165.   
  1166.   no_exception:
  1167. + #endif    ERROR_CHECK
  1168.   
  1169. ! #ifndef sfp004
  1170. ! |
  1171. ! | written by Kai-Uwe Bloem (I5110401@dbstu1.bitnet).
  1172. ! | Based on a 80x86 floating point packet from comp.os.minix, written by P.Housel
  1173. ! |
  1174. ! | Revision 1.2, kub 01-90 :
  1175. ! | added support for denormalized numbers
  1176. ! |
  1177. ! | Revision 1.1, kub 12-89 :
  1178. ! | Created single float version for 68000
  1179. ! |
  1180. ! | Revision 1.0:
  1181. ! | original 8088 code from P.S.Housel for double floats
  1182.   
  1183. + BIAS4    =    0x7F-1
  1184. + 
  1185.       lea    sp@(4),a0    | pointer to parameters u and v
  1186.       moveml    d2-d5,sp@-    | save registers
  1187.       moveml    a0@,d4/d5    | d4 = u, d5 = v
  1188. ***************
  1189. *** 140,147 ****
  1190.       bclr    #31,d0        |
  1191.       rts
  1192.   # endif    ERROR_CHECK
  1193. ! #endif    /* !__M68881__ && !sfp004    */
  1194. ! #ifdef    sfp004
  1195.   
  1196.   | single precision floating point stuff for Atari-gcc using the SFP004
  1197.   | or compatible boards with a memory mapped 68881 
  1198. --- 136,142 ----
  1199.       bclr    #31,d0        |
  1200.       rts
  1201.   # endif    ERROR_CHECK
  1202. ! #else
  1203.   
  1204.   | single precision floating point stuff for Atari-gcc using the SFP004
  1205.   | or compatible boards with a memory mapped 68881 
  1206. ***************
  1207. *** 172,221 ****
  1208.   | is coded directly by
  1209.   |    .long    0x0c688900, 0xfff067f8
  1210.   
  1211. ! 
  1212. !     .text
  1213. !     .even
  1214. !     .globl    __divsf3, ___divsf3
  1215. ! 
  1216. ! #ifdef    ERROR_CHECK
  1217. ! LC0:
  1218. !     .ascii "FLOATING POINT DIVISION by 0\12\15\0"
  1219. !     .even
  1220. ! #endif    ERROR_CHECK
  1221. ! 
  1222. ! __divsf3:
  1223. ! ___divsf3:
  1224. ! 
  1225. ! #ifdef    ERROR_CHECK
  1226. !     tstl    a7@(8)            | check if divisor is 0
  1227. !     bne    no_exception
  1228. ! 
  1229. !     moveml    d0-d7/a0-a6,a7@-    | print error message
  1230. !     pea    LC0
  1231. !     movew    #9,a7@-
  1232. !     trap    #1
  1233. !     addql    #6,a7
  1234. !     moveml    a7@+,d0-d7/a0-a6
  1235. !                     | set _errno to ERANGE
  1236. ! #ifdef __MSHORT__
  1237. !     movew    #63,_errno
  1238. ! #else
  1239. !     movel    #63,_errno
  1240. ! #endif
  1241. !     movel    __infinitysf,d0        | return signed infinity 
  1242. !     btst    #31,a7@(4)        | transfer sign of dividend
  1243. !     beq    clear            | (mjr++)
  1244. !     bset    #31,d0            |
  1245. !     rts                |
  1246. ! clear:                    |
  1247. !     bclr    #31,d0            |
  1248. !     rts
  1249. ! 
  1250. ! no_exception:
  1251. ! 
  1252. ! #endif    ERROR_CHECK
  1253. ! 
  1254. !     lea    0xfffa50,a0
  1255.       movew    #0x4400,a0@(comm)    | load first argument to fp0
  1256.       cmpiw    #0x8900,a0@(resp)    | check
  1257.       movel    a7@(4),a0@
  1258. --- 167,173 ----
  1259.   | is coded directly by
  1260.   |    .long    0x0c688900, 0xfff067f8
  1261.   
  1262. !     lea    0xfffffa50:w,a0
  1263.       movew    #0x4400,a0@(comm)    | load first argument to fp0
  1264.       cmpiw    #0x8900,a0@(resp)    | check
  1265.       movel    a7@(4),a0@
  1266. ***************
  1267. *** 228,230 ****
  1268. --- 180,183 ----
  1269.       rts                | if ERROR_CHECK is disabled
  1270.   
  1271.   #endif    sfp004
  1272. + #endif /* !__M68881__ */
  1273. *** 1.1    1992/02/04 17:11:06
  1274. --- _extends.cpp    1992/10/09 20:46:13
  1275. ***************
  1276. *** 1,12 ****
  1277. - #ifndef    __M68881__
  1278. - # ifndef sfp004
  1279.   |
  1280.   | single float to double float conversion routine
  1281.   |
  1282.   | written by Kai-Uwe Bloem (I5110401@dbstu1.bitnet).
  1283.   | Based on a 80x86 floating point packet from comp.os.minix, written by P.Housel
  1284.   |
  1285. - |
  1286.   | Revision 1.2, kub 01-90 :
  1287.   | added support for denormalized numbers
  1288.   |
  1289. --- 1,19 ----
  1290.   |
  1291.   | single float to double float conversion routine
  1292.   |
  1293. +     .text
  1294. +     .even
  1295. +     .globl    __extendsfdf2, ___extendsfdf2
  1296. + 
  1297. + __extendsfdf2:
  1298. + ___extendsfdf2:
  1299. + 
  1300. + #ifndef    __M68881__
  1301. + # ifndef sfp004
  1302. + |
  1303.   | written by Kai-Uwe Bloem (I5110401@dbstu1.bitnet).
  1304.   | Based on a 80x86 floating point packet from comp.os.minix, written by P.Housel
  1305.   |
  1306.   | Revision 1.2, kub 01-90 :
  1307.   | added support for denormalized numbers
  1308.   |
  1309. ***************
  1310. *** 19,30 ****
  1311.   BIAS4    =    0x7F-1
  1312.   BIAS8    =    0x3FF-1
  1313.   
  1314. -     .text
  1315. -     .even
  1316. -     .globl    __extendsfdf2, ___extendsfdf2
  1317. - 
  1318. - __extendsfdf2:
  1319. - ___extendsfdf2:
  1320.       lea    sp@(4),a0    | parameter pointer
  1321.       moveml    d2-d7,sp@-    | save regs to keep norm_df happy
  1322.       movel    a0@,d4        | get number
  1323. --- 26,31 ----
  1324. ***************
  1325. *** 76,88 ****
  1326.   | is coded directly by
  1327.   |    .long    0x0c688900, 0xfff067f8
  1328.   
  1329. !     .text
  1330. !     .even
  1331. !     .globl    __extendsfdf2, ___extendsfdf2
  1332. ! 
  1333. ! __extendsfdf2:
  1334. ! ___extendsfdf2:
  1335. !     lea    0xfffa50,a0
  1336.       movew    #0x4400,a0@(comm)    | load argument to fp0
  1337.       cmpiw    #0x8900,a0@(resp)    | check
  1338.       movel    a7@(4),a0@        | now push arg
  1339. --- 77,83 ----
  1340.   | is coded directly by
  1341.   |    .long    0x0c688900, 0xfff067f8
  1342.   
  1343. !     lea    0xfffffa50:w,a0
  1344.       movew    #0x4400,a0@(comm)    | load argument to fp0
  1345.       cmpiw    #0x8900,a0@(resp)    | check
  1346.       movel    a7@(4),a0@        | now push arg
  1347. ***************
  1348. *** 110,121 ****
  1349.   | no NAN checking implemented since the 68881 treats this situation "correct",
  1350.   | i.e. according to IEEE
  1351.   
  1352. -     .text
  1353. -     .even
  1354. -     .globl    __extendsfdf2, ___extendsfdf2
  1355. - 
  1356. - __extendsfdf2:
  1357. - ___extendsfdf2:
  1358.       fmoves    a7@(4),fp0    | load argument to fp0
  1359.       fmoved    fp0,a7@-    | read back as double
  1360.       moveml    a7@+,d0-d1
  1361. --- 105,110 ----
  1362. *** 1.2    1992/04/13 15:50:45
  1363. --- _fixdfsi.cpp    1992/10/09 20:46:13
  1364. ***************
  1365. *** 2,21 ****
  1366.   |  double float to long conversion routine
  1367.   |
  1368.   | M. Ritzert (ritzert@DFG.DBP.DE)
  1369. - 
  1370.       .text
  1371.       .even
  1372.   
  1373.   #ifdef ERROR_CHECK
  1374. ! 
  1375.   _Overflow:
  1376.       .ascii "OVERFLOW\0"
  1377.   _Error_String:
  1378.       .ascii "_fixdfsi: %s error\n\0"
  1379.   .even
  1380. - 
  1381.   #endif ERROR_CHECK
  1382.   
  1383.   #ifdef sfp004
  1384.   |
  1385.   | 4.10.1990/10.1.1992
  1386. --- 2,23 ----
  1387.   |  double float to long conversion routine
  1388.   |
  1389.   | M. Ritzert (ritzert@DFG.DBP.DE)
  1390.       .text
  1391.       .even
  1392. +     .globl    __fixdfsi, ___fixdfsi
  1393.   
  1394.   #ifdef ERROR_CHECK
  1395. ! #include "errbase.h"
  1396.   _Overflow:
  1397.       .ascii "OVERFLOW\0"
  1398.   _Error_String:
  1399.       .ascii "_fixdfsi: %s error\n\0"
  1400.   .even
  1401.   #endif ERROR_CHECK
  1402.   
  1403. + __fixdfsi:
  1404. + ___fixdfsi:
  1405. + 
  1406.   #ifdef sfp004
  1407.   |
  1408.   | 4.10.1990/10.1.1992
  1409. ***************
  1410. *** 35,44 ****
  1411.   | is coded directly by
  1412.   |    .long    0x0c688900, 0xfff067f8
  1413.   
  1414. !     .globl    __fixdfsi, ___fixdfsi
  1415. ! __fixdfsi:
  1416. ! ___fixdfsi:
  1417. !     lea    0xfffa50,a0
  1418.       movew    #0x5403,a0@(comm)    | fintrz to fp0
  1419.       cmpiw    #0x8900,a0@(resp)    | check
  1420.       movel    a7@(4),a0@
  1421. --- 37,43 ----
  1422.   | is coded directly by
  1423.   |    .long    0x0c688900, 0xfff067f8
  1424.   
  1425. !     lea    0xfffffa50:w,a0
  1426.       movew    #0x5403,a0@(comm)    | fintrz to fp0
  1427.       cmpiw    #0x8900,a0@(resp)    | check
  1428.       movel    a7@(4),a0@
  1429. ***************
  1430. *** 62,70 ****
  1431.   | 30.11.1991/10.1.1992
  1432.   |
  1433.   
  1434. -     .globl    __fixdfsi, ___fixdfsi
  1435. - __fixdfsi:
  1436. - ___fixdfsi:
  1437.       fintrzd sp@(4),fp0        | convert the arg
  1438.       fmovel fp0,d0            | return
  1439.   
  1440. --- 61,66 ----
  1441. ***************
  1442. *** 97,108 ****
  1443.   
  1444.   BIAS8    =    0x3FF-1
  1445.   
  1446. -     .text
  1447. -     .even
  1448. -     .globl    __fixdfsi, ___fixdfsi
  1449. - 
  1450. - __fixdfsi:
  1451. - ___fixdfsi:
  1452.       lea    sp@(4),a0    | pointer to parameters
  1453.       moveml    d2/d3,sp@-    | save registers
  1454.       moveml    a0@,d0-d1    | get the number
  1455. --- 93,98 ----
  1456. ***************
  1457. *** 154,191 ****
  1458.   
  1459.   toobig:
  1460.       movel    #0x7fffffff,d0    | ugh. Should cause a trap here.
  1461.   
  1462. ! #endif !defined (sfp004) && !defined (__M68881__)
  1463.   
  1464.   #ifdef    ERROR_CHECK
  1465.   
  1466.   | all three versions
  1467.       cmpil    #0x7fffffff,d0    | >= long_max
  1468. !     bge    error_plus    |
  1469.       cmpil    #-0x7fffffff,d0    | <= long_min ?
  1470. !     ble    error_minus    |
  1471. !     rts            |
  1472. ! error_minus:
  1473. !     moveml    d0-d1,a7@-
  1474. !     movel    #63,_errno    | errno = ERANGE
  1475. !     pea    _Overflow    | for printf
  1476. !     bra    error_exit    |
  1477. ! error_plus:
  1478.       moveml    d0-d1,a7@-
  1479. !     movel    #63,_errno    | errno = ERANGE
  1480. !     pea    _Overflow    | for printf
  1481. !     bra    error_exit    |
  1482. ! 
  1483. ! error_exit:
  1484. !     pea    _Error_String    |
  1485. !     pea    __iob+52    |
  1486.       jbsr    _fprintf    |
  1487.       addl    #12,a7        |
  1488.       moveml    a7@+,d0-d1
  1489. ! #endif    ERROR_CHECK
  1490.   
  1491. - # if !defined (sfp004) && !defined (__M68881__)
  1492. -     bra    8b
  1493. - #else
  1494.       rts
  1495. - #endif
  1496. --- 144,171 ----
  1497.   
  1498.   toobig:
  1499.       movel    #0x7fffffff,d0    | ugh. Should cause a trap here.
  1500. +     moveml    sp@+,d2/d3
  1501.   
  1502. ! #endif /* !defined (sfp004) && !defined (__M68881__) */
  1503.   
  1504.   #ifdef    ERROR_CHECK
  1505.   
  1506.   | all three versions
  1507.       cmpil    #0x7fffffff,d0    | >= long_max
  1508. !     bge    error_msg
  1509.       cmpil    #-0x7fffffff,d0    | <= long_min ?
  1510. !     ble    error_msg
  1511. !     rts
  1512. ! error_msg:
  1513.       moveml    d0-d1,a7@-
  1514. !     moveq    #ERANGE,d0
  1515. !     Emove    d0,Errno
  1516. !     pea    pc@(_Overflow)    | for printf
  1517. !     pea    pc@(_Error_String)    |
  1518. !     pea    Stderr
  1519.       jbsr    _fprintf    |
  1520.       addl    #12,a7        |
  1521.       moveml    a7@+,d0-d1
  1522. ! #endif    /* ERROR_CHECK */
  1523.   
  1524.       rts
  1525. *** 1.1    1992/04/13 15:50:45
  1526. --- _fixsfsi.cpp    1992/10/09 20:46:13
  1527. ***************
  1528. *** 9,14 ****
  1529. --- 9,17 ----
  1530.   
  1531.       .text
  1532.       .even
  1533. +     .globl    ___fixsfsi
  1534. + 
  1535. + ___fixsfsi:
  1536.   
  1537.   #ifdef sfp004
  1538.   
  1539. ***************
  1540. *** 16,24 ****
  1541.   resp =    -16
  1542.   zahl =      0
  1543.   
  1544. !     .globl    ___fixsfsi
  1545. ! ___fixdfsi:
  1546. !     lea    0xfffa50,a0
  1547.       movew    #0x5403,a0@(comm)    | fintrz to fp0
  1548.       cmpiw    #0x8900,a0@(resp)    | check
  1549.       movel    a7@(4),a0@
  1550. --- 19,25 ----
  1551.   resp =    -16
  1552.   zahl =      0
  1553.   
  1554. !     lea    0xfffffa50:w,a0
  1555.       movew    #0x5403,a0@(comm)    | fintrz to fp0
  1556.       cmpiw    #0x8900,a0@(resp)    | check
  1557.       movel    a7@(4),a0@
  1558. ***************
  1559. *** 33,40 ****
  1560.   
  1561.   BIAS4    =    0x7F-1
  1562.   
  1563. -     .globl    ___fixsfsi
  1564. - ___fixsfsi:
  1565.       movel    sp@(4),d0    | get number
  1566.       movel    d2,sp@-        | save register
  1567.       movel    d0,d1
  1568. --- 34,39 ----
  1569. *** 1.2    1992/06/01 01:54:10
  1570. --- _fltsi.cpp    1992/10/09 20:46:13
  1571. ***************
  1572. *** 1,11 ****
  1573. - #ifdef __M68881__
  1574.   |
  1575.   | long integer to double float conversion routine
  1576.   |
  1577. - | Written by M.Ritzert
  1578. - | 22.11.91
  1579. - | ritzert@dfg.dbp.de
  1580. - |
  1581.       .text
  1582.       .even
  1583.       .globl    __floatsidf, ___floatsidf
  1584. --- 1,6 ----
  1585. ***************
  1586. *** 12,17 ****
  1587. --- 7,18 ----
  1588.   
  1589.   __floatsidf:
  1590.   ___floatsidf:
  1591. + #ifdef __M68881__
  1592. + |
  1593. + | Written by M.Ritzert
  1594. + | 22.11.91
  1595. + | ritzert@dfg.dbp.de
  1596. + |
  1597.       fintrzd a7@(4),fp0        | load long int to fp0
  1598.       fmoved    fp0,a7@-        | get double from fp0
  1599.       moveml    a7@+,d0-d1
  1600. ***************
  1601. *** 19,26 ****
  1602.   
  1603.   #endif    __M68881__
  1604.   #ifdef    sfp004
  1605. - 
  1606. - | long integer to double float conversion routine
  1607.   |
  1608.   | Written by M.Ritzert
  1609.   | 5.10.90
  1610. --- 20,25 ----
  1611. ***************
  1612. *** 42,54 ****
  1613.   | is coded directly by
  1614.   |    .long    0x0c688900, 0xfff067f8
  1615.   
  1616. !     .text
  1617. !     .even
  1618. !     .globl    __floatsidf, ___floatsidf
  1619. ! 
  1620. ! __floatsidf:
  1621. ! ___floatsidf:
  1622. !     lea    0xfffa50,a0
  1623.       movew    #0x4000,a0@(comm)    | load long int to fp0
  1624.       cmpiw    #0x8900,a0@(resp)    | check
  1625.       movel    a7@(4),a0@
  1626. --- 41,47 ----
  1627.   | is coded directly by
  1628.   |    .long    0x0c688900, 0xfff067f8
  1629.   
  1630. !     lea    0xfffffa50:w,a0
  1631.       movew    #0x4000,a0@(comm)    | load long int to fp0
  1632.       cmpiw    #0x8900,a0@(resp)    | check
  1633.       movel    a7@(4),a0@
  1634. ***************
  1635. *** 60,72 ****
  1636.   
  1637.   #endif    sfp004
  1638.   #if !defined    (__M68881__) && !defined (sfp004)
  1639. - 
  1640. - | long integer to double float conversion routine
  1641.   |
  1642.   | written by Kai-Uwe Bloem (I5110401@dbstu1.bitnet).
  1643.   | Based on a 80x86 floating point packet from comp.os.minix, written by P.Housel
  1644.   |
  1645. - |
  1646.   | Revision 1.2, kub 01-90 :
  1647.   | added support for denormalized numbers
  1648.   |
  1649. --- 53,62 ----
  1650. ***************
  1651. *** 78,89 ****
  1652.   
  1653.   BIAS8    =    0x3FF-1
  1654.   
  1655. -     .text
  1656. -     .even
  1657. -     .globl    __floatsidf, ___floatsidf
  1658. - 
  1659. - __floatsidf:
  1660. - ___floatsidf:
  1661.       movel    sp@(4),d0    | get the 4-byte integer
  1662.       moveml    d2-d7,sp@-    | save registers to make norm_df happy
  1663.   
  1664. --- 68,73 ----
  1665. *** 1.1    1992/04/13 15:50:45
  1666. --- _fltsisf.cpp    1992/10/09 20:46:13
  1667. ***************
  1668. *** 5,11 ****
  1669. --- 5,15 ----
  1670.   |  mostly copied from _floatsi.cpp
  1671.   
  1672.   #ifndef __M68881__
  1673. +     .text
  1674. +     .even
  1675. +     .globl    ___floatsisf
  1676.   
  1677. + ___floatsisf:
  1678.   #ifdef    sfp004
  1679.   
  1680.   | addresses of the 68881 data port. This choice is fastest when much data is
  1681. ***************
  1682. *** 15,26 ****
  1683.   resp =    -16    |    fpu response reg
  1684.   zahl =      0    |    fpu data reg
  1685.   
  1686. !     .text
  1687. !     .even
  1688. !     .globl    ___floatsisf
  1689. ! 
  1690. ! ___floatsisf:
  1691. !     lea    0xfffa50,a0
  1692.       movew    #0x4000,a0@(comm)    | load long int to fp0
  1693.       cmpiw    #0x8900,a0@(resp)    | check
  1694.       movel    a7@(4),a0@
  1695. --- 19,25 ----
  1696.   resp =    -16    |    fpu response reg
  1697.   zahl =      0    |    fpu data reg
  1698.   
  1699. !     lea    0xfffffa50:w,a0
  1700.       movew    #0x4000,a0@(comm)    | load long int to fp0
  1701.       cmpiw    #0x8900,a0@(resp)    | check
  1702.       movel    a7@(4),a0@
  1703. ***************
  1704. *** 35,45 ****
  1705.   
  1706.   BIAS4    =    0x7F-1
  1707.   
  1708. -     .text
  1709. -     .even
  1710. -     .globl    ___floatsisf
  1711. - 
  1712. - ___floatsisf:
  1713.       moveml    d2-d5,sp@-    | save registers to make norm_sf happy
  1714.   
  1715.       movel    sp@(20),d4    | prepare result mantissa
  1716. --- 34,39 ----
  1717. *** 1.1    1992/02/04 17:11:06
  1718. --- _fxunsd.cpp    1992/10/09 20:46:13
  1719. ***************
  1720. *** 4,12 ****
  1721.   | mjr
  1722.       .text
  1723.       .even
  1724.   
  1725.   #ifdef ERROR_CHECK
  1726. ! 
  1727.   _Overflow:
  1728.       .ascii "OVERFLOW\0"
  1729.   _Negative:
  1730. --- 4,13 ----
  1731.   | mjr
  1732.       .text
  1733.       .even
  1734. +     .globl    __fixunsdfsi, ___fixunsdfsi
  1735.   
  1736.   #ifdef ERROR_CHECK
  1737. ! #include "errbase.h"
  1738.   _Overflow:
  1739.       .ascii "OVERFLOW\0"
  1740.   _Negative:
  1741. ***************
  1742. *** 14,29 ****
  1743.   _Error_String:
  1744.       .ascii "_fixunsdfsi: %s error\n\0"
  1745.   .even
  1746. - 
  1747.   #endif ERROR_CHECK
  1748.   
  1749. - #ifdef __M68881__
  1750. - 
  1751. -     .globl    __fixunsdfsi, ___fixunsdfsi
  1752. - 
  1753.   __fixunsdfsi:
  1754.   ___fixunsdfsi:
  1755.   
  1756.       fintrzd a7@(4),fp0        | convert
  1757.       fmovel    fp0,d0
  1758.   
  1759. --- 15,36 ----
  1760.   _Error_String:
  1761.       .ascii "_fixunsdfsi: %s error\n\0"
  1762.   .even
  1763.   #endif ERROR_CHECK
  1764.   
  1765.   __fixunsdfsi:
  1766.   ___fixunsdfsi:
  1767.   
  1768. + #ifdef ERROR_CHECK
  1769. +     tstl    a7@(4)            | negative?
  1770. +     beq    Continue
  1771. +     moveq    #ERANGE,d0
  1772. +     Emove    d0,Errno
  1773. +     pea    pc@(_Negative)
  1774. +     bra    error_exit
  1775. + Continue:
  1776. + #endif /* ERROR_CHECK */
  1777. + #ifdef __M68881__
  1778. + 
  1779.       fintrzd a7@(4),fp0        | convert
  1780.       fmovel    fp0,d0
  1781.   
  1782. ***************
  1783. *** 38,52 ****
  1784.   resp =    -16
  1785.   zahl =      0
  1786.   
  1787. !     .text
  1788. !     .even
  1789. !     .globl    __fixunsdfsi, ___fixunsdfsi
  1790. ! 
  1791. ! __fixunsdfsi:
  1792. ! ___fixunsdfsi:
  1793. !     lea    0xfffa50,a0
  1794. !     tstl    a4@(4)            | negative?
  1795. !     bne    Negative
  1796.       movew    #0x5403,a0@(comm)    | fintrz to fp0
  1797.       cmpiw    #0x8900,a0@(resp)    | check
  1798.       movel    a7@(4),a0@
  1799. --- 45,51 ----
  1800.   resp =    -16
  1801.   zahl =      0
  1802.   
  1803. !     lea    0xfffffa50:w,a0
  1804.       movew    #0x5403,a0@(comm)    | fintrz to fp0
  1805.       cmpiw    #0x8900,a0@(resp)    | check
  1806.       movel    a7@(4),a0@
  1807. ***************
  1808. *** 54,91 ****
  1809.       movew    #0x6000,a0@(comm)    | result to d0
  1810.       .long    0x0c688900, 0xfff067f8
  1811.       movel    a0@,d0
  1812. !     bra    Continue
  1813. ! Negative:
  1814. !     clrl    d0
  1815. ! Continue:
  1816. ! # endif    sfp004
  1817. ! 
  1818. ! # ifdef    ERROR_CHECK
  1819. !     cmpil    #0x7fffffff,d0    | >= long_max
  1820. !     bge    error_plus    |
  1821. !     cmpil    #0,d0        | < 0 ?
  1822. !     blt    error_minus    |
  1823. !     rts            |
  1824. ! error_minus:
  1825. !     moveml    d0-d1,a7@-
  1826. !     movel    #63,_errno    | errno = ERANGE
  1827. !     pea    _Negative    | for printf
  1828. !     bra    error_exit    |
  1829. ! error_plus:
  1830. !     moveml    d0-d1,a7@-
  1831. !     movel    #63,_errno    | errno = ERANGE
  1832. !     pea    _Overflow    | for printf
  1833. !     bra    error_exit    |
  1834. ! error_exit:
  1835. !     pea    _Error_String    |
  1836. !     pea    __iob+52    |
  1837. !     jbsr    _fprintf    |
  1838. !     addl    #12,a7        |
  1839. !     moveml    a7@+,d0-d1
  1840. !     rts
  1841. ! # else     ERROR_CHECK
  1842. !     rts
  1843. ! # endif    ERROR_CHECK
  1844.   
  1845.   # if !defined (sfp004) && !defined (__M68881__)
  1846.   
  1847. --- 53,59 ----
  1848.       movew    #0x6000,a0@(comm)    | result to d0
  1849.       .long    0x0c688900, 0xfff067f8
  1850.       movel    a0@,d0
  1851. ! #endif    sfp004
  1852.   
  1853.   # if !defined (sfp004) && !defined (__M68881__)
  1854.   
  1855. ***************
  1856. *** 109,120 ****
  1857.   
  1858.   BIAS8    =    0x3FF-1
  1859.   
  1860. -     .text
  1861. -     .even
  1862. -     .globl    __fixunsdfsi, ___fixunsdfsi
  1863. - 
  1864. - __fixunsdfsi:
  1865. - ___fixunsdfsi:
  1866.       lea    sp@(4),a0    | pointer to parameters
  1867.       moveml    d4/d5,sp@-    | save registers
  1868.       moveml    a0@,d4-d5    | get the number
  1869. --- 77,82 ----
  1870. ***************
  1871. *** 164,170 ****
  1872.       bra    7b
  1873.   
  1874.   toobig:
  1875.       movel    #0x7fffffff,d0    | ugh. Should cause a trap here.
  1876. -     bra    7b
  1877. - 
  1878.   #endif
  1879. --- 126,150 ----
  1880.       bra    7b
  1881.   
  1882.   toobig:
  1883. +     moveml    sp@+,d4/d5
  1884.       movel    #0x7fffffff,d0    | ugh. Should cause a trap here.
  1885.   #endif
  1886. + 
  1887. + #ifdef    ERROR_CHECK
  1888. +     cmpil    #0x7fffffff,d0    | >= long_max
  1889. +     bge    error_plus    |
  1890. +     rts
  1891. + error_plus:
  1892. +     moveml    d0-d1,a7@-
  1893. +     moveq    #ERANGE,d0
  1894. +     Emove    d0,Errno
  1895. +     pea    pc@(_Overflow)    | for printf
  1896. + error_exit:
  1897. +     pea    pc@(_Error_String)    |
  1898. +     pea    Stderr
  1899. +     jbsr    _fprintf    |
  1900. +     addl    #12,a7        |
  1901. +     moveml    a7@+,d0-d1
  1902. + #endif    ERROR_CHECK
  1903. +     rts
  1904. + 
  1905. *** 1.1    1992/02/04 17:11:06
  1906. --- _muldf3.cpp    1992/10/09 20:46:13
  1907. ***************
  1908. *** 1,6 ****
  1909. --- 1,13 ----
  1910.   | mjr: not needed on the TT
  1911.   
  1912.   #ifndef    __M68881__
  1913. +     .text
  1914. +     .even
  1915. +     .globl    __muldf3, ___muldf3
  1916. + 
  1917. + __muldf3:
  1918. + ___muldf3:
  1919. + 
  1920.   # ifdef    sfp004
  1921.   
  1922.   | double precision floating point stuff for Atari-gcc using the SFP004
  1923. ***************
  1924. *** 30,42 ****
  1925.   | is coded directly by
  1926.   |    .long    0x0c688900, 0xfff067f8
  1927.   
  1928. !     .text
  1929. !     .even
  1930. !     .globl    __muldf3, ___muldf3
  1931. ! 
  1932. ! __muldf3:
  1933. ! ___muldf3:
  1934. !     lea    0xfffa50,a0
  1935.       movew    #0x5400,a0@(comm)    | load first argument to fp0
  1936.       cmpiw    #0x8900,a0@(resp)    | check
  1937.       movel    a7@(4),a0@
  1938. --- 37,43 ----
  1939.   | is coded directly by
  1940.   |    .long    0x0c688900, 0xfff067f8
  1941.   
  1942. !     lea    0xfffffa50:w,a0
  1943.       movew    #0x5400,a0@(comm)    | load first argument to fp0
  1944.       cmpiw    #0x8900,a0@(resp)    | check
  1945.       movel    a7@(4),a0@
  1946. ***************
  1947. *** 70,81 ****
  1948.   
  1949.   BIAS8    =    0x3FF-1
  1950.   
  1951. -     .text
  1952. -     .even
  1953. -     .globl    __muldf3, ___muldf3
  1954. - 
  1955. - __muldf3:
  1956. - ___muldf3:
  1957.       lea    sp@(4),a0
  1958.       moveml    d2-d7,sp@-
  1959.       moveml    a0@,d4-d5/d6-d7 | d4-d5 = v, d6-d7 = u
  1960. --- 71,76 ----
  1961. *** 1.1    1992/02/04 17:11:06
  1962. --- _mulsf3.cpp    1992/10/09 20:46:14
  1963. ***************
  1964. *** 1,6 ****
  1965. --- 1,14 ----
  1966.   | mjr: not needed on the TT
  1967.   
  1968.   #ifndef    __M68881__
  1969. + 
  1970. +     .text
  1971. +     .even
  1972. +     .globl    __mulsf3, ___mulsf3
  1973. + 
  1974. + __mulsf3:
  1975. + ___mulsf3:
  1976. + 
  1977.   # ifdef    sfp004
  1978.   
  1979.   | single precision floating point stuff for Atari-gcc using the SFP004
  1980. ***************
  1981. *** 19,31 ****
  1982.   resp =    -16
  1983.   zahl =      0
  1984.   
  1985. !     .text
  1986. !     .even
  1987. !     .globl    __mulsf3, ___mulsf3
  1988. ! 
  1989. ! __mulsf3:
  1990. ! ___mulsf3:
  1991. !     lea    0xfffa50,a0
  1992.       movew    #0x4400,a0@(comm)    | load first argument to fp0
  1993.       cmpiw    #0x8900,a0@(resp)    | check
  1994.       movel    a7@(4),a0@
  1995. --- 27,33 ----
  1996.   resp =    -16
  1997.   zahl =      0
  1998.   
  1999. !     lea    0xfffffa50:w,a0
  2000.       movew    #0x4400,a0@(comm)    | load first argument to fp0
  2001.       cmpiw    #0x8900,a0@(resp)    | check
  2002.       movel    a7@(4),a0@
  2003. ***************
  2004. *** 57,68 ****
  2005.   
  2006.   BIAS4    =    0x7F-1
  2007.   
  2008. -     .text
  2009. -     .even
  2010. -     .globl    __mulsf3, ___mulsf3
  2011. - 
  2012. - __mulsf3:
  2013. - ___mulsf3:
  2014.       lea    sp@(4),a0
  2015.       moveml    d2-d5,sp@-
  2016.       moveml    a0@,d4/d5    | d4 = v, d5 = u
  2017. --- 59,64 ----
  2018. *** 1.1    1990/03/26 17:37:17
  2019. --- _negdf2.s    1992/10/09 20:46:14
  2020. ***************
  2021. *** 20,24 ****
  2022.       orl    sp@(8),d0
  2023.       moveml    sp@(4),d0-d1    | get number
  2024.       beq    0f
  2025. !     eorl    #0x80000000,d0    | flip sign bit
  2026.   0:    rts
  2027. --- 20,24 ----
  2028.       orl    sp@(8),d0
  2029.       moveml    sp@(4),d0-d1    | get number
  2030.       beq    0f
  2031. !     bchg    #31,d0        | flip sign bit
  2032.   0:    rts
  2033. *** 1.1    1990/03/26 17:37:18
  2034. --- _negsf2.s    1992/10/09 20:46:14
  2035. ***************
  2036. *** 18,22 ****
  2037.   ___negsf2:
  2038.       movel    sp@(4),d0    | do not negate if operand is 0.0
  2039.       beq    0f
  2040. !     eorl    #0x80000000,d0    | flip sign bit
  2041.   0:    rts
  2042. --- 18,22 ----
  2043.   ___negsf2:
  2044.       movel    sp@(4),d0    | do not negate if operand is 0.0
  2045.       beq    0f
  2046. !     bchg    #31,d0        | flip sign bit
  2047.   0:    rts
  2048. *** 1.4    1992/02/04 17:11:06
  2049. --- _normdf.cpp    1992/10/09 20:46:14
  2050. ***************
  2051. *** 43,49 ****
  2052.   #if !defined (__M68881__) && !defined (sfp004)
  2053.       .globl    ___normdf
  2054.       .globl    norm_df
  2055. ! 
  2056.   # ifdef    ERROR_CHECK
  2057.   LC0:
  2058.       .ascii "normdf: OVERFLOW\12\15\0"
  2059. --- 43,49 ----
  2060.   #if !defined (__M68881__) && !defined (sfp004)
  2061.       .globl    ___normdf
  2062.       .globl    norm_df
  2063. ! #include "errbase.h"
  2064.   # ifdef    ERROR_CHECK
  2065.   LC0:
  2066.       .ascii "normdf: OVERFLOW\12\15\0"
  2067. ***************
  2068. *** 163,177 ****
  2069.       moveml    sp@+,d2-d7
  2070.       rts
  2071.   
  2072. -     .globl    _errno        | from <errno.h>
  2073. - ERANGE    =    63
  2074. - 
  2075.   retz:
  2076. ! # ifdef __MSHORT__
  2077. !     movew    #ERANGE,_errno    | set errno
  2078. ! # else
  2079. !     movel    #ERANGE,_errno    | set errno
  2080. ! # endif
  2081.       clrl    d0        | return zero value
  2082.       clrl    d1
  2083.       moveml    sp@+,d2-d7
  2084. --- 163,171 ----
  2085.       moveml    sp@+,d2-d7
  2086.       rts
  2087.   
  2088.   retz:
  2089. !     moveq    #ERANGE,d0
  2090. !     Emove    d0,Errno
  2091.       clrl    d0        | return zero value
  2092.       clrl    d1
  2093.       moveml    sp@+,d2-d7
  2094. ***************
  2095. *** 178,199 ****
  2096.       rts
  2097.   
  2098.   oflow:
  2099. - 
  2100.   #ifdef    ERROR_CHECK
  2101. !     moveml    d0-d1,a7@-
  2102. !     pea    LC0
  2103. !     pea    __iob+52    |
  2104.       jbsr    _fprintf    |
  2105.       addql    #8,a7        |
  2106. !     moveml    a7@+,d0-d1
  2107. ! # ifdef __MSHORT__
  2108. !     movew    #ERANGE,_errno    | set errno
  2109. ! # else
  2110. !     movel    #ERANGE,_errno    | set errno
  2111. ! # endif
  2112.   #endif    ERROR_CHECK
  2113.   
  2114. !     moveml    __infinitydf,d0-d1 | return infinty value
  2115.       andw    #0x8000,d2    | get sign bit of argument
  2116.       swap    d2
  2117.       clrw    d2
  2118. --- 172,187 ----
  2119.       rts
  2120.   
  2121.   oflow:
  2122.   #ifdef    ERROR_CHECK
  2123. !     pea    pc@(LC0)
  2124. !     pea    Stderr
  2125.       jbsr    _fprintf    |
  2126.       addql    #8,a7        |
  2127. !     moveq    #ERANGE,d0
  2128. !     Emove    d0,Errno
  2129.   #endif    ERROR_CHECK
  2130.   
  2131. !     moveml    pc@(__infinitydf),d0-d1 | return infinity value
  2132.       andw    #0x8000,d2    | get sign bit of argument
  2133.       swap    d2
  2134.       clrw    d2
  2135. *** 1.1    1992/02/04 17:11:06
  2136. --- _normsf.cpp    1992/10/09 20:46:14
  2137. ***************
  2138. *** 31,37 ****
  2139.   #if !defined (__M68881__) && !defined (sfp004)
  2140.       .globl    ___normsf
  2141.       .globl    norm_sf
  2142. ! 
  2143.   #ifdef    ERROR_CHECK
  2144.   LC0:
  2145.       .ascii "normsf: OVERFLOW\12\15\0"
  2146. --- 31,37 ----
  2147.   #if !defined (__M68881__) && !defined (sfp004)
  2148.       .globl    ___normsf
  2149.       .globl    norm_sf
  2150. ! #include "errbase.h"
  2151.   #ifdef    ERROR_CHECK
  2152.   LC0:
  2153.       .ascii "normsf: OVERFLOW\12\15\0"
  2154. ***************
  2155. *** 116,122 ****
  2156.       moveml    sp@+,d2-d5
  2157.       rts
  2158.   
  2159. ! retz:    clrl    d0
  2160.       moveml    sp@+,d2-d5
  2161.       rts
  2162.   
  2163. --- 116,124 ----
  2164.       moveml    sp@+,d2-d5
  2165.       rts
  2166.   
  2167. ! retz:    moveq    #ERANGE,d0
  2168. !     Emove    d0,Errno
  2169. !     clrl    d0
  2170.       moveml    sp@+,d2-d5
  2171.       rts
  2172.   
  2173. ***************
  2174. *** 123,137 ****
  2175.   oflow:    
  2176.   
  2177.   #ifdef    ERROR_CHECK
  2178. !     moveml    d0-d1,a7@-
  2179. !     pea    LC0
  2180. !     pea    __iob+52    |
  2181.       jbsr    _fprintf    |
  2182.       addql    #8,a7        |
  2183. !     moveml    a7@+,d0-d1
  2184.   #endif    ERROR_CHECK
  2185.   
  2186. !     movel    __infinitysf,d0    | return infinty value
  2187.   
  2188.       btst    #15,d2        | transfer sign
  2189.       beq    ofl_clear    | (mjr++)
  2190. --- 125,139 ----
  2191.   oflow:    
  2192.   
  2193.   #ifdef    ERROR_CHECK
  2194. !     movel    d1,a7@-
  2195. !     pea    pc@(LC0)
  2196. !     pea    Stderr
  2197.       jbsr    _fprintf    |
  2198.       addql    #8,a7        |
  2199. !     movel    a7@+,d1
  2200.   #endif    ERROR_CHECK
  2201.   
  2202. !     movel    pc@(__infinitysf),d0    | return infinity value
  2203.   
  2204.       btst    #15,d2        | transfer sign
  2205.       beq    ofl_clear    | (mjr++)
  2206. *** 1.1    1992/02/04 17:11:06
  2207. --- _truncdf.cpp    1992/10/09 20:46:14
  2208. ***************
  2209. *** 1,6 ****
  2210. --- 1,12 ----
  2211.   | not needed with -__M68881__
  2212.   
  2213.   #ifndef    __M68881__
  2214. +     .text
  2215. +     .even
  2216. +     .globl    __truncdfsf2, ___truncdfsf2
  2217. + 
  2218. + __truncdfsf2:
  2219. + ___truncdfsf2:
  2220.   # ifdef    sfp004
  2221.   
  2222.   | double float to single float conversion routine
  2223. ***************
  2224. *** 26,38 ****
  2225.   | is coded directly by
  2226.   |    .long    0x0c688900, 0xfff067f8
  2227.   
  2228. !     .text
  2229. !     .even
  2230. !     .globl    __truncdfsf2, ___truncdfsf2
  2231. ! 
  2232. ! __truncdfsf2:
  2233. ! ___truncdfsf2:
  2234. !     lea    0xfffa50,a0
  2235.       movew    #0x5400,a0@(comm)    | load double to  fp0
  2236.       cmpiw    #0x8900,a0@(resp)    | check
  2237.       movel    a7@(4),a0@        | push arguments
  2238. --- 32,38 ----
  2239.   | is coded directly by
  2240.   |    .long    0x0c688900, 0xfff067f8
  2241.   
  2242. !     lea    0xfffffa50:w,a0
  2243.       movew    #0x5400,a0@(comm)    | load double to  fp0
  2244.       cmpiw    #0x8900,a0@(resp)    | check
  2245.       movel    a7@(4),a0@        | push arguments
  2246. ***************
  2247. *** 62,73 ****
  2248.   BIAS4    =    0x7F-1
  2249.   BIAS8    =    0x3FF-1
  2250.   
  2251. -     .text
  2252. -     .even
  2253. -     .globl    __truncdfsf2, ___truncdfsf2
  2254. - 
  2255. - __truncdfsf2:
  2256. - ___truncdfsf2:
  2257.       lea    sp@(4),a0    | parameter pointer
  2258.       moveml    d2-d5,sp@-    | save regs
  2259.       moveml    a0@,d4-d5    | get number
  2260. --- 62,67 ----
  2261. *** 1.8    1992/06/01 01:54:10
  2262. --- access.c    1992/10/09 20:46:15
  2263. ***************
  2264. *** 14,20 ****
  2265.       int mode;
  2266.   {
  2267.       struct stat sb;
  2268. -     int uid, gid;
  2269.   
  2270.       if (stat(path, &sb) < 0)
  2271.           return -1;    /* errno was set by stat() */
  2272. --- 14,19 ----
  2273. ***************
  2274. *** 24,30 ****
  2275.   /* somewhat crufty code -- relies on R_OK, etc. matching the bits in the
  2276.      file mode, but what the heck, we can do this
  2277.    */
  2278. !     if (__mint < 9 || ( (uid = geteuid()) == sb.st_uid ) ) {
  2279.           if ( ((sb.st_mode >> 6) & mode) == mode )
  2280.               return 0;
  2281.           else
  2282. --- 23,29 ----
  2283.   /* somewhat crufty code -- relies on R_OK, etc. matching the bits in the
  2284.      file mode, but what the heck, we can do this
  2285.    */
  2286. !     if (__mint < 9 || ( geteuid() == sb.st_uid ) ) {
  2287.           if ( ((sb.st_mode >> 6) & mode) == mode )
  2288.               return 0;
  2289.           else
  2290. ***************
  2291. *** 31,37 ****
  2292.               goto accdn;
  2293.       }
  2294.   
  2295. !     if ( (gid = getegid()) == sb.st_gid ) {
  2296.           if ( ((sb.st_mode >> 3) & mode) == mode )
  2297.               return 0;
  2298.           else
  2299. --- 30,36 ----
  2300.               goto accdn;
  2301.       }
  2302.   
  2303. !     if ( getegid() == sb.st_gid ) {
  2304.           if ( ((sb.st_mode >> 3) & mode) == mode )
  2305.               return 0;
  2306.           else
  2307. *** 1.6    1992/06/01 01:54:10
  2308. --- alloca.s    1992/10/09 20:46:15
  2309. ***************
  2310. *** 14,20 ****
  2311.       movel    sp@+,d0        | get size -- assist in bug fix, add 4 to sp
  2312.   
  2313.       addql    #1,d0        | ensure address even
  2314. !     andl    #0xFFFFFFFE,d0    | lop off extra bits
  2315.   
  2316.       subl    d0,sp        | increase stack frame size by that much
  2317.       movel    sp,d0        | set up to return it
  2318. --- 14,20 ----
  2319.       movel    sp@+,d0        | get size -- assist in bug fix, add 4 to sp
  2320.   
  2321.       addql    #1,d0        | ensure address even
  2322. !     bclr    #0,d0        | lop off odd bit
  2323.   
  2324.       subl    d0,sp        | increase stack frame size by that much
  2325.       movel    sp,d0        | set up to return it
  2326. *** 1.1    1991/04/12 18:19:53
  2327. --- alphasor.c    1992/10/09 20:46:15
  2328. ***************
  2329. *** 3,16 ****
  2330.   **  Trivial sorting predicate for scandir; puts entries in alphabetical order.
  2331.   */
  2332.   
  2333. ! #include <sys/types.h>
  2334. ! #include <sys/dir.h>
  2335.   #include <string.h>
  2336.   
  2337.   int
  2338.   alphasort(d1, d2)
  2339. !     struct direct    **d1;
  2340. !     struct direct    **d2;
  2341.   {
  2342.       return strcmp(d1[0]->d_name, d2[0]->d_name);
  2343.   }
  2344. --- 3,16 ----
  2345.   **  Trivial sorting predicate for scandir; puts entries in alphabetical order.
  2346.   */
  2347.   
  2348. ! #include <types.h>
  2349. ! #include <dirent.h>
  2350.   #include <string.h>
  2351.   
  2352.   int
  2353.   alphasort(d1, d2)
  2354. !     struct dirent    **d1;
  2355. !     struct dirent    **d2;
  2356.   {
  2357.       return strcmp(d1[0]->d_name, d2[0]->d_name);
  2358.   }
  2359. *** 1.21    1992/03/22 21:57:30
  2360. --- atof.c    1992/10/09 20:46:15
  2361. ***************
  2362. *** 77,83 ****
  2363. --- 77,86 ----
  2364.   
  2365.   static int __ten_mul __PROTO((double *acc, int digit));
  2366.   static double __adjust __PROTO((double *acc, int dexp, int sign));
  2367. + 
  2368. + #ifdef __OLD__
  2369.   static double __ten_pow __PROTO((double r, int e));
  2370. + #endif
  2371.   
  2372.   /*
  2373.    * mul 64 bit accumulator by 10 and add digit
  2374. ***************
  2375. *** 692,698 ****
  2376.   .even
  2377.   .text
  2378.   __Float_:
  2379. !     lea    0xfffa50,a0            | fpu address
  2380.   
  2381.       movew    #0x4092,a0@(comm)        | ftentoxl -> fp1
  2382.       .long    0x0c688900, 0xfff067f8
  2383. --- 695,701 ----
  2384.   .even
  2385.   .text
  2386.   __Float_:
  2387. !     lea    0xfffffa50:w,a0            | fpu address
  2388.   
  2389.       movew    #0x4092,a0@(comm)        | ftentoxl -> fp1
  2390.       .long    0x0c688900, 0xfff067f8
  2391. *** 1.11    1992/06/01 01:54:10
  2392. --- bcmp.c    1992/10/09 20:46:16
  2393. ***************
  2394. *** 3,9 ****
  2395.   #include <assert.h>
  2396.   
  2397.   #undef ODD
  2398. ! #define ODD(x) (((long)(x)) & 1)
  2399.   
  2400.   /*
  2401.    * compare n bytes efficientlty
  2402. --- 3,9 ----
  2403.   #include <assert.h>
  2404.   
  2405.   #undef ODD
  2406. ! #define ODD(x) (((long)(x)) & 1L)
  2407.   
  2408.   /*
  2409.    * compare n bytes efficientlty
  2410. *** 1.2    1992/08/14 14:48:29
  2411. --- binmode.c    1992/10/09 20:46:16
  2412. ***************
  2413. *** 7,13 ****
  2414.    *                ++jrb;
  2415.    */
  2416.   
  2417. - 
  2418.   #include <stdio.h>
  2419.   
  2420.   extern int __default_mode__;
  2421. --- 7,12 ----
  2422. *** 1.8    1992/06/01 01:54:10
  2423. --- bsearch.c    1992/10/09 20:46:16
  2424. ***************
  2425. *** 30,36 ****
  2426.       while(a <= b)
  2427.           {
  2428.           c = (a + b) >> 1;    /* == ((a + b) / 2) */
  2429. !         if (dir = (*cmp)((void *)((char *)base + (c * size)), key))
  2430.               {
  2431.               if (dir > 0)
  2432.               {
  2433. --- 30,36 ----
  2434.       while(a <= b)
  2435.           {
  2436.           c = (a + b) >> 1;    /* == ((a + b) / 2) */
  2437. !         if ((dir = (*cmp)((void *)((char *)base + (c * size)), key)) != 0)
  2438.               {
  2439.               if (dir > 0)
  2440.               {
  2441. *** 1.1    1992/06/01 01:54:10
  2442. --- calloc.c    1992/10/09 20:46:16
  2443. ***************
  2444. *** 10,15 ****
  2445. --- 10,16 ----
  2446.   
  2447.   __EXTERN void *_malloc __PROTO((unsigned long));
  2448.   __EXTERN void _bzero __PROTO((void *, unsigned long));
  2449. + __EXTERN void *_calloc __PROTO((unsigned long, unsigned long));
  2450.   
  2451.   #ifdef __GNUC__
  2452.   asm(".stabs \"_calloc\",5,0,0,__calloc"); /* dept of clean tricks */
  2453. *** 1.7    1992/06/24 15:32:04
  2454. --- chmod.c    1992/10/09 20:46:17
  2455. ***************
  2456. *** 24,30 ****
  2457.          (void)_unx2dos(_path, path);
  2458.   
  2459.       if (__mint >= 9) {    /* use MiNT Fchmod function */
  2460. !         r = Fchmod(path, mode);
  2461.           if (r) {
  2462.               errno = -r;
  2463.               return -1;
  2464. --- 24,30 ----
  2465.          (void)_unx2dos(_path, path);
  2466.   
  2467.       if (__mint >= 9) {    /* use MiNT Fchmod function */
  2468. !         r = (int)Fchmod(path, mode);
  2469.           if (r) {
  2470.               errno = -r;
  2471.               return -1;
  2472. ***************
  2473. *** 69,75 ****
  2474.   
  2475.       if (__mint >= 9) {
  2476.           (void)_unx2dos(_name, name);
  2477. !         r = Fchown(name, uid, gid);
  2478.           if (r) {
  2479.               errno = -r;
  2480.               return -1;
  2481. --- 69,75 ----
  2482.   
  2483.       if (__mint >= 9) {
  2484.           (void)_unx2dos(_name, name);
  2485. !         r = (int)Fchown(name, uid, gid);
  2486.           if (r) {
  2487.               errno = -r;
  2488.               return -1;
  2489. *** 1.7    1992/03/06 19:19:47
  2490. --- ctime.c    1992/10/09 20:46:17
  2491. ***************
  2492. *** 71,79 ****
  2493.           i = 1900 + time->tm_year;
  2494.           *vpos++ = i / 100;
  2495.           *vpos   = i % 100;
  2496. !         ptr = memcpy(ptr, day[time->tm_wday], 3) + 3;
  2497.           ptr += 1;
  2498. !         ptr = memcpy(ptr, month[time->tm_mon], 3) + 3;
  2499.           valp = values;
  2500.           do
  2501.           {
  2502. --- 71,79 ----
  2503.           i = 1900 + time->tm_year;
  2504.           *vpos++ = i / 100;
  2505.           *vpos   = i % 100;
  2506. !         ptr = (char *)memcpy(ptr, day[time->tm_wday], 3) + 3;
  2507.           ptr += 1;
  2508. !         ptr = (char *)memcpy(ptr, month[time->tm_mon], 3) + 3;
  2509.           valp = values;
  2510.           do
  2511.           {
  2512. *** 1.1    1989/03/25 17:23:13
  2513. --- difftime.c    1992/10/09 20:46:17
  2514. ***************
  2515. *** 2,9 ****
  2516.   
  2517.   #include <time.h>
  2518.   
  2519. ! double difftime(t1, t2)
  2520. ! time_t t1, t2;
  2521.   {
  2522.       return (double) (t2 - t1);
  2523.   }
  2524. --- 2,9 ----
  2525.   
  2526.   #include <time.h>
  2527.   
  2528. ! double difftime(t2, t1)
  2529. ! time_t t2, t1;
  2530.   {
  2531.       return (double) (t2 - t1);
  2532.   }
  2533. *** 1.15    1992/06/01 01:54:10
  2534. --- doprnt.c    1992/10/09 20:46:18
  2535. ***************
  2536. *** 20,25 ****
  2537. --- 20,27 ----
  2538.    *    ++jrb
  2539.    * and for the sfp004 as well as the TT's 68881
  2540.    *      mjr++
  2541. +  * and for turbo C and the MiNT library
  2542. +  *     ++um,mh
  2543.    */
  2544.   
  2545.   #ifndef __NO_FLOAT__
  2546. ***************
  2547. *** 43,49 ****
  2548. --- 45,55 ----
  2549.   static char sccsid[] = "@(#)doprnt.c    5.37 (Berkeley) 3/26/89";
  2550.   #endif /* LIBC_SCCS */
  2551.   
  2552. + #ifdef __TURBOC__
  2553. + #include <sys\types.h>
  2554. + #else
  2555.   #include <sys/types.h>
  2556. + #endif
  2557.   #include <stdarg.h>
  2558.   #include <stdio.h>
  2559.   #include <ctype.h>
  2560. ***************
  2561. *** 101,116 ****
  2562.   # include    "flonum.h"
  2563.   #  if __STDC__
  2564.   static char *exponent(char *, int, int);
  2565. ! static char *round(double, int *, char *, char *, int, char *);
  2566.   static int  cvt(double, int, int, char *, int, char *, char *);
  2567.   #  else
  2568.   static char *exponent();
  2569. ! static char *round();
  2570.   static int  cvt();
  2571.   #  endif
  2572.   #endif
  2573.   
  2574. ! #ifdef __GNUC__
  2575.   #ifdef __M68020__
  2576.   
  2577.   #define _ICONV(NUMBER, BASE, BUF)                \
  2578. --- 107,122 ----
  2579.   # include    "flonum.h"
  2580.   #  if __STDC__
  2581.   static char *exponent(char *, int, int);
  2582. ! static char *_round(double, int *, char *, char *, int, char *);
  2583.   static int  cvt(double, int, int, char *, int, char *, char *);
  2584.   #  else
  2585.   static char *exponent();
  2586. ! static char *_round();
  2587.   static int  cvt();
  2588.   #  endif
  2589.   #endif
  2590.   
  2591. ! #if defined(__GNUC__) && (!defined(__NO_INLINE__))
  2592.   #ifdef __M68020__
  2593.   
  2594.   #define _ICONV(NUMBER, BASE, BUF)                \
  2595. ***************
  2596. *** 188,193 ****
  2597. --- 194,200 ----
  2598.   #ifdef    __FLOATS__
  2599.   /*    double _double;        *//* double precision arguments %[eEfgG] */
  2600.       union double_di _dd;    /* _double is #defined to be _dd later on */
  2601. +     char softsign;        /* temporary negative sign for floats */
  2602.   #endif    __FLOATS__
  2603.       u_long _ulong;        /* integer arguments %[diouxX] */
  2604.       short base;        /* base for [diouxX] conversion */
  2605. ***************
  2606. *** 200,206 ****
  2607.       short size;        /* size of converted field or string */
  2608.       short width;        /* width from format (%8d), or 0 */
  2609.       char sign;        /* sign prefix (' ', '+', '-', or \0) */
  2610. -     char softsign;        /* temporary negative sign for floats */
  2611.       char *digs;        /* digits for [diouxX] conversion */
  2612.       char buf[BUF];        /* space for %c, %[diouxX], %[eEfgG] */
  2613.   
  2614. --- 207,212 ----
  2615. ***************
  2616. *** 208,214 ****
  2617.       fmt = (const u_char *) fmt0;
  2618.       digs = "0123456789abcdef";
  2619.       for (cnt = 0;; ++fmt) {
  2620. !         if (!(ch = *fmt))
  2621.               return (cnt);
  2622.           if (ch != '%') {
  2623.               PUTC(ch);
  2624. --- 214,220 ----
  2625.       fmt = (const u_char *) fmt0;
  2626.       digs = "0123456789abcdef";
  2627.       for (cnt = 0;; ++fmt) {
  2628. !         if ((ch = *fmt) == 0)
  2629.               return (cnt);
  2630.           if (ch != '%') {
  2631.               PUTC(ch);
  2632. ***************
  2633. *** 325,331 ****
  2634.                * zeroes later, so buffer size stays rational.
  2635.                */
  2636.               if (prec > MAXFRACT) {
  2637. !                 if (*fmt != 'g' && *fmt != 'G' || (flags&ALT))
  2638.                       fpprec = prec - MAXFRACT;
  2639.                   prec = MAXFRACT;
  2640.               }
  2641. --- 331,337 ----
  2642.                * zeroes later, so buffer size stays rational.
  2643.                */
  2644.               if (prec > MAXFRACT) {
  2645. !                 if ((*fmt != 'g' && *fmt != 'G') || (flags&ALT))
  2646.                       fpprec = prec - MAXFRACT;
  2647.                   prec = MAXFRACT;
  2648.               }
  2649. ***************
  2650. *** 394,400 ****
  2651.               base = 16;
  2652.               goto nosign;
  2653.           case 's':
  2654. !             if (!(t = va_arg(argp, char *)))
  2655.                   t = "(null)";
  2656.               if (prec >= 0) {
  2657.                   /*
  2658. --- 400,406 ----
  2659.               base = 16;
  2660.               goto nosign;
  2661.           case 's':
  2662. !             if ((t = va_arg(argp, char *)) == 0)
  2663.                   t = "(null)";
  2664.               if (prec >= 0) {
  2665.                   /*
  2666. ***************
  2667. *** 409,415 ****
  2668.                   char *p, *memchr();
  2669.   #endif
  2670.   
  2671. !                 if (p = (char *)memchr(t, 0, (size_t)prec)) {
  2672.                       size = p - t;
  2673.                       if (size > prec)
  2674.                           size = prec;
  2675. --- 415,421 ----
  2676.                   char *p, *memchr();
  2677.   #endif
  2678.   
  2679. !                 if ((p = (char *)memchr(t, 0, (size_t)prec)) != NULL) {
  2680.                       size = p - t;
  2681.                       if (size > prec)
  2682.                           size = prec;
  2683. ***************
  2684. *** 539,548 ****
  2685.   {
  2686.       register char *p, *t;
  2687.       register double fract;
  2688. !     int dotrim, expcnt, gformat;
  2689.       double integer, tmp, modf __PROTO((double, double *));
  2690.       char *exponent __PROTO((char *, int, int)),
  2691. !          *round __PROTO((double, int *, char *, char *, int, char *));
  2692.   
  2693.       dotrim = expcnt = gformat = 0;
  2694.       fract = modf(number, &integer);
  2695. --- 545,554 ----
  2696.   {
  2697.       register char *p, *t;
  2698.       register double fract;
  2699. !     int dotrim, expcnt, gformat, /* mjr++ : */ old_prec;
  2700.       double integer, tmp, modf __PROTO((double, double *));
  2701.       char *exponent __PROTO((char *, int, int)),
  2702. !          *_round __PROTO((double, int *, char *, char *, int, char *));
  2703.   
  2704.       dotrim = expcnt = gformat = 0;
  2705.       fract = modf(number, &integer);
  2706. ***************
  2707. *** 549,555 ****
  2708.   
  2709.       /* get an extra slot for rounding. */
  2710.       t = ++startp;
  2711. ! 
  2712.       /*
  2713.        * get integer portion of number; put into the end of the buffer; the
  2714.        * .01 is added for modf(356.0 / 10, &integer) returning .59999999...
  2715. --- 555,561 ----
  2716.   
  2717.       /* get an extra slot for rounding. */
  2718.       t = ++startp;
  2719. ! #define DBL_EPSILON 1.1107651257113995e-16 /* mjr ++ /
  2720.       /*
  2721.        * get integer portion of number; put into the end of the buffer; the
  2722.        * .01 is added for modf(356.0 / 10, &integer) returning .59999999...
  2723. ***************
  2724. *** 556,562 ****
  2725.        */
  2726.       for (p = endp - 1; integer; ++expcnt) {
  2727.           tmp = modf(integer / 10, &integer);
  2728. !         *p-- = tochar((int)((tmp + .01) * 10));
  2729.       }
  2730.       switch(fmtch) {
  2731.       case 'f':
  2732. --- 562,568 ----
  2733.        */
  2734.       for (p = endp - 1; integer; ++expcnt) {
  2735.           tmp = modf(integer / 10, &integer);
  2736. !         *p-- = tochar((int)((tmp + DBL_EPSILON) * 10));
  2737.       }
  2738.       switch(fmtch) {
  2739.       case 'f':
  2740. ***************
  2741. *** 579,585 ****
  2742.                       *t++ = tochar((int)tmp);
  2743.                   } while (--prec && fract);
  2744.               if (fract)
  2745. !                 startp = round(fract, (int *)NULL, startp,
  2746.                       t - 1, (char)0, signp);
  2747.           }
  2748.           for (; prec--; *t++ = '0');
  2749. --- 585,591 ----
  2750.                       *t++ = tochar((int)tmp);
  2751.                   } while (--prec && fract);
  2752.               if (fract)
  2753. !                 startp = _round(fract, (int *)NULL, startp,
  2754.                       t - 1, (char)0, signp);
  2755.           }
  2756.           for (; prec--; *t++ = '0');
  2757. ***************
  2758. *** 600,606 ****
  2759.                */
  2760.               if (!prec && ++p < endp) {
  2761.                   fract = 0;
  2762. !                 startp = round((double)0, &expcnt, startp,
  2763.                       t - 1, *p, signp);
  2764.               }
  2765.               /* adjust expcnt for digit in front of decimal */
  2766. --- 606,612 ----
  2767.                */
  2768.               if (!prec && ++p < endp) {
  2769.                   fract = 0;
  2770. !                 startp = _round((double)0, &expcnt, startp,
  2771.                       t - 1, *p, signp);
  2772.               }
  2773.               /* adjust expcnt for digit in front of decimal */
  2774. ***************
  2775. *** 631,637 ****
  2776.                       *t++ = tochar((int)tmp);
  2777.                   } while (--prec && fract);
  2778.               if (fract)
  2779. !                 startp = round(fract, &expcnt, startp,
  2780.                       t - 1, (char)0, signp);
  2781.           }
  2782.           /* if requires more precision */
  2783. --- 637,643 ----
  2784.                       *t++ = tochar((int)tmp);
  2785.                   } while (--prec && fract);
  2786.               if (fract)
  2787. !                 startp = _round(fract, &expcnt, startp,
  2788.                       t - 1, (char)0, signp);
  2789.           }
  2790.           /* if requires more precision */
  2791. ***************
  2792. *** 648,653 ****
  2793. --- 654,661 ----
  2794.           break;
  2795.       case 'g':
  2796.       case 'G':
  2797. +         old_prec = min(prec,15);    /* mjr++, avoid "precision" that */
  2798. +                         /* cannot be numerically resolved */
  2799.           /* a precision of 0 is treated as a precision of 1. */
  2800.           if (!prec)
  2801.               ++prec;
  2802. ***************
  2803. *** 657,663 ****
  2804.            * conversion is less than -4 or greater than the precision.''
  2805.            *    -- ANSI X3J11
  2806.            */
  2807. !         if (expcnt > prec || !expcnt && fract && fract < .0001) {
  2808.               /*
  2809.                * g/G format counts "significant digits, not digits of
  2810.                * precision; for the e/E format, this just causes an
  2811. --- 665,671 ----
  2812.            * conversion is less than -4 or greater than the precision.''
  2813.            *    -- ANSI X3J11
  2814.            */
  2815. !         if (expcnt > prec || (!expcnt && fract && fract < .0001)) {
  2816.               /*
  2817.                * g/G format counts "significant digits, not digits of
  2818.                * precision; for the e/E format, this just causes an
  2819. ***************
  2820. *** 685,690 ****
  2821. --- 693,699 ----
  2822.           if (prec || flags&ALT) {
  2823.               dotrim = 1;
  2824.               *t++ = '.';
  2825. +             old_prec ++; /* mjr++ */
  2826.           }
  2827.           else
  2828.               dotrim = 0;
  2829. ***************
  2830. *** 706,712 ****
  2831.                   }
  2832.               }
  2833.               if (fract)
  2834. !                 startp = round(fract, (int *)NULL, startp,
  2835.                       t - 1, (char)0, signp);
  2836.           }
  2837.           /* alternate format, adds 0's for precision, else trim 0's */
  2838. --- 715,721 ----
  2839.                   }
  2840.               }
  2841.               if (fract)
  2842. !                 startp = _round(fract, (int *)NULL, startp,
  2843.                       t - 1, (char)0, signp);
  2844.           }
  2845.           /* alternate format, adds 0's for precision, else trim 0's */
  2846. ***************
  2847. *** 713,718 ****
  2848. --- 722,729 ----
  2849.           if (flags&ALT)
  2850.               for (; prec--; *t++ = '0');
  2851.           else if (dotrim) {
  2852. +             if( (int)(t-startp) > old_prec ) /* mjr++ */
  2853. +                 t = startp + old_prec;
  2854.               while (t > startp && *--t == '0');
  2855.               if (*t != '.')
  2856.                   ++t;
  2857. ***************
  2858. *** 722,728 ****
  2859.   }
  2860.   
  2861.   static char *
  2862. ! round(fract, exp, start, end, ch, signp)
  2863.       double fract;
  2864.       int *exp;
  2865.       register char *start, *end;
  2866. --- 733,739 ----
  2867.   }
  2868.   
  2869.   static char *
  2870. ! _round(fract, exp, start, end, ch, signp)
  2871.       double fract;
  2872.       int *exp;
  2873.       register char *start, *end;
  2874. *** 1.10    1992/06/01 01:54:10
  2875. --- findfile.c    1992/10/09 20:46:19
  2876. ***************
  2877. *** 9,14 ****
  2878. --- 9,15 ----
  2879.      Written by Eric R. Smith and placed in the public domain.
  2880.   */
  2881.   
  2882. + #include <compiler.h>
  2883.   #include <limits.h>    /* needed for PATH_MAX */
  2884.   #include <stddef.h>
  2885.   #include <types.h>
  2886. ***************
  2887. *** 25,30 ****
  2888. --- 26,34 ----
  2889.   
  2890.   static char *nullext[] = { NULL };
  2891.   
  2892. + static int EXISTS __PROTO((char *));
  2893. + char *findfile __PROTO((char *fname, char *fpath, char **fext));
  2894. + 
  2895.   static int
  2896.   EXISTS(name)
  2897.       char *name;
  2898. ***************
  2899. *** 54,60 ****
  2900.   /* copy the file in, checking to see if a path and/or extension are already
  2901.      given */
  2902.   
  2903. !         while ( c = *t++ ) {
  2904.                   if (c == DIRSEP1 || c == DIRSEP2) {
  2905.                           haspath = 1; hasext = 0;
  2906.                   }
  2907. --- 58,64 ----
  2908.   /* copy the file in, checking to see if a path and/or extension are already
  2909.      given */
  2910.   
  2911. !         while ( (c = *t++) != 0 ) {
  2912.                   if (c == DIRSEP1 || c == DIRSEP2) {
  2913.                           haspath = 1; hasext = 0;
  2914.                   }
  2915. ***************
  2916. *** 89,95 ****
  2917.   
  2918.   /* copy in next element of path list */
  2919.                   s = try;
  2920. !                 while ((c = *fpath) && c != PATHSEP1 && c != PATHSEP2) {
  2921.                           *s++ = c;
  2922.                           fpath++;
  2923.                   }
  2924. --- 93,99 ----
  2925.   
  2926.   /* copy in next element of path list */
  2927.                   s = try;
  2928. !                 while ((c = *fpath) != 0 && c != PATHSEP1 && c != PATHSEP2) {
  2929.                           *s++ = c;
  2930.                           fpath++;
  2931.                   }
  2932. ***************
  2933. *** 96,102 ****
  2934.                   if (c) fpath++;
  2935.                   *s++ = DIRSEP1;
  2936.                   t = fname;
  2937. !                 while (*s++ = *t++) ;
  2938.                   extplace = --s ;        /* where the extension gets written */
  2939.           }
  2940.           return NULL;
  2941. --- 100,106 ----
  2942.                   if (c) fpath++;
  2943.                   *s++ = DIRSEP1;
  2944.                   t = fname;
  2945. !                 while ((*s++ = *t++) != 0) ;
  2946.                   extplace = --s ;        /* where the extension gets written */
  2947.           }
  2948.           return NULL;
  2949. *** 1.5    1990/03/26 17:37:23
  2950. --- flonum.h    1992/10/09 20:46:19
  2951. ***************
  2952. *** 18,23 ****
  2953. --- 18,24 ----
  2954.   
  2955.   /* quasi-IEEE floating point number definitions */
  2956.   
  2957. + #ifndef __TURBOC__
  2958.   struct bitfloat {
  2959.       unsigned long sign : 1;
  2960.       unsigned long exp  : 8;
  2961. ***************
  2962. *** 30,35 ****
  2963. --- 31,37 ----
  2964.       unsigned long mant1 : 20;
  2965.       unsigned long mant2;
  2966.   };
  2967. + #endif
  2968.   
  2969.   union double_di {
  2970.           double d;
  2971. *** 1.17    1992/06/01 01:54:10
  2972. --- fopen.c    1992/10/09 20:46:19
  2973. ***************
  2974. *** 7,12 ****
  2975. --- 7,13 ----
  2976.   #include <errno.h>
  2977.   
  2978.   __EXTERN void _getbuf __PROTO((FILE *));
  2979. + static FILE *_fopen __PROTO((const char *, const char *, FILE *));
  2980.   
  2981.   /* lowest character device handle # */
  2982.   #define    LAST_DEVICE    __SMALLEST_VALID_HANDLE
  2983. ***************
  2984. *** 15,22 ****
  2985.   
  2986.   static FILE *_fopen(filename, mode, fp)
  2987.       const char *filename;
  2988. !     const register char *mode;
  2989. !     register FILE *fp;
  2990.   /*
  2991.    *    INTERNAL FUNCTION.  Attempt to open <filename> in the given
  2992.    *    <mode> and attach it to the stream <fp>
  2993. --- 16,23 ----
  2994.   
  2995.   static FILE *_fopen(filename, mode, fp)
  2996.       const char *filename;
  2997. !     const char *mode;
  2998. !     FILE *fp;
  2999.   /*
  3000.    *    INTERNAL FUNCTION.  Attempt to open <filename> in the given
  3001.    *    <mode> and attach it to the stream <fp>
  3002. *** 1.13    1992/04/08 18:38:50
  3003. --- fread.c    1992/10/09 20:46:20
  3004. ***************
  3005. *** 10,15 ****
  3006. --- 10,17 ----
  3007.   #include <string.h>
  3008.   #include "lib.h"
  3009.   
  3010. + extern short  __FRW_BIN__;
  3011. + 
  3012.   size_t    fread(_data, size, count, fp)
  3013.       void *_data;
  3014.       size_t size;
  3015. ***************
  3016. *** 37,43 ****
  3017.           return 0;
  3018.   #endif
  3019.       assert((n <= (size_t)LONG_MAX));
  3020. !     if( f&_IOBIN ) {
  3021.       again:    
  3022.       if((cnt = fp->_cnt) > 0)
  3023.       {
  3024. --- 39,45 ----
  3025.           return 0;
  3026.   #endif
  3027.       assert((n <= (size_t)LONG_MAX));
  3028. !     if( (f&_IOBIN) || __FRW_BIN__ ) {
  3029.       again:    
  3030.       if((cnt = fp->_cnt) > 0)
  3031.       {
  3032. *** 1.5    1992/02/04 17:11:06
  3033. --- frexp.cpp    1992/10/09 20:46:20
  3034. ***************
  3035. *** 180,187 ****
  3036.       clrl    d1
  3037.       rts
  3038.   nonzero:
  3039. ! 
  3040. !     lea    0xfffa50,a0
  3041.       movew    #0x5418,a0@(comm)    | load first argument to fp0
  3042.       cmpiw    #0x8900,a0@(resp)    | check
  3043.       movel    a7@(4),a0@
  3044. --- 180,186 ----
  3045.       clrl    d1
  3046.       rts
  3047.   nonzero:
  3048. !     lea    0xfffffa50:w,a0
  3049.       movew    #0x5418,a0@(comm)    | load first argument to fp0
  3050.       cmpiw    #0x8900,a0@(resp)    | check
  3051.       movel    a7@(4),a0@
  3052. *** 1.6    1991/04/12 18:19:53
  3053. --- fseek.c    1992/10/09 20:46:20
  3054. ***************
  3055. *** 37,46 ****
  3056.   void rewind(fp)
  3057.   register FILE *fp;
  3058.   {
  3059. -     register long rv;
  3060. -     
  3061.       fflush(fp);
  3062. !     rv = lseek(fp->_file, 0L, SEEK_SET);
  3063.       fp->_flag &= ~(_IOEOF|_IOERR);
  3064.   }
  3065.   
  3066. --- 37,44 ----
  3067.   void rewind(fp)
  3068.   register FILE *fp;
  3069.   {
  3070.       fflush(fp);
  3071. !     (void) lseek(fp->_file, 0L, SEEK_SET);
  3072.       fp->_flag &= ~(_IOEOF|_IOERR);
  3073.   }
  3074.   
  3075. *** 1.7    1992/06/01 01:54:10
  3076. --- ftw.c    1992/10/09 20:46:21
  3077. ***************
  3078. *** 8,16 ****
  3079.   #include <stdio.h>
  3080.   #include <string.h>
  3081.   #include <stdlib.h>
  3082. ! #include <sys/types.h>
  3083. ! #include <sys/stat.h>
  3084.   #include <sys/dir.h>
  3085.   #include <ftw.h>
  3086.   
  3087.   #define EQ(a, b)    (strcmp((a), (b)) == 0)
  3088. --- 8,20 ----
  3089.   #include <stdio.h>
  3090.   #include <string.h>
  3091.   #include <stdlib.h>
  3092. ! #include <types.h>
  3093. ! #include <stat.h>
  3094. ! #ifdef __TURBOC__
  3095. ! #include <sys\dir.h>
  3096. ! #else
  3097.   #include <sys/dir.h>
  3098. + #endif
  3099.   #include <ftw.h>
  3100.   
  3101.   #define EQ(a, b)    (strcmp((a), (b)) == 0)
  3102. ***************
  3103. *** 18,24 ****
  3104.   int
  3105.   ftw(directory, funcptr, depth)
  3106.       char         *directory;
  3107. !     int            (*funcptr)();
  3108.       int              depth;
  3109.   {
  3110.       register DIR     *dirp;
  3111. --- 22,28 ----
  3112.   int
  3113.   ftw(directory, funcptr, depth)
  3114.       char         *directory;
  3115. !     int            (*funcptr) __PROTO((char *, struct stat *, int));
  3116.       int              depth;
  3117.   {
  3118.       register DIR     *dirp;
  3119. ***************
  3120. *** 25,31 ****
  3121.       struct direct     *entp;
  3122.       struct stat          stats;
  3123.       register char     *p;
  3124. !     register int      i;
  3125.   #ifndef __MINT__
  3126.       long          seekpoint;
  3127.   #endif
  3128. --- 29,35 ----
  3129.       struct direct     *entp;
  3130.       struct stat          stats;
  3131.       register char     *p;
  3132. !     register long      i;
  3133.   #ifndef __MINT__
  3134.       long          seekpoint;
  3135.   #endif
  3136. ***************
  3137. *** 53,59 ****
  3138.       i = (*funcptr)(directory, &stats, FTW_D);
  3139.       if (i) {
  3140.       closedir(dirp);
  3141. !     return i;
  3142.       }
  3143.   
  3144.       /* Get ready to hold the full paths. */
  3145. --- 57,63 ----
  3146.       i = (*funcptr)(directory, &stats, FTW_D);
  3147.       if (i) {
  3148.       closedir(dirp);
  3149. !     return (int)i;
  3150.       }
  3151.   
  3152.       /* Get ready to hold the full paths. */
  3153. ***************
  3154. *** 69,75 ****
  3155.       *p++ = '/';
  3156.   
  3157.       /* Read all entries in the directory.. */
  3158. !     while (entp = readdir(dirp))
  3159.       if (!EQ(entp->d_name, ".") && !EQ(entp->d_name, "..")) {
  3160.   #ifndef __MINT__
  3161.           if (depth <= 1) {
  3162. --- 73,79 ----
  3163.       *p++ = '/';
  3164.   
  3165.       /* Read all entries in the directory.. */
  3166. !     while ((entp = readdir(dirp)) != 0)
  3167.       if (!EQ(entp->d_name, ".") && !EQ(entp->d_name, "..")) {
  3168.   #ifndef __MINT__
  3169.           if (depth <= 1) {
  3170. ***************
  3171. *** 87,93 ****
  3172.           free(fullpath);
  3173.           if (dirp)
  3174.               closedir(dirp);
  3175. !         return i;
  3176.           }
  3177.   
  3178.   #ifndef __MINT__
  3179. --- 91,97 ----
  3180.           free(fullpath);
  3181.           if (dirp)
  3182.               closedir(dirp);
  3183. !         return (int)i;
  3184.           }
  3185.   
  3186.   #ifndef __MINT__
  3187. *** 1.12    1992/08/14 14:48:29
  3188. --- fwrite.c    1992/10/09 20:46:21
  3189. ***************
  3190. *** 8,13 ****
  3191. --- 8,15 ----
  3192.   #include <string.h>
  3193.   #include "lib.h"
  3194.   
  3195. + extern short  __FRW_BIN__;
  3196. + 
  3197.   size_t    fwrite(_data, size, count, fp)
  3198.   const void *_data;
  3199.   size_t size;
  3200. ***************
  3201. *** 39,45 ****
  3202.       n =  count * size;
  3203.       assert ( n <= (size_t)LONG_MAX);  /* otherwise impl will not work */
  3204.   
  3205. !     if( f&_IOBIN ) {
  3206.         space = fp->_bsiz - fp->_cnt;
  3207.         while(n > 0)
  3208.         {
  3209. --- 41,47 ----
  3210.       n =  count * size;
  3211.       assert ( n <= (size_t)LONG_MAX);  /* otherwise impl will not work */
  3212.   
  3213. !     if( (f&_IOBIN) || __FRW_BIN__ ) {
  3214.         space = fp->_bsiz - fp->_cnt;
  3215.         while(n > 0)
  3216.         {
  3217. *** 1.5    1992/03/06 19:19:47
  3218. --- getbuf.c    1992/10/09 20:46:21
  3219. ***************
  3220. *** 18,24 ****
  3221.           fp->_bsiz = __DEFAULT_BUFSIZ__;
  3222.   
  3223.       if((f & _IONBF) /* risky!! but works ok with gnu.may change */
  3224. !         || (!(fp->_base = (unsigned char *)malloc((size_t)fp->_bsiz))) )
  3225.           {
  3226.           fp->_flag &= ~(_IOFBF | _IOLBF | _IONBF);
  3227.           fp->_flag |= _IONBF;
  3228. --- 18,24 ----
  3229.           fp->_bsiz = __DEFAULT_BUFSIZ__;
  3230.   
  3231.       if((f & _IONBF) /* risky!! but works ok with gnu.may change */
  3232. !         || ((fp->_base = (unsigned char *)malloc((size_t)fp->_bsiz)) == 0) )
  3233.           {
  3234.           fp->_flag &= ~(_IOFBF | _IOLBF | _IONBF);
  3235.           fp->_flag |= _IONBF;
  3236. *** 1.9    1992/06/24 15:32:04
  3237. --- getenv.c    1992/10/09 20:46:21
  3238. ***************
  3239. *** 18,24 ****
  3240.   
  3241.       if (!environ) return 0;
  3242.   
  3243. !     for (var = environ; name = *var; var++) {
  3244.           if (!strncmp(name, tag, len) && name[len] == '=')
  3245.               return name+len+1;
  3246.       }
  3247. --- 18,24 ----
  3248.   
  3249.       if (!environ) return 0;
  3250.   
  3251. !     for (var = environ; (name = *var) != 0; var++) {
  3252.           if (!strncmp(name, tag, len) && name[len] == '=')
  3253.               return name+len+1;
  3254.       }
  3255. *** 1.8    1992/06/24 15:32:04
  3256. --- getlogin.c    1992/10/09 20:46:21
  3257. ***************
  3258. *** 13,24 ****
  3259.   char *getlogin()
  3260.   {
  3261.           struct passwd *temp;
  3262. !     char *tmplogname;
  3263.   
  3264.       if(logname != NULL)
  3265.           return logname;
  3266.   
  3267. -     tmplogname = (char *)alloca((size_t)80);
  3268.       *tmplogname = '\0';
  3269.   
  3270.   /* first try the /etc/passwd file */
  3271. --- 13,23 ----
  3272.   char *getlogin()
  3273.   {
  3274.           struct passwd *temp;
  3275. !     char tmplogname[80];
  3276.   
  3277.       if(logname != NULL)
  3278.           return logname;
  3279.   
  3280.       *tmplogname = '\0';
  3281.   
  3282.   /* first try the /etc/passwd file */
  3283. *** 1.9    1992/06/01 01:54:10
  3284. --- getopt.c    1992/10/09 20:46:21
  3285. ***************
  3286. *** 11,24 ****
  3287. --- 11,28 ----
  3288.       provided by D A Gwyn of BRL for generic ANSI C implementations
  3289.   */
  3290.   
  3291. + #include     <compiler.h>
  3292.   #include     <stddef.h>
  3293.   #include    <stdio.h>
  3294.   #include    <string.h>
  3295. + #include    <unistd.h>
  3296.   
  3297.   int    opterr = 1;            /* error => print message */
  3298.   int    optind = 1;            /* next argv[] index */
  3299.   char    *optarg = NULL;            /* option parameter if any */
  3300.   
  3301. + static int Err __PROTO((char *, char *, int));
  3302. + 
  3303.   static int
  3304.   Err( name, mess, c )            /* returns '?' */
  3305.       char    *name;            /* program name argv[0] */
  3306. ***************
  3307. *** 37,43 ****
  3308.   int
  3309.   getopt( argc, argv, optstring )        /* returns letter, '?', EOF */
  3310.       int        argc;        /* argument count from main */
  3311. !         const char      *argv[];        /* argument vector from main */
  3312.       const char    *optstring;    /* allowed args, e.g. "ab:c" */
  3313.       {
  3314.       static int    sp = 1;        /* position within argument */
  3315. --- 41,47 ----
  3316.   int
  3317.   getopt( argc, argv, optstring )        /* returns letter, '?', EOF */
  3318.       int        argc;        /* argument count from main */
  3319. !         char * const    *argv;          /* argument vector from main */
  3320.       const char    *optstring;    /* allowed args, e.g. "ab:c" */
  3321.       {
  3322.       static int    sp = 1;        /* position within argument */
  3323. *** 1.1    1991/12/26 15:53:59
  3324. --- getpass.c    1992/10/09 20:46:21
  3325. ***************
  3326. *** 18,24 ****
  3327.       stty(0, &newsb);
  3328.       fputs(prompt, stderr); fflush(stderr);
  3329.       buf[0] = buf[81] = 0;
  3330. !     if((ret = fgets(buf, 80, stdin)))
  3331.       {
  3332.           /* null terminate string */
  3333.           buf[strlen(buf) - 1] = 0;
  3334. --- 18,24 ----
  3335.       stty(0, &newsb);
  3336.       fputs(prompt, stderr); fflush(stderr);
  3337.       buf[0] = buf[81] = 0;
  3338. !     if((ret = fgets(buf, 80, stdin)) != 0)
  3339.       {
  3340.           /* null terminate string */
  3341.           buf[strlen(buf) - 1] = 0;
  3342. *** 1.5    1992/06/01 01:54:10
  3343. --- getpid.c    1992/10/09 20:46:22
  3344. ***************
  3345. *** 5,9 ****
  3346.   
  3347.   extern int __mint;
  3348.   
  3349. ! int getpid() { return __mint ? Pgetpid() : ( ((long)_base) >> 8 ); }
  3350. ! int getppid() { return __mint ? Pgetppid() : (((long)(_base->p_parent)) >> 8); }
  3351. --- 5,9 ----
  3352.   
  3353.   extern int __mint;
  3354.   
  3355. ! int getpid() { return __mint ? Pgetpid() : (int) ( ((long)_base) >> 8 ); }
  3356. ! int getppid() { return __mint ? Pgetppid() : (int) (((long)(_base->p_parent)) >> 8); }
  3357. *** 1.10    1992/06/01 01:54:10
  3358. --- getpw.c    1992/10/09 20:46:22
  3359. ***************
  3360. *** 130,136 ****
  3361.               return (0);
  3362.       }
  3363.   
  3364. !     while (fgets (savbuf, sizeof(savbuf), fp) != NULL)
  3365.       {
  3366.           for (cp = savbuf; *cp && *cp != ':'; cp++)
  3367.               ;
  3368. --- 130,136 ----
  3369.               return (0);
  3370.       }
  3371.   
  3372. !     while (fgets (savbuf, (int)sizeof(savbuf), fp) != NULL)
  3373.       {
  3374.           for (cp = savbuf; *cp && *cp != ':'; cp++)
  3375.               ;
  3376. *** 1.8    1992/06/24 15:32:04
  3377. --- getuid.c    1992/10/09 20:46:22
  3378. ***************
  3379. *** 1,4 ****
  3380. --- 1,8 ----
  3381. + #ifdef __TURBOC__
  3382. + #include <sys\types.h>
  3383. + #else
  3384.   #include <sys/types.h>
  3385. + #endif
  3386.   #include <unistd.h>
  3387.   #include <osbind.h>
  3388.   #include <mintbind.h>
  3389. ***************
  3390. *** 11,19 ****
  3391.   uid_t getuid() { return __mint ? Pgetuid() : __uid; }
  3392.   gid_t getgid() { return __mint ? Pgetgid() : __gid; }
  3393.   
  3394. ! uid_t geteuid() { return getuid(); }
  3395. ! gid_t getegid() { return getgid(); }
  3396.   
  3397.   int setuid(x)
  3398.       int x;
  3399.   {
  3400. --- 15,26 ----
  3401.   uid_t getuid() { return __mint ? Pgetuid() : __uid; }
  3402.   gid_t getgid() { return __mint ? Pgetgid() : __gid; }
  3403.   
  3404. ! uid_t geteuid()
  3405. ! { return __mint >= 95 ? Pgeteuid() : getuid(); }
  3406.   
  3407. + gid_t getegid()
  3408. + { return __mint >= 95 ? Pgetegid() : getgid(); }
  3409. + 
  3410.   int setuid(x)
  3411.       int x;
  3412.   {
  3413. ***************
  3414. *** 22,28 ****
  3415.       if (__mint) {
  3416.           r = Psetuid(x);
  3417.           if (r) {
  3418. !             errno = -r;
  3419.               return -1;
  3420.           }
  3421.           return 0;
  3422. --- 29,35 ----
  3423.       if (__mint) {
  3424.           r = Psetuid(x);
  3425.           if (r) {
  3426. !             errno = (int) -r;
  3427.               return -1;
  3428.           }
  3429.           return 0;
  3430. ***************
  3431. *** 39,45 ****
  3432.       if (__mint) {
  3433.           r = Psetgid(x);
  3434.           if (r) {
  3435. !             errno = -r;
  3436.               return -1;
  3437.           }
  3438.           return 0;
  3439. --- 46,52 ----
  3440.       if (__mint) {
  3441.           r = Psetgid(x);
  3442.           if (r) {
  3443. !             errno = (int) -r;
  3444.               return -1;
  3445.           }
  3446.           return 0;
  3447. *** 1.9    1992/06/01 01:54:10
  3448. --- gmon.c    1992/10/09 20:46:22
  3449. ***************
  3450. *** 489,494 ****
  3451. --- 489,509 ----
  3452.       return 0;
  3453.   }
  3454.   
  3455. + #ifdef __MBASE__
  3456. + #define Countdown __MBASESTR__ "@(_countdown)"
  3457. + #define Off __MBASESTR__ "@(_off)"
  3458. + #define Shift_val __MBASESTR__ "@(_shift_val)"
  3459. + #define Maxidx __MBASESTR__ "@(_maxidx)"
  3460. + #define Bufr __MBASESTR__ "@(_bufr)"
  3461. + #define Tick_xbra __MBASESTR__ "@(_tick_xbra+8)"
  3462. + #else
  3463. + #define Countdown "_countdown"
  3464. + #define Off "_off"
  3465. + #define Shift_val "_shift_val"
  3466. + #define Maxidx "_maxidx"
  3467. + #define Bufr "_bufr"
  3468. + #define Tick_xbra "_tick_xbra+8"
  3469. + #endif
  3470.   #ifdef _USE_TIMER_C_
  3471.   /*
  3472.    * tick handler
  3473. ***************
  3474. *** 497,523 ****
  3475.   __asm__ ("\
  3476.        .text; .even
  3477.   _tick:
  3478. !      subqw    #1,_countdown
  3479.        jne    1f
  3480.   
  3481. !      movw    #4,_countdown
  3482.        moveml    d0-d1/a0,sp@-
  3483.        movl    sp@(14),d0    /* get user pc from exception frame */
  3484. !      subl    _off,d0
  3485.       jcs    2f        /* branch if below */
  3486. !      movl    _shift_val,d1    /* shift it */
  3487.        lsrl    d1,d0
  3488. !      cmpl    _maxidx:l,d0    /* compare with max index */
  3489.        jhi    2f        /* branch if out of range */
  3490.   
  3491.        lsll    #1,d0        /* word index */
  3492. !     movl    _bufr,a0
  3493.        addl    d0,a0        /* incr hist word */
  3494.        addqw    #1,a0@
  3495.   2:
  3496.        moveml    sp@+,d0-d1/a0
  3497.   1:
  3498. !     movl    _tick_xbra+8,sp@-
  3499.        rts ");
  3500.   #else
  3501.   /*
  3502. --- 512,538 ----
  3503.   __asm__ ("\
  3504.        .text; .even
  3505.   _tick:
  3506. !      subqw    #1," Countdown "
  3507.        jne    1f
  3508.   
  3509. !      movw    #4," Countdown "
  3510.        moveml    d0-d1/a0,sp@-
  3511.        movl    sp@(14),d0    /* get user pc from exception frame */
  3512. !      subl    " Off ",d0
  3513.       jcs    2f        /* branch if below */
  3514. !      movl    " Shift_val ",d1    /* shift it */
  3515.        lsrl    d1,d0
  3516. !      cmpl    " Maxidx ",d0    /* compare with max index */
  3517.        jhi    2f        /* branch if out of range */
  3518.   
  3519.        lsll    #1,d0        /* word index */
  3520. !     movl    " Bufr ",a0
  3521.        addl    d0,a0        /* incr hist word */
  3522.        addqw    #1,a0@
  3523.   2:
  3524.        moveml    sp@+,d0-d1/a0
  3525.   1:
  3526. !     movl    " Tick_xbra ",sp@-
  3527.        rts ");
  3528.   #else
  3529.   /*
  3530. ***************
  3531. *** 535,553 ****
  3532.        .text; .even
  3533.   _tick:
  3534.        movl    sp@(68),d0    /* get user pc from exception frame */
  3535. !      subl    _off,d0
  3536.       jcs    1f        /* branch if below */
  3537. !      movl    _shift_val,d1    /* shift it */
  3538.        lsrl    d1,d0
  3539. !      cmpl    _maxidx:l,d0    /* compare with max index */
  3540.        jhi    1f        /* branch if out of range */
  3541.   
  3542.        lsll    #1,d0        /* word index */
  3543. !     movl    _bufr,a0
  3544.        addl    d0,a0        /* incr hist word */
  3545.        addqw    #1,a0@
  3546.   1:
  3547. !     movl    _tick_xbra+8,sp@-    /* call next handler in chain */
  3548.        rts ");
  3549.   #endif
  3550.   
  3551. --- 550,568 ----
  3552.        .text; .even
  3553.   _tick:
  3554.        movl    sp@(68),d0    /* get user pc from exception frame */
  3555. !      subl    " Off ",d0
  3556.       jcs    1f        /* branch if below */
  3557. !      movl    " Shift_val ",d1    /* shift it */
  3558.        lsrl    d1,d0
  3559. !      cmpl    " Maxidx ",d0    /* compare with max index */
  3560.        jhi    1f        /* branch if out of range */
  3561.   
  3562.        lsll    #1,d0        /* word index */
  3563. !     movl    " Bufr ",a0
  3564.        addl    d0,a0        /* incr hist word */
  3565.        addqw    #1,a0@
  3566.   1:
  3567. !     movl    " Tick_xbra ",sp@-    /* call next handler in chain */
  3568.        rts ");
  3569.   #endif
  3570.   
  3571. *** 1.12    1992/07/20 22:01:12
  3572. --- gnulib2.c    1992/10/09 20:46:22
  3573. ***************
  3574. *** 209,215 ****
  3575.   /* These algorithms are all straight out of Knuth, vol. 2, sec. 4.3.1. */
  3576.   
  3577.   __EXTERN long long __adddi3 __PROTO((long long u, long long v));
  3578. - static int badd __PROTO((unsigned short *a, unsigned short *b, unsigned short *c, size_t n));
  3579.   __EXTERN long long __anddi3 __PROTO((long long u, long long v));
  3580.   __EXTERN long long __iordi3 __PROTO((long long u, long long v));
  3581.   __EXTERN long long __xordi3 __PROTO((long long u, long long v));
  3582. --- 209,214 ----
  3583. ***************
  3584. *** 219,235 ****
  3585.   __EXTERN long long __ashldi3 __PROTO((long long u, long int b1));
  3586.   __EXTERN long long __ashrdi3 __PROTO((long long u, long int b1));
  3587.   __EXTERN long long __subdi3 __PROTO((long long u, long long v));
  3588. - static int bsub __PROTO((unsigned short *a, unsigned short *b, unsigned short *c, size_t n));
  3589.   __EXTERN long long __muldi3 __PROTO((long long u, long long v));
  3590. - static void bmul __PROTO((unsigned short *a, unsigned short *b, unsigned short *c, size_t m, size_t n));
  3591.   __EXTERN long long __divdi3 __PROTO((long long u, long long v));
  3592.   __EXTERN long long __moddi3 __PROTO((long long u, long long v));
  3593.   __EXTERN long long __udivdi3 __PROTO((long long u, long long v));
  3594.   __EXTERN long long __umoddi3 __PROTO((long long u, long long v));
  3595.   __EXTERN long long __negdi2 __PROTO((long long u));
  3596. - static int bneg __PROTO((unsigned short *a, unsigned short *b, size_t n));
  3597.   __EXTERN void __bdiv __PROTO((unsigned short *a, unsigned short *b, unsigned short *q, unsigned short *r, size_t m, size_t n));
  3598. - static int bshift __PROTO((unsigned short *u, int k, unsigned short *w, unsigned int carry_in, int n));
  3599.   __EXTERN SItype __cmpdi2 __PROTO((long long a, long long b));
  3600.   __EXTERN SItype __ucmpdi2 __PROTO((long long a, long long b));
  3601.   __EXTERN long long __fixunsdfdi __PROTO((double a));
  3602. --- 218,230 ----
  3603. ***************
  3604. *** 239,244 ****
  3605. --- 234,241 ----
  3606.   __EXTERN unsigned SItype __fixunssfsi __PROTO((float a));
  3607.   
  3608.   #ifdef L_adddi3
  3609. + static int badd __PROTO((unsigned short *a, unsigned short *b, unsigned short *c, size_t n));
  3610. + 
  3611.   long long 
  3612.   __adddi3 (u, v)
  3613.        long long u, v;
  3614. ***************
  3615. *** 492,497 ****
  3616. --- 489,497 ----
  3617.   #endif
  3618.   
  3619.   #ifdef L_subdi3
  3620. + 
  3621. + static int bsub __PROTO((unsigned short *a, unsigned short *b, unsigned short *c, size_t n));
  3622. + 
  3623.   long long 
  3624.   __subdi3 (u, v)
  3625.        long long u, v;
  3626. ***************
  3627. *** 538,543 ****
  3628. --- 538,546 ----
  3629.   #endif
  3630.   
  3631.   #ifdef L_muldi3
  3632. + 
  3633. + static void bmul __PROTO((unsigned short *a, unsigned short *b, unsigned short *c, size_t m, size_t n));
  3634. + 
  3635.   long long 
  3636.   __muldi3 (u, v)
  3637.        long long u, v;
  3638. ***************
  3639. *** 683,688 ****
  3640. --- 686,694 ----
  3641.   #endif
  3642.   
  3643.   #ifdef L_negdi2
  3644. + 
  3645. + static int bneg __PROTO((unsigned short *a, unsigned short *b, size_t n));
  3646. + 
  3647.   long long 
  3648.   __negdi2 (u)
  3649.        long long u;
  3650. ***************
  3651. *** 738,743 ****
  3652. --- 744,751 ----
  3653.      but that is too long for SYSV.  */
  3654.   
  3655.   #ifdef L_bdiv
  3656. + static int bshift __PROTO((unsigned short *u, int k, unsigned short *w, unsigned int carry_in, int n));
  3657. + 
  3658.   void 
  3659.   __bdiv (a, b, q, r, m, n)
  3660.        unsigned short *a, *b, *q, *r;
  3661. *** 1.5    1992/06/01 01:54:10
  3662. --- grp.c    1992/10/09 20:46:23
  3663. ***************
  3664. *** 91,97 ****
  3665.       if (!fp) setgrent();
  3666.       if (!fp) return 0;
  3667.   
  3668. !     if (fgets (savbuf, sizeof(savbuf), fp) != NULL)
  3669.       {
  3670.           for (cp = savbuf; *cp && *cp != ':'; cp++)
  3671.               ;
  3672. --- 91,97 ----
  3673.       if (!fp) setgrent();
  3674.       if (!fp) return 0;
  3675.   
  3676. !     if (fgets (savbuf, (int) sizeof(savbuf), fp) != NULL)
  3677.       {
  3678.           for (cp = savbuf; *cp && *cp != ':'; cp++)
  3679.               ;
  3680. *** 1.5    1992/03/06 19:19:47
  3681. --- ldexp.cpp    1992/10/09 20:46:24
  3682. ***************
  3683. *** 1,4 ****
  3684. ! 
  3685.   #if !defined (__M68881__) && !defined (sfp004)
  3686.   
  3687.    | add exponent to floating point number
  3688. --- 1,34 ----
  3689. !     .text
  3690. !     .globl _ldexp
  3691. !     .globl __infinitydf
  3692. !     .even
  3693. ! #ifdef    ERROR_CHECK
  3694. ! #include "errbase.h"
  3695. ! _Overflow:
  3696. !     .ascii "ldexp: OVERFLOW\12\15\0"
  3697. ! # if defined(__M68881__) || defined(sfp004)
  3698. ! _Domain:
  3699. !     .ascii "ldexp: NAN\12\15\0"
  3700. !     .even
  3701. ! double_max:
  3702. !     .long    0x7fee42d1
  3703. !     .long    0x30273b76
  3704. ! double_min:
  3705. !     .long    0xffee42d1
  3706. !     .long    0x30273b76
  3707. ! NaN:
  3708. !     .long    0x7fffffff
  3709. !     .long    0xffffffff
  3710. ! p_Inf:
  3711. !     .long    0x7ff00000
  3712. !     .long    0x00000000
  3713. ! m_Inf:
  3714. !     .long    0xfff00000
  3715. !     .long    0x00000000
  3716. ! # endif
  3717. !     .even
  3718. ! #endif    ERROR_CHECK
  3719. ! _ldexp:
  3720.   #if !defined (__M68881__) && !defined (sfp004)
  3721.   
  3722.    | add exponent to floating point number
  3723. ***************
  3724. *** 14,30 ****
  3725.    |  #4  handle exponent overflow when ints are 32 bits        -kub-, 04/90
  3726.    |-----------------------------------------------------------------------------
  3727.   
  3728. -     .text; .even
  3729. -     .globl _ldexp
  3730. -     .globl __infinitydf
  3731. - 
  3732. - #ifdef    ERROR_CHECK
  3733. - _Overflow:
  3734. -     .ascii "ldexp: OVERFLOW\12\15\0"
  3735. -     .even
  3736. - #endif    ERROR_CHECK
  3737. - 
  3738. - _ldexp:
  3739.       lea    sp@(4),a1
  3740.       moveml    d2-d7,sp@-    | save d2-d7
  3741.   
  3742. --- 44,49 ----
  3743. ***************
  3744. *** 56,65 ****
  3745.       moveml    a1@,d4-d5    | value into d4,d5
  3746.       jmp    norm_df        | norm_df will pop d2-d7 and rts
  3747.   
  3748. - 
  3749. -     .globl    _errno        | from <errno.h>
  3750. - ERANGE    =    63
  3751. - 
  3752.   retz:
  3753.       moveq    #0,d0        | zero return value
  3754.       moveq    #0,d1
  3755. --- 75,80 ----
  3756. ***************
  3757. *** 68,84 ****
  3758.   rangerr:
  3759.   
  3760.   #ifdef ERROR_CHECK
  3761. ! # ifdef __MSHORT__
  3762. !     movew    #ERANGE,_errno    | set errno
  3763. ! # else
  3764. !     movel    #ERANGE,_errno    | set errno
  3765. ! # endif
  3766. !     moveml    d0-d1,a7@-
  3767. !     pea    _Overflow    | for printf
  3768. !     pea    __iob+52    |
  3769.       jbsr    _fprintf    |
  3770.       addql    #8,a7        |
  3771. -     moveml    a7@+,d0-d1
  3772.   #endif ERROR_CHECK
  3773.   
  3774.       moveml    __infinitydf,d0-d1 | return HUGE_VAL (same as in <math.h>)
  3775. --- 83,94 ----
  3776.   rangerr:
  3777.   
  3778.   #ifdef ERROR_CHECK
  3779. !     moveq    #ERANGE,d0
  3780. !     Emove    d0,Errno
  3781. !     pea    pc@(_Overflow)    | for printf
  3782. !     pea    Stderr        |
  3783.       jbsr    _fprintf    |
  3784.       addql    #8,a7        |
  3785.   #endif ERROR_CHECK
  3786.   
  3787.       moveml    __infinitydf,d0-d1 | return HUGE_VAL (same as in <math.h>)
  3788. ***************
  3789. *** 104,139 ****
  3790.   |# hacked for the 68881 by Michael Ritzert, 5.10.90
  3791.   |##############################################################################
  3792.   |# ported fromt sfp004 to real coprocessor, mjr, August 1991
  3793. ! |################################################################################
  3794. ! 
  3795. !     .text; .even
  3796. !     .globl _ldexp
  3797. ! 
  3798. ! #ifdef    ERROR_CHECK
  3799. ! _Domain:
  3800. !     .ascii "ldexp: NAN\12\15\0"
  3801. ! _Overflow:
  3802. !     .ascii "ldexp: OVERFLOW\12\15\0"
  3803. !     .even
  3804. ! double_max:
  3805. !     .long    0x7fee42d1
  3806. !     .long    0x30273b76
  3807. ! double_min:
  3808. !     .long    0xffee42d1
  3809. !     .long    0x30273b76
  3810. ! NaN:
  3811. !     .long    0x7fffffff
  3812. !     .long    0xffffffff
  3813. ! p_Inf:
  3814. !     .long    0x7ff00000
  3815. !     .long    0x00000000
  3816. ! m_Inf:
  3817. !     .long    0xfff00000
  3818. !     .long    0x00000000
  3819. ! .even
  3820. ! #endif    ERROR_CHECK
  3821. ! 
  3822. ! _ldexp:
  3823.   
  3824.   #ifdef __MSHORT__
  3825.       movew    a7@(12),d0        | get exponent
  3826. --- 114,120 ----
  3827.   |# hacked for the 68881 by Michael Ritzert, 5.10.90
  3828.   |##############################################################################
  3829.   |# ported fromt sfp004 to real coprocessor, mjr, August 1991
  3830. ! |##############################################################################
  3831.   
  3832.   #ifdef __MSHORT__
  3833.       movew    a7@(12),d0        | get exponent
  3834. ***************
  3835. *** 180,214 ****
  3836.   |    or
  3837.   |    .long    0x0c6889000, 0x000067f8            (a0)
  3838.   
  3839. -     .text; .even
  3840. -     .globl _ldexp
  3841. - 
  3842. - #ifdef    ERROR_CHECK
  3843. - _Domain:
  3844. -     .ascii "ldexp: NAN\12\15\0"
  3845. - _Overflow:
  3846. -     .ascii "ldexp: OVERFLOW\12\15\0"
  3847. -     .even
  3848. - double_max:
  3849. -     .long    0x7fee42d1
  3850. -     .long    0x30273b76
  3851. - double_min:
  3852. -     .long    0xffee42d1
  3853. -     .long    0x30273b76
  3854. - NaN:
  3855. -     .long    0x7fffffff
  3856. -     .long    0xffffffff
  3857. - p_Inf:
  3858. -     .long    0x7ff00000
  3859. -     .long    0x00000000
  3860. - m_Inf:
  3861. -     .long    0xfff00000
  3862. -     .long    0x00000000
  3863. - .even
  3864. - #endif    ERROR_CHECK
  3865. - 
  3866. - _ldexp:
  3867. - 
  3868.   #ifdef __MSHORT__
  3869.       movew    sp@(12),d0        | get exponent
  3870.       extl    d0
  3871. --- 161,166 ----
  3872. ***************
  3873. *** 215,221 ****
  3874.   #else
  3875.       movel    sp@(12),d0        | get exponent
  3876.   #endif
  3877. !     lea    0xfffa50,a0        | fpu address
  3878.       movew    #0x549e,a0@(comm)    | fgetexpd sp@(4),fp1
  3879.       cmpiw    #0x8900,a0@(resp)
  3880.       movel    sp@(4),a0@
  3881. --- 167,173 ----
  3882.   #else
  3883.       movel    sp@(12),d0        | get exponent
  3884.   #endif
  3885. !     lea    0xfffffa50:w,a0        | fpu address
  3886.       movew    #0x549e,a0@(comm)    | fgetexpd sp@(4),fp1
  3887.       cmpiw    #0x8900,a0@(resp)
  3888.       movel    sp@(4),a0@
  3889. ***************
  3890. *** 246,284 ****
  3891.       beq    error_plus    |
  3892.       swap    d0        | result ok,
  3893.       rts            | restore d0
  3894. - # ifndef    __MSHORT__
  3895. - error_plus:
  3896. -     swap    d0
  3897. -     movel    #63,_errno    | Overflow: errno = ERANGE
  3898. -     moveml    d0-d1,a7@-    | print error message
  3899. -     pea    _Domain        | for printf
  3900. -     bra    error_exit    |
  3901. - error_nan:
  3902. -     moveml    a0@(24),d0-d1    | result = +inf
  3903. -     movel    #62,_errno    | NAN => errno = EDOM
  3904. -     moveml    d0-d1,a7@-    | print error message
  3905. -     pea    _Overflow    | for printf
  3906. - # else    __MSHORT__
  3907.   error_plus:
  3908.       swap    d0
  3909. -     movew    #63,_errno    | Overflow: errno = ERANGE
  3910.       moveml    d0-d1,a7@-    | print error message
  3911. !     pea    _Domain        | for printf
  3912.       bra    error_exit    |
  3913.   error_nan:
  3914.       moveml    a0@(24),d0-d1    | result = +inf
  3915. -     movew    #62,_errno    | NAN => errno = EDOM
  3916.       moveml    d0-d1,a7@-    | print error message
  3917. !     pea    _Overflow    | for printf
  3918. ! # endif    __MSHORT__
  3919.   error_exit:
  3920. !     pea    __iob+52    |
  3921.       jbsr    _fprintf    |
  3922.       addql    #8,a7        |
  3923.       moveml    a7@+,d0-d1
  3924. -     rts
  3925. - #else    ERROR_CHECK
  3926. -     rts
  3927.   #endif    ERROR_CHECK
  3928.   
  3929.   #endif    /* !__M68881__ && !sfp004    */
  3930. --- 198,222 ----
  3931.       beq    error_plus    |
  3932.       swap    d0        | result ok,
  3933.       rts            | restore d0
  3934.   error_plus:
  3935.       swap    d0
  3936.       moveml    d0-d1,a7@-    | print error message
  3937. !     moveq    #ERANGE,d0    | Overflow: errno = ERANGE
  3938. !     Emove    d0,Errno
  3939. !     pea    pc@(_Domain)    | for printf
  3940.       bra    error_exit    |
  3941.   error_nan:
  3942. +     moveq    #EDOM,d0    | NAN => errno = EDOM
  3943. +     Emove    d0,Errno
  3944.       moveml    a0@(24),d0-d1    | result = +inf
  3945.       moveml    d0-d1,a7@-    | print error message
  3946. !     pea    pc@(_Overflow)    | for printf
  3947.   error_exit:
  3948. !     pea    Stderr        |
  3949.       jbsr    _fprintf    |
  3950.       addql    #8,a7        |
  3951.       moveml    a7@+,d0-d1
  3952.   #endif    ERROR_CHECK
  3953. +     rts
  3954.   
  3955.   #endif    /* !__M68881__ && !sfp004    */
  3956. *** 1.7    1992/06/24 15:32:04
  3957. --- lib.h    1992/10/09 20:46:24
  3958. ***************
  3959. *** 47,55 ****
  3960. --- 47,61 ----
  3961.   
  3962.   __EXTERN int        _doprnt __PROTO((FILE *, const char *, __VA_LIST__));
  3963.   
  3964. + #ifdef __MINT__
  3965. + __EXTERN int    _scanf __PROTO((void *, int (*)(void *),
  3966. +             int (*)(int, void *), unsigned char *, __VA_LIST__));
  3967. + #endif
  3968. + 
  3969.   __EXTERN long        get_sysvar __PROTO((void *var));
  3970.   __EXTERN void        set_sysvar_to_long __PROTO((void *var, long val));
  3971.   
  3972. + __EXTERN void        _setstack __PROTO((char *));
  3973.   __EXTERN __EXITING     __exit __PROTO((long status));
  3974.   
  3975.   /* from the TOS GCC library */
  3976. ***************
  3977. *** 58,65 ****
  3978.   struct mem_chunk 
  3979.       {
  3980.       long valid;
  3981. ! #define VAL_FREE  0xf4ee0abc
  3982. ! #define VAL_ALLOC 0xa11c0abc
  3983.   
  3984.       struct mem_chunk *next;
  3985.       unsigned long size;
  3986. --- 64,71 ----
  3987.   struct mem_chunk 
  3988.       {
  3989.       long valid;
  3990. ! #define VAL_FREE  0xf4ee0abcL
  3991. ! #define VAL_ALLOC 0xa11c0abcL
  3992.   
  3993.       struct mem_chunk *next;
  3994.       unsigned long size;
  3995. ***************
  3996. *** 67,72 ****
  3997.   
  3998.   /* linked list of free blocks */
  3999.   
  4000. ! __EXTERN struct mem_chunk _mchunk_free_list;
  4001.   
  4002.   #endif /* _LIB_H */
  4003. --- 73,78 ----
  4004.   
  4005.   /* linked list of free blocks */
  4006.   
  4007. ! extern struct mem_chunk _mchunk_free_list;
  4008.   
  4009.   #endif /* _LIB_H */
  4010. *** 1.4    1991/03/13 14:58:25
  4011. --- linea.c    1992/10/09 20:46:24
  4012. ***************
  4013. *** 35,50 ****
  4014.   
  4015.   int linea2()                             
  4016.   {                                    
  4017. -     short retvalue;                            
  4018.       __asm__ volatile                        
  4019.       ("
  4020. !         .word   0xA002;  
  4021. !          movew    d0,%0"   
  4022. !     : "=g"(retvalue)                  /* outputs */    
  4023.       :                           /* inputs  */    
  4024.       : "d0", "d1", "d2", "a0", "a1", "a2"       /* clobbered regs */    
  4025.       );                                
  4026. -     return (int)retvalue;                            
  4027.   }
  4028.   
  4029.   void linea3()                             
  4030. --- 35,47 ----
  4031.   
  4032.   int linea2()                             
  4033.   {                                    
  4034.       __asm__ volatile                        
  4035.       ("
  4036. !         .word   0xA002"
  4037. !     :                           /* outputs */    
  4038.       :                           /* inputs  */    
  4039.       : "d0", "d1", "d2", "a0", "a1", "a2"       /* clobbered regs */    
  4040.       );                                
  4041.   }
  4042.   
  4043.   void linea3()                             
  4044. *** 1.14    1992/06/01 01:54:10
  4045. --- localtim.c    1992/10/09 20:46:24
  4046. ***************
  4047. *** 9,14 ****
  4048. --- 9,16 ----
  4049.   #include <compiler.h>
  4050.   #endif
  4051.   
  4052. + struct tm *_gmtime __PROTO((const time_t *t, struct tm *stm));
  4053. + 
  4054.   #if 0
  4055.   static void
  4056.   DEBUG_TM(nm, tm)
  4057. ***************
  4058. *** 98,104 ****
  4059.   
  4060.           if (time < 0)   /* negative times are bad */
  4061.                   return 0;
  4062. !         stm->tm_wday = ((time/SECS_PER_DAY) + 4) % 7;
  4063.   
  4064.           year = 70;
  4065.           for (;;) {
  4066. --- 100,106 ----
  4067.   
  4068.           if (time < 0)   /* negative times are bad */
  4069.                   return 0;
  4070. !         stm->tm_wday = (int) (((time/SECS_PER_DAY) + 4) % 7);
  4071.   
  4072.           year = 70;
  4073.           for (;;) {
  4074. ***************
  4075. *** 114,120 ****
  4076.                   year++;
  4077.           }
  4078.           stm->tm_year = year;
  4079. !         mday = stm->tm_yday = time/SECS_PER_DAY;
  4080.   
  4081.           days_per_mth[1] = (year % 4) ? 28 : 29;
  4082.           for (i = 0; mday >= days_per_mth[i]; i++)
  4083. --- 116,122 ----
  4084.                   year++;
  4085.           }
  4086.           stm->tm_year = year;
  4087. !         mday = stm->tm_yday = (int)(time/SECS_PER_DAY);
  4088.   
  4089.           days_per_mth[1] = (year % 4) ? 28 : 29;
  4090.           for (i = 0; mday >= days_per_mth[i]; i++)
  4091. ***************
  4092. *** 123,132 ****
  4093.           stm->tm_mday = mday + 1;
  4094.   
  4095.           time = time % SECS_PER_DAY;
  4096. !         stm->tm_hour = time/SECS_PER_HOUR;
  4097.           time = time % SECS_PER_HOUR;
  4098. !         stm->tm_min = time/SECS_PER_MIN;
  4099. !         stm->tm_sec = time % SECS_PER_MIN;
  4100.           stm->tm_isdst = 0;
  4101.   
  4102.   DEBUG_TM("gmtime", stm);
  4103. --- 125,134 ----
  4104.           stm->tm_mday = mday + 1;
  4105.   
  4106.           time = time % SECS_PER_DAY;
  4107. !         stm->tm_hour = (int) (time/SECS_PER_HOUR);
  4108.           time = time % SECS_PER_HOUR;
  4109. !         stm->tm_min = (int) (time/SECS_PER_MIN);
  4110. !         stm->tm_sec = (int) (time % SECS_PER_MIN);
  4111.           stm->tm_isdst = 0;
  4112.   
  4113.   DEBUG_TM("gmtime", stm);
  4114. ***************
  4115. *** 306,318 ****
  4116.       long s;
  4117.           const struct tm *t;
  4118.   {
  4119. -     int wkday;
  4120. - 
  4121. -     if (t->tm_wday >= 0)
  4122. -         wkday = t->tm_wday;
  4123. -     else
  4124. -         wkday = ((s / SECS_PER_DAY) + 4) % 7;
  4125. - 
  4126.           if (t->tm_mon == 3) {           /* April */
  4127.   /* before 1987, see if there's another sunday in the month */
  4128.                   if (t->tm_year < 87 && t->tm_wday + 30 - t->tm_mday < 7)
  4129. --- 308,313 ----
  4130. *** 1.9    1992/06/24 15:32:04
  4131. --- lseek.c    1992/10/09 20:46:24
  4132. ***************
  4133. *** 1,3 ****
  4134. --- 1,4 ----
  4135. + #include <compiler.h>
  4136.   #include <stddef.h>
  4137.   #include <stdio.h>
  4138.   #include <errno.h>
  4139. ***************
  4140. *** 7,12 ****
  4141. --- 8,15 ----
  4142.   #include <unistd.h>
  4143.   #include "lib.h"
  4144.   
  4145. + static long _real_lseek __PROTO((int, long, int));
  4146. + 
  4147.   static long _real_lseek(h, where, how)
  4148.   int h;
  4149.   long where;
  4150. ***************
  4151. *** 31,37 ****
  4152.       long current_pos;
  4153.       long expected_pos;
  4154.       long new_pos;
  4155. !     char *buf;
  4156.       
  4157.       if ( (mode == SEEK_END) || (offset <= 0) )
  4158.       /* do it the usual way */
  4159. --- 34,40 ----
  4160.       long current_pos;
  4161.       long expected_pos;
  4162.       long new_pos;
  4163. !     char buf[256];
  4164.       
  4165.       if ( (mode == SEEK_END) || (offset <= 0) )
  4166.       /* do it the usual way */
  4167. ***************
  4168. *** 52,58 ****
  4169.       new_pos = _real_lseek(handle, 0L, SEEK_END);    /* go to eof */
  4170.       }    
  4171.       
  4172. -     buf  = (char *)alloca((size_t)256);
  4173.       bzero(buf, (size_t)256);
  4174.       while (expected_pos > new_pos)    
  4175.       {
  4176. --- 55,60 ----
  4177. *** 1.7    1992/06/01 01:54:10
  4178. --- ltoa.c    1992/10/09 20:46:24
  4179. ***************
  4180. *** 1,8 ****
  4181.   #include <string.h>
  4182.   #include "lib.h"
  4183.   
  4184.   #ifdef __STRICT_ANSI__
  4185. ! #  ifdef __GNUC__
  4186.       char * strrev(char *);
  4187.   #  else
  4188.       extern char * strrev();
  4189. --- 1,9 ----
  4190.   #include <string.h>
  4191.   #include "lib.h"
  4192. + #include "lib.h"
  4193.   
  4194.   #ifdef __STRICT_ANSI__
  4195. ! #  ifdef __STDC__
  4196.       char * strrev(char *);
  4197.   #  else
  4198.       extern char * strrev();
  4199. *** 1.21    1992/06/01 01:54:10
  4200. --- malloc.c    1992/10/09 20:46:24
  4201. ***************
  4202. *** 5,10 ****
  4203. --- 5,11 ----
  4204.   /* 5/2/92 sb -- modified for Heat-n-Serve C to accomodate its 16-bit size_t */
  4205.   /* 5/5/92 sb -- split off realloc() & calloc() to reduce library drag */
  4206.   
  4207. + #include <compiler.h>
  4208.   #include <stddef.h>    /* for size_t */
  4209.   #include <stdlib.h>
  4210.   #include <memory.h>
  4211. ***************
  4212. *** 14,19 ****
  4213. --- 15,21 ----
  4214.   #include "lib.h"
  4215.   
  4216.   extern long _stksize;
  4217. + void *_malloc __PROTO((unsigned long));
  4218.   
  4219.   /* minimum chunk to ask OS for */
  4220.   static size_t MINHUNK =    4096L;    /* default */
  4221. ***************
  4222. *** 32,38 ****
  4223.   static int _ZeroMallocs = 0;
  4224.   
  4225.   __EXTERN void _bzero __PROTO((void *, unsigned long));
  4226. - __EXTERN void *_sbrk __PROTO((long));
  4227.   
  4228.   #ifdef __GNUC__
  4229.   asm(".stabs \"_malloc\",5,0,0,__malloc"); /* dept of clean tricks */
  4230. --- 34,39 ----
  4231. ***************
  4232. *** 161,167 ****
  4233.       s = (struct mem_chunk * )(((long) p) + p->size);
  4234.       if ((!_split_mem) && _heapbase != NULL &&
  4235.           s >= (struct mem_chunk *) _heapbase &&
  4236. !         s < (struct mem_chunk *) (_heapbase + _stksize)) {
  4237.         assert(s == (struct mem_chunk *) _heapbase);
  4238.         _heapbase = (void *) p;
  4239.         _stksize += p->size;
  4240. --- 162,168 ----
  4241.       s = (struct mem_chunk * )(((long) p) + p->size);
  4242.       if ((!_split_mem) && _heapbase != NULL &&
  4243.           s >= (struct mem_chunk *) _heapbase &&
  4244. !         s < (struct mem_chunk *) ((char *)_heapbase + _stksize)) {
  4245.         assert(s == (struct mem_chunk *) _heapbase);
  4246.         _heapbase = (void *) p;
  4247.         _stksize += p->size;
  4248. ***************
  4249. *** 173,179 ****
  4250.         s = (struct mem_chunk * )(((long) r) + r->size);
  4251.         if ((!_split_mem) && _heapbase != NULL &&
  4252.             s >= (struct mem_chunk *) _heapbase &&
  4253. !           s < (struct mem_chunk *) (_heapbase + _stksize)) {
  4254.           assert(s == (struct mem_chunk *) _heapbase);
  4255.           _heapbase = (void *) r;
  4256.           _stksize += r->size;
  4257. --- 174,180 ----
  4258.         s = (struct mem_chunk * )(((long) r) + r->size);
  4259.         if ((!_split_mem) && _heapbase != NULL &&
  4260.             s >= (struct mem_chunk *) _heapbase &&
  4261. !           s < (struct mem_chunk *) ((char *)_heapbase + _stksize)) {
  4262.           assert(s == (struct mem_chunk *) _heapbase);
  4263.           _heapbase = (void *) r;
  4264.           _stksize += r->size;
  4265. *** 1.1    1992/02/04 17:11:06
  4266. --- modf.cpp    1992/10/09 20:46:25
  4267. ***************
  4268. *** 141,147 ****
  4269.   .even
  4270.   _modf:
  4271.       movel    a1,a7@-            | save a1 (necessary?)
  4272. !     lea    0xfffa50,a0
  4273.       movew    #0x5403,a0@(comm)    | fintrz X -> fp0
  4274.       cmpiw    #0x8900,a0@(resp)    | check
  4275.       movel    a7@(8),a0@        | load X_hi
  4276. --- 141,147 ----
  4277.   .even
  4278.   _modf:
  4279.       movel    a1,a7@-            | save a1 (necessary?)
  4280. !     lea    0xfffffa50:w,a0
  4281.       movew    #0x5403,a0@(comm)    | fintrz X -> fp0
  4282.       cmpiw    #0x8900,a0@(resp)    | check
  4283.       movel    a7@(8),a0@        | load X_hi
  4284. *** 1.1    1992/06/01 01:54:10
  4285. --- obstack.c    1992/10/09 20:46:25
  4286. ***************
  4287. *** 15,22 ****
  4288.   along with this program; if not, write to the Free Software
  4289.   Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  4290.   
  4291. - #include <obstack.h>
  4292.   #include <compiler.h>
  4293.   #ifndef _SIZE_T
  4294.   #define _SIZE_T __SIZE_TYPEDEF__
  4295.   typedef _SIZE_T size_t;
  4296. --- 15,23 ----
  4297.   along with this program; if not, write to the Free Software
  4298.   Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  4299.   
  4300.   #include <compiler.h>
  4301. + #include <obstack.h>
  4302. + #include <stdlib.h>
  4303.   #ifndef _SIZE_T
  4304.   #define _SIZE_T __SIZE_TYPEDEF__
  4305.   typedef _SIZE_T size_t;
  4306. ***************
  4307. *** 64,70 ****
  4308.        struct obstack *h;
  4309.        size_t size;
  4310.        int alignment;
  4311. !      POINTER (*chunkfun) ();
  4312.        void (*freefun) ();
  4313.   {
  4314.     register struct _obstack_chunk* chunk; /* points to new chunk */
  4315. --- 65,71 ----
  4316.        struct obstack *h;
  4317.        size_t size;
  4318.        int alignment;
  4319. !      POINTER (*chunkfun) __PROTO((size_t));
  4320.        void (*freefun) ();
  4321.   {
  4322.     register struct _obstack_chunk* chunk; /* points to new chunk */
  4323. ***************
  4324. *** 82,94 ****
  4325.   
  4326.        These number are irrelevant to the new GNU malloc.  I suspect it is
  4327.        less sensitive to the size of the request.  */
  4328. !       int extra = ((((12 + DEFAULT_ROUNDING - 1) & ~(DEFAULT_ROUNDING - 1))
  4329.               + 4 + DEFAULT_ROUNDING - 1)
  4330.              & ~(DEFAULT_ROUNDING - 1));
  4331.         size = 4096 - extra;
  4332.       }
  4333.   
  4334. !   h->chunkfun = (struct _obstack_chunk * (*)()) chunkfun;
  4335.     h->freefun = freefun;
  4336.     h->chunk_size = size;
  4337.     h->alignment_mask = alignment - 1;
  4338. --- 83,95 ----
  4339.   
  4340.        These number are irrelevant to the new GNU malloc.  I suspect it is
  4341.        less sensitive to the size of the request.  */
  4342. !       size_t extra = ((((12 + DEFAULT_ROUNDING - 1) & ~(DEFAULT_ROUNDING - 1))
  4343.               + 4 + DEFAULT_ROUNDING - 1)
  4344.              & ~(DEFAULT_ROUNDING - 1));
  4345.         size = 4096 - extra;
  4346.       }
  4347.   
  4348. !   h->chunkfun = (struct _obstack_chunk * (*) __PROTO((size_t))) chunkfun;
  4349.     h->freefun = freefun;
  4350.     h->chunk_size = size;
  4351.     h->alignment_mask = alignment - 1;
  4352. ***************
  4353. *** 118,124 ****
  4354.     register size_t    new_size;
  4355.     register size_t obj_size = h->next_free - h->object_base;
  4356.     register long i;
  4357. !   int already;
  4358.   
  4359.     /* Compute size for new chunk.  */
  4360.     new_size = (obj_size + length) + (obj_size >> 3) + 100;
  4361. --- 119,125 ----
  4362.     register size_t    new_size;
  4363.     register size_t obj_size = h->next_free - h->object_base;
  4364.     register long i;
  4365. !   size_t already;
  4366.   
  4367.     /* Compute size for new chunk.  */
  4368.     new_size = (obj_size + length) + (obj_size >> 3) + 100;
  4369. *** 1.9    1992/06/01 01:54:10
  4370. --- perror.c    1992/10/09 20:46:25
  4371. ***************
  4372. *** 16,22 ****
  4373.           fputs(msg, stderr);
  4374.           fputs(": ", stderr);
  4375.           }
  4376. !     if(msg = strerror(errno))
  4377.           fputs(msg, stderr);
  4378.       fputs(".\n", stderr);
  4379.       }
  4380. --- 16,22 ----
  4381.           fputs(msg, stderr);
  4382.           fputs(": ", stderr);
  4383.           }
  4384. !     if((msg = strerror(errno)) != NULL)
  4385.           fputs(msg, stderr);
  4386.       fputs(".\n", stderr);
  4387.       }
  4388. *** 1.1    1992/04/13 15:50:45
  4389. --- putenv.c    1992/10/09 20:46:26
  4390. ***************
  4391. *** 27,33 ****
  4392.           len++;
  4393.   
  4394.   /* find the tag in the environment */
  4395. !     for (var = environ; name = *var; var++) {
  4396.           if (!strncmp(name, strng, len) && name[len] == '=')
  4397.               break;
  4398.       }
  4399. --- 27,33 ----
  4400.           len++;
  4401.   
  4402.   /* find the tag in the environment */
  4403. !     for (var = environ; (name = *var) != NULL; var++) {
  4404.           if (!strncmp(name, strng, len) && name[len] == '=')
  4405.               break;
  4406.       }
  4407. *** 1.13    1992/06/24 15:32:04
  4408. --- qsort.c    1992/10/09 20:46:26
  4409. ***************
  4410. *** 226,232 ****
  4411.               max_stack_size++;
  4412.       }
  4413.       /* Create the stack, or die trying! */
  4414. !     if (stack = MAKE_STACK (max_stack_size))
  4415.           top = stack;
  4416.       else
  4417.           return;
  4418. --- 226,232 ----
  4419.               max_stack_size++;
  4420.       }
  4421.       /* Create the stack, or die trying! */
  4422. !     if ((stack = MAKE_STACK (max_stack_size)) != NULL)
  4423.           top = stack;
  4424.       else
  4425.           return;
  4426. *** 1.7    1992/06/01 01:54:10
  4427. --- random.c    1992/10/09 20:46:26
  4428. ***************
  4429. *** 20,25 ****
  4430. --- 20,26 ----
  4431.   #endif /* LIBC_SCCS and not lint */
  4432.   
  4433.   #include <stdio.h>
  4434. + #include <unistd.h>
  4435.   
  4436.   /*
  4437.    * random.c:
  4438. ***************
  4439. *** 121,134 ****
  4440.    */
  4441.   
  4442.   static  long        randtbl[ DEG_3 + 1 ]    = { TYPE_3,
  4443. !                 0x9a319039, 0x32d9c024, 0x9b663182, 0x5da1f342,
  4444. !                 0xde3b81e0, 0xdf0a6fb5, 0xf103bc02, 0x48f340fb,
  4445. !                 0x7449e56b, 0xbeb1dbb0, 0xab5c5918, 0x946554fd,
  4446. !                 0x8c2e680f, 0xeb3d799f, 0xb11ee0b7, 0x2d436b86,
  4447. !                 0xda672e2a, 0x1588ca88, 0xe369735d, 0x904f35f7,
  4448. !                 0xd7158fd6, 0x6fa6f051, 0x616e6b96, 0xac94efdc,
  4449. !                 0x36413f93, 0xc622c298, 0xf5a42ab8, 0x8a88d77b,
  4450. !                     0xf5ad9d0e, 0x8999220b, 0x27fb47b9 };
  4451.   
  4452.   /*
  4453.    * fptr and rptr are two pointers into the state info, a front and a rear
  4454. --- 122,135 ----
  4455.    */
  4456.   
  4457.   static  long        randtbl[ DEG_3 + 1 ]    = { TYPE_3,
  4458. !                 0x9a319039L, 0x32d9c024L, 0x9b663182L, 0x5da1f342L,
  4459. !                 0xde3b81e0L, 0xdf0a6fb5L, 0xf103bc02L, 0x48f340fbL,
  4460. !                 0x7449e56bL, 0xbeb1dbb0L, 0xab5c5918L, 0x946554fdL,
  4461. !                 0x8c2e680fL, 0xeb3d799fL, 0xb11ee0b7L, 0x2d436b86L,
  4462. !                 0xda672e2aL, 0x1588ca88L, 0xe369735dL, 0x904f35f7L,
  4463. !                 0xd7158fd6L, 0x6fa6f051L, 0x616e6b96L, 0xac94efdcL,
  4464. !                 0x36413f93L, 0xc622c298L, 0xf5a42ab8L, 0x8a88d77bL,
  4465. !                      0xf5ad9d0eL, 0x8999220bL, 0x27fb47b9L };
  4466.   
  4467.   /*
  4468.    * fptr and rptr are two pointers into the state info, a front and a rear
  4469. ***************
  4470. *** 187,193 ****
  4471.   
  4472.       unsigned        x;
  4473.   {
  4474. !         register  int        i, j;
  4475.       long random();
  4476.   
  4477.       if(  rand_type  ==  TYPE_0  )  {
  4478. --- 188,194 ----
  4479.   
  4480.       unsigned        x;
  4481.   {
  4482. !         register  int        i /* , j */ ;
  4483.       long random();
  4484.   
  4485.       if(  rand_type  ==  TYPE_0  )  {
  4486. ***************
  4487. *** 194,203 ****
  4488.           state[ 0 ] = x;
  4489.       }
  4490.       else  {
  4491. !         j = 1;
  4492.           state[ 0 ] = x;
  4493.           for( i = 1; i < rand_deg; i++ )  {
  4494. !         state[i] = 1103515245*state[i - 1] + 12345;
  4495.           }
  4496.           fptr = &state[ rand_sep ];
  4497.           rptr = &state[ 0 ];
  4498. --- 195,204 ----
  4499.           state[ 0 ] = x;
  4500.       }
  4501.       else  {
  4502. !         /* j = 1; */
  4503.           state[ 0 ] = x;
  4504.           for( i = 1; i < rand_deg; i++ )  {
  4505. !         state[i] = 1103515245L*state[i - 1] + 12345;
  4506.           }
  4507.           fptr = &state[ rand_sep ];
  4508.           rptr = &state[ 0 ];
  4509. ***************
  4510. *** 297,304 ****
  4511.       char        *arg_state;
  4512.   {
  4513.       register  long        *new_state    = (long *)arg_state;
  4514. !     register  int        type        = new_state[0]%MAX_TYPES;
  4515. !     register  int        rear        = new_state[0]/MAX_TYPES;
  4516.       char            *ostate        = (char *)( &state[ -1 ] );
  4517.   
  4518.       if(  rand_type  ==  TYPE_0  )  state[ -1 ] = rand_type;
  4519. --- 298,305 ----
  4520.       char        *arg_state;
  4521.   {
  4522.       register  long        *new_state    = (long *)arg_state;
  4523. !     register  int        type        = (int) (new_state[0]%MAX_TYPES);
  4524. !     register  int        rear        = (int) (new_state[0]/MAX_TYPES);
  4525.       char            *ostate        = (char *)( &state[ -1 ] );
  4526.   
  4527.       if(  rand_type  ==  TYPE_0  )  state[ -1 ] = rand_type;
  4528. ***************
  4529. *** 349,359 ****
  4530.       long        i;
  4531.   
  4532.       if(  rand_type  ==  TYPE_0  )  {
  4533. !         i = state[0] = ( state[0]*1103515245 + 12345 )&0x7fffffff;
  4534.       }
  4535.       else  {
  4536.           *fptr += *rptr;
  4537. !         i = (*fptr >> 1)&0x7fffffff;    /* chucking least random bit */
  4538.           if(  ++fptr  >=  end_ptr  )  {
  4539.           fptr = state;
  4540.           ++rptr;
  4541. --- 350,360 ----
  4542.       long        i;
  4543.   
  4544.       if(  rand_type  ==  TYPE_0  )  {
  4545. !         i = state[0] = ( state[0]*1103515245L + 12345 )&0x7fffffffL;
  4546.       }
  4547.       else  {
  4548.           *fptr += *rptr;
  4549. !         i = (*fptr >> 1)&0x7fffffffL;    /* chucking least random bit */
  4550.           if(  ++fptr  >=  end_ptr  )  {
  4551.           fptr = state;
  4552.           ++rptr;
  4553. *** 1.1    1992/06/01 01:54:10
  4554. --- realloc.c    1992/10/09 20:46:26
  4555. ***************
  4556. *** 13,18 ****
  4557. --- 13,19 ----
  4558.   
  4559.   __EXTERN void *_malloc __PROTO((unsigned long));
  4560.   __EXTERN void _bzero __PROTO((void *, unsigned long));
  4561. + void *_realloc __PROTO((void *, unsigned long));
  4562.   
  4563.   #ifdef __GNUC__
  4564.   asm(".stabs \"_realloc\",5,0,0,__realloc"); /* dept of clean tricks */
  4565. *** 1.3    1991/04/26 03:42:08
  4566. --- regexp.c    1992/10/09 20:46:26
  4567. ***************
  4568. *** 32,37 ****
  4569. --- 32,38 ----
  4570.   #include <string.h>
  4571.   #include <regexp.h>
  4572.   #include <stdio.h>
  4573. + #include <types.h>
  4574.   #ifndef _COMPILER_H
  4575.   #include <compiler.h>
  4576.   #endif
  4577. ***************
  4578. *** 172,180 ****
  4579.   static void regoptail __PROTO((char *p, char *val));
  4580.   static int regtry __PROTO((regexp *prog, char *string));
  4581.   static int regmatch __PROTO((char *prog));
  4582. ! static int regrepeat __PROTO((char *p));
  4583.   static char *regnext __PROTO((char *p));
  4584.   static char *regprop __PROTO((char *op));
  4585.   
  4586.   /*
  4587.    - regcomp - compile a regular expression into internal code
  4588. --- 173,183 ----
  4589.   static void regoptail __PROTO((char *p, char *val));
  4590.   static int regtry __PROTO((regexp *prog, char *string));
  4591.   static int regmatch __PROTO((char *prog));
  4592. ! static size_t regrepeat __PROTO((char *p));
  4593.   static char *regnext __PROTO((char *p));
  4594. + #ifdef DEBUG
  4595.   static char *regprop __PROTO((char *op));
  4596. + #endif
  4597.   
  4598.   /*
  4599.    - regcomp - compile a regular expression into internal code
  4600. ***************
  4601. *** 197,203 ****
  4602.     register regexp *r;
  4603.     register char *scan;
  4604.     register char *longest;
  4605. !   register int len;
  4606.     int flags;
  4607.   
  4608.     if (exp == (char *)NULL) RFAIL("NULL argument");
  4609. --- 200,206 ----
  4610.     register regexp *r;
  4611.     register char *scan;
  4612.     register char *longest;
  4613. !   register size_t len;
  4614.     int flags;
  4615.   
  4616.     if (exp == (char *)NULL) RFAIL("NULL argument");
  4617. ***************
  4618. *** 501,507 ****
  4619.       *flagp |= HASWIDTH | SIMPLE;
  4620.       break;
  4621.         default:{
  4622. !         register int len;
  4623.           register char ender;
  4624.   
  4625.           regparse--;
  4626. --- 504,510 ----
  4627.       *flagp |= HASWIDTH | SIMPLE;
  4628.       break;
  4629.         default:{
  4630. !         register size_t len;
  4631.           register char ender;
  4632.   
  4633.           regparse--;
  4634. ***************
  4635. *** 529,535 ****
  4636.    - regnode - emit a node
  4637.    */
  4638.   static char *regnode(op)
  4639. ! char op;
  4640.   {
  4641.     register char *ret;
  4642.     register char *ptr;
  4643. --- 532,538 ----
  4644.    - regnode - emit a node
  4645.    */
  4646.   static char *regnode(op)
  4647. ! int op;
  4648.   {
  4649.     register char *ret;
  4650.     register char *ptr;
  4651. ***************
  4652. *** 552,558 ****
  4653.    - regc - emit (if appropriate) a byte of code
  4654.    */
  4655.   static void regc(b)
  4656. ! char b;
  4657.   {
  4658.     if (regcode != ®dummy)
  4659.       *regcode++ = b;
  4660. --- 555,561 ----
  4661.    - regc - emit (if appropriate) a byte of code
  4662.    */
  4663.   static void regc(b)
  4664. ! int b;
  4665.   {
  4666.     if (regcode != ®dummy)
  4667.       *regcode++ = b;
  4668. ***************
  4669. *** 566,572 ****
  4670.    * Means relocating the operand.
  4671.    */
  4672.   static void reginsert(op, opnd)
  4673. ! char op;
  4674.   char *opnd;
  4675.   {
  4676.     register char *src;
  4677. --- 569,575 ----
  4678.    * Means relocating the operand.
  4679.    */
  4680.   static void reginsert(op, opnd)
  4681. ! int op;
  4682.   char *opnd;
  4683.   {
  4684.     register char *src;
  4685. ***************
  4686. *** 597,603 ****
  4687.   {
  4688.     register char *scan;
  4689.     register char *temp;
  4690. !   register int offset;
  4691.   
  4692.     if (p == ®dummy) return;
  4693.   
  4694. --- 600,606 ----
  4695.   {
  4696.     register char *scan;
  4697.     register char *temp;
  4698. !   register long offset;
  4699.   
  4700.     if (p == ®dummy) return;
  4701.   
  4702. ***************
  4703. *** 770,776 ****
  4704.           reginput++;
  4705.           break;
  4706.           case EXACTLY:{
  4707. !             register int len;
  4708.               register char *opnd;
  4709.   
  4710.               opnd = OPERAND(scan);
  4711. --- 773,779 ----
  4712.           reginput++;
  4713.           break;
  4714.           case EXACTLY:{
  4715. !             register size_t len;
  4716.               register char *opnd;
  4717.   
  4718.               opnd = OPERAND(scan);
  4719. ***************
  4720. *** 868,876 ****
  4721.           case STAR:
  4722.           case PLUS:{
  4723.               register char nextch;
  4724. !             register int no;
  4725.               register char *save;
  4726. !             register int min;
  4727.   
  4728.               /* Lookahead to avoid useless match attempts
  4729.                * when we know what character comes next. */
  4730. --- 871,879 ----
  4731.           case STAR:
  4732.           case PLUS:{
  4733.               register char nextch;
  4734. !             register size_t no;
  4735.               register char *save;
  4736. !             register size_t min;
  4737.   
  4738.               /* Lookahead to avoid useless match attempts
  4739.                * when we know what character comes next. */
  4740. ***************
  4741. *** 911,920 ****
  4742.   /*
  4743.    - regrepeat - repeatedly match something simple, report how many
  4744.    */
  4745. ! static int regrepeat(p)
  4746.   char *p;
  4747.   {
  4748. !   register int count = 0;
  4749.     register char *scan;
  4750.     register char *opnd;
  4751.   
  4752. --- 914,923 ----
  4753.   /*
  4754.    - regrepeat - repeatedly match something simple, report how many
  4755.    */
  4756. ! static size_t regrepeat(p)
  4757.   char *p;
  4758.   {
  4759. !   register size_t count = 0;
  4760.     register char *scan;
  4761.     register char *opnd;
  4762.   
  4763. *** 1.12    1992/06/01 01:54:10
  4764. --- sbrk.c    1992/10/09 20:46:27
  4765. ***************
  4766. *** 29,34 ****
  4767. --- 29,36 ----
  4768.   extern long _stksize;
  4769.   extern short _split_mem;
  4770.   
  4771. + static void *HeapAlloc __PROTO((unsigned long sz));
  4772. + 
  4773.   static void * HeapAlloc( sz )
  4774.   unsigned long sz ;
  4775.   {
  4776. ***************
  4777. *** 49,57 ****
  4778.       return( sp );
  4779.   }
  4780.   
  4781. ! #ifndef __GNUC__
  4782.   asm(".stabs \"_sbrk\",5,0,0,__sbrk"); /* dept of clean tricks */
  4783. - asm(".stabs \"_lsbrk\",5,0,0,__sbrk"); /* dept of clean tricks */
  4784.   #endif
  4785.   
  4786.   /* provided for compilers with sizeof(int) == 2 */
  4787. --- 51,58 ----
  4788.       return( sp );
  4789.   }
  4790.   
  4791. ! #ifdef __GNUC__
  4792.   asm(".stabs \"_sbrk\",5,0,0,__sbrk"); /* dept of clean tricks */
  4793.   #endif
  4794.   
  4795.   /* provided for compilers with sizeof(int) == 2 */
  4796. ***************
  4797. *** 84,97 ****
  4798.   
  4799.   #ifndef __GNUC__
  4800.   void *sbrk(x)
  4801. ! int x;
  4802.   {
  4803.       return _sbrk((long)x);
  4804. - }
  4805. - 
  4806. - void *lsbrk(x)
  4807. - long x;
  4808. - {
  4809. -     return _sbrk(x);
  4810.   }
  4811.   #endif
  4812. --- 85,92 ----
  4813.   
  4814.   #ifndef __GNUC__
  4815.   void *sbrk(x)
  4816. ! size_t x;
  4817.   {
  4818.       return _sbrk((long)x);
  4819.   }
  4820.   #endif
  4821. *** 1.9    1992/06/01 01:54:10
  4822. --- setbuf.c    1992/10/09 20:46:27
  4823. ***************
  4824. *** 14,20 ****
  4825.           free(fp->_base);
  4826.       fp->_flag &= ~(_IOFBF | _IOLBF | _IONBF | _IOMYBUF);
  4827.       fp->_cnt = 0;
  4828. !     if(fp->_base = (unsigned char *)buf)    /* assignment intentional */
  4829.           {
  4830.           fp->_flag |= _IOFBF;
  4831.               /* this is intentionally not __DEFAULT_BUFSIZ__ ++jrb */
  4832. --- 14,20 ----
  4833.           free(fp->_base);
  4834.       fp->_flag &= ~(_IOFBF | _IOLBF | _IONBF | _IOMYBUF);
  4835.       fp->_cnt = 0;
  4836. !     if((fp->_base = (unsigned char *)buf) != NULL)
  4837.           {
  4838.           fp->_flag |= _IOFBF;
  4839.               /* this is intentionally not __DEFAULT_BUFSIZ__ ++jrb */
  4840. *** 1.4    1991/04/12 18:19:53
  4841. --- setjmp.cpp    1992/10/09 20:46:27
  4842. ***************
  4843. *** 14,24 ****
  4844.       .globl _longjmp
  4845.       .globl ___mint
  4846.   
  4847.   _longjmp:
  4848.   #ifdef __MSHORT__
  4849. !     tstw    ___mint            | see if MiNT is active
  4850.   #else
  4851. !     tstl    ___mint
  4852.   #endif
  4853.       beq    NOMINT            | no -- do not call sigreturn
  4854.       movew    #0x11a, sp@-        | Psigreturn() system call
  4855. --- 14,30 ----
  4856.       .globl _longjmp
  4857.       .globl ___mint
  4858.   
  4859. + #ifdef __MBASE__
  4860. + #define Mint    __MBASE__@(___mint)
  4861. + #else
  4862. + #define Mint    ___mint
  4863. + #endif
  4864. + 
  4865.   _longjmp:
  4866.   #ifdef __MSHORT__
  4867. !     tstw    Mint            | see if MiNT is active
  4868.   #else
  4869. !     tstl    Mint
  4870.   #endif
  4871.       beq    NOMINT            | no -- do not call sigreturn
  4872.       movew    #0x11a, sp@-        | Psigreturn() system call
  4873. *** 1.5    1990/02/27 21:25:04
  4874. --- setvbuf.c    1992/10/09 20:46:27
  4875. ***************
  4876. *** 32,38 ****
  4877.       }
  4878.       else
  4879.       {
  4880. !         if(fp->_base = (unsigned char *) malloc(size))
  4881.           {
  4882.           fp->_flag |= _IOMYBUF;
  4883.           }
  4884. --- 32,38 ----
  4885.       }
  4886.       else
  4887.       {
  4888. !         if ((fp->_base = (unsigned char *) malloc(size)) != NULL)
  4889.           {
  4890.           fp->_flag |= _IOMYBUF;
  4891.           }
  4892. *** 1.8    1992/06/01 01:54:10
  4893. --- sprintf.c    1992/10/09 20:46:28
  4894. ***************
  4895. *** 3,9 ****
  4896.   #include <limits.h>
  4897.   #include "lib.h"
  4898.   
  4899. ! #ifdef __SOZOBON__    /* Electronic brain... */
  4900.   static FILE dummyf =
  4901.       {0L, (unsigned char *)0, (unsigned char *)0,
  4902.            _IOWRT|_IOBIN|_IOSTRING|_IOFBF, 0, LONG_MAX, '\0'};
  4903. --- 3,9 ----
  4904.   #include <limits.h>
  4905.   #include "lib.h"
  4906.   
  4907. ! #ifndef __GNUC__
  4908.   static FILE dummyf =
  4909.       {0L, (unsigned char *)0, (unsigned char *)0,
  4910.            _IOWRT|_IOBIN|_IOSTRING|_IOFBF, 0, LONG_MAX, '\0'};
  4911. ***************
  4912. *** 21,27 ****
  4913.       {
  4914.       register int n;
  4915.       va_list argp;
  4916. ! #ifndef __SOZOBON__
  4917.       FILE sf = 
  4918.       {0L, (unsigned char *)buf, (unsigned char *)buf,
  4919.            _IOWRT|_IOBIN|_IOSTRING|_IOFBF, 0, LONG_MAX,'\0'};
  4920. --- 21,27 ----
  4921.       {
  4922.       register int n;
  4923.       va_list argp;
  4924. ! #ifdef __GNUC__
  4925.       FILE sf = 
  4926.       {0L, (unsigned char *)buf, (unsigned char *)buf,
  4927.            _IOWRT|_IOBIN|_IOSTRING|_IOFBF, 0, LONG_MAX,'\0'};
  4928. ***************
  4929. *** 44,50 ****
  4930.       va_list args;
  4931.       {
  4932.       register int n;
  4933. ! #ifndef __SOZOBON__    /* Same again, please, landlord. */
  4934.       FILE sf = 
  4935.       {0L, (unsigned char *)buf, (unsigned char *)buf,
  4936.            _IOWRT|_IOBIN|_IOSTRING|_IOFBF, 0, LONG_MAX,'\0'};
  4937. --- 44,50 ----
  4938.       va_list args;
  4939.       {
  4940.       register int n;
  4941. ! #ifdef __GNUC__    
  4942.       FILE sf = 
  4943.       {0L, (unsigned char *)buf, (unsigned char *)buf,
  4944.            _IOWRT|_IOBIN|_IOSTRING|_IOFBF, 0, LONG_MAX,'\0'};
  4945. *** 1.4    1990/02/27 21:25:12
  4946. --- strcat.c    1992/10/09 20:46:28
  4947. ***************
  4948. *** 15,21 ****
  4949.       register char *dscan;
  4950.       register const char *sscan;
  4951.   
  4952. !     if ((sscan = src))
  4953.       {
  4954.           for (dscan = dst; *dscan != '\0'; dscan++)
  4955.           continue;
  4956. --- 15,21 ----
  4957.       register char *dscan;
  4958.       register const char *sscan;
  4959.   
  4960. !     if ((sscan = src) != NULL)
  4961.       {
  4962.           for (dscan = dst; *dscan != '\0'; dscan++)
  4963.           continue;
  4964. *** 1.8    1992/06/01 01:54:10
  4965. --- strchr.c    1992/10/09 20:46:28
  4966. ***************
  4967. *** 11,17 ****
  4968.   char *
  4969.   index(s, charwanted)
  4970.         const char *s;
  4971. !       char charwanted;
  4972.   {
  4973.         return strchr(s, charwanted);
  4974.   }
  4975. --- 11,17 ----
  4976.   char *
  4977.   index(s, charwanted)
  4978.         const char *s;
  4979. !       int charwanted;
  4980.   {
  4981.         return strchr(s, charwanted);
  4982.   }
  4983. ***************
  4984. *** 20,26 ****
  4985.   char *                /* found char, or NULL if none */
  4986.   strchr(s, charwanted)
  4987.   const char *s;
  4988. ! register char charwanted;
  4989.   {
  4990.       register char c;
  4991.   
  4992. --- 20,26 ----
  4993.   char *                /* found char, or NULL if none */
  4994.   strchr(s, charwanted)
  4995.   const char *s;
  4996. ! register int charwanted;
  4997.   {
  4998.       register char c;
  4999.   
  5000. *** 1.6    1992/06/01 01:54:10
  5001. --- strftime.c    1992/10/09 20:46:30
  5002. ***************
  5003. *** 37,56 ****
  5004.           const char *fmt;
  5005.           const struct tm *ts;
  5006.   {
  5007. !         int    num = 0;
  5008. !         int     len = 0, n;
  5009.           char    q;
  5010.           char    buf[BIG_LEN], *putstr, *s;
  5011.   
  5012.           for(;;) {
  5013.                   if (num >= maxsize) return 0;
  5014. !                 if (!(q = *fmt++))  break;
  5015.                   if (q != '%') {
  5016.                           *str++ = q;
  5017.                           num++;
  5018.                           continue;
  5019.                   }
  5020. !                 if (!(q = *fmt++)) break;       /* get format command */
  5021.   
  5022.   /* assume that sprintf will be used, with a variable length */
  5023.   /* this is the most common case, so it saves us some coding to do it here */
  5024. --- 37,57 ----
  5025.           const char *fmt;
  5026.           const struct tm *ts;
  5027.   {
  5028. !         long    num = 0;
  5029. !         long    len = 0;
  5030. !     int n;
  5031.           char    q;
  5032.           char    buf[BIG_LEN], *putstr, *s;
  5033.   
  5034.           for(;;) {
  5035.                   if (num >= maxsize) return 0;
  5036. !                 if ((q = *fmt++) == 0)  break;
  5037.                   if (q != '%') {
  5038.                           *str++ = q;
  5039.                           num++;
  5040.                           continue;
  5041.                   }
  5042. !                 if ((q = *fmt++) == 0) break;       /* get format command */
  5043.   
  5044.   /* assume that sprintf will be used, with a variable length */
  5045.   /* this is the most common case, so it saves us some coding to do it here */
  5046. *** 1.1    1992/08/14 14:48:29
  5047. --- stricmp.c    1992/10/09 20:46:30
  5048. ***************
  5049. *** 11,17 ****
  5050. --- 11,19 ----
  5051.    *           but doesn't change anything
  5052.    */
  5053.   
  5054. + #ifdef __GNUC__
  5055.   asm(".stabs \"_strcmpi\",5,0,0,_stricmp"); /* dept of clean tricks */
  5056. + #endif
  5057.   
  5058.   int                             /* <0 for <, 0 for ==, >0 for > */
  5059.   stricmp(scan1, scan2)
  5060. ***************
  5061. *** 43,45 ****
  5062. --- 45,57 ----
  5063.           else
  5064.                   return(c1 - c2);
  5065.   }
  5066. + 
  5067. + #ifndef __GNUC__
  5068. + int
  5069. + strcmpi(scan1, scan2)
  5070. + register const char *scan1;
  5071. + register const char *scan2;
  5072. + {
  5073. +     return stricmp(scan1, scan2);
  5074. + }
  5075. + #endif
  5076. *** 1.4    1990/02/27 21:25:23
  5077. --- strncat.c    1992/10/09 20:46:30
  5078. ***************
  5079. *** 14,20 ****
  5080.       register const char *sscan;
  5081.       register long count;
  5082.   
  5083. !     if((sscan = src) && (n > 0))
  5084.       {
  5085.           for (dscan = dst; *dscan != '\0'; dscan++)
  5086.           continue;
  5087. --- 14,20 ----
  5088.       register const char *sscan;
  5089.       register long count;
  5090.   
  5091. !     if(((sscan = src) != NULL) && (n > 0))
  5092.       {
  5093.           for (dscan = dst; *dscan != '\0'; dscan++)
  5094.           continue;
  5095. *** 1.3    1990/02/27 21:25:26
  5096. --- strncpy.c    1992/10/09 20:46:31
  5097. ***************
  5098. *** 17,23 ****
  5099.       register long count;
  5100.   
  5101.       dscan = dst;
  5102. !     if (!(sscan = src))
  5103.           sscan = "";
  5104.       count = n;
  5105.       while (--count >= 0 && (*dscan++ = *sscan++) != '\0')
  5106. --- 17,23 ----
  5107.       register long count;
  5108.   
  5109.       dscan = dst;
  5110. !     if ((sscan = src) == NULL)
  5111.           sscan = "";
  5112.       count = n;
  5113.       while (--count >= 0 && (*dscan++ = *sscan++) != '\0')
  5114. *** 1.1    1992/08/14 14:48:29
  5115. --- strnicmp.c    1992/10/09 20:46:31
  5116. ***************
  5117. *** 11,17 ****
  5118. --- 11,19 ----
  5119.    *           but doesn't change anything
  5120.    */
  5121.   
  5122. + #ifdef __GNUC__
  5123.   asm(".stabs \"_strncmpi\",5,0,0,_strnicmp"); /* dept of clean tricks */
  5124. + #endif
  5125.   
  5126.   int                             /* <0 for <, 0 for ==, >0 for > */
  5127.   strnicmp(scan1, scan2, n)
  5128. ***************
  5129. *** 49,51 ****
  5130. --- 51,64 ----
  5131.           else
  5132.                   return(c1 - c2);
  5133.   }
  5134. + 
  5135. + #ifndef __GNUC__
  5136. + int
  5137. + strncmpi(scan1, scan2, n)
  5138. + register const char *scan1;
  5139. + register const char *scan2;
  5140. + size_t n;
  5141. + {
  5142. +     return strnicmp(scan1, scan2, n);
  5143. + }
  5144. + #endif
  5145. *** 1.8    1992/06/01 01:54:10
  5146. --- strrchr.c    1992/10/09 20:46:31
  5147. ***************
  5148. *** 10,16 ****
  5149.   char *
  5150.   rindex(s, charwanted)
  5151.         const char *s;
  5152. !       char charwanted;
  5153.   {
  5154.         return strrchr(s, charwanted);
  5155.   }
  5156. --- 10,16 ----
  5157.   char *
  5158.   rindex(s, charwanted)
  5159.         const char *s;
  5160. !       int charwanted;
  5161.   {
  5162.         return strrchr(s, charwanted);
  5163.   }
  5164. ***************
  5165. *** 19,31 ****
  5166.   char *                /* found char, or NULL if none */
  5167.   strrchr(s, charwanted)
  5168.   const char *s;
  5169. ! register char charwanted;
  5170.   {
  5171.       register char c;
  5172.       register const char *place;
  5173.   
  5174.       place = NULL;
  5175. !     while (c = *s++)
  5176.           if (c == charwanted)
  5177.               place = s - 1;
  5178.       if (charwanted == '\0')
  5179. --- 19,31 ----
  5180.   char *                /* found char, or NULL if none */
  5181.   strrchr(s, charwanted)
  5182.   const char *s;
  5183. ! register int charwanted;
  5184.   {
  5185.       register char c;
  5186.       register const char *place;
  5187.   
  5188.       place = NULL;
  5189. !     while ((c = *s++) != 0)
  5190.           if (c == charwanted)
  5191.               place = s - 1;
  5192.       if (charwanted == '\0')
  5193. *** 1.11    1991/07/23 22:06:28
  5194. --- strtol.c    1992/10/09 20:46:32
  5195. ***************
  5196. *** 97,103 ****
  5197.         else 
  5198.             result -= digit;
  5199.         }
  5200. !   } while (c = *nptr++);
  5201.   
  5202.   
  5203.     if (!negative) {
  5204. --- 97,103 ----
  5205.         else 
  5206.             result -= digit;
  5207.         }
  5208. !   } while ((c = *nptr++) != 0);
  5209.   
  5210.   
  5211.     if (!negative) {
  5212. *** 1.6    1991/07/23 22:06:28
  5213. --- strtoul.c    1992/10/09 20:46:32
  5214. ***************
  5215. *** 97,103 ****
  5216.         else 
  5217.             result += digit;
  5218.         }
  5219. !   } while (c = *nptr++);
  5220.   
  5221.     if (negative)                /* ANSI says we should do this! */
  5222.       result = 0L - result;
  5223. --- 97,103 ----
  5224.         else 
  5225.             result += digit;
  5226.         }
  5227. !   } while ((c = *nptr++) != 0);
  5228.   
  5229.     if (negative)                /* ANSI says we should do this! */
  5230.       result = 0L - result;
  5231. *** 1.18    1992/06/24 15:32:04
  5232. --- system.c    1992/10/09 20:46:32
  5233. ***************
  5234. *** 24,30 ****
  5235.   #include "lib.h"
  5236.   
  5237.   #define isquote(c) ((c) == '\"' || (c) == '\'' || (c) == '`')
  5238. ! #define ARG_ERR       ( (Argentry *) -1 )
  5239.   
  5240.   /* struct. used to build a list of arguments for the command */
  5241.   
  5242. --- 24,30 ----
  5243.   #include "lib.h"
  5244.   
  5245.   #define isquote(c) ((c) == '\"' || (c) == '\'' || (c) == '`')
  5246. ! #define ARG_ERR       ( (Argentry *) -1L )
  5247.   
  5248.   /* struct. used to build a list of arguments for the command */
  5249.   
  5250. ***************
  5251. *** 33,38 ****
  5252. --- 33,41 ----
  5253.       char    string[1];
  5254.   } Argentry;
  5255.   
  5256. + static Argentry *_argalloc __PROTO((const char *s));
  5257. + static void _argfree __PROTO((Argentry *p));
  5258. + static Argentry *_parseargs __PROTO((const char *s));
  5259.   
  5260.   /* allocate an Argentry that will hold the string "s" */
  5261.   
  5262. ***************
  5263. *** 102,108 ****
  5264.           }
  5265.           *t = 0;
  5266.           cur->next = _argalloc(buf);
  5267. !         if (!(cur = cur->next))      /* couldn't alloc() */
  5268.               return ARG_ERR;
  5269.       }
  5270.       cur->next = (Argentry *) 0;
  5271. --- 105,111 ----
  5272.           }
  5273.           *t = 0;
  5274.           cur->next = _argalloc(buf);
  5275. !         if ((cur = cur->next) == NULL)      /* couldn't alloc() */
  5276.               return ARG_ERR;
  5277.       }
  5278.       cur->next = (Argentry *) 0;
  5279. ***************
  5280. *** 132,138 ****
  5281.           return 1;
  5282.       al = _parseargs(s);        /* get a list of args */
  5283.       if (al == ARG_ERR) {        /* not enough memory */
  5284. !         return errno = ENOMEM;
  5285.           return -1;
  5286.       }
  5287.   
  5288. --- 135,141 ----
  5289.           return 1;
  5290.       al = _parseargs(s);        /* get a list of args */
  5291.       if (al == ARG_ERR) {        /* not enough memory */
  5292. !         errno = ENOMEM;
  5293.           return -1;
  5294.       }
  5295.   
  5296. ***************
  5297. *** 142,148 ****
  5298.       argc = i = 0;
  5299.       for (cur = al; cur; cur = cur->next)
  5300.           argc++;
  5301. !     if (!(argv = (char **) malloc((size_t)(argc * sizeof(char *))))) {
  5302.           errno = ENOMEM; return -1;
  5303.       }
  5304.       for (cur = al; cur; cur = cur->next) {
  5305. --- 145,153 ----
  5306.       argc = i = 0;
  5307.       for (cur = al; cur; cur = cur->next)
  5308.           argc++;
  5309. !     if ((argv = (char **) malloc((size_t)(argc * sizeof(char *))))
  5310. !         == NULL)
  5311. !     {
  5312.           errno = ENOMEM; return -1;
  5313.       }
  5314.       for (cur = al; cur; cur = cur->next) {
  5315. ***************
  5316. *** 168,197 ****
  5317.   
  5318.       if (*infile) {
  5319.           (void)_unx2dos(infile,path);
  5320. !         infd = Fopen(path, 0);
  5321.           if (infd < __SMALLEST_VALID_HANDLE) {
  5322.               perror(infile);
  5323.               return(2);
  5324.           }
  5325. !         oldin = Fdup(0);
  5326.           (void)Fforce(0, infd);
  5327.       }
  5328.       if (*outfile) {
  5329.           (void)_unx2dos(outfile,path);
  5330.           if (append) {
  5331. !             outfd = Fopen(path, 2);
  5332.               if (outfd < __SMALLEST_VALID_HANDLE)
  5333. !                 outfd = Fcreate(path, 0);
  5334.               else
  5335.                   (void)Fseek(0L, outfd, 2);
  5336.           }
  5337.           else
  5338. !             outfd = Fcreate(path, 0);
  5339.           if (outfd < __SMALLEST_VALID_HANDLE) {
  5340.               perror(outfile);
  5341.               return(2);
  5342.           }
  5343. !         oldout = Fdup(1);
  5344.           (void)Fforce(1, outfd);
  5345.       }
  5346.   
  5347. --- 173,202 ----
  5348.   
  5349.       if (*infile) {
  5350.           (void)_unx2dos(infile,path);
  5351. !         infd = (int)Fopen(path, 0);
  5352.           if (infd < __SMALLEST_VALID_HANDLE) {
  5353.               perror(infile);
  5354.               return(2);
  5355.           }
  5356. !         oldin = (int)Fdup(0);
  5357.           (void)Fforce(0, infd);
  5358.       }
  5359.       if (*outfile) {
  5360.           (void)_unx2dos(outfile,path);
  5361.           if (append) {
  5362. !             outfd = (int)Fopen(path, 2);
  5363.               if (outfd < __SMALLEST_VALID_HANDLE)
  5364. !                 outfd = (int)Fcreate(path, 0);
  5365.               else
  5366.                   (void)Fseek(0L, outfd, 2);
  5367.           }
  5368.           else
  5369. !             outfd = (int)Fcreate(path, 0);
  5370.           if (outfd < __SMALLEST_VALID_HANDLE) {
  5371.               perror(outfile);
  5372.               return(2);
  5373.           }
  5374. !         oldout = (int)Fdup(1);
  5375.           (void)Fforce(1, outfd);
  5376.       }
  5377.   
  5378. *** 1.2    1992/03/06 19:19:47
  5379. --- sysvar.c    1992/10/09 20:46:32
  5380. ***************
  5381. *** 13,19 ****
  5382.          statements and we get bombs
  5383.        */
  5384.       ret = *((volatile long *)var);
  5385. !     (void)Super(save_ssp);
  5386.       return ret;
  5387.   }
  5388.   
  5389. --- 13,19 ----
  5390.          statements and we get bombs
  5391.        */
  5392.       ret = *((volatile long *)var);
  5393. !     (void)Super((void *) save_ssp);
  5394.       return ret;
  5395.   }
  5396.   
  5397. ***************
  5398. *** 26,30 ****
  5399.       
  5400.       save_ssp = Super(0L);
  5401.       *((volatile long *)var) = val;
  5402. !     (void)Super(save_ssp);
  5403.   }
  5404. --- 26,30 ----
  5405.       
  5406.       save_ssp = Super(0L);
  5407.       *((volatile long *)var) = val;
  5408. !     (void)Super((void *) save_ssp);
  5409.   }
  5410. *** 1.4    1992/03/22 21:57:30
  5411. --- textio.c    1992/10/09 20:46:33
  5412. ***************
  5413. *** 33,39 ****
  5414.                   *to++ = *from++;
  5415.           } while (--r);
  5416.       } while (buf == to);    /* only '\r's? - try to read next nbytes */
  5417. !     return (to - buf);
  5418.   }
  5419.   
  5420.   int
  5421. --- 33,39 ----
  5422.                   *to++ = *from++;
  5423.           } while (--r);
  5424.       } while (buf == to);    /* only '\r's? - try to read next nbytes */
  5425. !     return (int)(to - buf);
  5426.   }
  5427.   
  5428.   int
  5429. *** 1.5    1992/06/01 01:54:10
  5430. --- time.c    1992/10/09 20:46:33
  5431. ***************
  5432. *** 3,8 ****
  5433. --- 3,9 ----
  5434.   
  5435.   #include <time.h>
  5436.   #include <osbind.h>
  5437. + #include "lib.h"
  5438.   
  5439.   static struct tm this_tm;
  5440.   int _dst;
  5441. *** 1.1    1991/12/26 15:53:59
  5442. --- timeoday.c    1992/10/09 20:46:33
  5443. ***************
  5444. *** 4,10 ****
  5445. --- 4,14 ----
  5446.   #include <types.h>
  5447.   #include <time.h>
  5448.   #include <unistd.h>
  5449. + #ifdef __TURBOC__
  5450. + #include <sys\timeb.h>
  5451. + #else
  5452.   #include <sys/timeb.h>
  5453. + #endif
  5454.   
  5455.   extern int _dst;    /* in time.c */
  5456.   extern long _timezone;    /* in localtim.c */
  5457. *** 1.3    1992/06/01 01:54:10
  5458. --- tmpfile.c    1992/10/09 20:46:33
  5459. ***************
  5460. *** 8,13 ****
  5461. --- 8,15 ----
  5462.   
  5463.   extern int __mint;
  5464.   
  5465. + static void delete_tmpfiles __PROTO((void));
  5466. + 
  5467.   typedef struct {
  5468.       char    *name;
  5469.       FILE    *fp;
  5470. ***************
  5471. *** 33,39 ****
  5472.       char *junknam;
  5473.       FILE *junkfil;
  5474.   
  5475. !     if ( !(junknam = tmpnam(NULL)) || !(junkfil = fopen(junknam, "w+b")) )
  5476.       {
  5477.           if(junknam)
  5478.               free(junknam);
  5479. --- 35,42 ----
  5480.       char *junknam;
  5481.       FILE *junkfil;
  5482.   
  5483. !     if ( ((junknam = tmpnam(NULL)) == NULL) || 
  5484. !         ((junkfil = fopen(junknam, "w+b")) == NULL ))
  5485.       {
  5486.           if(junknam)
  5487.               free(junknam);
  5488. *** 1.8    1992/06/01 01:54:10
  5489. --- tmpnam.c    1992/10/09 20:46:33
  5490. ***************
  5491. *** 19,26 ****
  5492.       size_t tlen;
  5493.       extern char *mktemp __PROTO((char *));
  5494.   
  5495. !     if (!(tmpdir = getenv("TEMP")) && !(tmpdir = getenv("TMPDIR")) &&
  5496. !         !(tmpdir = getenv("TMP")) && !(tmpdir = getenv("TEMPDIR")))
  5497.           tmpdir = ".";
  5498.   
  5499.       tlen = strlen(tmpdir);
  5500. --- 19,26 ----
  5501.       size_t tlen;
  5502.       extern char *mktemp __PROTO((char *));
  5503.   
  5504. !     if (((tmpdir = getenv("TEMP")) == NULL) && ((tmpdir = getenv("TMPDIR")) == NULL) &&
  5505. !         ((tmpdir = getenv("TMP")) == NULL) && ((tmpdir = getenv("TEMPDIR")) == NULL))
  5506.           tmpdir = ".";
  5507.   
  5508.       tlen = strlen(tmpdir);
  5509. *** 1.10    1992/06/24 15:32:04
  5510. --- utime.c    1992/10/09 20:46:34
  5511. ***************
  5512. *** 10,24 ****
  5513.    * written by Eric R. Smith, and placed in the public domain.
  5514.    *
  5515.    */
  5516. ! 
  5517.   #include <limits.h>
  5518. - #include <sys/types.h>
  5519.   #include <time.h>
  5520.   #include <errno.h>
  5521.   #include <osbind.h>
  5522.   #include <assert.h>
  5523.   #include "lib.h"
  5524.   
  5525.   /* convert a Unix time into a DOS time. The longword returned contains
  5526.      the time word first, then the date word */
  5527.   
  5528. --- 10,31 ----
  5529.    * written by Eric R. Smith, and placed in the public domain.
  5530.    *
  5531.    */
  5532. !  
  5533. ! #include <compiler.h>
  5534.   #include <limits.h>
  5535.   #include <time.h>
  5536.   #include <errno.h>
  5537.   #include <osbind.h>
  5538.   #include <assert.h>
  5539. + #ifdef __TURBOC__
  5540. + #include <sys\types.h>
  5541. + #else
  5542. + #include <sys/types.h>
  5543. + #endif
  5544.   #include "lib.h"
  5545.   
  5546. + time_t dostime __PROTO((time_t t));
  5547. + 
  5548.   /* convert a Unix time into a DOS time. The longword returned contains
  5549.      the time word first, then the date word */
  5550.   
  5551. ***************
  5552. *** 28,34 ****
  5553.           time_t time, date;
  5554.       struct tm *ctm;
  5555.   
  5556. !     if (!(ctm = localtime(&t)))
  5557.           return 0;
  5558.       time = (ctm->tm_hour << 11) | (ctm->tm_min << 5) | (ctm->tm_sec >> 1);
  5559.       date = ((ctm->tm_year - 80) & 0x7f) << 9;
  5560. --- 35,41 ----
  5561.           time_t time, date;
  5562.       struct tm *ctm;
  5563.   
  5564. !     if ((ctm = localtime(&t)) == NULL)
  5565.           return 0;
  5566.       time = (ctm->tm_hour << 11) | (ctm->tm_min << 5) | (ctm->tm_sec >> 1);
  5567.       date = ((ctm->tm_year - 80) & 0x7f) << 9;
  5568. ***************
  5569. *** 53,65 ****
  5570.   
  5571.       (void)_unx2dos(_filename, filename);
  5572.       dtime = dostime(settime);    /* convert unix time to dos */
  5573. !     fh = Fopen(filename, 2);
  5574.       if (fh < 0) {
  5575.           errno = -fh;
  5576.           return -1;
  5577.       }
  5578. !     (void)Fdatime(&dtime, fh, 1);
  5579. !     if (fh = Fclose(fh)) {
  5580.           errno = -fh;
  5581.           return -1;
  5582.       }
  5583. --- 60,72 ----
  5584.   
  5585.       (void)_unx2dos(_filename, filename);
  5586.       dtime = dostime(settime);    /* convert unix time to dos */
  5587. !     fh = (int) Fopen(filename, 2);
  5588.       if (fh < 0) {
  5589.           errno = -fh;
  5590.           return -1;
  5591.       }
  5592. !     (void)Fdatime((_DOSTIME *) &dtime, fh, 1);
  5593. !     if ((fh = Fclose(fh)) != 0) {
  5594.           errno = -fh;
  5595.           return -1;
  5596.       }
  5597. ***************
  5598. *** 71,85 ****
  5599.   {
  5600.       unsigned long dtime;
  5601.       unsigned date, time;
  5602. -     int r;
  5603.   
  5604.       assert(t != 0);
  5605.       dtime = dostime(*t);
  5606. !     date = (dtime & 0xffff);
  5607. !     time = (dtime >> 16) & 0xffff;
  5608.   
  5609. !     if ((r = Tsetdate(date)) || (r = Tsettime(time))) {
  5610. !         errno = -r;
  5611.           return -1;
  5612.       }
  5613.       return 0;
  5614. --- 78,91 ----
  5615.   {
  5616.       unsigned long dtime;
  5617.       unsigned date, time;
  5618.   
  5619.       assert(t != 0);
  5620.       dtime = dostime(*t);
  5621. !     date = (int) (dtime & 0xffff);
  5622. !     time = (int) (dtime >> 16) & 0xffff;
  5623.   
  5624. !     if (Tsetdate(date) || Tsettime(time)) {
  5625. !         errno = EBADARG;
  5626.           return -1;
  5627.       }
  5628.       return 0;
  5629.