paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 07:09:23 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/aros/system.pp
View File

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