--- rpl/src/instructions_g2.c	2015/11/26 11:44:36	1.57
+++ rpl/src/instructions_g2.c	2015/12/13 22:55:00	1.58
@@ -52,6 +52,10 @@ instruction_get(struct_processus *s_etat
 	integer8							indice_j;
 	integer8							nombre_dimensions;
 
+	unsigned char						*registre_instruction_courante;
+	unsigned char						registre_instruction_valide;
+	unsigned char						registre_test;
+
 	(*s_etat_processus).erreur_execution = d_ex;
 
 	if ((*s_etat_processus).affichage_arguments == 'Y')
@@ -1236,14 +1240,76 @@ instruction_get(struct_processus *s_etat
 		return;
 	}
 
-	if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
-			s_objet_resultat) == d_erreur)
+	liberation(s_etat_processus, s_objet_1);
+	liberation(s_etat_processus, s_objet_2);
+
+	if ((*s_objet_resultat).type == NOM)
 	{
-		return;
+		if ((*((struct_nom *) (*s_objet_resultat).objet)).symbole == d_faux)
+		{
+			if (evaluation(s_etat_processus, s_objet_resultat, 'E') == d_erreur)
+			{
+				return;
+			}
+		}
+		else
+		{
+			if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
+					s_objet_resultat) == d_erreur)
+			{
+				return;
+			}
+		}
 	}
+	else if ((*s_objet_resultat).type == FCT)
+	{
+		registre_test = (*s_etat_processus).test_instruction;
+		registre_instruction_courante = (*s_etat_processus)
+				.instruction_courante;
+		registre_instruction_valide = (*s_etat_processus)
+				.instruction_valide;
 
-	liberation(s_etat_processus, s_objet_1);
-	liberation(s_etat_processus, s_objet_2);
+		(*s_etat_processus).test_instruction = 'Y';
+		(*s_etat_processus).instruction_courante =
+				(*((struct_fonction *) (*s_objet_resultat).objet)).nom_fonction;
+
+		analyse(s_etat_processus, NULL);
+
+		(*s_etat_processus).test_instruction = registre_test;
+		(*s_etat_processus).instruction_courante =
+				registre_instruction_courante;
+
+		if (((*s_etat_processus).instruction_valide == 'Y') &&
+				(*s_etat_processus).constante_symbolique == 'Y')
+		{
+			if (evaluation(s_etat_processus, s_objet_resultat, 'E') == d_erreur)
+			{
+				(*s_etat_processus).instruction_valide =
+						registre_instruction_valide;
+				return;
+			}
+		}
+		else
+		{
+			if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
+					s_objet_resultat) == d_erreur)
+			{
+				(*s_etat_processus).instruction_valide =
+						registre_instruction_valide;
+				return;
+			}
+		}
+
+		(*s_etat_processus).instruction_valide = registre_instruction_valide;
+	}
+	else
+	{
+		if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
+				s_objet_resultat) == d_erreur)
+		{
+			return;
+		}
+	}
 
 	return;
 }
@@ -1279,6 +1345,10 @@ instruction_geti(struct_processus *s_eta
 	integer8							nombre_dimensions;
 	integer8							nombre_elements;
 
+	unsigned char						*registre_instruction_courante;
+	unsigned char						registre_instruction_valide;
+	unsigned char						registre_test;
+
 	(*s_etat_processus).erreur_execution = d_ex;
 
 	if ((*s_etat_processus).affichage_arguments == 'Y')
@@ -2364,10 +2434,72 @@ instruction_geti(struct_processus *s_eta
 		return;
 	}
 
-	if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
-			s_objet_resultat) == d_erreur)
+	if ((*s_objet_resultat).type == NOM)
 	{
-		return;
+		if ((*((struct_nom *) (*s_objet_resultat).objet)).symbole == d_faux)
+		{
+			if (evaluation(s_etat_processus, s_objet_resultat, 'E') == d_erreur)
+			{
+				return;
+			}
+		}
+		else
+		{
+			if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
+					s_objet_resultat) == d_erreur)
+			{
+				return;
+			}
+		}
+	}
+	else if ((*s_objet_resultat).type == FCT)
+	{
+		registre_test = (*s_etat_processus).test_instruction;
+		registre_instruction_courante = (*s_etat_processus)
+				.instruction_courante;
+		registre_instruction_valide = (*s_etat_processus)
+				.instruction_valide;
+
+		(*s_etat_processus).test_instruction = 'Y';
+		(*s_etat_processus).instruction_courante =
+				(*((struct_fonction *) (*s_objet_resultat).objet)).nom_fonction;
+
+		analyse(s_etat_processus, NULL);
+
+		(*s_etat_processus).test_instruction = registre_test;
+		(*s_etat_processus).instruction_courante =
+				registre_instruction_courante;
+
+		if (((*s_etat_processus).instruction_valide == 'Y') &&
+				(*s_etat_processus).constante_symbolique == 'Y')
+		{
+			if (evaluation(s_etat_processus, s_objet_resultat, 'E') == d_erreur)
+			{
+				(*s_etat_processus).instruction_valide =
+						registre_instruction_valide;
+				return;
+			}
+		}
+		else
+		{
+			if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
+					s_objet_resultat) == d_erreur)
+			{
+				(*s_etat_processus).instruction_valide =
+						registre_instruction_valide;
+				return;
+			}
+		}
+
+		(*s_etat_processus).instruction_valide = registre_instruction_valide;
+	}
+	else
+	{
+		if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
+				s_objet_resultat) == d_erreur)
+		{
+			return;
+		}
 	}
 
 	return;