mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-11 09:26:15 +02:00
* Hack to allow to recognize CVS version as 5.01
This commit is contained in:
parent
a4bf3d5bbe
commit
122947814d
@ -34,6 +34,13 @@ begin
|
|||||||
Writeln('GDB version is ',pchar(@v5_version));
|
Writeln('GDB version is ',pchar(@v5_version));
|
||||||
version_number:=ord(version[0])-ord('0');
|
version_number:=ord(version[0])-ord('0');
|
||||||
end
|
end
|
||||||
|
else if (version[0]='2') and (version[1]='0') and
|
||||||
|
(version[2] in ['0'..'9']) and (version[3] in ['0'..'9']) then
|
||||||
|
begin
|
||||||
|
{ CVS version from 2000 to 2099,
|
||||||
|
assume version 5.01 PM }
|
||||||
|
version_number:=501;
|
||||||
|
end
|
||||||
else
|
else
|
||||||
begin
|
begin
|
||||||
if not only_ver then
|
if not only_ver then
|
||||||
@ -48,7 +55,10 @@ end.
|
|||||||
|
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.2 2001-04-08 11:44:01 peter
|
Revision 1.3 2001-09-11 10:22:09 pierre
|
||||||
|
* Hack to allow to recognize CVS version as 5.01
|
||||||
|
|
||||||
|
Revision 1.2 2001/04/08 11:44:01 peter
|
||||||
* new file
|
* new file
|
||||||
|
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user