Explorar el Código

* valid runtime code

peter hace 22 años
padre
commit
08301263a7
Se han modificado 1 ficheros con 4 adiciones y 0 borrados
  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.