From 92892e5611c978f1473174f79b8a748d26ed37c6 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= Date: Sat, 23 Jul 2022 12:29:35 +0200 Subject: [PATCH] Use `ash` instead of `lsh` in verilog-mode (bug#56641) * lisp/progmodes/verilog-mode.el (verilog-simplify-range-expression): Use `ash`; the result will be the same because the first argument is nonnegative. --- lisp/progmodes/verilog-mode.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el index df3b28615fd..f063fb5a7ca 100644 --- a/lisp/progmodes/verilog-mode.el +++ b/lisp/progmodes/verilog-mode.el @@ -10880,10 +10880,10 @@ This repairs those mis-inserted by an AUTOARG." (setq out (replace-match (concat (match-string 1 out) (if (equal (match-string 3 out) ">>") - (int-to-string (lsh (string-to-number (match-string 2 out)) + (int-to-string (ash (string-to-number (match-string 2 out)) (* -1 (string-to-number (match-string 4 out)))))) (if (equal (match-string 3 out) "<<") - (int-to-string (lsh (string-to-number (match-string 2 out)) + (int-to-string (ash (string-to-number (match-string 2 out)) (string-to-number (match-string 4 out))))) (if (equal (match-string 3 out) ">>>") (int-to-string (ash (string-to-number (match-string 2 out)) -- 2.39.5