|
@@ -1231,11 +1231,12 @@ implementation
|
|
unitinits.free;
|
|
unitinits.free;
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
+
|
|
class function tnodeutils.has_init_list: boolean;
|
|
class function tnodeutils.has_init_list: boolean;
|
|
var
|
|
var
|
|
hp : tused_unit;
|
|
hp : tused_unit;
|
|
begin
|
|
begin
|
|
- Result := True;
|
|
|
|
|
|
+ Result:=True;
|
|
|
|
|
|
{ Check current module first }
|
|
{ Check current module first }
|
|
if mf_init in current_module.moduleflags then
|
|
if mf_init in current_module.moduleflags then
|
|
@@ -1251,7 +1252,7 @@ implementation
|
|
end;
|
|
end;
|
|
|
|
|
|
{ We reach this point, none of the used units have an initialisation list }
|
|
{ We reach this point, none of the used units have an initialisation list }
|
|
- Result := False;
|
|
|
|
|
|
+ Result:=False;
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
|