From: Brian A. LaMacchia <edu/mit/csail/zurich/bal>
Date: Mon, 21 Mar 1988 21:45:31 +0000 (+0000)
Subject: fixed more bugs
X-Git-Tag: 20090517-FFI~12861
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7bd4e03af06e5b2117d8c45a1ff67f650e8233f3;p=mit-scheme.git

fixed more bugs
---

diff --git a/v7/src/compiler/machines/vax/rules3.scm b/v7/src/compiler/machines/vax/rules3.scm
index 2897b1844..44978fa2f 100644
--- a/v7/src/compiler/machines/vax/rules3.scm
+++ b/v7/src/compiler/machines/vax/rules3.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/rules3.scm,v 4.4 1988/02/23 19:47:03 bal Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/rules3.scm,v 4.5 1988/03/21 21:45:31 bal Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -233,13 +233,9 @@ MIT in each case. |#
 	       (LAP (MOVA L (@PCR ,(cdar references)) (R 9))
 		    ,@(if (null? (cdr references))
 			  (LAP (JSB ,entry:single))
-			  (LAP ,(load-rnw (length references) 1)
+			  (LAP ,(load-rnw (length references) 7)
 			       (JSB ,entry:multiple)))
 		    ,@(make-external-label (generate-label)))))))
-;;;
-;;; Break Point
-;;; Code above this point has been changed
-;;;
     (lambda (block-label constants references assignments uuo-links)
       (declare-constants uuo-links
        (declare-constants references
@@ -317,6 +313,10 @@ MIT in each case. |#
 	 (CMP L ,reg:compiled-memtop (R 12))
 	 ;; *** LEQU ? ***
 	 (B B LEQ (@PCR ,gc-label)))))
+
+(define-rule statement
+  (CONTINUATION-ENTRY (? internal-label))
+  (LAP ,@(make-external-label internal-label)))
 
 (define (procedure-header procedure gc-label)
   (let ((internal-label (rtl-procedure/label procedure))