paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-24 05:37:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed strlcat

Browse Source
This commit is contained in:
peter 1999-09-13 11:42:42 +00:00
parent 48cc0ef888
commit 244a1b5815
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/stringsi.inc
View File

@ -29,7 +29,8 @@
begin begin
destend:=strend(dest); destend:=strend(dest);
dec(l,destend-dest); dec(l,destend-dest);
strlcopy(destend,source,l); if l>0 then
strlcopy(destend,source,l);
strlcat:=dest; strlcat:=dest;
end; end;
@ -81,7 +82,10 @@
end; end;
{ {
$Log$ $Log$
Revision 1.3 1999-09-01 09:25:10 peter Revision 1.4 1999-09-13 11:42:42 peter
* fixed strlcat
Revision 1.3 1999/09/01 09:25:10 peter
* fixed return of strcat,strlcat * fixed return of strcat,strlcat
Revision 1.2 1999/02/25 10:05:07 michael Revision 1.2 1999/02/25 10:05:07 michael