diff options
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/alloc.c b/src/alloc.c index 4dcc5b49825..73d1b034137 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -2436,7 +2436,7 @@ The arguments should be the arglist, bytecode-string, constant vector, | |||
| 2436 | stack size, (optional) doc string, and (optional) interactive spec. | 2436 | stack size, (optional) doc string, and (optional) interactive spec. |
| 2437 | The first four arguments are required; at most six have any | 2437 | The first four arguments are required; at most six have any |
| 2438 | significance. | 2438 | significance. |
| 2439 | usage: (make-byte-code &rest ELEMENTS) */) | 2439 | usage: (make-byte-code ARGLIST BYTE-CODE CONSTANTS DEPTH &optional DOCSTRING INTERACTIVE-SPEC &rest ELEMENTS) */) |
| 2440 | (nargs, args) | 2440 | (nargs, args) |
| 2441 | register int nargs; | 2441 | register int nargs; |
| 2442 | Lisp_Object *args; | 2442 | Lisp_Object *args; |
| @@ -3701,6 +3701,8 @@ check_gcpros () | |||
| 3701 | for (p = gcprolist; p; p = p->next) | 3701 | for (p = gcprolist; p; p = p->next) |
| 3702 | for (i = 0; i < p->nvars; ++i) | 3702 | for (i = 0; i < p->nvars; ++i) |
| 3703 | if (!survives_gc_p (p->var[i])) | 3703 | if (!survives_gc_p (p->var[i])) |
| 3704 | /* FIXME: It's not necessarily a bug. It might just be that the | ||
| 3705 | GCPRO is unnecessary or should release the object sooner. */ | ||
| 3704 | abort (); | 3706 | abort (); |
| 3705 | } | 3707 | } |
| 3706 | 3708 | ||