diff options
| author | Dmitry Antipov | 2013-01-14 15:07:50 +0400 |
|---|---|---|
| committer | Dmitry Antipov | 2013-01-14 15:07:50 +0400 |
| commit | 9d5a1260b69af8ccb708a3e29b85aa1bf59f8405 (patch) | |
| tree | 96ad9563155d96eaede468ecce920f38527222ce /src/eval.c | |
| parent | 73ebd38f16c4799b657e501f188e9f3a3eca7805 (diff) | |
| download | emacs-9d5a1260b69af8ccb708a3e29b85aa1bf59f8405.tar.gz emacs-9d5a1260b69af8ccb708a3e29b85aa1bf59f8405.zip | |
Fix compilation with GC_MARK_STACK == GC_USE_GCPROS_AS_BEFORE.
* eval.c (eval_sub): Protect `form' from being GCed before its
car and cdr becomes protected with the backtrace entry.
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/eval.c b/src/eval.c index c49f8e85c2f..030bf14bcea 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -1931,7 +1931,10 @@ eval_sub (Lisp_Object form) | |||
| 1931 | return form; | 1931 | return form; |
| 1932 | 1932 | ||
| 1933 | QUIT; | 1933 | QUIT; |
| 1934 | |||
| 1935 | GCPRO1 (form); | ||
| 1934 | maybe_gc (); | 1936 | maybe_gc (); |
| 1937 | UNGCPRO; | ||
| 1935 | 1938 | ||
| 1936 | if (++lisp_eval_depth > max_lisp_eval_depth) | 1939 | if (++lisp_eval_depth > max_lisp_eval_depth) |
| 1937 | { | 1940 | { |