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

* fix ncgrtti correctly (for once that warning was indeed useful :P )

Browse Source 
git-svn-id: trunk@35388 -
This commit is contained in:
svenbarth 2017-02-04 13:46:26 +00:00
parent 4b63da81aa
commit 7e85e27865
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/ncgrtti.pas
View File

@ -232,7 +232,6 @@ implementation
tcb.emit_ord_const(def.callerargareasize,ptrsinttype); tcb.emit_ord_const(def.callerargareasize,ptrsinttype);
tcb.emit_shortstring_const(sym.realname); tcb.emit_shortstring_const(sym.realname);
para:=nil;
for k:=0 to def.paras.count-1 do for k:=0 to def.paras.count-1 do
begin begin
para:=tparavarsym(def.paras[k]); para:=tparavarsym(def.paras[k]);
@ -254,7 +253,7 @@ implementation
end; end;
if not is_void(def.returndef) then if not is_void(def.returndef) then
write_paralocs(tcb,@para.paraloc[callerside]); write_paralocs(tcb,@def.funcretloc[callerside]);
tcb.end_anonymous_record; tcb.end_anonymous_record;
end; end;