aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Classes/UCore.pas
diff options
context:
space:
mode:
Diffstat (limited to 'Game/Code/Classes/UCore.pas')
-rw-r--r--Game/Code/Classes/UCore.pas21
1 files changed, 15 insertions, 6 deletions
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.