← Back to branch summary

~ubuntu-branches/debian/lenny/fpc/lenny

« back to all changes in this revision

Viewing changes to fpcsrc/compiler/sparc/cpuinfo.pas

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-05-17 17:12:11 UTC
  • mfrom: (3.1.9 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080517171211-9qi33xhd9evfa0kg
Tags: 2.2.0-dfsg1-9
http://bugs.debian.org/477743
[ Torsten Werner ]
* Add Mazen Neifer to Uploaders field.

[ Mazen Neifer ]
* Moved FPC sources into a version dependent directory from /usr/share/fpcsrc
  to /usr/share/fpcsrc/${FPCVERSION}. This allow installing more than on FPC
  release.
* Fixed far call issue in compiler preventing building huge binearies.
  (closes: #477743)
* Updated building dependencies, recomennded and suggested packages.
* Moved fppkg to fp-utils as it is just a helper tool and is not required by
  compiler.

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcsrc/compiler/sparc/cpuinfo.pas
 
1
{
 
2
    Copyright (c) 1998-2002 by Florian Klaempfl
 
3
 
 
4
    Basic Processor information for the SPARC
 
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 cpuinfo;
 
23
 
 
24
{$i fpcdefs.inc}
 
25
 
 
26
interface
 
27
 
 
28
uses
 
29
  globtype;
 
30
 
 
31
type
 
32
  bestreal = double;
 
33
  ts32real = single;
 
34
  ts64real = double;
 
35
  ts80real = extended;
 
36
  ts128real = type extended;
 
37
  ts64comp = type extended;
 
38
  pbestreal=^bestreal;
 
39
 
 
40
  { possible supported processors for this target }
 
41
  tcputype=(cpu_none,
 
42
    cpu_SPARC_V7,
 
43
    cpu_SPARC_V8,
 
44
    cpu_SPARC_V9
 
45
  );
 
46
 
 
47
  tfputype =(fpu_none,
 
48
    fpu_soft,
 
49
    fpu_hard
 
50
  );
 
51
 
 
52
 
 
53
const
 
54
  { calling conventions supported by the code generator }
 
55
  supported_calling_conventions : tproccalloptions = [
 
56
    pocall_internproc,
 
57
    pocall_stdcall,
 
58
    pocall_cdecl,
 
59
    pocall_cppdecl
 
60
  ];
 
61
 
 
62
   cputypestr : array[tcputype] of string[10] = ('',
 
63
     'SPARC V7',
 
64
     'SPARC V8',
 
65
     'SPARC V9'
 
66
   );
 
67
 
 
68
   fputypestr : array[tfputype] of string[6] = ('',
 
69
     'SOFT',
 
70
     'HARD'
 
71
   );
 
72
 
 
73
   { Supported optimizations, only used for information }
 
74
   supported_optimizerswitches = genericlevel1optimizerswitches+
 
75
                                 genericlevel2optimizerswitches+
 
76
                                 genericlevel3optimizerswitches-
 
77
                                 { no need to write info about those }
 
78
                                 [cs_opt_level1,cs_opt_level2,cs_opt_level3]+
 
79
                                 [cs_opt_regvar,cs_opt_loopunroll,cs_opt_tailrecursion];
 
80
 
 
81
   level1optimizerswitches = genericlevel1optimizerswitches;
 
82
   level2optimizerswitches = genericlevel2optimizerswitches + level1optimizerswitches + [cs_opt_regvar,cs_opt_tailrecursion];
 
83
   level3optimizerswitches = genericlevel3optimizerswitches + level2optimizerswitches + [{,cs_opt_loopunroll}];
 
84
 
 
85
implementation
 
86
 
 
87
end.