* fixed memory leak, introduced accidentally in r48998

git-svn-id: trunk@49084 -

compiler/pdecvar.pas

@@ -861,9 +861,18 @@ implementation
          if assigned(current_module) and current_module.in_interface then
            begin
              if readprocdef.proctypeoption=potype_propgetter then
-               readprocdef.register_def;
+               readprocdef.register_def
+             else
+               readprocdef.free;
              if writeprocdef.proctypeoption=potype_propsetter then
-               writeprocdef.register_def;
+               writeprocdef.register_def
+             else
+               writeprocdef.free;
+           end
+         else
+           begin
+             readprocdef.free;
+             writeprocdef.free;
            end;
 
          result:=p;