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

* 8086: Fixed an internal error for cases like FarPtr2 := FarPointer($12345678) + int16;

Browse Source 
git-svn-id: trunk@46477 -
This commit is contained in:
yury 2020-08-18 09:19:20 +00:00
parent 075057f929
commit 2186846ab1
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

@ -448,7 +448,7 @@ interface
pointernode: tnode; pointernode: tnode;
begin begin
pass_left_right; pass_left_right;
force_reg_left_right(false,true); force_reg_left_right(true,true);
set_result_location_reg; set_result_location_reg;
if (left.resultdef.typ=pointerdef) and (right.resultdef.typ<>pointerdef) then if (left.resultdef.typ=pointerdef) and (right.resultdef.typ<>pointerdef) then