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

[lpd at ghostscript.com]

Author: lpd
Date: 2006-10-31 13:00:30 -0800 (Tue, 31 Oct 2006)
New Revision: 7142

Modified:
   trunk/gs/src/zmisc.c
Log:
Fixes a bug: 'bind' would affect non-writable ordinary arrays, rather than
doing nothing per the PLRM.  ('bind' still affects packed arrays, per the
PLRM.)  Fixes a discrepancy in PS3 CET 31-01-2.


Modified: trunk/gs/src/zmisc.c
===================================================================
--- trunk/gs/src/zmisc.c	2006-10-31 20:58:38 UTC (rev 7141)
+++ trunk/gs/src/zmisc.c	2006-10-31 21:00:30 UTC (rev 7142)
@@ -46,6 +46,9 @@
 
     switch (r_type(op)) {
 	case t_array:
+	    if (!r_has_attr(op, a_write)) {
+		return 0;	/* per PLRM3 */
+	    }
 	case t_mixedarray:
 	case t_shortarray:
 	    defn = *op;