Changeset 19 for trunk/Directories.pas

Timestamp:

Jan 8, 2017, 11:36:18 AM (7 years ago)

Author:

chronos

Message:

• Modified: Disable assertions for structure size to test 64-bit build.

File:

• trunk/Directories.pas (modified) (3 diffs)

trunk/Directories.pas

@@ -9 +9 @@
 function LocalizedFilePath(path: string): string;
 
+
 implementation
 
 uses
-  LCLIntf, LCLType, LMessages, SysUtils, FileUtil;
+  LCLIntf, LCLType, SysUtils, FileUtil;
 
 var
@@ -32 +33 @@
 end;
 
-procedure Init;
+procedure InitUnit;
 begin
   HomeDir := ExtractFilePath(ParamStr(0));
@@ -58 +59 @@
           PChar(DataDir + 'Saved\' + src.Name), false);
     until FindNext(src) <> 0;
-  end;
+end;
 
 initialization
 
-Init;
+InitUnit;
 
 end.