summaryrefslogtreecommitdiff
path: root/Resource/Init/gs_setpd.ps
diff options
context:
space:
mode:
authorNancy Durgin <nancy.durgin@artifex.com>2019-02-26 15:46:24 -0800
committerNancy Durgin <nancy.durgin@artifex.com>2019-02-26 15:50:49 -0800
commitebea5737da47a55e0838b9472bc05d209717d670 (patch)
treefccc0147a8fbf12432eed3b791fb8d2af2a605f8 /Resource/Init/gs_setpd.ps
parent239d82b8b382afd435f3b48025954715633da9a9 (diff)
downloadghostpdl-ebea5737da47a55e0838b9472bc05d209717d670.tar.gz
Undef .internalstopped in gs_init.ps
This is used all over the place, tons of edits. Making it an operator didn't work (something to do with the stack during an error I think -- fails on tests_private/ps/ps3fts/141-01.ps). So I made all the references be immediate evaluation, then can undef in gs_init.ps.
Diffstat (limited to 'Resource/Init/gs_setpd.ps')
-rw-r--r--Resource/Init/gs_setpd.ps6
1 files changed, 3 insertions, 3 deletions
diff --git a/Resource/Init/gs_setpd.ps b/Resource/Init/gs_setpd.ps
index c6da8bbb8..a5ee55c12 100644
--- a/Resource/Init/gs_setpd.ps
+++ b/Resource/Init/gs_setpd.ps
@@ -305,7 +305,7 @@ SETPDDEBUG { (Result of putting.) = pstack flush } if
% we must (carefully) reinstall the old parameters in
% the same device.
.currentpagedevice pop //null currentdevice //null
- { //.trysetparams } .internalstopped
+ { //.trysetparams } //.internalstopped exec
{
//null
} if
@@ -313,7 +313,7 @@ SETPDDEBUG { (Result of putting.) = pstack flush } if
{ pop pop }
{
SETPDDEBUG { (Error in .trysetparams!) = pstack flush } if
- {cleartomark pop pop pop} .internalstopped pop
+ {cleartomark pop pop pop} //.internalstopped exec pop
% if resetting the entire device state failed, at least put back the
% security related key
currentdevice //null //false mark /.LockSafetyParams
@@ -330,7 +330,7 @@ SETPDDEBUG { (Result of putting.) = pstack flush } if
/.uninstallpagedevice
{
- {2 .endpage { .currentnumcopies //false .outputpage } if} .internalstopped pop
+ {2 .endpage { .currentnumcopies //false .outputpage } if} //.internalstopped exec pop
nulldevice
} bind def