paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 18:59:11 +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

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

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

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

@ -73,7 +73,7 @@ const // Checked OK 05.08.2011 ALB
NT_KICKMEM = 17; NT_KICKMEM = 17;
NT_GRAPHICS = 18; NT_GRAPHICS = 18;
NT_DEATHMESSAGE = 19; NT_DEATHMESSAGE = 19;
NT_HIDD = 20; // AROS specific NT_HIDD = 20; // AROS specific
NT_USER = 254; NT_USER = 254;
NT_EXTENDED = 255; NT_EXTENDED = 255;
@ -406,7 +406,7 @@ const // Checked OK 04.08.2011 ALB
AN_OOP = $41000000; AN_OOP = $41000000;
// Hidd Subsystem */ // Hidd Subsystem */
AN_Hidd = $42000000; AN_Hidd = $42000000;
AN_HiddNoRoot = $C2000001; // Could not create root device AN_HiddNoRoot = $C2000001; // Could not create root device
{ * { *
* For use by any application that needs it * For use by any application that needs it
@ -603,35 +603,33 @@ type
type type
PTask = ^TTask; PTask = ^TTask;
TTask = record TTask = record
tc_Node : TNode; tc_Node: TNode;
tc_Flags : Byte; tc_Flags: Byte;
tc_State : Byte; tc_State: Byte;
tc_IDNestCnt: ShortInt; tc_IDNestCnt: Shortint; // intr disabled nesting
tc_TDNestCnt: ShortInt; tc_TDNestCnt: Shortint; // task disabled nesting
tc_SigAlloc : DWord; tc_SigAlloc: LongWord; // sigs allocated
tc_SigWait : DWord; tc_SigWait: LongWord; // sigs we are waiting for
tc_SigRecvd : DWord; tc_SigRecvd: LongWord; // sigs we have received
tc_SigExcept: DWord; tc_SigExcept: LongWord; // sigs we will take excepts for
{$IF 0} case boolean of
tc_TrapAlloc: Word; True:(
tc_TrapAble : Word; tc_TrapAlloc: Word; // traps allocated
{$ifdef CPU64} tc_TrapAble: Word;); // traps enabled
Pad64bit: LongWord; False:(
{$endif} tc_ETask: Pointer; // Valid if TF_ETask is set
{$ELSE} tc_ExceptData: Pointer; // points to except data
tc_ETask: Pointer; tc_ExceptCode: Pointer; // points to except code
{$ENDIF} tc_TrapData: Pointer; // points to trap data
tc_ExceptData: Pointer; tc_TrapCode: Pointer; // points to trap code
tc_ExceptCode: Pointer; tc_SPReg: Pointer; // stack pointer
tc_TrapData : Pointer; tc_SPLower: Pointer; // stack lower bound
tc_TrapCode : Pointer; tc_SPUpper: Pointer; // stack upper bound + 2
tc_SPReg : Pointer; tc_Switch: Pointer; // task losing CPU
tc_SPLower : Pointer; tc_Launch: Pointer; // task getting CPU
tc_SPUpper : Pointer; tc_MemEntry: TEList; // allocated memory
tc_Switch : Pointer; { *** OBSOLETE *** } tc_UserData: Pointer; // per task data
tc_Launch : Pointer; { *** OBSOLETE *** } );
tc_MemEntry : TEList;
tc_UserData : Pointer;
end; end;