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

* version_string is now a function so it returns 1.00 instead of 1.00.0

Browse Source
This commit is contained in:
peter 2000-07-09 09:34:50 +00:00
parent 20167d65fd
commit 1d06b07e42
1 changed files with 26 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
compiler/version.pas
View File

@ -31,7 +31,7 @@ interface
version_nr = '1';
release_nr = '00';
patch_nr = '0';
patch_nr = '';
{$ifdef newcg}
minorpatch = ' NCG';
{$else newcg}
@ -41,8 +41,6 @@ interface
minorpatch = '';
{$endif}
{$endif newcg}
version_string = version_nr+'.'+release_nr+'.'+patch_nr;
full_version_string = version_nr+'.'+release_nr+'.'+patch_nr+minorpatch;
{ date string }
{$ifdef FPC}
@ -73,14 +71,38 @@ interface
source_cpu_string = 'm68k';
{$endif}
function version_string:string;
function full_version_string:string;
implementation
function version_string:string;
begin
if patch_nr='' then
version_string := version_nr+'.'+release_nr
else
version_string := version_nr+'.'+release_nr+'.'+patch_nr;
end;
function full_version_string:string;
begin
if patch_nr='' then
full_version_string := version_nr+'.'+release_nr+minorpatch
else
full_version_string := version_nr+'.'+release_nr+'.'+patch_nr+minorpatch;
end;
begin
end.
{
$Log$
Revision 1.18 2000-07-06 20:08:46 peter
Revision 1.19 2000-07-09 09:34:50 peter
* version_string is now a function so it returns 1.00 instead of 1.00.0
Revision 1.18 2000/07/06 20:08:46 peter
* version 1.00.0 so the snapshots can test with this version number
for a few days