paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 22:39:36 +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 begin
tg.gettemp(current_asmdata.currasmlist,2*sizeof(puint),sizeof(puint),tt_normal,r); 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; location.reference:=r;
cg.a_load_const_ref(current_asmdata.currasmlist,OS_ADDR,0,r); cg.a_load_const_ref(current_asmdata.currasmlist,OS_ADDR,0,r);
inc(r.offset,sizeof(puint)); inc(r.offset,sizeof(puint));