Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
PolyORB-HI-Ada
Commits
3f2b3f32
Commit
3f2b3f32
authored
Oct 05, 2013
by
yoogx
Browse files
* Minor reformatting
parent
ef55320c
Changes
3
Hide whitespace changes
Inline
Side-by-side
src/polyorb_hi-output.ads
View file @
3f2b3f32
...
...
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 2006-2009 Telecom ParisTech, 2010-201
2
ESA & ISAE. --
-- Copyright (C) 2006-2009 Telecom ParisTech, 2010-201
3
ESA & ISAE. --
-- --
-- PolyORB HI is free software; you can redistribute it and/or modify it --
-- under terms of the GNU General Public License as published by the Free --
...
...
@@ -61,7 +61,7 @@ package PolyORB_HI.Output is
-- routine is thread-safe.
procedure
Put_Line
(
Text
:
in
String
);
-- As above but displays the message
reguards less the mode
-- As above but
always
displays the message
procedure
Unprotected_Put_Line
(
Text
:
in
String
);
-- As above but this routine is not thread-safe
...
...
src/polyorb_hi-suspenders.adb
View file @
3f2b3f32
...
...
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2007-2009 Telecom ParisTech, 2010-201
2
ESA & ISAE. --
-- Copyright (C) 2007-2009 Telecom ParisTech, 2010-201
3
ESA & ISAE. --
-- --
-- PolyORB HI is free software; you can redistribute it and/or modify it --
-- under terms of the GNU General Public License as published by the Free --
...
...
@@ -66,8 +66,7 @@ package body PolyORB_HI.Suspenders is
Ada
.
Real_Time
.
Clock
+
Ada
.
Real_Time
.
Milliseconds
(
1_000
);
pragma
Debug
(
Put_Line
(
Verbose
,
"Initialization of all subsystems finished,"
&
" system startup in 1 second(s)"
));
(
Verbose
,
"Initialization finished, system startup in 1 second(s)"
));
for
J
in
Task_Suspension_Objects
'
Range
loop
pragma
Debug
...
...
@@ -83,7 +82,6 @@ package body PolyORB_HI.Suspenders is
&
PolyORB_HI_Generated
.
Deployment
.
Entity_Image
(
J
)
&
" unblocked"
));
end
loop
;
end
Unblock_All_Tasks
;
end
PolyORB_HI
.
Suspenders
;
src/polyorb_hi-thread_interrogators.ads
View file @
3f2b3f32
...
...
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 2007-2009 Telecom ParisTech, 2010-201
2
ESA & ISAE. --
-- Copyright (C) 2007-2009 Telecom ParisTech, 2010-201
3
ESA & ISAE. --
-- --
-- PolyORB HI is free software; you can redistribute it and/or modify it --
-- under terms of the GNU General Public License as published by the Free --
...
...
@@ -196,7 +196,6 @@ package PolyORB_HI.Thread_Interrogators is
-- set to the message reception time.
function
Get_Time_Stamp
(
P
:
Port_Type
)
return
Ada
.
Real_Time
.
Time
;
-- Return the timestamp of the latest value received on data port
-- P.
-- Return the timestamp of the latest value received on data port P
end
PolyORB_HI
.
Thread_Interrogators
;
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment