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

+ added warning in case of an $M directive with an invalid stack size specified

Browse Source 
git-svn-id: trunk@27964 -
This commit is contained in:
nickysn 2014-06-15 10:14:56 +00:00
parent c868a5e0ea
commit 82eb84ddff
4 changed files with 717 additions and 706 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/msg/errore.msg
View File

@ -136,7 +136,7 @@ general_f_oserror=01025_F_Operating system error: $1
# #
# Scanner # Scanner
# #
# 02095 is the last used one # 02096 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
@ -396,6 +396,11 @@ scan_e_illegal_peoptflag=02094_E_Illegal argument for SETPEOPTFLAGS
% ordinal value % ordinal value
scan_e_unsupported_switch=02095_E_Directive $1 is not supported on this target scan_e_unsupported_switch=02095_E_Directive $1 is not supported on this target
% Not all compiler directives are supported on all targets. % Not all compiler directives are supported on all targets.
scan_w_invalid_stacksize=02096_W_The specified stack size is not within the valid range for the platform. Setting the stack size ignored.
% The valid range for the stack size is 1024 - 67107839 on 32-bit and 64-bit
% platforms and 1024 - 65520 on 16-bit platforms. Additionally, for Turbo Pascal 7
% compatibility reasons, specifying a stack size of 65521 on 16-bit platforms
% actually sets the stack size to 65520.
% \end{description} % \end{description}
# #
# Parser # Parser

5
compiler/msgidx.inc
View File

@ -117,6 +117,7 @@ const
scan_e_illegal_peflag=02093; scan_e_illegal_peflag=02093;
scan_e_illegal_peoptflag=02094; scan_e_illegal_peoptflag=02094;
scan_e_unsupported_switch=02095; scan_e_unsupported_switch=02095;
scan_w_invalid_stacksize=02096;
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;
@ -987,9 +988,9 @@ const
option_info=11024; option_info=11024;
option_help_pages=11025; option_help_pages=11025;
MsgTxtSize = 71327; MsgTxtSize = 71440;
MsgIdxMax : array[1..20] of longint=( MsgIdxMax : array[1..20] of longint=(
26,96,337,122,89,57,126,27,202,64, 26,97,337,122,89,57,126,27,202,64,
57,20,1,1,1,1,1,1,1,1 57,20,1,1,1,1,1,1,1,1
); );

1407
compiler/msgtxt.inc
View File

File diff suppressed because it is too large Load Diff

4
compiler/scandir.pas
View File

@ -714,7 +714,9 @@ unit scandir;
and (l<67107840) and (l<67107840)
{$endif cpu16bitaddr} {$endif cpu16bitaddr}
then then
stacksize:=min(l,{$ifdef cpu16bitaddr}65520{$else}67107839{$endif}); stacksize:=min(l,{$ifdef cpu16bitaddr}65520{$else}67107839{$endif})
else
Message(scan_w_invalid_stacksize);
if c=',' then if c=',' then
begin begin
current_scanner.readchar; current_scanner.readchar;