Update comments.
authorArnaud Charlet <charlet@gcc.gnu.org>
Tue, 8 Apr 2008 07:18:13 +0000 (09:18 +0200)
committerArnaud Charlet <charlet@gcc.gnu.org>
Tue, 8 Apr 2008 07:18:13 +0000 (09:18 +0200)
Minor reformatting.

From-SVN: r134082

gcc/ada/exp_tss.ads
gcc/ada/s-taprop-lynxos.adb

index 2473d4a69f3b2495e6950465d7530e0c4c59fb43..e72e38cc2c0d569525bc65653f3aea1218db3352 100644 (file)
@@ -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.
 
index 31b36eca5791150350bedd5305eac5497a2d2a8c..df1d9510d027f34e1c7396557a9890123fdfa817 100644 (file)
@@ -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;