X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=src%2Fbeh_alu_tb.vhd;fp=src%2Fbeh_alu_tb.vhd;h=d182dfe51c7034e40f91cc54c5bf51419aff0487;hb=797b3dd48b2a4abbc8e220c8ce289f8536ecd337;hp=fb9382cbbc09667de2dcad15298c35e109c4989c;hpb=a7c7f6d9cce95dd1707828ca6ddc9f6a5ee9dadf;p=hwmod.git diff --git a/src/beh_alu_tb.vhd b/src/beh_alu_tb.vhd index fb9382c..d182dfe 100644 --- a/src/beh_alu_tb.vhd +++ b/src/beh_alu_tb.vhd @@ -59,28 +59,15 @@ begin end record alu_testv; -- ggf. groesse des arrays erhoehen - type alu_testv_array is array (natural range 0 to 20) of alu_testv; + type alu_testv_array is array (natural range 0 to 5) of alu_testv; variable testmatrix : alu_testv_array := - ( 0 => (-5, ALU_DIV, 3, -1), - 1 => (7, ALU_ADD, 3, 10), - 2 => (7, ALU_SUB, 1, 6), - 3 => (7, ALU_DIV, 1, 7), - 4 => (7, ALU_DIV, 3, 2), - 5 => (7, ALU_ADD, 1, 8), - 6 => (7, ALU_MUL, 3, 21), - 7 => (-7, ALU_MUL, 3, -21), - 8 => (268435456, ALU_MUL, -2, -536870912), - 9 => (268435456, ALU_MUL, 2**5, 0), -- um fuenf nach links shiften - 10 => (268435456 + 5, ALU_MUL, 2**5, 160), -- = 5 * (2^5) - 11 => (100, ALU_DIV, 10, 10), - 12 => (100, ALU_DIV, 51, 1), - 13 => (100, ALU_DIV, 49, 2), - 14 => (153156, ALU_DIV, 3543, 43), - 15 => (-153156, ALU_DIV, 3543, -43), - 16 => (153156, ALU_DIV, -3543, -43), - 17 => (-153156, ALU_DIV, -3543, 43), - others => (0, ALU_ADD, 0, 0) + ( 0 => (7, ALU_MUL, 3, 21), + 1 => (-7, ALU_MUL, 3, -21), + 2 => (268435456, ALU_MUL, -2, -536870912), + 3 => (268435456, ALU_MUL, 2**5, 0), -- um fuenf nach links shiften + 4 => (268435456 + 5, ALU_MUL, 2**5, 160), -- = 5 * (2^5) + others => (0, ALU_MUL, 0, 0) ); begin