paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 21:09:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

AROS: fixed TTask type

Browse Source 
git-svn-id: trunk@35064 -
This commit is contained in:
marcus 2016-12-04 13:45:04 +00:00
parent d05175a17f
commit 114a43e6ef
2 changed files with 64 additions and 62 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/arosunits/src/exec.pas
View File

@ -28,6 +28,8 @@ defines:
unit Exec;
{$PACKRECORDS C}
interface
type
@ -659,11 +661,12 @@ type
tc_SigWait: ULONG; // sigs we are waiting for
tc_SigRecvd: ULONG; // sigs we have received
tc_SigExcept: ULONG; // sigs we will take excepts for
case boolean of
True:(
tc_TrapAlloc: Word; // traps allocated
tc_TrapAble: Word; // traps enabled
{$ifdef CPU64}
Pad64bit: LongWord;
{$endif}
tc_TrapAble: Word;); // traps enabled
False:(
tc_ETask: Pointer; // Valid if TF_ETask is set
tc_ExceptData: APTR; // points to except data
tc_ExceptCode: APTR; // points to except code
tc_TrapData: APTR; // points to trap data
@ -675,6 +678,7 @@ type
tc_Launch: Pointer; // task getting CPU
tc_MemEntry: TList; // allocated memory
tc_UserData: APTR; // per task data
);
end;
// Stack swap structure as passed to StackSwap()

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

@ -606,32 +606,30 @@ type
tc_Node: TNode;
tc_Flags: Byte;
tc_State: Byte;
tc_IDNestCnt: ShortInt;
tc_TDNestCnt: ShortInt;
tc_SigAlloc : DWord;
tc_SigWait : DWord;
tc_SigRecvd : DWord;
tc_SigExcept: DWord;
{$IF 0}
tc_TrapAlloc: Word;
tc_TrapAble : Word;
{$ifdef CPU64}
Pad64bit: LongWord;
{$endif}
{$ELSE}
tc_ETask: Pointer;
{$ENDIF}
tc_ExceptData: Pointer;
tc_ExceptCode: Pointer;
tc_TrapData : Pointer;
tc_TrapCode : Pointer;
tc_SPReg : Pointer;
tc_SPLower : Pointer;
tc_SPUpper : Pointer;
tc_Switch : Pointer; { *** OBSOLETE *** }
tc_Launch : Pointer; { *** OBSOLETE *** }
tc_MemEntry : TEList;
tc_UserData : Pointer;
tc_IDNestCnt: Shortint; // intr disabled nesting
tc_TDNestCnt: Shortint; // task disabled nesting
tc_SigAlloc: LongWord; // sigs allocated
tc_SigWait: LongWord; // sigs we are waiting for
tc_SigRecvd: LongWord; // sigs we have received
tc_SigExcept: LongWord; // sigs we will take excepts for
case boolean of
True:(
tc_TrapAlloc: Word; // traps allocated
tc_TrapAble: Word;); // traps enabled
False:(
tc_ETask: Pointer; // Valid if TF_ETask is set
tc_ExceptData: Pointer; // points to except data
tc_ExceptCode: Pointer; // points to except code
tc_TrapData: Pointer; // points to trap data
tc_TrapCode: Pointer; // points to trap code
tc_SPReg: Pointer; // stack pointer
tc_SPLower: Pointer; // stack lower bound
tc_SPUpper: Pointer; // stack upper bound + 2
tc_Switch: Pointer; // task losing CPU
tc_Launch: Pointer; // task getting CPU
tc_MemEntry: TEList; // allocated memory
tc_UserData: Pointer; // per task data
);
end;