paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 10:49:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* add missing condition for empty string in Unicode uppercase and lowercase conversion routines

Browse Source 
git-svn-id: trunk@29625 -
This commit is contained in:
Tomas Hajny 2015-02-04 14:35:01 +00:00
parent 35a84ab6bd
commit 5a56228011
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/os2/sysucode.inc
View File

@ -1221,8 +1221,9 @@ var
I: cardinal; I: cardinal;
begin begin
SetLength (Result, Length (S)); SetLength (Result, Length (S));
for I := 0 to Pred (Length (S)) do if Length (S) > 0 then
PWideChar (Result) [I] := Sys_UniToUpper (S [Succ (I)]); for I := 0 to Pred (Length (S)) do
PWideChar (Result) [I] := Sys_UniToUpper (S [Succ (I)]);
end; end;
@ -1231,8 +1232,9 @@ var
I: cardinal; I: cardinal;
begin begin
SetLength (Result, Length (S)); SetLength (Result, Length (S));
for I := 0 to Pred (Length (S)) do if Length (S) > 0 then
PWideChar (Result) [I] := Sys_UniToLower (S [Succ (I)]); for I := 0 to Pred (Length (S)) do
PWideChar (Result) [I] := Sys_UniToLower (S [Succ (I)]);
end; end;
@ -1242,9 +1244,10 @@ var
begin begin
Result := S; Result := S;
UniqueString (Result); UniqueString (Result);
for I := 1 to Length (S) do if Length (S) > 0 then
if Result [I] = WNull then for I := 1 to Length (S) do
Result [I] := ' '; if Result [I] = WNull then
Result [I] := ' ';
end; end;