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
63d24a9a
Commit
63d24a9a
authored
May 05, 2017
by
TASTE User
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* Add machinery to use GNAT cross runtimes, minor update for output
parent
7e6d2c51
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
23 additions
and
6 deletions
+23
-6
src/polyorb_hi-output.adb
src/polyorb_hi-output.adb
+5
-3
src/polyorb_hi.gpr.in
src/polyorb_hi.gpr.in
+18
-3
No files found.
src/polyorb_hi-output.adb
View file @
63d24a9a
...
...
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2006-2009 Telecom ParisTech, 2010-201
5
ESA & ISAE. --
-- Copyright (C) 2006-2009 Telecom ParisTech, 2010-201
7
ESA & ISAE. --
-- --
-- PolyORB-HI is free software; you can redistribute it and/or modify under --
-- terms of the GNU General Public License as published by the Free Soft- --
...
...
@@ -177,8 +177,10 @@ package body PolyORB_HI.Output is
end
if
;
PolyORB_HI
.
Output_Low_Level
.
Put
(
"["
);
PolyORB_HI
.
Output_Low_Level
.
Put
(
Duration
'
Image
(
To_Duration
(
Elapsed
*
1000
)));
-- XXX The following is disabled as some cross-runtime do not have
-- the capability to build Duration'Image
-- PolyORB_HI.Output_Low_Level.Put
-- (Duration'Image (To_Duration (Elapsed * 1000)));
PolyORB_HI
.
Output_Low_Level
.
Put
(
"] "
);
PolyORB_HI
.
Output_Low_Level
.
Put
(
Text
);
end
Unprotected_Put
;
...
...
src/polyorb_hi.gpr.in
View file @
63d24a9a
...
...
@@ -6,7 +6,7 @@
--
--
--
P
r
o
j
e
c
t
--
--
--
--
Copyright
(
C
)
2007
-
2009
Telecom
ParisTech
,
2010
-
201
5
ESA
&
ISAE
.
--
--
Copyright
(
C
)
2007
-
2009
Telecom
ParisTech
,
2010
-
201
7
ESA
&
ISAE
.
--
--
--
--
PolyORB
-
HI
is
free
software
;
you
can
redistribute
it
and
/
or
modify
under
--
--
terms
of
the
GNU
General
Public
License
as
published
by
the
Free
Soft
-
--
...
...
@@ -31,7 +31,8 @@
project
PolyORB_HI
is
type
Target_Type
is
(
"NATIVE"
,
"LEON_ORK"
,
"LEON_GNAT"
,
"ERC32"
,
"MARTEOS"
);
type
Target_Type
is
(
"NATIVE"
,
"LEON_ORK"
,
"LEON_GNAT"
,
"ERC32"
,
"MARTEOS"
,
"ARM_CORTEX"
);
Target
:
Target_Type
:=
external
(
"TARGET"
,
"NATIVE"
);
type
Build_Type
is
(
"Debug"
,
"Release"
,
"Analyzable"
);
...
...
@@ -122,11 +123,25 @@ project PolyORB_HI is
case
Target
is
when
"NATIVE"
|
"MARTEOS"
=>
for
Local_Configuration_Pragmas
use
"native.adc"
;
when
"LEON_ORK"
|
"LEON_GNAT"
|
"ERC32"
=>
when
"LEON_ORK"
|
"LEON_GNAT"
|
"ERC32"
|
"ARM_CORTEX"
=>
for
Local_Configuration_Pragmas
use
"hi-e.adc"
;
end
case
;
end
Compiler
;
--
Default
configuration
for
GNAT
runtime
for
some
cross
-
targets
.
--
Note
:
PolyORB
-
HI
/
Ada
requires
a
Ravenscar
runtime
--
XXX
:
one
would
need
to
have
this
overriden
from
the
command
line
gnat_runtime
:=
""
;
case
Target
is
when
"ARM_CORTEX"
=>
gnat_runtime
:=
"ravenscar-sfp-stm32f4"
;
when
others
=>
gnat_runtime
:=
""
;
end
case
;
-------------
--
Builder
--
-------------
...
...
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