Line 1... |
Line 1... |
-- $Id: vhpi_rriext.vhd 314 2010-07-09 17:38:41Z mueller $
|
-- $Id: rlink_cext_vhpi.vhd 351 2010-12-30 21:50:54Z mueller $
|
--
|
--
|
-- Copyright 2007- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
-- Copyright 2007-2010 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
--
|
--
|
-- This program is free software; you may redistribute and/or modify it under
|
-- This program is free software; you may redistribute and/or modify it under
|
-- the terms of the GNU General Public License as published by the Free
|
-- the terms of the GNU General Public License as published by the Free
|
-- Software Foundation, either version 2, or at your option any later version.
|
-- Software Foundation, either version 2, or at your option any later version.
|
--
|
--
|
Line 10... |
Line 10... |
-- WITHOUT ANY WARRANTY, without even the implied warranty of MERCHANTABILITY
|
-- WITHOUT ANY WARRANTY, without even the implied warranty of MERCHANTABILITY
|
-- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
-- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
-- for complete details.
|
-- for complete details.
|
--
|
--
|
------------------------------------------------------------------------------
|
------------------------------------------------------------------------------
|
-- Package Name: vhpi_rriext
|
-- Package Name: rlink_cext_vhpi
|
-- Description: VHDL procedural interface: VHDL declaration side
|
-- Description: VHDL procedural interface: VHDL declaration side
|
--
|
--
|
-- Dependencies: -
|
-- Dependencies: -
|
-- Tool versions: xst 8.1, 8.2, 9.1, 9.2; ghdl 0.18-0.25
|
-- Tool versions: xst 8.1, 8.2, 9.1, 9.2, 12.1; ghdl 0.18-0.29
|
-- Revision History:
|
-- Revision History:
|
-- Date Rev Version Comment
|
-- Date Rev Version Comment
|
|
-- 2010-12-29 351 1.1 rename vhpi_rriext->rlink_cext_vhpi; new rbv3 names
|
-- 2007-08-26 76 1.0 Initial version
|
-- 2007-08-26 76 1.0 Initial version
|
------------------------------------------------------------------------------
|
------------------------------------------------------------------------------
|
|
|
package vhpi_rriext is
|
package rlink_cext_vhpi is
|
|
|
impure function cext_getbyte (
|
impure function rlink_cext_getbyte (
|
clk : integer) -- clock cycle
|
clk : integer) -- clock cycle
|
return integer;
|
return integer;
|
attribute foreign of cext_getbyte : function is "VHPIDIRECT cext_getbyte";
|
attribute foreign of rlink_cext_getbyte :
|
|
function is "VHPIDIRECT rlink_cext_getbyte";
|
|
|
impure function cext_putbyte (
|
impure function rlink_cext_putbyte (
|
dat : integer) -- data byte
|
dat : integer) -- data byte
|
return integer;
|
return integer;
|
attribute foreign of cext_putbyte : function is "VHPIDIRECT cext_putbyte";
|
attribute foreign of rlink_cext_putbyte :
|
|
function is "VHPIDIRECT rlink_cext_putbyte";
|
|
|
end vhpi_rriext;
|
end rlink_cext_vhpi;
|
|
|
package body vhpi_rriext is
|
package body rlink_cext_vhpi is
|
|
|
impure function cext_getbyte (
|
impure function rlink_cext_getbyte (
|
clk : integer) -- clock cycle
|
clk : integer) -- clock cycle
|
return integer is
|
return integer is
|
begin
|
begin
|
report "cext_getbyte not vhpi'ed" severity failure;
|
report "rlink_cext_getbyte not vhpi'ed" severity failure;
|
end cext_getbyte;
|
end rlink_cext_getbyte;
|
|
|
impure function cext_putbyte (
|
impure function rlink_cext_putbyte (
|
dat : integer) -- data byte
|
dat : integer) -- data byte
|
return integer is
|
return integer is
|
begin
|
begin
|
report "cext_getbyte not vhpi'ed" severity failure;
|
report "rlink_cext_getbyte not vhpi'ed" severity failure;
|
end cext_putbyte;
|
end rlink_cext_putbyte;
|
|
|
end vhpi_rriext;
|
end rlink_cext_vhpi;
|
|
|
No newline at end of file
|
No newline at end of file
|