Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
Ocarina
Commits
a37a9efb
Commit
a37a9efb
authored
Oct 07, 2019
by
bouazizrahma
Committed by
Jerome Hugues
Oct 07, 2019
Browse files
using a different name for Call_Parameters1
parent
aabafe2e
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/backends/po_hi_c/ocarina-backends-po_hi_c-activity.adb
View file @
a37a9efb
...
...
@@ -364,7 +364,7 @@ package body Ocarina.Backends.PO_HI_C.Activity is
Impl_Kind
:
constant
Supported_Thread_Implementation
:=
Get_Thread_Implementation_Kind
(
E
);
Call_Parameters
:
List_Id
;
Call_Parameters
1
:
List_Id
;
Call_Parameters
_Of_BA_Initialization_Function
:
List_Id
;
N
,
N1
:
Node_Id
;
procedure
Make_Wait_Event
;
...
...
@@ -1548,7 +1548,8 @@ package body Ocarina.Backends.PO_HI_C.Activity is
Append_Node_To_List
(
N
,
Statements
);
Call_Parameters
:=
New_List
(
CTN
.
K_Parameter_List
);
Call_Parameters1
:=
New_List
(
CTN
.
K_Parameter_List
);
Call_Parameters_Of_BA_Initialization_Function
:=
New_List
(
CTN
.
K_Parameter_List
);
if
Current_Device
/=
No_Node
then
N
:=
Make_Defining_Identifier
...
...
@@ -1560,7 +1561,9 @@ package body Ocarina.Backends.PO_HI_C.Activity is
N1
:=
Make_Defining_Identifier
(
Map_C_Enumerator_Name
(
S
));
end
if
;
Append_Node_To_List
(
N
,
Call_Parameters
);
Append_Node_To_List
(
N1
,
Call_Parameters1
);
Append_Node_To_List
(
N1
,
Call_Parameters_Of_BA_Initialization_Function
);
N
:=
CTU
.
Make_Call_Profile
(
RE
(
RE_Wait_For_Next_Period
),
...
...
@@ -1581,7 +1584,9 @@ package body Ocarina.Backends.PO_HI_C.Activity is
Make_Variable_Address
(
Map_C_Defining_Identifier
(
N1
));
Append_Node_To_List
(
N
,
Call_Parameters1
);
Append_Node_To_List
(
N
,
Call_Parameters_Of_BA_Initialization_Function
);
end
if
;
N1
:=
Next_Node
(
N1
);
...
...
@@ -1609,7 +1614,8 @@ package body Ocarina.Backends.PO_HI_C.Activity is
(
Defining_Identifier
=>
Make_Defining_Identifier
(
Map_C_BA_Related_Function_Name
(
S
,
BA_Initialization
=>
True
)),
Parameters
=>
Call_Parameters1
);
Parameters
=>
Call_Parameters_Of_BA_Initialization_Function
);
Append_Node_To_List
(
N
,
Statements
);
N
:=
...
...
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