2008-05-27 Thomas Quinot <quinot@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / s-taprop-lynxos.adb

diff --git a/gcc/ada/s-taprop-lynxos.adb b/gcc/ada/s-taprop-lynxos.adb
index 31b36ec..df1d951 100644 (file)
--- 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;