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

[lpd at ghostscript.com]

Author: lpd
Date: 2007-01-16 19:36:18 -0800 (Tue, 16 Jan 2007)
New Revision: 7612

Modified:
   trunk/gs/src/iscanbin.c
Log:
Fixes bug (PS3 CET 23-32-4): immediately evaluated names in binary object
sequences were treated as literal (not evaluated).


Modified: trunk/gs/src/iscanbin.c
===================================================================
--- trunk/gs/src/iscanbin.c	2007-01-16 17:07:06 UTC (rev 7611)
+++ trunk/gs/src/iscanbin.c	2007-01-17 03:36:18 UTC (rev 7612)
@@ -662,8 +662,7 @@
 		    break;
 		/* This is actually a name; look it up now. */
 		{
-		    uint attrs =
-		    (r_has_attr(op, a_executable) ? a_executable : 0);
+		    uint attrs = r_type_attrs(op) & (a_read | a_executable);
 
 		    code = name_ref(imemory, op->value.bytes, r_size(op), op, 1);
 		    if (code < 0)