[gs-cvs] rev 6945 - trunk/gs/src

[alexcher at ghostscript.com]

Author: alexcher
Date: 2006-08-01 17:47:25 -0700 (Tue, 01 Aug 2006)
New Revision: 6945

Modified:
   trunk/gs/src/zgeneric.c
Log:
Make putinterval operator error reprorting similar to Distiller's.


Modified: trunk/gs/src/zgeneric.c
===================================================================
--- trunk/gs/src/zgeneric.c	2006-08-01 22:43:34 UTC (rev 6944)
+++ trunk/gs/src/zgeneric.c	2006-08-02 00:47:25 UTC (rev 6945)
@@ -355,7 +355,12 @@
 
     switch (r_type(opto)) {
 	default:
-	    return_op_typecheck(opto);
+            return_error(e_typecheck);
+        case t__invalid:
+            if (r_type(op) != t_array && r_type(op) != t_string && r_type(op) != t__invalid)
+                return_error(e_typecheck); /* to match Distiller */
+            else
+                return_error(e_stackunderflow);
 	case t_mixedarray:
 	case t_shortarray:
 	    return_error(e_invalidaccess);