paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-08 12:17:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ FPURESULTREG -> FPU_RESULT_REG

Browse Source
This commit is contained in:
carl 2002-07-25 17:56:29 +00:00
parent 9a26de0ea3
commit 448d40de1a
4 changed files with 23 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/i386/cpubase.pas
View File

@ -410,7 +410,7 @@ uses
accumulatorhigh = R_EDX;
{ WARNING: don't change to R_ST0!! See comments above implementation of }
{ a_loadfpu* methods in rgcpu (JM) }
fpuresultreg = R_ST;
fpu_result_reg = R_ST;
mmresultreg = R_MM0;
{*****************************************************************************
@ -486,7 +486,10 @@ implementation
end.
{
$Log$
Revision 1.26 2002-07-07 09:52:33 florian
Revision 1.27 2002-07-25 18:01:29 carl
+ FPURESULTREG -> FPU_RESULT_REG
Revision 1.26 2002/07/07 09:52:33 florian
* powerpc target fixed, very simple units can be compiled
* some basic stuff for better callparanode handling, far from being finished

11
compiler/ncgflw.pas
View File

@ -500,9 +500,9 @@ implementation
floatdef :
begin
{$ifndef i386}
cg.a_reg_alloc(exprasmlist,fpuresultreg);
cg.a_reg_alloc(exprasmlist,FPU_RESULT_REG);
{$endif not i386}
cg.a_loadfpu_loc_reg(exprasmlist,left.location,fpuresultreg);
cg.a_loadfpu_loc_reg(exprasmlist,left.location,FPU_RESULT_REG);
end;
else
begin
@ -535,7 +535,7 @@ do_jmp:
cg.a_reg_dealloc(exprasmlist,accumulatorhigh);
{$ifndef i386}
if (aktprocdef.rettype.def.deftype = floatdef) then
cg.a_reg_dealloc(exprasmlist,fpuresultreg);
cg.a_reg_dealloc(exprasmlist,FPU_RESULT_REG);
{$endif not i386}
end
else
@ -627,7 +627,10 @@ begin
end.
{
$Log$
Revision 1.28 2002-07-21 06:58:49 daniel
Revision 1.29 2002-07-25 17:56:29 carl
+ FPURESULTREG -> FPU_RESULT_REG
Revision 1.28 2002/07/21 06:58:49 daniel
* Changed booleans into flags
Revision 1.27 2002/07/20 12:54:53 daniel

9
compiler/ncgutil.pas
View File

@ -1020,7 +1020,7 @@ implementation
end;
floatdef :
begin
cg.a_loadfpu_ref_reg(list,cgsize,href,fpuresultreg);
cg.a_loadfpu_ref_reg(list,cgsize,href,FPU_RESULT_REG);
end;
else
begin
@ -1060,7 +1060,7 @@ implementation
end;
floatdef :
begin
cg.a_loadfpu_reg_ref(list,cgsize,fpuresultreg,href);
cg.a_loadfpu_reg_ref(list,cgsize,FPU_RESULT_REG,href);
end;
else
begin
@ -1629,7 +1629,10 @@ implementation
end.
{
$Log$
Revision 1.23 2002-07-20 11:57:54 florian
Revision 1.24 2002-07-25 17:58:24 carl
+ FPURESULTREG -> FPU_RESULT_REG
Revision 1.23 2002/07/20 11:57:54 florian
* types.pas renamed to defbase.pas because D6 contains a types
unit so this would conflicts if D6 programms are compiled
+ Willamette/SSE2 instructions to assembler added

7
compiler/powerpc/cpubase.pas
View File

@ -520,7 +520,7 @@ uses
{ WARNING: don't change to R_ST0!! See comments above implementation of }
{ a_loadfpu* methods in rgcpu (JM) }
{$warning I don't know the exact values, please check (PFV) }
fpuresultreg = R_F0;
FPU_RESULT_REG = R_F0;
mmresultreg = R_M0;
{*****************************************************************************
@ -647,7 +647,10 @@ implementation
end.
{
$Log$
Revision 1.19 2002-07-13 19:38:44 florian
Revision 1.20 2002-07-25 18:04:10 carl
+ FPURESULTREG -> FPU_RESULT_REG
Revision 1.19 2002/07/13 19:38:44 florian
* some more generic calling stuff fixed
Revision 1.18 2002/07/11 14:41:34 florian