diff options
| author | Mattias Engdegård | 2022-02-07 17:36:11 +0100 |
|---|---|---|
| committer | Mattias Engdegård | 2022-02-07 18:18:32 +0100 |
| commit | 6f3c62ff07e671dff1741ae580b9a761a3bfd361 (patch) | |
| tree | 199708fe0f21147bfbc7aae5e99e040d5fb3f2ac /src/eval.c | |
| parent | 6e403efc9bcf6e212d656bcc049a790dcebff451 (diff) | |
| download | emacs-6f3c62ff07e671dff1741ae580b9a761a3bfd361.tar.gz emacs-6f3c62ff07e671dff1741ae580b9a761a3bfd361.zip | |
Pin lazily read bytecode (bug#53809)
* src/eval.c (Ffetch_bytecode): Bytecode strings read lazily weren't
pinned as they must be. Do so.
Bug reported by Gregor Zattler.
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/eval.c b/src/eval.c index c87b1bc704c..ae9b18da0bd 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -3495,6 +3495,7 @@ DEFUN ("fetch-bytecode", Ffetch_bytecode, Sfetch_bytecode, | |||
| 3495 | bytecode = Fstring_as_unibyte (bytecode); | 3495 | bytecode = Fstring_as_unibyte (bytecode); |
| 3496 | } | 3496 | } |
| 3497 | 3497 | ||
| 3498 | pin_string (bytecode); | ||
| 3498 | ASET (object, COMPILED_BYTECODE, bytecode); | 3499 | ASET (object, COMPILED_BYTECODE, bytecode); |
| 3499 | ASET (object, COMPILED_CONSTANTS, XCDR (tem)); | 3500 | ASET (object, COMPILED_CONSTANTS, XCDR (tem)); |
| 3500 | } | 3501 | } |