From: Alan Mackenzie <acm@muc.de>
To: Jeff Norden <norden.jeff@gmail.com>
Cc: Eli Zaretskii <eliz@gnu.org>, 64133@debbugs.gnu.org
Subject: bug#64133: CC Mode 5.35.2 (C/*l); incorrect indentation for an arrays of structs.
Date: Wed, 21 Jun 2023 10:39:39 +0000 [thread overview]
Message-ID: <ZJLTa39uYO1DdZxa@ACM> (raw)
In-Reply-To: <ZJBAGKznW-MPHVKZ@ACM>
Hello again, Jeff.
On Mon, Jun 19, 2023 at 11:46:32 +0000, Alan Mackenzie wrote:
> On Sun, Jun 18, 2023 at 12:23:58 -0500, Jeff Norden wrote:
> > The only reason the minibuffer-read affects things is timing. This
> > seems obvious now, but somehow it didn't occur to me until after I
> > sent the previous message. If I do
> > <tab><backspace><backspace> ..wait a few seconds.. <tab>
> > then the syntax does *not* change to brace-list. I tried changing
> > c-progress-interval, but that didn't seem to affect things. Maybe
> > there is another timer, or maybe a race condition involved somehow.
> No, I think it really is the cache bug I mentioned in my last post.
> Caches are wonderful things when they work properly, but the utter devil
> to debug when they don't.
> I've currently got a CC Mode version with this cache corrected, such
> that it parses your test file correctly, but I want to make sure the
> correction is correct before I send you a patch and release the fix.
> I'll be back again soon.
OK, here's the patch which I think fixes the bug completely. Would you
please apply this patch to your ..../lisp/progmodes/cc-engine.el,
byte-compile (or native-compile) that file, and then try it out on your
real code. (In the unlikely event that you want help with the patching
or compilation, feel free to send me personal email.) Then, please
confirm that the bug is fixed, or tell me what's still not working.
Thanks!
diff -r 2cd57c62754a cc-engine.el
--- a/cc-engine.el Sat Jun 17 12:45:10 2023 +0000
+++ b/cc-engine.el Wed Jun 21 10:27:21 2023 +0000
@@ -12816,11 +12816,19 @@
(defvar c-laomib-cache nil)
(make-variable-buffer-local 'c-laomib-cache)
-(defun c-laomib-get-cache (containing-sexp)
- ;; Get an element from `c-laomib-cache' matching CONTAINING-SEXP.
+(defun c-laomib-get-cache (containing-sexp start)
+ ;; Get an element from `c-laomib-cache' matching CONTAINING-SEXP, and which
+ ;; is suitable for start postiion START.
;; Return that element or nil if one wasn't found.
- (let ((elt (assq containing-sexp c-laomib-cache)))
- (when elt
+ (let ((ptr c-laomib-cache)
+ elt)
+ (while
+ (and ptr
+ (setq elt (car ptr))
+ (or (not (eq (car elt) containing-sexp))
+ (< start (car (cddr elt)))))
+ (setq ptr (cdr ptr)))
+ (when ptr
;; Move the fetched `elt' to the front of the cache.
(setq c-laomib-cache (delq elt c-laomib-cache))
(push elt c-laomib-cache)
@@ -12832,18 +12840,26 @@
;; the components of the new element (see comment for `c-laomib-cache').
;; The return value is of no significance.
(when lim
- (let ((old-elt (assq lim c-laomib-cache))
- ;; (elt (cons containing-sexp (cons start nil)))
+ (let (old-elt
(new-elt (list lim start end result))
big-ptr
(cur-ptr c-laomib-cache)
- togo (size 0) cur-size
- )
- (if old-elt (setq c-laomib-cache (delq old-elt c-laomib-cache)))
+ togo (size 0) cur-size)
+
+ ;; If there is an elt which overlaps with the new element, remove it.
+ (while
+ (and cur-ptr
+ (setq old-elt (car cur-ptr))
+ (or (not (eq (car old-elt) lim))
+ (not (and (> start (car (cddr old-elt)))
+ (<= start (cadr old-elt))))))
+ (setq cur-ptr (cdr cur-ptr)))
+ (when (and cur-ptr old-elt)
+ (setq c-laomib-cache (delq old-elt c-laomib-cache)))
(while (>= (length c-laomib-cache) 4)
;; We delete the least recently used elt which doesn't enclose START,
- ;; or..
+ ;; or ...
(dolist (elt c-laomib-cache)
(if (or (<= start (cadr elt))
(> start (car (cddr elt))))
@@ -12851,8 +12867,10 @@
;; ... delete the least recently used elt which isn't the biggest.
(when (not togo)
+ (setq cur-ptr c-laomib-cache)
(while (cdr cur-ptr)
- (setq cur-size (- (nth 2 (cadr cur-ptr)) (car (cadr cur-ptr))))
+ (setq cur-size (- (cadr (cadr cur-ptr))
+ (car (cddr (cadr cur-ptr)))))
(when (> cur-size size)
(setq size cur-size
big-ptr cur-ptr))
@@ -13044,7 +13062,7 @@
(goto-char pos)
(when (eq braceassignp 'dontknow)
(let* ((cache-entry (and containing-sexp
- (c-laomib-get-cache containing-sexp)))
+ (c-laomib-get-cache containing-sexp pos)))
(lim2 (or (cadr cache-entry) lim))
sub-bassign-p)
(if cache-entry
@@ -13066,6 +13084,8 @@
)
(setq braceassignp (nth 3 cache-entry))
(goto-char (nth 2 cache-entry)))
+ (c-laomib-put-cache containing-sexp
+ start (point) sub-bassign-p)
(setq braceassignp sub-bassign-p)))
(t))
> > Hope this helps,
> > -Jeff
--
Alan Mackenzie (Nuremberg, Germany).
next prev parent reply other threads:[~2023-06-21 10:39 UTC|newest]
Thread overview: 12+ messages / expand[flat|nested] mbox.gz Atom feed top
2023-06-17 15:03 bug#64133: CC Mode 5.35.2 (C/*l); incorrect indentation for an arrays of structs Jeff Norden
2023-06-17 15:14 ` Eli Zaretskii
[not found] ` <CAPbFCnniiTyPQBmayZpRwS46--JW6ipmmLAzMterB5cK9NEXCA@mail.gmail.com>
2023-06-17 16:27 ` Eli Zaretskii
2023-06-17 17:36 ` Jeff Norden
2023-06-18 13:13 ` Alan Mackenzie
2023-06-18 16:10 ` Jeff Norden
2023-06-18 17:23 ` Jeff Norden
2023-06-19 11:46 ` Alan Mackenzie
2023-06-19 14:30 ` Jeff Norden
2023-06-21 10:39 ` Alan Mackenzie [this message]
2023-06-21 18:43 ` Jeff Norden
2023-06-27 20:19 ` Alan Mackenzie
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=ZJLTa39uYO1DdZxa@ACM \
--to=acm@muc.de \
--cc=64133@debbugs.gnu.org \
--cc=eliz@gnu.org \
--cc=norden.jeff@gmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.