Parcourir la source

* valid runtime code

peter il y a 22 ans
Parent
commit
08301263a7
1 fichiers modifiés avec 4 ajouts et 0 suppressions
  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.