paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 14:05:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* initial release

Browse Source
This commit is contained in:
florian 2002-06-08 19:36:54 +00:00
parent d51ea019eb
commit 95ce60d671
1 changed files with 183 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

183
compiler/cg64f64.pas Normal file
View File

@ -0,0 +1,183 @@
{
$Id$
Copyright (c) 2002 by Florian Klaempfl
Member of the Free Pascal development team
This unit implements the code generation for 64 bit int
arithmethics on 64 bit processors
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
****************************************************************************
}
{# This unit implements the code generation for 64 bit int arithmethics on
64 bit processors.
}
unit cg64f64;
{$i fpcdefs.inc}
interface
uses
aasm,
cpuinfo, cpubase,
cginfo, cgobj,
node,symtype;
type
{# Defines all the methods required on 32-bit processors
to handle 64-bit integers.
}
tcg64f32 = class(tcg64)
procedure a_load64_const_ref(list : taasmoutput;valuelo, valuehi : AWord;const ref : treference);override;
procedure a_load64_reg_ref(list : taasmoutput;reglo, reghi : tregister;const ref : treference);override;
procedure a_load64_ref_reg(list : taasmoutput;const ref : treference;reglo,reghi : tregister);override;
procedure a_load64_reg_reg(list : taasmoutput;reglosrc,reghisrc,reglodst,reghidst : tregister);override;
procedure a_load64_const_reg(list : taasmoutput;valuelosrc,valuehisrc:AWord;reglodst,reghidst : tregister);override;
procedure a_load64_loc_reg(list : taasmoutput;const l : tlocation;reglo,reghi : tregister);override;
procedure a_load64_loc_ref(list : taasmoutput;const l : tlocation;const ref : treference);override;
procedure a_load64_const_loc(list : taasmoutput;valuelo, valuehi : AWord;const l : tlocation);override;
procedure a_load64_reg_loc(list : taasmoutput;reglo, reghi : tregister;const l : tlocation);override;
procedure a_load64high_reg_ref(list : taasmoutput;reg : tregister;const ref : treference);override;
procedure a_load64low_reg_ref(list : taasmoutput;reg : tregister;const ref : treference);override;
procedure a_load64high_ref_reg(list : taasmoutput;const ref : treference;reg : tregister);override;
procedure a_load64low_ref_reg(list : taasmoutput;const ref : treference;reg : tregister);override;
procedure a_load64high_loc_reg(list : taasmoutput;const l : tlocation;reg : tregister);override;
procedure a_load64low_loc_reg(list : taasmoutput;const l : tlocation;reg : tregister);override;
procedure a_op64_const_loc(list : taasmoutput;op:TOpCG;valuelosrc,valuehisrc:aword;const l: tlocation);override;
procedure a_op64_reg_loc(list : taasmoutput;op:TOpCG;reglo,reghi : tregister;const l : tlocation);override;
procedure a_op64_loc_reg(list : taasmoutput;op:TOpCG;const l : tlocation;reglo,reghi : tregister);override;
procedure a_param64_reg(list : taasmoutput;reglo,reghi : tregister;nr : longint);override;
procedure a_param64_const(list : taasmoutput;valuelo,valuehi : aword;nr : longint);override;
procedure a_param64_ref(list : taasmoutput;const r : treference;nr : longint);override;
procedure a_param64_loc(list : taasmoutput;const l : tlocation;nr : longint);override;
{ override to catch 64bit rangechecks }
procedure g_rangecheck(list: taasmoutput; const p: tnode;
const todef: tdef); override;
end;
implementation
procedure tcg64f64.a_load64_const_ref(list : taasmoutput;value : qword;const ref : treference);
begin
cg.a_load_const_ref(list,OS_64,value,ref);
end;
procedure tcg64f64.a_load64_reg_ref(list : taasmoutput;reg : tregister64;const ref : treference);
begin
cg.a_load_const_ref(list,OS_64,reg,ref);
end;
procedure tcg64f64.a_load64_ref_reg(list : taasmoutput;const ref : treference;reg : tregister64);
begin
cg.a_load_ref_ref(list,OS_64,ref,reg);
end;
procedure tcg64f64.a_load64_reg_reg(list : taasmoutput;regsrc,regdst : tregister64);
begin
cg.a_load_reg_reg(list,OS_64,regsrc,regdst);
end;
procedure tcg64f64.a_load64_const_reg(list : taasmoutput;value : qword;reg : tregister64);
begin
cg.a_load_const_reg(list,OS_64,value,reg);
end;
procedure tcg64f64.a_load64_loc_reg(list : taasmoutput;const l : tlocation;reg : tregister64);
begin
cg.a_load_loc_reg(list,l,reg);
end;
procedure tcg64f64.a_load64_loc_ref(list : taasmoutput;const l : tlocation;const ref : treference);
begin
cg.a_load_loc_ref(list,OS_64,l,ref);
end;
procedure tcg64f64.a_load64_const_loc(list : taasmoutput;value : qword;const l : tlocation);
begin
cg.a_load_const_loc(list,value,l);
end;
procedure tcg64f64.a_load64_reg_loc(list : taasmoutput;reg : tregister64;const l : tlocation);
begin
cg.a_load_reg_loc(list,reg,l);
end;
procedure a_op64_ref_reg(list : taasmoutput;op:TOpCG;const ref : treference;reglo,reg : tregister64);
begin
cg.a_op_ref_reg(list,
end;
procedure a_op64_reg_reg(list : taasmoutput;op:TOpCG;regsrc,regdst : tregister64);
begin
end;
procedure a_op64_reg_ref(list : taasmoutput;op:TOpCG;regsrc : tregister64;const ref : treference);
begin
end;
procedure a_op64_const_reg(list : taasmoutput;op:TOpCG;value : qword;regdst : tregister64);
begin
end;
procedure a_op64_const_ref(list : taasmoutput;op:TOpCG;value : qword;const ref : treference);
begin
end;
procedure a_op64_const_loc(list : taasmoutput;op:TOpCG;value : qword;const l: tlocation);
begin
end;
procedure a_op64_reg_loc(list : taasmoutput;op:TOpCG;reg : tregister64;const l : tlocation);
begin
end;
procedure a_op64_loc_reg(list : taasmoutput;op:TOpCG;const l : tlocation;reg64 : tregister64);
begin
end;
procedure a_param64_reg(list : taasmoutput;reg64 : tregister;nr : longint);
begin
end;
procedure a_param64_const(list : taasmoutput;value : qword;nr : longint);
begin
end;
procedure a_param64_ref(list : taasmoutput;const r : treference;nr : longint);
begin
end;
procedure a_param64_loc(list : taasmoutput;const l : tlocation;nr : longint);
begin
end;
procedure g_rangecheck64(list: taasmoutput; const p: tnode;
const todef: tdef);
begin
end;
end.
{
$Log$
Revision 1.1 2002-06-08 19:36:54 florian
* initial release
}