* string -> shortstring

This commit is contained in:
Michael VAN CANNEYT 2023-01-06 11:32:16 +01:00 committed by Michaël Van Canneyt
parent 40bb7d9bdf
commit 2677ad9f86

View File

@ -17,7 +17,7 @@
{$ifndef FPC_UNIT_HAS_STRPCOPY}
{$define FPC_UNIT_HAS_STRPCOPY}
function strpcopy(d : PAnsiChar;const s : string) : PAnsiChar;assembler;
function strpcopy(d : PAnsiChar;const s : shortstring) : PAnsiChar;assembler;
asm
{ get length }
lbz r0,0(r4)