diff options
| -rw-r--r-- | Build/source/texk/web2c/alephdir/ChangeLog | 5 | ||||
| -rw-r--r-- | Build/source/texk/web2c/alephdir/com16bit.ch | 8 | ||||
| -rw-r--r-- | Build/source/texk/web2c/alephdir/om16bit.ch | 6 |
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 %--------------------------------------- |