paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-28 05:19:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* 32 bit comparison normally result in LOC_FLAGS on 16 bit CPUs

Browse Source 
git-svn-id: branches/i8086@23875 -
This commit is contained in:
florian 2013-03-16 20:02:36 +00:00
parent 636129ed8c
commit 88455bbb02
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/nadd.pas
View File

@ -2910,7 +2910,11 @@ implementation
if nodetype in [addn,subn,muln,andn,orn,xorn] then
expectloc:=LOC_REGISTER
else
{$ifdef cpu16bitalu}
expectloc:=LOC_JUMP;
{$else cpu16bitalu}
expectloc:=LOC_FLAGS;
{$endif cpu16bitalu}
end
{$endif cpuneedsmulhelper}
{ generic s32bit conversion }
@ -2946,8 +2950,12 @@ implementation
if nodetype in [addn,subn,muln,andn,orn,xorn] then
expectloc:=LOC_REGISTER
else
{$ifdef cpu16bitalu}
expectloc:=LOC_JUMP;
{$else cpu16bitalu}
expectloc:=LOC_FLAGS;
end;
{$endif cpu16bitalu}
end;
end
{ left side a setdef, must be before string processing,