diff options
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/alloc.c b/src/alloc.c index 678bdfa4252..75466a787c7 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -2934,6 +2934,9 @@ mark_maybe_object (obj) | |||
| 2934 | } | 2934 | } |
| 2935 | } | 2935 | } |
| 2936 | break; | 2936 | break; |
| 2937 | |||
| 2938 | case Lisp_Int: | ||
| 2939 | break; | ||
| 2937 | } | 2940 | } |
| 2938 | 2941 | ||
| 2939 | if (mark_p) | 2942 | if (mark_p) |
| @@ -3138,7 +3141,7 @@ static void | |||
| 3138 | mark_stack () | 3141 | mark_stack () |
| 3139 | { | 3142 | { |
| 3140 | jmp_buf j; | 3143 | jmp_buf j; |
| 3141 | int stack_grows_down_p = (char *) &j > (char *) stack_base; | 3144 | volatile int stack_grows_down_p = (char *) &j > (char *) stack_base; |
| 3142 | void *end; | 3145 | void *end; |
| 3143 | 3146 | ||
| 3144 | /* This trick flushes the register windows so that all the state of | 3147 | /* This trick flushes the register windows so that all the state of |
| @@ -3362,8 +3365,8 @@ Does not copy symbols. Copies strings without text properties.") | |||
| 3362 | } | 3365 | } |
| 3363 | else if (MARKERP (obj)) | 3366 | else if (MARKERP (obj)) |
| 3364 | error ("Attempt to copy a marker to pure storage"); | 3367 | error ("Attempt to copy a marker to pure storage"); |
| 3365 | else | 3368 | |
| 3366 | return obj; | 3369 | return obj; |
| 3367 | } | 3370 | } |
| 3368 | 3371 | ||
| 3369 | 3372 | ||