diff --git a/gcc/ada/exp_tss.ads b/gcc/ada/exp_tss.ads index 2473d4a69f3b2495e6950465d7530e0c4c59fb43..e72e38cc2c0d569525bc65653f3aea1218db3352 100644 --- a/gcc/ada/exp_tss.ads +++ b/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. diff --git a/gcc/ada/s-taprop-lynxos.adb b/gcc/ada/s-taprop-lynxos.adb index 31b36eca5791150350bedd5305eac5497a2d2a8c..df1d9510d027f34e1c7396557a9890123fdfa817 100644 --- a/gcc/ada/s-taprop-lynxos.adb +++ b/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;