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

* Patch from 7048

Browse Source 
git-svn-id: trunk@5535 -
This commit is contained in:
marco 2006-12-03 19:12:11 +00:00
parent 4363f34985
commit f68280e91c
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/wstrings.inc
View File

@ -182,12 +182,16 @@ begin
exit;
{$ifndef MSWINDOWS}
Dec (S,WideFirstOff);
Freemem(S);
{$else MSWINDOWS}
if winwidestringalloc then
SysFreeString(S)
else
begin
Dec (S,WideFirstOff);
Freemem(S);
end;
{$endif MSWINDOWS}
FreeMem (S);
S:=Nil;
end;