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

AROS: RKM demands a Forbid before reply WBStartupMsg

Browse Source 
git-svn-id: trunk@30813 -
This commit is contained in:
marcus 2015-05-06 16:44:11 +00:00
parent 8237dbf22f
commit ebf9c07f41
1 changed files with 8 additions and 3 deletions

11
rtl/aros/system.pp
View File

@ -121,9 +121,6 @@ begin
Killed := True;
{ Closing opened files }
CloseList(ASYS_fileList);
//
if AOS_wbMsg <> nil then
ReplyMsg(AOS_wbMsg);
{ Changing back to original directory if changed }
if ASYS_OrigDir <> 0 then begin
oldDirLock:=CurrentDir(ASYS_origDir);
@ -142,6 +139,14 @@ begin
CloseLibrary(AOS_DOSBase);
AOS_DOSBase := nil;
//
if AOS_wbMsg <> nil then
begin
// forbid -> Amiga RKM Libraries Manual
Forbid();
// Reply WBStartupMessage
ReplyMsg(AOS_wbMsg);
end;
//
HaltProc(ExitCode);
end;