peter 27 years ago
parent
commit
37badd4383
2 changed files with 21 additions and 0 deletions
  1. 19 0
      bugs/bug0174.pp
  2. 2 0
      bugs/readme.txt

+ 19 - 0
bugs/bug0174.pp

@@ -0,0 +1,19 @@
+{$ASMMODE ATT}
+
+type
+  tobj=object
+   l : longint;
+  end;
+var
+  t : tobj;
+
+procedure kl;assembler;
+asm
+  movl tobj.l,%eax        // tobj.l should return the offset of l in tobj 
+end;
+
+
+begin
+end.
+
+

+ 2 - 0
bugs/readme.txt

@@ -217,6 +217,7 @@ bug0153.pp   Asm, indexing a local/para var should produce an error like tp7
              because it's doomed to crash
 bug0155.pp   Asm, Missing string return for asm functions
 bug0170.pp   Asm, {$ifdef} is seen as a separator
+bug0174.pp   Asm, offsets of fields are not possible yet
 
 bug0152.pp   End value of loop variable must be calculated before loop
              variable is initialized.
@@ -225,3 +226,4 @@ bug0169.pp   missing new(type) support for not object/class
 bug0171.pp   missing typecasting in constant expressions
 bug0172.pp   with with absolute seg:ofs should not be possible
 bug0173.pp   secondbug is parsed as asm, but should be normal pascalcode
+