- update fixed_pkg

git-svn-id: http://moon:8086/svn/vhdl/trunk@1323 cc03376c-175c-47c8-b038-4cd826a8556b

Common/sim/ieee_proposed/modelsim/numeric_std_unsigned_c.vhdl

@@ -1,29 +1,3 @@
--- --------------------------------------------------------------------
---
---
--- Copyright©2006 by the Institute of Electrical and Electronics Engineers, Inc.
--- Three Park Avenue
--- New York, NY 10016-5997, USA
--- All rights reserved.
--- 
--- This document is an unapproved draft of a proposed IEEE Standard. As such,
--- this document is subject to change. USE AT YOUR OWN RISK! Because this
---  is an unapproved draft, this document must not be utilized for any 
--- conformance/compliance purposes. Permission is hereby granted for IEEE 
--- Standards Committee participants to reproduce this document for purposes 
--- of IEEE standardization activities only. Prior to submitting this document 
--- to another standards development organization for standardization 
--- activities, permission must first be obtained from the Manager, Standards 
--- Licensing and Contracts, IEEE Standards Activities Department. Other 
--- entities seeking permission to reproduce this document, in whole or in 
--- part, must obtain permission from the Manager, Standards Licensing and 
--- Contracts, IEEE Standard Activities Department.
---
--- IEEE Standards Activities Department
--- Standards Licensing and Contracts
--- 445 Hoes Lane, P.O. Box 1331
--- Piscataway, NJ 08855-1331, USA
-
 -- --------------------------------------------------------------------
 -- Title      : Standard VHDL Synthesis Packages (1076.3, NUMERIC_STD_UNSIGNED)
 --
@@ -40,16 +14,12 @@
 --              
 --             Other changes will be noted here.
 --
--- Version: $Revision: 1.1 $
--- Date: $Date: 2006-06-13 15:53:20-04 $
---
---  Created for VHDL-200X-ft, David Bishop (dbishop@vhdl.org) 
--- -----------------------------------------------------------------------------
+--  Created for VHDL-200X par, David Bishop (dbishop@vhdl.org)
+------------------------------------------------------------------------------
+
 library IEEE;
 use IEEE.STD_LOGIC_1164.all;
 package NUMERIC_STD_UNSIGNED is
-  constant CopyRightNotice : STRING :=
-    "Copyright 2006 IEEE. All rights reserved.";
 
 -- begin LCS-2006-141
   -- Replace all subsequent occurrences of STD_LOGIC_VECTOR
@@ -560,6 +530,9 @@ package NUMERIC_STD_UNSIGNED is
   --         are filled with '0'. When truncating, the leftmost bits
   --         are dropped.
 
+  -- size_res versions of these functions (Bugzilla 165)
+  function RESIZE (ARG, SIZE_RES : STD_ULOGIC_VECTOR) return STD_ULOGIC_VECTOR;
+  -- Result subtype: STD_ULOGIC_VECTOR (SIZE_RES'length-1 downto 0)
   --============================================================================
   -- Conversion Functions
   --============================================================================
@@ -581,19 +554,27 @@ package NUMERIC_STD_UNSIGNED is
     To_StdLogicVector[NATURAL, NATURAL return STD_LOGIC_VECTOR];
   alias To_SLV is
     To_StdLogicVector[NATURAL, NATURAL return STD_LOGIC_VECTOR];
-
+  -- size_res versions of these functions (Bugzilla 165)
+  function To_StdLogicVector (ARG : NATURAL; SIZE_RES : STD_LOGIC_VECTOR) return STD_LOGIC_VECTOR;
+  -- Result subtype: STD_LOGIC_VECTOR(SIZE_RES'length-1 downto 0)
 -- end LCS-2006-130
   -- Id: D.5
   function To_StdULogicVector (ARG, SIZE : NATURAL) return STD_ULOGIC_VECTOR;
   -- Result subtype: STD_ULOGIC_VECTOR(SIZE-1 downto 0)
   -- Result: Converts a non-negative INTEGER to an UNSIGNED vector with
   --         the specified SIZE.
-
+  -- size_res versions of these functions (Bugzilla 165)
+  function To_StdULogicVector (ARG : NATURAL; SIZE_RES : STD_ULOGIC_VECTOR) return STD_ULOGIC_VECTOR;
+  -- Result subtype: STD_LOGIC_VECTOR(SIZE_RES'length-1 downto 0)
 -- begin LCS-2006-130
   alias To_Std_ULogic_Vector is
     To_StdULogicVector[NATURAL, NATURAL return STD_ULOGIC_VECTOR];
-  alias To_SUV is
+  alias To_SULV is
     To_StdULogicVector[NATURAL, NATURAL return STD_ULOGIC_VECTOR];
+  alias To_Std_ULogic_Vector is
+    To_StdULogicVector[NATURAL, STD_ULOGIC_VECTOR return STD_ULOGIC_VECTOR];
+  alias To_SULV is
+    To_StdULogicVector[NATURAL, STD_ULOGIC_VECTOR return STD_ULOGIC_VECTOR];
 
 -- end LCS-2006-130
   --============================================================================
@@ -1117,6 +1098,9 @@ package NUMERIC_STD_UNSIGNED is
   --         are filled with '0'. When truncating, the leftmost bits
   --         are dropped.
 
+  -- size_res versions of these functions (Bugzilla 165)
+  function RESIZE (ARG, SIZE_RES : STD_LOGIC_VECTOR) return STD_LOGIC_VECTOR;
+  -- Result subtype: STD_ULOGIC_VECTOR (SIZE_RES'length-1 downto 0)
   --============================================================================
   -- Conversion Functions
   --============================================================================
@@ -1128,6 +1112,7 @@ package NUMERIC_STD_UNSIGNED is
   -- Result: Converts the UNSIGNED vector to an INTEGER.
 
 -- end LCS-2006-130
+  
   --============================================================================
   -- Translation Functions
   --============================================================================
@@ -1144,8 +1129,8 @@ end package NUMERIC_STD_UNSIGNED;
 -------------------------------------------------------------------------------
 -- Proposed package body for the VHDL-200x-FT NUMERIC_STD_UNSIGNED package
 -- This package body supplies a recommended implementation of these functions
--- Version: $Revision: 1.1 $
--- Date: $Date: 2006-06-13 15:53:20-04 $
+-- Version: $Revision: 1.4 $
+-- Date: $Date: 2009/08/26 19:56:30 $
 --
 --  Created for VHDL-200X par, David Bishop (dbishop@vhdl.org)
 -------------------------------------------------------------------------------
@@ -1644,6 +1629,13 @@ package body NUMERIC_STD_UNSIGNED is
               NEW_SIZE => NEW_SIZE));
   end function RESIZE;
 
+  function RESIZE (ARG, SIZE_RES : STD_ULOGIC_VECTOR)
+    return STD_ULOGIC_VECTOR is
+  begin
+    return STD_ULOGIC_VECTOR (
+      RESIZE (ARG      => UNSIGNED(ARG),
+              NEW_SIZE => SIZE_RES'length));
+  end function RESIZE;
   --============================================================================
 
   -- Id: D.1
@@ -1659,6 +1651,11 @@ package body NUMERIC_STD_UNSIGNED is
                                          SIZE => SIZE));
   end function To_StdLogicVector;
 
+  function To_StdLogicVector (ARG : NATURAL; SIZE_RES : STD_LOGIC_VECTOR) return STD_LOGIC_VECTOR is
+  begin
+    return STD_LOGIC_VECTOR (TO_UNSIGNED(ARG  => ARG,
+                                          SIZE => SIZE_RES'length));
+  end function To_StdLogicVector;
   -- Id: D.5
   function To_StdULogicVector (ARG, SIZE : NATURAL) return STD_ULOGIC_VECTOR is
   begin
@@ -1666,6 +1663,11 @@ package body NUMERIC_STD_UNSIGNED is
                                          SIZE => SIZE));
   end function To_StdULogicVector;
 
+  function To_StdULogicVector (ARG : NATURAL; SIZE_RES : STD_ULOGIC_VECTOR) return STD_ULOGIC_VECTOR is
+  begin
+    return STD_ULOGIC_VECTOR (TO_UNSIGNED(ARG  => ARG,
+                                          SIZE => SIZE_RES'length));
+  end function To_StdULogicVector;
   --============================================================================
 
   -- function TO_01 is used to convert vectors to the
@@ -2171,6 +2173,13 @@ package body NUMERIC_STD_UNSIGNED is
               NEW_SIZE => NEW_SIZE));
   end function RESIZE;
 
+  function RESIZE (ARG, SIZE_RES : STD_LOGIC_VECTOR)
+    return STD_LOGIC_VECTOR is
+  begin
+    return STD_LOGIC_VECTOR (
+      RESIZE (ARG      => UNSIGNED(ARG),
+              NEW_SIZE => SIZE_RES'length));
+  end function RESIZE;
   --============================================================================
 
   -- Id: D.1