Переглянути джерело

* 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;