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

compiler: don't reject utf-8 codepage as default althought it is not present in mapping tables

Browse Source 
git-svn-id: trunk@22409 -
This commit is contained in:
paul 2012-09-17 02:24:56 +00:00
parent c3549aa67b
commit 57da93dd11
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/scanner.pas
View File

@ -377,7 +377,7 @@ implementation
if m_systemcodepage in current_settings.modeswitches then if m_systemcodepage in current_settings.modeswitches then
begin begin
current_settings.sourcecodepage:=DefaultSystemCodePage; current_settings.sourcecodepage:=DefaultSystemCodePage;
if not cpavailable(current_settings.sourcecodepage) then if (current_settings.sourcecodepage<>CP_UTF8) and not cpavailable(current_settings.sourcecodepage) then
begin begin
Message2(scan_w_unavailable_system_codepage,IntToStr(current_settings.sourcecodepage),IntToStr(default_settings.sourcecodepage)); Message2(scan_w_unavailable_system_codepage,IntToStr(current_settings.sourcecodepage),IntToStr(default_settings.sourcecodepage));
current_settings.sourcecodepage:=default_settings.sourcecodepage; current_settings.sourcecodepage:=default_settings.sourcecodepage;