[Openmcl-cvs-notifications] r13376 - /trunk/source/lisp-kernel/pmcl-kernel.c

[rme at clozure.com]

Author: rme
Date: Mon Jan 11 20:10:25 2010
New Revision: 13376

Log:
load_image: use %ls format string directive when complaining about
being unable to load a heap image (on Windows, the variable "path"
will is a wchar_t *).

Modified:
    trunk/source/lisp-kernel/pmcl-kernel.c

Modified: trunk/source/lisp-kernel/pmcl-kernel.c
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lisp-kernel/pmcl-kernel.c (original)
+++ trunk/source/lisp-kernel/pmcl-kernel.c Mon Jan 11 20:10:25 2010
@@ -2172,10 +2172,17 @@
     err =3D errno;
   }
   if (image_nil =3D=3D 0) {
+#ifdef WINDOWS
+    char *fmt =3D "Couldn't load lisp heap image from %ls";
+#else
+    char *fmt =3D "Couldn't load lisp heap image from %s";
+#endif
+
+    fprintf(dbgout, fmt, path);
     if (err =3D=3D 0) {
-      fprintf(dbgout, "Couldn't load lisp heap image from %s\n", path);
+      fprintf(dbgout, "\n");
     } else {
-      fprintf(dbgout, "Couldn't load lisp heap image from %s:\n%s\n", path=
, strerror(err));
+      fprintf(dbgout, ": %s\n", strerror(err));
     }
     exit(-1);
   }