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

[alexcher at ghostscript.com]

Author: alexcher
Date: 2006-10-30 14:20:55 -0800 (Mon, 30 Oct 2006)
New Revision: 7138

Modified:
   trunk/gs/lib/gs_cspace.ps
Log:
Fully check an setcolor operand before trying to access a new one to match
CET 09-30 and 09-48 error reporting. Down, not across.


Modified: trunk/gs/lib/gs_cspace.ps
===================================================================
--- trunk/gs/lib/gs_cspace.ps	2006-10-30 21:57:56 UTC (rev 7137)
+++ trunk/gs/lib/gs_cspace.ps	2006-10-30 22:20:55 UTC (rev 7138)
@@ -693,17 +693,15 @@
 % handle resetting the stacks.
 %
 /check_num_stack
-  {
-    dup 2 add copy exch pop
-      {
+  {               % c1 .. cn [] n
+    1 1 3 2 roll  % c1 .. cn [] 1 1 n
+      { index
         type dup /integertype ne exch /realtype ne and
           //setcolor_typecheck
         if
       }
-    repeat
-    pop         % remove the extra op_count
-  }
-bind def
+    for
+  } bind def
 
 %   <c1>  <array>   validate_1   <c1>
 /validate_1 { 1 //check_num_stack exec pop } bind def