summaryrefslogtreecommitdiff
path: root/Build
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2011-12-13 11:15:33 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2011-12-13 11:15:33 +0000
commit28586c18850d88c13ee75e94ba01135e40956150 (patch)
treef6d1cadf00c07b18679160f038e4f4f45805a4b5 /Build
parentd7e8f4848410978fb1616c484d5acfac9fbf3d7a (diff)
aleph: require min_halfword=0 because the code uses null as 0
git-svn-id: svn://tug.org/texlive/trunk@24839 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build')
-rw-r--r--Build/source/texk/web2c/alephdir/ChangeLog5
-rw-r--r--Build/source/texk/web2c/alephdir/com16bit.ch8
-rw-r--r--Build/source/texk/web2c/alephdir/om16bit.ch6
3 files changed, 11 insertions, 8 deletions
diff --git a/Build/source/texk/web2c/alephdir/ChangeLog b/Build/source/texk/web2c/alephdir/ChangeLog
index 0d6acf17aab..9e0879b59d2 100644
--- a/Build/source/texk/web2c/alephdir/ChangeLog
+++ b/Build/source/texk/web2c/alephdir/ChangeLog
@@ -1,3 +1,8 @@
+2011-12-13 Peter Breitenlohner <peb@mppmu.mpg.de>
+
+ * com16bit.ch, om16bit.ch: Consistency of `constants':
+ Aleph requires min_halfword==0.
+
2011-12-08 Peter Breitenlohner <peb@mppmu.mpg.de>
* com16bit.ch, om16bit.ch: Consistency of `constants'.
diff --git a/Build/source/texk/web2c/alephdir/com16bit.ch b/Build/source/texk/web2c/alephdir/com16bit.ch
index 87ceac71690..e8315adc203 100644
--- a/Build/source/texk/web2c/alephdir/com16bit.ch
+++ b/Build/source/texk/web2c/alephdir/com16bit.ch
@@ -804,9 +804,8 @@ So they have been simplified here in the obvious way.
@^inner loop@>@^system dependencies@>
The \.{WEB} source for \TeX\ defines |hi(#)==#+min_halfword| which can be
-simplified when |min_halfword=0|. The Web2C implemetation of \Aleph\ can
-use |hi(#)==#| together with |min_halfword<0| as long as |max_halfword| is
-sufficiently large.
+simplified when |min_halfword=0|. The Web2C implemetation of \Aleph\
+occasionally uses |null| as~0, and therefore requires |min_halfword=0|.
@d qi(#)==# {to put an |eight_bits| item into a quarterword}
@d qo(#)==# {to take an |eight_bits| item from a quarterword}
@@ -2437,10 +2436,9 @@ begin @!{|start_here|}
@+init
if ini_version then begin
extra_mem_top := 0;
- extra_mem_bot := 0;
end;
@+tini
- if extra_mem_bot>sup_main_memory then extra_mem_bot:=sup_main_memory;
+ extra_mem_bot := 0;
if extra_mem_top>sup_main_memory then extra_mem_top:=sup_main_memory;
{|mem_top| is an index, |main_memory| a size}
mem_top := mem_bot + main_memory -1;
diff --git a/Build/source/texk/web2c/alephdir/om16bit.ch b/Build/source/texk/web2c/alephdir/om16bit.ch
index d07ec58a03a..370d9d78f7e 100644
--- a/Build/source/texk/web2c/alephdir/om16bit.ch
+++ b/Build/source/texk/web2c/alephdir/om16bit.ch
@@ -177,7 +177,7 @@ if the subrange is `|-128..127|'.
@d max_halfword==65535 {largest allowable value in a |halfword|}
@y
@d max_quarterword=@"FFFF {largest allowable value in a |quarterword|}
-@d min_halfword=-@"3FFFFFFF {smallest allowable value in a |halfword|}
+@d min_halfword=0 {smallest allowable value in a |halfword|}
@d max_halfword=@"3FFFFFFF {largest allowable value in a |halfword|}
@z
%---------------------------------------
@@ -186,14 +186,14 @@ if (min_quarterword>0)or(max_quarterword<127) then bad:=11;
if (min_halfword>0)or(max_halfword<32767) then bad:=12;
@y
if (min_quarterword>0)or(max_quarterword<@"7FFF) then bad:=11;
-if (min_halfword>0)or(max_halfword<@"3FFFFFFF) then bad:=12;
+if (min_halfword<>0)or(max_halfword<@"3FFFFFFF) then bad:=12;
@z
%---------------------------------------
@x [8.111] l.2435 - min_halfword and max_halfword
if (mem_min<min_halfword)or(mem_max>=max_halfword)or@|
(mem_bot-mem_min>max_halfword+1) then bad:=14;
@y
-if (mem_bot-sup_main_memory<min_halfword)or@|
+if (mem_min<min_halfword)or@|
(mem_top+sup_main_memory>=max_halfword) then bad:=14;
@z
%---------------------------------------