home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 562 / perl4_10.zoo / diffs < prev    next >
Encoding:
Text File  |  1991-10-09  |  16.7 KB  |  724 lines
  1. *** /home/bammi/etc/src/perl/arg.h    Tue Jun 11 17:38:33 1991
  2. --- arg.h    Sun Oct  6 18:13:16 1991
  3. ***************
  4. *** 282,288 ****
  5. --- 282,292 ----
  6.   #define O_REWINDDIR 263
  7.   #define O_CLOSEDIR 264
  8.   #define O_SYSCALL 265
  9. + #ifdef atarist
  10. + #define PERL_O_PIPE 266
  11. + #else
  12.   #define O_PIPE 266
  13. + #endif
  14.   #define MAXO 267
  15.   
  16.   #ifndef DOINIT
  17. *** /home/bammi/etc/src/perl/doio.c    Wed Jun 19 11:18:14 1991
  18. --- doio.c    Sun Oct  6 17:18:54 1991
  19. ***************
  20. *** 358,364 ****
  21.               }
  22.   #endif
  23.   #ifdef HAS_RENAME
  24. ! #ifndef MSDOS
  25.               if (rename(oldname,str->str_ptr) < 0) {
  26.               warn("Can't rename %s to %s: %s, skipping file",
  27.                 oldname, str->str_ptr, strerror(errno) );
  28. --- 358,364 ----
  29.               }
  30.   #endif
  31.   #ifdef HAS_RENAME
  32. ! #ifndef MSDOS_OR_ATARI
  33.               if (rename(oldname,str->str_ptr) < 0) {
  34.               warn("Can't rename %s to %s: %s, skipping file",
  35.                 oldname, str->str_ptr, strerror(errno) );
  36. ***************
  37. *** 385,391 ****
  38.   #endif
  39.           }
  40.           else {
  41. ! #ifndef MSDOS
  42.               if (UNLINK(oldname) < 0) {
  43.               warn("Can't rename %s to %s: %s, skipping file",
  44.                 oldname, str->str_ptr, strerror(errno) );
  45. --- 385,391 ----
  46.   #endif
  47.           }
  48.           else {
  49. ! #ifndef MSDOS_OR_ATARI
  50.               if (UNLINK(oldname) < 0) {
  51.               warn("Can't rename %s to %s: %s, skipping file",
  52.                 oldname, str->str_ptr, strerror(errno) );
  53. ***************
  54. *** 671,677 ****
  55.       }
  56.       else {
  57.       retval = (int)str_gnum(argstr);
  58. ! #ifdef MSDOS
  59.       s = (char*)(long)retval;        /* ouch */
  60.   #else
  61.       s = (char*)retval;        /* ouch */
  62. --- 671,677 ----
  63.       }
  64.       else {
  65.       retval = (int)str_gnum(argstr);
  66. ! #ifdef MSDOS_OR_ATARI
  67.       s = (char*)(long)retval;        /* ouch */
  68.   #else
  69.       s = (char*)retval;        /* ouch */
  70. ***************
  71. *** 682,688 ****
  72.       if (optype == O_IOCTL)
  73.       retval = ioctl(fileno(stio->ifp), func, s);
  74.       else
  75. ! #ifdef MSDOS
  76.       fatal("fcntl is not implemented");
  77.   #else
  78.   #ifdef HAS_FCNTL
  79. --- 682,688 ----
  80.       if (optype == O_IOCTL)
  81.       retval = ioctl(fileno(stio->ifp), func, s);
  82.       else
  83. ! #ifdef MSDOS_OR_ATARI
  84.       fatal("fcntl is not implemented");
  85.   #else
  86.   #ifdef HAS_FCNTL
  87. ***************
  88. *** 2418,2424 ****
  89.   int effective;
  90.   register struct stat *statbufp;
  91.   {
  92. ! #ifdef MSDOS
  93.       /* [Comments and code from Len Reed]
  94.        * MS-DOS "user" is similar to UNIX's "superuser," but can't write
  95.        * to write-protected files.  The execute permission bit is set
  96. --- 2418,2424 ----
  97.   int effective;
  98.   register struct stat *statbufp;
  99.   {
  100. ! #ifdef MSDOS_OR_ATARI
  101.       /* [Comments and code from Len Reed]
  102.        * MS-DOS "user" is similar to UNIX's "superuser," but can't write
  103.        * to write-protected files.  The execute permission bit is set
  104. ***************
  105. *** 2437,2442 ****
  106. --- 2437,2445 ----
  107.        *        Sun's PC-NFS.]
  108.        */
  109.   
  110. +      /* Atari stat() does pretty much the same thing. we set x_bit_set_in_stat
  111. +       * too so it will actually look into the files for magic numbers
  112. +       */
  113.        return (bit & statbufp->st_mode) ? TRUE : FALSE;
  114.   
  115.   #else /* ! MSDOS */
  116. *** /home/bammi/etc/src/perl/eval.c    Tue Jun 11 17:39:15 1991
  117. --- eval.c    Sun Oct  6 18:14:39 1991
  118. ***************
  119. *** 379,385 ****
  120.           old_rschar = rschar;
  121.           old_rslen = rslen;
  122.           rslen = 1;
  123. ! #ifdef MSDOS
  124.           rschar = 0;
  125.   #else
  126.   #ifdef CSH
  127. --- 379,385 ----
  128.           old_rschar = rschar;
  129.           old_rslen = rslen;
  130.           rslen = 1;
  131. ! #ifdef MSDOS_OR_ATARI
  132.           rschar = 0;
  133.   #else
  134.   #ifdef CSH
  135. ***************
  136. *** 422,428 ****
  137.               (void) interp(str,stab_val(last_in_stab),sp);
  138.               st = stack->ary_array;
  139.               tmpstr = Str_new(55,0);
  140. ! #ifdef MSDOS
  141.               str_set(tmpstr, "perlglob ");
  142.               str_scat(tmpstr,str);
  143.               str_cat(tmpstr," |");
  144. --- 422,428 ----
  145.               (void) interp(str,stab_val(last_in_stab),sp);
  146.               st = stack->ary_array;
  147.               tmpstr = Str_new(55,0);
  148. ! #ifdef MSDOS_OR_ATARI
  149.               str_set(tmpstr, "perlglob ");
  150.               str_scat(tmpstr,str);
  151.               str_cat(tmpstr," |");
  152. ***************
  153. *** 2829,2836 ****
  154.           stab = stabent(str_get(st[1]),TRUE);
  155.       if (!stab || !(stio = stab_io(stab)) || !(fp = stio->ifp))
  156.           goto say_undef;
  157. ! #ifdef MSDOS
  158.       str_set(str, (setmode(fileno(fp), O_BINARY) != -1) ? Yes : No);
  159.   #else
  160.       str_set(str, Yes);
  161.   #endif
  162. --- 2829,2846 ----
  163.           stab = stabent(str_get(st[1]),TRUE);
  164.       if (!stab || !(stio = stab_io(stab)) || !(fp = stio->ifp))
  165.           goto say_undef;
  166. ! #ifdef MSDOS_OR_ATARI
  167. ! #ifdef atarist
  168. !     if(fflush(fp))
  169. !        str_set(str, No);
  170. !     else
  171. !     {
  172. !         fp->_flag |= _IOBIN;
  173. !         str_set(str, Yes);
  174. !     }
  175. ! #else
  176.       str_set(str, (setmode(fileno(fp), O_BINARY) != -1) ? Yes : No);
  177. + #endif
  178.   #else
  179.       str_set(str, Yes);
  180.   #endif
  181. ***************
  182. *** 2905,2911 ****
  183. --- 2915,2925 ----
  184.       case O_SYSCALL:
  185.       value = (double)do_syscall(arglast);
  186.       goto donumset;
  187. + #ifdef atarist
  188. +     case PERL_O_PIPE:
  189. + #else
  190.       case O_PIPE:
  191. + #endif
  192.   #ifdef HAS_PIPE
  193.       if ((arg[1].arg_type & A_MASK) == A_WORD)
  194.           stab = arg[1].arg_ptr.arg_stab;
  195. *** /home/bammi/etc/src/perl/handy.h    Tue Jun 11 17:39:22 1991
  196. --- handy.h    Sun Oct  6 14:25:51 1991
  197. ***************
  198. *** 52,58 ****
  199. --- 52,62 ----
  200.   #define strnNE(s1,s2,l) (strncmp(s1,s2,l))
  201.   #define strnEQ(s1,s2,l) (!strncmp(s1,s2,l))
  202.   
  203. + #ifdef STANDARD_C
  204. + #define MEM_SIZE size_t
  205. + #else
  206.   #define MEM_SIZE unsigned int
  207. + #endif
  208.   
  209.   /* Line numbers are unsigned, 16 bits. */
  210.   typedef unsigned short line_t;
  211. *** /home/bammi/etc/src/perl/perl.c    Wed Jun 19 11:18:28 1991
  212. --- perl.c    Sun Oct  6 19:16:13 1991
  213. ***************
  214. *** 218,224 ****
  215.       argv[0] = e_tmpname;
  216.       }
  217.   
  218. ! #ifdef MSDOS
  219.   #define PERLLIB_SEP ';'
  220.   #else
  221.   #define PERLLIB_SEP ':'
  222. --- 218,224 ----
  223.       argv[0] = e_tmpname;
  224.       }
  225.   
  226. ! #ifdef MSDOS_OR_ATARI
  227.   #define PERLLIB_SEP ';'
  228.   #else
  229.   #define PERLLIB_SEP ':'
  230. ***************
  231. *** 275,293 ****
  232.   
  233.       bufend = s + strlen(s);
  234.       while (*s) {
  235. ! #ifndef MSDOS
  236.           s = cpytill(tokenbuf,s,bufend,':',&len);
  237.   #else
  238.           for (len = 0; *s && *s != ';'; tokenbuf[len++] = *s++);
  239.           tokenbuf[len] = '\0';
  240.   #endif
  241.           if (*s)
  242.           s++;
  243. ! #ifndef MSDOS
  244.           if (len && tokenbuf[len-1] != '/')
  245.   #else
  246.           if (len && tokenbuf[len-1] != '\\')
  247.   #endif
  248.           (void)strcat(tokenbuf+len,"/");
  249.           (void)strcat(tokenbuf+len,argv[0]);
  250.   #ifdef DEBUGGING
  251. --- 275,302 ----
  252.   
  253.       bufend = s + strlen(s);
  254.       while (*s) {
  255. ! #ifndef MSDOS_OR_ATARI
  256.           s = cpytill(tokenbuf,s,bufend,':',&len);
  257.   #else
  258. + #ifdef atarist
  259. +         for (len = 0; *s && *s != ',' && *s != ';'; tokenbuf[len++] = *s++);
  260. +         tokenbuf[len] = '\0';
  261. + #else
  262.           for (len = 0; *s && *s != ';'; tokenbuf[len++] = *s++);
  263.           tokenbuf[len] = '\0';
  264.   #endif
  265. + #endif
  266.           if (*s)
  267.           s++;
  268. ! #ifndef MSDOS_OR_ATARI
  269.           if (len && tokenbuf[len-1] != '/')
  270.   #else
  271. + #ifdef atarist
  272. +         if (len && ((tokenbuf[len-1] != '\\') || (tokenbuf[len-1] != '/')))
  273. + #else
  274.           if (len && tokenbuf[len-1] != '\\')
  275.   #endif
  276. + #endif
  277.           (void)strcat(tokenbuf+len,"/");
  278.           (void)strcat(tokenbuf+len,argv[0]);
  279.   #ifdef DEBUGGING
  280. ***************
  281. *** 332,338 ****
  282.    -e '/^#[     ]*endif/b' \
  283.    -e 's/^#.*//' \
  284.    %s | %s -C %s %s",
  285. ! #ifdef MSDOS
  286.         "",
  287.   #else
  288.         "/bin/",
  289. --- 341,347 ----
  290.    -e '/^#[     ]*endif/b' \
  291.    -e 's/^#.*//' \
  292.    %s | %s -C %s %s",
  293. ! #ifdef MSDOS_OR_ATARI
  294.         "",
  295.   #else
  296.         "/bin/",
  297. ***************
  298. *** 1201,1206 ****
  299. --- 1210,1218 ----
  300.           stdout);
  301.   #endif
  302.   #endif
  303. + #ifdef atarist
  304. +         fputs("atariST series port, ++jrb  bammi@cadence.com\n", stdout);
  305. + #endif
  306.       fputs("\n\
  307.   Perl may be copied only under the terms of either the Artistic License or the\n\
  308.   GNU General Public License, which may be found in the Perl 4.0 source kit.\n",stdout);
  309. ***************
  310. *** 1242,1248 ****
  311.       fprintf(stderr, "unexec of %s into %s failed!\n", perlpath, dumpname);
  312.       exit(status);
  313.   #else
  314. ! #ifdef MSDOS
  315.       abort();    /* nothing else to do */
  316.   #else /* ! MSDOS */
  317.   #   ifndef SIGABRT
  318. --- 1254,1260 ----
  319.       fprintf(stderr, "unexec of %s into %s failed!\n", perlpath, dumpname);
  320.       exit(status);
  321.   #else
  322. ! #ifdef MSDOS_OR_ATARI
  323.       abort();    /* nothing else to do */
  324.   #else /* ! MSDOS */
  325.   #   ifndef SIGABRT
  326. *** /home/bammi/etc/src/perl/perl.h    Wed Jun 19 11:18:29 1991
  327. --- perl.h    Sun Oct  6 17:55:59 1991
  328. ***************
  329. *** 25,31 ****
  330.   #define VOIDWANT 1
  331.   #include "config.h"
  332.   
  333. ! #ifdef MSDOS
  334.   /* This stuff now in the MS-DOS config.h file. */
  335.   #else /* !MSDOS */
  336.   
  337. --- 25,36 ----
  338.   #define VOIDWANT 1
  339.   #include "config.h"
  340.   
  341. ! /* define this once if either system, instead of cluttering up the src */
  342. ! #if defined(MSDOS) || defined(atarist)
  343. ! #define MSDOS_OR_ATARI 1
  344. ! #endif
  345. ! 
  346. ! #ifdef MSDOS_OR_ATARI
  347.   /* This stuff now in the MS-DOS config.h file. */
  348.   #else /* !MSDOS */
  349.   
  350. ***************
  351. *** 377,383 ****
  352. --- 382,392 ----
  353.   #undef f_next
  354.   #endif
  355.   
  356. + #if STANDARD_C
  357. + typedef size_t STRLEN;
  358. + #else
  359.   typedef unsigned int STRLEN;
  360. + #endif
  361.   
  362.   typedef struct arg ARG;
  363.   typedef struct cmd CMD;
  364. ***************
  365. *** 473,479 ****
  366.   
  367.   #define GROWSTR(pp,lp,len) if (*(lp) < (len)) growstr(pp,lp,len)
  368.   
  369. ! #ifndef MSDOS
  370.   #define STR_GROW(str,len) if ((str)->str_len < (len)) str_grow(str,len)
  371.   #define Str_Grow str_grow
  372.   #else
  373. --- 482,488 ----
  374.   
  375.   #define GROWSTR(pp,lp,len) if (*(lp) < (len)) growstr(pp,lp,len)
  376.   
  377. ! #ifndef MSDOS_OR_ATARI
  378.   #define STR_GROW(str,len) if ((str)->str_len < (len)) str_grow(str,len)
  379.   #define Str_Grow str_grow
  380.   #else
  381. ***************
  382. *** 481,487 ****
  383.   #define STR_GROW(str,len) if ((str)->str_len < (unsigned long)len) \
  384.           str_grow(str,(unsigned long)len)
  385.   #define Str_Grow(str,len) str_grow(str,(unsigned long)(len))
  386. ! #endif /* MSDOS */
  387.   
  388.   #ifndef BYTEORDER
  389.   #define BYTEORDER 0x1234
  390. --- 490,496 ----
  391.   #define STR_GROW(str,len) if ((str)->str_len < (unsigned long)len) \
  392.           str_grow(str,(unsigned long)len)
  393.   #define Str_Grow(str,len) str_grow(str,(unsigned long)(len))
  394. ! #endif /* MSDOS_OR_ATARI */
  395.   
  396.   #ifndef BYTEORDER
  397.   #define BYTEORDER 0x1234
  398. ***************
  399. *** 727,733 ****
  400.   EXT bool tainted INIT(FALSE);        /* using variables controlled by $< */
  401.   #endif
  402.   
  403. ! #ifndef MSDOS
  404.   #define TMPPATH "/tmp/perl-eXXXXXX"
  405.   #else
  406.   #define TMPPATH "plXXXXXX"
  407. --- 736,742 ----
  408.   EXT bool tainted INIT(FALSE);        /* using variables controlled by $< */
  409.   #endif
  410.   
  411. ! #ifndef MSDOS_OR_ATARI
  412.   #define TMPPATH "/tmp/perl-eXXXXXX"
  413.   #else
  414.   #define TMPPATH "plXXXXXX"
  415. *** /home/bammi/etc/src/perl/regcomp.c    Tue Jun 11 17:40:21 1991
  416. --- regcomp.c    Sun Oct  6 18:17:18 1991
  417. ***************
  418. *** 77,83 ****
  419. --- 77,87 ----
  420.   #define    ISMULT1(c)    ((c) == '*' || (c) == '+' || (c) == '?')
  421.   #define    ISMULT2(s)    ((*s) == '*' || (*s) == '+' || (*s) == '?' || \
  422.       ((*s) == '{' && regcurly(s)))
  423. + #ifdef atarist
  424. + #define    PERL_META    "^$.[()|?+*\\"
  425. + #else
  426.   #define    META    "^$.[()|?+*\\"
  427. + #endif
  428.   
  429.   #ifdef SPSTART
  430.   #undef SPSTART        /* dratted cpp namespace... */
  431. *** /home/bammi/etc/src/perl/str.c    Wed Jun 19 11:18:43 1991
  432. --- str.c    Sun Oct  6 14:53:02 1991
  433. ***************
  434. *** 76,82 ****
  435.   char *
  436.   str_grow(str,newlen)
  437.   register STR *str;
  438. ! #ifndef MSDOS
  439.   register int newlen;
  440.   #else
  441.   unsigned long newlen;
  442. --- 76,82 ----
  443.   char *
  444.   str_grow(str,newlen)
  445.   register STR *str;
  446. ! #ifndef MSDOS_OR_ATARI
  447.   register int newlen;
  448.   #else
  449.   unsigned long newlen;
  450. *** /home/bammi/etc/src/perl/toke.c    Wed Jun 19 11:18:45 1991
  451. --- toke.c    Sun Oct  6 18:16:45 1991
  452. ***************
  453. *** 52,58 ****
  454. --- 52,62 ----
  455.   #endif
  456.   #define CLINE (cmdline = (curcmd->c_line < cmdline ? curcmd->c_line : cmdline))
  457.   
  458. + #ifdef atarist
  459. + #define PERL_META(c) ((c) | 128)
  460. + #else
  461.   #define META(c) ((c) | 128)
  462. + #endif
  463.   
  464.   #define RETURN(retval) return (bufptr = s,(int)retval)
  465.   #define OPERATOR(retval) return (expectterm = TRUE,bufptr = s,(int)retval)
  466. ***************
  467. *** 91,99 ****
  468. --- 95,109 ----
  469.   /* This does similarly for list operators, merely by pretending that the
  470.    * paren came before the listop rather than after.
  471.    */
  472. + #ifdef atarist
  473. + #define LOP(f) return(CLINE, *s == '(' || (s = skipspace(s), *s == '(') ? \
  474. +     (*s = PERL_META('('), bufptr = oldbufptr, '(') : \
  475. +     (yylval.ival=f,expectterm = TRUE,bufptr = s,(int)LISTOP))
  476. + #else
  477.   #define LOP(f) return(CLINE, *s == '(' || (s = skipspace(s), *s == '(') ? \
  478.       (*s = META('('), bufptr = oldbufptr, '(') : \
  479.       (yylval.ival=f,expectterm = TRUE,bufptr = s,(int)LISTOP))
  480. + #endif
  481.   /* grandfather return to old style */
  482.   #define OLDLOP(f) return(yylval.ival=f,expectterm = TRUE,bufptr = s,(int)LISTOP)
  483.   
  484. ***************
  485. *** 139,145 ****
  486. --- 149,159 ----
  487.       if (*s != '(')
  488.       s = skipspace(s);
  489.       if (*s == '(') {
  490. + #ifdef atarist
  491. +     *s = PERL_META('(');
  492. + #else
  493.       *s = META('(');
  494. + #endif
  495.       bufptr = oldbufptr;
  496.       return '(';
  497.       }
  498. ***************
  499. *** 977,983 ****
  500. --- 991,1001 ----
  501.       if (strEQ(d,"package"))
  502.           OPERATOR(PACKAGE);
  503.       if (strEQ(d,"pipe"))
  504. + #ifdef atarist
  505. +         FOP22(PERL_O_PIPE);
  506. + #else
  507.           FOP22(O_PIPE);
  508. + #endif
  509.       break;
  510.       case 'q': case 'Q':
  511.       SNARFWORD;
  512. *** /home/bammi/etc/src/perl/util.c    Tue Jun 11 17:41:13 1991
  513. --- util.c    Sun Oct  6 17:37:39 1991
  514. ***************
  515. *** 1192,1198 ****
  516.   #endif /* BYTEORDER != 0x4321 */
  517.   #endif /* HAS_HTONS */
  518.   
  519. ! #ifndef MSDOS
  520.   FILE *
  521.   mypopen(cmd,mode)
  522.   char    *cmd;
  523. --- 1192,1198 ----
  524.   #endif /* BYTEORDER != 0x4321 */
  525.   #endif /* HAS_HTONS */
  526.   
  527. ! #ifndef MSDOS_OR_ATARI
  528.   FILE *
  529.   mypopen(cmd,mode)
  530.   char    *cmd;
  531. ***************
  532. *** 1264,1271 ****
  533.       forkprocess = pid;
  534.       return fdopen(p[this], mode);
  535.   }
  536. ! #endif /* !MSDOS */
  537.   
  538.   #ifdef NOTDEF
  539.   dumpfds(s)
  540.   char *s;
  541. --- 1264,1283 ----
  542.       forkprocess = pid;
  543.       return fdopen(p[this], mode);
  544.   }
  545. ! #else
  546. ! #ifdef atarist
  547. ! FILE *popen();
  548. ! FILE *
  549. ! mypopen(cmd,mode)
  550. ! char    *cmd;
  551. ! char    *mode;
  552. ! {
  553. !     return popen(cmd, mode);
  554. ! }
  555. ! #endif
  556.   
  557. + #endif /* !MSDOS_OR_ATARI */
  558. + 
  559.   #ifdef NOTDEF
  560.   dumpfds(s)
  561.   char *s;
  562. ***************
  563. *** 1306,1312 ****
  564.   }
  565.   #endif
  566.   
  567. ! #ifndef MSDOS
  568.   int
  569.   mypclose(ptr)
  570.   FILE *ptr;
  571. --- 1318,1324 ----
  572.   }
  573.   #endif
  574.   
  575. ! #ifndef MSDOS_OR_ATARI
  576.   int
  577.   mypclose(ptr)
  578.   FILE *ptr;
  579. ***************
  580. *** 1402,1408 ****
  581.   #endif
  582.       return;
  583.   }
  584. ! #endif /* !MSDOS */
  585.   
  586.   #ifndef HAS_MEMCMP
  587.   memcmp(s1,s2,len)
  588. --- 1414,1430 ----
  589.   #endif
  590.       return;
  591.   }
  592. ! #else
  593. ! #ifdef atarist
  594. ! int pclose();
  595. ! int
  596. ! mypclose(ptr)
  597. ! FILE *ptr;
  598. ! {
  599. !     return pclose(ptr);
  600. ! }
  601. ! #endif
  602. ! #endif /* !MSDOS_OR_ATARI */
  603.   
  604.   #ifndef HAS_MEMCMP
  605.   memcmp(s1,s2,len)
  606. *** malloc.c.orig    Tue Oct  8 13:53:30 1991
  607. --- malloc.c    Tue Oct  8 14:03:17 1991
  608. ***************
  609. *** 112,122 ****
  610.   
  611.   MALLOCPTRTYPE *
  612.   malloc(nbytes)
  613. !     register unsigned nbytes;
  614.   {
  615.         register union overhead *p;
  616.         register int bucket = 0;
  617. !       register unsigned shiftr;
  618.   
  619.       /*
  620.        * Convert amount of memory requested into
  621. --- 112,122 ----
  622.   
  623.   MALLOCPTRTYPE *
  624.   malloc(nbytes)
  625. !     register unsigned long nbytes;
  626.   {
  627.         register union overhead *p;
  628.         register int bucket = 0;
  629. !       register unsigned long shiftr;
  630.   
  631.       /*
  632.        * Convert amount of memory requested into
  633. ***************
  634. *** 176,182 ****
  635.         register union overhead *op;
  636.         register int rnu;       /* 2^rnu bytes will be requested */
  637.         register int nblks;     /* become nblks blocks of the desired size */
  638. !     register int siz;
  639.   
  640.         if (nextf[bucket])
  641.             return;
  642. --- 176,182 ----
  643.         register union overhead *op;
  644.         register int rnu;       /* 2^rnu bytes will be requested */
  645.         register int nblks;     /* become nblks blocks of the desired size */
  646. !     register long siz;
  647.   
  648.         if (nextf[bucket])
  649.             return;
  650. ***************
  651. *** 185,194 ****
  652.        * on a page boundary.  Should
  653.        * make getpageize call?
  654.        */
  655. !       op = (union overhead *)sbrk(0);
  656.   #ifndef I286
  657. !       if ((int)op & 0x3ff)
  658. !           (void)sbrk(1024 - ((int)op & 0x3ff));
  659.   #else
  660.       /* The sbrk(0) call on the I286 always returns the next segment */
  661.   #endif
  662. --- 185,194 ----
  663.        * on a page boundary.  Should
  664.        * make getpageize call?
  665.        */
  666. !       op = (union overhead *)sbrk(0L);
  667.   #ifndef I286
  668. !       if ((unsigned int)op & 0x3ff)
  669. !           (void)sbrk((long)(1024L - ((int)op & 0x3ff)));
  670.   #else
  671.       /* The sbrk(0) call on the I286 always returns the next segment */
  672.   #endif
  673. ***************
  674. *** 204,210 ****
  675.         nblks = 1 << (rnu - (bucket + 3));  /* how many blocks to get */
  676.         if (rnu < bucket)
  677.           rnu = bucket;
  678. !     op = (union overhead *)sbrk(1 << rnu);
  679.       /* no more room! */
  680.         if ((int)op == -1)
  681.             return;
  682. --- 204,210 ----
  683.         nblks = 1 << (rnu - (bucket + 3));  /* how many blocks to get */
  684.         if (rnu < bucket)
  685.           rnu = bucket;
  686. !     op = (union overhead *)sbrk(1L << rnu);
  687.       /* no more room! */
  688.         if ((int)op == -1)
  689.             return;
  690. ***************
  691. *** 236,242 ****
  692.   free(mp)
  693.       MALLOCPTRTYPE *mp;
  694.   {   
  695. !       register int size;
  696.       register union overhead *op;
  697.       char *cp = (char*)mp;
  698.   
  699. --- 236,242 ----
  700.   free(mp)
  701.       MALLOCPTRTYPE *mp;
  702.   {   
  703. !       register long size;
  704.       register union overhead *op;
  705.       char *cp = (char*)mp;
  706.   
  707. ***************
  708. *** 283,289 ****
  709.   MALLOCPTRTYPE *
  710.   realloc(mp, nbytes)
  711.       MALLOCPTRTYPE *mp; 
  712. !     unsigned nbytes;
  713.   {   
  714.         register u_int onb;
  715.       union overhead *op;
  716. --- 283,289 ----
  717.   MALLOCPTRTYPE *
  718.   realloc(mp, nbytes)
  719.       MALLOCPTRTYPE *mp; 
  720. !     unsigned long nbytes;
  721.   {   
  722.         register u_int onb;
  723.       union overhead *op;
  724.