From 1bbd116730a5667169cda2e85b3c487b2b7bfc3f Mon Sep 17 00:00:00 2001
From: paul <paul@idefix.freepascal.org>
Date: Fri, 25 Dec 2009 11:40:35 +0000
Subject: [PATCH] tests: fix $WARN test

git-svn-id: trunk@14476 -
---
 tests/webtbs/tw3939.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/webtbs/tw3939.pp b/tests/webtbs/tw3939.pp
index 9d140f5a0f..88fb5fff2d 100644
--- a/tests/webtbs/tw3939.pp
+++ b/tests/webtbs/tw3939.pp
@@ -1,6 +1,6 @@
-{$warn+}
+{$warn symbol_platform on}
 {$warnings-}
-{$warn-}
+{$warn symbol_platform off}
 {$warnings+}
 begin
 end.