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

+ second_cmpfloat implemented, needs probably to be fixed

Browse Source
This commit is contained in:
florian 2004-03-11 22:41:37 +00:00
parent 2e80f0de5f
commit c855ac1e56
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/arm/narmadd.pas
View File

@ -177,7 +177,6 @@ interface
procedure tarmaddnode.second_cmpfloat;
begin
{ we will see what instruction set we'll use on the arm for FP
pass_left_right;
if (nf_swaped in flags) then
swapleftright;
@ -190,14 +189,10 @@ interface
location_reset(location,LOC_FLAGS,OS_NO);
location.resflags:=getresflags(true);
exprasmlist.concat(taicpu.op_reg_reg(A_FCMPs,
exprasmlist.concat(taicpu.op_reg_reg(A_CMF,
left.location.register,right.location.register));
{ Delay slot (can only contain integer operation) }
exprasmlist.concat(taicpu.op_none(A_NOP));
release_reg_left_right;
}
//!!!!
location_reset(location,LOC_FLAGS,OS_NO);
location.resflags:=getresflags(true);
end;
@ -344,7 +339,10 @@ begin
end.
{
$Log$
Revision 1.11 2004-01-26 19:05:56 florian
Revision 1.12 2004-03-11 22:41:37 florian
+ second_cmpfloat implemented, needs probably to be fixed
Revision 1.11 2004/01/26 19:05:56 florian
* fixed several arm issues
Revision 1.10 2004/01/24 20:19:46 florian