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

AROS: 32/64-bit compatibility update for unit workbench

Browse Source 
Make TAppMessage compliant to both ABI's as well as 32/64-bit by
changing field am_ID to be of type IPTR for all targets..
This commit is contained in:
magorium 2022-05-06 21:45:44 +02:00 committed by Charlie Balogh
parent 576ef5a33d
commit e07185bc11
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/arosunits/src/workbench.pas
View File

@ -155,11 +155,7 @@ type
am_Message: TMessage; // Standard message structure.
am_type: Word; // Message type.
am_UserData: IPTR; // Application specific.
{$IFDEF AROS_ABIv1}
am_ID: IPTR; // Application definable ID.
{$ELSE}
am_ID: LongWord; // Application definable ID.
{$ENDIF}
am_NumArgs: LongInt; // # of elements in arglist.
am_ArgList: PWBArgList; // The arguements themselves.
am_Version: Word; // Will be AM_VERSION.