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

* don't crash in getarraydef/getpointerdef if localsymtable is still nil

Browse Source 
git-svn-id: trunk@22019 -
This commit is contained in:
Jonas Maebe 2012-08-06 20:13:11 +00:00
parent c25d9d5e06
commit be2c757aad
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/symdef.pas
View File

@ -6817,7 +6817,10 @@ implementation
that can have side-effects (e.g., it removes helpers) }
symtablestack:=nil;
res^.Data:=tpointerdef.create(def);
current_module.localsymtable.insertdef(tdef(res^.Data));
if assigned(current_module.localsymtable) then
current_module.localsymtable.insertdef(tdef(res^.Data))
else
current_module.globalsymtable.insertdef(tdef(res^.Data));
symtablestack:=oldsymtablestack;
end;
result:=tpointerdef(res^.Data);
@ -6852,7 +6855,10 @@ implementation
symtablestack:=nil;
res^.Data:=tarraydef.create(0,elecount-1,ptrsinttype);
tarraydef(res^.Data).elementdef:=def;
current_module.localsymtable.insertdef(tdef(res^.Data));
if assigned(current_module.localsymtable) then
current_module.localsymtable.insertdef(tdef(res^.Data))
else
current_module.globalsymtable.insertdef(tdef(res^.Data));
symtablestack:=oldsymtablestack;
end;
result:=tarraydef(res^.Data);