emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/beardbolt ce6511f715 024/323: Fix compiler warnings


From: ELPA Syncer
Subject: [elpa] externals/beardbolt ce6511f715 024/323: Fix compiler warnings
Date: Thu, 9 Mar 2023 10:57:55 -0500 (EST)

branch: externals/beardbolt
commit ce6511f715fa9f5a9bf963a20616741d1d3c669c
Author: Jay Kamat <jaygkamat@gmail.com>
Commit: Jay Kamat <jaygkamat@gmail.com>

    Fix compiler warnings
---
 .gitignore |  2 ++
 rmsbolt.el | 10 +++-------
 2 files changed, 5 insertions(+), 7 deletions(-)

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000000..7e1ab01b27
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,2 @@
+
+*.elc
diff --git a/rmsbolt.el b/rmsbolt.el
index d897288f75..46c5bb714b 100644
--- a/rmsbolt.el
+++ b/rmsbolt.el
@@ -315,11 +315,8 @@ int main() {
   (let ((match nil)
         (current-label nil)
         (labels-used nil)
-        (trimmed-line nil)
         (weak-usages (make-hash-table :test #'equal)))
     (dolist (line asm-lines)
-      (setq trimmed-line (string-trim line))
-
       (setq match (and
                    (string-match rmsbolt-label-def line)
                    (match-string 1 line)))
@@ -350,7 +347,7 @@ int main() {
            (label-iter 0)
            (completed nil))
 
-      (while (and (<= (incf label-iter)
+      (while (and (<= (cl-incf label-iter)
                       max-label-iter)
                   (not completed))
         (let ((to-add nil))
@@ -379,12 +376,11 @@ int main() {
 (cl-defun rmsbolt--process-dissasembled-lines (src-buffer asm-lines)
   "Process and filter dissasembled ASM-LINES from SRC-BUFFER."
   (let* ((result nil)
-         (func nil)
-         (match nil))
+         (func nil))
     (dolist (line asm-lines)
       (cl-tagbody
        (when (> (length result) rmsbolt-binary-asm-limit)
-         (return-from rmsbolt--process-dissasembled-lines
+         (cl-return-from rmsbolt--process-dissasembled-lines
            '("Aborting processing due to exceeding the binary limit.")))
        ;; TODO process line numbers
        (when (string-match rmsbolt-dissas-label line)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]