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

* taddnode.pass_1: set correctly expectloc to LOC_JUMP or LOC_FLAGS for compare

Browse Source 
nodes on 16/8-bit targets. This fixes (among other things) the conversion of
  booleans to boolean16 or boolean32 on i8086.

git-svn-id: trunk@26341 -
This commit is contained in:
nickysn 2013-12-31 16:22:24 +00:00
parent 4917d8da39
commit 72e526b9b1
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/nadd.pas
View File

@ -2914,12 +2914,10 @@ implementation
{$endif cpuneedsmulhelper} {$endif cpuneedsmulhelper}
if nodetype in [addn,subn,muln,andn,orn,xorn] then if nodetype in [addn,subn,muln,andn,orn,xorn] then
expectloc:=LOC_REGISTER expectloc:=LOC_REGISTER
else if torddef(ld).size>sizeof(aint) then
expectloc:=LOC_JUMP
else else
{$ifdef cpu16bitalu}
expectloc:=LOC_JUMP;
{$else cpu16bitalu}
expectloc:=LOC_FLAGS; expectloc:=LOC_FLAGS;
{$endif cpu16bitalu}
end; end;
end end