paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-28 06:43:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* lost reference because refcount not increased fixed

Browse Source
This commit is contained in:
pierre 1999-03-19 17:31:54 +00:00
parent 0e31a84f5b
commit acfcb937da
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/tccal.pas
View File

@ -869,6 +869,7 @@ implementation
if make_ref then
begin
procs^.data^.lastref:=new(pref,init(procs^.data^.lastref,@p^.fileinfo));
inc(procs^.data^.refcount);
if procs^.data^.defref=nil then
procs^.data^.defref:=procs^.data^.lastref;
end;
@ -1117,7 +1118,10 @@ implementation
end.
{
$Log$
Revision 1.26 1999-03-02 18:24:22 peter
Revision 1.27 1999-03-19 17:31:54 pierre
* lost reference because refcount not increased fixed
Revision 1.26 1999/03/02 18:24:22 peter
* fixed overloading of array of char
Revision 1.25 1999/02/22 15:09:44 florian