From c883b9fde333b53115ecbc37e9320d827a66442e Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 10 Feb 2005 17:40:20 +0000
Subject: [PATCH]   * added ifdef fpc

---
 tests/webtbs/tw3489.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/webtbs/tw3489.pp b/tests/webtbs/tw3489.pp
index b4a0845527..4dec2a8142 100644
--- a/tests/webtbs/tw3489.pp
+++ b/tests/webtbs/tw3489.pp
@@ -3,7 +3,7 @@
 { e-mail: danny_milo@yahoo.com }
 program itest;
 
-{$mode delphi}
+{$ifdef fpc}{$mode delphi}{$endif}
 
 var
   err : boolean;