From 27c99a7e13dd61786806f34e8b8949ed629287c2 Mon Sep 17 00:00:00 2001
From: olivier <olivier.coursiere@laposte.net>
Date: Sun, 7 Mar 2010 02:53:33 +0000
Subject: [PATCH] * Active out support using $modeswitch under Haiku after
 r14965

git-svn-id: trunk@14989 -
---
 rtl/haiku/baseunix.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/rtl/haiku/baseunix.pp b/rtl/haiku/baseunix.pp
index 852656e378..1948b4c09e 100644
--- a/rtl/haiku/baseunix.pp
+++ b/rtl/haiku/baseunix.pp
@@ -15,6 +15,7 @@
 Unit BaseUnix;
 
 Interface
+{$modeswitch out}
 {$inline on}
 Uses UnixType;
 
@@ -155,4 +156,4 @@ begin
   end;
 end;
 
-end.
\ No newline at end of file
+end.