paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-11 02:03:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

* check zero length instead of comparing to empty string

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2023-01-06 11:54:32 +01:00 committed by Michaël Van Canneyt
parent 057cfc100c
commit 4d42d013b8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/genstrs.inc
View File

@ -13,14 +13,14 @@
**********************************************************************} **********************************************************************}
{$ifndef FPC_UNIT_HAS_STRPCOPY} {$ifndef FPC_UNIT_HAS_STRPCOPY}
function strpcopy(d : PAnsiChar;const s : string) : PAnsiChar; function strpcopy(d : PAnsiChar;const s : shortstring) : PAnsiChar;
var var
counter : byte; counter : byte;
Begin Begin
counter := 0; counter := 0;
{ if empty pascal string } { if empty pascal string }
{ then setup and exit now } { then setup and exit now }
if s = '' then if Length(s)=0 then
Begin Begin
D[0] := #0; D[0] := #0;
StrPCopy := D; StrPCopy := D;