Pārlūkot izejas kodu

* Move inlcude platform.inc before
interface, so that global switches are allowed

git-svn-id: trunk@5885 -

pierre 18 gadi atpakaļ
vecāks
revīzija
f9e00ff2d9
2 mainītis faili ar 3 papildinājumiem un 3 dzēšanām
  1. 2 2
      fv/memory.pas
  2. 1 1
      fv/tabs.pas

+ 2 - 2
fv/memory.pas

@@ -45,12 +45,12 @@
 
 
 UNIT Memory;
 UNIT Memory;
 
 
+{====Include file to sort compiler platform out =====================}
+{$I Platform.inc}
 {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
 {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
                                   INTERFACE
                                   INTERFACE
 {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
 {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
 
 
-{====Include file to sort compiler platform out =====================}
-{$I Platform.inc}
 {====================================================================}
 {====================================================================}
 
 
 {==== Compiler directives ===========================================}
 {==== Compiler directives ===========================================}

+ 1 - 1
fv/tabs.pas

@@ -21,6 +21,7 @@
  ****************************************************************************}
  ****************************************************************************}
 unit tabs;
 unit tabs;
 
 
+{$I platform.inc}    (* Multi-platform support defines *)
 {$CODEPAGE cp437}
 {$CODEPAGE cp437}
 
 
 interface
 interface
@@ -28,7 +29,6 @@ interface
 uses
 uses
   objects, drivers, views, fvconsts;
   objects, drivers, views, fvconsts;
 
 
-{$I platform.inc}    (* Multi-platform support defines *)
 
 
 type
 type
     PTabItem = ^TTabItem;
     PTabItem = ^TTabItem;