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

AROS: Update RTL structure TETask (execd)

Browse Source 
Bring RTL (execd.inc) structure TETask up to date to unit exec (exec.pas).

This structure situated in the RTL was (literally) based on the MorphOS
version which is not compliant to AROS.

The original MorphOS TETask structure can still be 'activated' when the flag
AROS_MORPHOS_COMPATIBLE is defined when compiling the RTL and exec unit (as
is also the case in the original AROS repo).
This commit is contained in:
magorium 2022-05-08 10:03:13 +02:00 committed by Charlie Balogh
parent 5a0d76e45a
commit 08cc81ff60
1 changed files with 24 additions and 1 deletions

25
rtl/aros/i386/execd.inc
View File

@ -694,6 +694,7 @@ const
type
{$ifdef AROS_MORPHOS_COMPATIBLE}
PETask = ^TETask;
TETask = record
Message : TMessage;
@ -748,7 +749,29 @@ type
* never assume a size of this structure
* }
end;
{$else}
TETask = record
et_Message: TMessage;
et_Parent: PTask; // Pointer to parent task
et_UniqueID: DWord;
et_Children: TMinList; // List of children
et_TrapAlloc: Word;
et_TrapAble: Word;
et_Result1: DWord; // First result
et_Result2: Pointer; // Result data pointer (AllocVec)
et_TaskMsgPort: TMsgPort;
et_Compatibility: array[0..3] of Pointer; // Reserve this space for compiled software to access iet_startup and iet_acpd
et_MemPool: Pointer; // Task's private memory pool
{$ifdef aros}
et_Reserved: array[0..0] of PtrUInt; // MorphOS Private
et_TaskStorage: Pointer; // Task Storage Slots
{$else}
et_Reserved: array[0..1] of PtrUInt; // MorphOS Private
{$endif}
et_RegFrame: Pointer;
// Internal fields follow
end;
{$endif}
type
PTaskInitExtension = ^TTaskInitExtension;