paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 20:29:18 +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

7
compiler/pdecl.pas
View File

@ -937,6 +937,8 @@ unit pdecl;
(srsym^.typ=typesym) then (srsym^.typ=typesym) then
begin begin
ppointerdef(pd)^.pointertype:=ptypesym(srsym)^.restype; ppointerdef(pd)^.pointertype:=ptypesym(srsym)^.restype;
{ avoid wrong unused warnings web bug 801 PM }
inc(srsym^.refs);
{$ifdef GDB} {$ifdef GDB}
if (cs_debuginfo in aktmoduleswitches) and assigned(debuglist) and if (cs_debuginfo in aktmoduleswitches) and assigned(debuglist) and
(psym(p)^.owner^.symtabletype in [globalsymtable,staticsymtable]) then (psym(p)^.owner^.symtabletype in [globalsymtable,staticsymtable]) then
@ -1208,7 +1210,10 @@ unit pdecl;
end. end.
{ {
$Log$ $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 * removed a lot of memory leaks when an error is encountered (caused by
procinfo and pstringcontainers). There are still plenty left though :) procinfo and pstringcontainers). There are still plenty left though :)