diff --git a/compiler/aasmbase.pas b/compiler/aasmbase.pas
index af76b14f63..d81ea44c8d 100644
--- a/compiler/aasmbase.pas
+++ b/compiler/aasmbase.pas
@@ -430,6 +430,7 @@ implementation
       begin
         if assigned(Data) then
           Data.Free;
+        relocations.free;
       end;
 
 
@@ -781,7 +782,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.2  2002-07-07 09:52:32  florian
+  Revision 1.3  2002-07-10 07:24:40  jonas
+    * memory leak fixes from Sergey Korshunoff
+
+  Revision 1.2  2002/07/07 09:52:32  florian
     * powerpc target fixed, very simple units can be compiled
     * some basic stuff for better callparanode handling, far from being finished
 
diff --git a/compiler/assemble.pas b/compiler/assemble.pas
index 7d4bfc7f16..261f0118a7 100644
--- a/compiler/assemble.pas
+++ b/compiler/assemble.pas
@@ -1490,6 +1490,9 @@ Implementation
               hp:=Tai(hp.next);
             end;
 
+           if not MaybeNextList(hp) then
+             break;
+
            { start next objectfile }
            NextSmartName(place);
            objectdata:=objectoutput.newobjectdata(Objfile);
@@ -1498,8 +1501,6 @@ Implementation
            if starTSec=sec_none then
              starTSec:=sec_code;
 
-           if not MaybeNextList(hp) then
-             break;
          end;
       end;
 
@@ -1595,7 +1596,10 @@ Implementation
 end.
 {
   $Log$
-  Revision 1.37  2002-07-01 18:46:21  peter
+  Revision 1.38  2002-07-10 07:24:40  jonas
+    * memory leak fixes from Sergey Korshunoff
+
+  Revision 1.37  2002/07/01 18:46:21  peter
     * internal linker
     * reorganized aasm layer
 
diff --git a/compiler/symsym.pas b/compiler/symsym.pas
index 09ec15c249..c1b4edcb4f 100644
--- a/compiler/symsym.pas
+++ b/compiler/symsym.pas
@@ -1070,11 +1070,11 @@ implementation
         index:=overriden.index;
         default:=overriden.default;
         indextype:=overriden.indextype;
-        readaccess.clear;
+        readaccess.free;
         readaccess:=overriden.readaccess.getcopy;
-        writeaccess.clear;
+        writeaccess.free;
         writeaccess:=overriden.writeaccess.getcopy;
-        storedaccess.clear;
+        storedaccess.free;
         storedaccess:=overriden.storedaccess.getcopy;
       end;
 
@@ -2517,7 +2517,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.40  2002-07-01 18:46:27  peter
+  Revision 1.41  2002-07-10 07:24:40  jonas
+    * memory leak fixes from Sergey Korshunoff
+
+  Revision 1.40  2002/07/01 18:46:27  peter
     * internal linker
     * reorganized aasm layer