← Back to branch summary

~ubuntu-branches/ubuntu/dapper/fpc/dapper

« back to all changes in this revision

Viewing changes to compiler/x86_64/cpupi.pas

  • Committer: Bazaar Package Importer
  • Author(s): Carlos Laviola
  • Date: 2004-08-12 16:29:37 UTC
  • mfrom: (1.2.1 upstream) (2.1.1 warty)
  • Revision ID: james.westby@ubuntu.com-20040812162937-moo8ulvysp1ln771
Tags: 1.9.4-5
http://bugs.debian.org/265265
fp-compiler: needs ld, adding dependency on binutils.  (Closes: #265265)

Show diffs side-by-side

added added

removed removed

Lines of Context:
compiler/x86_64/cpupi.pas
 
1
{
 
2
    $Id: cpupi.pas,v 1.3 2004/02/04 22:01:13 peter Exp $
 
3
    Copyright (c) 2002 by Florian Klaempfl
 
4
 
 
5
    This unit contains the CPU specific part of tprocinfo
 
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
 
 
24
{ This unit contains the CPU specific part of tprocinfo. }
 
25
unit cpupi;
 
26
 
 
27
{$i fpcdefs.inc}
 
28
 
 
29
interface
 
30
 
 
31
    uses
 
32
       psub,procinfo;
 
33
 
 
34
    type
 
35
       tx86_64procinfo = class(tcgprocinfo)
 
36
         function calc_stackframe_size:longint;override;
 
37
       end;
 
38
 
 
39
 
 
40
implementation
 
41
 
 
42
    uses
 
43
      cutils,
 
44
      tgobj;
 
45
 
 
46
 
 
47
    function tx86_64procinfo.calc_stackframe_size:longint;
 
48
      begin
 
49
        { RSP should be aligned on 16 bytes }
 
50
        result:=Align(tg.direction*tg.lasttemp,16);
 
51
      end;
 
52
 
 
53
begin
 
54
   cprocinfo:=tx86_64procinfo;
 
55
end.
 
56
{
 
57
  $Log: cpupi.pas,v $
 
58
  Revision 1.3  2004/02/04 22:01:13  peter
 
59
    * first try to get cpupara working for x86_64
 
60
 
 
61
  Revision 1.2  2003/12/24 00:33:10  florian
 
62
    * x86-64 compilation fixed
 
63
 
 
64
  Revision 1.1  2003/01/05 13:36:54  florian
 
65
    * x86-64 compiles
 
66
    + very basic support for float128 type (x86-64 only)
 
67
}
 
68
 
 
69