--| +=========================================================================+
--| |                                                                         |
--| | REFERENCE_SCAN.SCAN_NULL_COMPONENT (body)                               |
--| |                                                                         |
--| | Greg Janee                                                              |
--| | General Research Corporation                                            |
--| |                                                                         |
--| +=========================================================================+

separate (Reference_Scan)
procedure Scan_Null_Component (The_Component : in Asis.Record_Component; 
			       The_Context : in Context) is

    Cuid : constant String := "Reference_Scan.Scan_Null_Component";
    Puid : constant String := "Scan_Null_Component";

    package Trace renames Reference_Scan.Trace_Support;

begin

    if Trace.On then
	Trace.Log (The_Component, The_Context);
    end if;

end Scan_Null_Component;