diff options
81 files changed, 0 insertions, 588146 deletions
diff --git a/meta/packages/gcc/gcc-4.3.3/debian/ada-acats.dpatch b/meta/packages/gcc/gcc-4.3.3/debian/ada-acats.dpatch deleted file mode 100644 index fc25bf901f..0000000000 --- a/meta/packages/gcc/gcc-4.3.3/debian/ada-acats.dpatch +++ /dev/null @@ -1,78 +0,0 @@ -#! /bin/sh -e - -# DP: - When running the ACATS, look for the gnat tools in their new -# DP: directory (build/gnattools), and for the shared libraries in -# DP: build/gcc/ada/rts, build/libgnatvsn and build/libgnatprj. - -dir= -if [ $# -eq 3 -a "$2" = '-d' ]; then - pdir="-d $3" - dir="$3/" -elif [ $# -ne 1 ]; then - echo >&2 "`basename $0`: script expects -patch|-unpatch as argument" - exit 1 -fi -case "$1" in - -patch) - patch $pdir -f --no-backup-if-mismatch -p0 < $0 - ;; - -unpatch) - patch $pdir -f --no-backup-if-mismatch -R -p0 < $0 - ;; - *) - echo >&2 "`basename $0`: script expects -patch|-unpatch as argument" - exit 1 -esac -exit 0 - ---- gcc/testsuite/ada/acats/run_acats~ -+++ gcc/testsuite/ada/acats/run_acats 2006-04-22 08:57:50.933824704 +0200 -@@ -11,23 +11,42 @@ - host_gnatmake=`type gnatmake | awk '{print $3}'` - ROOT=`${PWDCMD-pwd}` - BASE=`cd $ROOT/../../..; ${PWDCMD-pwd}` -- --PATH=$BASE:$ROOT:$PATH --ADA_INCLUDE_PATH=$BASE/ada/rts -+GNATTOOLS=`cd $BASE/../gnattools; ${PWDCMD-pwd}` -+LIBGNATVSN=`cd $BASE/../libgnatvsn; ${PWDCMD-pwd}` -+LIBGNATPRJ=`cd $BASE/../libgnatprj; ${PWDCMD-pwd}` -+ -+PATH=$GNATTOOLS:$BASE:$ROOT:$PATH -+ADA_INCLUDE_DIR=$BASE/ada/rts -+ADA_INCLUDE_PATH=$ADA_INCLUDE_DIR:$LIBGNATVSN:$LIBGNATPRJ - LD_LIBRARY_PATH=$ADA_INCLUDE_PATH:$BASE:$LD_LIBRARY_PATH - ADA_OBJECTS_PATH=$ADA_INCLUDE_PATH - --if [ ! -d $ADA_INCLUDE_PATH ]; then -+if [ ! -d $ADA_INCLUDE_DIR ]; then - echo gnatlib missing, exiting. - exit 1 - fi - --if [ ! -f $BASE/gnatchop ]; then -+if [ ! -d $GNATTOOLS ]; then -+ echo gnattools missing, exiting. -+ exit 1 -+fi -+ -+if [ ! -d $LIBGNATVSN ]; then -+ echo libgnatvsn missing, exiting. -+ exit 1 -+fi -+ -+if [ ! -d $LIBGNATPRJ ]; then -+ echo libgnatprj missing, exiting. -+ exit 1 -+fi -+ -+if [ ! -f $GNATTOOLS/gnatchop ]; then - echo gnattools missing, exiting. - exit 1 - fi - --if [ ! -f $BASE/gnatmake ]; then -+if [ ! -f $GNATTOOLS/gnatmake ]; then - echo gnattools missing, exiting. - exit 1 - fi diff --git a/meta/packages/gcc/gcc-4.3.3/debian/ada-alpha.dpatch b/meta/packages/gcc/gcc-4.3.3/debian/ada-alpha.dpatch deleted file mode 100644 index 1e2c47d670..0000000000 --- a/meta/packages/gcc/gcc-4.3.3/debian/ada-alpha.dpatch +++ /dev/null @@ -1,88 +0,0 @@ -#! /bin/sh -e - -# DP: Fix GNAT on alpha. - -dir= -if [ $# -eq 3 -a "$2" = '-d' ]; then - pdir="-d $3" - dir="$3/" -elif [ $# -ne 1 ]; then - echo >&2 "`basename $0`: script expects -patch|-unpatch as argument" - exit 1 -fi -case "$1" in - -patch) - patch $pdir -f --no-backup-if-mismatch -p0 < $0 - ;; - -unpatch) - patch $pdir -f --no-backup-if-mismatch -R -p0 < $0 - ;; - *) - echo >&2 "`basename $0`: script expects -patch|-unpatch as argument" - exit 1 -esac -exit 0 - -2008-04-01 Aurelien Jarno <aurelien@aurel32.net> - - * s-osinte-linux-alpha.ads (SC_NPROCESSORS_ONLN): New constant - for sysconf call. - (bit_field): New packed boolean type used by cpu_set_t. - (cpu_set_t): New type corresponding to the C type with - the same name. Note that on the Ada side we use a bit - field array for the affinity mask. There is not need - for the C macro for setting individual bit. - (pthread_setaffinity_np): New imported routine. - -Index: gcc/ada/s-osinte-linux-alpha.ads -=================================================================== ---- gcc/ada/s-osinte-linux-alpha.ads (révision 133772) -+++ gcc/ada/s-osinte-linux-alpha.ads (copie de travail) -@@ -237,6 +237,7 @@ - pragma Import (C, sysconf); - - SC_CLK_TCK : constant := 2; -+ SC_NPROCESSORS_ONLN : constant := 84; - - ------------------------- - -- Priority Scheduling -- -@@ -268,6 +269,7 @@ - - type Thread_Body is access - function (arg : System.Address) return System.Address; -+ pragma Convention (C, Thread_Body); - - function Thread_Body_Access is new - Unchecked_Conversion (System.Address, Thread_Body); -@@ -448,12 +450,31 @@ - pragma Import (C, pthread_getspecific, "pthread_getspecific"); - - type destructor_pointer is access procedure (arg : System.Address); -+ pragma Convention (C, destructor_pointer); - - function pthread_key_create - (key : access pthread_key_t; - destructor : destructor_pointer) return int; - pragma Import (C, pthread_key_create, "pthread_key_create"); - -+ CPU_SETSIZE : constant := 1_024; -+ -+ type bit_field is array (1 .. CPU_SETSIZE) of Boolean; -+ for bit_field'Size use CPU_SETSIZE; -+ pragma Pack (bit_field); -+ pragma Convention (C, bit_field); -+ -+ type cpu_set_t is record -+ bits : bit_field; -+ end record; -+ pragma Convention (C, cpu_set_t); -+ -+ function pthread_setaffinity_np -+ (thread : pthread_t; -+ cpusetsize : size_t; -+ cpuset : access cpu_set_t) return int; -+ pragma Import (C, pthread_setaffinity_np, "__gnat_pthread_setaffinity_np"); -+ - private - - type sigset_t is record diff --git a/meta/packages/gcc/gcc-4.3.3/debian/ada-default-project-path.dpatch b/meta/packages/gcc/gcc-4.3.3/debian/ada-default-project-path.dpatch deleted file mode 100644 index b3283d75f3..0000000000 --- a/meta/packages/gcc/gcc-4.3.3/debian/ada-default-project-path.dpatch +++ /dev/null @@ -1,147 +0,0 @@ -#! /bin/sh -e - -# DP: - Change the default search path for project files to the one specified -# DP: by the Debian Policy for Ada: /usr/share/ada/adainclude. - -dir= -if [ $# -eq 3 -a "$2" = '-d' ]; then - pdir="-d $3" - dir="$3/" -elif [ $# -ne 1 ]; then - echo >&2 "`basename $0`: script expects -patch|-unpatch as argument" - exit 1 -fi -case "$1" in - -patch) - patch $pdir -f --no-backup-if-mismatch -p0 < $0 - ;; - -unpatch) - patch $pdir -f --no-backup-if-mismatch -R -p0 < $0 - ;; - *) - echo >&2 "`basename $0`: script expects -patch|-unpatch as argument" - exit 1 -esac -exit 0 - -Index: gcc/ada/Make-lang.in -=================================================================== ---- gcc/ada/Make-lang.in.orig -+++ gcc/ada/Make-lang.in -@@ -974,7 +974,7 @@ - $(ECHO) " S1 : constant String := \"$(ADA_INCLUDE_DIR)/\";" >>tmp-sdefault.adb - $(ECHO) " S2 : constant String := \"$(ADA_RTL_OBJ_DIR)/\";" >>tmp-sdefault.adb - $(ECHO) " S3 : constant String := \"$(target)/\";" >>tmp-sdefault.adb -- $(ECHO) " S4 : constant String := \"$(libsubdir)/\";" >>tmp-sdefault.adb -+ $(ECHO) " S4 : constant String := \"/usr/share/ada/adainclude/\";" >>tmp-sdefault.adb - $(ECHO) " function Include_Dir_Default_Name return String_Ptr is" >>tmp-sdefault.adb - $(ECHO) " begin" >>tmp-sdefault.adb - $(ECHO) " return Relocate_Path (S0, S1);" >>tmp-sdefault.adb -Index: gcc/ada/prj-ext.adb -=================================================================== ---- gcc/ada/prj-ext.adb.orig -+++ gcc/ada/prj-ext.adb -@@ -24,7 +24,6 @@ - ------------------------------------------------------------------------------ - - with Hostparm; --with Makeutl; use Makeutl; - with Output; use Output; - with Osint; use Osint; - with Sdefault; -@@ -254,38 +253,10 @@ - - -- Set the initial value of Current_Project_Path - -- if Add_Default_Dir then -- declare -- Prefix : String_Ptr := Sdefault.Search_Dir_Prefix; -- begin -- if Prefix = null then -- Prefix := new String'(Executable_Prefix_Path); -- -- if Prefix.all /= "" then -- if Get_Mode = Ada_Only then -- Current_Project_Path := -- new String'(Name_Buffer (1 .. Name_Len) & -- Path_Separator & -- Prefix.all & Directory_Separator & "gnat"); -- -- else -- Current_Project_Path := -- new String'(Name_Buffer (1 .. Name_Len) & -- Path_Separator & -- Prefix.all & Directory_Separator & -- "share" & Directory_Separator & "gpr"); -- end if; -- end if; -- -- else -- Current_Project_Path := -- new String'(Name_Buffer (1 .. Name_Len) & Path_Separator & -- Prefix.all & -- ".." & Directory_Separator & -- ".." & Directory_Separator & -- ".." & Directory_Separator & "gnat"); -- end if; -- end; -+ if Add_Default_Dir and Sdefault.Search_Dir_Prefix /= null then -+ Current_Project_Path := -+ new String'(Name_Buffer (1 .. Name_Len) & Path_Separator & -+ Sdefault.Search_Dir_Prefix.all); - end if; - - if Current_Project_Path = null then -Index: gcc/ada/gnatls.adb -=================================================================== ---- gcc/ada/gnatls.adb.orig -+++ gcc/ada/gnatls.adb -@@ -1622,9 +1622,6 @@ - declare - Project_Path : String_Access := Getenv (Gpr_Project_Path); - -- Lib : constant String := -- Directory_Separator & "lib" & Directory_Separator; -- - First : Natural; - Last : Natural; - -@@ -1684,36 +1681,8 @@ - if Add_Default_Dir then - Name_Len := 0; - Add_Str_To_Name_Buffer (Sdefault.Search_Dir_Prefix.all); -- -- -- On Windows, make sure that all directory separators are '\' -- -- if Directory_Separator /= '/' then -- for J in 1 .. Name_Len loop -- if Name_Buffer (J) = '/' then -- Name_Buffer (J) := Directory_Separator; -- end if; -- end loop; -- end if; -- -- -- Find the sequence "/lib/" -- -- while Name_Len >= Lib'Length -- and then Name_Buffer (Name_Len - 4 .. Name_Len) /= Lib -- loop -- Name_Len := Name_Len - 1; -- end loop; -- -- -- If the sequence "/lib"/ was found, display the default -- -- directory <prefix>/lib/gnat/. -- -- if Name_Len >= 5 then -- Name_Buffer (Name_Len + 1 .. Name_Len + 4) := "gnat"; -- Name_Buffer (Name_Len + 5) := Directory_Separator; -- Name_Len := Name_Len + 5; -- Write_Str (" "); -- Write_Line -- (To_Host_Dir_Spec (Name_Buffer (1 .. Name_Len), True).all); -- end if; -+ Write_Str (" ");</ |