From 33c888aebe96c28ce7e4c235377ee26cb15c9a2b Mon Sep 17 00:00:00 2001
From: olle <olle>
Date: Sun, 25 Apr 2004 13:51:03 +0000
Subject: [PATCH]   * changed to $APPTYPE TOOL on MacOS

---
 tests/webtbs/tw2197.pp | 42 ++++++++++++++++++++++++------------------
 1 file changed, 24 insertions(+), 18 deletions(-)

diff --git a/tests/webtbs/tw2197.pp b/tests/webtbs/tw2197.pp
index 6245c89a5a..8bc8c3f6b3 100644
--- a/tests/webtbs/tw2197.pp
+++ b/tests/webtbs/tw2197.pp
@@ -1,18 +1,24 @@
-{ %RESULT=123 }
-{ Source provided for Free Pascal Bug Report 2197 }
-{ Submitted by "Pavel V.Ozerski" on  2002-10-23 }
-{ e-mail: pavel@insect.mail.iephb.ru }
-{$APPTYPE CONSOLE}
-{modified sample of Vlad Smaglyuk}
- procedure Average ({const} Row : Array of byte);
-  begin
-    writeln('Procedure body');
-  end;
- BEGIN
-     writeln('Before call');
-     Average([1,2,3]);
-     writeln('After call');
-     { We need to be sure that the following exitcode is 
-       returned }
-     runerror(123);
- END.
+{ %RESULT=123 }
+{ Source provided for Free Pascal Bug Report 2197 }
+{ Submitted by "Pavel V.Ozerski" on  2002-10-23 }
+{ e-mail: pavel@insect.mail.iephb.ru }
+
+{$ifndef MACOS}
+{$APPTYPE CONSOLE}
+{$else}
+{$APPTYPE TOOL}
+{$endif}
+
+{modified sample of Vlad Smaglyuk}
+ procedure Average ({const} Row : Array of byte);
+  begin
+    writeln('Procedure body');
+  end;
+ BEGIN
+     writeln('Before call');
+     Average([1,2,3]);
+     writeln('After call');
+     { We need to be sure that the following exitcode is 
+       returned }
+     runerror(123);
+ END.