LIBRARY IEEE; USE IEEE.std_logic_1164.ALL; -- LIBRARY EXEMPLAR; USE EXEMPLAR.exemplar_1164.ALL; -- LIBRARY WORK; USE WORK.synthesis_parameters.ALL; USE WORK.synthesis_utilities.ALL; USE WORK.global_environment.ALL; USE WORK.PackCon.ALL; -- ENTITY shifter_unit IS PORT (arith_shift_left, arith_shift_right, no_shift : IN std_logic); END shifter_unit; -- ARCHITECTURE Concurrent OF shifter_unit IS BEGIN coding: PROCESS (arith_shift_left, arith_shift_right, no_shift) BEGIN test; IF arith_shift_left'EVENT THEN ShiftLeft(alu_out, alu_flags); ELSIF arith_shift_right'EVENT THEN ShiftRight(alu_out, alu_flags); END IF; -- test; obus := alu_out; shu_flags := alu_flags; END PROCESS coding; END Concurrent;