* last memory leaks found when compiler

    a native atari compiler fixed

compiler/cg68kcal.pas

@@ -511,6 +511,8 @@ implementation
                    p^.methodpointer:=genzeronode(callparan);
                    p^.methodpointer^.location.loc:=LOC_REGISTER;
                    p^.methodpointer^.location.register:=R_A5;
+                   { change dispose type !! }
+                   p^.disposetyp:=dt_mbleft_and_method;
                    { make a reference }
                    new(r);
                    reset_reference(r^);
@@ -1047,7 +1049,11 @@ implementation
 end.
 {
   $Log$
-  Revision 1.9  1998-10-14 11:28:16  florian
+  Revision 1.10  1998-10-15 12:41:16  pierre
+    * last memory leaks found when compiler
+      a native atari compiler fixed
+
+  Revision 1.9  1998/10/14 11:28:16  florian
     * emitpushreferenceaddress gets now the asmlist as parameter
     * m68k version compiles with -duseansistrings
 

compiler/cg68kcnv.pas

@@ -1026,7 +1026,7 @@ implementation
      procedure second_proc_to_procvar(p,hp : ptree;convtyp : tconverttype);
 
      begin
-        secondpass(hp);
+        { secondpass(hp); already done in secondtypeconv PM }
         clear_location(p^.location);
         p^.location.loc:=LOC_REGISTER;
         del_reference(hp^.location.reference);
@@ -1142,6 +1142,8 @@ implementation
          else
            internalerror(10061);
          end;
+         freelabel(truelabel);
+         freelabel(falselabel);
          truelabel:=oldtruelabel;
          falselabel:=oldfalselabel;
      end;
@@ -1396,7 +1398,11 @@ implementation
 end.
 {
   $Log$
-  Revision 1.9  1998-10-14 11:28:17  florian
+  Revision 1.10  1998-10-15 12:41:17  pierre
+    * last memory leaks found when compiler
+      a native atari compiler fixed
+
+  Revision 1.9  1998/10/14 11:28:17  florian
     * emitpushreferenceaddress gets now the asmlist as parameter
     * m68k version compiles with -duseansistrings
 

compiler/cg68kset.pas

@@ -453,7 +453,9 @@ implementation
                            { the complex one first }
                            firstcomplex(p);
                            secondpass(p^.left);
-                           set_location(p^.location,p^.left^.location);
+                           {
+                           unnecessary !! PM
+                           set_location(p^.location,p^.left^.location);}
                            { are too few registers free? }
                            pushed:=maybe_push(p^.right^.registers32,p);
                            secondpass(p^.right);
@@ -812,7 +814,11 @@ implementation
 end.
 {
   $Log$
-  Revision 1.6  1998-10-13 16:50:11  pierre
+  Revision 1.7  1998-10-15 12:41:19  pierre
+    * last memory leaks found when compiler
+      a native atari compiler fixed
+
+  Revision 1.6  1998/10/13 16:50:11  pierre
     * undid some changes of Peter that made the compiler wrong
       for m68k (I had to reinsert some ifdefs)
     * removed several memory leaks under m68k