diff options
Diffstat (limited to 'recipes/gcc/gcc-svn/debian/ada-gnatvsn.dpatch')
| -rw-r--r-- | recipes/gcc/gcc-svn/debian/ada-gnatvsn.dpatch | 46 |
1 files changed, 0 insertions, 46 deletions
diff --git a/recipes/gcc/gcc-svn/debian/ada-gnatvsn.dpatch b/recipes/gcc/gcc-svn/debian/ada-gnatvsn.dpatch deleted file mode 100644 index 365bd60bb4..0000000000 --- a/recipes/gcc/gcc-svn/debian/ada-gnatvsn.dpatch +++ /dev/null @@ -1,46 +0,0 @@ -#! /bin/sh -e - -# DP: proposed patch for PR ada/27194. - -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 - ---- orig/gnatvsn.adb 2005-07-01 03:29:17.000000000 +0200 -+++ gcc/ada/gnatvsn.adb 2006-04-18 10:00:05.100002000 +0200 -@@ -54,12 +54,13 @@ - ------------------------- - - function Gnat_Version_String return String is -- NUL_Pos : Positive := 1; -+ NUL_Pos : Positive := Version_String'Last; - begin -- loop -- exit when Version_String (NUL_Pos) = ASCII.NUL; -- -- NUL_Pos := NUL_Pos + 1; -+ for J in Version_String'Range loop -+ if Version_String (J) = ASCII.NUL then -+ NUL_Pos := J; -+ exit; -+ end if; - end loop; - - return Version_String (1 .. NUL_Pos - 1); |