s-osprim-mingw.adb: Minor reformatting Minor code reorganization

2009-07-07  Robert Dewar  <dewar@adacore.com>

	* 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

 2009-07-07  Robert Dewar  <dewar@adacore.com>
 
+	* s-osprim-mingw.adb: Minor reformatting
+	Minor code reorganization
+
+2009-07-07  Robert Dewar  <dewar@adacore.com>
+
 	* prj-nmsc.adb: Minor reformatting
 
 2009-07-07  Pascal Obry  <obry@adacore.com>

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

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

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

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;
 
    -----------------