--===========================================================================------  S Y N T H E Z I A B L E    miniUART   C O R E----  www.OpenCores.Org - January 2000--  This core adheres to the GNU public license  ---- Design units   : UART_Def---- File name      : uart_lib.vhd---- Purpose        : Implements an miniUART device for communication purposes --                  between the OR1K processor and the Host computer through--                  an RS-232 communication protocol.--                  -- Library        : uart_lib.vhd---- Dependencies   : IEEE.Std_Logic_1164----===========================================================================----------------------------------------------------------------------------------- Revision list-- Version   Author                 Date                        Changes---- 0.1      Ovidiu Lupas     15 January 2000                   New model--        olupas@opencores.org--------------------------------------------------------------------------------------------------------------------------------------------------------------- -- package UART_Def-------------------------------------------------------------------------------- library IEEE,STD;use IEEE.Std_Logic_1164.all;use IEEE.Numeric_Std.all;--**--package UART_Def is      -----------------------------------------------------------------------------      -- Converts unsigned Std_LOGIC_Vector to Integer, leftmost bit is MSB      -- Error message for unknowns (U, X, W, Z, -), converted to 0      -- Verifies whether vector is too long (> 16 bits)      -----------------------------------------------------------------------------      function  ToInteger (         Invector : in  Unsigned(3 downto 0))       return     Integer;end UART_Def; --==================== End of package header ======================--package body UART_Def is  function  ToInteger (       InVector : in Unsigned(3 downto 0))      return  Integer is    constant HeaderMsg   : String          := "To_Integer:";    constant MsgSeverity : Severity_Level  := Warning;    variable Value       : Integer         := 0;  begin    for i in 0 to 3 loop      if (InVector(i) = '1') then         Value := Value + (2**I);      end if;    end loop;    return Value;  end ToInteger;end UART_Def; --================ End of package body ================--