Browse Source

* valid runtime code

peter 22 years ago
parent
commit
08301263a7
1 changed files with 4 additions and 0 deletions
  1. 4 0
      tests/webtbs/tw2323.pp

+ 4 - 0
tests/webtbs/tw2323.pp

@@ -6,7 +6,11 @@
 {$Mode Delphi}
 {$Mode Delphi}
 {$ASMMODE Intel}
 {$ASMMODE Intel}
 
 
+var
+  buf : array[0..255] of char;
 asm
 asm
+    lea ebx,buf
+    add ebx,'('
     mov al, [ebx - '(']
     mov al, [ebx - '(']
 end.
 end.