Commit db17411e by Arnaud Charlet

Update comments.

Minor reformatting.

From-SVN: r134082
parent b18acc1b
......@@ -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.
......
......@@ -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;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment