mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
23 lines
309 B
ObjectPascal
23 lines
309 B
ObjectPascal
{ %OPT=-gh }
|
|
|
|
program tw35862;
|
|
|
|
{$modeswitch result}
|
|
|
|
uses sysutils;
|
|
|
|
function do_term:boolean;
|
|
begin
|
|
writeln('In terminate proc');
|
|
Result:=true;
|
|
end;
|
|
|
|
begin
|
|
HaltOnNotReleased:=True;
|
|
|
|
writeln('Adding terminate proc');
|
|
AddTerminateproc(@do_term);
|
|
writeln('terminating');
|
|
CallterminateProcs;
|
|
end.
|