mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-20 15:49:27 +02:00
* cosmetics
This commit is contained in:
parent
adac1e6db2
commit
5c94ccc4c2
@ -1231,11 +1231,12 @@ implementation
|
||||
unitinits.free;
|
||||
end;
|
||||
|
||||
|
||||
class function tnodeutils.has_init_list: boolean;
|
||||
var
|
||||
hp : tused_unit;
|
||||
begin
|
||||
Result := True;
|
||||
Result:=True;
|
||||
|
||||
{ Check current module first }
|
||||
if mf_init in current_module.moduleflags then
|
||||
@ -1251,7 +1252,7 @@ implementation
|
||||
end;
|
||||
|
||||
{ We reach this point, none of the used units have an initialisation list }
|
||||
Result := False;
|
||||
Result:=False;
|
||||
end;
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user