peter 22 лет назад
Родитель
Сommit
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;