diff options
| author | Pascal Obry <obry@adacore.com> | 2008-04-08 08:44:11 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-04-08 08:44:11 +0200 |
| commit | 3824d9af3e3d65e0a3e4aeca16b2b16b37c464ea (patch) | |
| tree | c6327ee4eb81f986ef057b7b8f78578b45515e50 /gcc/ada/a-exetim-mingw.adb | |
| parent | c4394c1546db30313bdd30d0ad3d5e304d44ba24 (diff) | |
| download | gcc-3824d9af3e3d65e0a3e4aeca16b2b16b37c464ea.tar.gz | |
a-exetim-mingw.adb, [...]: Use new s-win32.ads unit instead of declaration from s-osinte-mingw.ads.
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.
From-SVN: r134006
Diffstat (limited to 'gcc/ada/a-exetim-mingw.adb')
| -rwxr-xr-x | gcc/ada/a-exetim-mingw.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/a-exetim-mingw.adb b/gcc/ada/a-exetim-mingw.adb index bf2f271c045..8ee288acb64 100755 --- a/gcc/ada/a-exetim-mingw.adb +++ b/gcc/ada/a-exetim-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- -- @@ -39,6 +39,7 @@ with Ada.Unchecked_Conversion; with System.OS_Interface; use System.OS_Interface; with System.Task_Primitives.Operations; use System.Task_Primitives.Operations; with System.Tasking; use System.Tasking; +with System.Win32; use System.Win32; package body Ada.Execution_Time is @@ -118,7 +119,7 @@ package body Ada.Execution_Time is (HANDLE (Get_Thread_Id (To_Task_Id (T))), C_Time'Access, E_Time'Access, K_Time'Access, U_Time'Access); - if Res = False then + if Res = System.Win32.FALSE then raise Program_Error; end if; |