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.adb | |
| 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.adb')
| -rw-r--r-- | gcc/ada/s-tasinf-mingw.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/s-tasinf-mingw.adb b/gcc/ada/s-tasinf-mingw.adb index c992da54991..33b9c739853 100644 --- a/gcc/ada/s-tasinf-mingw.adb +++ b/gcc/ada/s-tasinf-mingw.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- 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- -- @@ -48,9 +48,9 @@ package body System.Task_Info is begin if N_CPU = 0 then declare - SI : aliased System.OS_Interface.SYSTEM_INFO; + SI : aliased Win32.SYSTEM_INFO; begin - System.OS_Interface.GetSystemInfo (SI'Access); + Win32.GetSystemInfo (SI'Access); N_CPU := Positive (SI.dwNumberOfProcessors); end; end if; |