paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 17:30:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed startup code from endless wait when not started from Ambient

Browse Source
This commit is contained in:
Károly Balogh 2004-05-12 15:34:16 +00:00
parent 5b31a1c142
commit 440758c2bd
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/morphos/system.pp
View File

@ -958,10 +958,10 @@ procedure SysInitMorphOS;
var self: PProcess;
begin
self:=PProcess(exec_FindTask(nil));
if self^.pr_CLI<>0 then begin
{ if we're running from Ambient, we catch its message }
if self^.pr_CLI=0 then begin
{ if we're running from Ambient/Workbench, we catch its message }
exec_WaitPort(@self^.pr_MsgPort);
MOS_ambMsg:=exec_GetMsg(@self^.pr_MsgPort);
MOS_ambMsg:=exec_GetMsg(@self^.pr_MsgPort);
end;
MOS_DOSBase:=exec_OpenLibrary('dos.library',50);
@ -1039,7 +1039,10 @@ End.
{
$Log$
Revision 1.6 2004-05-09 14:42:59 karoly
Revision 1.7 2004-05-12 15:34:16 karoly
* fixed startup code from endless wait when not started from Ambient
Revision 1.6 2004/05/09 14:42:59 karoly
* again, few more new things added
Revision 1.5 2004/05/09 02:02:42 karoly