aboutsummaryrefslogtreecommitdiffstats
path: root/src/alloc.c
diff options
context:
space:
mode:
authorPo Lu2023-03-01 14:28:04 +0800
committerPo Lu2023-03-01 14:29:24 +0800
commit7ef9a8210c9b6c2adf6094d8e85a50edd91e54e3 (patch)
tree59b9d195cf2db62dd8137c45826db864ef722065 /src/alloc.c
parentec1dea7b43f159ec58bc4f18db5a900cac655925 (diff)
downloademacs-7ef9a8210c9b6c2adf6094d8e85a50edd91e54e3.tar.gz
emacs-7ef9a8210c9b6c2adf6094d8e85a50edd91e54e3.zip
Replace C++ comments with C style equivalents
* src/alloc.c (Fmake_byte_code, purecopy): * src/bytecode.c (exec_byte_code): * src/xdisp.c (face_at_pos): Do not use C++-style comments!
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 f7a0a4a80c8..05a19f0b7e9 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -3542,7 +3542,8 @@ usage: (make-byte-code ARGLIST BYTE-CODE CONSTANTS DEPTH &optional DOCSTRING INT
3542 && FIXNATP (args[COMPILED_STACK_DEPTH]))) 3542 && FIXNATP (args[COMPILED_STACK_DEPTH])))
3543 error ("Invalid byte-code object"); 3543 error ("Invalid byte-code object");
3544 3544
3545 pin_string (args[COMPILED_BYTECODE]); // Bytecode must be immovable. 3545 /* Bytecode must be immovable. */
3546 pin_string (args[COMPILED_BYTECODE]);
3546 3547
3547 /* We used to purecopy everything here, if purify-flag was set. This worked 3548 /* We used to purecopy everything here, if purify-flag was set. This worked
3548 OK for Emacs-23, but with Emacs-24's lexical binding code, it can be 3549 OK for Emacs-23, but with Emacs-24's lexical binding code, it can be
@@ -5687,7 +5688,7 @@ purecopy (Lisp_Object obj)
5687 memcpy (vec, objp, nbytes); 5688 memcpy (vec, objp, nbytes);
5688 for (i = 0; i < size; i++) 5689 for (i = 0; i < size; i++)
5689 vec->contents[i] = purecopy (vec->contents[i]); 5690 vec->contents[i] = purecopy (vec->contents[i]);
5690 // Byte code strings must be pinned. 5691 /* Byte code strings must be pinned. */
5691 if (COMPILEDP (obj) && size >= 2 && STRINGP (vec->contents[1]) 5692 if (COMPILEDP (obj) && size >= 2 && STRINGP (vec->contents[1])
5692 && !STRING_MULTIBYTE (vec->contents[1])) 5693 && !STRING_MULTIBYTE (vec->contents[1]))
5693 pin_string (vec->contents[1]); 5694 pin_string (vec->contents[1]);