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

* ignore PIC directive on windows and warn about it

Browse Source 
git-svn-id: trunk@5479 -
This commit is contained in:
florian 2006-11-25 22:58:52 +00:00
parent f8072062bc
commit d47dc38f2c
4 changed files with 286 additions and 276 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/msg/errore.msg
View File

@ -345,6 +345,9 @@ scanner_e_illegal_warn_state=02079_E_Illegal state for $WARN directive
% Only ON and OFF can be used as state with a \$warn compiler directive % Only ON and OFF can be used as state with a \$warn compiler directive
scan_e_only_packset=02080_E_Illegal set packing value scan_e_only_packset=02080_E_Illegal set packing value
% Only 0, 1, 2, 4, 8, DEFAULT and NORMAL are allowed as packset parameter % Only 0, 1, 2, 4, 8, DEFAULT and NORMAL are allowed as packset parameter
scan_w_pic_ignored=02081_W_PIC directive ignored
% Several targets like windows doesn't support and need the PIC directive so
% it is ignored.
% \end{description} % \end{description}
# #
# Parser # Parser

5
compiler/msgidx.inc
View File

@ -101,6 +101,7 @@ const
scan_w_maxstacksize_not_support=02078; scan_w_maxstacksize_not_support=02078;
scanner_e_illegal_warn_state=02079; scanner_e_illegal_warn_state=02079;
scan_e_only_packset=02080; scan_e_only_packset=02080;
scan_w_pic_ignored=02081;
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;
@ -703,9 +704,9 @@ const
option_info=11024; option_info=11024;
option_help_pages=11025; option_help_pages=11025;
MsgTxtSize = 41721; MsgTxtSize = 41751;
MsgIdxMax : array[1..20] of longint=( MsgIdxMax : array[1..20] of longint=(
24,81,226,79,62,47,102,22,135,60, 24,82,226,79,62,47,102,22,135,60,
41,1,1,1,1,1,1,1,1,1 41,1,1,1,1,1,1,1,1,1
); );

548
compiler/msgtxt.inc
View File

File diff suppressed because it is too large Load Diff

6
compiler/scandir.pas
View File

@ -843,7 +843,11 @@ implementation
procedure dir_pic; procedure dir_pic;
begin begin
do_moduleswitch(cs_create_pic); { windows doesn't need/support pic }
if not(target_info.system in system_windows+system_wince) then
do_moduleswitch(cs_create_pic)
else
message(scan_w_pic_ignored);
end; end;
procedure dir_pop; procedure dir_pop;