Subversion Repositories fade_ether_protocol

library ieee;

use ieee.std_logic_1164.all;

use ieee.numeric_std.all;

package pkt_desc_pkg is

type pkt_desc is record

    pkt : unsigned(31 downto 0);

    seq : unsigned(15 downto 0);

    valid : std_logic;

    confirmed : std_logic;

    sent : std_logic;

    flushed : std_logic;

end record;

constant pkt_desc_width : integer := 52;

function pkt_desc_to_stlv(

  constant din : pkt_desc)

  return std_logic_vector;

function stlv_to_pkt_desc(

  constant din : std_logic_vector)

  return pkt_desc;

end pkt_desc_pkg;

package body pkt_desc_pkg is

function pkt_desc_to_stlv(

  constant din : pkt_desc)

  return std_logic_vector is

  variable res : std_logic_vector(51 downto 0);

begin

  res(31 downto 0) := std_logic_vector(din.pkt);

  res(47 downto 32) := std_logic_vector(din.seq);

  res(48) := din.valid;

  res(49) := din.confirmed;

  res(50) := din.sent;

  res(51) := din.flushed;

  return res;

end pkt_desc_to_stlv;

function stlv_to_pkt_desc(

  constant din : std_logic_vector)

  return pkt_desc is

  variable res : pkt_desc;

begin

  res.pkt:=unsigned(din(31 downto 0));

  res.seq:=unsigned(din(47 downto 32));

  res.valid := din(48);

  res.confirmed := din(49);

  res.sent := din(50);

  res.flushed := din(51);

  return res;

end stlv_to_pkt_desc;

end pkt_desc_pkg;