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

[alexcher at ghostscript.com]

Author: alexcher
Date: 2006-12-08 15:08:31 -0800 (Fri, 08 Dec 2006)
New Revision: 7474

Modified:
   trunk/gs/lib/gs_dps2.ps
Log:
Report /rangecheck instead of /limitcheck from defineuserobject when the index
exceeds 65535 to match CET 31-02.

DIFFERENCES:
None


Modified: trunk/gs/lib/gs_dps2.ps
===================================================================
--- trunk/gs/lib/gs_dps2.ps	2006-12-08 22:23:13 UTC (rev 7473)
+++ trunk/gs/lib/gs_dps2.ps	2006-12-08 23:08:31 UTC (rev 7474)
@@ -215,10 +215,17 @@
   .UserObjects get 2 .argindex 2 index put pop pop
 } odef
 /execuserobject {		% <index> execuserobject -
+  dup type /integertype ne {
+    % Adobe validates the argument before accessing UserObjects - CET 31-03
+    /execuserobject .systemvar /typecheck signalerror 
+  } if
   .UserObjects get 1 .argindex get exch pop exec
 } odef
 /undefineuserobject {		% <index> undefineuserobject -
-  .UserObjects get 1 .argindex null put pop
+  dup type /integertype ne {
+    /undefineuserobject .systemvar /typecheck signalerror
+  } if
+  .UserObjects get 1 .argindex //null put pop
 } odef
 
 % ------ Cache control ------ %