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
              because it's doomed to crash
 bug0155.pp   Asm, Missing string return for asm functions
 bug0155.pp   Asm, Missing string return for asm functions
 bug0170.pp   Asm, {$ifdef} is seen as a separator
 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
 bug0152.pp   End value of loop variable must be calculated before loop
              variable is initialized.
              variable is initialized.
@@ -225,3 +226,4 @@ bug0169.pp   missing new(type) support for not object/class
 bug0171.pp   missing typecasting in constant expressions
 bug0171.pp   missing typecasting in constant expressions
 bug0172.pp   with with absolute seg:ofs should not be possible
 bug0172.pp   with with absolute seg:ofs should not be possible
 bug0173.pp   secondbug is parsed as asm, but should be normal pascalcode
 bug0173.pp   secondbug is parsed as asm, but should be normal pascalcode
+