summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/ptexdir
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2011-12-08 15:52:46 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2011-12-08 15:52:46 +0000
commitf3e40d2b2c211ff34d2f71c594710adf6a9c8ff9 (patch)
tree54028d7972a87e08b5abefdbc94318495e99563a /Build/source/texk/web2c/ptexdir
parentebe00483e56492b456bfdc085e0a07ba280a0617 (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/ChangeLog4
-rw-r--r--Build/source/texk/web2c/ptexdir/ptex-base.ch19
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