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

* Fix bug #29150

Browse Source 
git-svn-id: trunk@32765 -
This commit is contained in:
michael 2015-12-27 17:07:31 +00:00
parent 8917633199
commit 0042e1d3b8
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/objpas/classes/stringl.inc
View File

@ -599,7 +599,7 @@ Var
begin
S:='';
Result:=False;
If ((Length(Value)-P)<=0) then
If ((Length(Value)-P)<0) then
exit;
PS:=@Value[P];
PC:=PS;