Browse Source

* disposetree for classrefdef added

florian 26 years ago
parent
commit
08a34c6308
1 changed files with 5 additions and 1 deletions
  1. 5 1
      compiler/ptconst.pas

+ 5 - 1
compiler/ptconst.pas

@@ -210,6 +210,7 @@ unit ptconst;
                    curconstsegment^.concat(new(pai_const,init_32bit(0)));
                    curconstsegment^.concat(new(pai_const,init_32bit(0)));
                  else Message(cg_e_illegal_expression);
                  else Message(cg_e_illegal_expression);
               end;
               end;
+              disposetree(p);
            end;
            end;
          pointerdef:
          pointerdef:
            begin
            begin
@@ -764,7 +765,10 @@ unit ptconst;
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.57  1999-11-08 16:24:28  pierre
+  Revision 1.58  1999-11-08 18:50:11  florian
+    * disposetree for classrefdef added
+
+  Revision 1.57  1999/11/08 16:24:28  pierre
    * missing disposetree added to avoid memory loss
    * missing disposetree added to avoid memory loss
 
 
   Revision 1.56  1999/11/08 14:02:16  florian
   Revision 1.56  1999/11/08 14:02:16  florian