paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 03:39:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Hack to allow to recognize CVS version as 5.01

Browse Source
This commit is contained in:
pierre 2001-09-11 10:22:09 +00:00
parent a4bf3d5bbe
commit 122947814d
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/gdbint/gdbver.pp
View File

@ -34,6 +34,13 @@ begin
Writeln('GDB version is ',pchar(@v5_version));
version_number:=ord(version[0])-ord('0');
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
begin
if not only_ver then
@ -48,7 +55,10 @@ end.
{
$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
}