diff options
-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) |