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

* build wordversion from constants

Browse Source
This commit is contained in:
peter 2005-01-19 21:10:15 +00:00
parent b41c21e6d2
commit 66d9ada975
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/version.pas
View File

@ -27,22 +27,19 @@ unit version;
interface interface
const const
{ word version for ppu file }
wordversion = (1 shl 14)+(9 shl 7) + 5;
{ version string } { version string }
version_nr = '1'; version_nr = '1';
release_nr = '9'; release_nr = '9';
patch_nr = '7'; patch_nr = '7';
minorpatch = ''; minorpatch = '';
{ date string } { word version for ppu file }
{$ifdef FPC} wordversion = ((ord(version_nr)-ord('0')) shl 14)+
date_string = {$I %DATE%}; ((ord(release_nr)-ord('0')) shl 7)+
{$else} (ord(patch_nr)-ord('0'));
date_string = 'N/A';
{$endif}
{ date string }
date_string = {$I %DATE%};
{ source cpu string } { source cpu string }
{$ifdef cpu86} {$ifdef cpu86}
@ -93,7 +90,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.29 2005-01-02 10:20:08 florian Revision 1.30 2005-01-19 21:10:15 peter
* build wordversion from constants
Revision 1.29 2005/01/02 10:20:08 florian
* version and copyright increased * version and copyright increased
Revision 1.28 2004/12/30 19:01:29 peter Revision 1.28 2004/12/30 19:01:29 peter