1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
Description: fix new gcc-4.9 style warnings
gnat-4.9 triggers new style checks which need a correction since the code
is compiled with both switches -gnaty and -gnatwe
Author:Xavier Grave <xavier.grave@csnsm.in2p3.fr>
--- a/mckae-xml-ez_out-generic_medium.adb
+++ b/mckae-xml-ez_out-generic_medium.adb
@@ -282,7 +282,8 @@
if Attrs /= No_Attributes then
for A in Attrs'Range loop
if (Attrs (A).Value /= Null_Unbounded_String)
- or Default_Output_Null_Attributes then
+ or Default_Output_Null_Attributes
+ then
Append (Tag_Start,
" " & Attrs (A).Attr &
"=""" &
@@ -334,7 +335,8 @@
if Attrs /= No_Attributes then
for A in Attrs'Range loop
if (Attrs (A).Value /= Null_Unbounded_String)
- or Default_Output_Null_Attributes then
+ or Default_Output_Null_Attributes
+ then
Append (Tag_Start,
" " & Attrs (A).Attr &
"=""" &
@@ -388,7 +390,8 @@
if Attrs /= No_Attributes then
for A in Attrs'Range loop
if (Attrs (A).Value /= Null_Unbounded_String)
- or Default_Output_Null_Attributes then
+ or Default_Output_Null_Attributes
+ then
Append (Tag_Start,
" " & Attrs (A).Attr &
"=""" &
|
