paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 01:31:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ tests for wrong relsymbol usage

Browse Source 
git-svn-id: trunk@9369 -
This commit is contained in:
Jonas Maebe 2007-12-01 14:27:45 +00:00
parent 527190a875
commit f1f1f1c7cd
3 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -6039,6 +6039,8 @@ tests/tbf/tb0200.pp svneol=native#text/x-pascal
tests/tbf/tb0201.pp svneol=native#text/plain
tests/tbf/tb0202.pp svneol=native#text/plain
tests/tbf/tb0203.pp svneol=native#text/plain
tests/tbf/tb0204.pp svneol=native#text/plain
tests/tbf/tb0204a.pp svneol=native#text/plain
tests/tbf/ub0115.pp svneol=native#text/plain
tests/tbf/ub0149.pp svneol=native#text/plain
tests/tbf/ub0158a.pp svneol=native#text/plain

13
tests/tbf/tb0204.pp Normal file
View File

@ -0,0 +1,13 @@
{ %fail }
{ %cpu=i386 }
{ %opt=-Cg- }
var
a: longint;
begin
{$asmmode att}
asm
.LPIC:
movl a-.LPIC-.LPIC(%ecx),%eax
end;
end.

13
tests/tbf/tb0204a.pp Normal file
View File

@ -0,0 +1,13 @@
{ %fail }
{ %cpu=i386 }
{ %opt=-Cg- }
var
a: longint;
begin
{$asmmode intel}
asm
@@LPIC:
mov eax,[a-@@LPIC-@@LPIC+ecx]
end;
end.