paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 15:31:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ implemented second_prefetch

Browse Source
This commit is contained in:
Jonas Maebe 2004-02-02 21:22:19 +00:00
parent 6a121ddc75
commit 4f957bebff
1 changed files with 39 additions and 2 deletions

41
compiler/powerpc/nppcinl.pas
View File

@ -39,6 +39,7 @@ interface
function first_sqr_real: tnode; override;
procedure second_abs_real; override;
procedure second_sqr_real; override;
procedure second_prefetch;override;
private
procedure load_fpu_location;
end;
@ -46,7 +47,7 @@ interface
implementation
uses
cutils,globals,
cutils,globals,verbose,
aasmtai,aasmcpu,
symconst,symdef,
defutil,
@ -111,12 +112,48 @@ implementation
location.register,left.location.register));
end;
procedure tppcinlinenode.second_prefetch;
var
r: tregister;
begin
secondpass(left);
case left.location.loc of
LOC_CREFERENCE,
LOC_REFERENCE:
begin
r:=cg.getintregister(exprasmlist,OS_ADDR);
if (left.location.reference.offset = 0) and
not assigned(left.location.reference.symbol) then
begin
if (left.location.reference.index = NR_NO) then
exprasmlist.concat(taicpu.op_const_reg(A_DCBT,0,left.location.reference.base))
else
exprasmlist.concat(taicpu.op_reg_reg(A_DCBT,left.location.reference.base,left.location.reference.index));
location_release(exprasmlist,left.location);
end
else
begin
cg.a_loadaddr_ref_reg(exprasmlist,left.location.reference,r);
location_release(exprasmlist,left.location);
exprasmlist.concat(taicpu.op_const_reg(A_DCBT,0,r));
cg.ungetregister(exprasmlist,r);
end;
end;
else
internalerror(200402021);
end;
end;
begin
cinlinenode:=tppcinlinenode;
end.
{
$Log$
Revision 1.11 2003-10-17 01:22:08 florian
Revision 1.12 2004-02-02 21:22:19 jonas
+ implemented second_prefetch
Revision 1.11 2003/10/17 01:22:08 florian
* compilation of the powerpc compiler fixed
Revision 1.10 2003/10/01 20:34:49 peter