From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 21 Jun 1991 00:17:19 +0000 (+0000)
Subject: Changes to configure for either little- or big-endian machines.
X-Git-Tag: 20090517-FFI~10505
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f1355ce54d08d5ae66dd5775ecd9f4d8cfd0e634;p=mit-scheme.git

Changes to configure for either little- or big-endian machines.
---

diff --git a/v7/src/compiler/machines/mips/compiler.sf-big b/v7/src/compiler/machines/mips/compiler.sf-big
index f7f327925..57766c723 100644
--- a/v7/src/compiler/machines/mips/compiler.sf-big
+++ b/v7/src/compiler/machines/mips/compiler.sf-big
@@ -1,9 +1,9 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/mips/compiler.sf-big,v 1.1 1990/05/07 04:11:47 jinx Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/mips/compiler.sf-big,v 1.2 1991/06/21 00:15:24 cph Exp $
 $MC68020-Header: comp.sf,v 1.11 89/08/28 18:33:37 GMT cph Exp $
 
-Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
+Copyright (c) 1988-91 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -75,6 +75,7 @@ MIT in each case. |#
 		   (access compiler-syntax-table
 			   (->environment '(COMPILER MACROS)))))
 	(sf-and-load '("machines/mips/machin") '(COMPILER)))
+      (set! (access endianness (->environment '(COMPILER))) 'BIG)
       (fluid-let ((sf/default-declarations
 		   '((integrate-external "insseq")
 		     (integrate-external "machin")
diff --git a/v7/src/compiler/machines/mips/compiler.sf-little b/v7/src/compiler/machines/mips/compiler.sf-little
index 090b0e195..8fee91c85 100644
--- a/v7/src/compiler/machines/mips/compiler.sf-little
+++ b/v7/src/compiler/machines/mips/compiler.sf-little
@@ -1,9 +1,9 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/mips/compiler.sf-little,v 1.1 1990/05/07 04:11:47 jinx Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/mips/compiler.sf-little,v 1.2 1991/06/21 00:15:06 cph Exp $
 $MC68020-Header: comp.sf,v 1.11 89/08/28 18:33:37 GMT cph Exp $
 
-Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
+Copyright (c) 1988-91 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -75,6 +75,7 @@ MIT in each case. |#
 		   (access compiler-syntax-table
 			   (->environment '(COMPILER MACROS)))))
 	(sf-and-load '("machines/mips/machin") '(COMPILER)))
+      (set! (access endianness (->environment '(COMPILER))) 'LITTLE)
       (fluid-let ((sf/default-declarations
 		   '((integrate-external "insseq")
 		     (integrate-external "machin")
diff --git a/v7/src/compiler/machines/mips/make.scm-big b/v7/src/compiler/machines/mips/make.scm-big
index 4074f5b7c..616424e9e 100644
--- a/v7/src/compiler/machines/mips/make.scm-big
+++ b/v7/src/compiler/machines/mips/make.scm-big
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/mips/make.scm-big,v 4.85 1991/06/17 21:21:52 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/mips/make.scm-big,v 4.86 1991/06/21 00:17:19 cph Exp $
 $MC68020-Header: /scheme/compiler/machines/bobcat/RCS/make.scm,v 4.86 1991/06/12 20:54:31 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
@@ -42,4 +42,5 @@ MIT in each case. |#
 	    ((package/reference (find-package name) 'INITIALIZE-PACKAGE!)))
 	  '((COMPILER MACROS)
 	    (COMPILER DECLARATIONS)))
+(set! (access endianness (->environment '(COMPILER))) 'BIG)
 (add-system! (make-system "Liar (MIPS)" 4 86 '()))
\ No newline at end of file
diff --git a/v7/src/compiler/machines/mips/make.scm-little b/v7/src/compiler/machines/mips/make.scm-little
index 7490b5174..59363d3dc 100644
--- a/v7/src/compiler/machines/mips/make.scm-little
+++ b/v7/src/compiler/machines/mips/make.scm-little
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/mips/make.scm-little,v 4.85 1991/06/17 21:21:52 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/mips/make.scm-little,v 4.86 1991/06/21 00:16:40 cph Exp $
 $MC68020-Header: /scheme/compiler/machines/bobcat/RCS/make.scm,v 4.86 1991/06/12 20:54:31 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
@@ -42,4 +42,5 @@ MIT in each case. |#
 	    ((package/reference (find-package name) 'INITIALIZE-PACKAGE!)))
 	  '((COMPILER MACROS)
 	    (COMPILER DECLARATIONS)))
+(set! (access endianness (->environment '(COMPILER))) 'LITTLE)
 (add-system! (make-system "Liar (MIPS)" 4 86 '()))
\ No newline at end of file