paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 13:19:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

* test for bug report 15370

Browse Source 
git-svn-id: trunk@14447 -
This commit is contained in:
pierre 2009-12-17 15:07:56 +00:00
parent c0bdcf62e0
commit d294e80eea
2 changed files with 36 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -10140,6 +10140,7 @@ tests/webtbs/tw15293a.pp svneol=native#text/plain
tests/webtbs/tw15304.pp svneol=native#text/plain
tests/webtbs/tw1532.pp svneol=native#text/plain
tests/webtbs/tw15364.pp svneol=native#text/plain
tests/webtbs/tw15370.pp svneol=native#text/plain
tests/webtbs/tw1539.pp svneol=native#text/plain
tests/webtbs/tw1567.pp svneol=native#text/plain
tests/webtbs/tw1573.pp svneol=native#text/plain

35
tests/webtbs/tw15370.pp Normal file
View File

@ -0,0 +1,35 @@
{%CPU=i386}
program test_word_ref;
var
loc : word;
{$asmmode att}
procedure TestAtt(w : word);
begin
asm
movw w,%ax
movw %ax,loc
end;
end;
{$asmmode intel}
procedure TestIntel(w : word);
begin
asm
mov ax,[w]
mov [loc],ax
end;
end;
begin
TestAtt(6);
if loc<>6 then
halt(1);
TestIntel(46);
if loc<>46 then
halt(1);
end.