blob: 8b9b90871c39494abf9ad352bdb5ed39fed888f3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
{ %cpu=x86_64 }
function test : int64;assembler;
asm
MOV $'=TXEHTAP',%RAX // 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.
|