paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-03 15:57:10 +01:00
Code Issues Packages Projects Releases Wiki Activity

* avoid crashes when displaying help with an unsupported system codepage

Browse Source 
git-svn-id: trunk@30040 -
This commit is contained in:
Tomas Hajny 2015-02-28 23:15:56 +00:00
parent dbbce18f56
commit 2be0cc8aae
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/widestr.pas
View File

@ -393,14 +393,16 @@ unit widestr;
end;
Result := J;
end
else
else if CPAvailable (DefaultSystemCodepage) then
begin
GetMem (P2, Succ (L));
FillChar (P2^, Succ (L), 0);
ChangeCodePage (P, L, DefaultSystemCodepage, P2, 28591);
Result := StrLen (P2);
FreeMem (P2, Succ (L));
end;
end
else
Result := L;
{$ELSE FPC_HAS_CPSTRING}
Result := L;
{$ENDIF FPC_HAS_CPSTRING}