aboutsummaryrefslogtreecommitdiffstats
path: root/src/alloc.c
diff options
context:
space:
mode:
authorPo Lu2023-03-02 20:00:06 +0800
committerPo Lu2023-03-02 20:00:06 +0800
commita6a586ffc1bd302e30d80cb88b06e1e7e1573f63 (patch)
tree33877aa5d5c405e3943c075acdef9bd94d8d9faf /src/alloc.c
parent42674a71446e2ce1ba1f3226c978c7546334d4ea (diff)
parent8d5d7509b0a2c248084fa349b0b188d4de4af804 (diff)
downloademacs-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.c5
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]);