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
a40b450b
Commit
a40b450b
authored
May 13, 2015
by
Arnaud Schach
Browse files
Syntax modifications to compile Ocarina on Windows with MinGW
parent
b1832bec
Changes
4
Hide whitespace changes
Inline
Side-by-side
src/backends/ocarina-backends-deos_conf-partitions.adb
View file @
a40b450b
...
...
@@ -517,15 +517,13 @@ package body Ocarina.Backends.Deos_Conf.Partitions is
and
then
Get_Connection_Pattern
(
F
)
=
Inter_Process
then
if
Is_Data
(
F
)
and
then
not
Is_Event
(
F
)
then
if
Is_Data
(
F
)
and
then
not
Is_Event
(
F
)
then
Append_Node_To_List
(
Map_Sampling_Port
(
F
),
XTN
.
Subitems
(
Sampling_Ports
));
end
if
;
if
Is_Data
(
F
)
and
then
Is_Event
(
F
)
then
if
Is_Data
(
F
)
and
then
Is_Event
(
F
)
then
Append_Node_To_List
(
Map_Queuing_Port
(
F
),
XTN
.
Subitems
(
Queuing_Ports
));
...
...
src/backends/ocarina-backends-vxworks653_conf-connections.adb
View file @
a40b450b
...
...
@@ -183,8 +183,7 @@ package body Ocarina.Backends.Vxworks653_Conf.Connections is
Feature
:=
First_Node
(
Features
(
Corresponding_Process
));
while
Present
(
Feature
)
loop
if
Is_Data
(
Feature
)
and
then
Is_Out
(
Feature
)
then
if
Is_Data
(
Feature
)
and
then
Is_Out
(
Feature
)
then
Port_Source
:=
Feature
;
Port_Destination
:=
Item
(
First_Node
(
Destinations
(
Feature
)));
Partition_Destination
:=
Parent_Component
(
Port_Destination
);
...
...
src/backends/ocarina-backends-vxworks653_conf-naming.adb
View file @
a40b450b
...
...
@@ -272,8 +272,7 @@ package body Ocarina.Backends.Vxworks653_Conf.Naming is
Feature
:=
First_Node
(
Features
(
Corresponding_Process
));
while
Present
(
Feature
)
loop
if
Is_Event
(
Feature
)
and
then
Is_Data
(
Feature
)
then
if
Is_Event
(
Feature
)
and
then
Is_Data
(
Feature
)
then
Size
:=
To_Bytes
(
Get_Data_Size
(
Corresponding_Instance
(
Feature
)));
Queue_Size
:=
Get_Queue_Size
(
Feature
);
...
...
@@ -326,8 +325,7 @@ package body Ocarina.Backends.Vxworks653_Conf.Naming is
XTN
.
Subitems
(
Ports_Node
));
end
if
;
if
not
Is_Event
(
Feature
)
and
then
Is_Data
(
Feature
)
then
if
not
Is_Event
(
Feature
)
and
then
Is_Data
(
Feature
)
then
Size
:=
To_Bytes
(
Get_Data_Size
(
Corresponding_Instance
(
Feature
)));
...
...
tools/mknodes/parser.adb
View file @
a40b450b
...
...
@@ -1797,8 +1797,7 @@ package body Parser is
Output_File
:=
GNAT
.
OS_Lib
.
Standout
;
when
't'
=>
if
GNAT
.
Command_Line
.
Parameter
=
"python"
then
if
GNAT
.
Command_Line
.
Parameter
=
"python"
then
Target_Language
:=
2
;
end
if
;
...
...
@@ -2009,8 +2008,8 @@ package body Parser is
end
if
;
if
Target_Language
=
1
then
-- If the output is not the standard output, compute the spec
-- filename and redirect output.
-- If the output is not the standard output, compute the spec
-- filename and redirect output.
if
Output_Name
/=
Types
.
No_Name
then
Output_File
:=
...
...
@@ -2037,8 +2036,8 @@ package body Parser is
end
if
;
if
Target_Language
=
2
then
-- If the output is not the standard output, compute the body
-- filename and redirect output.
-- If the output is not the standard output, compute the body
-- filename and redirect output.
if
Output_Name
/=
Types
.
No_Name
then
Output_Name
:=
Utils
.
Remove_Suffix_From_Name
(
...
...
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