Explorar el Código

* Only go32v2,linux,freebsd

peter hace 22 años
padre
commit
4456f5cde6
Se han modificado 1 ficheros con 2 adiciones y 1 borrados
  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;