diff options
| author | Po Lu | 2023-03-02 20:00:06 +0800 |
|---|---|---|
| committer | Po Lu | 2023-03-02 20:00:06 +0800 |
| commit | a6a586ffc1bd302e30d80cb88b06e1e7e1573f63 (patch) | |
| tree | 33877aa5d5c405e3943c075acdef9bd94d8d9faf /src/alloc.c | |
| parent | 42674a71446e2ce1ba1f3226c978c7546334d4ea (diff) | |
| parent | 8d5d7509b0a2c248084fa349b0b188d4de4af804 (diff) | |
| download | emacs-a6a586ffc1bd302e30d80cb88b06e1e7e1573f63.tar.gz emacs-a6a586ffc1bd302e30d80cb88b06e1e7e1573f63.zip | |
Merge remote-tracking branch 'origin/master' into feature/android
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/alloc.c b/src/alloc.c index 6d8658e7bb0..3e7d5c2d15f 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -3742,7 +3742,8 @@ usage: (make-byte-code ARGLIST BYTE-CODE CONSTANTS DEPTH &optional DOCSTRING INT | |||
| 3742 | && FIXNATP (args[COMPILED_STACK_DEPTH]))) | 3742 | && FIXNATP (args[COMPILED_STACK_DEPTH]))) |
| 3743 | error ("Invalid byte-code object"); | 3743 | error ("Invalid byte-code object"); |
| 3744 | 3744 | ||
| 3745 | pin_string (args[COMPILED_BYTECODE]); // Bytecode must be immovable. | 3745 | /* Bytecode must be immovable. */ |
| 3746 | pin_string (args[COMPILED_BYTECODE]); | ||
| 3746 | 3747 | ||
| 3747 | /* We used to purecopy everything here, if purify-flag was set. This worked | 3748 | /* We used to purecopy everything here, if purify-flag was set. This worked |
| 3748 | OK for Emacs-23, but with Emacs-24's lexical binding code, it can be | 3749 | OK for Emacs-23, but with Emacs-24's lexical binding code, it can be |
| @@ -5959,7 +5960,7 @@ purecopy (Lisp_Object obj) | |||
| 5959 | memcpy (vec, objp, nbytes); | 5960 | memcpy (vec, objp, nbytes); |
| 5960 | for (i = 0; i < size; i++) | 5961 | for (i = 0; i < size; i++) |
| 5961 | vec->contents[i] = purecopy (vec->contents[i]); | 5962 | vec->contents[i] = purecopy (vec->contents[i]); |
| 5962 | // Byte code strings must be pinned. | 5963 | /* Byte code strings must be pinned. */ |
| 5963 | if (COMPILEDP (obj) && size >= 2 && STRINGP (vec->contents[1]) | 5964 | if (COMPILEDP (obj) && size >= 2 && STRINGP (vec->contents[1]) |
| 5964 | && !STRING_MULTIBYTE (vec->contents[1])) | 5965 | && !STRING_MULTIBYTE (vec->contents[1])) |
| 5965 | pin_string (vec->contents[1]); | 5966 | pin_string (vec->contents[1]); |