paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 10:26:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

* set size of nil constants casted to method pointers correctly, first part of resolving #10684

Browse Source 
git-svn-id: trunk@12827 -
This commit is contained in:
florian 2009-02-28 20:01:58 +00:00
parent fd070544db
commit cc622779c9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncgcnv.pas
View File

@ -375,7 +375,7 @@ interface
begin
tg.gettemp(current_asmdata.currasmlist,2*sizeof(puint),sizeof(puint),tt_normal,r);
location_reset_ref(location,LOC_REFERENCE,OS_NO,0);
location_reset_ref(location,LOC_REFERENCE,def_cgsize(resultdef),0);
location.reference:=r;
cg.a_load_const_ref(current_asmdata.currasmlist,OS_ADDR,0,r);
inc(r.offset,sizeof(puint));