From db17411e9478e8c677b7eab1fae2fdb58b45dea7 Mon Sep 17 00:00:00 2001
From: Arnaud Charlet <charlet@gcc.gnu.org>
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 2473d4a69f3b..e72e38cc2c0d 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 31b36eca5791..df1d9510d027 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;
--
GitLab