Changeset 19 for trunk/Protocol.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/Protocol.pas (modified) (1 diff)

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.