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

* fixed double dispose of propsymlist

Browse Source
This commit is contained in:
peter 1999-09-02 09:23:51 +00:00
parent f25c3db6f1
commit bd55afa666
1 changed files with 31 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
compiler/pdecl.pas
View File

@ -899,6 +899,30 @@ unit pdecl;
root:=hp;
end;
function copypropsymlist(s:ppropsymlist):ppropsymlist;
var
root,last,hp : ppropsymlist;
begin
copypropsymlist:=nil;
if not assigned(s) then
exit;
last:=nil;
root:=nil;
while assigned(s) do
begin
new(hp);
hp^.sym:=s^.sym;
hp^.next:=nil;
if assigned(last) then
last^.next:=hp;
last:=hp;
if not assigned(root) then
root:=hp;
s:=s^.next;
end;
copypropsymlist:=root;
end;
var
hp2,datacoll : pdefcoll;
p,p2 : ppropertysym;
@ -1025,11 +1049,11 @@ unit pdecl;
p^.propoptions:=ppropertysym(overriden)^.propoptions;
p^.index:=ppropertysym(overriden)^.index;
p^.proptype:=ppropertysym(overriden)^.proptype;
p^.writeaccesssym:=ppropertysym(overriden)^.writeaccesssym;
p^.readaccesssym:=ppropertysym(overriden)^.readaccesssym;
p^.writeaccesssym:=copypropsymlist(ppropertysym(overriden)^.writeaccesssym);
p^.readaccesssym:=copypropsymlist(ppropertysym(overriden)^.readaccesssym);
p^.storedsym:=copypropsymlist(ppropertysym(overriden)^.storedsym);
p^.writeaccessdef:=ppropertysym(overriden)^.writeaccessdef;
p^.readaccessdef:=ppropertysym(overriden)^.readaccessdef;
p^.storedsym:=ppropertysym(overriden)^.storedsym;
p^.storeddef:=ppropertysym(overriden)^.storeddef;
p^.default:=ppropertysym(overriden)^.default;
end
@ -2407,7 +2431,10 @@ unit pdecl;
end.
{
$Log$
Revision 1.146 1999-09-01 13:44:56 florian
Revision 1.147 1999-09-02 09:23:51 peter
* fixed double dispose of propsymlist
Revision 1.146 1999/09/01 13:44:56 florian
* fixed writing of class rtti: vmt offset were written wrong
Revision 1.145 1999/08/26 21:17:39 peter