浏览代码

+ bug with Rintel

carl 27 年之前
父节点
当前提交
7538fd49d4
共有 1 个文件被更改,包括 11 次插入0 次删除
  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.