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

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

Browse Source 
Make TRastPort compliant to both ABI's by removing redundant ifdef.

Add information about (new) fields.
This commit is contained in:
magorium 2022-05-06 21:48:18 +02:00 committed by Charlie Balogh
parent 3439b220a7
commit 1d1a68761e
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/arosunits/src/agraphics.pas
View File

@ -629,16 +629,12 @@ type
TxBaseline: Word; // text baseline
TxSpacing: SmallInt; // text spacing (per character)
RP_User: APTR;
{$ifdef AROS_ABIv0}
longreserved: array[0..1] of IPTR;
wordreserved: array[0..6] of Word; // used to be a node
reserved: array[0..7] of Byte; // for future use
{$endif}
{$ifdef AROS_ABIv1}
// 30 bytes (on 32-bit architectures) of private space follow.
// On 64-bit architectures this space is doubled.
// Do not touch.
RP_Extra: APTR;
longreserved: array[0..5] of IPTR;
reserved: array[0..1] of Byte;
{$endif}
end;
const