Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
buildsupport
Commits
1ee8e6ce
Commit
1ee8e6ce
authored
Jul 12, 2017
by
TASTE User
Browse files
Fix regression with callinglist
in Ada wrappers
parent
9ae63cf5
Changes
1
Hide whitespace changes
Inline
Side-by-side
c/ada_wrappers_backend.c
View file @
1ee8e6ce
...
...
@@ -885,23 +885,21 @@ void GLUE_Ada_Wrappers_Backend(FV * fv)
* Mantis ticket 509 is pending on resolution
* In the meantime, the calling stack must be generated if the following
* two conditions are met:
* (1) there is
more than
one syncrhronous PI in the current FV
* (1) there is
at least
one syncrhronous PI in the current FV
* (2) in total, there is more than one possible calling thread
*/
unsigned
count
=
0
;
unsigned
count_ct
=
0
;
unsigned
count_sync_pi
=
0
;
FOREACH
(
ct
,
FV
,
fv
->
calling_threads
,
{
(
void
)
ct
;
count
++
;
count
_ct
++
;
});
if
(
1
<
count
)
{
count
=
0
;
FOREACH
(
pi
,
Interface
,
fv
->
interfaces
,
{
if
(
synch
==
pi
->
synchronism
)
{
count
++
;
}
});
}
if
(
1
<
count
)
{
FOREACH
(
pi
,
Interface
,
fv
->
interfaces
,
{
if
(
synch
==
pi
->
synchronism
)
{
count_sync_pi
++
;
}
});
if
(
1
<
count_ct
&&
0
<
count_sync_pi
)
{
Generate_Ada_CallingStack
(
fv
);
}
...
...
Write
Preview
Supports
Markdown
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