git.gag.com Git - debian/gnuradio/blob - usrp2/fpga/opencores/spi_boot/rtl/vhdl/spi_boot_pack-p.vhd

   1 -------------------------------------------------------------------------------
   2 --
   3 -- SD/MMC Bootloader
   4 --
   5 -- $Id: spi_boot_pack-p.vhd,v 1.1 2005/02/08 20:41:33 arniml Exp $
   6 --
   7 -------------------------------------------------------------------------------
   8
   9 library ieee;
  10 use ieee.std_logic_1164.all;
  11
  12 package spi_boot_pack is
  13
  14   function "=" (a : std_logic; b : integer) return boolean;
  15
  16 end spi_boot_pack;
  17
  18 package body spi_boot_pack is
  19
  20   function "=" (a : std_logic; b : integer) return boolean is
  21     variable result_v : boolean;
  22   begin
  23     result_v := false;
  24
  25     case a is
  26       when '0' =>
  27         if b = 0 then
  28           result_v := true;
  29         end if;
  30
  31       when '1' =>
  32         if b = 1 then
  33           result_v := true;
  34         end if;
  35
  36       when others =>
  37         null;
  38
  39     end case;
  40
  41     return result_v;
  42   end;
  43
  44 end spi_boot_pack;
  45
  46
  47 -------------------------------------------------------------------------------
  48 -- File History:
  49 --
  50 -- $Log: spi_boot_pack-p.vhd,v $
  51 -- Revision 1.1  2005/02/08 20:41:33  arniml
  52 -- initial check-in
  53 --
  54 -------------------------------------------------------------------------------