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

* nostackframe now results in an error if used on pascal subroutines

Browse Source 
git-svn-id: trunk@24910 -
This commit is contained in:
florian 2013-06-16 18:59:03 +00:00
parent fc72490166
commit 37df6f6455
7 changed files with 253 additions and 253 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/msg/errord.msg
View File

@ -1459,7 +1459,7 @@ parser_e_jvm_invalid_virtual_constructor_call=03321_E_Einen virtuellen Konstrukt
% for the current instance inside another constructor.
parser_e_method_lower_visibility=03322_E_Die <20>berschreibende Method "$1" kann keine niedrigere Sichtbarkeit ($2) haben als in der Elternklasse $3 ($4)
% The JVM does not allow lowering the visibility of an overriding method.
parser_w_nostackframe_without_assembler=03323_W_Prozedur/Funktion mit der Aufrufoption NOSTACKFRAME aber ohne ASSEMBLER deklariert
parser_e_nostackframe_without_assembler=03323_E_Prozedur/Funktion mit der Aufrufoption NOSTACKFRAME aber ohne ASSEMBLER deklariert
% nostackframe call modifier is supposed to be used in conjunction with assembler.
parser_e_nostackframe_with_locals=03324_E_Prozedur/Funktion mit der Aufrufoption NOSTACKFRAME deklariert, aber die GrӇe des lokalen Stack ist $1
% nostackframe call modifier used without assembler modifier

2
compiler/msg/errordu.msg
View File

@ -1460,7 +1460,7 @@ parser_e_jvm_invalid_virtual_constructor_call=03321_E_Einen virtuellen Konstrukt
% for the current instance inside another constructor.
parser_e_method_lower_visibility=03322_E_Die überschreibende Method "$1" kann keine niedrigere Sichtbarkeit ($2) haben als in der Elternklasse $3 ($4)
% The JVM does not allow lowering the visibility of an overriding method.
parser_w_nostackframe_without_assembler=03323_W_Prozedur/Funktion mit der Aufrufoption NOSTACKFRAME aber ohne ASSEMBLER deklariert
parser_e_nostackframe_without_assembler=03323_E_Prozedur/Funktion mit der Aufrufoption NOSTACKFRAME aber ohne ASSEMBLER deklariert
% nostackframe call modifier is supposed to be used in conjunction with assembler.
parser_e_nostackframe_with_locals=03324_E_Prozedur/Funktion mit der Aufrufoption NOSTACKFRAME deklariert, aber die Größe des lokalen Stack ist $1
% nostackframe call modifier used without assembler modifier

2
compiler/msg/errore.msg
View File

@ -1454,7 +1454,7 @@ parser_e_jvm_invalid_virtual_constructor_call=03321_E_Calling a virtual construc
% for the current instance inside another constructor.
parser_e_method_lower_visibility=03322_E_Overriding method "$1" cannot have a lower visibility ($2) than in parent class $3 ($4)
% The JVM does not allow lowering the visibility of an overriding method.
parser_w_nostackframe_without_assembler=03323_W_Procedure/Function declared with call option NOSTACKFRAME but without ASSEMBLER
parser_e_nostackframe_without_assembler=03323_E_Procedure/Function declared with call option NOSTACKFRAME but without ASSEMBLER
% nostackframe call modifier is supposed to be used in conjunction with assembler.
parser_e_nostackframe_with_locals=03324_E_Procedure/Function declared with call option NOSTACKFRAME but local stack size is $1
% nostackframe call modifier used without assembler modifier

4
compiler/msgidx.inc
View File

@ -420,7 +420,7 @@ const
parser_e_feature_unsupported_for_vm=03320;
parser_e_jvm_invalid_virtual_constructor_call=03321;
parser_e_method_lower_visibility=03322;
parser_w_nostackframe_without_assembler=03323;
parser_e_nostackframe_without_assembler=03323;
parser_e_nostackframe_with_locals=03324;
parser_e_cannot_generate_property_getter_setter=03325;
parser_w_overriding_property_getter_setter=03326;
@ -976,7 +976,7 @@ const
option_info=11024;
option_help_pages=11025;
MsgTxtSize = 69135;
MsgTxtSize = 69123;
MsgIdxMax : array[1..20] of longint=(
26,95,335,121,88,56,126,27,202,63,

492
compiler/msgtxt.inc
View File

File diff suppressed because it is too large Load Diff

2
compiler/pdecsub.pas
View File

@ -2930,7 +2930,7 @@ const
end;
if (po_nostackframe in pd.procoptions) and
not (po_assembler in pd.procoptions) then
message(parser_w_nostackframe_without_assembler);
message(parser_e_nostackframe_without_assembler);
end;

2
tests/test/tnostackframe3.pp
View File

@ -1,4 +1,4 @@
{ %fail }
var
x :longint;
procedure test; nostackframe;