paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-02 00:40:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed bugs in case the left node was a LOC_(C)REFERENCE

Browse Source
This commit is contained in:
Jonas Maebe 2003-06-13 17:03:38 +00:00
parent 68f1feb47b
commit c0a35f3cab
1 changed files with 18 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
compiler/powerpc/nppcinl.pas
View File

@ -46,14 +46,12 @@ interface
implementation
uses
globtype,systems,
cutils,verbose,globals,fmodule,
symconst,symdef,defutil,
aasmbase,aasmtai,aasmcpu,
cginfo,cgbase,pass_1,pass_2,
cpubase,paramgr,
nbas,ncon,ncal,ncnv,nld,
cga,tgobj,ncgutil,cgobj,cg64f32,rgobj,rgcpu;
cutils,globals,
aasmtai,aasmcpu,
symconst,symdef,
cginfo,cgbase,pass_2,
cpubase,ncgutil,
cgobj,rgobj;
{*****************************************************************************
@ -87,8 +85,13 @@ implementation
begin
location_reset(location,LOC_FPUREGISTER,def_cgsize(resulttype.def));
secondpass(left);
location_force_fpureg(exprasmlist,location,true);
location_copy(location,left.location);
location_force_fpureg(exprasmlist,location,false);
if (location.loc = LOC_CFPUREGISTER) then
begin
location.loc := LOC_FPUREGISTER;
location.register := rg.getregisterfpu(exprasmlist,OS_F64);
end;
end;
procedure tppcinlinenode.second_abs_real;
@ -104,7 +107,7 @@ implementation
location.loc:=LOC_FPUREGISTER;
load_fpu_location;
exprasmlist.concat(taicpu.op_reg_reg_reg(A_FMUL,location.register,
left.location.register,left.location.register));
location.register,left.location.register));
end;
begin
@ -112,7 +115,10 @@ begin
end.
{
$Log$
Revision 1.7 2003-06-01 21:38:06 peter
Revision 1.8 2003-06-13 17:03:38 jonas
* fixed bugs in case the left node was a LOC_(C)REFERENCE
Revision 1.7 2003/06/01 21:38:06 peter
* getregisterfpu size parameter added
* op_const_reg size parameter added
* sparc updates
@ -143,3 +149,4 @@ end.
}