From a3fe5e74cfe981ec21138b06afb61c94e0f0a94e Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 26 Mar 2000 11:06:49 +0000
Subject: [PATCH] *** empty log message ***

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

diff --git a/tests/webtbs/tbug893.pp b/tests/webtbs/tbug893.pp
new file mode 100644
index 0000000000..aedcd10ffa
--- /dev/null
+++ b/tests/webtbs/tbug893.pp
@@ -0,0 +1,17 @@
+{$asmmode intel}
+type
+    BugObject = object
+       Fld: word;
+       procedure WontCompile;
+    end;
+
+procedure BugObject.WontCompile;
+begin
+  asm
+    xor ax, ax
+    mov fld, ax
+  end;
+end;
+
+begin
+end.