paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-26 16:33:45 +01:00
Code Issues Packages Projects Releases Wiki Activity

rtl: pass exact size to delete instead of full string length

Browse Source 
git-svn-id: trunk@22418 -
This commit is contained in:
paul 2012-09-18 00:31:21 +00:00
parent a13c9d93ff
commit a2548fc9f9
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/unix/sysunix.inc
View File

@ -36,7 +36,7 @@ begin
p:=Pos('.',Result); p:=Pos('.',Result);
if p>0 then Delete(Result,1,p); if p>0 then Delete(Result,1,p);
p:=Pos('@',Result); p:=Pos('@',Result);
if p>0 then Delete(Result,p,length(Result)); if p>0 then Delete(Result,p,length(Result)-p+1);
end; end;
end; end;