* fixed double dispose of propsymlist

compiler/pdecl.pas

@@ -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