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

* fixed memory leak

Browse Source 
git-svn-id: trunk@30165 -
This commit is contained in:
Jonas Maebe 2015-03-11 17:49:51 +00:00
parent fc21845686
commit b97e7da6b4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/iosxlocale/src/iosxwstr.pp
View File

@ -237,7 +237,7 @@ implementation
mstr:=CFStringCreateMutableCopy(nil,0,str);
{ lowercase }
locale:=CFLocaleCopyCurrent;
CFStringLowercase(mstr,CFLocaleCopyCurrent);
CFStringLowercase(mstr,locale);
CFRelease(locale);
{ extract the data again }
range.location:=0;