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

* error if calling interrupt procedure

Browse Source
This commit is contained in:
pierre 1999-10-12 15:50:54 +00:00
parent fc4e4bc74a
commit 281c77f2b1
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/errore.msg
View File

@ -1147,6 +1147,8 @@ cg_e_unable_inline_procvar=E_Procvar calls can't be inline.
% A procedure with a procedural variable call cannot be inlined.
cg_e_no_code_for_inline_stored=E_No code for inline procedure stored
% The compiler couldn't store code for the inline procedure.
cg_e_no_call_to_interrupt=E_Direct call of interrupt procedure $1 is not possible
% You can not call an interrupt procedure directly from FPC code
cg_e_can_access_element_zero=E_Element zero of an ansi/wide- or longstring can't be accessed, use (set)length instead
% You should use \var{setlength} to set the length of an ansi/wide/longstring
% and \var{length} to get the length of such kinf of string

8
compiler/tccal.pas
View File

@ -1045,6 +1045,8 @@ implementation
else
procinfo^.flags:=procinfo^.flags or pi_do_call;
if (po_interrupt in p^.procdefinition^.procoptions) then
CGmessage1(cg_e_no_call_to_interrupt,p^.symtableprocentry^.name);
{ work trough all parameters to insert the type conversions }
{ !!! done now after internproc !! (PM) }
if assigned(p^.left) then
@ -1222,7 +1224,10 @@ implementation
end.
{
$Log$
Revision 1.66 1999-09-27 23:45:00 peter
Revision 1.67 1999-10-12 15:50:54 pierre
* error if calling interrupt procedure
Revision 1.66 1999/09/27 23:45:00 peter
* procinfo is now a pointer
* support for result setting in sub procedure
@ -1479,4 +1484,3 @@ end.
* splitted pass_1
}