tests/test/tasmpublic1.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
32

{ %CPU=i386,x86_64 }
program tasmpublic1;

{$goto on}
{$asmmode intel}

label
  test_gLoBaL_label;

var
  codeseg_var: LongWord; external name 'test_gLoBaL_label';

begin
  asm
    public test_gLoBaL_label
    jmp @@skip
    db 'some garbage here'
test_gLoBaL_label:
    nop
    nop
    nop
    nop
@@skip:
  end;
  if codeseg_var<>$90909090 then
  begin
    Writeln('Error!');
    Halt(1);
  end
  else
    Writeln('Ok!');
end.