gcc/ada/

	* Makefile.in (common_tools): Fix typos in $(exeext) extension.
	* gnat_ugn.texi (Style Checking)
	(Adding the Results of Compiler Checks to gnatcheck Output)
	(Example of Binder Output File): Fix typos.
	* ali.ads, einfo.ads, exp_ch4.adb, exp_ch6.adb,
	exp_dbug.ads, exp_dist.adb, exp_smem.adb, g-socket.ads,
	s-osinte-rtems.ads, s-shasto.ads, s-stausa.adb,
	s-stausa.ads, sem_cat.adb, sem_ch12.adb, sem_ch3.adb,
	sem_ch4.adb, sem_ch6.adb, sem_ch8.adb, sem_util.ads,
	sinfo.ads, utils.c: Fix typos in comments.
	* sem_ch6.adb, vms_data.ads: Fix typos in strings.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@136329 138bc75d-0d04-0410-961f-82ee72b054a4

25 files changed, 58 insertions, 44 deletions

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 48aee98d33b..246f6fcc6dd 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,17 @@
+2008-06-03  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
+
+	* Makefile.in (common_tools): Fix typos in $(exeext) extension.
+	* gnat_ugn.texi (Style Checking)
+	(Adding the Results of Compiler Checks to gnatcheck Output)
+	(Example of Binder Output File): Fix typos.
+	* ali.ads, einfo.ads, exp_ch4.adb, exp_ch6.adb,
+	exp_dbug.ads, exp_dist.adb, exp_smem.adb, g-socket.ads,
+	s-osinte-rtems.ads, s-shasto.ads, s-stausa.adb,
+	s-stausa.ads, sem_cat.adb, sem_ch12.adb, sem_ch3.adb,
+	sem_ch4.adb, sem_ch6.adb, sem_ch8.adb, sem_util.ads,
+	sinfo.ads, utils.c: Fix typos in comments.
+	* sem_ch6.adb, vms_data.ads: Fix typos in strings.
+
 2008-05-29  Thomas Quinot  <quinot@adacore.com>
 
 	* sem_eval.adb: Minor reformatting
diff --git a/gcc/ada/Makefile.in b/gcc/ada/Makefile.in
index 4fc101a6ffb..9ffc02e2110 100644
--- a/gcc/ada/Makefile.in
+++ b/gcc/ada/Makefile.in
@@ -1781,23 +1781,23 @@ common-tools:
 	  --GNATBIND="$(GNATBIND)" --GCC="$(CC) $(ALL_ADAFLAGS)" \
 	  gnatchop gnatcmd gnatkr gnatls gnatprep gnatxref gnatfind gnatname \
 	  gnatclean -bargs $(ADA_INCLUDES) $(GNATBIND_FLAGS)
-	$(GNATLINK) -v gnatcmd -o ../../gnat$(exext) \
+	$(GNATLINK) -v gnatcmd -o ../../gnat$(exeext) \
 		--GCC="$(GCC_LINK)" $(TOOLS_LIBS)
-	$(GNATLINK) -v gnatchop -o ../../gnatchop$(exext) \
+	$(GNATLINK) -v gnatchop -o ../../gnatchop$(exeext) \
 		--GCC="$(GCC_LINK)" $(TOOLS_LIBS)
-	$(GNATLINK) -v gnatkr -o ../../gnatkr$(exext) \
+	$(GNATLINK) -v gnatkr -o ../../gnatkr$(exeext) \
 		--GCC="$(GCC_LINK)" $(TOOLS_LIBS)
-	$(GNATLINK) -v gnatls -o ../../gnatls$(exext) \
+	$(GNATLINK) -v gnatls -o ../../gnatls$(exeext) \
 		--GCC="$(GCC_LINK)" $(TOOLS_LIBS)
-	$(GNATLINK) -v gnatprep -o ../../gnatprep$(exext) \
+	$(GNATLINK) -v gnatprep -o ../../gnatprep$(exeext) \
 		--GCC="$(GCC_LINK)" $(TOOLS_LIBS)
-	$(GNATLINK) -v gnatxref -o ../../gnatxref$(exext) \
+	$(GNATLINK) -v gnatxref -o ../../gnatxref$(exeext) \
 		--GCC="$(GCC_LINK)" $(TOOLS_LIBS)
-	$(GNATLINK) -v gnatfind -o ../../gnatfind$(exext) \
+	$(GNATLINK) -v gnatfind -o ../../gnatfind$(exeext) \
 		--GCC="$(GCC_LINK)" $(TOOLS_LIBS)
-	$(GNATLINK) -v gnatname -o ../../gnatname$(exext) \
+	$(GNATLINK) -v gnatname -o ../../gnatname$(exeext) \
 		--GCC="$(GCC_LINK)" $(TOOLS_LIBS)
-	$(GNATLINK) -v gnatclean -o ../../gnatclean$(exext) \
+	$(GNATLINK) -v gnatclean -o ../../gnatclean$(exeext) \
 		--GCC="$(GCC_LINK)" $(TOOLS_LIBS)
 
 ../../gnatsym$(exeext): 
diff --git a/gcc/ada/ali.ads b/gcc/ada/ali.ads
index dd3b6cd6577..3e95595edca 100644
--- a/gcc/ada/ali.ads
+++ b/gcc/ada/ali.ads
@@ -444,7 +444,7 @@ package ALI is
 
    Float_Format_Specified : Character := ' ';
    --  Set to blank by Initialize_ALI. Set to appropriate float format
-   --  character (V or I, see Opt.Float_Format) if an an ali file that
+   --  character (V or I, see Opt.Float_Format) if an ali file that
    --  is read contains an F line setting the floating point format.
 
    Initialize_Scalars_Used : Boolean := False;
diff --git a/gcc/ada/einfo.ads b/gcc/ada/einfo.ads
index c0377a5430d..41d53c0f052 100644
--- a/gcc/ada/einfo.ads
+++ b/gcc/ada/einfo.ads
@@ -2602,7 +2602,7 @@ package Einfo is
 
 --    Is_Remote_Call_Interface (Flag62)
 --       Present in all entities. Set in E_Package and E_Generic_Package
---       entities to which a pragma Remote_Call_Interace is applied, and
+--       entities to which a pragma Remote_Call_Interface is applied, and
 --       also on entities declared in the visible part of such a package.
 
 --    Is_Remote_Types (Flag61)
diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb
index 2d275a9bc80..798da67036e 100644
--- a/gcc/ada/exp_ch4.adb
+++ b/gcc/ada/exp_ch4.adb
@@ -2422,7 +2422,7 @@ package body Exp_Ch4 is
       begin
          --  If the index type is an enumeration type, the computation can be
          --  done in standard integer. Otherwise, choose a large enough integer
-         --  type to accomodate the index type computation.
+         --  type to accommodate the index type computation.
 
          if Is_Enumeration_Type (Ind_Typ)
            or else Root_Type (Ind_Typ) = Standard_Integer
@@ -5947,7 +5947,7 @@ package body Exp_Ch4 is
          --  the mod value is always 0, and we can just ignore the left operand
          --  completely in this case.
 
-         --  The operand type may be private (e.g. in the expansion of an an
+         --  The operand type may be private (e.g. in the expansion of an
          --  intrinsic operation) so we must use the underlying type to get the
          --  bounds, and convert the literals explicitly.
 
diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb
index 3afb7696770..cddc0210241 100644
--- a/gcc/ada/exp_ch6.adb
+++ b/gcc/ada/exp_ch6.adb
@@ -3839,7 +3839,7 @@ package body Exp_Ch6 is
               Make_Defining_Identifier (Loc, New_Internal_Name ('C'));
             Set_Is_Internal (Temp);
 
-            --  For the unconstrained case. the generated temporary has the
+            --  For the unconstrained case, the generated temporary has the
             --  same constrained declaration as the result variable.
             --  It may eventually be possible to remove that temporary and
             --  use the result variable directly.
@@ -3967,7 +3967,7 @@ package body Exp_Ch6 is
 
       --  If the return value of a foreign compiled function is
       --  VAX Float then expand the return (adjusts the location
-      --  of the return value on Alpha/VMS, noop everywere else).
+      --  of the return value on Alpha/VMS, noop everywhere else).
       --  Comes_From_Source intercepts recursive expansion.
 
       if Vax_Float (Etype (N))
diff --git a/gcc/ada/exp_dbug.ads b/gcc/ada/exp_dbug.ads
index 9a9d5377d83..2f8b3223368 100644
--- a/gcc/ada/exp_dbug.ads
+++ b/gcc/ada/exp_dbug.ads
@@ -358,7 +358,7 @@ package Exp_Dbug is
       --  the protected/non-locking version of the operation.
 
       --  Operations generated for protected entries follow the same encoding.
-      --  Each entry results in two suprograms: a procedure that holds the
+      --  Each entry results in two subprograms: a procedure that holds the
       --  entry body, and a function that holds the evaluation of the barrier.
       --  The names of these subprograms include the prefix '_E' or '_B' res-
       --  pectively. The names also include a numeric suffix to render them
diff --git a/gcc/ada/exp_dist.adb b/gcc/ada/exp_dist.adb
index 973948c4287..c22239277bf 100644
--- a/gcc/ada/exp_dist.adb
+++ b/gcc/ada/exp_dist.adb
@@ -3087,7 +3087,7 @@ package body Exp_Dist is
          Set_Etype (Stubbed_Result, Stub_Type_Access);
 
          --  If the Address is Null_Address, then return a null object, unless
-         --  RACW_Type is null-excluding, in which case inconditionally raise
+         --  RACW_Type is null-excluding, in which case unconditionally raise
          --  CONSTRAINT_ERROR instead.
 
          declare
diff --git a/gcc/ada/exp_smem.adb b/gcc/ada/exp_smem.adb
index 0e3fc2379a4..60d1385f15a 100644
--- a/gcc/ada/exp_smem.adb
+++ b/gcc/ada/exp_smem.adb
@@ -300,7 +300,7 @@ package body Exp_Smem is
       --  with Ent.
 
       Instantiation : Node_Id;
-      --  Package instanciation node for SVP_Instance
+      --  Package instantiation node for SVP_Instance
 
    --  Start of processing for Make_Shared_Var_Procs
 
@@ -308,7 +308,7 @@ package body Exp_Smem is
       Build_Full_Name (Ent, Vnm);
 
       --  We turn off Shared_Passive during construction and analysis of
-      --  the generic package instantition, to avoid improper attempts to
+      --  the generic package instantiation, to avoid improper attempts to
       --  process the variable references within these instantiation.
 
       Set_Is_Shared_Passive (Ent, False);
diff --git a/gcc/ada/g-socket.ads b/gcc/ada/g-socket.ads
index 7ebf243904e..58255f0880e 100644
--- a/gcc/ada/g-socket.ads
+++ b/gcc/ada/g-socket.ads
@@ -788,7 +788,7 @@ package GNAT.Sockets is
       Status   : out Selector_Status);
    --  Accept a new connection on Server using Accept_Socket, waiting no longer
    --  than the given timeout duration. Status is set to indicate whether the
-   --  operation completed successully, timed out, or was aborted. If Selector
+   --  operation completed successfully, timed out, or was aborted. If Selector
    --  is not null, the designated selector is used to wait for the socket to
    --  become available, else a private selector object is created by this
    --  procedure and destroyed before it returns.
@@ -816,7 +816,7 @@ package GNAT.Sockets is
       Status   : out Selector_Status);
    --  Connect Socket to the given Server address using Connect_Socket, waiting
    --  no longer than the given timeout duration. Status is set to indicate
-   --  whether the operation completed successully, timed out, or was aborted.
+   --  whether the operation completed successfully, timed out, or was aborted.
    --  If Selector is not null, the designated selector is used to wait for the
    --  socket to become available, else a private selector object is created
    --  by this procedure and destroyed before it returns.
@@ -1049,7 +1049,7 @@ package GNAT.Sockets is
    --  it is used in the visible part of GNAT.Sockets.Thin_Common. This is
    --  really an inversion of abstraction. The private part of GNAT.Sockets
    --  needs to have visibility on this type, but since Thin_Common is a child
-   --  of Sokcets, the type can't be declared there. The correct fix would
+   --  of Sockets, the type can't be declared there. The correct fix would
    --  be to move the thin sockets binding outside of GNAT.Sockets altogether,
    --  e.g. by renaming it to GNAT.Sockets_Thin.
 
diff --git a/gcc/ada/gnat_ugn.texi b/gcc/ada/gnat_ugn.texi
index d40d0e86199..2aac8e8297b 100644
--- a/gcc/ada/gnat_ugn.texi
+++ b/gcc/ada/gnat_ugn.texi
@@ -6134,7 +6134,7 @@ use @option{L} parameter witout any integer value after that, because any
 digit following @option{-} in the parameter string of the @option{-gnaty}
 option will be threated as canceling indentation check. The same is true
 for @option{M} parameter. @option{y} and @option{N} parameters are not
-alloved after @option{-}.
+allowed after @option{-}.
 
 @item +
 This causes any subsequent options in the string to enable the corresponding
@@ -20401,7 +20401,7 @@ gnat_rm, GNAT Reference Manual}). Note, that in case of gnatcheck
 's' parameter, that corresponds to the GNAT @option{-gnatws} option, disables
 all the specific warnings, but not suppresses the warning mode,
 and 'e' parameter, corresponding to @option{-gnatwe} that means
-"therat warnings as errors", does not have any effect.
+"treat warnings as errors", does not have any effect.
 
 @end table
 
@@ -26224,7 +26224,7 @@ package body ada_main is
       --  a-except.ads/adb for full details of how zero cost
       --  exception handling works. This procedure, the call to
       --  it, and the two following tables are all omitted if the
-      --  build is in longjmp/setjump exception mode.
+      --  build is in longjmp/setjmp exception mode.
 
 @findex SDP_Table_Build
 @findex Zero Cost Exceptions
@@ -26299,7 +26299,7 @@ package body ada_main is
 
       --  Call SDP_Table_Build to build the top level procedure
       --  table for zero cost exception handling (omitted in
-      --  longjmp/setjump mode).
+      --  longjmp/setjmp mode).
 
       SDP_Table_Build (ST'Address, 23, EA'Address, 23);
 
diff --git a/gcc/ada/s-osinte-rtems.ads b/gcc/ada/s-osinte-rtems.ads
index 8d5483b6c38..6d28ec5ef30 100644
--- a/gcc/ada/s-osinte-rtems.ads
+++ b/gcc/ada/s-osinte-rtems.ads
@@ -146,7 +146,7 @@ package System.OS_Interface is
    SA_SIGINFO  : constant := 16#02#;
 
    SA_ONSTACK : constant := 16#00#;
-   --  SA_ONSTACK is not defined on RTEMS, but it is refered to in the POSIX
+   --  SA_ONSTACK is not defined on RTEMS, but it is referred to in the POSIX
    --  implementation of System.Interrupt_Management. Therefore we define a
    --  dummy value of zero here so that setting this flag is a nop.
 
diff --git a/gcc/ada/s-shasto.ads b/gcc/ada/s-shasto.ads
index 8046fd5b2f6..2fd0341b7b6 100644
--- a/gcc/ada/s-shasto.ads
+++ b/gcc/ada/s-shasto.ads
@@ -79,7 +79,7 @@
 
 --  The approach is as follows:
 
---    For each shared variable, var, an instanciation of the below generic
+--    For each shared variable, var, an instantiation of the below generic
 --    package is created which provides Read and Write supporting procedures.
 
 --    The routine Shared_Var_ROpen in package System.Shared_Storage
@@ -214,7 +214,7 @@ package System.Shared_Storage is
       --  the shared storage.
 
       procedure Write;
-      --  Shared passive variable assignement routine. Each assignment to
+      --  Shared passive variable assignment routine. Each assignment to
       --  the shared variable, V, is followed by a call to the corresponding
       --  Write procedure, which writes the new value to the shared storage.
 
diff --git a/gcc/ada/s-stausa.adb b/gcc/ada/s-stausa.adb
index 07668da318e..700c685ea27 100644
--- a/gcc/ada/s-stausa.adb
+++ b/gcc/ada/s-stausa.adb
@@ -261,7 +261,7 @@ package body System.Stack_Usage is
       Current_Stack_Level : aliased Integer;
 
    begin
-      --  Reajust the pattern size. When we arrive in this function, there is
+      --  Readjust the pattern size. When we arrive in this function, there is
       --  already a given amount of stack used, that we won't analyze.
 
       Analyzer.Stack_Used_When_Filling :=
diff --git a/gcc/ada/s-stausa.ads b/gcc/ada/s-stausa.ads
index 7c500bffaec..8a6e2b67cb5 100644
--- a/gcc/ada/s-stausa.ads
+++ b/gcc/ada/s-stausa.ads
@@ -216,7 +216,7 @@ package System.Stack_Usage is
    --  Max_Pattern_Size is the size of the pattern zone, might be smaller than
    --  the full stack size in order to take into account e.g. the secondary
    --  stack and a guard against overflow. The actual size taken will be
-   --  reajusted with data already used at the time the stack is actually
+   --  readjusted with data already used at the time the stack is actually
    --  filled.
 
    Is_Enabled : Boolean := False;
diff --git a/gcc/ada/sem_cat.adb b/gcc/ada/sem_cat.adb
index 3e4a036fb8d..367f25555c1 100644
--- a/gcc/ada/sem_cat.adb
+++ b/gcc/ada/sem_cat.adb
@@ -1394,7 +1394,7 @@ package body Sem_Cat is
             elsif Ekind (Param_Type) = E_Anonymous_Access_Type
               or else Ekind (Param_Type) = E_Anonymous_Access_Subprogram_Type
             then
-               --  From RM E.2.2(14), no anonumous access parameter other than
+               --  From RM E.2.2(14), no anonymous access parameter other than
                --  controlling ones may be used (because an anonymous access
                --  type never supports external streaming).
 
diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb
index 4a7c91f1c95..cae84097d1a 100644
--- a/gcc/ada/sem_ch12.adb
+++ b/gcc/ada/sem_ch12.adb
@@ -454,7 +454,7 @@ package body Sem_Ch12 is
       Inst   : Node_Id) return Boolean;
    --  True if the instantiation Inst and the given freeze_node F_Node appear
    --  within the same declarative part, ignoring subunits, but with no inter-
-   --  vening suprograms or concurrent units. If true, the freeze node
+   --  vening subprograms or concurrent units. If true, the freeze node
    --  of the instance can be placed after the freeze node of the parent,
    --  which it itself an instance.
 
diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb
index f0065b73901..b6ccb6028fc 100644
--- a/gcc/ada/sem_ch3.adb
+++ b/gcc/ada/sem_ch3.adb
@@ -11339,7 +11339,7 @@ package body Sem_Ch3 is
         and then Is_Tagged_Type (Tagged_Type)
         and then Has_Interfaces (Tagged_Type));
 
-      --  Step 1: Transfer to the full-view primitives asociated with the
+      --  Step 1: Transfer to the full-view primitives associated with the
       --  partial-view that cover interface primitives. Conceptually this
       --  work should be done later by Process_Full_View; done here to
       --  simplify its implementation at later stages. It can be safely
diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb
index b59cd4b5186..e14fb436d6b 100644
--- a/gcc/ada/sem_ch4.adb
+++ b/gcc/ada/sem_ch4.adb
@@ -2246,7 +2246,7 @@ package body Sem_Ch4 is
       end if;
 
       --  If the call has been transformed into a slice, it is of the form
-      --  F (Subtype) where F is paramterless. The node has ben rewritten in
+      --  F (Subtype) where F is parameterless. The node has been rewritten in
       --  Try_Indexed_Call and there is nothing else to do.
 
       if Is_Indexed
diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb
index 640a20d0a54..0116a83517c 100644
--- a/gcc/ada/sem_ch6.adb
+++ b/gcc/ada/sem_ch6.adb
@@ -1370,7 +1370,7 @@ package body Sem_Ch6 is
          Plist : List_Id;
 
          function Is_Inline_Pragma (N : Node_Id) return Boolean;
-         --  True when N is a pragma Inline or Inline_Awlays that applies
+         --  True when N is a pragma Inline or Inline_Always that applies
          --  to this subprogram.
 
          -----------------------
@@ -3555,7 +3555,7 @@ package body Sem_Ch6 is
                      if not Is_Overriding_Operation (Op) then
                         Error_Msg_N ("\\primitive % defined #", Typ);
                      else
-                        Error_Msg_N ("\\overridding operation % with " &
+                        Error_Msg_N ("\\overriding operation % with " &
                                      "convention % defined #", Typ);
                      end if;
 
diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb
index 6ebb647b86f..c5edce6d085 100644
--- a/gcc/ada/sem_ch8.adb
+++ b/gcc/ada/sem_ch8.adb
@@ -1729,7 +1729,7 @@ package body Sem_Ch8 is
          then
             --  Input stream functions are abstract if the object type is
             --  abstract. Similarly, all default stream functions for an
-            --  interface type are abstract. However, these suprograms may
+            --  interface type are abstract. However, these subprograms may
             --  receive explicit declarations in representation clauses, making
             --  the attribute subprograms usable as defaults in subsequent
             --  type extensions.
@@ -3851,7 +3851,7 @@ package body Sem_Ch8 is
                Only_One_Visible := False;
                All_Overloadable := All_Overloadable and Is_Overloadable (E2);
 
-            --  Ada 2005 (AI-262): Protect against a form of Beujolais effect
+            --  Ada 2005 (AI-262): Protect against a form of Beaujolais effect
             --  that can occur in private_with clauses. Example:
 
             --    with A;
diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads
index bbd4c864a3e..64d5cfb674b 100644
--- a/gcc/ada/sem_util.ads
+++ b/gcc/ada/sem_util.ads
@@ -942,8 +942,8 @@ package Sem_Util is
    --  Returns True if the names of both entities correspond with matching
    --  primitives. This routine includes support for the case in which one
    --  or both entities correspond with entities built by Derive_Subprogram
-   --  with a special name to avoid being overriden (ie. return true in case
-   --  of entities with names "nameP" and "name" or viceversa).
+   --  with a special name to avoid being overridden (i.e. return true in case
+   --  of entities with names "nameP" and "name" or vice versa).
 
    function Private_Component (Type_Id : Entity_Id) return Entity_Id;
    --  Returns some private component (if any) of the given Type_Id.
diff --git a/gcc/ada/sinfo.ads b/gcc/ada/sinfo.ads
index c2043b1153a..29404b2332b 100644
--- a/gcc/ada/sinfo.ads
+++ b/gcc/ada/sinfo.ads
@@ -3266,7 +3266,7 @@ package Sinfo is
       --  to Ada 2005 (AI-287).
 
       ----------------------------------
-      -- 4.3.1  Cmmponent Choice List --
+      -- 4.3.1  Component Choice List --
       ----------------------------------
 
       --  COMPONENT_CHOICE_LIST ::=
diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c
index 8dd445fd8cd..4d10940370e 100644
--- a/gcc/ada/utils.c
+++ b/gcc/ada/utils.c
@@ -95,7 +95,7 @@ static tree handle_type_generic_attribute (tree *, tree, tree, int, bool *);
 static tree fake_attribute_handler      (tree *, tree, tree, int, bool *);
 
 /* Table of machine-independent internal attributes for Ada.  We support
-   this minimal set ot attributes to accomodate the needs of builtins.  */
+   this minimal set of attributes to accommodate the needs of builtins.  */
 const struct attribute_spec gnat_internal_attribute_table[] =
 {
   /* { name, min_len, max_len, decl_req, type_req, fn_type_req, handler } */
diff --git a/gcc/ada/vms_data.ads b/gcc/ada/vms_data.ads
index 545080f11f6..3270e8f55b5 100644
--- a/gcc/ada/vms_data.ads
+++ b/gcc/ada/vms_data.ads
@@ -6601,7 +6601,7 @@ package VMS_Data is
    --
    --   Output the execution time
 
-   S_Sync_Details : aliased constant S := "/DETAILs="                      &
+   S_Sync_Details : aliased constant S := "/DETAILS="                      &
                                              "MEDIUM "                     &
                                                "-om "                      &
                                              "SHORT "                      &