paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 05:00:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix win32,win64 parts, fixes #40439. All records to under pshpack4 in header.

Browse Source
This commit is contained in:
marcoonthegit 2023-09-16 15:41:48 +02:00
parent 7d4cecda0b
commit 27b3084e67
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/winunits-base/src/richedit.pp
View File

@ -13,7 +13,7 @@ interface
uses Messages, Windows;
{$IFDEF FPC}
{$PACKRECORDS C}
{$PACKRECORDS 4} // MS header contains pshpack4 under ifdef win32
{$ENDIF}
Const
@ -694,7 +694,7 @@ Const
EDITSTREAMCALLBACK = function (dwCookie:DWORD_PTR; pbBuff:LPBYTE; cb:LONG; var pcb:LONG):DWORD;
_editstream = record
_editstream = packed record
dwCookie : DWORD_PTR;
dwError : DWORD;
pfnCallback : EDITSTREAMCALLBACK;

2
rtl/win/wininc/struct.inc
View File

@ -2535,7 +2535,7 @@ Const
TDRIVERINFO3 = DRIVER_INFO_3;
PDRIVERINFO3 = ^DRIVER_INFO_3;
EDITSTREAM = record
EDITSTREAM = packed record
dwCookie : DWORD_PTR;
dwError : DWORD;
pfnCallback : EDITSTREAMCALLBACK;