--- rpl/src/instructions_v1.c	2011/07/22 07:38:40	1.27
+++ rpl/src/instructions_v1.c	2011/07/24 14:44:10	1.28
@@ -237,6 +237,9 @@ instruction_version(struct_processus *s_
 	struct_objet						*s_objet_resultat;
 
 	unsigned char						texte[] = "RPL/2 version ";
+	unsigned char						tampon[256 + 1];
+
+	void								*pointeur;
 
 	(*s_etat_processus).erreur_execution = d_ex;
 
@@ -830,8 +833,8 @@ instruction_version(struct_processus *s_
 		return;
 	}
 
-#ifdef DEBUG
-	if (((*(*l_element_courant).donnee).objet = malloc(6 *
+#ifdef RPLCAS
+	if (((*(*l_element_courant).donnee).objet = malloc(8 *
 			sizeof(unsigned char))) == NULL)
 	{
 		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
@@ -839,9 +842,9 @@ instruction_version(struct_processus *s_
 	}
 
 	strcpy((unsigned char *) (*(*l_element_courant).donnee).objet,
-			"DEBUG");
+			"RPL/CAS");
 #else
-	if (((*(*l_element_courant).donnee).objet = malloc(15 *
+	if (((*(*l_element_courant).donnee).objet = malloc(17 *
 			sizeof(unsigned char))) == NULL)
 	{
 		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
@@ -849,7 +852,7 @@ instruction_version(struct_processus *s_
 	}
 
 	strcpy((unsigned char *) (*(*l_element_courant).donnee).objet,
-			"DEBUG DISABLED");
+			"RPL/CAS DISABLED");
 #endif
 
 	if (((*l_element_courant).suivant =
@@ -891,6 +894,58 @@ instruction_version(struct_processus *s_
 			"EXPERIMENTAL CODE DISABLED");
 #endif
 
+	if (((*l_element_courant).suivant =
+			allocation_maillon(s_etat_processus)) == NULL)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	l_element_courant = (*l_element_courant).suivant;
+	(*l_element_courant).suivant = NULL;
+
+	if (((*l_element_courant).donnee = allocation(s_etat_processus, CHN))
+			== NULL)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	sprintf(tampon, "%d BITS ABI", sizeof(pointeur) * 8);
+
+	if (((*(*l_element_courant).donnee).objet = malloc((strlen(tampon) + 1 )
+			* sizeof(unsigned char))) == NULL)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	strcpy((unsigned char *) (*(*l_element_courant).donnee).objet, tampon);
+
+	if (((*l_element_courant).suivant =
+			allocation_maillon(s_etat_processus)) == NULL)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	l_element_courant = (*l_element_courant).suivant;
+	(*l_element_courant).suivant = NULL;
+
+	if (((*l_element_courant).donnee = allocation(s_etat_processus, CHN))
+			== NULL)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	if (((*(*l_element_courant).donnee).objet = conversion_majuscule(HOST))
+			== NULL)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
 	/*
 	 * Empilement du résultat
 	 */