home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 562 / perl4_10.zoo / diffs2 < prev    next >
Encoding:
Text File  |  1991-10-09  |  2.2 KB  |  72 lines
  1. *** config.h.orig    Tue Oct  8 22:47:28 1991
  2. --- config.h    Tue Oct  8 22:48:58 1991
  3. ***************
  4. *** 519,525 ****
  5.    *    This symbol, if defined, indicates that the syscall routine is available
  6.    *    to call arbitrary system calls.  If undefined, that's tough.
  7.    */
  8. ! /* #define    HAS_SYSCALL        /**/
  9.   
  10.   /* HAS_TRUNCATE
  11.    *    This symbol, if defined, indicates that the truncate routine is
  12. --- 519,526 ----
  13.    *    This symbol, if defined, indicates that the syscall routine is available
  14.    *    to call arbitrary system calls.  If undefined, that's tough.
  15.    */
  16. ! /* we will use this to call gemdos/bios/xbios/lineA see atarist.c */
  17. ! #define    HAS_SYSCALL        /**/
  18.   
  19.   /* HAS_TRUNCATE
  20.    *    This symbol, if defined, indicates that the truncate routine is
  21. *** doarg.c.orig    Tue Oct  8 22:36:43 1991
  22. --- doarg.c    Tue Oct  8 22:46:58 1991
  23. ***************
  24. *** 1531,1537 ****
  25. --- 1531,1541 ----
  26.       register STR **st = stack->ary_array;
  27.       register int sp = arglast[1];
  28.       register int items = arglast[2] - sp;
  29. + #ifdef atarist
  30. +     unsigned long arg[14]; /* yes, we really need that many ! */
  31. + #else
  32.       unsigned long arg[8];
  33. + #endif
  34.       register int i = 0;
  35.       int retval = -1;
  36.   
  37. ***************
  38. *** 1588,1593 ****
  39. --- 1592,1623 ----
  40.       retval = syscall(arg[0],arg[1],arg[2],arg[3],arg[4],arg[5],arg[6],
  41.         arg[7]);
  42.       break;
  43. + #ifdef atarist
  44. +     case 9:
  45. +     retval = syscall(arg[0],arg[1],arg[2],arg[3],arg[4],arg[5],arg[6],
  46. +       arg[7], arg[8]);
  47. +     break;
  48. +     case 10:
  49. +     retval = syscall(arg[0],arg[1],arg[2],arg[3],arg[4],arg[5],arg[6],
  50. +       arg[7], arg[8], arg[9]);
  51. +     break;
  52. +     case 11:
  53. +     retval = syscall(arg[0],arg[1],arg[2],arg[3],arg[4],arg[5],arg[6],
  54. +       arg[7], arg[8], arg[9], arg[10]);
  55. +     break;
  56. +     case 12:
  57. +     retval = syscall(arg[0],arg[1],arg[2],arg[3],arg[4],arg[5],arg[6],
  58. +       arg[7], arg[8], arg[9], arg[10], arg[11]);
  59. +     break;
  60. +     case 13:
  61. +     retval = syscall(arg[0],arg[1],arg[2],arg[3],arg[4],arg[5],arg[6],
  62. +       arg[7], arg[8], arg[9], arg[10], arg[11], arg[12]);
  63. +     break;
  64. +     case 14:
  65. +     retval = syscall(arg[0],arg[1],arg[2],arg[3],arg[4],arg[5],arg[6],
  66. +       arg[7], arg[8], arg[9], arg[10], arg[11], arg[12], arg[13]);
  67. +     break;
  68. + #endif /* atarist */
  69.       }
  70.       return retval;
  71.   #else
  72.