{$if Defined(FPC) and Defined(CPUX64)}
procedure __AStrClear; assembler; nostackframe; public name 'AStrClear';
asm
jmp AStrClear
end;
procedure __AStrInit; assembler; nostackframe; public name 'AStrInit';
asm
jmp AStrInit
end;
procedure __AStrReserve; assembler; nostackframe; public name 'AStrReserve';
asm
jmp AStrReserve
end;
procedure __AStrSetLength; assembler; nostackframe; public name 'AStrSetLength';
asm
jmp AStrSetLength
end;
procedure __UStrClear; assembler; nostackframe; public name 'UStrClear';
asm
jmp UStrClear
end;
procedure __UStrInit; assembler; nostackframe; public name 'UStrInit';
asm
jmp UStrInit
end;
procedure __UStrReserve; assembler; nostackframe; public name 'UStrReserve';
asm
jmp UStrReserve
end;
procedure __UStrSetLength; assembler; nostackframe; public name 'UStrSetLength';
asm
jmp UStrSetLength
end;
procedure __CStrClear; assembler; nostackframe; public name 'CStrClear';
asm
jmp CStrClear
end;
procedure __CStrInit; assembler; nostackframe; public name 'CStrInit';
asm
jmp CStrInit
end;
procedure __CStrReserve; assembler; nostackframe; public name 'CStrReserve';
asm
jmp CStrReserve
end;
procedure __CStrSetLength; assembler; nostackframe; public name 'CStrSetLength';
asm
jmp CStrSetLength
end;
{$elseif Defined(FPC)}
{$MESSAGE ERROR 'Unsupported platform'}
{$ifend}