From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 15 Feb 1993 21:45:36 +0000 (+0000)
Subject: DEC OSF BL10 has fixed the bug about writing to the code containing
X-Git-Tag: 20090517-FFI~8509
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b76c922bf5f77139c84a575caef422cd6977f172;p=mit-scheme.git

DEC OSF BL10 has fixed the bug about writing to the code containing
the PC.  Re-enable the linker code.
---

diff --git a/v7/src/compiler/machines/alpha/rules3.scm b/v7/src/compiler/machines/alpha/rules3.scm
index 393229cbb..d7925b0a6 100644
--- a/v7/src/compiler/machines/alpha/rules3.scm
+++ b/v7/src/compiler/machines/alpha/rules3.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: rules3.scm,v 1.3 1992/10/15 17:04:39 jinx Exp $
+$Id: rules3.scm,v 1.4 1993/02/15 21:44:43 gjr Exp $
 
-Copyright (c) 1992 Digital Equipment Corporation (D.E.C.)
+Copyright (c) 1992-1993 Digital Equipment Corporation (D.E.C.)
 
 This software was developed at the Digital Equipment Corporation
 Cambridge Research Laboratory.  Permission to copy this software, to
@@ -715,23 +715,18 @@ case.
 			    (list regnum:first-arg regnum:second-arg
 				  regnum:third-arg regnum:fourth-arg)
     (lambda ()
-      (let* (
-#| Bug in Alpha -- stq is dying at this location
-	     (i1
+      (let* ((i1
 	      (load-pc-relative-address regnum:fourth-arg
 					'CONSTANT environment-label))
-|#
 	     (i2 (load-pc-relative-address regnum:second-arg
 					   'CODE *block-label*))
 	     (i3 (load-pc-relative-address regnum:third-arg
 					   'CONSTANT free-ref-label)))
 	(LAP
 	 ;; Grab interp's env. and store in code block at environment-label
-#|
 	 (LDQ ,regnum:first-arg ,reg:environment)
 	 ,@i1
 	 (STQ ,regnum:first-arg (OFFSET 0 ,regnum:fourth-arg))
-|#
 	 ;; Now invoke the linker
 	 ;; (arg1 is return address, supplied by interface)
 	 ,@i2
diff --git a/v7/src/microcode/s/decosf.h b/v7/src/microcode/s/decosf.h
index af7d3fd7a..76f52b168 100644
--- a/v7/src/microcode/s/decosf.h
+++ b/v7/src/microcode/s/decosf.h
@@ -1,12 +1,13 @@
 /* -*-C-*-
    System file for DEC OSF1
 
-$Id: decosf.h,v 1.2 1992/08/29 12:47:54 jinx Exp $
+$Id: decosf.h,v 1.3 1993/02/15 21:45:36 gjr Exp $
 
-Copyright (C) 1992  Digital Equipment Corporation */
+Copyright (C) 1992-1993  Digital Equipment Corporation */
 
 #define LIB_DEBUG		/* no -lg */
 
 /* AUTOCLOBBER_BUG temporarily defined (until BL10) and release. */
+/* Apparently it is no longer necessary at BL10 -DAUTOCLOBBER_BUG. */
 
-#define C_SWITCH_SYSTEM -std1 -DAUTOCLOBBER_BUG
+#define C_SWITCH_SYSTEM -std1