فهرست منبع

* valid runtime code

peter 22 سال پیش
والد
کامیت
08301263a7
1فایلهای تغییر یافته به همراه4 افزوده شده و 0 حذف شده
  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.