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

initialize pd to fix a warning with O3+

Browse Source 
git-svn-id: trunk@29518 -
This commit is contained in:
Károly Balogh 2015-01-22 12:07:50 +00:00
parent 2f40fa7b33
commit 37cf157d7d
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/ngtcon.pas
View File

@ -1288,6 +1288,7 @@ function get_next_varsym(def: tabstractrecorddef; const SymList:TFPHashObjectLis
n.free; n.free;
n:=tmpn; n:=tmpn;
end; end;
pd:=nil;
{ we now need to have a loadn with a procsym } { we now need to have a loadn with a procsym }
havepd:= havepd:=
(n.nodetype=loadn) and (n.nodetype=loadn) and