← Back to branch summary

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

« back to all changes in this revision

Viewing changes to fpcsrc/compiler/ia64/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/ia64/cpuinfo.pas
 
1
{
 
2
    Copyright (c) 1998-2006 by Florian Klaempfl
 
3
 
 
4
    Basic Processor information
 
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 = extended;
 
33
   ts32real = single;
 
34
   ts64real = double;
 
35
   ts80real = extended;
 
36
   ts128real = type extended;
 
37
   ts64comp = type extended;
 
38
 
 
39
   pbestreal=^bestreal;
 
40
 
 
41
   { possible supported processors for this target }
 
42
   tcputype =
 
43
      (cpu_none,
 
44
       cpu_itanium
 
45
      );
 
46
 
 
47
   tfputype =
 
48
     (fpu_none,
 
49
      fpu_itanium
 
50
     );
 
51
     
 
52
const
 
53
   { calling conventions supported by the code generator }
 
54
   supported_calling_conventions : tproccalloptions = [
 
55
     pocall_internproc,
 
56
     pocall_stdcall,
 
57
     pocall_cdecl,
 
58
     pocall_cppdecl
 
59
   ];
 
60
 
 
61
 
 
62
   cputypestr : array[tcputype] of string[10] = ('',
 
63
     'ITANIUM'
 
64
   );
 
65
 
 
66
   fputypestr : array[tfputype] of string[6] = ('',
 
67
     'ITANIUM'
 
68
   );
 
69
 
 
70
   { Supported optimizations, only used for information }
 
71
   supported_optimizerswitches = [cs_opt_peephole,cs_opt_regvar,cs_opt_stackframe,
 
72
     cs_opt_asmcse,cs_opt_loopunroll,cs_opt_uncertain];
 
73
 
 
74
   level1optimizerswitches = [cs_opt_level1,cs_opt_peephole];
 
75
   level2optimizerswitches = level1optimizerswitches + [cs_opt_level2,cs_opt_regvar,cs_opt_stackframe,cs_opt_asmcse];
 
76
   level3optimizerswitches = level2optimizerswitches + [cs_opt_level3{,cs_opt_loopunroll}];
 
77
 
 
78
Implementation
 
79
 
 
80
end.
 
81