From db17411e9478e8c677b7eab1fae2fdb58b45dea7 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 8 Apr 2008 09:18:13 +0200 Subject: [PATCH] Update comments. Minor reformatting. From-SVN: r134082 --- gcc/ada/exp_tss.ads | 4 ++-- gcc/ada/s-taprop-lynxos.adb | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/gcc/ada/exp_tss.ads b/gcc/ada/exp_tss.ads index 2473d4a69f3..e72e38cc2c0 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 31b36eca579..df1d9510d02 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; -- 2.30.2