tests/webtbs/tw28640.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

{ %cpu=x86_64 }
function test : int64;assembler;
  {$ASMMODE INTEL}
  asm
        MOV RAX,'=TXEHTAP' // FAIL: LONG STRING "PATHEXT="
  end;
var
  s : string[8];
  l : int64 absolute s[1];
begin
  l:=test;
  s[0]:=#8;
  if s<>'PATHEXT=' then
    halt(1);
end.