[gs-cvs] rev 7725 - in trunk/gs: doc src

[ray at ghostscript.com]

Author: ray
Date: 2007-02-20 16:16:24 -0800 (Tue, 20 Feb 2007)
New Revision: 7725

Modified:
   trunk/gs/doc/pscet_status.txt
   trunk/gs/src/zcontrol.c
Log:
Fix CET 28-05-2, Adobe CPSI and Tek do not execute procedure if increment
value is 0. The PLRM does not mention increment value == 0.

EXPECTED DIFFERENCES.

None.


Modified: trunk/gs/doc/pscet_status.txt
===================================================================
--- trunk/gs/doc/pscet_status.txt	2007-02-20 23:54:19 UTC (rev 7724)
+++ trunk/gs/doc/pscet_status.txt	2007-02-21 00:16:24 UTC (rev 7725)
@@ -4866,7 +4866,7 @@
 
 28-05-1  OK	
 
-28-05-2  DIFF	CPSI doesn't execute 'for' proc if increment is 0, GS does. Assign: Ray
+28-05-2  OK	Fixed by rev. 7725
 
 28-05-3  OK	
 

Modified: trunk/gs/src/zcontrol.c
===================================================================
--- trunk/gs/src/zcontrol.c	2007-02-20 23:54:19 UTC (rev 7724)
+++ trunk/gs/src/zcontrol.c	2007-02-21 00:16:24 UTC (rev 7725)
@@ -304,6 +304,11 @@
     os_ptr op = osp;
     register es_ptr ep;
 
+    if ( (r_has_type(op - 2, t_integer) && op[-2].value.intval == 0) ||
+         (r_has_type(op - 2, t_real) && op[-2].value.realval == 0.0) ) {
+	pop(4);		/* ignore for with 0 increment CET 28-05 */
+	return 0;
+    }
     check_estack(7);
     ep = esp + 6;
     check_proc(*op);