diff options
Diffstat (limited to 'meta/packages/gcc/gcc-4.3.1/debian/ada-gnatvsn.dpatch')
-rw-r--r-- | meta/packages/gcc/gcc-4.3.1/debian/ada-gnatvsn.dpatch | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/meta/packages/gcc/gcc-4.3.1/debian/ada-gnatvsn.dpatch b/meta/packages/gcc/gcc-4.3.1/debian/ada-gnatvsn.dpatch new file mode 100644 index 0000000000..365bd60bb4 --- /dev/null +++ b/meta/packages/gcc/gcc-4.3.1/debian/ada-gnatvsn.dpatch | |||
@@ -0,0 +1,46 @@ | |||
1 | #! /bin/sh -e | ||
2 | |||
3 | # DP: proposed patch for PR ada/27194. | ||
4 | |||
5 | dir= | ||
6 | if [ $# -eq 3 -a "$2" = '-d' ]; then | ||
7 | pdir="-d $3" | ||
8 | dir="$3/" | ||
9 | elif [ $# -ne 1 ]; then | ||
10 | echo >&2 "`basename $0`: script expects -patch|-unpatch as argument" | ||
11 | exit 1 | ||
12 | fi | ||
13 | case "$1" in | ||
14 | -patch) | ||
15 | patch $pdir -f --no-backup-if-mismatch -p0 < $0 | ||
16 | ;; | ||
17 | -unpatch) | ||
18 | patch $pdir -f --no-backup-if-mismatch -R -p0 < $0 | ||
19 | ;; | ||
20 | *) | ||
21 | echo >&2 "`basename $0`: script expects -patch|-unpatch as argument" | ||
22 | exit 1 | ||
23 | esac | ||
24 | exit 0 | ||
25 | |||
26 | --- orig/gnatvsn.adb 2005-07-01 03:29:17.000000000 +0200 | ||
27 | +++ gcc/ada/gnatvsn.adb 2006-04-18 10:00:05.100002000 +0200 | ||
28 | @@ -54,12 +54,13 @@ | ||
29 | ------------------------- | ||
30 | |||
31 | function Gnat_Version_String return String is | ||
32 | - NUL_Pos : Positive := 1; | ||
33 | + NUL_Pos : Positive := Version_String'Last; | ||
34 | begin | ||
35 | - loop | ||
36 | - exit when Version_String (NUL_Pos) = ASCII.NUL; | ||
37 | - | ||
38 | - NUL_Pos := NUL_Pos + 1; | ||
39 | + for J in Version_String'Range loop | ||
40 | + if Version_String (J) = ASCII.NUL then | ||
41 | + NUL_Pos := J; | ||
42 | + exit; | ||
43 | + end if; | ||
44 | end loop; | ||
45 | |||
46 | return Version_String (1 .. NUL_Pos - 1); | ||