summaryrefslogtreecommitdiff
path: root/packages/gcc/gcc-4.3.2/debian/ada-gnatvsn.dpatch
blob: 365bd60bb437293cbf6e37650b0d71f698c51c72 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
#! /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);