paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-09 18:39:59 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ added do_halt procedure

Browse Source
This commit is contained in:
pierre 1999-09-07 14:03:48 +00:00
parent 6f3c128959
commit 2e65e6a618
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/comphook.pas
View File

@ -74,6 +74,7 @@ var
{ Default Functions } { Default Functions }
procedure def_stop; procedure def_stop;
procedure def_halt(i : longint);
Function def_status:boolean; Function def_status:boolean;
Function def_comment(Level:Longint;const s:string):boolean; Function def_comment(Level:Longint;const s:string):boolean;
function def_internalerror(i:longint):boolean; function def_internalerror(i:longint):boolean;
@ -81,11 +82,13 @@ function def_internalerror(i:longint):boolean;
{ Function redirecting for IDE support } { Function redirecting for IDE support }
type type
tstopprocedure = procedure; tstopprocedure = procedure;
thaltprocedure = procedure(i : longint);
tstatusfunction = function:boolean; tstatusfunction = function:boolean;
tcommentfunction = function(Level:Longint;const s:string):boolean; tcommentfunction = function(Level:Longint;const s:string):boolean;
tinternalerrorfunction = function(i:longint):boolean; tinternalerrorfunction = function(i:longint):boolean;
const const
do_stop : tstopprocedure = def_stop; do_stop : tstopprocedure = def_stop;
do_halt : thaltprocedure = def_halt;
do_status : tstatusfunction = def_status; do_status : tstatusfunction = def_status;
do_comment : tcommentfunction = def_comment; do_comment : tcommentfunction = def_comment;
do_internalerror : tinternalerrorfunction = def_internalerror; do_internalerror : tinternalerrorfunction = def_internalerror;
@ -150,6 +153,10 @@ begin
{$endif USEEXCEPT} {$endif USEEXCEPT}
end; end;
procedure def_halt(i : longint);
begin
halt(i);
end;
function def_status:boolean; function def_status:boolean;
begin begin
@ -268,7 +275,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.17 1999-08-05 16:52:53 peter Revision 1.18 1999-09-07 14:03:48 pierre
+ added do_halt procedure
Revision 1.17 1999/08/05 16:52:53 peter
* V_Fatal=1, all other V_ are also increased * V_Fatal=1, all other V_ are also increased
* Check for local procedure when assigning procvar * Check for local procedure when assigning procvar
* fixed comment parsing because directives * fixed comment parsing because directives