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

* proper fix for rev. 4097.

Browse Source 
git-svn-id: trunk@4099 -
This commit is contained in:
yury 2006-07-06 12:23:29 +00:00
parent 4c3d73106c
commit 0c396ad3da
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/arm/cgcpu.pas
View File

@ -1653,14 +1653,18 @@ unit cgcpu;
(torddef(def).typ in [u64bit,u16bit,u32bit,u8bit,uchar,bool8bit,bool16bit,bool32bit]))) then (torddef(def).typ in [u64bit,u16bit,u32bit,u8bit,uchar,bool8bit,bool16bit,bool32bit]))) then
ai.SetCondition(C_VC) ai.SetCondition(C_VC)
else else
ai.SetCondition(C_CS); if TAiCpu(List.Last).opcode in [A_RSB,A_RSC,A_SBC,A_SUB] then
ai.SetCondition(C_CS)
else
ai.SetCondition(C_CC);
list.concat(ai); list.concat(ai);
end; end;
LOC_FLAGS: LOC_FLAGS:
begin begin
hflags:=ovloc.resflags; hflags:=ovloc.resflags;
inverse_flags(hflags); if not (hflags in [F_CS,F_CC]) then
inverse_flags(hflags);
cg.a_jmp_flags(list,hflags,hl); cg.a_jmp_flags(list,hflags,hl);
end; end;
else else