From d90b5855695a15378d8f16557b6bc91c6e64fb11 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 7 Oct 2002 18:09:35 +0000
Subject: [PATCH]   * new bug

---
 tests/webtbf/tw1633.pp | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 tests/webtbf/tw1633.pp

diff --git a/tests/webtbf/tw1633.pp b/tests/webtbf/tw1633.pp
new file mode 100644
index 0000000000..7617a538a0
--- /dev/null
+++ b/tests/webtbf/tw1633.pp
@@ -0,0 +1,42 @@
+{ %fail }
+
+{$ifdef fpc}
+  {$mode delphi}
+  {$asmmode intel}
+{$endif}
+
+type tscreen = class
+      x : Cardinal;
+      end;
+type ttestobj = class
+   screen : tscreen;
+   constructor create;
+   function testasmcall : tscreen;
+end;
+
+var
+  testobj : ttestobj;
+
+constructor ttestobj.create;
+begin
+  asm
+  mov screen.x,0
+  end;
+end;
+
+function ttestobj.testasmcall : tscreen;
+begin
+asm
+mov screen.x, 0
+ADD screen.x, 1
+end;
+result := screen;
+end;
+
+
+begin
+testobj := ttestobj.create;
+testobj.testasmcall;
+testobj.destroy;
+end.
+