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

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

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

    package Trace renames Scan.Trace_Support;

begin

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

end Scan_Null_Component;