diff options
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 64 |
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 | ||