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

[alexcher at ghostscript.com]

Author: alexcher
Date: 2007-06-12 13:55:18 -0700 (Tue, 12 Jun 2007)
New Revision: 8046

Modified:
   trunk/gs/lib/gs_resmp.ps
Log:
Avoid an invalidaccess error. Skip execstack elements in the execstack_lookup
procedure for which rcheck returns false. Bug 688934.

DIFFERENCES:
None. 


Modified: trunk/gs/lib/gs_resmp.ps
===================================================================
--- trunk/gs/lib/gs_resmp.ps	2007-06-12 17:12:08 UTC (rev 8045)
+++ trunk/gs/lib/gs_resmp.ps	2007-06-12 20:55:18 UTC (rev 8046)
@@ -189,13 +189,17 @@
   length 3 sub -1 0 {                              % <object> bGlobal [execstack] null i
     2 index exch get                               % <object> bGlobal [execstack] null proc
     dup type dup /packedarraytype eq exch /arraytype eq or {
-      dup length 1 gt {                            % <object> bGlobal [execstack] null proc
-        dup 0 get                                  % <object> bGlobal [execstack] null proc elem0
-        5 index eq {                               % <object> bGlobal [execstack] null proc
-          1 get                                    % <object> bGlobal [execstack] null object1
-          exch pop exit                            % <object> bGlobal [execstack] object1
+      dup rcheck {
+        dup length 1 gt {                          % <object> bGlobal [execstack] null proc
+          dup 0 get                                % <object> bGlobal [execstack] null proc elem0
+          5 index eq {                             % <object> bGlobal [execstack] null proc
+            1 get                                  % <object> bGlobal [execstack] null object1
+            exch pop exit                          % <object> bGlobal [execstack] object1
+          } {
+            pop
+          } ifelse
         } {
-          pop
+          pop                                      % <object> bGlobal [execstack] false
         } ifelse
       } {
         pop                                        % <object> bGlobal [execstack] false