add more info about game build to log and window title

[d2df-sdl.git] / src / game / g_main.pas

diff --git a/src/game/g_main.pas b/src/game/g_main.pas
index 050ee1fbea50d4e9dbc978a1f805cc21adbfd137..8142dd83c30f7c1fd14b4a28fe650aec0769415a 100644 (file)
--- a/src/game/g_main.pas
+++ b/src/game/g_main.pas
@@ -139,7 +139,11 @@ procedure InitPath;
 
   function IsSep (ch: Char): Boolean;
   begin
-    result := (ch = '/') or (ch = '\')
+    {$IFDEF WINDOWS}
+    result := (ch = '/') or (ch = '\');
+    {$ELSE}
+    result := (ch = '/');
+    {$ENDIF}
   end;
 
   function OptimizePath (dir: AnsiString): AnsiString;
@@ -432,6 +436,8 @@ begin
   e_InitWritelnDriver();
   e_WriteLog('Doom 2D: Forever version ' + GAME_VERSION + ' proto ' + IntToStr(NET_PROTOCOL_VER), TMsgType.Notify);
   e_WriteLog('Build date: ' + GAME_BUILDDATE + ' ' + GAME_BUILDTIME, TMsgType.Notify);
+  e_WriteLog('Build hash: ' + g_GetBuildHash(), TMsgType.Notify);
+  e_WriteLog('Build by: ' + g_GetBuilderName(), TMsgType.Notify);
 
   e_LogWritefln('Force bin dir: %s', [forceBinDir], TMsgType.Notify);
   e_LogWritefln('BINARY PATH: [%s]', [binPath], TMsgType.Notify);