+ Added fixed bug #280

bugs/bug0280.pp

@@ -0,0 +1,35 @@
+{$H+}
+
+program memhole;
+
+uses
+   dpmiexcp;
+
+type
+  TMyClass = class
+    s: String;
+  end;
+  plongint = ^longint;
+
+procedure dotest;
+
+var
+  c: TMyClass;
+  s : string;
+
+begin
+  s:='world';
+  s:='Hallo '+s;
+  writeln((plongint(s)-4)^);
+  c := TMyClass.Create;
+  writeln(longint(c.s));
+  c.s := Copy('Test', 1, 4);
+  writeln((plongint(c.s)-4)^);
+  c.free;
+end;
+
+begin
+  writeln(memavail);
+  dotest;
+  writeln(memavail);
+end.

bugs/readme.txt

@@ -320,7 +320,7 @@ Fixed bugs:
   bug0267.pp   parameters after methodpointer are wrong             OK 0.99.12b (FK)
   bug0269.pp   wrong linenumber for repeat until when type mismatch OK 0.99.12b (PM)
   bug0278.pp   (* in conditional code is handled wrong for tp,delphi OK 0.99.13 (PFV)
-
+  bug0280.pp   problem with object finalization.                    OK 0.99.13 (FK)
 
 Unproducable bugs:
 ------------------