From: Mattias Engdegård Date: Sat, 23 Jul 2022 10:29:35 +0000 (+0200) Subject: Use `ash` instead of `lsh` in verilog-mode (bug#56641) X-Git-Tag: emacs-29.0.90~1447^2~783 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=92892e5611c978f1473174f79b8a748d26ed37c6;p=emacs.git 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. --- 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))