aboutsummaryrefslogtreecommitdiffstats
path: root/src/base/UPlatform.pas
diff options
context:
space:
mode:
Diffstat (limited to 'src/base/UPlatform.pas')
-rw-r--r--src/base/UPlatform.pas24
1 files changed, 10 insertions, 14 deletions
diff --git a/src/base/UPlatform.pas b/src/base/UPlatform.pas
index 1dcdb5b9..e88e45b2 100644
--- a/src/base/UPlatform.pas
+++ b/src/base/UPlatform.pas
@@ -43,15 +43,13 @@ implementation
uses
SysUtils,
- {$IFDEF MSWINDOWS}
+ {$IF Defined(MSWINDOWS)}
UPlatformWindows,
- {$ENDIF}
- {$IFDEF LINUX}
- UPlatformLinux,
- {$ENDIF}
- {$IFDEF DARWIN}
+ {$ELSEIF Defined(DARWIN)}
UPlatformMacOSX,
- {$ENDIF}
+ {$ELSEIF Defined(UNIX)}
+ UPlatformLinux,
+ {$IFEND}
ULog;
@@ -158,15 +156,13 @@ end;
initialization
-{$IFDEF MSWINDOWS}
+{$IF Defined(MSWINDOWS)}
Platform_singleton := TPlatformWindows.Create;
-{$ENDIF}
-{$IFDEF LINUX}
- Platform_singleton := TPlatformLinux.Create;
-{$ENDIF}
-{$IFDEF DARWIN}
+{$ELSEIF Defined(DARWIN)}
Platform_singleton := TPlatformMacOSX.Create;
-{$ENDIF}
+{$ELSEIF Defined(UNIX)}
+ Platform_singleton := TPlatformLinux.Create;
+{$IFEND}
finalization
Platform_singleton.Free;