Index: /PROJECT_CORE_MPI/SWITCH_GEN/BRANCHES/v0.01/CoreTypes.vhd
===================================================================
--- /PROJECT_CORE_MPI/SWITCH_GEN/BRANCHES/v0.01/CoreTypes.vhd	(revision 39)
+++ /PROJECT_CORE_MPI/SWITCH_GEN/BRANCHES/v0.01/CoreTypes.vhd	(revision 40)
@@ -148,4 +148,13 @@
   --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,3 +247,66 @@
 	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;