From ac34447a6fc45b4173276416d918eda488af0684 Mon Sep 17 00:00:00 2001 From: Peter Breitenlohner Date: Thu, 19 Nov 2009 10:42:50 +0000 Subject: texk/web2c/: bug fix: check font name length to avoid broken dvi files git-svn-id: svn://tug.org/texlive/trunk@16075 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/alephdir/com16bit.ch | 24 +++++++++++++++++++++++- 1 file changed, 23 insertions(+), 1 deletion(-) (limited to 'Build/source/texk/web2c/alephdir/com16bit.ch') diff --git a/Build/source/texk/web2c/alephdir/com16bit.ch b/Build/source/texk/web2c/alephdir/com16bit.ch index fea714b8777..f240d4557ae 100644 --- a/Build/source/texk/web2c/alephdir/com16bit.ch +++ b/Build/source/texk/web2c/alephdir/com16bit.ch @@ -1536,7 +1536,29 @@ if name=str_ptr-1 then {we can conserve string pool space now} @y @z -@x [30.563] l.10943 - Don't use TEX_font_area. +@x [30.560] l.10898 - Check lengths +@!file_opened:boolean; {was |tfm_file| successfully opened?} +@y +@!name_too_long:boolean; {|nom| or |aire| exceeds 255 bytes} +@!file_opened:boolean; {was |tfm_file| successfully opened?} +@z + +@x [30.561] l.10939 - Check lengths +else print(" not loadable: Metric (TFM/OFM) file not found"); +@y +else if name_too_long then print(" not loadable: Metric (TFM/OFM) name too long") +else print(" not loadable: Metric (TFM/OFM) file not found"); +@z + +@x [30.563] l.10960 - Check lengths +file_opened:=false; +@y +file_opened:=false; +name_too_long:=(length(nom)>255)or(length(aire)>255); +if name_too_long then abort; +@z + +@x [30.563] l.10961 - Don't use TEX_font_area. if aire="" then pack_file_name(nom,TEX_font_area,".ofm") else pack_file_name(nom,aire,".ofm"); if not b_open_in(tfm_file) then abort; -- cgit v1.2.3