Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
kazoo
Commits
25ce56bf
Commit
25ce56bf
authored
Jul 31, 2019
by
Maxime Perrotin
Browse files
Fix generation of pohi interface
parent
364eb12d
Changes
3
Hide whitespace changes
Inline
Side-by-side
src/taste-concurrency_view.adb
View file @
25ce56bf
...
...
@@ -215,6 +215,7 @@ package body TASTE.Concurrency_View is
Block_Names
:
Vector_Tag
;
Block_Languages
:
Vector_Tag
;
Blocks
:
Unbounded_String
;
Part_Threads
:
Unbounded_String
;
Partition_Assoc
:
Translate_Set
;
-- Connections between threads:
Thread_Src_Name
,
...
...
@@ -255,6 +256,11 @@ package body TASTE.Concurrency_View is
Output_Port_Thread_Name
:=
Output_Port_Thread_Name
&
Each
.
Thread_Name
;
end
loop
;
Put_Info
(
"Partition: "
&
To_String
(
Partition
.
Deployment_Partition
.
Name
));
for
T
of
Partition
.
Threads
loop
Put_Info
(
"Thread: "
&
To_String
(
T
.
Name
));
end
loop
;
for
T
of
Partition
.
Threads
loop
declare
...
...
@@ -279,6 +285,7 @@ package body TASTE.Concurrency_View is
else
""
);
begin
Threads
:=
Threads
&
Newline
&
Result
;
Part_Threads
:=
Part_Threads
&
Newline
&
Result
;
Thread_Names
:=
Thread_Names
&
Name
;
All_Thread_Names
:=
All_Thread_Names
&
Name
;
for
P
of
T
.
Output_Ports
loop
...
...
@@ -383,7 +390,7 @@ package body TASTE.Concurrency_View is
-- Association includes Name, Coverage, CPU Info, etc.
-- (see taste-deployment_view.ads for the complete list)
Partition_Assoc
:=
Partition
.
Deployment_Partition
.
To_Template
&
Assoc
(
"Threads"
,
Threads
)
&
Assoc
(
"Threads"
,
Part_
Threads
)
&
Assoc
(
"Thread_Names"
,
Thread_Names
)
&
Assoc
(
"Node_Name"
,
Node_Name
)
&
Assoc
(
"Blocks"
,
Blocks
)
...
...
templates/concurrency_view/ada_wrappers_body/pi.tmplt
View file @
25ce56bf
...
...
@@ -22,8 +22,12 @@ procedure @_CAPITALIZE:Name_@
@@END_INLINE@@
with Import, Convention => C, Link_Name => "@_LOWER:Parent_Function_@_@_LOWER:Name_@";
begin
@@-- Works only for one param: for more than one param, use a table section
C_@_CAPITALIZE:Name_@ (@_CAPITALIZE:Param_Names_@, @_CAPITALIZE:Param_Names_@_Size);
C_@_CAPITALIZE:Name_@
@@INLINE( \()(,\n )(\);)@@
@@TABLE@@
@_CAPITALIZE:Param_Names_@, @_CAPITALIZE:Param_Names_@_Size
@@END_TABLE@@
@@END_INLINE@@
end @_CAPITALIZE:Name_@;
@@ELSE@@
procedure @_CAPITALIZE:Name_@ is
...
...
templates/concurrency_view/air_gpr/partition.tmplt
View file @
25ce56bf
...
...
@@ -44,8 +44,8 @@ project @_CAPITALIZE:Name_@_AIR is
"-fdiagnostics-show-option"
,
"-Wcast-align"
,
"-Wswitch"
,
"-ffunction-sections"
,
"-fdata-sections"
,
--
"-ffunction-sections"
,
--
"-fdata-sections"
,
"-Wmissing-prototypes"
,
"-Wimplicit-function-declaration"
,
"-Wstrict-prototypes"
,
...
...
@@ -75,7 +75,7 @@ project @_CAPITALIZE:Name_@_AIR is
(
"@_LOWER:Name_@"
,
"/home/taste/air/air/pmk/core/include"
,
"/home/taste/air/air/pmk/arch/sparc/include"
,
"/home/taste/air/air/libs/imaspex/include"
,
"/home/taste/air/air/
install/
libs/imaspex/include"
,
"../deploymentview_final/polyorb-hi-c/src"
,
"../deploymentview_final/polyorb-hi-c/include"
,
"../../dataview/C"
,
...
...
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