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

[alexcher at ghostscript.com]

Author: alexcher
Date: 2008-01-18 13:50:38 -0800 (Fri, 18 Jan 2008)
New Revision: 8492

Modified:
   trunk/gs/lib/gs_cidcm.ps
Log:
Explicitly close CMap files opened during CMap-CIDFont font enumeration.
On certain systems file handles were used up before GC freed inaccessible
handles causing PostScript errors. Bug 689594.

DIFFERENCES:
None


Modified: trunk/gs/lib/gs_cidcm.ps
===================================================================
--- trunk/gs/lib/gs_cidcm.ps	2008-01-18 06:17:02 UTC (rev 8491)
+++ trunk/gs/lib/gs_cidcm.ps	2008-01-18 21:50:38 UTC (rev 8492)
@@ -171,12 +171,15 @@
           RESMPDEBUG { (cidcm GetCIDSystemInfo from file ) print dup = } if
           currentglobal exch true setglobal   % CSIs /InstName g (path)
           mark exch                           % CSIs /InstName g [ (path)
-          { (r) file                          % CSIs /InstName g [ file
-            //GetCIDSystemInfoFromFile exec   % CSIs /InstName g [ CSI
-          } stopped {
-            cleartomark //.prs_empty             
+          { (r) file } stopped {
+            cleartomark //.prs_empty
           } {
-            exch pop
+            exch 1 index                      % CSIs /InstName g file [ file
+            //GetCIDSystemInfoFromFile stopped {
+              cleartomark closefile //.prs_empty
+            } {
+              exch pop exch closefile
+            } ifelse
           } ifelse                            % CSIs /InstName g CSI
           exch setglobal                      % CSIs /InstName CSI
           dup 4 1 roll                        % CSI CSIs /InstName CSI