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

* fixed comparison of far procvars after the hlcgllvm branch merge

Browse Source 
git-svn-id: trunk@30357 -
This commit is contained in:
nickysn 2015-03-29 00:56:43 +00:00
parent bbecfeed9e
commit c28184b697
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/i8086/n8086add.pas
View File

@ -938,7 +938,7 @@ interface
begin begin
if is_farpointer(left.resultdef) then if is_farpointer(left.resultdef) then
second_cmpfarpointer second_cmpfarpointer
else if is_32bit(left.resultdef) or is_hugepointer(left.resultdef) then else if is_32bit(left.resultdef) or is_hugepointer(left.resultdef) or is_farprocvar(left.resultdef) then
second_cmp32bit second_cmp32bit
else else
inherited second_cmpordinal; inherited second_cmpordinal;