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

* fixed return of strcat,strlcat

Browse Source
This commit is contained in:
peter 1999-09-01 09:25:10 +00:00
parent 5003a05660
commit eea78419c8
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/inc/stringsi.inc
View File

@ -4,7 +4,7 @@
Copyright (c) 1999 by the Free Pascal development team Copyright (c) 1999 by the Free Pascal development team
Processor independent part for strings and sysutils units Processor independent part for strings and sysutils units
See the file COPYING.FPC, included in this distribution, See the file COPYING.FPC, included in this distribution,
for details about the copyright. for details about the copyright.
@ -17,7 +17,8 @@
function strcat(dest,source : pchar) : pchar; function strcat(dest,source : pchar) : pchar;
begin begin
strcat:=strcopy(strend(dest),source); strcopy(strend(dest),source);
strcat:=dest;
end; end;
function strlcat(dest,source : pchar;l : longint) : pchar; function strlcat(dest,source : pchar;l : longint) : pchar;
@ -27,8 +28,9 @@
begin begin
destend:=strend(dest); destend:=strend(dest);
l:=l-(destend-dest); dec(l,destend-dest);
strlcat:=strlcopy(destend,source,l); strlcopy(destend,source,l);
strlcat:=dest;
end; end;
function strmove(dest,source : pchar;l : longint) : pchar; function strmove(dest,source : pchar;l : longint) : pchar;
@ -79,7 +81,10 @@
end; end;
{ {
$Log$ $Log$
Revision 1.2 1999-02-25 10:05:07 michael Revision 1.3 1999-09-01 09:25:10 peter
* fixed return of strcat,strlcat
Revision 1.2 1999/02/25 10:05:07 michael
+ Added header and log + Added header and log
} }