mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-14 00:49:09 +02:00
* string -> shortstring
This commit is contained in:
parent
40bb7d9bdf
commit
2677ad9f86
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user