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

answer the WBMsg on process exit, when run from Workbench

Browse Source 
git-svn-id: trunk@23265 -
This commit is contained in:
Károly Balogh 2013-01-01 01:47:30 +00:00
parent 288820715d
commit 3137c6ac4a
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/amiga/system.pp
View File

@ -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;