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

* bug #801 fixed

Browse Source
This commit is contained in:
pierre 2000-01-20 12:29:02 +00:00
parent 9836bd406b
commit 1eb30ec4e8
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/pdecl.pas
View File

@ -937,6 +937,8 @@ unit pdecl;
(srsym^.typ=typesym) then
begin
ppointerdef(pd)^.pointertype:=ptypesym(srsym)^.restype;
{ avoid wrong unused warnings web bug 801 PM }
inc(srsym^.refs);
{$ifdef GDB}
if (cs_debuginfo in aktmoduleswitches) and assigned(debuglist) and
(psym(p)^.owner^.symtabletype in [globalsymtable,staticsymtable]) then
@ -1208,7 +1210,10 @@ unit pdecl;
end.
{
$Log$
Revision 1.178 2000-01-11 17:16:05 jonas
Revision 1.179 2000-01-20 12:29:02 pierre
* bug 801 fixed
Revision 1.178 2000/01/11 17:16:05 jonas
* removed a lot of memory leaks when an error is encountered (caused by
procinfo and pstringcontainers). There are still plenty left though :)
@ -1327,4 +1332,4 @@ end.
Revision 1.147 1999/09/02 09:23:51 peter
* fixed double dispose of propsymlist
}
}