From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Wed, 8 Aug 1990 20:28:21 +0000 (+0000)
Subject: Fix error message when the cache information file is not found.
X-Git-Tag: 20090517-FFI~11269
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ac7a5b62cee72beed6124272c60931e2575279f5;p=mit-scheme.git

Fix error message when the cache information file is not found.
---

diff --git a/v7/src/microcode/cmpintmd/hppa.h b/v7/src/microcode/cmpintmd/hppa.h
index 7cc37ea0b..5b13037f6 100644
--- a/v7/src/microcode/cmpintmd/hppa.h
+++ b/v7/src/microcode/cmpintmd/hppa.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpintmd/hppa.h,v 1.13 1990/08/08 20:20:40 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpintmd/hppa.h,v 1.14 1990/08/08 20:28:21 jinx Exp $
 
 Copyright (c) 1989, 1990 Massachusetts Institute of Technology
 
@@ -261,7 +261,7 @@ flush_i_cache_initialize ()
 
   if ((uname (&sysinfo)) < 0)
   {
-    fprintf (stderr, "\n: flush_i_cache: uname failed.\n");
+    fprintf (stderr, "\nflush_i_cache: uname failed.\n");
     return (-1);
   }
     
@@ -274,7 +274,7 @@ flush_i_cache_initialize ()
   fd = (open ((&filename[0]), O_RDONLY));
   if (fd < 0)
   {
-    fprintf (stderr, "\n: flush_i_cache: open (%s) failed.\n",
+    fprintf (stderr, "\nflush_i_cache: open (%s) failed.\n",
 	     (&filename[0]));
     return (-1);
   }
@@ -286,7 +286,7 @@ flush_i_cache_initialize ()
 
   if (read_result != (sizeof (struct pdc_cache_dump)))
   {
-    fprintf (stderr, "\n: flush_i_cache: read (%s) failed.\n",
+    fprintf (stderr, "\nflush_i_cache: read (%s) failed.\n",
 	     (&filename[0]));
     return (-1);
   }
@@ -294,7 +294,7 @@ flush_i_cache_initialize ()
   if ((strcmp (sysinfo.machine, cache_info.hardware)) != 0)
   {
     fprintf (stderr,
-	     "\n: flush_i_cache: information in %s does not match hardware.\n",
+	     "\nflush_i_cache: information in %s does not match hardware.\n",
 	     (&filename[0]));
     return (-1);
   }
diff --git a/v8/src/microcode/cmpintmd/hppa.h b/v8/src/microcode/cmpintmd/hppa.h
index cc2f0e696..958dc3808 100644
--- a/v8/src/microcode/cmpintmd/hppa.h
+++ b/v8/src/microcode/cmpintmd/hppa.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/cmpintmd/hppa.h,v 1.13 1990/08/08 20:20:40 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/cmpintmd/hppa.h,v 1.14 1990/08/08 20:28:21 jinx Exp $
 
 Copyright (c) 1989, 1990 Massachusetts Institute of Technology
 
@@ -261,7 +261,7 @@ flush_i_cache_initialize ()
 
   if ((uname (&sysinfo)) < 0)
   {
-    fprintf (stderr, "\n: flush_i_cache: uname failed.\n");
+    fprintf (stderr, "\nflush_i_cache: uname failed.\n");
     return (-1);
   }
     
@@ -274,7 +274,7 @@ flush_i_cache_initialize ()
   fd = (open ((&filename[0]), O_RDONLY));
   if (fd < 0)
   {
-    fprintf (stderr, "\n: flush_i_cache: open (%s) failed.\n",
+    fprintf (stderr, "\nflush_i_cache: open (%s) failed.\n",
 	     (&filename[0]));
     return (-1);
   }
@@ -286,7 +286,7 @@ flush_i_cache_initialize ()
 
   if (read_result != (sizeof (struct pdc_cache_dump)))
   {
-    fprintf (stderr, "\n: flush_i_cache: read (%s) failed.\n",
+    fprintf (stderr, "\nflush_i_cache: read (%s) failed.\n",
 	     (&filename[0]));
     return (-1);
   }
@@ -294,7 +294,7 @@ flush_i_cache_initialize ()
   if ((strcmp (sysinfo.machine, cache_info.hardware)) != 0)
   {
     fprintf (stderr,
-	     "\n: flush_i_cache: information in %s does not match hardware.\n",
+	     "\nflush_i_cache: information in %s does not match hardware.\n",
 	     (&filename[0]));
     return (-1);
   }