paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 15:47:54 +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 bc641cc76b
commit e084d3259f
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

@ -19,7 +19,7 @@ uses Messages, Windows;
{$ENDIF FPC_DOTTEDUNITS}
{$IFDEF FPC}
{$PACKRECORDS C}
{$PACKRECORDS 4} // MS header contains pshpack4 under ifdef win32
{$ENDIF}
Const
@ -700,7 +700,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;