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

* extra error checking in gen_load_cgpara_loc

Browse Source 
git-svn-id: trunk@29824 -
This commit is contained in:
Jonas Maebe 2015-02-23 22:47:59 +00:00
parent 3fe0bd065e
commit bc3d495285
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/ncgutil.pas
View File

@ -1244,10 +1244,17 @@ implementation
else
{$endif not cpu64bitalu}
begin
unget_para(paraloc^);
gen_alloc_regloc(list,destloc);
{ from register to register -> alignment is irrelevant }
cg.a_load_cgparaloc_anyreg(list,destloc.size,paraloc^,destloc.register,0);
if not assigned(paraloc^.next) then
begin
unget_para(paraloc^);
gen_alloc_regloc(list,destloc);
{ from register to register -> alignment is irrelevant }
cg.a_load_cgparaloc_anyreg(list,destloc.size,paraloc^,destloc.register,0);
end
else
begin
internalerror(200410108);
end;
{ data could come in two memory locations, for now
we simply ignore the sanity check (FK)
if assigned(paraloc^.next) then