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

[ray at ghostscript.com]

Author: ray
Date: 2006-07-25 11:29:43 -0700 (Tue, 25 Jul 2006)
New Revision: 6929

Modified:
   trunk/gs/lib/gs_typ32.ps
Log:
Fix CIDFontType 4 (FontType 32) handling so that read-only font dicts
can be used. Fixes PSLL3 CET 35-02.ps 'invalidaccess in -put-'.


Modified: trunk/gs/lib/gs_typ32.ps
===================================================================
--- trunk/gs/lib/gs_typ32.ps	2006-07-23 19:25:14 UTC (rev 6928)
+++ trunk/gs/lib/gs_typ32.ps	2006-07-25 18:29:43 UTC (rev 6929)
@@ -82,8 +82,8 @@
 .cidfonttypes begin
 
 4	% CIDFontType 4 = FontType 32
-{ dup /FontType 32 put
-  dup /CharStrings 20 dict put
+{ dup /FontType 32 .forceput
+  dup /CharStrings 20 dict .forceput
   1 index exch .buildfont32 exch pop
 } bind def