Browse Source

Merge pull request #261 from SkybuckFlying/PascalCoinDevMasterBlockHeaderFix

Packed directive added to record TBlockHeader.
Albert M 2 years ago
parent
commit
2cc1e5d86d
1 changed files with 1 additions and 1 deletions
  1. 1 1
      src/core/UFileStorage.pas

+ 1 - 1
src/core/UFileStorage.pas

@@ -29,7 +29,7 @@ uses
 
 
 Type
-  TBlockHeader = Record
+  TBlockHeader = packed record
     BlockNumber : Cardinal;
     StreamBlockRelStartPos : Int64;
     BlockSize : Cardinal;