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

* calling interrupt routine supported

Browse Source
This commit is contained in:
pierre 2000-05-09 14:16:00 +00:00
parent 35d59984b2
commit 6cba0a4927
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/tccal.pas
View File

@ -1054,8 +1054,8 @@ implementation
else else
procinfo^.flags:=procinfo^.flags or pi_do_call; procinfo^.flags:=procinfo^.flags or pi_do_call;
if (po_interrupt in p^.procdefinition^.procoptions) then {if (po_interrupt in p^.procdefinition^.procoptions) then
CGmessage1(cg_e_no_call_to_interrupt,p^.symtableprocentry^.name); CGmessage1(cg_e_no_call_to_interrupt,p^.symtableprocentry^.name);}
{ work trough all parameters to insert the type conversions } { work trough all parameters to insert the type conversions }
{ !!! done now after internproc !! (PM) } { !!! done now after internproc !! (PM) }
if assigned(p^.left) then if assigned(p^.left) then
@ -1233,7 +1233,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.84 2000-04-24 12:48:38 peter Revision 1.85 2000-05-09 14:16:00 pierre
* calling interrupt routine supported
Revision 1.84 2000/04/24 12:48:38 peter
* removed unused vars * removed unused vars
Revision 1.83 2000/04/02 18:30:12 florian Revision 1.83 2000/04/02 18:30:12 florian