diff options
author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2009-09-23 10:08:04 +0000 |
---|---|---|
committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2009-09-23 10:08:04 +0000 |
commit | c61273a98b45bc285d4003a0fb7f25a7266836ac (patch) | |
tree | c246aa697900f5b78a08072ce90b8201b42c0749 /Build/source/texk/web2c/omegaware/opl2ofm.web | |
parent | 501c21503991e727adce74448dde352b807ef01e (diff) |
more texk/web2c/omegaware bugfixes for ofm2opl&Co
git-svn-id: svn://tug.org/texlive/trunk@15432 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/omegaware/opl2ofm.web')
-rw-r--r-- | Build/source/texk/web2c/omegaware/opl2ofm.web | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/Build/source/texk/web2c/omegaware/opl2ofm.web b/Build/source/texk/web2c/omegaware/opl2ofm.web index 529c4afbb36..d249ce6e3f7 100644 --- a/Build/source/texk/web2c/omegaware/opl2ofm.web +++ b/Build/source/texk/web2c/omegaware/opl2ofm.web @@ -1385,8 +1385,11 @@ if r>0 then begin end; function get_integer:integer; {scans an integer property value} +var @!a:integer; {accumulator} begin get_four_bytes; -get_integer:=(c0*@"1000000)+(c1*@"10000)+(c2*@"100)+c3; +a:=c0; +if a>=@"80 then a:=a-@"100; +get_integer:=(a*@"1000000)+(c1*@"10000)+(c2*@"100)+c3; end; @ @<Multiply by |r|...@>= @@ -1932,8 +1935,8 @@ else if (cur_code<parameter_code)or(cur_code>=char_wd_code) then else begin if cur_code=parameter_code then c:=get_integer else c:=cur_code-parameter_code; - if c=0 then flush_error('PARAMETER index must not be zero') -@.PARAMETER index must not...@> + if c<1 then flush_error('PARAMETER index must be at least 1') +@.PARAMETER index must be...@> else if c>max_param_words then flush_error('This PARAMETER index is too big for my present table size') @.This PARAMETER index is too big...@> @@ -2928,8 +2931,8 @@ case ofm_level of @<Compute the character info size@>; lf:=29+lh+ncw+memory[width]+memory[height]+memory[depth]+ memory[italic]+2*(nl+lk_offset)+nk+2*ne+np+ - nki+nwi+nkf+nwf+nkm+nwm++nkr+nwr+nkg+nwg+nkp+nwp; - nco:=29+lh+nki+nwi+nkf+nwf+nkm+nwm++nkr+nwr+nkg+nwg+nkp+nwp; + nki+nwi+nkf+nwf+nkm+nwm+nkr+nwr+nkg+nwg+nkp+nwp; + nco:=29+lh+nki+nwi+nkf+nwf+nkm+nwm+nkr+nwr+nkg+nwg+nkp+nwp; end; end; @@ -4346,6 +4349,7 @@ begin @<Output the penalty headers@>; @<Output the ivalues@>; @<Output the fvalues@>; +@<Output the mvalues@>; @<Output the rules@>; @<Output the glues@>; @<Output the penalties@>; |