Matthew Heaney234 function Get_Power_In_Watts (Composite : access Composite_Type) return Power_In_Watts_Type is Power : Power_In_Watts_Type := Do_Get_Power (Composite_TypeClass (Composite.all)); Item : Equipment_Access := Composite.Head; begin while Item /= null loop Power := Power + Get_Power_In_Watts (Item); Item := Item.Next; end loop; return Power; end Get_Power_In_Watts;
{}