From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Sat, 15 Feb 1992 14:34:45 +0000 (+0000)
Subject: Bad call to target-register-reference.
X-Git-Tag: 20090517-FFI~9735
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=37b65c8e949b5e45a13559b0396f9751367a4bcb;p=mit-scheme.git

Bad call to target-register-reference.
---

diff --git a/v7/src/compiler/machines/i386/rules3.scm b/v7/src/compiler/machines/i386/rules3.scm
index c0036f139..beb94425f 100644
--- a/v7/src/compiler/machines/i386/rules3.scm
+++ b/v7/src/compiler/machines/i386/rules3.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/rules3.scm,v 1.13 1992/02/15 14:31:27 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/rules3.scm,v 1.14 1992/02/15 14:34:45 jinx Exp $
 $MC68020-Header: /scheme/compiler/bobcat/RCS/rules3.scm,v 4.31 1991/05/28 19:14:55 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
@@ -539,7 +539,7 @@ MIT in each case. |#
 	  (CONS-MULTICLOSURE (? nentries) (? size) (? entries)))
   (case nentries
     ((0)
-     (let ((target (target-register-reference)))
+     (let ((target (target-register-reference target)))
        (LAP (MOV W ,target (R ,regnum:free-pointer))
 	    (MOV W (@R ,regnum:free-pointer)
 		 (&U ,(make-non-pointer-literal (ucode-type manifest-vector)