paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 14:30:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

* string -> shortstring

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2023-01-06 11:31:58 +01:00 committed by Michaël Van Canneyt
parent c8551879f7
commit 40bb7d9bdf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/powerpc/stringss.inc
View File

@ -17,7 +17,7 @@
{$ifndef FPC_UNIT_HAS_STRPCOPY} {$ifndef FPC_UNIT_HAS_STRPCOPY}
{$define 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 asm
{ get length } { get length }
lbz r0,0(r4) lbz r0,0(r4)