*** empty log message ***

tests/webtbs/tbug761.pp

@@ -0,0 +1,14 @@
+{$asmmode intel}
+Type TFather = Object A : Integer; end;
+     TSon = Object (TFather) B : Integer; end;
+
+Var Son : TSon;
+
+begin
+  Asm
+    mov  ax, Son.A
+    mov  ax, Son.B
+  end;
+end.
+
+