Commit 1ee8e6ce authored by TASTE User's avatar TASTE User

Fix regression with callinglist

in Ada wrappers
parent 9ae63cf5
......@@ -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);
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment