diff options
| author | Andrea Corallo | 2019-12-20 05:53:28 +0100 |
|---|---|---|
| committer | Andrea Corallo | 2020-01-01 11:38:14 +0100 |
| commit | 9a8f33f285295daff8ed02d35ece5e8fe11ac887 (patch) | |
| tree | 161e4dcdb5e1b5d9cae3307bbcca8b2031da748c /src/alloc.c | |
| parent | f0671c60637e218a54f9f3ac8e5950d17884f50b (diff) | |
| download | emacs-9a8f33f285295daff8ed02d35ece5e8fe11ac887.tar.gz emacs-9a8f33f285295daff8ed02d35ece5e8fe11ac887.zip | |
introduce SUBRP_NATIVE_COMPILEDP
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/alloc.c b/src/alloc.c index d990f53f7a0..dba2c2df881 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -6566,7 +6566,7 @@ mark_object (Lisp_Object arg) | |||
| 6566 | 6566 | ||
| 6567 | case PVEC_SUBR: | 6567 | case PVEC_SUBR: |
| 6568 | #ifdef HAVE_NATIVE_COMP | 6568 | #ifdef HAVE_NATIVE_COMP |
| 6569 | if (XSUBR (obj)->native_comp_u) | 6569 | if (SUBRP_NATIVE_COMPILEDP (obj)) |
| 6570 | set_vector_marked (ptr); | 6570 | set_vector_marked (ptr); |
| 6571 | #endif | 6571 | #endif |
| 6572 | break; | 6572 | break; |
| @@ -6715,7 +6715,7 @@ survives_gc_p (Lisp_Object obj) | |||
| 6715 | case Lisp_Vectorlike: | 6715 | case Lisp_Vectorlike: |
| 6716 | #ifdef HAVE_NATIVE_COMP | 6716 | #ifdef HAVE_NATIVE_COMP |
| 6717 | survives_p = | 6717 | survives_p = |
| 6718 | (SUBRP (obj) && !XSUBR (obj)->native_comp_u) || | 6718 | (SUBRP (obj) && !SUBRP_NATIVE_COMPILEDP (obj)) || |
| 6719 | vector_marked_p (XVECTOR (obj)); | 6719 | vector_marked_p (XVECTOR (obj)); |
| 6720 | #else | 6720 | #else |
| 6721 | survives_p = SUBRP (obj) || vector_marked_p (XVECTOR (obj)); | 6721 | survives_p = SUBRP (obj) || vector_marked_p (XVECTOR (obj)); |