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
|
Description: fix minor style compiler warnings
.
Some upstream files generate style warnings; these are annoying,
because we have to review them while looking for real errors. So fix
them.
Author: Stephen Leake <stephen_leake@stephe-leake.org>
Forwarded: not-needed
Index: gprbuild-2011/src/gpr_version.ads
===================================================================
--- gprbuild-2011.orig/src/gpr_version.ads 2011-07-20 18:40:36.000000000 -0400
+++ gprbuild-2011/src/gpr_version.ads 2011-07-20 18:40:45.000000000 -0400
@@ -36,7 +36,7 @@
package GPR_Version is
- Gpr_Version: constant String := "2011 (Debian 2011-1)";
+ Gpr_Version : constant String := "2011 (Debian 2011-1)";
-- Static string identifying this version
function Gpr_Version_String return String;
Index: gprbuild-2011/gnat/prj-env.adb
===================================================================
--- gprbuild-2011.orig/gnat/prj-env.adb 2011-07-20 18:53:58.000000000 -0400
+++ gprbuild-2011/gnat/prj-env.adb 2011-07-20 18:54:04.000000000 -0400
@@ -1979,7 +1979,8 @@
-- Set the initial value of Current_Project_Path
if Add_Default_Dir then
- Add_Str_To_Name_Buffer (Path_Separator & Sdefault.Search_Dir_Prefix.all);
+ Add_Str_To_Name_Buffer
+ (Path_Separator & Sdefault.Search_Dir_Prefix.all);
end if;
Self.Path := new String'(Name_Buffer (1 .. Name_Len));
|
