Natools

Diff
Login

Differences From Artifact [b4bb055a3f]:

To Artifact [a8863b17f1]:


173
174
175
176
177
178
179


180
181
182
183
184
185
186
      pragma Unreferenced (Context);
   begin
      case Command_Maps.To_Package_Command (Sx.To_String (Name)) is
         when Private_Child =>
            Set_Private_Child (Pkg, True);
         when Public_Child =>
            Set_Private_Child (Pkg, False);


      end case;
   end Update_Package;



   -----------------------
   -- Public Generators --







>
>







173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
      pragma Unreferenced (Context);
   begin
      case Command_Maps.To_Package_Command (Sx.To_String (Name)) is
         when Private_Child =>
            Set_Private_Child (Pkg, True);
         when Public_Child =>
            Set_Private_Child (Pkg, False);
         when Extra_Declarations =>
            Set_Extra_Declarations (Pkg, Sx.To_String (Name));
      end case;
   end Update_Package;



   -----------------------
   -- Public Generators --