[gs-cvs] rev 7161 - in trunk/gs: lib src

[alexcher at ghostscript.com]

Author: alexcher
Date: 2006-11-04 07:23:19 -0800 (Sat, 04 Nov 2006)
New Revision: 7161

Modified:
   trunk/gs/lib/gs_lev2.ps
   trunk/gs/src/ziodev2.c
Log:
Fix error reporting for setdevparams operator, CET 27-08.

DIFFERENCES:
None


Modified: trunk/gs/lib/gs_lev2.ps
===================================================================
--- trunk/gs/lib/gs_lev2.ps	2006-11-04 14:11:05 UTC (rev 7160)
+++ trunk/gs/lib/gs_lev2.ps	2006-11-04 15:23:19 UTC (rev 7161)
@@ -423,6 +423,7 @@
 } if
 /.putdevparams where {
   pop /setdevparams {		% <iodevice> <dict> setdevparams -
+    dup type /dicttype ne { /setdevparams .systemvar /typecheck signalerror } if
     mark 1 index { } forall counttomark 2 add index
     .putdevparams pop pop
   } odef

Modified: trunk/gs/src/ziodev2.c
===================================================================
--- trunk/gs/src/ziodev2.c	2006-11-04 14:11:05 UTC (rev 7160)
+++ trunk/gs/src/ziodev2.c	2006-11-04 15:23:19 UTC (rev 7161)
@@ -93,7 +93,7 @@
     check_read_type(*op, t_string);
     iodev = gs_findiodevice(op->value.bytes, r_size(op));
     if (iodev == 0)
-	return_error(e_undefinedfilename);
+	return_error(e_undefined);
     code = stack_param_list_read(&list, &o_stack, 1, NULL, false, iimemory);
     if (code < 0)
 	return code;