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

[lpd at ghostscript.com]

Author: lpd
Date: 2007-01-22 15:23:20 -0800 (Mon, 22 Jan 2007)
New Revision: 7636

Modified:
   trunk/gs/lib/gs_ll3.ps
Log:
Fix a problem created by r7629 (invalidaccess with shading patterns with a
file data source).


Modified: trunk/gs/lib/gs_ll3.ps
===================================================================
--- trunk/gs/lib/gs_ll3.ps	2007-01-22 15:44:31 UTC (rev 7635)
+++ trunk/gs/lib/gs_ll3.ps	2007-01-22 23:23:20 UTC (rev 7636)
@@ -254,7 +254,9 @@
   dup /DataSource .knownget {
     dup type /filetype eq {
       //.reuseparamdict /ReusableStreamDecode filter
-      .currentglobal 1 index gcheck .setglobal
+      % Copy the dictionary to replace the DataSource, but make sure the
+      % copy is in the same VM as the original.
+      .currentglobal 2 index gcheck .setglobal
 		% Stack: shdict rsdfile saveglobal
       2 index dup length dict copy exch .setglobal
       dup /DataSource 4 -1 roll put exch pop