From 7e85e278655db98668c3bc1767d4956f400c6e94 Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Sat, 4 Feb 2017 13:46:26 +0000
Subject: [PATCH] * fix ncgrtti correctly (for once that warning was indeed
 useful :P )

git-svn-id: trunk@35388 -
---
 compiler/ncgrtti.pas | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/compiler/ncgrtti.pas b/compiler/ncgrtti.pas
index 9abc662491..94761529da 100644
--- a/compiler/ncgrtti.pas
+++ b/compiler/ncgrtti.pas
@@ -232,7 +232,6 @@ implementation
                       tcb.emit_ord_const(def.callerargareasize,ptrsinttype);
                       tcb.emit_shortstring_const(sym.realname);
 
-                      para:=nil;
                       for k:=0 to def.paras.count-1 do
                         begin
                           para:=tparavarsym(def.paras[k]);
@@ -254,7 +253,7 @@ implementation
                         end;
 
                       if not is_void(def.returndef) then
-                        write_paralocs(tcb,@para.paraloc[callerside]);
+                        write_paralocs(tcb,@def.funcretloc[callerside]);
 
                       tcb.end_anonymous_record;
                     end;