浏览代码

* Only go32v2,linux,freebsd

peter 22 年之前
父节点
当前提交
4456f5cde6
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      tests/webtbs/tw0736.pp

+ 2 - 1
tests/webtbs/tw0736.pp

@@ -23,7 +23,8 @@ procedure tobj.testx;
 begin
   asm
     mov ax,3
-    mov word ptr[x],ax
+    mov edx,SELF
+    mov word ptr[edx+x],ax
   end;
 end;