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

* fixed win32 testsuite regressions after r49084

Browse Source 
git-svn-id: trunk@49175 -
This commit is contained in:
nickysn 2021-04-10 21:05:58 +00:00
parent ad05434401
commit 81bd473439
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/pdecvar.pas
View File

@ -871,8 +871,14 @@ implementation
end
else
begin
readprocdef.free;
writeprocdef.free;
if readprocdef.proctypeoption=potype_propgetter then
readprocdef.maybe_put_in_symtable_stack
else
readprocdef.free;
if writeprocdef.proctypeoption=potype_propsetter then
writeprocdef.maybe_put_in_symtable_stack
else
writeprocdef.free;
end;
result:=p;