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

* fix wordversion

Browse Source
This commit is contained in:
pierre 2000-07-10 09:17:27 +00:00
parent 79e58b655c
commit b6bc1d480f
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/version.pas
View File

@ -25,13 +25,13 @@ interface
const
{ word version for ppu file }
wordversion = (0 shl 14)+99;
wordversion = (1 shl 14)+0;
{ version string }
version_nr = '1';
release_nr = '00';
patch_nr = '';
patch_nr = '0';
{$ifdef newcg}
minorpatch = ' NCG';
{$else newcg}
@ -79,7 +79,7 @@ implementation
function version_string:string;
begin
if patch_nr='' then
if patch_nr='0' then
version_string := version_nr+'.'+release_nr
else
version_string := version_nr+'.'+release_nr+'.'+patch_nr;
@ -88,7 +88,7 @@ end;
function full_version_string:string;
begin
if patch_nr='' then
if patch_nr='0' then
full_version_string := version_nr+'.'+release_nr+minorpatch
else
full_version_string := version_nr+'.'+release_nr+'.'+patch_nr+minorpatch;
@ -99,7 +99,10 @@ begin
end.
{
$Log$
Revision 1.19 2000-07-09 09:34:50 peter
Revision 1.20 2000-07-10 09:17:27 pierre
* fix wordversion
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
@ -131,5 +134,4 @@ end.
Revision 1.10 1999/08/01 23:36:42 florian
* some changes to compile the new code generator
}
}