paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 16:09:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Support more tags/branches for sources

Browse Source 
git-svn-id: trunk@18937 -
This commit is contained in:
pierre 2011-09-01 15:40:20 +00:00
parent c0cfded280
commit 4c0a04bc48
1 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
tests/utils/testsuite/utests.pp
View File

@ -166,7 +166,12 @@ type
ver_2_3_1,
ver_2_4_0,
ver_2_4_1,
ver_2_5_1);
ver_2_4_2,
ver_2_4_3,
ver_2_4_4,
ver_2_4_5,
ver_2_5_1,
ver_2_7_1);
const
ver_trunk = high (known_versions);
@ -193,7 +198,12 @@ const
'2.3.1',
'2.4.0',
'2.4.1',
'2.5.1'
'2.4.2',
'2.4.3',
'2.4.4',
'2.4.5',
'2.5.1',
'2.7.1'
);
ver_branch : array [known_versions] of string =
@ -216,7 +226,12 @@ const
'branches/fixes_2_2',
'tags/release_2_4_0',
'tags/release_2_4_0',
'tags/release_2_4_2',
'tags/release_2_4_2',
'tags/release_2_4_4',
'tags/release_2_4_4',
'branches/fixes_2_4',
'branches/fixes_2_6',
'trunk'
);
@ -1368,7 +1383,7 @@ begin
begin
// Test all but last version, which is assumed to be trunk
for ver:=low(known_versions) to pred(high(known_versions)) do
if ver_string[ver]=FVersionBranch then
if VER_String[ver]=FVersionBranch then
begin
base:=ver_branch[ver];
break;