emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 978cf88: Port pdumper to older GNU/Linux


From: Paul Eggert
Subject: [Emacs-diffs] master 978cf88: Port pdumper to older GNU/Linux
Date: Wed, 16 Jan 2019 20:35:15 -0500 (EST)

branch: master
commit 978cf88bda9c9b41f1cc20cf8e53a9e6caeb91be
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>

    Port pdumper to older GNU/Linux
    
    Problem reported by Colin Baxter in:
    https://lists.gnu.org/r/emacs-devel/2019-01/msg00321.html
    * src/alloc.c (my_heap_start): Also define if
    GNU_LINUX && CANNOT_DUMP && DOUG_LEA_MALLOC.
---
 src/alloc.c | 32 +++++++++++++++++---------------
 1 file changed, 17 insertions(+), 15 deletions(-)

diff --git a/src/alloc.c b/src/alloc.c
index 8054aa5..5ea466b 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -103,24 +103,12 @@ along with GNU Emacs.  If not, see 
<https://www.gnu.org/licenses/>.  */
 #include "w32heap.h"   /* for sbrk */
 #endif
 
-#if defined GNU_LINUX && !defined CANNOT_DUMP
-/* The address where the heap starts.  */
-void *
-my_heap_start (void)
-{
-  static void *start;
-  if (! start)
-    start = sbrk (0);
-  return start;
-}
-#endif
-
 #ifdef DOUG_LEA_MALLOC
 
 /* Specify maximum number of areas to mmap.  It would be nice to use a
    value that explicitly means "no limit".  */
 
-#define MMAP_MAX_AREAS 100000000
+# define MMAP_MAX_AREAS 100000000
 
 /* A pointer to the memory allocated that copies that static data
    inside glibc's malloc.  */
@@ -136,9 +124,9 @@ malloc_initialize_hook (void)
 
   if (! initialized)
     {
-#ifdef GNU_LINUX
+# ifdef GNU_LINUX
       my_heap_start ();
-#endif
+# endif
       malloc_using_checking = getenv ("MALLOC_CHECK_") != NULL;
     }
   else
@@ -201,6 +189,20 @@ alloc_unexec_post (void)
   free (malloc_state_ptr);
 # endif
 }
+
+# ifdef GNU_LINUX
+
+/* The address where the heap starts.  */
+void *
+my_heap_start (void)
+{
+  static void *start;
+  if (! start)
+    start = sbrk (0);
+  return start;
+}
+# endif
+
 #endif
 
 /* Mark, unmark, query mark bit of a Lisp string.  S must be a pointer



reply via email to

[Prev in Thread] Current Thread [Next in Thread]