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

* declare the code page names as ansistring instead of rawbytestring and

Browse Source 
force the checked names to CP_ACP, so perform string conversions on
    the names after the compiler bug has been fixed that sets the code
    page of rawbytestring typed constants to CP_NONE

git-svn-id: trunk@26396 -
This commit is contained in:
Jonas Maebe 2014-01-05 18:26:04 +00:00
parent 50615008de
commit 729ac297e4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/unix/unixcp.pp
View File

@ -26,7 +26,7 @@ uses baseunix;
type
TUnixCpData = record
cp: word;
name: rawbytestring; { for null-termination }
name: ansistring; { for null-termination }
end;
(*
* Code Page Identifiers
@ -679,7 +679,7 @@ var
begin
{ clear encoding to prevent nonsense code page conversion of the input
ansistring (encoding names are always ascii) }
SetCodePage(cpname,$ffff,false);
SetCodePage(cpname,CP_ACP,false);
{ Linux uses cpXXXX instead of CPXXXX }
if (length(cpname)>2) and