From: Arnaud Charlet Date: Tue, 8 Apr 2008 07:18:13 +0000 (+0200) Subject: Update comments. X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=db17411e9478e8c677b7eab1fae2fdb58b45dea7;p=platform%2Fupstream%2Fgcc.git Update comments. Minor reformatting. From-SVN: r134082 --- diff --git a/gcc/ada/exp_tss.ads b/gcc/ada/exp_tss.ads index 2473d4a..e72e38c 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 31b36ec..df1d951 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;