-- FILE: addn.adb
-- DATE: 7/98
-- AUTHOR: Sy Wong
-- AIM: Implementation of design for generic adder  

with FULL_ADD;
package body ADDN is
  procedure update(d: in out device) is
    adder: array (0..N-1) of FULL_ADD.device;
    carry_out: boolean:=d.carry_in;
  begin
    for i in reverse 0..N-1
    loop
      adder(i).carry_in:= carry_out;
      adder(i).input1:= d.input1(i);
      adder(i).input2:= d.input2(i);
      FULL_ADD.update(adder(i));
      d.sum(i):= adder(i).sum;
      carry_out:= adder(i).carry_out;
    end loop;
    d.carry_out:= carry_out;
  end update;
end ADDN;