# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 896671920 0
# Node ID c68a115303f71e8976e3451bee1fb7ddcd7b872d
# Parent  41baef80bbbc4bc2b94d9479207148b826557f2f
(doprnt1): Fix char signedness mismatches.

diff -r 41baef80bbbc -r c68a115303f7 src/doprnt.c
--- a/src/doprnt.c	Mon Jun 01 03:12:04 1998 +0000
+++ b/src/doprnt.c	Mon Jun 01 03:32:00 1998 +0000
@@ -108,7 +108,7 @@
   char *big_buffer = 0;
 
   register int tem;
-  char *string;
+  unsigned char *string;
   char fixed_buffer[20];	/* Default buffer for small formatting. */
   char *fmtcpy;
   int minlen;
@@ -135,7 +135,7 @@
 
 	  fmt++;
 	  /* Copy this one %-spec into fmtcpy.  */
-	  string = fmtcpy;
+	  string = (unsigned char *)fmtcpy;
 	  *string++ = '%';
 	  while (1)
 	    {
@@ -207,7 +207,7 @@
 		abort ();
 	      sprintf (sprintf_buffer, fmtcpy, args[cnt++]);
 	      /* Now copy into final output, truncating as nec.  */
-	      string = sprintf_buffer;
+	      string = (unsigned char *)sprintf_buffer;
 	      goto doit;
 
 	    case 'f':
@@ -221,7 +221,7 @@
 		u.half[1] = args[cnt++];
 		sprintf (sprintf_buffer, fmtcpy, u.d);
 		/* Now copy into final output, truncating as nec.  */
-		string = sprintf_buffer;
+		string = (unsigned char *)sprintf_buffer;
 		goto doit;
 	      }
 
@@ -234,13 +234,13 @@
 		minlen = atoi (&fmtcpy[1]);
 	      if (lispstrings)
 		{
-		  string = (char *) ((struct Lisp_String *)args[cnt])->data;
+		  string = ((struct Lisp_String *)args[cnt])->data;
 		  tem = ((struct Lisp_String *)args[cnt])->size;
 		  cnt++;
 		}
 	      else
 		{
-		  string = args[cnt++];
+		  string = (unsigned char *)args[cnt++];
 		  tem = strlen (string);
 		}
 	      width = strwidth (string, tem);