dev-ada/gnatcoll: Enable build with gnat_2016 & remove old

Signed-off-by: Alfredo Tupone <tupone@gentoo.org>
Package-Manager: Portage-2.3.51, Repoman-2.3.11

2 files changed, 33 insertions, 433 deletions

diff --git a/dev-ada/gnatcoll/files/gnatcoll-2016-gentoo.patch b/dev-ada/gnatcoll/files/gnatcoll-2016-gentoo.patch
deleted file mode 100644
index ee987a72c1ff..000000000000
--- a/dev-ada/gnatcoll/files/gnatcoll-2016-gentoo.patch
+++ /dev/null
@@ -1,297 +0,0 @@
---- a/Makefile	2017-01-20 19:39:07.131398270 +0100
-+++ b/Makefile	2017-01-20 19:42:30.088728844 +0100
-@@ -28,7 +28,7 @@
- 
- # Build either type of library. The argument (%) is the type of library to build
- 
--GPRBLD_OPTS=-p -m -j${PROCESSORS} -XLIBRARY_TYPE=$(@F) -XGnatcoll_Build=${Gnatcoll_Build}
-+GPRBLD_OPTS=-p -m -j${PROCESSORS} -XGPR_BUILD=$(@F) -XLIBRARY_TYPE=$(@F) -XGnatcoll_Build=${Gnatcoll_Build}
- 
- build_library_type/%: generate_sources
- 	@${RM} src/gnatcoll-atomic.adb
-@@ -34,19 +36,19 @@
- 	@${RM} src/gnatcoll-atomic.adb
- 
- 	@echo "====== Building $(@F) libraries ======"
--	${GPRBUILD} ${GPRBLD_OPTS} -Pgnatcoll_full
-+	${GPRBUILD} ${GPRBLD_OPTS} -Pgnatcoll_full -v -cargs ${ADAFLAGS}
- 
- 	@# Need to build libgnatcoll_gtk separately, because its project files
- 	@# requires gtkada.gpr, which might not exist on the machine.
- ifeq (${WITH_GTK},yes)
--	${GPRBUILD} ${GPRBLD_OPTS} -Psrc/gnatcoll_gtk
-+	${GPRBUILD} ${GPRBLD_OPTS} -Psrc/gnatcoll_gtk -v -cargs ${ADAFLAGS}
- endif
- 
- 	@# Build the tools (the list is the project\'s Main attribute)
- 	@# They are not build as part of the above because only the Main from
- 	@# gnatcoll_full.gpr are build. We could use aggregate projects to
- 	@# speed things up.
--	${GPRBUILD} ${GPRBLD_OPTS} -q -Psrc/gnatcoll_tools
-+	${GPRBUILD} ${GPRBLD_OPTS} -q -Psrc/gnatcoll_tools -v -cargs ${ADAFLAGS}
- 
- #######################################################################
- #  install
-@@ -53,6 +53,7 @@
- 
- GPRINST_OPTS=-p -f --prefix=${prefix} --install-name=gnatcoll \
- 	--exec-subdir=${bindir} --project-subdir=lib/gnat \
-+	-XGPR_BUILD=$(@F) \
- 	--build-var=LIBRARY_TYPE --build-name=$(@F) -XLIBRARY_TYPE=$(@F)
- 
- install-clean:
---- a/gnatcoll_shared.gpr.in	2017-01-20 19:50:03.222808656 +0100
-+++ b/gnatcoll_shared.gpr.in	2017-01-20 19:50:28.200399274 +0100
-@@ -13,7 +13,7 @@
- 
-    type Yes_No is ("yes", "no");
-    Gtk    : Yes_No := External ("GTK", "@WITH_GTK@");
--   Python : Yes_No := External ("PYTHON", "@WITH_PYTHON@");
-+   Python : Yes_No := "@WITH_PYTHON@";
-    Syslog : Yes_No := External ("SYSLOG", "@WITH_SYSLOG@");
-    Postgres : Yes_No := External ("POSTGRES", "@WITH_POSTGRES@");
-    type Sqlite_Inclusion is ("yes", "no", "embedded");
---- a/aclocal.m4	2017-04-06 08:25:14.796699365 +0200
-+++ b/aclocal.m4	2017-04-06 08:25:36.622318016 +0200
-@@ -45,7 +45,7 @@
-    cat > conftest.ada <<EOF
- [$3]
- EOF
--   if AC_TRY_COMMAND([gnatchop -q conftest.ada && $1 $2 >/dev/null 2>conftest.out])
-+   if AC_TRY_COMMAND([${GNATCHOP} -q conftest.ada && $1 $2 >/dev/null 2>conftest.out])
-    then
-       : Success
-       $4
-@@ -68,7 +68,7 @@
- AC_DEFUN(AM_HAS_INTRINSIC_SYNC_COUNTERS,
- [
-   AC_MSG_CHECKING([whether platform supports atomic inc/dec])
--  AM_TRY_ADA([gnatmake], [check.adb],
-+  AM_TRY_ADA([${GNATMAKE}], [check.adb],
- [
- with Interfaces; use Interfaces;
- procedure Check is
---- a/testsuite/json/__init__.py	2017-04-24 17:52:34.158513249 +0200
-+++ b/testsuite/json/__init__.py	2017-04-24 17:52:52.636207017 +0200
-@@ -21,7 +21,7 @@
-     @requires_not_aix    # Storage_Error on that machine
-     @chdir("MB28-001")
-     def test_MB28_001(self):
--        self.runexec(["python", "make_json.py"])
-+        self.runexec(["python2.7", "make_json.py"])
-         self.gprbuild()
-         self.runexec("json_stack_test", "test.out")
- 
---- a/testsuite/projects/__init__.py	2017-04-24 19:10:30.465246199 +0200
-+++ b/testsuite/projects/__init__.py	2017-04-24 19:10:42.768035080 +0200
-@@ -105,25 +105,6 @@
-         self.gprbuild("default.gpr")
-         self.runexec("main", "")
- 
--    @support.requires_not_windows
--    @chdir("N918-040")
--    def test_bareboard(self):
--        self.create_fake_bb_compiler('install', 'arm-eabi', '6.1.0w', '3.4.6')
--
--        # Make sure auto.cgpr is not deleted on exit
--        try:
--            os.unlink('auto.cgpr')
--        except:
--            pass
--        self.gprbuild('main_prj', switches=['--autoconf=auto.cgpr'])
--        m = re.search('for Target use "(.*?)"', open('auto.cgpr').read())
--        target = m.group(1)
--
--        def customFilter(actual):
--            return actual.replace(target, "<native>")
--
--        self.runexec(['sh', 'test.sh'], 'test.out', customFilter=customFilter)
--
-     @chdir("NB12-045")
-     def test_NB12_045(self):
-         # Test registering attribute in unknown package
---- a/src/tools/gnatcoll_db2ada.adb	2017-04-24 21:36:09.193973179 +0200
-+++ b/src/tools/gnatcoll_db2ada.adb	2017-04-24 21:36:16.029858932 +0200
-@@ -211,7 +211,7 @@
- 
-       declare
-          Output : constant String := Get_Command_Output
--           (Command     => "python",
-+           (Command     => "python2.7",
-             Arguments   => Args,
-             Input       => "",
-             Status      => Status'Access,
---- a/src/gnatcoll_python.gpr.in	2018-11-11 11:04:46.275182850 +0100
-+++ b/src/gnatcoll_python.gpr.in	2018-11-11 11:10:22.809783463 +0100
-@@ -33,14 +33,19 @@
-       "lib" & Project'Library_Name
-       & GnatColl_Shared.So_Ext & "." & GnatColl_Shared.Version;
- 
--   --  When linking a shared library (see Linker_Options below in addition)
--   for Library_Options use GnatColl_Shared.Python_Libs;
--
-    case GnatColl_Shared.Python is
-       when "yes" =>
-          for Languages use ("Ada", "C");
-          for Source_Dirs use ("python");
--         for Library_Options use (@PYTHON_LIBS_GPR@);
-+         case Gnatcoll_Shared.Library_Type is
-+            when "relocatable" =>
-+               --  When linking a shared library (see Linker_Options
-+               --  below in addition)
-+               for Library_Options use GnatColl_Shared.Python_Libs;
-+            when others =>
-+               null;
-+         end case;
-+
-       when "no"  =>
-          for Languages use ("Ada");
-          for Source_Dirs use ("nopython");
---- a/src/gnatcoll_iconv.gpr	2018-11-11 11:39:47.736090039 +0100
-+++ b/src/gnatcoll_iconv.gpr	2018-11-11 11:40:42.161198640 +0100
-@@ -44,7 +44,13 @@
-         for Source_Dirs use ("iconv", "iconv/no_iconv");
-       when "yes" =>
-         for Source_Dirs use ("iconv", "iconv/with_iconv");
--        for Library_Options use (GnatColl_Shared.Iconv_Dir) & Gnatcoll_Shared.Iconv_Lib;
-+        case Gnatcoll_Shared.Library_Type is
-+           when "relocatable" =>
-+              for Library_Options use (GnatColl_Shared.Iconv_Dir)
-+                 & Gnatcoll_Shared.Iconv_Lib;
-+           when others =>
-+              null;
-+        end case;
-    end case;
- 
-    package Compiler is
---- a/src/gnatcoll_sqlite.gpr	2018-11-11 11:45:36.672371038 +0100
-+++ b/src/gnatcoll_sqlite.gpr	2018-11-11 11:48:24.898610725 +0100
-@@ -51,8 +51,15 @@
-         for Source_Dirs use ("sqlite", "sqlite/no_sqlite");
-       when "yes" =>
-         for Source_Dirs use ("sqlite", "sqlite/with_sqlite");
--        for Library_Options use (GnatColl_Shared.Sqlite_Dir)
--          & "-lsqlite3" & Thread_Lib;
-+
-+        case Gnatcoll_Shared.Library_Type is
-+           when "relocatable" =>
-+              for Library_Options use (GnatColl_Shared.Sqlite_Dir)
-+                & "-lsqlite3" & Thread_Lib;
-+           when others =>
-+              null;
-+        end case;
-+
-       when "embedded" =>
-         for Languages use ("Ada", "C");
-         for Source_Dirs use ("sqlite", "sqlite/with_sqlite", "sqlite/amalgamation");
---- a/src/gnatcoll_readline.gpr.in	2018-11-11 11:51:19.119750140 +0100
-+++ b/src/gnatcoll_readline.gpr.in	2018-11-11 11:52:00.531069930 +0100
-@@ -6,7 +6,14 @@
-       when "yes" =>
-          for Languages use ("Ada");
-          for Source_Dirs use ("readline", "readline/with_readline");
--         for Library_Options use ("-lreadline");
-+
-+         case Gnatcoll_Shared.Library_Type is
-+            when "relocatable" =>
-+               for Library_Options use ("-lreadline");
-+            when others =>
-+               null;
-+         end case;
-+
-       when "no" =>
-          for Source_Dirs use ("readline", "readline/no_readline");
-    end case;
---- a/src/gnatcoll_gtk.gpr.in	2018-11-11 11:55:32.460587328 +0100
-+++ b/src/gnatcoll_gtk.gpr.in	2018-11-11 11:56:15.930872692 +0100
-@@ -47,8 +47,15 @@
-          for Source_Dirs use ();
-       when "yes" =>
-          for Source_Dirs use ("gtk");
--         for Library_Options use GnatColl_Shared.Gtk_Libs
--            & GnatColl_Shared.Python_Libs;
-+
-+         case Gnatcoll_Shared.Library_Type is
-+            when "relocatable" =>
-+               for Library_Options use GnatColl_Shared.Gtk_Libs
-+                  & GnatColl_Shared.Python_Libs;
-+            when others =>
-+               null;
-+         end case;
-+
-          case GnatColl_Shared.Python is
-             when "yes" =>
-                for Source_Dirs use Project'Source_Dirs & ("gtk/python");
---- a/src/gnatcoll-projects-normalize.adb	2018-11-13 19:34:01.491003676 +0100
-+++ b/src/gnatcoll-projects-normalize.adb	2018-11-13 19:34:16.289760553 +0100
-@@ -2202,7 +2202,7 @@
-             when N_Comment_Zones =>
-                null;
- 
--            when N_Comment =>
-+            when others =>
-                null;
-          end case;
-       end if;
---- a/src/gnatcoll-projects.adb	2018-11-14 18:47:27.760365233 +0100
-+++ b/src/gnatcoll-projects.adb	2018-11-14 19:10:43.961337201 +0100
-@@ -3273,9 +3273,9 @@
-       Status                   : out Status_Type;
-       Result                   : out GNATCOLL.VFS.File_Array_Access)
-    is
--      Mains_Str_List : String_List_Access;
-+      Mains_Str_List : String_Vectors.Vector;
-       Closure_Status : GPR.Util.Status_Type;
--      Closures_List  : String_List_Access;
-+      Closures_List  : String_Vectors.Vector;
-    begin
-       Trace (Me, "Get_Closures");
- 
-@@ -3287,25 +3287,18 @@
-          return;
-       end if;
- 
--      Mains_Str_List := new String_List (Mains'First .. Mains'Last);
-       for I in Mains'Range loop
--         Mains_Str_List (I) := new String'(Mains (I).Display_Base_Name);
-+         Mains_Str_List.Append (Mains (I).Display_Base_Name);
-       end loop;
- 
-       GPR.Util.Get_Closures
-         (Project.Get_View, Project.Tree_View,
--         Mains                    => Mains_Str_List.all,
-+         Mains                    => Mains_Str_List,
-          All_Projects             => All_Projects,
-          Include_Externally_Built => Include_Externally_Built,
-          Status                   => Closure_Status,
-          Result                   => Closures_List);
- 
--      --  Freeing temporary list of mains.
--      for I in Mains_Str_List'Range loop
--         Free (Mains_Str_List (I));
--      end loop;
--      Free (Mains_Str_List);
--
-       case Closure_Status is
-          when Success =>
-             Status := Success;
-@@ -3321,17 +3314,10 @@
-       end case;
- 
-       if Closure_Status in Success | Incomplete_Closure then
--         for I in Closures_List'Range loop
--            Append (Result, Create (+Closures_List (I).all));
-+         for Closure of Closures_List loop
-+            Append (Result, Create (+Closure));
-          end loop;
-       end if;
--
--      --  Freeing temporary list of closures.
--      for I in Closures_List'Range loop
--         Free (Closures_List (I));
--      end loop;
--      Free (Closures_List);
--
-    end Get_Closures;
- 
-    ----------------
diff --git a/dev-ada/gnatcoll/files/gnatcoll-2017-gentoo.patch b/dev-ada/gnatcoll/files/gnatcoll-2017-gentoo.patch
index ecec0b784589..36da82626f4c 100644
--- a/dev-ada/gnatcoll/files/gnatcoll-2017-gentoo.patch
+++ b/dev-ada/gnatcoll/files/gnatcoll-2017-gentoo.patch
@@ -1,63 +1,45 @@
---- gnatcoll-gpl-2016-src/Makefile.old	2017-01-20 19:39:07.131398270 +0100
-+++ gnatcoll-gpl-2016-src/Makefile	2017-01-20 19:42:30.088728844 +0100
-@@ -49,12 +49,12 @@
+--- a/Makefile	2017-01-20 19:39:07.131398270 +0100
++++ b/Makefile	2017-01-20 19:42:30.088728844 +0100
+@@ -43,18 +43,18 @@
+ 
+ # Build either type of library. The argument (%) is the type of library to build
+ 
+-GPRBLD_OPTS=-p -m -j${PROCESSORS} -XLIBRARY_TYPE=$(@F) -XGnatcoll_Build=${Gnatcoll_Build} -XXMLADA_BUILD=$(@F)
++GPRBLD_OPTS=-p -m -j${PROCESSORS} -XGPR_BUILD=$(@F) -XLIBRARY_TYPE=$(@F) -XGnatcoll_Build=${Gnatcoll_Build} -XXMLADA_BUILD=$(@F)
+ 
+ build_library_type/%: generate_sources
  	@${RM} src/gnatcoll-atomic.adb
  
  	@echo "====== Building $(@F) libraries ======"
 -	${GPRBUILD} ${GPRBLD_OPTS} -Pgnatcoll_full
-+	${GPRBUILD} ${GPRBLD_OPTS} -Pgnatcoll_full -cargs ${ADAFLAGS}
++	${GPRBUILD} ${GPRBLD_OPTS} -Pgnatcoll_full -v -cargs ${ADAFLAGS}
  
  	@# Need to build libgnatcoll_gtk separately, because its project files
  	@# requires gtkada.gpr, which might not exist on the machine.
  ifeq (${WITH_GTK},yes)
 -	${GPRBUILD} ${GPRBLD_OPTS} -Psrc/gnatcoll_gtk
-+	${GPRBUILD} ${GPRBLD_OPTS} -Psrc/gnatcoll_gtk -cargs ${ADAFLAGS}
++	${GPRBUILD} ${GPRBLD_OPTS} -Psrc/gnatcoll_gtk -v -cargs ${ADAFLAGS}
  endif
  
  build_tools/%: build_library_type/%
-@@ -63,7 +63,7 @@
+@@ -63,13 +63,14 @@
  	@# They are not build as part of the above because only the Main from
  	@# gnatcoll_full.gpr are build. We could use aggregate projects to
  	@# speed things up.
 -	${GPRBUILD} ${GPRBLD_OPTS} -q -Psrc/gnatcoll_tools
-+	${GPRBUILD} ${GPRBLD_OPTS} -q -Psrc/gnatcoll_tools -cargs ${ADAFLAGS}
++	${GPRBUILD} ${GPRBLD_OPTS} -q -Psrc/gnatcoll_tools -v -cargs ${ADAFLAGS}
  
  #######################################################################
  #  install
---- gnatcoll-gpl-2015-src/src/gnatcoll_iconv.gpr.old	2017-01-07 08:58:01.361112843 +0100
-+++ gnatcoll-gpl-2015-src/src/gnatcoll_iconv.gpr	2017-01-07 08:58:23.653687385 +0100
-@@ -26,6 +26,7 @@
  
-    package Compiler is
-       for Switches ("Ada") use GnatColl_Shared.Compiler'Switches ("Ada");
-+      for Driver ("C") use External ("GCC", "gcc");
-       for Switches ("C") use GnatColl_Shared.Compiler'Switches ("C")
-           & GnatColl_Shared.Iconv_Include;
-    end Compiler;
---- gnatcoll-gpl-2015-src/src/gnatcoll_sqlite.gpr.old	2017-01-07 09:00:17.146448202 +0100
-+++ gnatcoll-gpl-2015-src/src/gnatcoll_sqlite.gpr	2017-01-07 09:00:44.884885281 +0100
-@@ -60,8 +60,9 @@
+ GPRINST_OPTS=-p -f --prefix=${prefix} --install-name=gnatcoll \
+ 	--exec-subdir=${bindir} --project-subdir=lib/gnat -XXMLADA_BUILD=$(@F) \
++	-XGPR_BUILD=$(@F) \
+ 	--build-var=LIBRARY_TYPE --build-name=$(@F) -XLIBRARY_TYPE=$(@F)
  
-                   --  force full optimization for sqlite, we do not debug it
-                   --  in any case.
-                   "-O3") & Gnatcoll_Shared.Sqlite_Switches;
-       end case;
-+      for Driver ("C") use External ("GCC", "gcc");
-    end Compiler;
- 
-    package Linker is
---- gnatcoll-gpl-2015-src/src/gnatcoll_postgres.gpr.old	2017-01-07 09:05:09.177756146 +0100
-+++ gnatcoll-gpl-2015-src/src/gnatcoll_postgres.gpr	2017-01-07 09:05:34.282279733 +0100
-@@ -38,6 +38,7 @@
-            for Switches ("C") use
-               GnatColl_Shared.Compiler'Switches ("C");
-       end case;
-+      for Driver ("C") use External ("GCC", "gcc");
-    end Compiler;
- 
-    package Linker is
---- gnatcoll-gpl-2016-src/gnatcoll_shared.gpr.in.old	2017-01-20 19:50:03.222808656 +0100
-+++ gnatcoll-gpl-2016-src/gnatcoll_shared.gpr.in	2017-01-20 19:50:28.200399274 +0100
+ install-clean:
+--- a/gnatcoll_shared.gpr.in	2017-01-20 19:50:03.222808656 +0100
++++ b/gnatcoll_shared.gpr.in	2017-01-20 19:50:28.200399274 +0100
 @@ -13,7 +13,7 @@
  
     type Yes_No is ("yes", "no");
@@ -67,29 +49,8 @@
     Syslog    : Yes_No := External ("SYSLOG", "@WITH_SYSLOG@");
     Postgres  : Yes_No := External ("POSTGRES", "@WITH_POSTGRES@");
     type Sqlite_Inclusion is ("yes", "no", "embedded");
---- gnatcoll-gpl-2016-src/src/gnatcoll__libgpr.gpr.old	2017-02-04 15:56:11.685079607 +0100
-+++ gnatcoll-gpl-2016-src/src/gnatcoll__libgpr.gpr	2017-02-04 15:57:00.383221978 +0100
-@@ -49,6 +49,8 @@
-    package Builder renames GnatColl_Shared.Builder;
- 
-    package Compiler is
-+      for Driver ("C") use External ("GCC", "gcc");
-+
-       for Switches ("Ada") use GnatColl_Shared.Compiler'Switches ("Ada");
-       for Switches ("C") use GnatColl_Shared.Compiler'Switches ("C");
-       for Switches ("sinfo.adb") use Compiler'Switches ("Ada") & ("-gnatg");
---- gnatcoll-gpl-2016-src/src/gnatcoll__nogpr.gpr.old	2017-02-04 15:58:41.008450044 +0100
-+++ gnatcoll-gpl-2016-src/src/gnatcoll__nogpr.gpr	2017-02-04 15:59:02.815066080 +0100
-@@ -64,6 +64,7 @@
-       for Switches ("Ada") use GnatColl_Shared.Compiler'Switches ("Ada");
-       for Switches ("C") use GnatColl_Shared.Compiler'Switches ("C");
-       for Switches ("sinfo.adb") use Compiler'Switches ("Ada") & ("-gnatg");
-+      for Driver ("C") use External ("GCC", "gcc");
- 
-       case GnatColl_Shared.Atomics is
-          when "intrinsic" =>
---- gnatcoll-gpl-2016-src/aclocal.m4.old	2017-04-06 08:25:14.796699365 +0200
-+++ gnatcoll-gpl-2016-src/aclocal.m4	2017-04-06 08:25:36.622318016 +0200
+--- a/aclocal.m4	2017-04-06 08:25:14.796699365 +0200
++++ b/aclocal.m4	2017-04-06 08:25:36.622318016 +0200
 @@ -45,7 +45,7 @@
     cat > conftest.ada <<EOF
  [$3]
@@ -108,8 +69,8 @@
  [
  with Interfaces; use Interfaces;
  procedure Check is
---- gnatcoll-gpl-2016-src/testsuite/json/__init__.py.old	2017-04-24 17:52:34.158513249 +0200
-+++ gnatcoll-gpl-2016-src/testsuite/json/__init__.py	2017-04-24 17:52:52.636207017 +0200
+--- a/testsuite/json/__init__.py	2017-04-24 17:52:34.158513249 +0200
++++ b/testsuite/json/__init__.py	2017-04-24 17:52:52.636207017 +0200
 @@ -21,7 +21,7 @@
      @requires_not_aix    # Storage_Error on that machine
      @chdir("MB28-001")
@@ -119,26 +80,8 @@
          self.gprbuild()
          self.runexec("json_stack_test", "test.out")
  
---- gnatcoll-gpl-2016-src/testsuite/projects/aggregate_create/c1/c.gpr.old	2017-04-24 18:00:21.652975475 +0200
-+++ gnatcoll-gpl-2016-src/testsuite/projects/aggregate_create/c1/c.gpr	2017-04-24 18:01:23.035983670 +0200
-@@ -15,5 +15,6 @@
-       for Default_Switches ("ada") use

-         ("-g", "-gnatQ", "-O1", "-gnatf", "-gnato", "-gnatwa.Xe", "-gnaty");

-+      for Driver ("c") use External ("GCC", "gcc");

-    end Compiler;

- 

- end c;

---- gnatcoll-gpl-2016-src/testsuite/projects/aggregate_create/c2/c.gpr.old	2017-04-24 18:01:28.394896928 +0200
-+++ gnatcoll-gpl-2016-src/testsuite/projects/aggregate_create/c2/c.gpr	2017-04-24 18:01:44.343638682 +0200
-@@ -15,5 +15,6 @@
-       for Default_Switches ("ada") use

-         ("-g", "-gnatQ", "-O1", "-gnatf", "-gnato", "-gnatwa.Xe", "-gnaty");

-+      for Driver ("C") use External ("GCC", "gcc");

-    end Compiler;

- 

- end c;

---- gnatcoll-gpl-2016-src/testsuite/projects/__init__.py.old	2017-04-24 19:10:30.465246199 +0200
-+++ gnatcoll-gpl-2016-src/testsuite/projects/__init__.py	2017-04-24 19:10:42.768035080 +0200
+--- a/testsuite/projects/__init__.py	2017-04-24 19:10:30.465246199 +0200
++++ b/testsuite/projects/__init__.py	2017-04-24 19:10:42.768035080 +0200
 @@ -105,25 +105,6 @@
          self.gprbuild("default.gpr")
          self.runexec("main", "")
@@ -165,27 +108,8 @@
      @chdir("NB12-045")
      def test_NB12_045(self):
          # Test registering attribute in unknown package
---- gnatcoll-gpl-2016-src/testsuite/xref/tabs/default.gpr.old	2017-04-24 20:01:55.535913959 +0200
-+++ gnatcoll-gpl-2016-src/testsuite/xref/tabs/default.gpr	2017-04-24 20:02:51.740950192 +0200
-@@ -1,3 +1,6 @@
- project Default is
-    for Languages use ("Ada", "C");
-+   package Compiler is
-+      for Driver ("C") use External ("GCC", "gcc");
-+   end Compiler;
- end Default;
---- gnatcoll-gpl-2016-src/testsuite/xref/doc1/dummy.gpr.old	2017-04-24 20:04:12.012574064 +0200
-+++ gnatcoll-gpl-2016-src/testsuite/xref/doc1/dummy.gpr	2017-04-24 20:04:54.025853974 +0200
-@@ -6,4 +6,7 @@
-       for Body_Suffix ("c++") use ".cc";
-    end Naming;
- 
-+   package Compiler is
-+      for Driver ("C") use External ("GCC", "gcc");
-+   end Compiler;
- end Dummy;
---- gnatcoll-gpl-2016-src/src/tools/gnatcoll_db2ada.adb.old	2017-04-24 21:36:09.193973179 +0200
-+++ gnatcoll-gpl-2016-src/src/tools/gnatcoll_db2ada.adb	2017-04-24 21:36:16.029858932 +0200
+--- a/src/tools/gnatcoll_db2ada.adb	2017-04-24 21:36:09.193973179 +0200
++++ b/src/tools/gnatcoll_db2ada.adb	2017-04-24 21:36:16.029858932 +0200
 @@ -211,7 +211,7 @@
  
        declare
@@ -195,35 +119,8 @@
              Arguments   => Args,
              Input       => "",
              Status      => Status'Access,
---- gnatcoll-gpl-2017-src/src/gnatcoll_python.gpr.old	2017-06-24 18:06:19.702063079 +0200
-+++ gnatcoll-gpl-2017-src/src/gnatcoll_python.gpr	2017-06-24 18:05:04.276103652 +0200
-@@ -60,6 +60,7 @@
- 
-       for Switches ("C") use
--        ("-g", "-O2") & GnatColl_Shared.Python_Cflags;
-+        ("-g", "-O2", "-fPIC") & GnatColl_Shared.Python_Cflags;
-+      for Driver ("C") use External ("GCC", "gcc");
-    end Compiler;
- 
-    package Linker is
---- gnatcoll-gpl-2017-src/src/gnatcoll_gtk.gpr.old	2017-06-24 18:37:22.164631219 +0200
-+++ gnatcoll-gpl-2017-src/src/gnatcoll_gtk.gpr	2017-06-24 18:37:55.763186201 +0200
-@@ -71,11 +71,12 @@
-       for Switches ("Ada") use GnatColl_Shared.Compiler'Switches ("Ada");
- 
-       for Switches ("C") use
--        ("-g", "-O2")
-+        ("-g", "-O2", "-fPIC")
-         & GnatColl_Shared.Python_Cflags
-         & GnatColl_Shared.Pygtk_Include
-         & GnatColl_Shared.PyGobject_Include
-         & Gtk_Include;
-+      for Driver ("C") use External ("GCC", "gcc");
-    end Compiler;
- 
-    package Linker is
---- gnatcoll-gpl-2017-src/src/gnatcoll-projects.ads.old	2017-11-25 14:50:06.919939453 +0100
-+++ gnatcoll-gpl-2017-src/src/gnatcoll-projects.ads	2017-11-25 14:50:38.932387204 +0100
+--- a/src/gnatcoll-projects.ads	2017-11-25 14:50:06.919939453 +0100
++++ b/src/gnatcoll-projects.ads	2017-11-25 14:50:38.932387204 +0100
 @@ -1917,7 +1917,8 @@
        Predefined_Source_Files : GNATCOLL.VFS.File_Array_Access;
        --  The list of source files in Predefined_Source_Path
@@ -234,8 +131,8 @@
        --  The default gnatls command to run.
  
        Xrefs_Subdir : GNAT.Strings.String_Access;
---- gnatcoll-gpl-2017-src/src/tools/gnatinspect.adb.old	2017-11-25 14:52:47.282170250 +0100
-+++ gnatcoll-gpl-2017-src/src/tools/gnatinspect.adb	2017-11-25 14:52:57.691990254 +0100
+--- a/src/tools/gnatinspect.adb	2017-11-25 14:52:47.282170250 +0100
++++ b/src/tools/gnatinspect.adb	2017-11-25 14:52:57.691990254 +0100
 @@ -642,7 +642,7 @@
        GNAT_Version : GNAT.Strings.String_Access;
     begin