fpcsrc/tests/webtbs/tw1023.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

{ %CPU=i386 }
{ %OPT=-Cg- }
{ Source provided for Free Pascal Bug Report 1023 }
{ Submitted by "Denis Yarkovoy" on  2000-07-03 }
{ e-mail: gunky9@geocities.com }
 {$goto on}
 {$asmmode intel}
 label l1;

var
  pp : pointer;

 procedure p1; assembler; asm
  mov eax, offset l1
  lea edi,pp
  mov dword ptr [edi],eax
 end;

 procedure p; assembler; asm
  l1:
  clc
 end;

begin
 pp:=nil;
 p1;
 if pp=nil then
   halt(1)
 else
   Writeln('Bug 1023 fixed');
end.