home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / Apps / EmacsTeX / emacs-patches / src / diffs next >
Encoding:
Text File  |  1992-09-05  |  4.3 KB  |  197 lines
  1. diff -c5 emacs-18.58/src/emacs.c emacs/src/emacs.c
  2. *** emacs-18.58/src/emacs.c    Mon Dec  9 20:50:32 1991
  3. --- emacs/src/emacs.c    Tue Sep  1 18:32:05 1992
  4. ***************
  5. *** 77,86 ****
  6. --- 77,91 ----
  7.   
  8.   #ifndef O_RDWR
  9.   #define O_RDWR 2
  10.   #endif
  11.   
  12. + #ifndef S_ISDIR         /* for NeXT */
  13. + #define S_ISDIR(m)      (((m)&S_IFMT) == S_IFDIR)
  14. + #endif
  15. + 
  16. + 
  17.   #define PRIO_PROCESS 0
  18.   
  19.   /* Command line args from shell, as list of strings */
  20.   Lisp_Object Vcommand_line_args;
  21.   
  22. ***************
  23. *** 208,217 ****
  24. --- 213,225 ----
  25.   #endif
  26.   #endif /* SHAREABLE_LIB_BUG */
  27.   #endif /* LINK_CRTL_SHARE */
  28.   #endif /* VMS */
  29.   
  30. + #ifdef NeXT
  31. + int malloc_cookie;
  32. + #endif /* NeXT */
  33.   /* ARGSUSED */
  34.   main (argc, argv, envp)
  35.        int argc;
  36.        char **argv;
  37.        char **envp;
  38. ***************
  39. *** 218,227 ****
  40. --- 226,242 ----
  41.   {
  42.     int skip_args = 0;
  43.     extern int errno;
  44.     extern void malloc_warning ();
  45.   
  46. + #ifdef NeXT
  47. +   /* This helps out unexNeXT.c */
  48. +   if (initialized)
  49. +     if (malloc_jumpstart(malloc_cookie) != 0)
  50. +       printf("Malloc_jumpstart failed!\n");
  51. + #endif /* NeXT */
  52. + 
  53.   /* Map in shared memory, if we are using that.  */
  54.   #ifdef HAVE_SHM
  55.     if (argc > 1 && !strcmp (argv[1], "-nl"))
  56.       {
  57.         map_in_data (0);
  58. ***************
  59. *** 744,748 ****
  60. --- 759,778 ----
  61.     Vkill_emacs_hook = Qnil;
  62.   
  63.     DEFVAR_LISP ("kill-emacs-hook", &Vkill_emacs_hook,
  64.       "Function called, if non-nil, whenever kill-emacs is called.");
  65.   }
  66. + 
  67. + #ifdef NEED_STRDUP
  68. + 
  69. + extern char *
  70. + strdup(s)
  71. +      char *s;
  72. + {
  73. +     char *result = (char*)malloc(strlen(s) + 1);
  74. +     if (result == (char*)0)
  75. +         return (char*)0;
  76. +     strcpy(result, s);
  77. +     return result;
  78. + }
  79. + 
  80. + #endif
  81. diff -c5 emacs-18.58/src/fns.c emacs/src/fns.c
  82. *** emacs-18.58/src/fns.c    Mon Jul 22 21:53:49 1991
  83. --- emacs/src/fns.c    Tue Sep  1 18:41:44 1992
  84. ***************
  85. *** 1225,1236 ****
  86. --- 1225,1241 ----
  87.   #else /* NLIST_STRUCT */
  88.   #ifdef convex
  89.         nl[0].n_un.n_name = LDAV_SYMBOL;
  90.         nl[1].n_un.n_name = 0;
  91.   #else /* not convex */
  92. + #ifdef NEXT_KERNEL_FILE
  93. +       nl[0].n_un.n_name = LDAV_SYMBOL;
  94. +       nl[1].n_un.n_name = 0;
  95. + #else
  96.         nl[0].n_name = LDAV_SYMBOL;
  97.         nl[1].n_name = 0;
  98. + #endif /* NEXT_KERNEL_FILE */      
  99.   #endif /* not convex */
  100.   #endif /* NLIST_STRUCT */
  101.   
  102.   #ifdef IRIS_4D
  103.       {
  104. ***************
  105. *** 1238,1248 ****
  106. --- 1243,1257 ----
  107.   #include <sys/sysmp.h>
  108.           nl[0].n_value = sysmp(MP_KERNADDR, MPKA_AVENRUN);
  109.           nl[0].n_value &= 0x7fffffff;
  110.       }
  111.   #else
  112. + #ifdef NEXT_KERNEL_FILE
  113. +       nlist (NEXT_KERNEL_FILE, nl);
  114. + #else
  115.         nlist (KERNEL_FILE, nl);
  116. + #endif /* NEXT_KERNEL_FILE */
  117.   #endif /* IRIS */
  118.   
  119.   #ifdef FIXUP_KERNEL_SYMBOL_ADDR
  120.         if ((nl[0].n_type & N_TYPE) != N_ABS)
  121.       nl[0].n_value = (nlp->n_value >> 2) | 0xc0000000;
  122. diff -c5 emacs-18.58/src/lisp.h emacs/src/lisp.h
  123. *** emacs-18.58/src/lisp.h    Fri Jan 24 00:23:23 1992
  124. --- emacs/src/lisp.h    Tue Sep  1 17:31:35 1992
  125. ***************
  126. *** 989,993 ****
  127. --- 989,997 ----
  128.   #ifdef MAINTAIN_ENVIRONMENT
  129.   extern unsigned char *egetenv ();
  130.   #else
  131.   #define egetenv getenv
  132.   #endif
  133. + 
  134. + #ifdef NEED_STRDUP  /* defined in emacs.c */
  135. + extern char *strdup(char *s);
  136. + #endif
  137. diff -c5 emacs-18.58/src/sysdep.c emacs/src/sysdep.c
  138. *** emacs-18.58/src/sysdep.c    Thu Feb 13 18:03:12 1992
  139. --- emacs/src/sysdep.c    Tue Sep  1 17:51:18 1992
  140. ***************
  141. *** 1570,1581 ****
  142. --- 1570,1585 ----
  143.   #else
  144.   #ifdef GOULD
  145.     extern csrt ();
  146.     return ((char *) csrt);
  147.   #else /* not GOULD */
  148. + #ifdef NeXT
  149. +   return ((char *)0); /* wrong: but nobody uses it anyway */
  150. + #else
  151.     extern int _start ();
  152.     return ((char *) _start);
  153. + #endif /* NeXT */
  154.   #endif /* GOULD */
  155.   #endif /* TEXT_START */
  156.   }
  157.   #endif /* not CANNOT_UNEXEC */
  158.   
  159. ***************
  160. *** 1629,1639 ****
  161. --- 1633,1648 ----
  162.   end_of_text ()
  163.   {
  164.   #ifdef TEXT_END
  165.     return ((char *) TEXT_END);
  166.   #else
  167. + #ifdef __NeXT__
  168. +   static int etext;
  169. +   etext = get_etext();
  170. + #else
  171.     extern int etext;
  172. + #endif /* __NeXT__ */
  173.     return ((char *) &etext);
  174.   #endif
  175.   }
  176.    
  177.   /*
  178. ***************
  179. *** 1645,1655 ****
  180. --- 1654,1669 ----
  181.   end_of_data ()
  182.   {
  183.   #ifdef DATA_END
  184.     return ((char *) DATA_END);
  185.   #else
  186. + #ifdef __NeXT__
  187. +   static int edata;
  188. +   edata = get_edata();
  189. + #else
  190.     extern int edata;
  191. + #endif                     /* __NeXT__ */
  192.     return ((char *) &edata);
  193.   #endif
  194.   }
  195.   
  196.   #endif /* not CANNOT_DUMP */
  197.