From 04983a2b990265e58de76e33ebafa5751dbba771 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Thu, 11 Nov 1993 06:01:54 +0000
Subject: [PATCH] Change flush_i_cache_initialize to always check for
 environment variables.  This allows overriding the name reported by uname
 under HP-UX!

Change the environment variable from HPPAmodel to
MITSCHEME_HPPA_MODEL.
---
 v7/src/microcode/cmpintmd/hppa.h | 26 ++++++++++++++------------
 v8/src/microcode/cmpintmd/hppa.h | 26 ++++++++++++++------------
 2 files changed, 28 insertions(+), 24 deletions(-)

diff --git a/v7/src/microcode/cmpintmd/hppa.h b/v7/src/microcode/cmpintmd/hppa.h
index 0424e882b..61dbd9226 100644
--- a/v7/src/microcode/cmpintmd/hppa.h
+++ b/v7/src/microcode/cmpintmd/hppa.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: hppa.h,v 1.46 1993/09/11 21:28:33 gjr Exp $
+$Id: hppa.h,v 1.47 1993/11/11 06:01:54 gjr Exp $
 
 Copyright (c) 1989-1993 Massachusetts Institute of Technology
 
@@ -329,29 +329,31 @@ DEFUN (push_d_cache_region, (start_address, block_size),
 static void
 DEFUN_VOID (flush_i_cache_initialize)
 {
+  extern char * EXFUN (getenv, (const char *));
   CONST char * models_filename =
     (search_path_for_file (0, MODELS_FILENAME, 1, 1));
   char * model;
+
+  model = (getenv ("MITSCHEME_HPPA_MODEL"));
+
 #ifdef _HPUX
-  struct utsname sysinfo;
-  if ((uname (&sysinfo)) < 0)
+  if (model == ((char *) NULL))
+  {
+    struct utsname sysinfo;
+    if ((uname (&sysinfo)) < 0)
     {
-      outf_fatal ("\nflush_i_cache_initialize: uname failed.\n");
+      outf_fatal ("\nflush_i_cache: uname failed.\n");
       goto loser;
     }
-  model = &sysinfo.machine[0];
-#else /* not _HPUX */
-  /* Presumably BSD */
-  extern char * EXFUN (getenv, (char *));
-  
-  model = (getenv ("HPPAmodel"));
+    model = &sysinfo.machine[0];
+  }
+#endif /* _HPUX */
   if (model == ((char *) NULL))
   {
     outf_fatal
-      ("\nflush_i_cache_initialize: HPPAmodel not set in environment.\n");
+      ("\nflush_i_cache: MITSCHEME_HPPA_MODEL not set in environment.\n");
     goto loser;
   }
-#endif /* _HPUX */
   {
     int fd = (open (models_filename, O_RDONLY));
     if (fd < 0)
diff --git a/v8/src/microcode/cmpintmd/hppa.h b/v8/src/microcode/cmpintmd/hppa.h
index 0424e882b..61dbd9226 100644
--- a/v8/src/microcode/cmpintmd/hppa.h
+++ b/v8/src/microcode/cmpintmd/hppa.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: hppa.h,v 1.46 1993/09/11 21:28:33 gjr Exp $
+$Id: hppa.h,v 1.47 1993/11/11 06:01:54 gjr Exp $
 
 Copyright (c) 1989-1993 Massachusetts Institute of Technology
 
@@ -329,29 +329,31 @@ DEFUN (push_d_cache_region, (start_address, block_size),
 static void
 DEFUN_VOID (flush_i_cache_initialize)
 {
+  extern char * EXFUN (getenv, (const char *));
   CONST char * models_filename =
     (search_path_for_file (0, MODELS_FILENAME, 1, 1));
   char * model;
+
+  model = (getenv ("MITSCHEME_HPPA_MODEL"));
+
 #ifdef _HPUX
-  struct utsname sysinfo;
-  if ((uname (&sysinfo)) < 0)
+  if (model == ((char *) NULL))
+  {
+    struct utsname sysinfo;
+    if ((uname (&sysinfo)) < 0)
     {
-      outf_fatal ("\nflush_i_cache_initialize: uname failed.\n");
+      outf_fatal ("\nflush_i_cache: uname failed.\n");
       goto loser;
     }
-  model = &sysinfo.machine[0];
-#else /* not _HPUX */
-  /* Presumably BSD */
-  extern char * EXFUN (getenv, (char *));
-  
-  model = (getenv ("HPPAmodel"));
+    model = &sysinfo.machine[0];
+  }
+#endif /* _HPUX */
   if (model == ((char *) NULL))
   {
     outf_fatal
-      ("\nflush_i_cache_initialize: HPPAmodel not set in environment.\n");
+      ("\nflush_i_cache: MITSCHEME_HPPA_MODEL not set in environment.\n");
     goto loser;
   }
-#endif /* _HPUX */
   {
     int fd = (open (models_filename, O_RDONLY));
     if (fd < 0)
-- 
2.25.1