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

* minor enhancement for one of DosQuerySysState record types

Browse Source 
git-svn-id: trunk@19764 -
This commit is contained in:
Tomas Hajny 2011-12-06 23:39:55 +00:00
parent 20b1e3af78
commit 4fb6274942
1 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
rtl/os2/doscalls.pas
View File

@ -3449,15 +3449,21 @@ type
}
PQSTRec = ^TQSTRec;
TQSTRec = record
RecType: cardinal; { Record type }
TID: word; { Thread ID }
Slot: word; { "Unique" thread slot number }
SleepID: cardinal; { Sleep ID thread is sleeping on }
Priority: cardinal; { Thread priority }
SysTime: cardinal; { Thread system time }
UserTime: cardinal; { Thread user time }
State: byte; { Thread state }
Pad: array [1..3] of byte; { Padding for 32-bit alignment }
RecType: cardinal; { Record type }
TID: word; { Thread ID }
Slot: word; { "Unique" thread slot number }
SleepID: cardinal; { Sleep ID thread is sleeping on }
case boolean of
false: (
Priority: cardinal; { Thread priority (class + level) }
SysTime: cardinal; { Thread system time }
UserTime: cardinal; { Thread user time }
State: byte; { Thread state }
Pad: array [1..3] of byte); { Padding for 32-bit alignment }
true: (
PrioLevel: byte; { Thread priority level only }
PrioClass: byte; { Thread priority class only }
Pad2: array [1..14] of byte);
end;
{ Process record