← Back to branch summary

~ubuntu-branches/debian/sid/gcc-4.8/sid

« back to all changes in this revision

Viewing changes to .svn/pristine/40/40e3bfaf2696f09b04b87bfac0f2483608094d62.svn-base

  • Committer: Package Import Robot
  • Author(s): Matthias Klose
  • Date: 2014-12-19 19:48:34 UTC
  • Revision ID: package-import@ubuntu.com-20141219194834-4dz1q7rrn5pad823
Tags: 4.8.4-1
* GCC 4.8.4 release.
  - Fix PR target/61407 (darwin), PR middle-end/58624 (ice),
    PR sanitizer/64265 (wrong code).
* Require recent binutils to pass go test failures.

Show diffs side-by-side

added added

removed removed

Lines of Context:
.svn/pristine/40/40e3bfaf2696f09b04b87bfac0f2483608094d62.svn-base
 
1
# DP: - Change the default search path for project files to the one specified
 
2
# DP:   by the Debian Policy for Ada: /usr/share/ada/adainclude.
 
3
 
 
4
Index: b/src/gcc/ada/Make-generated.in
 
5
===================================================================
 
6
--- a/src/gcc/ada/Make-generated.in
 
7
+++ b/src/gcc/ada/Make-generated.in
 
8
@@ -105,7 +105,7 @@
 
9
        $(ECHO) "   S1 : constant String := \"$(ADA_INCLUDE_DIR)/\";" >>tmp-sdefault.adb
 
10
        $(ECHO) "   S2 : constant String := \"$(ADA_RTL_OBJ_DIR)/\";" >>tmp-sdefault.adb
 
11
        $(ECHO) "   S3 : constant String := \"$(target_noncanonical)/\";" >>tmp-sdefault.adb
 
12
-       $(ECHO) "   S4 : constant String := \"$(libsubdir)/\";" >>tmp-sdefault.adb
 
13
+       $(ECHO) "   S4 : constant String := \"/usr/share/ada/adainclude/\";" >>tmp-sdefault.adb
 
14
        $(ECHO) "   function Include_Dir_Default_Name return String_Ptr is" >>tmp-sdefault.adb
 
15
        $(ECHO) "   begin" >>tmp-sdefault.adb
 
16
        $(ECHO) "      return Relocate_Path (S0, S1);" >>tmp-sdefault.adb
 
17
Index: b/src/gcc/ada/prj-env.adb
 
18
===================================================================
 
19
--- a/src/gcc/ada/prj-env.adb
 
20
+++ b/src/gcc/ada/prj-env.adb
 
21
@@ -25,7 +25,6 @@
 
22
 
 
23
 with Fmap;
 
24
 with Hostparm;
 
25
-with Makeutl;  use Makeutl;
 
26
 with Opt;
 
27
 with Osint;    use Osint;
 
28
 with Output;   use Output;
 
29
@@ -1884,6 +1883,7 @@
 
30
      (Self        : in out Project_Search_Path;
 
31
       Target_Name : String)
 
32
    is
 
33
+      pragma Unreferenced (Target_Name);
 
34
       Add_Default_Dir : Boolean := True;
 
35
       First           : Positive;
 
36
       Last            : Positive;
 
37
@@ -2018,59 +2018,10 @@
 
38
 
 
39
       --  Set the initial value of Current_Project_Path
 
40
 
 
41
-      if Add_Default_Dir then
 
42
-         declare
 
43
-            Prefix : String_Ptr;
 
44
-
 
45
-         begin
 
46
-            if Sdefault.Search_Dir_Prefix = null then
 
47
-
 
48
-               --  gprbuild case
 
49
-
 
50
-               Prefix := new String'(Executable_Prefix_Path);
 
51
-
 
52
-            else
 
53
-               Prefix := new String'(Sdefault.Search_Dir_Prefix.all
 
54
-                                     & ".." & Dir_Separator
 
55
-                                     & ".." & Dir_Separator
 
56
-                                     & ".." & Dir_Separator
 
57
-                                     & ".." & Dir_Separator);
 
58
-            end if;
 
59
-
 
60
-            if Prefix.all /= "" then
 
61
-               if Target_Name /= "" then
 
62
-
 
63
-                  --  $prefix/$target/lib/gnat
 
64
-
 
65
-                  Add_Str_To_Name_Buffer
 
66
-                    (Path_Separator & Prefix.all & Target_Name);
 
67
-
 
68
-                  --  Note: Target_Name has a trailing / when it comes from
 
69
-                  --  Sdefault.
 
70
-
 
71
-                  if Name_Buffer (Name_Len) /= '/' then
 
72
-                     Add_Char_To_Name_Buffer (Directory_Separator);
 
73
-                  end if;
 
74
-
 
75
-                  Add_Str_To_Name_Buffer
 
76
-                    ("lib" & Directory_Separator & "gnat");
 
77
-               end if;
 
78
-
 
79
-               --  $prefix/share/gpr
 
80
-
 
81
-               Add_Str_To_Name_Buffer
 
82
-                 (Path_Separator & Prefix.all &
 
83
-                  "share" & Directory_Separator & "gpr");
 
84
-
 
85
-               --  $prefix/lib/gnat
 
86
-
 
87
-               Add_Str_To_Name_Buffer
 
88
-                 (Path_Separator & Prefix.all &
 
89
-                  "lib" & Directory_Separator & "gnat");
 
90
-            end if;
 
91
-
 
92
-            Free (Prefix);
 
93
-         end;
 
94
+      if Add_Default_Dir and Sdefault.Search_Dir_Prefix /= null then
 
95
+         Self.Path :=
 
96
+           new String'(Name_Buffer (1 .. Name_Len) & Path_Separator &
 
97
+                         Sdefault.Search_Dir_Prefix.all);
 
98
       end if;
 
99
 
 
100
       Self.Path := new String'(Name_Buffer (1 .. Name_Len));