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

+ added a warning if HeapMax<HeapMin is specified with the $M directive

Browse Source 
git-svn-id: trunk@28042 -
This commit is contained in:
nickysn 2014-06-24 09:16:03 +00:00
parent 742faaed92
commit db011dfb7a
4 changed files with 703 additions and 699 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/msg/errore.msg
View File

@ -136,7 +136,7 @@ general_f_oserror=01025_F_Operating system error: $1
# #
# Scanner # Scanner
# #
# 02096 is the last used one # 02097 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
@ -401,6 +401,9 @@ scan_w_invalid_stacksize=02096_W_The specified stack size is not within the vali
% platforms and 1024 - 65520 on 16-bit platforms. Additionally, for Turbo Pascal 7 % 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 % compatibility reasons, specifying a stack size of 65521 on 16-bit platforms
% actually sets the stack size to 65520. % actually sets the stack size to 65520.
scan_w_heapmax_lessthan_heapmin=02097_W_The specified HeapMax value is smaller than the HeapMin value. Setting HeapMax ignored.
% The HeapMax value (if specified) must be greater than or equal to the HeapMin
% value. Otherwise, the HeapMax value is ignored.
% \end{description} % \end{description}
# #
# Parser # Parser

5
compiler/msgidx.inc
View File

@ -118,6 +118,7 @@ const
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; scan_w_invalid_stacksize=02096;
scan_w_heapmax_lessthan_heapmin=02097;
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;
@ -989,9 +990,9 @@ const
option_info=11024; option_info=11024;
option_help_pages=11025; option_help_pages=11025;
MsgTxtSize = 71526; MsgTxtSize = 71622;
MsgIdxMax : array[1..20] of longint=( MsgIdxMax : array[1..20] of longint=(
26,97,338,122,89,57,126,27,202,64, 26,98,338,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
); );

1388
compiler/msgtxt.inc
View File

File diff suppressed because it is too large Load Diff

4
compiler/scandir.pas
View File

@ -730,7 +730,9 @@ unit scandir;
current_scanner.skipspace; current_scanner.skipspace;
l:=current_scanner.readval; l:=current_scanner.readval;
if l>=heapsize then if l>=heapsize then
maxheapsize:=l; maxheapsize:=l
else
Message(scan_w_heapmax_lessthan_heapmin);
end; end;
end; end;
end; end;