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);
|
