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

[lpd at ghostscript.com]

Author: lpd
Date: 2006-08-02 14:10:17 -0700 (Wed, 02 Aug 2006)
New Revision: 6953

Modified:
   trunk/gs/lib/gs_lev2.ps
   trunk/gs/src/zdict.c
Log:
On Level >=2 systems, makes .dicttomark a synonym for >> rather than vice
versa, to produce Adobe-compatible stack traces on errors.


Modified: trunk/gs/lib/gs_lev2.ps
===================================================================
--- trunk/gs/lib/gs_lev2.ps	2006-08-02 21:08:57 UTC (rev 6952)
+++ trunk/gs/lib/gs_lev2.ps	2006-08-02 21:10:17 UTC (rev 6953)
@@ -343,8 +343,7 @@
 
 (<<) cvn			% - << -mark-
   /mark load def
-(>>) cvn			% -mark- <key1> <value1> ... >> <dict>
-  /.dicttomark load def
+% (>> is defined primitively.)
 /languagelevel 2 def
 % When running in Level 2 mode, this interpreter is supposed to be
 % compatible with Adobe version 2017.

Modified: trunk/gs/src/zdict.c
===================================================================
--- trunk/gs/src/zdict.c	2006-08-02 21:08:57 UTC (rev 6952)
+++ trunk/gs/src/zdict.c	2006-08-02 21:10:17 UTC (rev 6953)
@@ -495,5 +495,13 @@
     {"2.knownget", zknownget},
     {"1.knownundef", zknownundef},
     {"2.setmaxlength", zsetmaxlength},
+	/*
+	 * In Level 2, >> is a synonym for .dicttomark.  By giving it its
+	 * own entry, it will not be "eq" to .dicttomark, but that doesn't
+	 * matter, since we're doing this only for the sake of Adobe-
+	 * compatible error stacks.
+	 */
+    op_def_begin_level2(),
+    {"1>>", zdicttomark},
     op_def_end(0)
 };