From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Mon, 6 Feb 2012 01:13:54 +0000 (-0700)
Subject: svm: Fixed the return of trap results.
X-Git-Tag: release-9.2.0~316^2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3133dd445a1053c217b843f12abe4ebf8e640a37;p=mit-scheme.git

svm: Fixed the return of trap results.
---

diff --git a/src/compiler/machines/svm/machine.scm b/src/compiler/machines/svm/machine.scm
index b341b66b1..fd0785f04 100644
--- a/src/compiler/machines/svm/machine.scm
+++ b/src/compiler/machines/svm/machine.scm
@@ -377,22 +377,22 @@ USA.
 ;;;; RTL Generator Interface
 
 (define (interpreter-register:access)
-  (rtl:make-machine-register regnum:word-0))
+  (rtl:make-machine-register regnum:value))
 
 (define (interpreter-register:cache-reference)
-  (rtl:make-machine-register regnum:word-0))
+  (rtl:make-machine-register regnum:value))
 
 (define (interpreter-register:cache-unassigned?)
-  (rtl:make-machine-register regnum:word-0))
+  (rtl:make-machine-register regnum:value))
 
 (define (interpreter-register:lookup)
-  (rtl:make-machine-register regnum:word-0))
+  (rtl:make-machine-register regnum:value))
 
 (define (interpreter-register:unassigned?)
-  (rtl:make-machine-register regnum:word-0))
+  (rtl:make-machine-register regnum:value))
 
 (define (interpreter-register:unbound?)
-  (rtl:make-machine-register regnum:word-0))
+  (rtl:make-machine-register regnum:value))
   
 (define-syntax define-machine-register
   (sc-macro-transformer