Line 1... |
Line 1... |
-- $Id: rlinklib.vhd 495 2013-03-06 17:13:48Z mueller $
|
-- $Id: rlinklib.vhd 509 2013-04-21 20:46:20Z mueller $
|
--
|
--
|
-- Copyright 2007-2012 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
-- Copyright 2007-2013 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 18... |
Line 18... |
-- Dependencies: -
|
-- Dependencies: -
|
-- Tool versions: xst 8.2, 9.1, 9.2, 11.4, 12.1, 13.3; ghdl 0.18-0.29
|
-- Tool versions: xst 8.2, 9.1, 9.2, 11.4, 12.1, 13.3; ghdl 0.18-0.29
|
--
|
--
|
-- Revision History:
|
-- Revision History:
|
-- Date Rev Version Comment
|
-- Date Rev Version Comment
|
|
-- 2013-04-21 509 3.3.2 add rlb_moni record definition
|
-- 2012-12-29 466 3.3.1 add rlink_rlbmux
|
-- 2012-12-29 466 3.3.1 add rlink_rlbmux
|
-- 2011-12-23 444 3.3 CLK_CYCLE now integer
|
-- 2011-12-23 444 3.3 CLK_CYCLE now integer
|
-- 2011-12-21 442 3.2.1 retire old, deprecated interfaces
|
-- 2011-12-21 442 3.2.1 retire old, deprecated interfaces
|
-- 2011-12-09 437 3.2 add rlink_core8
|
-- 2011-12-09 437 3.2 add rlink_core8
|
-- 2011-11-18 427 3.1.3 now numeric_std clean
|
-- 2011-11-18 427 3.1.3 now numeric_std clean
|
Line 98... |
Line 99... |
end record rl_moni_type;
|
end record rl_moni_type;
|
|
|
constant rl_moni_init : rl_moni_type :=
|
constant rl_moni_init : rl_moni_type :=
|
('0','0','0'); -- eop,attn,lamp
|
('0','0','0'); -- eop,attn,lamp
|
|
|
|
type rlb_moni_type is record -- rlink 8b monitor port
|
|
rxval : slbit; -- data in valid
|
|
rxhold : slbit; -- data in hold
|
|
txena : slbit; -- data out enable
|
|
txbusy : slbit; -- data out busy
|
|
end record rlb_moni_type;
|
|
|
|
constant rlb_moni_init : rlb_moni_type :=
|
|
('0','0','0','0'); -- rxval,rxhold,txena,txbusy
|
|
|
-- ise 13.1 xst can bug check if generic defaults in a package are defined via
|
-- ise 13.1 xst can bug check if generic defaults in a package are defined via
|
-- 'slv(to_unsigned())'. The conv_ construct prior to numeric_std was ok.
|
-- 'slv(to_unsigned())'. The conv_ construct prior to numeric_std was ok.
|
-- As workaround the ibus default addresses are defined here as constant.
|
-- As workaround the ibus default addresses are defined here as constant.
|
constant rbaddr_rlink_serport : slv8 := slv(to_unsigned(2#11111110#,8));
|
constant rbaddr_rlink_serport : slv8 := slv(to_unsigned(2#11111110#,8));
|
|
|