[gs-cvs] rev 8222 - trunk/gs/src

[leonardo at ghostscript.com]

Author: leonardo
Date: 2007-08-31 01:29:55 -0700 (Fri, 31 Aug 2007)
New Revision: 8222

Modified:
   trunk/gs/src/gdevpdfe.c
Log:
Fix (pdfwrite) : A wrong encoding of Metadata (continued).

DETAILS :

The revision 8181 added a bug which caused an infinite loop 
with -dPDFA Altona-Testsuite_p2_S_x3.pdf

EXPECTED DIFFERENCES :

None.


Modified: trunk/gs/src/gdevpdfe.c
===================================================================
--- trunk/gs/src/gdevpdfe.c	2007-08-31 08:27:16 UTC (rev 8221)
+++ trunk/gs/src/gdevpdfe.c	2007-08-31 08:29:55 UTC (rev 8222)
@@ -58,6 +58,7 @@
 		} else if (*p >= 0x7F && *p <= 0x9f) {
 		    /* Control characters are discouraged in XML. */
 		    pprintd1(s, "&#%d;", *p);
+		    l--; p++;
 		} else if ((*p & 0xE0) == 0xC0) {
 		    /* A 2-byte UTF-8 sequence */
 		    copy_bytes(s, &p, &l, 2);