Update comments.

Minor reformatting.

From-SVN: r134082

gcc/ada/exp_tss.ads

@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 1992-2007, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-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- --
@@ -215,7 +215,7 @@ package Exp_Tss is
    function Has_Non_Null_Base_Init_Proc (Typ : Entity_Id) return Boolean;
    --  Returns true if the given type has a defined Base_Init_Proc and
    --  this init proc is not a null init proc (null init procs occur as
-   --  a result of the processing for Initialize_Scalars. This function
+   --  a result of the processing for Initialize_Scalars). This function
    --  is used to test for the presence of an init proc in cases where
    --  a null init proc is considered equivalent to no init proc.
 

gcc/ada/s-taprop-lynxos.adb

@@ -668,7 +668,7 @@ package body System.Task_Primitives.Operations is
    begin
       Result :=
         clock_getres
-          (clock_id => CLOCK_REALTIME, Res => Res'Unchecked_Access);
+          (clock_id => CLOCK_REALTIME, res => Res'Unchecked_Access);
       pragma Assert (Result = 0);
       return To_Duration (Res);
    end RT_Resolution;