d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Added FLOATS macro and fixed array bound error

Browse source
This commit is contained in:
ceriel 1991-09-25 09:11:14 +00:00
parent 1acd31de45
commit 567a619003
3 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lang/basic/test/Makefile
View file

@ -6,7 +6,10 @@ SRC= bull.b buzzword.b checker.b creator.b grafiek.b gunner.b learn.b\
test24.b test25.b test26.b test27.b test28.b test29.b test30.b\ test24.b test25.b test26.b test27.b test28.b test29.b test30.b\
test31.b test32.b test33.b test34.b test35.b test31.b test32.b test33.b test34.b test35.b
#FLOATS = -fp
FLOATS =
head: head:
for i in $(SRC) ; do runcmp $$i ; done for i in $(SRC) ; do fp=$(FLOATS); export fp; runcmp $$i ; done
clean: clean:
rm -f *.b.[rx] *.[dekmos] rm -f *.b.[rx] *.[dekmos]

2
lang/basic/test/checker.b
View file

@ -22,7 +22,7 @@
2200 rem 2200 rem
2300 l=-1*l 2300 l=-1*l
2400 for x=1to 8 2400 for x=1to 8
2500 for y=-1to8 2500 for y=1to8
2600 if s(x,y)=0 then 3500 2600 if s(x,y)=0 then 3500
2700 if g>0 then 3000 2700 if g>0 then 3000
2800 if s(x,y)>0 then 3500 2800 if s(x,y)>0 then 3500

2
lang/basic/test/runcmp
View file

@ -1,5 +1,5 @@
echo -n $1 " " echo -n $1 " "
if abc - -o $1.x -fp $1 if abc - -o $1.x $fp $1
then then
if $1.x >$1.r if $1.x >$1.r
then :; else then :; else