paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 11:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

convert 5.02.90 into 5.03

Browse Source
This commit is contained in:
pierre 2002-12-02 13:59:16 +00:00
parent 8aca5d924f
commit bd55da4e43
1 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
packages/base/gdbint/gdbver.pp
View File

@ -21,8 +21,8 @@ const
{$endif} {$endif}
{ This variable should be change with { This variable should be change with
change in GDB CVS PM } change in GDB CVS PM }
Current_cvs_version : longint = 502; Current_cvs_version : longint = 503;
Max_version_length = 25; Max_version_length = 255;
var var
v5_version : array[0..0] of char;external name ver_name; v5_version : array[0..0] of char;external name ver_name;
@ -31,6 +31,7 @@ var
subver_str : string; subver_str : string;
i, version_number, i, version_number,
subversion_number : longint; subversion_number : longint;
subsubversion_number : longint;
error : word; error : word;
only_ver : boolean; only_ver : boolean;
@ -52,6 +53,17 @@ begin
inc(i); inc(i);
end; end;
val(subver_str,subversion_number,error); val(subver_str,subversion_number,error);
inc(i);
subver_str:='';
while version[i] in ['0'..'9'] do
begin
subver_str:=subver_str+version[i];
inc(i);
end;
val(subver_str,subsubversion_number,error);
{ 5.02.90 is a pretest of 5.03.. PM }
if subsubversion_number>=90 then
inc(subversion_number);
if (error=0) and (subversion_number>=0) and if (error=0) and (subversion_number>=0) and
(subversion_number<=99) then (subversion_number<=99) then
version_number:=version_number*100+subversion_number; version_number:=version_number*100+subversion_number;
@ -77,7 +89,10 @@ end.
{ {
$Log$ $Log$
Revision 1.3 2002-09-10 12:17:15 pierre Revision 1.4 2002-12-02 13:59:16 pierre
convert 5.02.90 into 5.03
Revision 1.3 2002/09/10 12:17:15 pierre
* avoid RTE 201 * avoid RTE 201
Revision 1.2 2002/09/07 15:42:52 peter Revision 1.2 2002/09/07 15:42:52 peter