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

* give a warning that packrecords settings are ignored when compiling for

Browse Source 
managed VM targets

git-svn-id: branches/jvmbackend@18815 -
This commit is contained in:
Jonas Maebe 2011-08-23 15:26:14 +00:00
parent 7010116096
commit 9aa40f5a08
4 changed files with 583 additions and 568 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/msg/errore.msg
View File

@ -132,7 +132,7 @@ general_f_oserror=01025_F_Operating system error: $1
# #
# Scanner # Scanner
# #
# 02087 is the last used one # 02089 is the last used one
# #
% \section{Scanner messages.} % \section{Scanner messages.}
% This section lists the messages that the scanner emits. The scanner takes % This section lists the messages that the scanner emits. The scanner takes
@ -371,6 +371,10 @@ scanner_w_illegal_warn_identifier=02087_W_Illegal identifier "$1" for $WARN dire
scanner_e_illegal_alignment_directive=02088_E_Illegal alignment directive scanner_e_illegal_alignment_directive=02088_E_Illegal alignment directive
% The alignment directive is not valid. Either the alignment type is not known or the alignment % The alignment directive is not valid. Either the alignment type is not known or the alignment
% value is not a power of two. % value is not a power of two.
scanner_w_directive_ignored_on_target=02089_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.
%
% \end{description} % \end{description}
# #
# Parser # Parser

5
compiler/msgidx.inc
View File

@ -110,6 +110,7 @@ const
scan_w_multiple_main_name_overrides=02086; scan_w_multiple_main_name_overrides=02086;
scanner_w_illegal_warn_identifier=02087; scanner_w_illegal_warn_identifier=02087;
scanner_e_illegal_alignment_directive=02088; scanner_e_illegal_alignment_directive=02088;
scanner_w_directive_ignored_on_target=02089;
parser_e_syntax_error=03000; parser_e_syntax_error=03000;
parser_e_dont_nest_interrupt=03004; parser_e_dont_nest_interrupt=03004;
parser_w_proc_directive_ignored=03005; parser_w_proc_directive_ignored=03005;
@ -912,9 +913,9 @@ const
option_info=11024; option_info=11024;
option_help_pages=11025; option_help_pages=11025;
MsgTxtSize = 62052; MsgTxtSize = 62122;
MsgIdxMax : array[1..20] of longint=( MsgIdxMax : array[1..20] of longint=(
26,89,320,107,87,54,111,23,202,63, 26,90,320,107,87,54,111,23,202,63,
49,20,1,1,1,1,1,1,1,1 49,20,1,1,1,1,1,1,1,1
); );

1137
compiler/msgtxt.inc
View File

File diff suppressed because it is too large Load Diff

3
compiler/scandir.pas
View File

@ -899,6 +899,9 @@ unit scandir;
var var
hs : string; hs : string;
begin begin
{ can't change packrecords setting on managed vm targets }
if target_info.system in systems_managed_vm then
Message1(scanner_w_directive_ignored_on_target, 'PACKRECORDS');
current_scanner.skipspace; current_scanner.skipspace;
if not(c in ['0'..'9']) then if not(c in ['0'..'9']) then
begin begin