Explorar o código

+ bug with Rintel

carl %!s(int64=27) %!d(string=hai) anos
pai
achega
7538fd49d4
Modificáronse 1 ficheiros con 11 adicións e 0 borrados
  1. 11 0
      bugs/bug0124.pp

+ 11 - 0
bugs/bug0124.pp

@@ -0,0 +1,11 @@
+{ Compile with -Rintel switch }
+var
+ l : longint;
+begin
+ { problem here is that l is replaced by BP-offset     }
+ { relative to stack, and the parser thinks all wrong  }
+ { because of this.                                    }
+ asm
+   mov eax, [eax*4+l]    
+ end;
+end.