Changeset 13376

Timestamp:

Jan 11, 2010, 12:10:25 PM (15 years ago)

Author:

R. Matthew Emerson

Message:

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 *).

File:

• trunk/source/lisp-kernel/pmcl-kernel.c (modified) (1 diff)

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

@@ -2175 +2175 @@
   }
   if (image_nil == 0) {
+#ifdef WINDOWS
+    char *fmt = "Couldn't load lisp heap image from %ls";
+#else
+    char *fmt = "Couldn't load lisp heap image from %s";
+#endif
+
+    fprintf(dbgout, fmt, path);
     if (err == 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);