paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 05:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Use CP_ASCII as fallback in GetSystemCodepage to be compatible with cwstring.

Browse Source 
git-svn-id: trunk@23676 -
This commit is contained in:
yury 2013-03-01 08:44:05 +00:00
parent 1421998752
commit c4ba95b227
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/unix/unixcp.pp
View File

@ -702,14 +702,14 @@ var
lang: ansistring;
begin
// Get one of non-empty environment variables in the next order:
// LC_ALL, LC_CTYPE, LANG. Default is CP_UTF8.
// LC_ALL, LC_CTYPE, LANG. Default is ASCII.
lang:=FpGetEnv('LC_ALL');
if lang='' then
lang:=FpGetEnv('LC_CTYPE');
if lang='' then
lang:=FpGetEnv('LANG');
if lang='' then
Result:=CP_UTF8
Result:=CP_ASCII
else
begin
// clean up, for example en_US.UTF-8 => UTF-8
@ -719,7 +719,7 @@ begin
if p>0 then Delete(lang,p,length(lang)-p+1);
Result:=GetCodepageByName(lang);
if Result = CP_NONE then
Result:=CP_UTF8;
Result:=CP_ASCII;
end;
end;