2 files changed, 20 insertions, 11 deletions

diff --git a/base/gstext.c b/base/gstext.c
index 32e486624..fb069238d 100644
--- a/base/gstext.c
+++ b/base/gstext.c
@@ -149,6 +149,9 @@ gx_device_text_begin(gx_device * dev, gs_gstate * pgs,
 static int
 gs_text_enum_init_dynamic(gs_text_enum_t *pte, gs_font *font)
 {
+    uint operation = pte->text.operation;
+    bool propagate_charpath = (operation & TEXT_DO_DRAW) != 0;
+
     pte->current_font = font;
     pte->index = 0;
     pte->xy_index = 0;
@@ -158,6 +161,23 @@ gs_text_enum_init_dynamic(gs_text_enum_t *pte, gs_font *font)
     pte->outer_CID = GS_NO_GLYPH;
     pte->single_byte_space = false;
     pte->cc = NULL;
+
+    /* We need to set the charpath_flag, as the PCL interpreter calls the
+     * graphics lib to do some measurement operations, which relies on the
+     * charpath_flag. See bug 700577 for more details. */
+    if (operation & TEXT_DO_ANY_CHARPATH)
+        pte->charpath_flag =
+            (operation & TEXT_DO_FALSE_CHARPATH ? cpm_false_charpath :
+             operation & TEXT_DO_TRUE_CHARPATH ? cpm_true_charpath :
+             operation & TEXT_DO_FALSE_CHARBOXPATH ? cpm_false_charboxpath :
+             operation & TEXT_DO_TRUE_CHARBOXPATH ? cpm_true_charboxpath :
+             operation & TEXT_DO_CHARWIDTH ? cpm_charwidth :
+             cpm_show /* can't happen */ );
+    else
+        pte->charpath_flag =
+        (propagate_charpath ? (pte->pgs ? pte->pgs->in_charpath : 0) : cpm_show);
+    pte->is_pure_color = pte->pgs ? gs_color_writes_pure(pte->pgs) : 0;
+
     return font->procs.init_fstack(pte, font);
 }
 int
diff --git a/base/gxchar.c b/base/gxchar.c
index 029127c3d..4acf09cdc 100644
--- a/base/gxchar.c
+++ b/base/gxchar.c
@@ -141,17 +141,6 @@ gx_default_text_begin(gx_device * dev, gs_gstate * pgs1,
     }
     penum->auto_release = false; /* new API */
     penum->level = pgs->level;
-    if (operation & TEXT_DO_ANY_CHARPATH)
-        penum->charpath_flag =
-            (operation & TEXT_DO_FALSE_CHARPATH ? cpm_false_charpath :
-             operation & TEXT_DO_TRUE_CHARPATH ? cpm_true_charpath :
-             operation & TEXT_DO_FALSE_CHARBOXPATH ? cpm_false_charboxpath :
-             operation & TEXT_DO_TRUE_CHARBOXPATH ? cpm_true_charboxpath :
-             operation & TEXT_DO_CHARWIDTH ? cpm_charwidth :
-             cpm_show /* can't happen */ );
-    else
-        penum->charpath_flag =
-            (propagate_charpath ? pgs->in_charpath : cpm_show);
     penum->cc = 0;
     penum->continue_proc = continue_show;
     switch (penum->charpath_flag) {