Lines Matching refs:Main_Unit

310       if Source_File_Is_No_Body (Source_Index (Main_Unit)) then
318       Initialize_Scanner (Main_Unit, Source_Index (Main_Unit));
330       Set_Loading (Main_Unit, False);
343         and then Fatal_Error (Main_Unit) /= Error_Detected
391            (Aux_Decls_Node (Cunit (Main_Unit)), Config_Pragmas);
395          if Fatal_Error (Main_Unit) /= Error_Detected then
403               and then Nkind (Unit (Cunit (Main_Unit))) = N_Subunit
411             Semantics (Cunit (Main_Unit));
465                Exp_Unst.Unnest_Subprograms (Cunit (Main_Unit));
503       pragma Debug (Sem_SCIL.Check_SCIL_Nodes (Cunit (Main_Unit)));
524       Item := First (Context_Items (Cunit (Main_Unit)));