diff options
Diffstat (limited to 'gcc/ada/5wosinte.ads')
| -rw-r--r-- | gcc/ada/5wosinte.ads | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/gcc/ada/5wosinte.ads b/gcc/ada/5wosinte.ads index c28537392ad..cf9aee5a35b 100644 --- a/gcc/ada/5wosinte.ads +++ b/gcc/ada/5wosinte.ads @@ -6,8 +6,7 @@ -- -- -- S p e c -- -- -- --- -- --- Copyright (C) 1997-2001, Free Software Foundation, Inc. -- +-- Copyright (C) 1997-2003, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -63,7 +62,6 @@ pragma Preelaborate; -- (See Operations.Clock) type LARGE_INTEGER is delta 1.0 range -2.0**63 .. 2.0**63 - 1.0; - for LARGE_INTEGER'Alignment use 4; subtype PSZ is Interfaces.C.Strings.chars_ptr; subtype PCHAR is Interfaces.C.Strings.chars_ptr; @@ -185,6 +183,9 @@ pragma Preelaborate; type Thread_Body is access function (arg : System.Address) return System.Address; + procedure SwitchToThread; + pragma Import (Stdcall, SwitchToThread, "SwitchToThread"); + ----------------------- -- Critical sections -- ----------------------- @@ -400,6 +401,11 @@ pragma Preelaborate; dwPriorityClass : DWORD) return BOOL; pragma Import (Stdcall, SetPriorityClass, "SetPriorityClass"); + procedure SetThreadPriorityBoost + (hThread : HANDLE; + DisablePriorityBoost : BOOL); + pragma Import (Stdcall, SetThreadPriorityBoost, "SetThreadPriorityBoost"); + Normal_Priority_Class : constant := 16#00000020#; Idle_Priority_Class : constant := 16#00000040#; High_Priority_Class : constant := 16#00000080#; |