Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

testsuite flags fixed

peter 20 years ago
parent
eb012fc86f
commit
42261c59f2
2 changed files with 6 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 0
      tests/webtbs/tw3540.pp
  2. 5 1
      tests/webtbs/tw3751.pp

+ 1 - 0
tests/webtbs/tw3540.pp
View File 

@@ -1,3 +1,4 @@
 
+{ %norun }
 
 { %cpu=i386 }
 
 { %cpu=i386 }
 
 { %opt=-s -Amasm -TWin32 -Rintel }
 
 { %opt=-s -Amasm -TWin32 -Rintel }
 
 { Source provided for Free Pascal Bug Report 3540 }
 
 { Source provided for Free Pascal Bug Report 3540 }

+ 5 - 1
tests/webtbs/tw3751.pp
View File 

@@ -4,7 +4,11 @@
 
 {$mode delphi}
 
 {$mode delphi}
 
 program turn;
 
 program turn;
 
 
 
-uses cthreads, classes, sysutils;
 
+uses
 
+{$ifdef unix}
 
+  cthreads,
 
+{$endif}
 
+  classes, sysutils;
 
 
 
 type
 
 type