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

[alexcher at ghostscript.com]

Author: alexcher
Date: 2006-11-04 20:14:18 -0800 (Sat, 04 Nov 2006)
New Revision: 7164

Modified:
   trunk/gs/lib/gs_res.ps
Log:
Adjust error reporting from findfont procedure to match Distiller and CET
13-06.PS.tek360 . The PhotoPrint product is clearly wrong here leaving
a few objects on the stack besides the arguments when findfont fails.


Modified: trunk/gs/lib/gs_res.ps
===================================================================
--- trunk/gs/lib/gs_res.ps	2006-11-05 03:00:15 UTC (rev 7163)
+++ trunk/gs/lib/gs_res.ps	2006-11-05 04:14:18 UTC (rev 7164)
@@ -989,7 +989,9 @@
 % The Red Book requires that findfont be a procedure, not an operator,
 % but it still needs to restore the stacks reliably if it fails.
 /.findfontop {
-  /Font findresource
+  { /Font findresource } stopped {
+    pop /findfont $error /errorname get signalerror
+  } if
 } bind odef
 /findfont {
   .findfontop