# HG changeset patch
# User jwe
# Date 781397166 0
# Node ID d1acd4a89bf79be798537fd9bc99f77b3304fa9d
# Parent  9541a1fe575cc3bdc93b2ab0b747ac482a87e4f3
[project @ 1994-10-05 22:46:06 by jwe]

diff --git a/src/load-save.cc b/src/load-save.cc
--- a/src/load-save.cc
+++ b/src/load-save.cc
@@ -234,19 +234,19 @@
 static void
 VAX_D_double_to_IEEE_little_double (double *d, int len)
 {
-  error ("unable to convert from VAX D float to IEEE little endian format");
+  gripe_data_conversion ("VAX D float", "IEEE little endian format");
 }
 
 static void
 VAX_G_double_to_IEEE_little_double (double *d, int len)
 {
-  error ("unable to convert from VAX G float to IEEE little endian format");
+  gripe_data_conversion ("VAX G float", "IEEE little endian format");
 }
 
 static void
 Cray_to_IEEE_little_double (double *d, int len)
 {
-  error ("unable to convert from Cray to IEEE little endian format");
+  gripe_data_conversion ("Cray", "IEEE little endian format");
 }
 
 static void
@@ -258,19 +258,19 @@
 static void
 VAX_D_float_to_IEEE_little_float (float *d, int len)
 {
-  error ("unable to convert from VAX D float to IEEE little endian format");
+  gripe_data_conversion ("VAX D float", "IEEE little endian format");
 }
 
 static void
 VAX_G_float_to_IEEE_little_float (float *d, int len)
 {
-  error ("unable to convert from VAX G float to IEEE little endian format");
+  gripe_data_conversion ("VAX G float", "IEEE little endian format");
 }
 
 static void
 Cray_to_IEEE_little_float (float *d, int len)
 {
-  error ("unable to convert from Cray to IEEE little endian format");
+  gripe_data_conversion ("Cray", "IEEE little endian format");
 }
 
 #elif defined (IEEE_BIG_ENDIAN)
@@ -284,19 +284,19 @@
 static void
 VAX_D_double_to_IEEE_big_double (double *d, int len)
 {
-  error ("unable to convert from VAX D float to IEEE big endian format");
+  gripe_data_conversion ("VAX D float", "IEEE big endian format");
 }
 
 static void
 VAX_G_double_to_IEEE_big_double (double *d, int len)
 {
-  error ("unable to convert from VAX G float to IEEE big endian format");
+  gripe_data_conversion ("VAX G float", "IEEE big endian format");
 }
 
 static void
 Cray_to_IEEE_big_double (double *d, int len)
 {
-  error ("unable to convert from Cray to IEEE big endian format");
+  gripe_data_conversion ("Cray", "IEEE big endian format");
 }
 
 static void
@@ -308,19 +308,19 @@
 static void
 VAX_D_float_to_IEEE_big_float (float *d, int len)
 {
-  error ("unable to convert from VAX D float to IEEE big endian format");
+  gripe_data_conversion ("VAX D float", "IEEE big endian format");
 }
 
 static void
 VAX_G_float_to_IEEE_big_float (float *d, int len)
 {
-  error ("unable to convert from VAX G float to IEEE big endian format");
+  gripe_data_conversion ("VAX G float", "IEEE big endian format");
 }
 
 static void
 Cray_to_IEEE_big_float (float *d, int len)
 {
-  error ("unable to convert from Cray to IEEE big endian format");
+  gripe_data_conversion ("Cray", "IEEE big endian format");
 }
 
 #elif defined (VAX_D_FLOAT)
@@ -328,49 +328,49 @@
 static void
 IEEE_little_double_to_VAX_D_double (double *d, int len)
 {
-  error ("unable to convert from IEEE little endian to VAX D float format");
+  gripe_data_conversion ("IEEE little endian", "VAX D");
 }
 
 static void
 IEEE_big_double_to_VAX_D_double (double *d, int len)
 {
-  error ("unable to convert from IEEE big endian to VAX D float format");
+  gripe_data_conversion ("IEEE big endian", "VAX D");
 }
 
 static void
 VAX_G_double_to_VAX_D_double (double *d, int len)
 {
-  error ("unable to convert from VAX G float to VAX D float format");
+  gripe_data_conversion ("VAX G float", "VAX D");
 }
 
 static void
 Cray_to_VAX_D_double (double *d, int len)
 {
-  error ("unable to convert from Cray to VAX D float format");
+  gripe_data_conversion ("Cray", "VAX D");
 }
 
 static void
 IEEE_little_float_to_VAX_D_float (float *d, int len)
 {
-  error ("unable to convert from IEEE little endian to VAX D float format");
+  gripe_data_conversion ("IEEE little endian", "VAX D");
 }
 
 static void
 IEEE_big_float_to_VAX_D_float (float *d, int len)
 {
-  error ("unable to convert from IEEE big endian to VAX D float format");
+  gripe_data_conversion ("IEEE big endian", "VAX D");
 }
 
 static void
 VAX_G_float_to_VAX_D_float (float *d, int len)
 {
-  error ("unable to convert from VAX G float to VAX D float format");
+  gripe_data_conversion ("VAX G float", "VAX D");
 }
 
 static void
 Cray_to_VAX_D_float (float *d, int len)
 {
-  error ("unable to convert from Cray to VAX D float format");
+  gripe_data_conversion ("Cray", "VAX D");
 }
 
 #elif defined (VAX_G_FLOAT)
@@ -378,49 +378,49 @@
 static void
 IEEE_little_double_to_VAX_G_double (double *d, int len)
 {
-  error ("unable to convert from IEEE little endian to VAX G float format");
+  gripe_data_conversion ("IEEE little endian", "VAX G");
 }
 
 static void
 IEEE_big_double_to_VAX_G_double (double *d, int len)
 {
-  error ("unable to convert from IEEE big endian to VAX G float format");
+  gripe_data_conversion ("IEEE big endian", "VAX G");
 }
 
 static void
 VAX_D_double_to_VAX_G_double (double *d, int len)
 {
-  error ("unable to convert from VAX D float to VAX G float format");
+  gripe_data_conversion ("VAX D float", "VAX G");
 }
 
 static void
 Cray_to_VAX_G_double (double *d, int len)
 {
-  error ("unable to convert from VAX G float to VAX G float format");
+  gripe_data_conversion ("VAX G float", "VAX G");
 }
 
 static void
 IEEE_little_float_to_VAX_G_float (float *d, int len)
 {
-  error ("unable to convert from IEEE little endian to VAX G float format");
+  gripe_data_conversion ("IEEE little endian", "VAX G");
 }
 
 static void
 IEEE_big_float_to_VAX_G_float (float *d, int len)
 {
-  error ("unable to convert from IEEE big endian to VAX G float format");
+  gripe_data_conversion ("IEEE big endian", "VAX G");
 }
 
 static void
 VAX_D_float_to_VAX_G_float (float *d, int len)
 {
-  error ("unable to convert from VAX D float to VAX G float format");
+  gripe_data_conversion ("VAX D float", "VAX G");
 }
 
 static void
 Cray_to_VAX_G_float (float *d, int len)
 {
-  error ("unable to convert from VAX G float to VAX G float format");
+  gripe_data_conversion ("VAX G float", "VAX G");
 }
 
 #endif
@@ -2097,11 +2097,11 @@
 	  break;
 
 	default:
-	  panic_impossible ();
+	  gripe_unrecognized_data_fmt ("load");
 	  break;
 	}
 
-      if (stream.eof ())
+      if (error_state || stream.eof ())
 	{
 	  break;
 	}
@@ -2565,7 +2565,7 @@
       break;
 
     default:
-      error ("save: unrecognized data format requested");
+      gripe_unrecognized_data_fmt ("save");
       break;
     }
 }