fpcsrc/tests/webtbs/tw0892.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

{ %CPU=i386 }
{ %OPT=-Cg- }


{$asmmode intel}

var
  i,j  : longint;

begin
  i:=56;
  { this should work as ss and ds have the same selector value }
  asm
    segss
    mov eax,dword ptr [i]
    mov dword ptr [j],eax
  end;
  if i<>j then
    Halt(1);
end.