diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2022-07-23 12:29:35 +0200 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2022-07-23 12:29:35 +0200 |
| commit | 92892e5611c978f1473174f79b8a748d26ed37c6 (patch) | |
| tree | cc4c0b4be4086a6a78bfe7a1721e0ee081a8b11f /lisp/progmodes | |
| parent | 72a457e92e3b13b071b29afa8912a244843d04bc (diff) | |
| download | emacs-92892e5611c978f1473174f79b8a748d26ed37c6.tar.gz emacs-92892e5611c978f1473174f79b8a748d26ed37c6.tar.bz2 emacs-92892e5611c978f1473174f79b8a748d26ed37c6.zip | |
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.
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/verilog-mode.el | 4 |
1 files 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)) |