diff options
author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2011-12-08 15:52:46 +0000 |
---|---|---|
committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2011-12-08 15:52:46 +0000 |
commit | f3e40d2b2c211ff34d2f71c594710adf6a9c8ff9 (patch) | |
tree | 54028d7972a87e08b5abefdbc94318495e99563a /Build/source/texk/web2c/ptexdir | |
parent | ebe00483e56492b456bfdc085e0a07ba280a0617 (diff) |
web2c: Consistency of `constants'
git-svn-id: svn://tug.org/texlive/trunk@24797 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/ptexdir')
-rw-r--r-- | Build/source/texk/web2c/ptexdir/ChangeLog | 4 | ||||
-rw-r--r-- | Build/source/texk/web2c/ptexdir/ptex-base.ch | 19 |
2 files changed, 20 insertions, 3 deletions
diff --git a/Build/source/texk/web2c/ptexdir/ChangeLog b/Build/source/texk/web2c/ptexdir/ChangeLog index 19346044ab9..d93aa045c0d 100644 --- a/Build/source/texk/web2c/ptexdir/ChangeLog +++ b/Build/source/texk/web2c/ptexdir/ChangeLog @@ -1,3 +1,7 @@ +2011-12-08 Peter Breitenlohner <peb@mppmu.mpg.de> + + * ptex-base.ch: Ensure that `hi(#)==#'. + 2011-11-25 Peter Breitenlohner <peb@mppmu.mpg.de> * am/ptex.am (pdvitype_CPPFLAGS): Replace '-DDHEX_CHAR_CODE' by diff --git a/Build/source/texk/web2c/ptexdir/ptex-base.ch b/Build/source/texk/web2c/ptexdir/ptex-base.ch index 74325111e22..569018c2946 100644 --- a/Build/source/texk/web2c/ptexdir/ptex-base.ch +++ b/Build/source/texk/web2c/ptexdir/ptex-base.ch @@ -306,13 +306,26 @@ k:=first; while k < last do begin print_buffer(k) end; if last<>first then for k:=first to last-1 do print(buffer[k]); @z +@x [8.111] l.2436 - pTeX: check hi/ho + (mem_top+sup_main_memory>=max_halfword) then bad:=14; +@y + (mem_top+sup_main_memory>=max_halfword)or@| + (hi(0)<>0) then bad:=14; +@z + +@x [8.112] l.2450 - pTeX: hi/ho +sufficiently large. +@y +sufficiently large and this is required for p\TeX. +@z + @x [8.112] l.2588 - pTeX: @d ho(#)==# {to take a sixteen-bit item from a halfword} @y @d ho(#)==# {to take a sixteen-bit item from a halfword} -@d KANJI(#)==# {pTeX: to output an KANJI code into a halfword} -@d tokanji(#)==# {pTeX: to take an KANJI code into a halfword} -@d tonum(#)==# {pTeX: to put an KANJI code into a halfword} +@d KANJI(#)==# {pTeX: to output a KANJI code} +@d tokanji(#)==# {pTeX: to take a KANJI code from a halfword} +@d tonum(#)==# {pTeX: to put a KANJI code into a halfword} @z @x [10.135] l.2895 - pTeX: box_dir |