From f9e00ff2d9c967b9a804f68458852cc79e65cf28 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Thu, 11 Jan 2007 12:23:29 +0000
Subject: [PATCH]  * Move inlcude platform.inc before    interface, so that
 global switches are allowed

git-svn-id: trunk@5885 -
---
 fv/memory.pas | 4 ++--
 fv/tabs.pas   | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/fv/memory.pas b/fv/memory.pas
index 7d44e25624..79607d6cd5 100644
--- a/fv/memory.pas
+++ b/fv/memory.pas
@@ -45,12 +45,12 @@
 
 UNIT Memory;
 
+{====Include file to sort compiler platform out =====================}
+{$I Platform.inc}
 {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
                                   INTERFACE
 {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
 
-{====Include file to sort compiler platform out =====================}
-{$I Platform.inc}
 {====================================================================}
 
 {==== Compiler directives ===========================================}
diff --git a/fv/tabs.pas b/fv/tabs.pas
index c6e01ba6c4..2766a87553 100644
--- a/fv/tabs.pas
+++ b/fv/tabs.pas
@@ -21,6 +21,7 @@
  ****************************************************************************}
 unit tabs;
 
+{$I platform.inc}    (* Multi-platform support defines *)
 {$CODEPAGE cp437}
 
 interface
@@ -28,7 +29,6 @@ interface
 uses
   objects, drivers, views, fvconsts;
 
-{$I platform.inc}    (* Multi-platform support defines *)
 
 type
     PTabItem = ^TTabItem;