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
Ocarina
Commits
e57e4a4a
Commit
e57e4a4a
authored
Jun 19, 2014
by
yoogx
Browse files
* Correct some warnigns
parent
78b6cd55
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/backends/ocarina-backends-pn-components.adb
View file @
e57e4a4a
...
...
@@ -151,6 +151,7 @@ package body Ocarina.Backends.PN.Components is
Instance
:
Node_Id
;
PN_Generated
:
Node_Id
;
Success
:
Boolean
:=
False
;
pragma
Warnings
(
Off
,
Success
);
-- XXX
-- 0 for CPN, 1 for TPN
Formalism
:
constant
Value_Id
:=
New_Integer_Value
(
F
);
...
...
src/backends/ocarina-backends-pn-iutils.adb
View file @
e57e4a4a
...
...
@@ -654,6 +654,7 @@ package body Ocarina.Backends.PN.Iutils is
is
use
Ocarina
.
Backends
.
PN
.
Nodes
;
use
Ocarina
.
Aadl_Values
;
pragma
Unreferenced
(
M
);
begin
if
P
/=
No_Node
and
then
PN_G
/=
No_Node
then
...
...
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