Index: /PROJECT_CORE_MPI/SWITCH_GEN/BRANCHES/v0.01/CoreTypes.vhd
===================================================================
--- /PROJECT_CORE_MPI/SWITCH_GEN/BRANCHES/v0.01/CoreTypes.vhd	(revision 41)
+++ /PROJECT_CORE_MPI/SWITCH_GEN/BRANCHES/v0.01/CoreTypes.vhd	(revision 42)
@@ -276,14 +276,14 @@
 -- Start of an example image function
 function image(L: bit) return String is
-constant bit_image: String := bit'image(L);
+variable bit_image: String(1 to 1) := bit'image(L);
 begin
-return(bit_image(2 to 2));
+return(bit_image(1 to 1));
 end function image;
 
 
 function image(L: std_logic) return String is
-variable bit_image: String := std_logic'image(L);
+variable bit_image: String(1 to 1) := std_logic'image(L);
 begin
-return(bit_image(2 to 2));
+return(bit_image(1 to 1));
 end function image;
 
Index: /PROJECT_CORE_MPI/SWITCH_GEN/BRANCHES/v0.01/SWITCH_GEN.vhd
===================================================================
--- /PROJECT_CORE_MPI/SWITCH_GEN/BRANCHES/v0.01/SWITCH_GEN.vhd	(revision 41)
+++ /PROJECT_CORE_MPI/SWITCH_GEN/BRANCHES/v0.01/SWITCH_GEN.vhd	(revision 42)
@@ -32,5 +32,5 @@
 entity SWITCH_GEN is 
  --type portio is array(positive range) of std_logic_vector (7 downto 0);    
- generic(number_of_ports : positive := 8);
+ generic(number_of_ports : positive := 4);
      port(
 	        -- ports d'entree