diff options
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/src/alloc.c b/src/alloc.c index 2a15fd0d63d..5c860bc1f8e 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -23,10 +23,6 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 23 | #include <limits.h> /* For CHAR_BIT. */ | 23 | #include <limits.h> /* For CHAR_BIT. */ |
| 24 | #include <setjmp.h> | 24 | #include <setjmp.h> |
| 25 | 25 | ||
| 26 | #ifdef STDC_HEADERS | ||
| 27 | #include <stddef.h> /* For offsetof, used by PSEUDOVECSIZE. */ | ||
| 28 | #endif | ||
| 29 | |||
| 30 | #ifdef ALLOC_DEBUG | 26 | #ifdef ALLOC_DEBUG |
| 31 | #undef INLINE | 27 | #undef INLINE |
| 32 | #endif | 28 | #endif |
| @@ -298,7 +294,7 @@ static EMACS_INT pure_bytes_used_non_lisp; | |||
| 298 | /* If nonzero, this is a warning delivered by malloc and not yet | 294 | /* If nonzero, this is a warning delivered by malloc and not yet |
| 299 | displayed. */ | 295 | displayed. */ |
| 300 | 296 | ||
| 301 | char *pending_malloc_warning; | 297 | const char *pending_malloc_warning; |
| 302 | 298 | ||
| 303 | /* Pre-computed signal argument for use when memory is exhausted. */ | 299 | /* Pre-computed signal argument for use when memory is exhausted. */ |
| 304 | 300 | ||
| @@ -514,7 +510,7 @@ static POINTER_TYPE *pure_alloc (size_t, int); | |||
| 514 | /* Function malloc calls this if it finds we are near exhausting storage. */ | 510 | /* Function malloc calls this if it finds we are near exhausting storage. */ |
| 515 | 511 | ||
| 516 | void | 512 | void |
| 517 | malloc_warning (char *str) | 513 | malloc_warning (const char *str) |
| 518 | { | 514 | { |
| 519 | pending_malloc_warning = str; | 515 | pending_malloc_warning = str; |
| 520 | } | 516 | } |
| @@ -3030,7 +3026,7 @@ usage: (make-byte-code ARGLIST BYTE-CODE CONSTANTS DEPTH &optional DOCSTRING INT | |||
| 3030 | else | 3026 | else |
| 3031 | val = Fmake_vector (len, Qnil); | 3027 | val = Fmake_vector (len, Qnil); |
| 3032 | 3028 | ||
| 3033 | if (STRINGP (args[1]) && STRING_MULTIBYTE (args[1])) | 3029 | if (nargs > 1 && STRINGP (args[1]) && STRING_MULTIBYTE (args[1])) |
| 3034 | /* BYTECODE-STRING must have been produced by Emacs 20.2 or the | 3030 | /* BYTECODE-STRING must have been produced by Emacs 20.2 or the |
| 3035 | earlier because they produced a raw 8-bit string for byte-code | 3031 | earlier because they produced a raw 8-bit string for byte-code |
| 3036 | and now such a byte-code string is loaded as multibyte while | 3032 | and now such a byte-code string is loaded as multibyte while |