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

* added a safety check to gen_load_cgpara_loc()

Browse Source 
git-svn-id: trunk@26024 -
This commit is contained in:
Jonas Maebe 2013-11-10 23:27:05 +00:00
parent 8a0caea0c0
commit 8d1fb0ee1c
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/hlcgobj.pas
View File

@ -4296,9 +4296,6 @@ implementation
end;
{ generates the code for incrementing the reference count of parameters and
initialize out parameters }
{ generates the code for incrementing the reference count of parameters and
@ -4627,8 +4624,15 @@ implementation
anything }
if not reusepara then
begin
reference_reset_base(href,para.location^.reference.index,para.location^.reference.offset,para.alignment);
a_load_ref_ref(list,para.def,para.def,href,destloc.reference);
case para.location^.loc of
LOC_REFERENCE,LOC_CREFERENCE:
begin
reference_reset_base(href,para.location^.reference.index,para.location^.reference.offset,para.alignment);
a_load_ref_ref(list,para.def,para.def,href,destloc.reference);
end;
else
internalerror(2013102301);
end;
end;
end;
{ TODO other possible locations }