Changeset 40

Timestamp:

Dec 7, 2012, 11:32:04 AM (12 years ago)

Author:

rolagamo

Message:

 

File:

• PROJECT_CORE_MPI/SWITCH_GEN/BRANCHES/v0.01/CoreTypes.vhd (modified) (2 diffs)

PROJECT_CORE_MPI/SWITCH_GEN/BRANCHES/v0.01/CoreTypes.vhd

@@ -148 +148 @@
   --renvoie un std_logic_vector de taille width
   Function Stdlv (s1 : natural;width:positive ) return std_logic_vector;
+  function image(L: bit_vector) return String;
+  function image(L: bit) return String;
+   function image(L: std_logic_vector) return String;
+  function image(L: std_logic) return String;
+--  function HexImage(L: unsigned) return String;
+--  function HexImage(L: signed) return String;
+--  function HexImage(L: std_ulogic_vector) return String;
+--  function HexImage(L: std_logic_vector) return String;
+--  function HexImage(L: bit_vector) return String;
 end CoreTypes;
 
@@ -238 +247 @@
         return V;
  end stdlv;
+ 
+ -- Start of heximage functions
+--function HexImage(L: bit_vector) return String is
+--begin
+--return(HexImage(imge(L)));
+--end function HexImage;
+--
+--function HexImage(L: std_ulogic_vector) return String is
+--begin
+--return(HexImage(image(to_x01(L))));
+--end function HexImage;
+
+--function HexImage(L: std_logic_vector) return String is
+--begin
+--return(HexImage(imge(to_x01(L))));
+--end function HexImage;
+--
+--function HexImage(L: signed) return String is
+--begin
+--return(HexImage(imge(L)));
+--end function HexImage;
+--
+--function HexImage(L: unsigned) return String is
+--begin
+--return(HexImage(image(L)));
+--end function HexImage;
+-- End of heximage functions
+-- Start of an example image function
+function image(L: bit) return String is
+constant bit_image: String := bit'image(L);
+begin
+return(bit_image(2 to 2));
+end function image;
+
+
+function image(L: std_logic) return String is
+variable bit_image: String := std_logic'image(L);
+begin
+return(bit_image(2 to 2));
+end function image;
+
+function image(L: bit_vector) return String is
+variable Lx: bit_vector(1 to L'length);
+variable RetVal: String(1 to L'length);
+begin
+Lx := L;
+for i in Lx'range loop
+RetVal(i to i) := image(Lx(i));
+end loop;
+return(RetVal);
+end function image;
+
+
+function image(L: std_logic_vector) return String is
+variable Lx: std_logic_vector(1 to L'length);
+variable RetVal: String(1 to L'length);
+begin
+Lx := L;
+for i in Lx'range loop
+RetVal(i to i) := image(Lx(i));
+end loop;
+return(RetVal);
+end function image;
 end CoreTypes;