diff options
| author | Po Lu | 2023-03-01 14:28:04 +0800 |
|---|---|---|
| committer | Po Lu | 2023-03-01 14:29:24 +0800 |
| commit | 7ef9a8210c9b6c2adf6094d8e85a50edd91e54e3 (patch) | |
| tree | 59b9d195cf2db62dd8137c45826db864ef722065 /src/alloc.c | |
| parent | ec1dea7b43f159ec58bc4f18db5a900cac655925 (diff) | |
| download | emacs-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.c | 5 |
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]); |