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

* allow initialization of DefaultSystemCodepage also if system could return more information about prepared codepages

Browse Source 
git-svn-id: trunk@28952 -
This commit is contained in:
Tomas Hajny 2014-10-31 17:43:15 +00:00
parent c4492a711f
commit 99e9571e0e
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/os2/system.pas
View File

@ -1282,7 +1282,7 @@ begin
{$endif SYSTEMEXCEPTIONDEBUG}
RC := DosQueryCP (SizeOf (CPArr), @CPArr, ReturnedSize);
if RC <> 0 then
if (RC <> 0) and (RC <> 473) then
OSErrorWatch (RC)
else if (ReturnedSize >= 4) then
begin
@ -1290,5 +1290,7 @@ begin
DefaultRTLFileSystemCodePage := DefaultSystemCodePage;
DefaultFileSystemCodePage := DefaultSystemCodePage;
DefaultUnicodeCodePage := CP_UTF16;
end;
end
else
OSErrorWatch (RC);
end.