diff --git a/TestSuite/pointers1.pas b/TestSuite/pointers1.pas
index 298218645..f17886df3 100644
--- a/TestSuite/pointers1.pas
+++ b/TestSuite/pointers1.pas
@@ -1,3 +1,4 @@
+//winonly
 procedure Test(p : ^integer);
 begin
 assert(p^=77);
diff --git a/TestSuite/usesunits/use_diapasons1.pas b/TestSuite/usesunits/use_diapasons1.pas
index 8fa774dda..071cb145b 100644
--- a/TestSuite/usesunits/use_diapasons1.pas
+++ b/TestSuite/usesunits/use_diapasons1.pas
@@ -1 +1,2 @@
+//winonly
 uses u_diapasons1; begin end.
\ No newline at end of file
diff --git a/TestSuite/usesunits/use_pointers1.pas b/TestSuite/usesunits/use_pointers1.pas
index 6cc571a13..81d79c2d3 100644
--- a/TestSuite/usesunits/use_pointers1.pas
+++ b/TestSuite/usesunits/use_pointers1.pas
@@ -1 +1,2 @@
+//winonly
 uses u_pointers1; begin end.
\ No newline at end of file