Ver Fonte

* 64-bit alignment for tlhelp64.

git-svn-id: trunk@15200 -
marco há 15 anos atrás
pai
commit
99e078985f
1 ficheiros alterados com 5 adições e 0 exclusões
  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}
 {$I jediapilib.inc}
 
+// switch back to default (natural alignment), bug 16361
+{$ifdef FPC} {$ifdef cpu64}{$packrecords 8} {$endif} {$endif}
 interface
 
 uses
   JwaWinType;
 {$ENDIF JWA_OMIT_SECTIONS}
+
+
 {$IFNDEF JWA_IMPLEMENTATIONSECTION}
 
+
 const
   MAX_MODULE_NAME32 = 255;
   {$EXTERNALSYM MAX_MODULE_NAME32}