RA == MVRA in disassembler

* module/system/vm/disassembler.scm: Modify call disassembler to assume
  RA == MVRA.

diff --git a/module/system/vm/disassembler.scm b/module/system/vm/disassembler.scm
index b339b5c..138f267 100644 (file)
--- 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)