From 3accc94f67c74c7381a2057ff4d475551e164d52 Mon Sep 17 00:00:00 2001 From: ttsiodras Date: Wed, 14 Apr 2010 14:25:40 +0000 Subject: [PATCH] Ada complained about unused param, now overwriting git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/po-hi-ada@464 129961e7-ef38-4bb5-a8f7-c9a525a55882 --- Makefile.am | 2 +- src/polyorb_hi-thread_interrogators.adb | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/Makefile.am b/Makefile.am index 6ea2001..1265c71 100644 --- a/Makefile.am +++ b/Makefile.am @@ -2,7 +2,7 @@ AUTOMAKE_OPTIONS = no-dependencies ACLOCAL_AMFLAGS = -I support CLEANFILES = config-stamp -SUBDIRS = support tools doc src share +SUBDIRS = support tools src share DIST_SUBDIRS = $(SUBDIRS) examples # Force the installation before running the testsuite diff --git a/src/polyorb_hi-thread_interrogators.adb b/src/polyorb_hi-thread_interrogators.adb index 53e1946..833ea63 100644 --- a/src/polyorb_hi-thread_interrogators.adb +++ b/src/polyorb_hi-thread_interrogators.adb @@ -766,8 +766,8 @@ package body PolyORB_HI.Thread_Interrogators is -- sending, not receiving. Most_Recent_Values (PT) := P; - -- Time_Stamps (PT) := T; - -- Maxime workaround for backdoor accesses + Time_Stamps (PT) := T; -- overwritten below + -- Maxime workaround for backdoor accesses Time_Stamps (PT) := Ada.Real_time.clock; end Store_Out; -- GitLab