diff options
| author | Andy Wingo <wingo@pobox.com> | 2013-08-12 21:41:23 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2013-08-24 15:38:27 +0200 |
| commit | 70a2043143e042563c3c2dbc22db5e7be4da56ee (patch) | |
| tree | 78c483bab8c3d0a0379b5a27a6074edca6c8125f | |
| parent | 8fa728892853c04f0e73572f31773f6bfb804440 (diff) | |
| download | guile-70a2043143e042563c3c2dbc22db5e7be4da56ee.tar.gz | |
RA == MVRA in disassembler
* module/system/vm/disassembler.scm: Modify call disassembler to assume
RA == MVRA.
| -rw-r--r-- | module/system/vm/disassembler.scm | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/module/system/vm/disassembler.scm b/module/system/vm/disassembler.scm index b339b5cbe..138f267d9 100644 --- a/module/system/vm/disassembler.scm +++ b/module/system/vm/disassembler.scm @@ -286,12 +286,7 @@ address of that offset." ((prompt) (match arg ((_ ... target) - (add-label! (+ offset target) "H")))) - ((call call/values) - (let* ((MVRA (+ offset len)) - (RA (+ MVRA 1))) - (add-label! MVRA "MVRA") - (add-label! RA "RA")))))) + (add-label! (+ offset target) "H"))))))) (lp (+ offset len)))))) (let lp ((offset start) (n 1)) (when (< offset end) |