From 81bd47343918e8de171f1f53f26db490934ece79 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Sat, 10 Apr 2021 21:05:58 +0000
Subject: [PATCH] * fixed win32 testsuite regressions after r49084

git-svn-id: trunk@49175 -
---
 compiler/pdecvar.pas | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/compiler/pdecvar.pas b/compiler/pdecvar.pas
index a64d3e6890..446542e519 100644
--- a/compiler/pdecvar.pas
+++ b/compiler/pdecvar.pas
@@ -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;