Kaynağa Gözat

+ bug with Rintel

carl 27 yıl önce
ebeveyn
işleme
7538fd49d4
1 değiştirilmiş dosya ile 11 ekleme ve 0 silme
  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.