Explorar o código

* fix for issue #40006
set jwadhcpcsdk packing to 8 for win64.

(cherry picked from commit 3b4c396edd21db35f2c4834514e0866e840c94a1)

marcoonthegit %!s(int64=2) %!d(string=hai) anos
pai
achega
12c586f22e
Modificáronse 1 ficheiros con 9 adicións e 0 borrados
  1. 9 0
      packages/winunits-jedi/src/jwadhcpcsdk.pas

+ 9 - 0
packages/winunits-jedi/src/jwadhcpcsdk.pas

@@ -61,6 +61,10 @@ uses
 {$ENDIF JWA_OMIT_SECTIONS}
 
 {$IFNDEF JWA_IMPLEMENTATIONSECTION}
+{$ifdef win64}
+{$push}  {$define dopop}
+{$align 8}
+{$endif}
 
 //
 // DHCP Standard Options.
@@ -341,6 +345,11 @@ function DhcpDeRegisterParamChange(Flags: DWORD; Reserved, Event: LPVOID): DWORD
 function DhcpRemoveDNSRegistrations: DWORD; stdcall;
 {$EXTERNALSYM DhcpRemoveDNSRegistrations}
 
+{$ifdef dopop}
+{$pop}
+{$undef dopop}
+{$endif}
+
 {$ENDIF JWA_IMPLEMENTATIONSECTION}
 
 {$IFNDEF JWA_OMIT_SECTIONS}