emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

feature/native-comp 51df0ab 06/12: Do not native compile two functions t


From: Andrea Corallo
Subject: feature/native-comp 51df0ab 06/12: Do not native compile two functions to allow cc-mode hack
Date: Sun, 21 Jun 2020 18:37:17 -0400 (EDT)

branch: feature/native-comp
commit 51df0ab6f6dc8085be6140fa9b87e4a124ce5ad9
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    Do not native compile two functions to allow cc-mode hack
    
        * lisp/progmodes/cc-langs.el (c-populate-syntax-table): Declare
        with speed -1.
    
        * lisp/progmodes/cc-bytecomp.el
        (cc-bytecomp-compiling-or-loading): Declare with speed -1.
---
 lisp/progmodes/cc-bytecomp.el | 2 ++
 lisp/progmodes/cc-langs.el    | 3 ++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/progmodes/cc-bytecomp.el b/lisp/progmodes/cc-bytecomp.el
index 959261c..5eb8af2 100644
--- a/lisp/progmodes/cc-bytecomp.el
+++ b/lisp/progmodes/cc-bytecomp.el
@@ -97,6 +97,8 @@
   ;; compilation can trigger loading (various `require' type forms)
   ;; and loading can trigger compilation (the package manager does
   ;; this).  We walk the lisp stack if necessary.
+  ;; Never native compile to allow cc-defs.el:2345 hack.
+  (declare (speed -1))
   (cond
    ((and load-in-progress
         (boundp 'byte-compile-dest-file)
diff --git a/lisp/progmodes/cc-langs.el b/lisp/progmodes/cc-langs.el
index dcffc0d..3ac4aad 100644
--- a/lisp/progmodes/cc-langs.el
+++ b/lisp/progmodes/cc-langs.el
@@ -337,7 +337,8 @@ the evaluated constant value at compile time."
 This includes setting \\=' and \" as string delimiters, and setting up
 the comment syntax to handle both line style \"//\" and block style
 \"/*\" \"*/\" comments."
-
+  ;; Never native compile to allow cc-mode.el:467 hack.
+  (declare (speed -1))
   (modify-syntax-entry ?_  "_"     table)
   (modify-syntax-entry ?\\ "\\"    table)
   (modify-syntax-entry ?+  "."     table)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]