--------------------------------------------------------------------------------
-- Function: tbsgnext - Generates 4 bit biinary counter.
-- Requires: USE IEEE.std_logic_unsigned.all;
-- Author:   
-- Creation: 
-- Verified: 
-- Version:  
---------------------------------------------------------------------------------
LIBRARY IEEE;
USE work.all;
USE IEEE.Std_Logic_1164.all; 
USE IEEE.std_logic_unsigned.all;

ENTITY tbsgnext is END tbsgnext ;

ARCHITECTURE behav OF tbsgnext IS
   SIGNAL Q    : std_logic_vector(3 downto 0) := "0000";
   SIGNAL Qext : std_logic_vector(7 downto 0);
BEGIN
    U1: ENTITY SignExtend(behav)
    PORT MAP(Q,Qext);
    Q <= Q + "0001" after 50 ns;
END behav;