From 1ac5e23f12d6eb508a9d4099becb64a40decacad Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 9 Dec 2000 10:36:11 +0000
Subject: [PATCH] *** empty log message ***

---
 tests/webtbs/tw1283.pp | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 tests/webtbs/tw1283.pp

diff --git a/tests/webtbs/tw1283.pp b/tests/webtbs/tw1283.pp
new file mode 100644
index 0000000000..ba6c43d119
--- /dev/null
+++ b/tests/webtbs/tw1283.pp
@@ -0,0 +1,37 @@
+{ %version=1.1 }
+{$mode objfpc}
+ type
+     t = class(tobject)
+      constructor Init;
+     end;
+
+ constructor t.Init;
+ begin
+  fail; { constructor will return NULL in ESI now, which is OK }
+ end;
+
+ type
+     c = class(tobject)
+      procedure p;
+     end;
+
+
+ procedure c.p;
+  var i:t;
+ begin
+  i:=t.Init;
+  if i<>nil then 
+    begin
+       writeln('Problem with saving a non assigned self'); 
+       halt(1);
+    end;
+  { returned is NULL in ESI, and AfterConstructor is attempted to call by
+    referencing an invalid VMT via ESI}
+ end;
+
+ var i:c;
+
+begin
+ i:=c.create; i.p;
+end.
+