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 393229cbbe9291d0cee3f72131ddd1af215671e8..d7925b0a666dbe16f9c58f69d59c429aa9edee24 100644 (file)
--- 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 af7d3fd7ab18e7af5d48e43b1614c80fd864f7ca..76f52b1684ce5ca540be8b39488dd3b115040343 100644 (file)
--- 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