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

Avoid possible warning about uninitialized srsym variable

Browse Source 
git-svn-id: trunk@42857 -
This commit is contained in:
pierre 2019-08-27 12:15:03 +00:00
parent 2f7c600f4c
commit d29a6de437
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/symtable.pas
View File

@ -4304,6 +4304,8 @@ implementation
hashedid.id:=class_helper_prefix+s;
stackitem:=symtablestack.stack;
result:=false;
srsym:=nil;
srsymtable:=nil;
founddefowner:=nil;
while assigned(stackitem) do
begin
@ -4363,8 +4365,6 @@ implementation
addsymref(srsym);
exit;
end;
srsym:=nil;
srsymtable:=nil;
end;