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

[lpd at ghostscript.com]

Author: lpd
Date: 2006-12-07 09:17:35 -0800 (Thu, 07 Dec 2006)
New Revision: 7461

Modified:
   trunk/gs/lib/gs_lev2.ps
Log:
Fixes bug: makepattern didn't create all of its structures in local VM.
(two diffs in PS3 CET 30-07-3)


Modified: trunk/gs/lib/gs_lev2.ps
===================================================================
--- trunk/gs/lib/gs_lev2.ps	2006-12-07 15:56:26 UTC (rev 7460)
+++ trunk/gs/lib/gs_lev2.ps	2006-12-07 17:17:35 UTC (rev 7461)
@@ -856,7 +856,9 @@
   .currentglobal false .setglobal exch
 		% Stack: proto matrix global buildproc
   3 index dup length 1 add dict .copydict
-  3 index 3 -1 roll exec 3 -1 roll .setglobal
+		% Stack: proto matrix global buildproc newdict
+  3 index 3 -1 roll exec
+		% Stack: proto matrix global newdict instance
   % Create an 'Implementation' entry for the pattern dict.  The PRLM 3rd says
   % this about the contents of Implementation:  "The type and value of this
   % entry are implementation-dependent."  The CET (page 2 of 18-02f) expects
@@ -865,7 +867,8 @@
   % array.
   1 index /Implementation 3 -1 roll gstate 2 array astore
   put				% put Implementation into the pattern dict.
-  readonly exch pop exch pop
+		% Stack: proto matrix global newdict
+  readonly exch .setglobal exch pop exch pop
 } odef
 
 /setpattern {			% [<comp1> ...] <pattern> setpattern -