Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
P
PolyORB-HI-Ada
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
Operations
Operations
Incidents
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
TASTE
PolyORB-HI-Ada
Commits
3f2b3f32
Commit
3f2b3f32
authored
Oct 05, 2013
by
yoogx
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* Minor reformatting
parent
ef55320c
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
6 additions
and
9 deletions
+6
-9
src/polyorb_hi-output.ads
src/polyorb_hi-output.ads
+2
-2
src/polyorb_hi-suspenders.adb
src/polyorb_hi-suspenders.adb
+2
-4
src/polyorb_hi-thread_interrogators.ads
src/polyorb_hi-thread_interrogators.ads
+2
-3
No files found.
src/polyorb_hi-output.ads
View file @
3f2b3f32
...
@@ -6,7 +6,7 @@
...
@@ -6,7 +6,7 @@
-- --
-- --
-- S p e c --
-- 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 --
-- 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 --
-- under terms of the GNU General Public License as published by the Free --
...
@@ -61,7 +61,7 @@ package PolyORB_HI.Output is
...
@@ -61,7 +61,7 @@ package PolyORB_HI.Output is
-- routine is thread-safe.
-- routine is thread-safe.
procedure
Put_Line
(
Text
:
in
String
);
procedure
Put_Line
(
Text
:
in
String
);
-- As above but
displays the message reguards less the mod
e
-- As above but
always displays the messag
e
procedure
Unprotected_Put_Line
(
Text
:
in
String
);
procedure
Unprotected_Put_Line
(
Text
:
in
String
);
-- As above but this routine is not thread-safe
-- As above but this routine is not thread-safe
...
...
src/polyorb_hi-suspenders.adb
View file @
3f2b3f32
...
@@ -6,7 +6,7 @@
...
@@ -6,7 +6,7 @@
-- --
-- --
-- B o d y --
-- 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 --
-- 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 --
-- under terms of the GNU General Public License as published by the Free --
...
@@ -66,8 +66,7 @@ package body PolyORB_HI.Suspenders is
...
@@ -66,8 +66,7 @@ package body PolyORB_HI.Suspenders is
Ada
.
Real_Time
.
Clock
+
Ada
.
Real_Time
.
Milliseconds
(
1_000
);
Ada
.
Real_Time
.
Clock
+
Ada
.
Real_Time
.
Milliseconds
(
1_000
);
pragma
Debug
pragma
Debug
(
Put_Line
(
Put_Line
(
Verbose
,
"Initialization of all subsystems finished,"
(
Verbose
,
"Initialization finished, system startup in 1 second(s)"
));
&
" system startup in 1 second(s)"
));
for
J
in
Task_Suspension_Objects
'
Range
loop
for
J
in
Task_Suspension_Objects
'
Range
loop
pragma
Debug
pragma
Debug
...
@@ -83,7 +82,6 @@ package body PolyORB_HI.Suspenders is
...
@@ -83,7 +82,6 @@ package body PolyORB_HI.Suspenders is
&
PolyORB_HI_Generated
.
Deployment
.
Entity_Image
(
J
)
&
PolyORB_HI_Generated
.
Deployment
.
Entity_Image
(
J
)
&
" unblocked"
));
&
" unblocked"
));
end
loop
;
end
loop
;
end
Unblock_All_Tasks
;
end
Unblock_All_Tasks
;
end
PolyORB_HI
.
Suspenders
;
end
PolyORB_HI
.
Suspenders
;
src/polyorb_hi-thread_interrogators.ads
View file @
3f2b3f32
...
@@ -6,7 +6,7 @@
...
@@ -6,7 +6,7 @@
-- --
-- --
-- S p e c --
-- 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 --
-- 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 --
-- under terms of the GNU General Public License as published by the Free --
...
@@ -196,7 +196,6 @@ package PolyORB_HI.Thread_Interrogators is
...
@@ -196,7 +196,6 @@ package PolyORB_HI.Thread_Interrogators is
-- set to the message reception time.
-- set to the message reception time.
function
Get_Time_Stamp
(
P
:
Port_Type
)
return
Ada
.
Real_Time
.
Time
;
function
Get_Time_Stamp
(
P
:
Port_Type
)
return
Ada
.
Real_Time
.
Time
;
-- Return the timestamp of the latest value received on data port
-- Return the timestamp of the latest value received on data port P
-- P.
end
PolyORB_HI
.
Thread_Interrogators
;
end
PolyORB_HI
.
Thread_Interrogators
;
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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