Searched refs:SFN_Pragmas (Results 1 – 2 of 2) sorted by relevance
143 package SFN_Pragmas is new Table.Table packspec380 SFN_Pragmas.Increment_Last;381 SFN_Pragmas.Table (SFN_Pragmas.Last) :=491 SFN_Pragmas.Set_Last (0);1141 for Index in 1 .. SFN_Pragmas.Last loop1145 Write_A_String (SFN_Pragmas.Table (Index).Unit.all);1149 if SFN_Pragmas.Table (Index).Spec then1156 Write_A_String (SFN_Pragmas.Table (Index).File.all);