-- Copyright 1992-1999 Future Parallel -- Source: T:\HWDEV\GENERIC\VHDL\real_plus.bdy -- VLSI Design Lab -- Designer: Tim Pagden -- Development Notes: T:\HWDEV\GENERIC\VHDL\real_plus_bdy.dnh -- 04.04.1999 TP 0.0 created by 'create_VHDL_package_body' library IEEE; library vfp; package body real_extended is -- use IEEE.std_logic_1164.all; -- use vfp.string_plus.all; -- LIBRARY.PACKAGE.PROCEDURE (FORMAL_TYPE, FORMAL_TYPE); -- procedure PROCEDURE ( -- a: in TYPE; -- b: out TYPE -- ) is -- declarative part -- begin -- statement part -- end PROCEDURE; -- conversion functions -- RETURN_TYPE := LIBRARY.real_plus.to_TYPE (FORMAL_TYPE, FORMAL_TYPE); -- function to_TYPE (a, b: TYPE) return TYPE is -- declarative part -- begin -- statement part -- end to_TYPE; -- operators -- RETURN_TYPE := LIBRARY.real_plus."op" (FORMAL_TYPE, FORMAL_TYPE); -- function "op" (a, b: TYPE) return TYPE is -- declarative part -- begin -- statement part -- end "op"; -- general purpose functions -- class-specific functions procedure debug ( item : string; value : real ) is use vfp.string_plus.all; begin assert FALSE report "DEBUG: " & item & " = " & to_string(value) severity note; end debug; -- hardware functions end real_extended;