range eines arrays bei übergabe

    architecture X of X is

        signal a : std_logic_vector(0 to 7);

        signal b : std_logic;

    begin

        equal(a(0 to 3), a(4 to 7), b);

    end;

    procedure equal(signal x1,x2: in std_logic_vector;

        signal eq: std_logic) is

        --variable idx1 : integer x1'range;

        --variable idx2 : integer range x2'low to x2'high;

    begin

        for i in idx'range loop

            if x1(i) /= x2(i) then

                return '0';

            end if;

        end loop;

        return '1';

    end;