diff options
author | fpc <fpc@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2005-05-16 18:37:41 +0000 |
---|---|---|
committer | fpc <fpc@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2005-05-16 18:37:41 +0000 |
commit | f206a9c2b1ae1d8727ca27a96d448b61fdb4c766 (patch) | |
tree | f28256ff9964c1fc7c0f7fb00891268a117b745d /tests/webtbs/tw1902.pp | |
download | fpc-f206a9c2b1ae1d8727ca27a96d448b61fdb4c766.tar.gz |
initial import
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@1 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'tests/webtbs/tw1902.pp')
-rw-r--r-- | tests/webtbs/tw1902.pp | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/tests/webtbs/tw1902.pp b/tests/webtbs/tw1902.pp new file mode 100644 index 0000000000..50165c2071 --- /dev/null +++ b/tests/webtbs/tw1902.pp @@ -0,0 +1,26 @@ +{ %cpu=i386 } + +{$ifdef fpc} +{$MODE DELPHI} +{$ASMMODE INTEL} +{$endif} + +const myoffset=10; + +var + r : array[0..19] of char; + c : char; +begin + r:='01234567890123456789'; + asm + lea eax,r + mov al,[eax].myoffset + mov c,al + end; + writeln(c); + if c<>'0' then + begin + writeln('ERROR!'); + halt(1); + end; +end. |