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

* fixed crash in dwarf generation when generating info for empty default parameter sets

Browse Source 
git-svn-id: trunk@4140 -
This commit is contained in:
florian 2006-07-10 18:14:52 +00:00
parent 6185a32923
commit a7b5f78daf
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/dbgdwarf.pas
View File

@ -1345,7 +1345,8 @@ implementation
pointerdef : pointerdef :
insertdef(list,tpointerdef(def).pointertype.def); insertdef(list,tpointerdef(def).pointertype.def);
setdef : setdef :
insertdef(list,tsetdef(def).elementtype.def); if assigned(tsetdef(def).elementtype.def) then
insertdef(list,tsetdef(def).elementtype.def);
procvardef: procvardef:
begin begin
insertdef(list,tprocvardef(def).rettype.def); insertdef(list,tprocvardef(def).rettype.def);