From 99955c78f63d1cb0d8bec666bc33953590a74c8a Mon Sep 17 00:00:00 2001
From: jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 1 Nov 2007 23:22:01 +0000
Subject: fixed failed builds   build:USDX-LAZLIN-75   build:USDX-LAZLIN-76

for some reason we can not use {$MODE Delphi} in an
included file.

( Probably because of the way the compier scopes this switch to each pas file )

ive had to revert this part of eddies changes.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@548 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/UCore.pas | 21 +++++++++++++++------
 1 file changed, 15 insertions(+), 6 deletions(-)

(limited to 'Game/Code/Classes/UCore.pas')

diff --git a/Game/Code/Classes/UCore.pas b/Game/Code/Classes/UCore.pas
index 091868f2..acd9ead7 100644
--- a/Game/Code/Classes/UCore.pas
+++ b/Game/Code/Classes/UCore.pas
@@ -2,9 +2,17 @@ unit UCore;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
 {$I switches.inc}
 
-uses uPluginDefs, uCoreModule, UHooks, UServices, UModules;
+uses uPluginDefs,
+     uCoreModule,
+     UHooks,
+     UServices,
+     UModules;
 {*********************
   TCore
   Class manages all CoreModules, teh StartUp, teh MainLoop and the shutdown process
@@ -103,10 +111,11 @@ var
   Core: TCore; 
 
 implementation
-uses SysUtils,
-{$IFDEF win32}
-Windows
-{$ENDIF};
+
+uses {$IFDEF win32}
+       Windows,
+      {$ENDIF}
+      SysUtils;
 
 //-------------
 // Create - Creates Class + Hook and Service Manager
@@ -489,4 +498,4 @@ begin
   Result := hInstance;
 end;
 
-end.
\ No newline at end of file
+end.
-- 
cgit v1.2.3