development/compilers/freepascal/compiler/version.pas

   1 {
   2     $Id$
   3     Copyright (C) 1998-2000 by Florian Klaempfl
   4
   5     Version/target constants
   6
   7     This program is free software; you can redistribute it and/or modify
   8     it under the terms of the GNU General Public License as published by
   9     the Free Software Foundation; either version 2 of the License, or
  10     (at your option) any later version.
  11
  12     This program is distributed in the hope that it will be useful,
  13     but WITHOUT ANY WARRANTY; without even the implied warranty of
  14     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15     GNU General Public License for more details.
  16
  17     You should have received a copy of the GNU General Public License
  18     along with this program; if not, write to the Free Software
  19     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  20
  21  ****************************************************************************
  22 }
  23 unit version;
  24 interface
  25
  26     const
  27        { word version for ppu file }
  28        wordversion = (1 shl 14)+4;
  29
  30        { version string }
  31
  32        version_nr = '1';
  33        release_nr = '0';
  34        patch_nr   = '4';
  35 {$ifdef newcg}
  36        minorpatch = ' NCG';
  37 {$else newcg}
  38   {$ifdef newoptimizations}
  39        minorpatch = ' OPT';
  40   {$else}
  41        minorpatch = '';
  42   {$endif}
  43 {$endif newcg}
  44
  45        { date string }
  46 {$ifdef FPC}
  47        date_string = {$I %DATE%};
  48 {$else}
  49        date_string = 'N/A';
  50 {$endif}
  51
  52        { target cpu string }
  53 {$ifdef i386}
  54        target_cpu_string = 'i386';
  55 {$endif}
  56 {$ifdef m68k}
  57        target_cpu_string = 'm68k';
  58 {$endif}
  59 {$ifdef alpha}
  60        target_cpu_string = 'alpha';
  61 {$endif}
  62 {$ifdef powerpc}
  63        target_cpu_string = 'powerpc';
  64 {$endif}
  65
  66        { source cpu string }
  67 {$ifdef cpu86}
  68         source_cpu_string = 'i386';
  69 {$endif}
  70 {$ifdef cpu68}
  71         source_cpu_string = 'm68k';
  72 {$endif}
  73
  74 function version_string:string;
  75 function full_version_string:string;
  76
  77
  78 implementation
  79
  80 function version_string:string;
  81 begin
  82   if patch_nr='0' then
  83    version_string := version_nr+'.'+release_nr
  84   else
  85    version_string := version_nr+'.'+release_nr+'.'+patch_nr;
  86 end;
  87
  88
  89 function full_version_string:string;
  90 begin
  91   if patch_nr='0' then
  92    full_version_string := version_nr+'.'+release_nr+minorpatch
  93   else
  94    full_version_string := version_nr+'.'+release_nr+'.'+patch_nr+minorpatch;
  95 end;
  96
  97 end.
  98 {
  99   $Log$
 100   Revision 1.1  2002/02/19 08:24:14  sasu
 101   Initial revision
 102
 103   Revision 1.1.2.4  2000/12/18 09:58:23  florian
 104     * version 1.0.4
 105
 106   Revision 1.1.2.3  2000/10/13 12:02:16  michael
 107   + Changed version no to 1.0.3
 108
 109   Revision 1.1.2.2  2000/10/10 15:07:20  peter
 110     * 1.0.2
 111
 112   Revision 1.1.2.1  2000/07/13 11:36:11  michael
 113   + Changed version to 1.0.1
 114
 115   Revision 1.1  2000/07/13 06:30:03  michael
 116   + Initial import
 117
 118   Revision 1.20  2000/07/10 09:17:27  pierre
 119    * fix wordversion
 120
 121   Revision 1.19  2000/07/09 09:34:50  peter
 122     * version_string is now a function so it returns 1.00 instead of 1.00.0
 123
 124   Revision 1.18  2000/07/06 20:08:46  peter
 125     * version 1.00.0 so the snapshots can test with this version number
 126       for a few days
 127
 128   Revision 1.17  2000/03/21 21:35:27  peter
 129     * add OPT for optimizing compiler
 130
 131   Revision 1.16  2000/02/09 13:23:09  peter
 132     * log truncated
 133
 134   Revision 1.15  2000/01/28 20:47:26  michael
 135   + Changed patch number to 15
 136
 137   Revision 1.14  2000/01/14 13:05:54  peter
 138     * version 0.99.14
 139
 140   Revision 1.13  2000/01/07 01:14:49  peter
 141     * updated copyright to 2000
 142
 143   Revision 1.12  1999/08/04 13:03:18  jonas
 144     * all tokens now start with an underscore
 145     * PowerPC compiles!!
 146
 147   Revision 1.11  1999/08/02 17:17:12  florian
 148     * small changes for the new code generator
 149
 150   Revision 1.10  1999/08/01 23:36:42  florian
 151     * some changes to compile the new code generator
 152
 153 }