Code: Alles auswählen
procedure print2;
const
hello: PChar = 'Hello World ! '#10;
begin
asm
Mov Rax, 1
Mov Rdi,1
Mov Rsi, hello ; PIC-safe
Mov Rdx,14
Syscall
end;
end;
Code: Alles auswählen
project1.lpr(62,27) Error: Generating PIC, but reference is not PIC-safe
Code: Alles auswählen
procedure print1;
const
hello: PChar = 'Hello World ! '#10;
var
p: Pointer;
begin
p := hello;
asm
Mov Rax, 1
Mov Rdi,1
Mov Rsi, p ; io.
Mov Rdx,14
Syscall
end;
end;