|
@@ -1072,6 +1072,7 @@ implementation
|
|
function tmodule.nowaitingforunits(out firstwaiting : tmodule): Boolean;
|
|
function tmodule.nowaitingforunits(out firstwaiting : tmodule): Boolean;
|
|
|
|
|
|
begin
|
|
begin
|
|
|
|
+ firstwaiting:=nil;
|
|
Result:=waitingforunit.count=0;
|
|
Result:=waitingforunit.count=0;
|
|
If not Result then
|
|
If not Result then
|
|
firstwaiting:=tmodule(waitingforunit[0]);
|
|
firstwaiting:=tmodule(waitingforunit[0]);
|