浏览代码

* valid runtime code

peter 22 年之前
父节点
当前提交
08301263a7
共有 1 个文件被更改,包括 4 次插入0 次删除
  1. 4 0
      tests/webtbs/tw2323.pp

+ 4 - 0
tests/webtbs/tw2323.pp

@@ -6,7 +6,11 @@
 {$Mode Delphi}
 {$ASMMODE Intel}
 
+var
+  buf : array[0..255] of char;
 asm
+    lea ebx,buf
+    add ebx,'('
     mov al, [ebx - '(']
 end.