X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fprint.c;h=3adf779f9d0bab569f4058f7cd74ed71c75204f0;hb=0f491c1083161c021800689e467902d140758cdc;hp=eca2352f8fd80c262ab6abc04144077f42a3a224;hpb=499b5ad5e2308fd04e3654aaa462d099f1769fd1;p=chise%2Fxemacs-chise.git.1

diff --git a/src/print.c b/src/print.c
index eca2352..3adf779 100644
--- a/src/print.c
+++ b/src/print.c
@@ -977,9 +977,9 @@ long_to_string (char *buffer, long number)
       number = -number;
     }
 
-#define FROB(figure) do {						\
-    if (force || number >= figure)					\
-      *p++ = number / figure + '0', number %= figure, force = 1;	\
+#define FROB(figure) do {						    \
+    if (force || number >= figure)					    \
+      *p++ = (char) (number / figure + '0'), number %= figure, force = 1;   \
     } while (0)
 #if SIZEOF_LONG == 8
   FROB (1000000000000000000L);
@@ -1002,7 +1002,7 @@ long_to_string (char *buffer, long number)
   FROB (100);
   FROB (10);
 #undef FROB
-  *p++ = number + '0';
+  *p++ = (char) (number + '0');
   *p = '\0';
   return p;
 #endif /* (SIZEOF_LONG == 4) || (SIZEOF_LONG == 8) */
@@ -1246,12 +1246,12 @@ printing_major_badness (Lisp_Object printcharfun,
       break;
     }
 
-  /* Don't abort or signal if called from debug_print() or already
+  /* Don't ABORT or signal if called from debug_print() or already
      crashing */
   if (!inhibit_non_essential_printing_operations)
     {
 #ifdef ERROR_CHECK_TYPES
-      abort ();
+      ABORT ();
 #else  /* not ERROR_CHECK_TYPES */
       if (print_readably)
 	type_error (Qinternal_error, "printing %s", buf);