[gs-cvs] rev 7056 - trunk/gs/lib

[alexcher at ghostscript.com]

Author: alexcher
Date: 2006-09-19 09:08:49 -0700 (Tue, 19 Sep 2006)
New Revision: 7056

Modified:
   trunk/gs/lib/pdf_draw.ps
Log:
Work around a bug in the image operator, which doesn't always restore the
operand stack when it fails.
Bugs  688532, 688646, 688672, 688736, 688740, 688899.


Modified: trunk/gs/lib/pdf_draw.ps
===================================================================
--- trunk/gs/lib/pdf_draw.ps	2006-09-19 09:55:25 UTC (rev 7055)
+++ trunk/gs/lib/pdf_draw.ps	2006-09-19 16:08:49 UTC (rev 7056)
@@ -1009,7 +1009,7 @@
    { ColorSpace setgcolorspace currentdict end setfillblend { image } }
   ifelse
   stopped {
-    pop
+    dup type /dicttype eq { pop } if % Sometimes image fails to restore the stack
     $error /errorname get dup /ioerror eq {
       pop (\n   **** Warning: File has insufficient data for an image.\n)
       pdfformaterror