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

* set expectloc correctly for far pointer comparison as well

Browse Source 
git-svn-id: trunk@28217 -
This commit is contained in:
nickysn 2014-07-13 16:25:20 +00:00
parent 04234c733f
commit 200df7a136
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/i8086/n8086add.pas
View File

@ -39,6 +39,7 @@ interface
function first_addhugepointer: tnode; function first_addhugepointer: tnode;
function first_cmppointer: tnode; override; function first_cmppointer: tnode; override;
function first_cmphugepointer: tnode; function first_cmphugepointer: tnode;
function first_cmpfarpointer: tnode;
procedure second_addordinal; override; procedure second_addordinal; override;
procedure second_add64bit;override; procedure second_add64bit;override;
procedure second_addfarpointer; procedure second_addfarpointer;
@ -358,6 +359,8 @@ interface
begin begin
if is_hugepointer(left.resultdef) or is_hugepointer(right.resultdef) then if is_hugepointer(left.resultdef) or is_hugepointer(right.resultdef) then
result:=first_cmphugepointer result:=first_cmphugepointer
else if is_farpointer(left.resultdef) or is_farpointer(right.resultdef) then
result:=first_cmpfarpointer
else else
result:=inherited; result:=inherited;
end; end;
@ -401,6 +404,22 @@ interface
end; end;
function ti8086addnode.first_cmpfarpointer: tnode;
begin
{ = and <> are handled as a 32-bit comparison }
if nodetype in [equaln,unequaln] then
begin
result:=nil;
expectloc:=LOC_JUMP;
end
else
begin
result:=nil;
expectloc:=LOC_FLAGS;
end;
end;
procedure ti8086addnode.second_addfarpointer; procedure ti8086addnode.second_addfarpointer;
var var
tmpreg : tregister; tmpreg : tregister;