paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 00:09:23 +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

14
compiler/version.pas
View File

@ -25,13 +25,13 @@ interface
const const
{ word version for ppu file } { word version for ppu file }
wordversion = (0 shl 14)+99; wordversion = (1 shl 14)+0;
{ version string } { version string }
version_nr = '1'; version_nr = '1';
release_nr = '00'; release_nr = '00';
patch_nr = ''; patch_nr = '0';
{$ifdef newcg} {$ifdef newcg}
minorpatch = ' NCG'; minorpatch = ' NCG';
{$else newcg} {$else newcg}
@ -79,7 +79,7 @@ implementation
function version_string:string; function version_string:string;
begin begin
if patch_nr='' then if patch_nr='0' then
version_string := version_nr+'.'+release_nr version_string := version_nr+'.'+release_nr
else else
version_string := version_nr+'.'+release_nr+'.'+patch_nr; version_string := version_nr+'.'+release_nr+'.'+patch_nr;
@ -88,7 +88,7 @@ end;
function full_version_string:string; function full_version_string:string;
begin begin
if patch_nr='' then if patch_nr='0' then
full_version_string := version_nr+'.'+release_nr+minorpatch full_version_string := version_nr+'.'+release_nr+minorpatch
else else
full_version_string := version_nr+'.'+release_nr+'.'+patch_nr+minorpatch; full_version_string := version_nr+'.'+release_nr+'.'+patch_nr+minorpatch;
@ -99,7 +99,10 @@ begin
end. end.
{ {
$Log$ $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 * 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 Revision 1.18 2000/07/06 20:08:46 peter
@ -132,4 +135,3 @@ end.
* some changes to compile the new code generator * some changes to compile the new code generator
} }