summaryrefslogtreecommitdiff
path: root/Build/source/texk/dvipsk/hps.lpro
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-12-07 22:46:13 +0000
committerKarl Berry <karl@freefriends.org>2006-12-07 22:46:13 +0000
commit06c5c638859d4cb20fe3201df1fa9ab6f216d4f0 (patch)
tree269cc6d6c475dc30b51ddf45465197d6620b7e1c /Build/source/texk/dvipsk/hps.lpro
parent954a067e3613a39197a4b981f5652c8fc3c25502 (diff)
accumulated fixes from akira
git-svn-id: svn://tug.org/texlive/trunk@2613 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/dvipsk/hps.lpro')
-rw-r--r--Build/source/texk/dvipsk/hps.lpro11
1 files changed, 7 insertions, 4 deletions
diff --git a/Build/source/texk/dvipsk/hps.lpro b/Build/source/texk/dvipsk/hps.lpro
index 0823f180a17..79c29769ec0 100644
--- a/Build/source/texk/dvipsk/hps.lpro
+++ b/Build/source/texk/dvipsk/hps.lpro
@@ -69,16 +69,19 @@ bind def
}
bind def
-/tempstring 256 string def
+% PDF implementation limit for names is 127, see PDF specification,
+% version 1.6, appendix C "Implementation Limits,
+% table C.1 "Architectural limits", page 920.
+/tempstring 128 string def
/targetvalidate
- {1 index dup length 255 gt exch
+ {1 index dup length 127 gt exch
+ tempstring cvs
dup (/) search
{pop pop pop exch pop true exch}
{pop}
ifelse
- cvn tempstring cvs
- token pop pop length 0 ne or
+ token {pop length 0 ne} {true} ifelse or
not} bind def
/targetdump-hook where