mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-11 15:47:51 +02:00
* fixed type used to load the code pointer of a complex procvar
git-svn-id: branches/hlcgllvm@28782 -
This commit is contained in:
parent
cc596225fa
commit
7e2d4fb29e
@ -790,7 +790,11 @@ implementation
|
||||
hlcg.a_load_reg_reg(current_asmdata.CurrAsmList,codeprocdef,codeprocdef,srcreg,result)
|
||||
end
|
||||
else
|
||||
hlcg.a_load_loc_reg(current_asmdata.CurrAsmList,codeprocdef,codeprocdef,right.location,result);
|
||||
begin
|
||||
hlcg.location_force_mem(current_asmdata.CurrAsmList,right.location,procdefinition);
|
||||
hlcg.g_ptrtypecast_ref(current_asmdata.CurrAsmList,getpointerdef(procdefinition),getpointerdef(codeprocdef),right.location.reference);
|
||||
hlcg.a_load_ref_reg(current_asmdata.CurrAsmList,codeprocdef,codeprocdef,right.location.reference,result);
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user