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
01b2d3f3
Commit
01b2d3f3
authored
Jun 14, 2014
by
yoogx
Browse files
* Minor reformatting due to new warnings in GNAT GPL 2014
parent
d295b794
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/backends/ocarina-backends-pn-components.adb
View file @
01b2d3f3
...
...
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2008-2009 Telecom ParisTech, 2010-201
2
ESA & ISAE. --
-- Copyright (C) 2008-2009 Telecom ParisTech, 2010-201
4
ESA & ISAE. --
-- --
-- Ocarina is free software; you can redistribute it and/or modify --
-- it under terms of the GNU General Public License as published by the --
...
...
@@ -180,8 +180,8 @@ package body Ocarina.Backends.PN.Components is
if
Instance
/=
No_Node
and
then
PN_Generated
/=
No_Node
then
Success
:=
Process_Component_Instance
(
Instance
,
PN_Generated
);
if
Success
then
null
;
if
not
Success
then
return
No_Node
;
end
if
;
end
if
;
...
...
@@ -202,8 +202,8 @@ package body Ocarina.Backends.PN.Components is
if
Instance
/=
No_Node
and
then
PN_Generated
/=
No_Node
then
Success
:=
Process_Component_Instance
(
Instance
,
PN_Generated
);
if
Success
then
null
;
if
not
Success
then
return
No_Node
;
end
if
;
end
if
;
...
...
@@ -3288,10 +3288,10 @@ package body Ocarina.Backends.PN.Components is
end
if
;
---
-- compilation purpose, to fix
if
PN_Generated
=
No_Node
then
null
;
end
if
;
--
XXX
compilation purpose, to fix
--
if PN_Generated = No_Node then
--
null;
--
end if;
end
PN_Thread_Skeleton
;
...
...
src/backends/ocarina-backends-pn-iutils.adb
View file @
01b2d3f3
...
...
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2009 Telecom ParisTech, 2010-201
2
ESA & ISAE. --
-- Copyright (C) 2009 Telecom ParisTech, 2010-201
4
ESA & ISAE. --
-- --
-- Ocarina is free software; you can redistribute it and/or modify --
-- it under terms of the GNU General Public License as published by the --
...
...
@@ -662,7 +662,7 @@ package body Ocarina.Backends.PN.Iutils is
Set_Tokens_Number
(
P
,
New_Integer_Value
(
0
));
-- compilation
if
M
=
0
then
null
;
-- XXX
raise
Program_Error
;
-- XXX
end
if
;
end
if
;
end
PN_TPN_Init_Place
;
...
...
@@ -726,7 +726,7 @@ package body Ocarina.Backends.PN.Iutils is
-- compilation
if
M
=
0
then
null
;
raise
Program_Error
;
-- XXX
end
if
;
end
if
;
end
PN_TPN_Init_Transition
;
...
...
@@ -1148,7 +1148,7 @@ package body Ocarina.Backends.PN.Iutils is
-- compilation
if
M
=
0
then
null
;
raise
Program_Error
;
-- XXX
end
if
;
end
if
;
end
PN_CPN_Init_Transition
;
...
...
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