diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 71bacf59bfe3..c6c023721910 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,7 @@
+2001-11-30  John David Anglin  <dave@hiauly1.hia.nrc.ca>
+
+	* pa.c (output_ascii): Cast `p' to unsigned char.
+
 2001-11-30  Daniel Berlin  <dan@cgsoftware.com>
 
 	* config/rs6000/rs6000.c (altivec_expand_builtin): add 
diff --git a/gcc/config/pa/pa.c b/gcc/config/pa/pa.c
index 617071e18d56..3128c516af42 100644
--- a/gcc/config/pa/pa.c
+++ b/gcc/config/pa/pa.c
@@ -2539,7 +2539,7 @@ output_ascii (file, p, size)
       int io = 0;
       for (io = 0, co = 0; io < MIN (4, size - i); io++)
 	{
-	  register unsigned int c = p[i + io];
+	  register unsigned int c = (unsigned char) p[i + io];
 
 	  if (c == '\"' || c == '\\')
 	    partial_output[co++] = '\\';