Changeset 19 for trunk

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk

Files:

• Directories.pas (modified) (3 diffs)
• Protocol.pas (modified) (1 diff)

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.

trunk/Protocol.pas

@@ -1717 +1717 @@
 end;
 
+procedure InitUnit;
 begin
-  assert(sizeof(TPlayerContext) = 2048);
-  assert(sizeof(TModel) - 2 * sizeof(LongInt) - 4 * sizeof(word)
+  { TODO
+  Assert(sizeof(TPlayerContext) = 2048);
+  Assert(sizeof(TModel) - 2 * sizeof(LongInt) - 4 * sizeof(word)
   = sIntSetDevModel and $F * 4);
+  }
+end;
+
+initialization
+
+InitUnit;
 
 end.