diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-04-08 06:44:11 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-04-08 06:44:11 +0000 |
| commit | 1b0b7a0936a9cc72582f6f6ece4c70dccd8a47b5 (patch) | |
| tree | c6327ee4eb81f986ef057b7b8f78578b45515e50 /gcc/ada/s-tasinf-mingw.ads | |
| parent | 7037ab9e636ef08b0e8ca1ddde1967d1aa690c9d (diff) | |
| download | gcc-1b0b7a0936a9cc72582f6f6ece4c70dccd8a47b5.tar.gz | |
2008-04-08 Pascal Obry <obry@adacore.com>
* a-exetim-mingw.adb, s-gloloc-mingw.adb, s-taprop-mingw.adb,
s-tasinf-mingw.ad{s,b}, s-taspri-mingw.ads:
Use new s-win32.ads unit instead of declaration
from s-osinte-mingw.ads.
* s-osinte-mingw.ads:
Move all non tasking based interface to s-win32.ads.
* s-osprim-mingw.adb:
Remove duplicated declarations and use s-win32.ads
unit instead.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@134006 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-tasinf-mingw.ads')
| -rw-r--r-- | gcc/ada/s-tasinf-mingw.ads | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/s-tasinf-mingw.ads b/gcc/ada/s-tasinf-mingw.ads index 056044e5f09..d67c3c18bee 100644 --- a/gcc/ada/s-tasinf-mingw.ads +++ b/gcc/ada/s-tasinf-mingw.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2007, Free Software Foundation, Inc. -- +-- Copyright (C) 2007-2008, Free Software Foundation, Inc. -- -- -- -- GNAT 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- -- @@ -43,14 +43,14 @@ -- This is the Windows (native) version of this module -with System.OS_Interface; +with System.Win32; package System.Task_Info is pragma Preelaborate; pragma Elaborate_Body; -- To ensure that a body is allowed - use type System.OS_Interface.ProcessorId; + use type System.Win32.ProcessorId; -- Windows provides a way to define the ideal processor to use for a given -- thread. The ideal processor is not necessarily the one that will be used @@ -80,7 +80,7 @@ package System.Task_Info is -- Thread Attributes -- ----------------------- - subtype CPU_Number is System.OS_Interface.ProcessorId; + subtype CPU_Number is System.Win32.ProcessorId; Any_CPU : constant CPU_Number := -1; |