Răsfoiți Sursa

* 64-bit alignment for tlhelp64.

git-svn-id: trunk@15200 -
marco 15 ani în urmă
părinte
comite
99e078985f
1 a modificat fișierele cu 5 adăugiri și 0 ștergeri
  1. 5 0
      packages/winunits-jedi/src/jwatlhelp32.pas

+ 5 - 0
packages/winunits-jedi/src/jwatlhelp32.pas

@@ -54,13 +54,18 @@ unit JwaTlHelp32;
 {$IFNDEF JWA_OMIT_SECTIONS}
 {$IFNDEF JWA_OMIT_SECTIONS}
 {$I jediapilib.inc}
 {$I jediapilib.inc}
 
 
+// switch back to default (natural alignment), bug 16361
+{$ifdef FPC} {$ifdef cpu64}{$packrecords 8} {$endif} {$endif}
 interface
 interface
 
 
 uses
 uses
   JwaWinType;
   JwaWinType;
 {$ENDIF JWA_OMIT_SECTIONS}
 {$ENDIF JWA_OMIT_SECTIONS}
+
+
 {$IFNDEF JWA_IMPLEMENTATIONSECTION}
 {$IFNDEF JWA_IMPLEMENTATIONSECTION}
 
 
+
 const
 const
   MAX_MODULE_NAME32 = 255;
   MAX_MODULE_NAME32 = 255;
   {$EXTERNALSYM MAX_MODULE_NAME32}
   {$EXTERNALSYM MAX_MODULE_NAME32}