paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 09:02:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

compiler: write a warning if unit should be compiled with built-in system codepage for ansistring constants but this codepage is not known by the compiler

Browse Source 
git-svn-id: trunk@21269 -
This commit is contained in:
paul 2012-05-10 01:24:18 +00:00
parent f011d02833
commit d79eee8ed1
4 changed files with 665 additions and 651 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/msg/errore.msg
View File

@ -136,7 +136,7 @@ general_f_oserror=01025_F_Operating system error: $1
#
# Scanner
#
# 02090 is the last used one
# 02091 is the last used one
#
% \section{Scanner messages.}
% This section lists the messages that the scanner emits. The scanner takes
@ -381,6 +381,11 @@ scanner_f_illegal_utf8_bom=02089_F_It is not possible to include a file that sta
scanner_w_directive_ignored_on_target=02090_W_Directive "$1" is ignored for the the current target platform
% Some directives are ignored for certain targets, such as changing the
% packrecords and packenum settings on managed platforms.
scan_w_unavailable_system_codepage=02091_W_Current system codepage "$1" is not available for the compiler. Switching default codepage back to "$2".
% The current system codepage is not known by the compiler.
% The compiler is compiled with support for several codepages built-in.
% The codepage of the operation system is not in that list. You will need to recompile
% the compiler with support for this codepage.
% \end{description}
#
# Parser
@ -3041,7 +3046,7 @@ option_read_config_file=11034_D_Reading config file "$1"
option_found_file=11035_D_found source file name "$1"
% Additional information about options.
% Displayed when you have the debug option turned on.
option_code_page_not_available=11039_E_Unknown codepage
option_code_page_not_available=11039_E_Unknown codepage "$1"
% An unknown codepage for the source files was requested.
% The compiler is compiled with support for several codepages built-in.
% The requested codepage is not in that list. You will need to recompile

5
compiler/msgidx.inc
View File

@ -112,6 +112,7 @@ const
scanner_e_illegal_alignment_directive=02088;
scanner_f_illegal_utf8_bom=02089;
scanner_w_directive_ignored_on_target=02090;
scan_w_unavailable_system_codepage=02091;
parser_e_syntax_error=03000;
parser_e_dont_nest_interrupt=03004;
parser_w_proc_directive_ignored=03005;
@ -941,9 +942,9 @@ const
option_info=11024;
option_help_pages=11025;
MsgTxtSize = 65655;
MsgTxtSize = 65773;
MsgIdxMax : array[1..20] of longint=(
26,91,322,118,87,55,116,26,202,63,
26,92,322,118,87,55,116,26,202,63,
53,20,1,1,1,1,1,1,1,1
);

1297
compiler/msgtxt.inc
View File

File diff suppressed because it is too large Load Diff

5
compiler/scanner.pas
View File

@ -373,7 +373,10 @@ implementation
begin
current_settings.sourcecodepage:=DefaultSystemCodePage;
if not cpavailable(current_settings.sourcecodepage) then
current_settings.sourcecodepage:=default_settings.sourcecodepage;
begin
Message2(scan_w_unavailable_system_codepage,IntToStr(current_settings.sourcecodepage),IntToStr(default_settings.sourcecodepage));
current_settings.sourcecodepage:=default_settings.sourcecodepage;
end;
include(current_settings.moduleswitches,cs_explicit_codepage);
if changeinit then
begin