diff options
author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2014-01-05 18:26:04 +0000 |
---|---|---|
committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2014-01-05 18:26:04 +0000 |
commit | 795f4c73d032b32a920800e96cf6b0153c006e5e (patch) | |
tree | 201309c00b0d512179e7aeb9295f9a5986fb07f0 /rtl/unix | |
parent | 78dfda04e85cc235aa567df459163a348add33b3 (diff) | |
download | fpc-795f4c73d032b32a920800e96cf6b0153c006e5e.tar.gz |
* declare the code page names as ansistring instead of rawbytestring and
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: http://svn.freepascal.org/svn/fpc/trunk@26396 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'rtl/unix')
-rw-r--r-- | rtl/unix/unixcp.pp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rtl/unix/unixcp.pp b/rtl/unix/unixcp.pp index 5a3d9b5ccb..5601ee773e 100644 --- a/rtl/unix/unixcp.pp +++ b/rtl/unix/unixcp.pp @@ -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 |