URL
https://opencores.org/ocsvn/w11/w11/trunk
Go to most recent revision |
Show entire file |
Details |
Blame |
View Log
| Rev 9 |
Rev 12 |
| Line 1... |
Line 1... |
-- $Id: rlink_cext_vhpi.vhd 351 2010-12-30 21:50:54Z mueller $
|
-- $Id: rlink_cext_vhpi.vhd 389 2011-07-07 21:59:00Z mueller $
|
--
|
--
|
-- Copyright 2007-2010 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
|
| Line 35... |
Line 35... |
dat : integer) -- data byte
|
dat : integer) -- data byte
|
return integer;
|
return integer;
|
attribute foreign of rlink_cext_putbyte :
|
attribute foreign of rlink_cext_putbyte :
|
function is "VHPIDIRECT rlink_cext_putbyte";
|
function is "VHPIDIRECT rlink_cext_putbyte";
|
|
|
end rlink_cext_vhpi;
|
end package rlink_cext_vhpi;
|
|
|
package body rlink_cext_vhpi is
|
package body rlink_cext_vhpi is
|
|
|
impure function rlink_cext_getbyte (
|
impure function rlink_cext_getbyte (
|
clk : integer) -- clock cycle
|
clk : integer) -- clock cycle
|
| Line 53... |
Line 53... |
return integer is
|
return integer is
|
begin
|
begin
|
report "rlink_cext_getbyte not vhpi'ed" severity failure;
|
report "rlink_cext_getbyte not vhpi'ed" severity failure;
|
end rlink_cext_putbyte;
|
end rlink_cext_putbyte;
|
|
|
end rlink_cext_vhpi;
|
end package body rlink_cext_vhpi;
|
|
|
No newline at end of file
|
No newline at end of file
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.