branch: externals/beardbolt
commit 73dcaca98d9b28e11d13b16fd086d8d725b2f6cf
Author: Jay Kamat <jaygka...@gmail.com>
Commit: Jay Kamat <jaygka...@gmail.com>
Remove unneeded variables
---
README.org | 2 ++
rmsbolt.el | 16 +++++++---------
2 files changed, 9 insertions(+), 9 deletions(-)
diff --git a/README.org b/README.org
index 9ffeae6c85..82cd4d752c 100644
--- a/README.org
+++ b/README.org
@@ -101,6 +101,8 @@ The main knobs are described in the full documentation.
[[https://i.imgur.com/cMYfkGx.gif][https://i.imgur.com/cMYfkGx.gif]]
** Java
[[https://i.imgur.com/KkWEMMj.gif][https://i.imgur.com/KkWEMMj.gif]]
+** Go
+[[https://gitlab.com/jgkamat/rmsbolt/uploads/4ca143ac99f33880dbde000d71ff3763/rmsbolt-go-2.gif][https://gitlab.com/jgkamat/rmsbolt/uploads/4ca143ac99f33880dbde000d71ff3763/rmsbolt-go-2.gif]]
** PHP
[[https://i.imgur.com/xBfzaK9.gif][https://i.imgur.com/xBfzaK9.gif]]
** Pony
diff --git a/rmsbolt.el b/rmsbolt.el
index 7ffcb2fbda..d220d6f58b 100644
--- a/rmsbolt.el
+++ b/rmsbolt.el
@@ -25,8 +25,8 @@
;; RMSBolt is a package to provide assembly or bytecode output for a source
;; code input file.
;;
-;; It currently supports: C/C++, OCaml, Haskell, Python, Java, PHP, D, Pony,
-;; Zig, Emacs Lisp, and (limited) Common Lisp.
+;; It currently supports: C/C++, OCaml, Haskell, Python, Java, Go, PHP, D,
+;; Pony, Zig, Emacs Lisp, and (limited) Common Lisp.
;;
;; Adding support for more languages, if they have an easy manual compilation
;; path from source->assembly/bytecode with debug information, should be much
@@ -493,14 +493,12 @@ Return value is quoted for passing to the shell."
"Process a compile command for go."
(rmsbolt--with-files
src-buffer
- (let* ((asm-format (buffer-local-value 'rmsbolt-asm-format src-buffer))
- (disass (buffer-local-value 'rmsbolt-disassemble src-buffer))
- (cmd (buffer-local-value 'rmsbolt-command src-buffer))
+ (let* ((cmd (buffer-local-value 'rmsbolt-command src-buffer))
(cmd (mapconcat #'identity
(list cmd
- "tool" "compile"
+ "tool" "compile"
"-S"
- "-o" output-filename
+ "-o" output-filename
src-filename)
" ")))
cmd)))
@@ -1189,7 +1187,7 @@ Argument ASM-LINES input lines."
(t
(rmsbolt--process-src-asm-lines src-buffer asm-lines)))))
-(cl-defun rmsbolt--process-go-asm-lines (src-buffer asm-lines)
+(cl-defun rmsbolt--process-go-asm-lines (_src-buffer asm-lines)
(let ((source-linum nil)
(result nil))
(dolist (line asm-lines)
@@ -1413,7 +1411,7 @@ Are you running two compilations at the same time?"))
(mapconcat #'identity
(list cmd
"&&"
- "go" "tool"
+ "go" "tool"
"objdump" (rmsbolt-output-filename
src-buffer)
">" (rmsbolt-output-filename src-buffer t))
" ")))