Displays loading time at startup

jval1972 · Apr 22, 2022 · 9a4bec3 · 9a4bec3
1 parent 3337e28
commit 9a4bec3
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/d_main.pas b/d_main.pas
@@ -1366,13 +1366,16 @@ procedure D_DoomMain;
   filename: string;
   scale: integer;
   _time: integer;
+  startloadingtime: LongWord;
   s_error: string;
   i: integer;
   j: integer;
   episodes: integer;
   err_shown: boolean;
   s1, s2: string;
 begin
+  startloadingtime := I_GetTickCount;
+
   outproc := @I_IOprintf;
   wadfiles := TDSTringList.Create;
 
@@ -2074,6 +2077,10 @@ procedure D_DoomMain;
     autostart := true;
   end;
 
+  printf(StringOfChar('-', 21) + #13#10);
+  printf('Load time: %2.3f secs'#13#10, [(I_GetTickCount - startloadingtime) / 1000]);
+  printf(StringOfChar('-', 21) + #13#10);
+
   p := M_CheckParm('-playdemo');
   if (p <> 0) and (p < myargc - 1) then
   begin

diff --git a/readme.txt b/readme.txt
@@ -39,6 +39,9 @@ Features:
  - Custom defined actors (ACTORDEF)
 
 History - Change log
+--------------------
+Displays loading time at startup.
+
 --------------------
 version 1.14.18.134 (20220410)
 ------------------------------