diff options
author | Ludovic Courtès <ludo@gnu.org> | 2009-09-21 00:35:19 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2009-09-21 00:36:31 +0200 |
commit | e5f5113c21f396705d7479a570c96690135c9d36 (patch) | |
tree | 5cef5937b403ce841b70e49f80f69b658357caed /module/language/assembly/decompile-bytecode.scm | |
parent | a2ca7252121e968798b0638b758ea99d7bf62409 (diff) | |
download | guile-e5f5113c21f396705d7479a570c96690135c9d36.tar.gz |
Remove unused variables in system/language.
* module/language/assembly.scm (byte-length): Don't match unused
record slots.
* module/language/tree-il.scm (tree-il->scheme, post-order!,
pre-order!): Likewise.
* module/language/tree-il/analyze.scm (analyze-lexicals): Likewise.
* module/language/tree-il/compile-glil.scm (flatten): Likewise.
* module/language/assembly/disassemble.scm (disassemble-load-program):
Don't match unused list elements.
* module/language/glil/decompile-assembly.scm (decompile-toplevel,
decompile-load-program): Likewise.
* module/system/xref.scm (program-callee-rev-vars): Likewise.
* module/language/assembly/compile-bytecode.scm
(write-bytecode)[write-sized-loader]: Remove.
* module/language/assembly/decompile-bytecode.scm (decode-load-program):
Factorize `pad' variables.
* module/language/ecmascript/base.scm (object->value/string,
object->value/number)[v]: Remove.
* module/language/ecmascript/tokenize.scm (read-slash)[c0]: Remove.
* module/language/objcode/spec.scm (decompile-value)[nargs]: Remove.
* module/system/repl/command.scm (time)[vms-start, vms-end]: Remove.
* module/system/repl/repl.scm (prompting-meta-read): Use `prompt'.
Diffstat (limited to 'module/language/assembly/decompile-bytecode.scm')
-rw-r--r-- | module/language/assembly/decompile-bytecode.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/module/language/assembly/decompile-bytecode.scm b/module/language/assembly/decompile-bytecode.scm index 8cdebcfd0..511c6ccc6 100644 --- a/module/language/assembly/decompile-bytecode.scm +++ b/module/language/assembly/decompile-bytecode.scm @@ -57,8 +57,7 @@ (e (pop)) (f (pop)) (g (pop)) (h (pop)) (len (+ a (ash b 8) (ash c 16) (ash d 24))) (metalen (+ e (ash f 8) (ash g 16) (ash h 24))) - (totlen (+ len metalen)) - (pad0 (pop)) (pad1 (pop)) (pad2 (pop)) (pad3 (pop)) + (%unused-pad (begin (pop) (pop) (pop) (pop))) (labels '()) (i 0)) (define (ensure-label rel1 rel2) |