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

[alexcher at ghostscript.com]

Author: alexcher
Date: 2006-08-05 18:34:32 -0700 (Sat, 05 Aug 2006)
New Revision: 6971

Modified:
   trunk/gs/src/ibnum.c
   trunk/gs/src/zdps1.c
Log:
Makes rectfill, rectstroke, and rectclip generate typecheck rather than
rangecheck when given an argument of the wrong size or content.


Modified: trunk/gs/src/ibnum.c
===================================================================
--- trunk/gs/src/ibnum.c	2006-08-05 04:33:11 UTC (rev 6970)
+++ trunk/gs/src/ibnum.c	2006-08-06 01:34:32 UTC (rev 6971)
@@ -42,7 +42,7 @@
 		int format;
 
 		if (r_size(op) < 4 || bp[0] != bt_num_array_value)
-		    return_error(e_rangecheck);
+		    return_error(e_typecheck);
 		format = bp[1];
 		if (!num_is_valid(format) ||
 		    sdecodeshort(bp + 2, format) !=
@@ -86,7 +86,7 @@
 	    case t_real:
 		return t_real;
 	    default:
-		return_error(e_rangecheck);
+		return_error(e_typecheck);
 	}
     } else {
 	uint nbytes = encoded_number_bytes(format);

Modified: trunk/gs/src/zdps1.c
===================================================================
--- trunk/gs/src/zdps1.c	2006-08-05 04:33:11 UTC (rev 6970)
+++ trunk/gs/src/zdps1.c	2006-08-06 01:34:32 UTC (rev 6971)
@@ -358,7 +358,7 @@
 	    format = code;
 	    count = num_array_size(op, format);
 	    if (count % 4)
-		return_error(e_rangecheck);
+		return_error(e_typecheck);
 	    count /= 4;
 	    break;
 	default:		/* better be 4 numbers */