定义package:
LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE IEEE.STD_LOGIC_ARITH.ALL;
USE IEEE.STD_LOGIC_UNSIGNED.ALL;
PACKAGE cpac IS
PROCEDURE shift_1(
din:IN STD_LOGIC_VECTOR;
s:IN STD_LOGIC_VECTOR;
SIGNAL dout:OUT STD_LOGIC_VECTOR);
END cpac;
PACKAGE BODY cpac IS
PROCEDURE shift_1(
din:IN STD_LOGIC_VECTOR;
s:IN STD_LOGIC_VECTOR;
SIGNAL dout:OUT STD_LOGIC_VECTOR) IS
VARIABLE sc:INTEGER;
BEGIN
sc:=CONV_INTEGER(s);
FOR i IN din'RANGE LOOP
IF(sc+i<=din'LEFT)THEN
dout(sc+i)<=din(i);
ELSE
dout(sc+i-1-din'LEFT)<=din(i);
END IF;
END LOOP;
END shift_1;
END cpac;
实体定义：
LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE WORK.cpac.ALL;
ENTITY bsr IS
--GENERIC(SIZE:INTEGER:=8);
PORT(din:IN STD_LOGIC_VECTOR(7 DOWNTO 0);
s:IN STD_LOGIC_VECTOR(2 DOWNTO 0);
clk,enb:IN STD_LOGIC;
dout:OUT STD_LOGIC_VECTOR(7 DOWNTO 0));
END bsr;
ARCHITECTURE rtl OF bsr IS
BEGIN
PROCESS(clk)
BEGIN
IF(clk'EVENT AND clk='1')THEN
IF(enb='0')THEN
dout<=din;
ELSE
shift_1(din,s,dout);--------调用有问题吗？
END IF;
END IF;
END PROCESS;
END rtl;
在这个程序中muxplus2-10.0报的错是：
SIGNAL PARAMETER IN A SUBPROGRAM IS NOT SUPORTED
