diff --git a/tests/Makefile b/tests/Makefile index 10d5083d32..8b701182b1 100644 --- a/tests/Makefile +++ b/tests/Makefile @@ -8,6 +8,8 @@ all : info tests : clean all_compilations +cont_tests : all_compilations + ifdef DJGPP EXEEXT=.exe @@ -230,7 +232,10 @@ info : # # $Log$ -# Revision 1.5 1999-09-19 11:48:18 peter +# Revision 1.6 1999-10-13 12:42:09 pierre +# * small fixes for win32 +# +# Revision 1.5 1999/09/19 11:48:18 peter # * remove ppas and retcode # # Revision 1.4 1999/09/19 11:23:06 peter diff --git a/tests/tbs0035.pp b/tests/tbs0035.pp index 7a0748339c..e306ad269d 100644 --- a/tests/tbs0035.pp +++ b/tests/tbs0035.pp @@ -1,3 +1,5 @@ +{ $OPT=-Sg } + program bug0035; {Discovered by Daniel Mantione.} diff --git a/tests/tbs0037.pp b/tests/tbs0037.pp index ce1e821ae5..16a15fe5af 100644 --- a/tests/tbs0037.pp +++ b/tests/tbs0037.pp @@ -1,10 +1,21 @@ +{$ifdef go32v2} +{$define OK} +{$endif} +{$ifdef linux} +{$define OK} +{$endif} + +{$ifdef OK} uses - graph,crt; + graph, + crt; var gd,gm : integer; +{$endif OK} begin +{$ifdef OK} gd:=detect; initgraph(gd,gm,''); line(1,1,100,100); @@ -14,5 +25,6 @@ begin {readkey;} delay(1000); closegraph; +{$endif OK} end. - + diff --git a/tests/tbs0048.pp b/tests/tbs0048.pp index 65ad7b83a9..2814d93272 100644 --- a/tests/tbs0048.pp +++ b/tests/tbs0048.pp @@ -1,3 +1,11 @@ +{$ifdef go32v2} +{$define OK} +{$endif} +{$ifdef linux} +{$define OK} +{$endif} + +{$ifdef OK} uses graph,crt; @@ -5,8 +13,10 @@ var gd,gm : integer; i,size : longint; p : pointer; +{$endif OK} begin +{$ifdef OK} gd:=detect; initgraph(gd,gm,''); setcolor(brown); @@ -27,5 +37,5 @@ begin end; {readkey;}delay(1000); closegraph; +{$endif OK} end. - diff --git a/tests/tbs0051.pp b/tests/tbs0051.pp index 2be5e5317a..cccfb10d05 100644 --- a/tests/tbs0051.pp +++ b/tests/tbs0051.pp @@ -4,6 +4,14 @@ program TestPutP; {$define has_colors_equal} {$endif go32v2} +{$ifdef go32v2} +{$define OK} +{$endif} +{$ifdef linux} +{$define OK} +{$endif} + +{$ifdef OK} uses crt,graph; {$ifndef has_colors_equal} @@ -21,7 +29,9 @@ var gd,gm,gError,yi,i : integer; col: longint; error : word; +{$endif OK} BEGIN +{$ifdef OK} if paramcount=0 then gm:=$111 {640x480/64K HiColor} else @@ -52,8 +62,9 @@ BEGIN for i:=0 to 255 do if not ColorsEqual(getpixel(i,15),getpixel(i,30)) then - Halt(1); + Halt(1); {readkey;}delay(1000); closegraph; +{$endif OK} END. diff --git a/tests/tbs0052.pp b/tests/tbs0052.pp index 123f71fadc..922d69ec09 100644 --- a/tests/tbs0052.pp +++ b/tests/tbs0052.pp @@ -1,4 +1,12 @@ -uses +{$ifdef go32v2} +{$define OK} +{$endif} +{$ifdef linux} +{$define OK} +{$endif} + +{$ifdef OK} +uses crt,graph; const @@ -10,7 +18,9 @@ const (X: 275; Y: 150), (X: 280; Y : 50), (X:295; Y : 80) ); var Gd, Gm: Integer; +{$endif OK} begin +{$ifdef OK} Gd := Detect; InitGraph(Gd, Gm, 'c:\bp\bgi'); if GraphResult <> grOk then @@ -32,4 +42,5 @@ begin graphdefaults; {readln;}delay(1000); CloseGraph; +{$endif OK} end. diff --git a/tests/tbs0057.pp b/tests/tbs0057.pp index 0c05841679..c7a3f1608e 100644 --- a/tests/tbs0057.pp +++ b/tests/tbs0057.pp @@ -1,10 +1,20 @@ +{$ifdef go32v2} +{$define OK} +{$endif} +{$ifdef linux} +{$define OK} +{$endif} + +{$ifdef OK} uses graph,crt; - + var gd,gm : integer; +{$endif OK} begin +{$ifdef OK} gd:=detect; gm:=$103; initgraph(gd,gm,''); @@ -15,4 +25,5 @@ begin line(100,100,1,100); {readkey;}delay(1000); closegraph; +{$endif OK} end. diff --git a/tests/tbs0105.pp b/tests/tbs0105.pp index a9eccbe941..81e012263c 100644 --- a/tests/tbs0105.pp +++ b/tests/tbs0105.pp @@ -1,3 +1,13 @@ +{$ifdef go32v2} +{$define OK} +{$endif} +{$ifdef linux} +{$define OK} +{$endif} + +{ Win32 signal support is still missing ! } + +{$ifdef OK} {$R+} { BOUND check error... I don't think this is a code generator error } { but an error because the type casting is not considered at all! } @@ -21,7 +31,9 @@ Var Sel: Word; v: longint; +{$endif OK} Begin +{$ifdef OK} Signal(SIGSEGV,signalhandler(@our_sig)); v:=$00ffffff; Sel:=word(v); @@ -31,4 +43,5 @@ Begin { we should not go to here } Writeln('Error : signal not called'); Halt(1); +{$endif OK} end. diff --git a/tests/tbs0178.pp b/tests/tbs0178.pp index 024c62927f..c3022545e3 100644 --- a/tests/tbs0178.pp +++ b/tests/tbs0178.pp @@ -1,3 +1,4 @@ +{ $OPT=-Sg} PROGRAM NoLabel; { this program compiles fine with TP but not with FP } type @@ -9,7 +10,7 @@ PROGRAM NoLabel; { this program compiles fine with TP but not with FP } const allowed : boolean = false; - + constructor ttestobj.init; begin if not allowed then @@ -28,7 +29,7 @@ PROGRAM NoLabel; { this program compiles fine with TP but not with FP } Halt(1); end; end; - + LABEL N1, @@ -61,4 +62,3 @@ BEGIN FAIL: Write; self:=1; END. - diff --git a/tests/tbs0195.pp b/tests/tbs0195.pp index 169c898363..c2651115ac 100644 --- a/tests/tbs0195.pp +++ b/tests/tbs0195.pp @@ -1,3 +1,11 @@ +{$ifdef go32v2} +{$define OK} +{$endif} +{$ifdef linux} +{$define OK} +{$endif} + +{$ifdef OK} uses graph {$ifdef go32v2} ,dpmiexcp @@ -6,7 +14,9 @@ var GDriver, GMode: Integer; w:word; p:pointer; +{$endif OK} begin +{$ifdef OK} GDriver := $FF; GMode := $101; InitGraph(GDriver, GMode, ''); @@ -19,12 +29,13 @@ begin {---runtime-error!------} { getimage(0,0,111,111, p); } {-----------------------} - + { This is the correct usage (PFV) } getimage(0,0,111,111, p^); - + freemem(p, w); closegraph; readln; +{$endif OK} end.