@@ -1452,10 +1452,11 @@ begin
Tree_Gen;
-- Generate ALI file if specially requested, or for missing subunits,
- -- subunits or predefined generic.
+ -- subunits or predefined generic. For ignored ghost code, the object
+ -- file IS generated, so Object should be True.
if Opt.Force_ALI_Tree_File then
- Write_ALI (Object => False);
+ Write_ALI (Object => Is_Ignored_Ghost_Unit (Main_Unit_Node));
end if;
Namet.Finalize;
@@ -790,6 +790,7 @@ begin
-- Quit if some file needs compiling
if No_Object_Specified then
+ Error_Msg ("no object specified");
raise Unrecoverable_Error;
end if;