separate (Compilation_Unit)
procedure Initialize_Compilation_Unit
             (Initialized_Unit : in out Ada_Compilation_Unit) is
    --==================================================================
    -- Initialize a given compilation unit. Any contents will be lost ==
    --==================================================================

begin
    -- Initialize_Compilation_Unit

    New_List.Clear (The_List => New_List.List (Initialized_Unit));

end Initialize_Compilation_Unit;