paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-02 20:51:11 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: Less notes from compiler about Asian codepages.

Browse Source 
git-svn-id: trunk@50088 -
This commit is contained in:
juha 2015-10-16 21:48:15 +00:00
parent 8d3d4e6a6f
commit c831f9ecd9
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazutils/asiancodepagefunctions.inc
View File

@ -92,7 +92,7 @@ begin
Result := DBCSToUTF8(s, 932);
end;
{$ifndef UseSystemCPConv}
{$IfNDef UseSystemCPConv}
function UnicodeToCP936(Unicode: cardinal): integer;
begin
case Unicode of
@ -133,7 +133,7 @@ end;
{$ifdef HASCP}
procedure InternalUTF8ToDBCS(const s: string; TargetCodePage: TSystemCodePage;
SetTargetCodePage: boolean;
{$ifndef UseSystemCPConv}const UTF8CharConvFunc: TUnicodeToCharID;{$endif}
{$IfNDef UseSystemCPConv}const UTF8CharConvFunc: TUnicodeToCharID;{$endif}
out TheResult: RawByteString); inline;
begin
{$ifdef UseSystemCPConv}

8
components/lazutils/asiancodepages.inc
View File

@ -3403,6 +3403,7 @@ $9F98,$9F9C,$9F9D,$9F9E,$9FA1,$9FA2,$9FA3,$9FA4,$9FA5,$F92C,$F979,$F995,$F9E7,
$F9F1,$FA0C,$FA0D,$FA0E,$FA0F,$FA11,$FA13,$FA14,$FA18,$FA1F,$FA20,$FA21,$FA23,
$FA24,$FA27,$FA28,$FA29);
{$IfNDef UseSystemCPConv}
const CP936CU: CP936Arr =
($81,$82,$83,$84,$85,$86,$87,$88,$89,$8A,$8B,$8C,$8D,$8E,$8F,$90,$91,$92,$93,
$94,$95,$96,$97,$98,$99,$9A,$9B,$9C,$9D,$9E,$9F,$A0,$A1,$A2,$A3,$A4,$A5,$A6,
@ -6788,6 +6789,7 @@ $FF3B,$FF3C,$FF3D,$FF3E,$FF3F,$FF40,$FF41,$FF42,$FF43,$FF44,$FF45,$FF46,$FF47,
$FF48,$FF49,$FF4A,$FF4B,$FF4C,$FF4D,$FF4E,$FF4F,$FF50,$FF51,$FF52,$FF53,$FF54,
$FF55,$FF56,$FF57,$FF58,$FF59,$FF5A,$FF5B,$FF5C,$FF5D,$FF5E,$FFE0,$FFE1,$FFE2,
$FFE3,$FFE4,$FFE5);
{$endif}
const CP950CC: CP950Arr =
($00,$01,$02,$03,$04,$05,$06,$07,$08,$09,$0A,$0B,$0C,$0D,$0E,$0F,$10,$11,$12,
@ -8900,6 +8902,7 @@ $5AFA,$2554,$2566,$2557,$2560,$256C,$2563,$255A,$2569,$255D,$2552,$2564,$2555,
$255E,$256A,$2561,$2558,$2567,$255B,$2553,$2565,$2556,$255F,$256B,$2562,$2559,
$2568,$255C,$2551,$2550,$256D,$256E,$2570,$256F,$2593);
{$IfNDef UseSystemCPConv}
const CP950CU: CP950Arr =
($80,$81,$82,$83,$84,$85,$86,$87,$88,$89,$8A,$8B,$8C,$8D,$8E,$8F,$90,$91,$92,
$93,$94,$95,$96,$97,$98,$99,$9A,$9B,$9C,$9D,$9E,$9F,$A0,$A1,$A2,$A3,$A4,$A5,
@ -11010,6 +11013,7 @@ $FF2F,$FF30,$FF31,$FF32,$FF33,$FF34,$FF35,$FF36,$FF37,$FF38,$FF39,$FF3A,$FF3C,
$FF3F,$FF41,$FF42,$FF43,$FF44,$FF45,$FF46,$FF47,$FF48,$FF49,$FF4A,$FF4B,$FF4C,
$FF4D,$FF4E,$FF4F,$FF50,$FF51,$FF52,$FF53,$FF54,$FF55,$FF56,$FF57,$FF58,$FF59,
$FF5A,$FF5B,$FF5C,$FF5D,$FF5E,$FFE0,$FFE1,$FFE3,$FFE5);
{$endif}
const CP949CC: CP949Arr =
($00,$01,$02,$03,$04,$05,$06,$07,$08,$09,$0A,$0B,$0C,$0D,$0E,$0F,$10,$11,$12,
@ -13667,6 +13671,7 @@ $7D07,$8A16,$6B20,$6B3D,$6B46,$5438,$6070,$6D3D,$7FD5,$8208,$50D6,$51DE,$559C,
$566B,$56CD,$59EC,$5B09,$5E0C,$6199,$6198,$6231,$665E,$66E6,$7199,$71B9,$71BA,
$72A7,$79A7,$7A00,$7FB2,$8A70);
{$IfNDef UseSystemCPConv}
const CP949CU: CP949Arr =
($80,$81,$82,$83,$84,$85,$86,$87,$88,$89,$8A,$8B,$8C,$8D,$8E,$8F,$90,$91,$92,
$93,$94,$95,$96,$97,$98,$99,$9A,$9B,$9C,$9D,$9E,$9F,$A0,$A1,$A2,$A3,$A4,$A5,
@ -16322,6 +16327,7 @@ $FF39,$FF3A,$FF3B,$FF3C,$FF3D,$FF3E,$FF3F,$FF40,$FF41,$FF42,$FF43,$FF44,$FF45,
$FF46,$FF47,$FF48,$FF49,$FF4A,$FF4B,$FF4C,$FF4D,$FF4E,$FF4F,$FF50,$FF51,$FF52,
$FF53,$FF54,$FF55,$FF56,$FF57,$FF58,$FF59,$FF5A,$FF5B,$FF5C,$FF5D,$FF5E,$FFE0,
$FFE1,$FFE2,$FFE3,$FFE5,$FFE6);
{$endif}
const CP932CC: CP932Arr =
($00,$01,$02,$03,$04,$05,$06,$07,$08,$09,$0A,$0B,$0C,$0D,$0E,$0F,$10,$11,$12,
@ -17547,6 +17553,7 @@ $9592,$F9DC,$FA29,$969D,$96AF,$9733,$973B,$9743,$974D,$974F,$9751,$9755,$9857,
$9865,$FA2A,$FA2B,$9927,$FA2C,$999E,$9A4E,$9AD9,$9ADC,$9B75,$9B72,$9B8F,$9BB1,
$9BBB,$9C00,$9D70,$9D6B,$FA2D,$9E19,$9ED1);
{$IfNDef UseSystemCPConv}
const CP932CU: CP932Arr =
($80,$81,$82,$83,$84,$85,$86,$87,$88,$89,$8A,$8B,$8C,$8D,$8E,$8F,$90,$91,$92,
$93,$94,$95,$96,$97,$98,$99,$9A,$9B,$9C,$9D,$9E,$9F,$A0,$E0,$E1,$E2,$E3,$E4,
@ -18770,6 +18777,7 @@ $FF7D,$FF7E,$FF7F,$FF80,$FF81,$FF82,$FF83,$FF84,$FF85,$FF86,$FF87,$FF88,$FF89,
$FF8A,$FF8B,$FF8C,$FF8D,$FF8E,$FF8F,$FF90,$FF91,$FF92,$FF93,$FF94,$FF95,$FF96,
$FF97,$FF98,$FF99,$FF9A,$FF9B,$FF9C,$FF9D,$FF9E,$FF9F,$FFE0,$FFE1,$FFE2,$FFE2,
$FFE2,$FFE3,$FFE4,$FFE4,$FFE5);
{$endif}
function SearchTable(CodePageArr: array of word; id: cardinal): word;
var