mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-14 09:49:35 +02:00
answer the WBMsg on process exit, when run from Workbench
git-svn-id: trunk@23265 -
This commit is contained in:
parent
288820715d
commit
3137c6ac4a
@ -147,6 +147,12 @@ begin
|
|||||||
if AOS_DOSBase<>nil then CloseLibrary(AOS_DOSBase);
|
if AOS_DOSBase<>nil then CloseLibrary(AOS_DOSBase);
|
||||||
if AOS_heapPool<>nil then DeletePool(AOS_heapPool);
|
if AOS_heapPool<>nil then DeletePool(AOS_heapPool);
|
||||||
|
|
||||||
|
{ If in Workbench mode, replying WBMsg }
|
||||||
|
if AOS_wbMsg<>nil then begin
|
||||||
|
Forbid;
|
||||||
|
ReplyMsg(AOS_wbMsg);
|
||||||
|
end;
|
||||||
|
|
||||||
haltproc(ExitCode);
|
haltproc(ExitCode);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user