aboutsummaryrefslogtreecommitdiffstats
path: root/src/alloc.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/alloc.c')
-rw-r--r--src/alloc.c64
1 files changed, 32 insertions, 32 deletions
diff --git a/src/alloc.c b/src/alloc.c
index edecd51f1ac..2a831cea62a 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -613,7 +613,7 @@ overrun_check_malloc (size_t size)
613 register unsigned char *val; 613 register unsigned char *val;
614 int overhead = ++check_depth == 1 ? XMALLOC_OVERRUN_CHECK_OVERHEAD : 0; 614 int overhead = ++check_depth == 1 ? XMALLOC_OVERRUN_CHECK_OVERHEAD : 0;
615 if (SIZE_MAX - overhead < size) 615 if (SIZE_MAX - overhead < size)
616 abort (); 616 emacs_abort ();
617 617
618 val = malloc (size + overhead); 618 val = malloc (size + overhead);
619 if (val && check_depth == 1) 619 if (val && check_depth == 1)
@@ -638,7 +638,7 @@ overrun_check_realloc (void *block, size_t size)
638 register unsigned char *val = (unsigned char *) block; 638 register unsigned char *val = (unsigned char *) block;
639 int overhead = ++check_depth == 1 ? XMALLOC_OVERRUN_CHECK_OVERHEAD : 0; 639 int overhead = ++check_depth == 1 ? XMALLOC_OVERRUN_CHECK_OVERHEAD : 0;
640 if (SIZE_MAX - overhead < size) 640 if (SIZE_MAX - overhead < size)
641 abort (); 641 emacs_abort ();
642 642
643 if (val 643 if (val
644 && check_depth == 1 644 && check_depth == 1
@@ -649,7 +649,7 @@ overrun_check_realloc (void *block, size_t size)
649 size_t osize = xmalloc_get_size (val); 649 size_t osize = xmalloc_get_size (val);
650 if (memcmp (xmalloc_overrun_check_trailer, val + osize, 650 if (memcmp (xmalloc_overrun_check_trailer, val + osize,
651 XMALLOC_OVERRUN_CHECK_SIZE)) 651 XMALLOC_OVERRUN_CHECK_SIZE))
652 abort (); 652 emacs_abort ();
653 memset (val + osize, 0, XMALLOC_OVERRUN_CHECK_SIZE); 653 memset (val + osize, 0, XMALLOC_OVERRUN_CHECK_SIZE);
654 val -= XMALLOC_OVERRUN_CHECK_SIZE + XMALLOC_OVERRUN_SIZE_SIZE; 654 val -= XMALLOC_OVERRUN_CHECK_SIZE + XMALLOC_OVERRUN_SIZE_SIZE;
655 memset (val, 0, XMALLOC_OVERRUN_CHECK_SIZE + XMALLOC_OVERRUN_SIZE_SIZE); 655 memset (val, 0, XMALLOC_OVERRUN_CHECK_SIZE + XMALLOC_OVERRUN_SIZE_SIZE);
@@ -686,7 +686,7 @@ overrun_check_free (void *block)
686 size_t osize = xmalloc_get_size (val); 686 size_t osize = xmalloc_get_size (val);
687 if (memcmp (xmalloc_overrun_check_trailer, val + osize, 687 if (memcmp (xmalloc_overrun_check_trailer, val + osize,
688 XMALLOC_OVERRUN_CHECK_SIZE)) 688 XMALLOC_OVERRUN_CHECK_SIZE))
689 abort (); 689 emacs_abort ();
690#ifdef XMALLOC_CLEAR_FREE_MEMORY 690#ifdef XMALLOC_CLEAR_FREE_MEMORY
691 val -= XMALLOC_OVERRUN_CHECK_SIZE + XMALLOC_OVERRUN_SIZE_SIZE; 691 val -= XMALLOC_OVERRUN_CHECK_SIZE + XMALLOC_OVERRUN_SIZE_SIZE;
692 memset (val, 0xff, osize + XMALLOC_OVERRUN_CHECK_OVERHEAD); 692 memset (val, 0xff, osize + XMALLOC_OVERRUN_CHECK_OVERHEAD);
@@ -1272,7 +1272,7 @@ emacs_blocked_free (void *ptr, const void *ptr2)
1272 { 1272 {
1273 fprintf (stderr, 1273 fprintf (stderr,
1274 "Freeing `%p' which wasn't allocated with malloc\n", ptr); 1274 "Freeing `%p' which wasn't allocated with malloc\n", ptr);
1275 abort (); 1275 emacs_abort ();
1276 } 1276 }
1277 else 1277 else
1278 { 1278 {
@@ -1331,7 +1331,7 @@ emacs_blocked_malloc (size_t size, const void *ptr)
1331 fprintf (stderr, "Region in use is %p...%p, %td bytes, type %d\n", 1331 fprintf (stderr, "Region in use is %p...%p, %td bytes, type %d\n",
1332 m->start, m->end, (char *) m->end - (char *) m->start, 1332 m->start, m->end, (char *) m->end - (char *) m->start,
1333 m->type); 1333 m->type);
1334 abort (); 1334 emacs_abort ();
1335 } 1335 }
1336 1336
1337 if (!dont_register_blocks) 1337 if (!dont_register_blocks)
@@ -1369,7 +1369,7 @@ emacs_blocked_realloc (void *ptr, size_t size, const void *ptr2)
1369 fprintf (stderr, 1369 fprintf (stderr,
1370 "Realloc of %p which wasn't allocated with malloc\n", 1370 "Realloc of %p which wasn't allocated with malloc\n",
1371 ptr); 1371 ptr);
1372 abort (); 1372 emacs_abort ();
1373 } 1373 }
1374 1374
1375 mem_delete (m); 1375 mem_delete (m);
@@ -1391,7 +1391,7 @@ emacs_blocked_realloc (void *ptr, size_t size, const void *ptr2)
1391 if (m != MEM_NIL) 1391 if (m != MEM_NIL)
1392 { 1392 {
1393 fprintf (stderr, "Realloc returns memory that is already in use\n"); 1393 fprintf (stderr, "Realloc returns memory that is already in use\n");
1394 abort (); 1394 emacs_abort ();
1395 } 1395 }
1396 1396
1397 /* Can't handle zero size regions in the red-black tree. */ 1397 /* Can't handle zero size regions in the red-black tree. */
@@ -1804,7 +1804,7 @@ string_bytes (struct Lisp_String *s)
1804 if (!PURE_POINTER_P (s) 1804 if (!PURE_POINTER_P (s)
1805 && s->data 1805 && s->data
1806 && nbytes != SDATA_NBYTES (SDATA_OF_STRING (s))) 1806 && nbytes != SDATA_NBYTES (SDATA_OF_STRING (s)))
1807 abort (); 1807 emacs_abort ();
1808 return nbytes; 1808 return nbytes;
1809} 1809}
1810 1810
@@ -1878,7 +1878,7 @@ check_string_free_list (void)
1878 while (s != NULL) 1878 while (s != NULL)
1879 { 1879 {
1880 if ((uintptr_t) s < 1024) 1880 if ((uintptr_t) s < 1024)
1881 abort (); 1881 emacs_abort ();
1882 s = NEXT_FREE_LISP_STRING (s); 1882 s = NEXT_FREE_LISP_STRING (s);
1883 } 1883 }
1884} 1884}
@@ -2107,7 +2107,7 @@ sweep_strings (void)
2107 back-pointer so that we know it's free. */ 2107 back-pointer so that we know it's free. */
2108#ifdef GC_CHECK_STRING_BYTES 2108#ifdef GC_CHECK_STRING_BYTES
2109 if (string_bytes (s) != SDATA_NBYTES (data)) 2109 if (string_bytes (s) != SDATA_NBYTES (data))
2110 abort (); 2110 emacs_abort ();
2111#else 2111#else
2112 data->u.nbytes = STRING_BYTES (s); 2112 data->u.nbytes = STRING_BYTES (s);
2113#endif 2113#endif
@@ -2218,7 +2218,7 @@ compact_small_strings (void)
2218 /* Check that the string size recorded in the string is the 2218 /* Check that the string size recorded in the string is the
2219 same as the one recorded in the sdata structure. */ 2219 same as the one recorded in the sdata structure. */
2220 if (s && string_bytes (s) != SDATA_NBYTES (from)) 2220 if (s && string_bytes (s) != SDATA_NBYTES (from))
2221 abort (); 2221 emacs_abort ();
2222#endif /* GC_CHECK_STRING_BYTES */ 2222#endif /* GC_CHECK_STRING_BYTES */
2223 2223
2224 nbytes = s ? STRING_BYTES (s) : SDATA_NBYTES (from); 2224 nbytes = s ? STRING_BYTES (s) : SDATA_NBYTES (from);
@@ -2231,7 +2231,7 @@ compact_small_strings (void)
2231 if (memcmp (string_overrun_cookie, 2231 if (memcmp (string_overrun_cookie,
2232 (char *) from_end - GC_STRING_OVERRUN_COOKIE_SIZE, 2232 (char *) from_end - GC_STRING_OVERRUN_COOKIE_SIZE,
2233 GC_STRING_OVERRUN_COOKIE_SIZE)) 2233 GC_STRING_OVERRUN_COOKIE_SIZE))
2234 abort (); 2234 emacs_abort ();
2235#endif 2235#endif
2236 2236
2237 /* Non-NULL S means it's alive. Copy its data. */ 2237 /* Non-NULL S means it's alive. Copy its data. */
@@ -2488,7 +2488,7 @@ make_uninit_multibyte_string (EMACS_INT nchars, EMACS_INT nbytes)
2488 struct Lisp_String *s; 2488 struct Lisp_String *s;
2489 2489
2490 if (nchars < 0) 2490 if (nchars < 0)
2491 abort (); 2491 emacs_abort ();
2492 if (!nbytes) 2492 if (!nbytes)
2493 return empty_multibyte_string; 2493 return empty_multibyte_string;
2494 2494
@@ -2809,7 +2809,7 @@ listn (enum constype type, ptrdiff_t count, Lisp_Object arg, ...)
2809 else if (type == CONSTYPE_HEAP) 2809 else if (type == CONSTYPE_HEAP)
2810 val = Fcons (objp[i], val); 2810 val = Fcons (objp[i], val);
2811 else 2811 else
2812 abort (); 2812 emacs_abort ();
2813 } 2813 }
2814 return val; 2814 return val;
2815} 2815}
@@ -3919,7 +3919,7 @@ mem_insert (void *start, void *end, enum mem_type type)
3919 while (c != MEM_NIL) 3919 while (c != MEM_NIL)
3920 { 3920 {
3921 if (start >= c->start && start < c->end) 3921 if (start >= c->start && start < c->end)
3922 abort (); 3922 emacs_abort ();
3923 parent = c; 3923 parent = c;
3924 c = start < c->start ? c->left : c->right; 3924 c = start < c->start ? c->left : c->right;
3925 } 3925 }
@@ -3938,7 +3938,7 @@ mem_insert (void *start, void *end, enum mem_type type)
3938#ifdef GC_MALLOC_CHECK 3938#ifdef GC_MALLOC_CHECK
3939 x = _malloc_internal (sizeof *x); 3939 x = _malloc_internal (sizeof *x);
3940 if (x == NULL) 3940 if (x == NULL)
3941 abort (); 3941 emacs_abort ();
3942#else 3942#else
3943 x = xmalloc (sizeof *x); 3943 x = xmalloc (sizeof *x);
3944#endif 3944#endif
@@ -4613,7 +4613,7 @@ mark_maybe_pointer (void *p)
4613 break; 4613 break;
4614 4614
4615 default: 4615 default:
4616 abort (); 4616 emacs_abort ();
4617 } 4617 }
4618 4618
4619 if (!NILP (obj)) 4619 if (!NILP (obj))
@@ -4810,7 +4810,7 @@ check_gcpros (void)
4810 if (!survives_gc_p (p->var[i])) 4810 if (!survives_gc_p (p->var[i]))
4811 /* FIXME: It's not necessarily a bug. It might just be that the 4811 /* FIXME: It's not necessarily a bug. It might just be that the
4812 GCPRO is unnecessary or should release the object sooner. */ 4812 GCPRO is unnecessary or should release the object sooner. */
4813 abort (); 4813 emacs_abort ();
4814} 4814}
4815 4815
4816#elif GC_MARK_STACK == GC_USE_GCPROS_CHECK_ZOMBIES 4816#elif GC_MARK_STACK == GC_USE_GCPROS_CHECK_ZOMBIES
@@ -5351,7 +5351,7 @@ staticpro (Lisp_Object *varaddress)
5351{ 5351{
5352 staticvec[staticidx++] = varaddress; 5352 staticvec[staticidx++] = varaddress;
5353 if (staticidx >= NSTATICS) 5353 if (staticidx >= NSTATICS)
5354 abort (); 5354 emacs_abort ();
5355} 5355}
5356 5356
5357 5357
@@ -5406,7 +5406,7 @@ See Info node `(elisp)Garbage Collection'. */)
5406 Lisp_Object retval = Qnil; 5406 Lisp_Object retval = Qnil;
5407 5407
5408 if (abort_on_gc) 5408 if (abort_on_gc)
5409 abort (); 5409 emacs_abort ();
5410 5410
5411 /* Can't GC if pure storage overflowed because we can't determine 5411 /* Can't GC if pure storage overflowed because we can't determine
5412 if something is a pure object or not. */ 5412 if something is a pure object or not. */
@@ -5887,7 +5887,7 @@ mark_object (Lisp_Object arg)
5887 do { \ 5887 do { \
5888 m = mem_find (po); \ 5888 m = mem_find (po); \
5889 if (m == MEM_NIL) \ 5889 if (m == MEM_NIL) \
5890 abort (); \ 5890 emacs_abort (); \
5891 } while (0) 5891 } while (0)
5892 5892
5893 /* Check that the object pointed to by PO is live, using predicate 5893 /* Check that the object pointed to by PO is live, using predicate
@@ -5895,7 +5895,7 @@ mark_object (Lisp_Object arg)
5895#define CHECK_LIVE(LIVEP) \ 5895#define CHECK_LIVE(LIVEP) \
5896 do { \ 5896 do { \
5897 if (!LIVEP (m, po)) \ 5897 if (!LIVEP (m, po)) \
5898 abort (); \ 5898 emacs_abort (); \
5899 } while (0) 5899 } while (0)
5900 5900
5901 /* Check both of the above conditions. */ 5901 /* Check both of the above conditions. */
@@ -5943,7 +5943,7 @@ mark_object (Lisp_Object arg)
5943 if (m == MEM_NIL && !SUBRP (obj) 5943 if (m == MEM_NIL && !SUBRP (obj)
5944 && po != &buffer_defaults 5944 && po != &buffer_defaults
5945 && po != &buffer_local_symbols) 5945 && po != &buffer_local_symbols)
5946 abort (); 5946 emacs_abort ();
5947#endif /* GC_CHECK_MARKED_OBJECTS */ 5947#endif /* GC_CHECK_MARKED_OBJECTS */
5948 5948
5949 if (ptr->header.size & PSEUDOVECTOR_FLAG) 5949 if (ptr->header.size & PSEUDOVECTOR_FLAG)
@@ -5966,7 +5966,7 @@ mark_object (Lisp_Object arg)
5966 if (b == po) 5966 if (b == po)
5967 break; 5967 break;
5968 if (b == NULL) 5968 if (b == NULL)
5969 abort (); 5969 emacs_abort ();
5970 } 5970 }
5971#endif /* GC_CHECK_MARKED_OBJECTS */ 5971#endif /* GC_CHECK_MARKED_OBJECTS */
5972 mark_buffer ((struct buffer *) ptr); 5972 mark_buffer ((struct buffer *) ptr);
@@ -6042,7 +6042,7 @@ mark_object (Lisp_Object arg)
6042 break; 6042 break;
6043 6043
6044 case PVEC_FREE: 6044 case PVEC_FREE:
6045 abort (); 6045 emacs_abort ();
6046 6046
6047 default: 6047 default:
6048 mark_vectorlike (ptr); 6048 mark_vectorlike (ptr);
@@ -6089,7 +6089,7 @@ mark_object (Lisp_Object arg)
6089 And if it's forwarded to a C variable, either it's not 6089 And if it's forwarded to a C variable, either it's not
6090 a Lisp_Object var, or it's staticpro'd already. */ 6090 a Lisp_Object var, or it's staticpro'd already. */
6091 break; 6091 break;
6092 default: abort (); 6092 default: emacs_abort ();
6093 } 6093 }
6094 if (!PURE_POINTER_P (XSTRING (ptr->name))) 6094 if (!PURE_POINTER_P (XSTRING (ptr->name)))
6095 MARK_STRING (XSTRING (ptr->name)); 6095 MARK_STRING (XSTRING (ptr->name));
@@ -6143,7 +6143,7 @@ mark_object (Lisp_Object arg)
6143 break; 6143 break;
6144 6144
6145 default: 6145 default:
6146 abort (); 6146 emacs_abort ();
6147 } 6147 }
6148 break; 6148 break;
6149 6149
@@ -6165,7 +6165,7 @@ mark_object (Lisp_Object arg)
6165 obj = ptr->u.cdr; 6165 obj = ptr->u.cdr;
6166 cdr_count++; 6166 cdr_count++;
6167 if (cdr_count == mark_object_loop_halt) 6167 if (cdr_count == mark_object_loop_halt)
6168 abort (); 6168 emacs_abort ();
6169 goto loop; 6169 goto loop;
6170 } 6170 }
6171 6171
@@ -6178,7 +6178,7 @@ mark_object (Lisp_Object arg)
6178 break; 6178 break;
6179 6179
6180 default: 6180 default:
6181 abort (); 6181 emacs_abort ();
6182 } 6182 }
6183 6183
6184#undef CHECK_LIVE 6184#undef CHECK_LIVE
@@ -6247,7 +6247,7 @@ survives_gc_p (Lisp_Object obj)
6247 break; 6247 break;
6248 6248
6249 default: 6249 default:
6250 abort (); 6250 emacs_abort ();
6251 } 6251 }
6252 6252
6253 return survives_p || PURE_POINTER_P ((void *) XPNTR (obj)); 6253 return survives_p || PURE_POINTER_P ((void *) XPNTR (obj));
@@ -6699,7 +6699,7 @@ die (const char *msg, const char *file, int line)
6699 file, line, msg); 6699 file, line, msg);
6700 npointers = backtrace (buffer, NPOINTERS_MAX); 6700 npointers = backtrace (buffer, NPOINTERS_MAX);
6701 backtrace_symbols_fd (buffer, npointers, STDERR_FILENO); 6701 backtrace_symbols_fd (buffer, npointers, STDERR_FILENO);
6702 abort (); 6702 emacs_abort ();
6703} 6703}
6704#endif 6704#endif
6705 6705