From 75a5a4879d5046afb73aba4a403472e9f349cbed Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Tue, 7 Jul 2009 13:22:34 +0000 Subject: [PATCH] s-osprim-mingw.adb: Minor reformatting Minor code reorganization 2009-07-07 Robert Dewar * s-osprim-mingw.adb: Minor reformatting Minor code reorganization * a-stzsea.adb, a-stwise.adb, a-strsea.adb (Index): Redo previous change (Ind should be Integer). From-SVN: r149327 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/a-strsea.adb | 8 +------- gcc/ada/a-stwise.adb | 8 +------- gcc/ada/a-stzsea.adb | 8 +------- gcc/ada/s-osprim-mingw.adb | 19 +++++++------------ 5 files changed, 15 insertions(+), 33 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 4693dd40ad4..c22b4c7a01a 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2009-07-07 Robert Dewar + + * s-osprim-mingw.adb: Minor reformatting + Minor code reorganization + 2009-07-07 Robert Dewar * prj-nmsc.adb: Minor reformatting diff --git a/gcc/ada/a-strsea.adb b/gcc/ada/a-strsea.adb index dbeb0e462a4..d6898331e91 100644 --- a/gcc/ada/a-strsea.adb +++ b/gcc/ada/a-strsea.adb @@ -238,7 +238,7 @@ package body Ada.Strings.Search is Mapping : Maps.Character_Mapping := Maps.Identity) return Natural is PL1 : constant Integer := Pattern'Length - 1; - Ind : Natural; + Ind : Integer; -- can be negative if Pattern'Length > Source'Length Cur : Natural; begin @@ -246,12 +246,6 @@ package body Ada.Strings.Search is raise Pattern_Error; end if; - -- If Pattern longer than Source it can't be found - - if Pattern'Length > Source'Length then - return 0; - end if; - -- Forwards case if Going = Forward then diff --git a/gcc/ada/a-stwise.adb b/gcc/ada/a-stwise.adb index 852b781233f..c5fb0be9abf 100644 --- a/gcc/ada/a-stwise.adb +++ b/gcc/ada/a-stwise.adb @@ -233,7 +233,7 @@ package body Ada.Strings.Wide_Search is return Natural is PL1 : constant Integer := Pattern'Length - 1; - Ind : Natural; + Ind : Integer; -- can be negative if Pattern'Length > Source'Length Cur : Natural; begin @@ -241,12 +241,6 @@ package body Ada.Strings.Wide_Search is raise Pattern_Error; end if; - -- If Pattern longer than Source it can't be found - - if Pattern'Length > Source'Length then - return 0; - end if; - -- Forwards case if Going = Forward then diff --git a/gcc/ada/a-stzsea.adb b/gcc/ada/a-stzsea.adb index d6341ae1200..4947896809c 100644 --- a/gcc/ada/a-stzsea.adb +++ b/gcc/ada/a-stzsea.adb @@ -237,7 +237,7 @@ package body Ada.Strings.Wide_Wide_Search is return Natural is PL1 : constant Integer := Pattern'Length - 1; - Ind : Natural; + Ind : Integer; -- can be negative if Pattern'Length > Source'Length Cur : Natural; begin @@ -245,12 +245,6 @@ package body Ada.Strings.Wide_Wide_Search is raise Pattern_Error; end if; - -- If Pattern longer than Source it can't be found - - if Pattern'Length > Source'Length then - return 0; - end if; - -- Forwards case if Going = Forward then diff --git a/gcc/ada/s-osprim-mingw.adb b/gcc/ada/s-osprim-mingw.adb index 0984f49cacc..4a916166535 100644 --- a/gcc/ada/s-osprim-mingw.adb +++ b/gcc/ada/s-osprim-mingw.adb @@ -157,13 +157,10 @@ package body System.OS_Primitives is -- actions should be null. Max_Elapsed : constant := 0; - epoch_1970 : constant := 16#19D_B1DE_D53E_8000#; -- win32 UTC epoch system_time_ns : constant := 100; -- 100 ns per tick Sec_Unit : constant := 10#1#E9; - Test_Now : aliased Long_Long_Integer; - Loc_Ticks : aliased LARGE_INTEGER; Loc_Time : aliased Long_Long_Integer; Elapsed : Long_Long_Integer; @@ -181,8 +178,8 @@ package body System.OS_Primitives is -- time API. -- Try at most 10th times to reach the best synchronisation (below 1 - -- millisecond) otherwise the runtime will use the best value - -- reached during the runs. + -- millisecond) otherwise the runtime will use the best value reached + -- during the runs. for K in 1 .. 10 loop GetSystemTimeAsFileTime (Loc_Time'Access); @@ -219,17 +216,15 @@ package body System.OS_Primitives is function Monotonic_Clock return Duration is Current_Ticks : aliased LARGE_INTEGER; Elap_Secs_Tick : Duration; - begin if QueryPerformanceCounter (Current_Ticks'Access) = Win32.FALSE then return 0.0; + else + Elap_Secs_Tick := + Duration (Long_Long_Float (Current_Ticks - BMTA.all) / + Long_Long_Float (TFA.all)); + return BMCA.all + Elap_Secs_Tick; end if; - - Elap_Secs_Tick := - Duration (Long_Long_Float (Current_Ticks - BMTA.all) / - Long_Long_Float (TFA.all)); - - return BMCA.all + Elap_Secs_Tick; end Monotonic_Clock; ----------------- -- 2.30.2