linux build and fix typo
This commit is contained in:
parent
240ab1b0fc
commit
7a3b3a7c69
@ -137,7 +137,6 @@ BEGIN
|
|||||||
movecount := movecount + 1;
|
movecount := movecount + 1;
|
||||||
|
|
||||||
IF depth >= 4 THEN BEGIN
|
IF depth >= 4 THEN BEGIN
|
||||||
comment winner2 is faster than winner
|
|
||||||
p := winner2( move );
|
p := winner2( move );
|
||||||
IF p # 0 THEN BEGIN
|
IF p # 0 THEN BEGIN
|
||||||
IF p = 1 THEN value := 6
|
IF p = 1 THEN value := 6
|
||||||
|
6
RHA (Minisystems) ALGOL v55/m.sh
Normal file
6
RHA (Minisystems) ALGOL v55/m.sh
Normal file
@ -0,0 +1,6 @@
|
|||||||
|
str=$(tr '[a-z]' '[A-Z]' <<< $1)
|
||||||
|
|
||||||
|
rm $str.OBJ 2>/dev/null
|
||||||
|
|
||||||
|
ntvdm -r:. -u algol $str
|
||||||
|
ntvdm -r:. -u -c -p arun $str.OBJ
|
Loading…
Reference in New Issue
Block a user