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

* support int register in treference.segment in tcg8086.a_load_const_ref; this fixes farptr^:=const

Browse Source 
git-svn-id: trunk@24569 -
This commit is contained in:
nickysn 2013-05-24 13:36:22 +00:00
parent 0baa004571
commit 9171c19601
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/i8086/cgcpu.pas
View File

@ -760,6 +760,13 @@ unit cgcpu;
tmpref:=ref;
make_simple_ref(list,tmpref);
if (tmpref.segment<>NR_NO) and (not is_segment_reg(tmpref.segment)) then
begin
list.concat(taicpu.op_reg(A_PUSH,S_W,tmpref.segment));
list.concat(taicpu.op_reg(A_POP,S_L,NR_ES));
tmpref.segment:=NR_ES;
end;
if tosize in [OS_S32,OS_32] then
begin
a_load_const_ref(list,OS_16,longint(a and $ffff),tmpref);