--| +=========================================================================+
--| |                                                                         |
--| | REGION_SCAN.REGION_SCAN_INTERNAL.SCAN_COMPILATION_UNIT (body)           |
--| |                                                                         |
--| | Greg Janee                                                              |
--| | General Research Corporation                                            |
--| |                                                                         |
--| +=========================================================================+

separate (Region_Scan.Region_Scan_Internal)
procedure Scan_Compilation_Unit (The_Unit : in Asis.Compilation_Unit; 
				 The_Context : in out Context) is

    Cuid : constant String := 
       "Region_Scan.Region_Scan_Internal.Scan_Compilation_Unit";
    Puid : constant String := "Scan_Compilation_Unit";

begin

    Region_Scan.Process_Region (Rgn.Equivalent_Region (The_Unit), The_Context);

end Scan_Compilation_Unit;