diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-04-08 09:18:13 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-04-08 09:18:13 +0200 |
| commit | db17411e9478e8c677b7eab1fae2fdb58b45dea7 (patch) | |
| tree | 28470a14002ea46292c459708e9a31aa4f10008d /gcc | |
| parent | b18acc1ba354ffc53049d2a41bb95686914c9f5f (diff) | |
| download | gcc-db17411e9478e8c677b7eab1fae2fdb58b45dea7.zip gcc-db17411e9478e8c677b7eab1fae2fdb58b45dea7.tar.gz gcc-db17411e9478e8c677b7eab1fae2fdb58b45dea7.tar.bz2 | |
Update comments.
Minor reformatting.
From-SVN: r134082
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_tss.ads | 4 | ||||
| -rw-r--r-- | 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 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; |