From 4fb6274942e93cbcabf1e0c34982f03ed8fd3621 Mon Sep 17 00:00:00 2001
From: Tomas Hajny <hajny@freepascal.org>
Date: Tue, 6 Dec 2011 23:39:55 +0000
Subject: [PATCH]   * minor enhancement for one of DosQuerySysState record
 types

git-svn-id: trunk@19764 -
---
 rtl/os2/doscalls.pas | 24 +++++++++++++++---------
 1 file changed, 15 insertions(+), 9 deletions(-)

diff --git a/rtl/os2/doscalls.pas b/rtl/os2/doscalls.pas
index 52f1f5a706..6afa43b655 100644
--- a/rtl/os2/doscalls.pas
+++ b/rtl/os2/doscalls.pas
@@ -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