1 { 2 Copyright (c) 1998-2002 by Florian Klaempfl 3 4 Version/target constants 5 6 This program is free software; you can redistribute it and/or modify 7 it under the terms of the GNU General Public License as published by 8 the Free Software Foundation; either version 2 of the License, or 9 (at your option) any later version. 10 11 This program is distributed in the hope that it will be useful, 12 but WITHOUT ANY WARRANTY; without even the implied warranty of 13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 GNU General Public License for more details. 15 16 You should have received a copy of the GNU General Public License 17 along with this program; if not, write to the Free Software 18 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. 19 20 **************************************************************************** 21 } 22 unit version; 23 24 {$i fpcdefs.inc} 25 26 interface 27 28 const 29 { version string } 30 version_nr = '3'; 31 release_nr = '2'; 32 patch_nr = '2'; 33 minorpatch = ''; 34 35 { word version for ppu file } 36 wordversion = ((ord(version_nr)-ord('0')) shl 14)+ 37 ((ord(release_nr)-ord('0')) shl 7)+ 38 (ord(patch_nr)-ord('0')); 39 40 { date string } 41 date_string = {$I %DATE%}; 42 43 { source cpu string } 44 {$ifdef cpui386} 45 source_cpu_string = 'i386'; 46 {$endif cpui386} 47 {$ifdef cpupowerpc32} 48 source_cpu_string = 'powerpc'; 49 {$endif cpupowerpc32} 50 {$ifdef cpupowerpc64} 51 source_cpu_string = 'powerpc64'; 52 {$endif cpupowerpc64} 53 {$ifdef cpum68k} 54 source_cpu_string = 'm68k'; 55 {$endif cpum68k} 56 {$ifdef cpux86_64} 57 source_cpu_string = 'x86_64'; 58 {$endif cpux86_64} 59 {$ifdef cpusparc} 60 source_cpu_string = 'sparc'; 61 {$endif cpusparc} 62 {$ifdef cpusparc64} 63 source_cpu_string = 'sparc64'; 64 {$endif cpusparc64} 65 {$ifdef cpuarm} 66 source_cpu_string = 'arm'; 67 {$endif cpuarm} 68 {$ifdef cpumipseb} 69 source_cpu_string = 'mips'{'mipseb'}; 70 {$endif cpumipseb} 71 {$ifdef cpumipsel} 72 source_cpu_string = 'mipsel'; 73 {$endif cpumipsel} 74 {$ifdef cpuaarch64} 75 source_cpu_string = 'aarch64'; 76 {$endif cpuaarch64} 77 version_stringnull78function version_string:string; full_version_stringnull79function full_version_string:string; 80 81 82 implementation 83 version_stringnull84function version_string:string; 85 begin 86 version_string := version_nr+'.'+release_nr+'.'+patch_nr; 87 end; 88 89 full_version_stringnull90function full_version_string:string; 91 begin 92 full_version_string := version_nr+'.'+release_nr+'.'+patch_nr+minorpatch 93 {$ifdef REVINC} 94 +'-r'+{$i revision.inc} 95 {$endif REVINC} 96 ; 97 end; 98 99 end. 100