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

* i8086 far data memory model fix in ncgutil.new_exception

Browse Source 
git-svn-id: trunk@27242 -
This commit is contained in:
nickysn 2014-03-23 18:11:50 +00:00
parent ebdfbeaac8
commit 149db35910
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/ncgutil.pas
View File

@ -412,6 +412,9 @@ implementation
var
paraloc1,paraloc2,paraloc3 : tcgpara;
pd: tprocdef;
{$ifdef i8086}
tmpreg: TRegister;
{$endif i8086}
begin
pd:=search_system_proc('fpc_pushexceptaddr');
paraloc1.init;
@ -443,7 +446,17 @@ implementation
pd:=search_system_proc('fpc_setjmp');
paramanager.getintparaloc(pd,1,paraloc1);
cg.a_load_reg_cgpara(list,OS_ADDR,NR_FUNCTION_RESULT_REG,paraloc1);
{$ifdef i8086}
if current_settings.x86memorymodel in x86_far_data_models then
begin
tmpreg:=cg.getintregister(list,OS_32);
cg.a_load_reg_reg(list,OS_16,OS_16,NR_FUNCTION_RESULT32_LOW_REG,tmpreg);
cg.a_load_reg_reg(list,OS_16,OS_16,NR_FUNCTION_RESULT32_HIGH_REG,GetNextReg(tmpreg));
cg.a_load_reg_cgpara(list,OS_32,tmpreg,paraloc1);
end
else
{$endif i8086}
cg.a_load_reg_cgpara(list,OS_ADDR,NR_FUNCTION_RESULT_REG,paraloc1);
paramanager.freecgpara(list,paraloc1);
cg.allocallcpuregisters(list);
cg.a_call_name(list,'FPC_SETJMP',false);