LIBRARY ieee;
USE ieee.std_logic_1164.ALL;
LIBRARY altera;
USE altera.maxplus2.ALL;
ENTITY shiftreg IS
	PORT(Di,clk		 : IN	STD_LOGIC;
		 Q : OUT	STD_LOGIC_VECTOR(3 DOWNTO 0));
END shiftreg;
ARCHITECTURE a OF shiftreg IS
SIGNAL temp : STD_LOGIC_VECTOR(3 downto 1);
BEGIN
TOTAL:
FOR I IN Q'RANGE GENERATE
  START:
  IF (I = 3) GENERATE
	d3: dff 
	 PORT MAP (d => Di, clk => clk, clrn => '1', prn => '1', 
	          q => temp(I));
  END GENERATE;
  MIDDLE:
  IF (I < 3) AND (I > 0) GENERATE
	d2d1: dff 
	 PORT MAP (d => temp(I+1), clk => clk, clrn => '1', 
	           prn => '1',q => temp(I));
  END GENERATE;
  FINAL: 
  IF (I = 0) GENERATE
    d0: dff 
	 PORT MAP (d => temp(I+1), clk => clk, clrn => '1', 
	           prn => '1', q => Q(I));	
  END GENERATE;
END GENERATE;
Q(3 DOWNTO 1) <= temp;
END a;