From f3e40d2b2c211ff34d2f71c594710adf6a9c8ff9 Mon Sep 17 00:00:00 2001 From: Peter Breitenlohner Date: Thu, 8 Dec 2011 15:52:46 +0000 Subject: web2c: Consistency of `constants' git-svn-id: svn://tug.org/texlive/trunk@24797 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/ptexdir/ChangeLog | 4 ++++ Build/source/texk/web2c/ptexdir/ptex-base.ch | 19 ++++++++++++++++--- 2 files changed, 20 insertions(+), 3 deletions(-) (limited to 'Build/source/texk/web2c/ptexdir') 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 + + * ptex-base.ch: Ensure that `hi(#)==#'. + 2011-11-25 Peter Breitenlohner * 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 -- cgit v1.2.3