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

* fixed length(ansistring/widestring/dynarray) in i8086 far data memory models

Browse Source 
git-svn-id: trunk@27673 -
This commit is contained in:
nickysn 2014-04-27 02:26:35 +00:00
parent 63f0731913
commit 214eaebf99
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ncginl.pas
View File

@ -300,16 +300,16 @@ implementation
{ length in ansi/wide strings and high in dynamic arrays is at offset -sizeof(pint) }
hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,left.resultdef,false);
current_asmdata.getjumplabel(lengthlab);
cg.a_cmp_const_reg_label(current_asmdata.CurrAsmList,OS_ADDR,OC_EQ,0,left.location.register,lengthlab);
hlcg.a_cmp_const_reg_label(current_asmdata.CurrAsmList,left.resultdef,OC_EQ,0,left.location.register,lengthlab);
if is_widestring(left.resultdef) and (tf_winlikewidestring in target_info.flags) then
begin
reference_reset_base(href,left.location.register,-sizeof(dword),sizeof(dword));
hlcg.reference_reset_base(href,left.resultdef,left.location.register,-sizeof(dword),sizeof(dword));
hregister:=cg.makeregsize(current_asmdata.CurrAsmList,left.location.register,OS_INT);
cg.a_load_ref_reg(current_asmdata.CurrAsmList,OS_32,OS_INT,href,hregister);
end
else
begin
reference_reset_base(href,left.location.register,-sizeof(pint),sizeof(pint));
hlcg.reference_reset_base(href,left.resultdef,left.location.register,-sizeof(pint),sizeof(pint));
hregister:=cg.makeregsize(current_asmdata.CurrAsmList,left.location.register,OS_INT);
cg.a_load_ref_reg(current_asmdata.CurrAsmList,OS_INT,OS_INT,href,hregister);
end;