From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Eli Zaretskii Newsgroups: gmane.emacs.bugs Subject: bug#54730: 28.1; vhdl-update-sensitivity-list not working in Windows Date: Tue, 05 Apr 2022 20:26:20 +0300 Message-ID: <83y20jcugz.fsf@gnu.org> References: <83zgkzcwfq.fsf@gnu.org> Mime-Version: 1.0 Content-Type: text/plain; charset=windows-1252 Content-Transfer-Encoding: 8bit Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="11341"; mail-complaints-to="usenet@ciao.gmane.io" Cc: 54730@debbugs.gnu.org To: Cyril Arnould Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Tue Apr 05 19:27:12 2022 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1nbmxS-0002kA-4A for geb-bug-gnu-emacs@m.gmane-mx.org; Tue, 05 Apr 2022 19:27:10 +0200 Original-Received: from localhost ([::1]:60884 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1nbmxR-0006i7-7R for geb-bug-gnu-emacs@m.gmane-mx.org; Tue, 05 Apr 2022 13:27:09 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:51542) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1nbmxK-0006hi-9d for bug-gnu-emacs@gnu.org; Tue, 05 Apr 2022 13:27:02 -0400 Original-Received: from debbugs.gnu.org ([209.51.188.43]:33912) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1nbmxK-000237-1C for bug-gnu-emacs@gnu.org; Tue, 05 Apr 2022 13:27:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1nbmxJ-0001h7-U4 for bug-gnu-emacs@gnu.org; Tue, 05 Apr 2022 13:27:01 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Eli Zaretskii Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Tue, 05 Apr 2022 17:27:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 54730 X-GNU-PR-Package: emacs Original-Received: via spool by 54730-submit@debbugs.gnu.org id=B54730.16491795846451 (code B ref 54730); Tue, 05 Apr 2022 17:27:01 +0000 Original-Received: (at 54730) by debbugs.gnu.org; 5 Apr 2022 17:26:24 +0000 Original-Received: from localhost ([127.0.0.1]:56042 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1nbmwh-0001fz-OU for submit@debbugs.gnu.org; Tue, 05 Apr 2022 13:26:24 -0400 Original-Received: from eggs.gnu.org ([209.51.188.92]:57986) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1nbmwf-0001fh-Vy for 54730@debbugs.gnu.org; Tue, 05 Apr 2022 13:26:22 -0400 Original-Received: from fencepost.gnu.org ([2001:470:142:3::e]:37764) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1nbmwa-0001x6-Jc; Tue, 05 Apr 2022 13:26:16 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnu.org; s=fencepost-gnu-org; h=MIME-version:References:Subject:In-Reply-To:To:From: Date; bh=V6/lxLpqHFQ4hfWGfTzoDEGmz+heDksbC2iy6/niR7c=; b=kTTZaJChGzgciU7gUnQU C9zkb7GvAFemhw/8lile+nwAWyGNjt/r4RvmXyvgCYT0kAgW35TKtyU+a/pXlCLax0RIl7dceZFo7 tJdDMIiECLf0x9OGD+9j+4XliiLlBzsxTlPvhXljGqmnHEoJtRBY3LrvVrbVDsH/2By2iDo2MRMxh 9cNbJRi5/M28R6yu3uOomT2dx0WqYgryDF3VmBNCeFUNu5HWjZISeee5jqlVtFoHH8fS/aCJFJmok SPStWkiqdtwDAAV5EnjhLHkxvercNZo632m03UQd+k2C5EgnpN/w9luxfk9K3pTUmUZ/y8Q93TqtC bX50SVJyd0rPfw==; Original-Received: from [87.69.77.57] (port=2155 helo=home-c4e4a596f7) by fencepost.gnu.org with esmtpsa (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1nbmwa-0008L9-3Z; Tue, 05 Apr 2022 13:26:16 -0400 In-Reply-To: (message from Cyril Arnould on Tue, 5 Apr 2022 17:08:28 +0000) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.io gmane.emacs.bugs:229451 Archived-At: > From: Cyril Arnould > CC: "54730@debbugs.gnu.org" <54730@debbugs.gnu.org> > Date: Tue, 5 Apr 2022 17:08:28 +0000 > > I’ve added an example file you can visit in the attachment. To reproduce, simply > put the cursor inside the process (M-g-g 30 RET) and execute > vhdl-update-sensitivity-list-process (C-c C-u C-s). I’m getting the following backtrace: > > Debugger entered--Lisp error: (void-variable proc-end) > (vhdl-re-search-forward "[<:]=" proc-end t) > eval((vhdl-re-search-forward "[<:]=" proc-end t)) > vhdl-update-sensitivity-list() > vhdl-update-sensitivity-list-process() > funcall-interactively(vhdl-update-sensitivity-list-process) > command-execute(vhdl-update-sensitivity-list-process) Thanks, I think I see the problem now. Does the below fix the problem? If not, can you tell me how to show the sensitivity list, and what should be the correct result of invoking vhdl-update-sensitivity-list-process in this case? diff --git a/lisp/progmodes/vhdl-mode.el b/lisp/progmodes/vhdl-mode.el index 64ebc14..e562a46 100644 --- a/lisp/progmodes/vhdl-mode.el +++ b/lisp/progmodes/vhdl-mode.el @@ -8396,30 +8396,30 @@ vhdl-update-sensitivity-list ((visible-list (vhdl-get-visible-signals)) ;; define syntactic regions where signals are read (scan-regions-list - '(;; right-hand side of signal/variable assignment + `(;; right-hand side of signal/variable assignment ;; (special case: "<=" is relational operator in a condition) - ((vhdl-re-search-forward "[<:]=" proc-end t) - (vhdl-re-search-forward ";\\|\\<\\(then\\|loop\\|report\\|severity\\|is\\)\\>" proc-end t)) + ((vhdl-re-search-forward "[<:]=" ,proc-end t) + (vhdl-re-search-forward ";\\|\\<\\(then\\|loop\\|report\\|severity\\|is\\)\\>" ,proc-end t)) ;; if condition - ((vhdl-re-search-forward "^\\s-*if\\>" proc-end t) - (vhdl-re-search-forward "\\" proc-end t)) + ((vhdl-re-search-forward "^\\s-*if\\>" ,proc-end t) + (vhdl-re-search-forward "\\" ,proc-end t)) ;; elsif condition - ((vhdl-re-search-forward "\\" proc-end t) - (vhdl-re-search-forward "\\" proc-end t)) + ((vhdl-re-search-forward "\\" ,proc-end t) + (vhdl-re-search-forward "\\" ,proc-end t)) ;; while loop condition - ((vhdl-re-search-forward "^\\s-*while\\>" proc-end t) - (vhdl-re-search-forward "\\" proc-end t)) + ((vhdl-re-search-forward "^\\s-*while\\>" ,proc-end t) + (vhdl-re-search-forward "\\" ,proc-end t)) ;; exit/next condition - ((vhdl-re-search-forward "\\<\\(exit\\|next\\)\\s-+\\w+\\s-+when\\>" proc-end t) - (vhdl-re-search-forward ";" proc-end t)) + ((vhdl-re-search-forward "\\<\\(exit\\|next\\)\\s-+\\w+\\s-+when\\>" ,proc-end t) + (vhdl-re-search-forward ";" ,proc-end t)) ;; assert condition - ((vhdl-re-search-forward "\\" proc-end t) - (vhdl-re-search-forward "\\(\\\\|\\\\|;\\)" proc-end t)) + ((vhdl-re-search-forward "\\" ,proc-end t) + (vhdl-re-search-forward "\\(\\\\|\\\\|;\\)" ,proc-end t)) ;; case expression - ((vhdl-re-search-forward "^\\s-*case\\>" proc-end t) - (vhdl-re-search-forward "\\" proc-end t)) + ((vhdl-re-search-forward "^\\s-*case\\>" ,proc-end t) + (vhdl-re-search-forward "\\" ,proc-end t)) ;; parameter list of procedure call, array index - ((and (re-search-forward "^\\s-*\\(\\w\\|\\.\\)+[ \t\n\r\f]*(" proc-end t) + ((and (re-search-forward "^\\s-*\\(\\w\\|\\.\\)+[ \t\n\r\f]*(" ,proc-end t) (1- (point))) (progn (backward-char) (forward-sexp) (while (looking-at "(") (forward-sexp)) (point)))))