diff options
Diffstat (limited to 'Build/source/texk/web2c/omegaware/odvitype.web')
-rw-r--r-- | Build/source/texk/web2c/omegaware/odvitype.web | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/Build/source/texk/web2c/omegaware/odvitype.web b/Build/source/texk/web2c/omegaware/odvitype.web index ef5136bb3f2..2fa9c6d0711 100644 --- a/Build/source/texk/web2c/omegaware/odvitype.web +++ b/Build/source/texk/web2c/omegaware/odvitype.web @@ -1,5 +1,5 @@ % odvitype.web: Omega version of file dvitype.web -% +% % This file is part of the Omega project, which % is based in the web2c distribution of TeX. % @@ -1163,8 +1163,8 @@ else begin if width_ptr+font_ec[nf]-font_bc[nf]+1>max_widths then begin print_ln('---not loaded, ODVItype needs larger width table'); @.ODVItype needs larger...@> - goto 9998; - end; + goto 9998; + end; wp:=width_ptr+font_ec[nf]-font_bc[nf]+1; read_tfm_word; nw:=((b0*256+b1)*256+b2)*256+b3; if (nw=0)or(nw>65536) then goto 9997; @@ -1173,7 +1173,7 @@ else begin read_tfm_word; end; if ofm_level=1 then begin - read_tfm_word; nco:=(((b0*256+b1)*256+b2)*256+b3) div 2; + read_tfm_word; nco:=((b0*256+b1)*256+b2)*256+b3; read_tfm_word; read_tfm_word; extra_words:=(((b0*256+b1)*256+b2)*256+b3) div 2; for k:=1 to 12 do @@ -1225,14 +1225,14 @@ case ofm_level of kprime:=k+(b0*256+b1); for j:=k+1 to kprime do width[j]:=width[k]; - k:=kprime; + k:=kprime+1; for j:=1 to extra_words do read_tfm_word; end end end; end; - + @ The most important part of |in_TFM| is the width computation, which involves multiplying the relative widths in the \.{TFM} file by the @@ -2268,7 +2268,7 @@ while true do end; @<Skip until finding |eop|@>; bop_seen:=false; - end; + end; 9999:end; @ @<Skip until finding |eop|@>= |