summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/tbs/tb0030.pp
blob: 356296804d55cda66b025192629184abb5f169be (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
{ %CPU=i386 }
{ Old file: tbs0034.pp }
{  shows wrong line numbering when asmbler is parsed in direct mode. }

{ line numbering problem }
{ I don't really know how to test this (PM }
 var i : longint;

begin
   asm
      movl %eax,%eax
      movl %eax,%eax
      movl %eax,%eax
      movl %eax,%eax
      movl %eax,%eax
      movl %eax,%eax
      movl %eax,%eax
   end ;
   i:=0;
end.