mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-12 07:21:35 +01:00
24 lines
476 B
PHP
24 lines
476 B
PHP
Var
|
|
ptc_error_handler_function : TPTC_ERROR_HANDLER;
|
|
|
|
Procedure ptc_error_handler_default(error : TPTC_ERROR);
|
|
|
|
Begin
|
|
TPTCError(error).report;
|
|
End;
|
|
|
|
Procedure ptc_exception_handler(handler : TPTC_ERROR_HANDLER);
|
|
|
|
Begin
|
|
If handler = Nil Then
|
|
ptc_error_handler_function := @ptc_error_handler_default
|
|
Else
|
|
ptc_error_handler_function := handler;
|
|
End;
|
|
|
|
Procedure ptc_exception_handle(error : TPTCError);
|
|
|
|
Begin
|
|
ptc_error_handler_function(TPTC_ERROR(error));
|
|
End;
|