
--------------------------------------------------------------------------------
--
-- DIST MEM GEN Core - Testbench Package 
--
--------------------------------------------------------------------------------
--
-- (c) Copyright 2006_3010 Xilinx, Inc. All rights reserved.
--
-- This file contains confidential and proprietary information
-- of Xilinx, Inc. and is protected under U.S. and
-- international copyright and other intellectual property
-- laws.
--
-- DISCLAIMER
-- This disclaimer is not a license and does not grant any
-- rights to the materials distributed herewith. Except as
-- otherwise provided in a valid license issued to you by
-- Xilinx, and to the maximum extent permitted by applicable
-- law: (1) THESE MATERIALS ARE MADE AVAILABLE "AS IS" AND
-- WITH ALL FAULTS, AND XILINX HEREBY DISCLAIMS ALL WARRANTIES
-- AND CONDITIONS, EXPRESS, IMPLIED, OR STATUTORY, INCLUDING
-- BUT NOT LIMITED TO WARRANTIES OF MERCHANTABILITY, NON-
-- INFRINGEMENT, OR FITNESS FOR ANY PARTICULAR PURPOSE; and
-- (2) Xilinx shall not be liable (whether in contract or tort,
-- including negligence, or under any other theory of
-- liability) for any loss or damage of any kind or nature
-- related to, arising under or in connection with these
-- materials, including for any direct, or any indirect,
-- special, incidental, or consequential loss or damage
-- (including loss of data, profits, goodwill, or any type of
-- loss or damage suffered as a result of any action brought
-- by a third party) even if such damage or loss was
-- reasonably foreseeable or Xilinx had been advised of the
-- possibility of the same.
--
-- CRITICAL APPLICATIONS
-- Xilinx products are not designed or intended to be fail-
-- safe, or for use in any application requiring fail-safe
-- performance, such as life-support or safety devices or
-- systems, Class III medical devices, nuclear facilities,
-- applications related to the deployment of airbags, or any
-- other applications that could lead to death, personal
-- injury, or severe property or environmental damage
-- (individually and collectively, "Critical
-- Applications"). Customer assumes the sole risk and
-- liability of any use of Xilinx products in Critical
-- Applications, subject only to applicable laws and
-- regulations governing limitations on product liability.
--
-- THIS COPYRIGHT NOTICE AND DISCLAIMER MUST BE RETAINED AS
-- PART OF THIS FILE AT ALL TIMES.

--------------------------------------------------------------------------------
--
-- Filename: stack_tb_pkg.vhd
--
-- Description:
--   DMG Testbench Package files
--
--------------------------------------------------------------------------------
-- Author: IP Solutions Division
--
-- History: Sep 12, 2011 - First Release
--------------------------------------------------------------------------------
--
--------------------------------------------------------------------------------
-- Library Declarations
--------------------------------------------------------------------------------


LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE IEEE.STD_LOGIC_ARITH.ALL;
USE IEEE.STD_LOGIC_UNSIGNED.ALL;

PACKAGE stack_TB_PKG IS

 FUNCTION DIVROUNDUP (
   DATA_VALUE : INTEGER;
   DIVISOR : INTEGER)
 RETURN INTEGER;
 ------------------------
 FUNCTION IF_THEN_ELSE (
   CONDITION : BOOLEAN;
   TRUE_CASE : STD_LOGIC_VECTOR;
   FALSE_CASE : STD_LOGIC_VECTOR)
  RETURN STD_LOGIC_VECTOR;
 ------------------------ 
 FUNCTION IF_THEN_ELSE (
   CONDITION : BOOLEAN;
   TRUE_CASE : STRING;
   FALSE_CASE :STRING)
 RETURN STRING;
 ------------------------ 
 FUNCTION IF_THEN_ELSE (
   CONDITION : BOOLEAN;
   TRUE_CASE : STD_LOGIC;
   FALSE_CASE :STD_LOGIC)
 RETURN STD_LOGIC;
 ------------------------ 
 FUNCTION IF_THEN_ELSE (
   CONDITION : BOOLEAN;
   TRUE_CASE : INTEGER;
   FALSE_CASE : INTEGER)
 RETURN INTEGER;
 ------------------------ 
 FUNCTION LOG2ROUNDUP (
   DATA_VALUE : INTEGER)
 RETURN INTEGER; 

END stack_TB_PKG;

PACKAGE BODY stack_TB_PKG IS

 FUNCTION DIVROUNDUP (
   DATA_VALUE : INTEGER;
   DIVISOR : INTEGER)
 RETURN INTEGER IS
   VARIABLE DIV                   : INTEGER;
 BEGIN
   DIV   := DATA_VALUE/DIVISOR;
   IF ( (DATA_VALUE MOD DIVISOR) /= 0) THEN
     DIV := DIV+1;
   END IF;
   RETURN DIV;
 END DIVROUNDUP;
  ---------------------------------
 FUNCTION IF_THEN_ELSE (
   CONDITION : BOOLEAN;
   TRUE_CASE : STD_LOGIC_VECTOR;
   FALSE_CASE : STD_LOGIC_VECTOR)
 RETURN STD_LOGIC_VECTOR IS
 BEGIN
   IF NOT CONDITION THEN
     RETURN FALSE_CASE;
   ELSE
     RETURN TRUE_CASE;
   END IF;
 END IF_THEN_ELSE;
  ---------------------------------
 FUNCTION IF_THEN_ELSE (
   CONDITION : BOOLEAN;
   TRUE_CASE : STD_LOGIC;
   FALSE_CASE : STD_LOGIC)
 RETURN STD_LOGIC IS
 BEGIN
   IF NOT CONDITION THEN
     RETURN FALSE_CASE;
   ELSE
     RETURN TRUE_CASE;
   END IF;
 END IF_THEN_ELSE;
  ---------------------------------
 FUNCTION IF_THEN_ELSE (
   CONDITION : BOOLEAN;
   TRUE_CASE : INTEGER;
   FALSE_CASE : INTEGER)
 RETURN INTEGER IS
   VARIABLE RETVAL : INTEGER := 0;
 BEGIN
   IF CONDITION=FALSE THEN
     RETVAL:=FALSE_CASE;
   ELSE
     RETVAL:=TRUE_CASE;
   END IF;
   RETURN RETVAL;
 END IF_THEN_ELSE;
  ---------------------------------
 FUNCTION IF_THEN_ELSE (
   CONDITION : BOOLEAN;
   TRUE_CASE : STRING;
   FALSE_CASE : STRING)
 RETURN STRING IS
 BEGIN
   IF NOT CONDITION THEN
     RETURN FALSE_CASE;
   ELSE
     RETURN TRUE_CASE;
   END IF;
 END IF_THEN_ELSE;
  ------------------------------- 
 FUNCTION LOG2ROUNDUP (
   DATA_VALUE : INTEGER)
 RETURN INTEGER IS
   VARIABLE WIDTH       : INTEGER := 0;
   VARIABLE CNT         : INTEGER := 1;
 BEGIN
   IF (DATA_VALUE <= 1) THEN
     WIDTH   := 1;
   ELSE
     WHILE (CNT < DATA_VALUE) LOOP
     WIDTH := WIDTH + 1;
     CNT   := CNT *2;
     END LOOP;
  END IF;
   RETURN WIDTH;
 END LOG2ROUNDUP;

END stack_TB_PKG;
