From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 12 Mar 1990 21:38:18 +0000 (+0000)
Subject: Remove duplicate entry for fp6 from the list of initially available
X-Git-Tag: 20090517-FFI~11509
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e239bb90f3a01906d64b4451b59f43db6728efe1;p=mit-scheme.git

Remove duplicate entry for fp6 from the list of initially available
registers.
---

diff --git a/v7/src/compiler/machines/spectrum/lapgen.scm b/v7/src/compiler/machines/spectrum/lapgen.scm
index a59d81c2c..271a186cf 100644
--- a/v7/src/compiler/machines/spectrum/lapgen.scm
+++ b/v7/src/compiler/machines/spectrum/lapgen.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/spectrum/lapgen.scm,v 4.26 1990/01/25 16:38:08 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/spectrum/lapgen.scm,v 4.27 1990/03/12 21:38:18 cph Exp $
 $MC68020-Header: lapgen.scm,v 4.26 90/01/18 22:43:36 GMT cph Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
@@ -94,7 +94,7 @@ MIT in each case. |#
    ;; g30
    g31
    ;; fp0 fp1 fp2 fp3
-   fp4 fp5 fp6 fp6 fp7 fp8 fp9 fp10 fp11 fp12 fp13 fp14 fp15
+   fp4 fp5 fp6 fp7 fp8 fp9 fp10 fp11 fp12 fp13 fp14 fp15
    ))
 
 (define-integrable (float-register? register)