--- rpl/src/instructions_o2.c	2010/03/04 10:17:52	1.4
+++ rpl/src/instructions_o2.c	2020/01/10 11:15:47	1.68
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.12
-  Copyright (C) 1989-2010 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.32
+  Copyright (C) 1989-2020 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -20,7 +20,7 @@
 */
 
 
-#include "rpl.conv.h"
+#include "rpl-conv.h"
 
 
 /*
@@ -50,7 +50,7 @@ instruction_obsub(struct_processus *s_et
 	unsigned char					*registre_definitions_chainees;
 	unsigned char					*registre_instruction_courante;
 
-	unsigned long					position_courante;
+	integer8						position_courante;
 
 	(*s_etat_processus).erreur_execution = d_ex;
 
@@ -88,7 +88,7 @@ instruction_obsub(struct_processus *s_et
 	}
 	else if ((*s_etat_processus).test_instruction == 'Y')
 	{
-		(*s_etat_processus).nombre_arguments = 3;
+		(*s_etat_processus).nombre_arguments = -1;
 		return;
 	}
 
@@ -301,7 +301,7 @@ instruction_obget(struct_processus *s_et
 	struct_objet					*s_objet_argument_2;
 	struct_objet					*s_objet_resultat;
 
-	unsigned long					position;
+	integer8						position;
 
 	(*s_etat_processus).erreur_execution = d_ex;
 
@@ -326,7 +326,7 @@ instruction_obget(struct_processus *s_et
 	}
 	else if ((*s_etat_processus).test_instruction == 'Y')
 	{
-		(*s_etat_processus).nombre_arguments = 2;
+		(*s_etat_processus).nombre_arguments = -1;
 		return;
 	}
 
@@ -371,8 +371,7 @@ instruction_obget(struct_processus *s_et
 
 		while(l_element_courant != NULL)
 		{
-			if (position == (unsigned long) (*((integer8 *)
-					(*s_objet_argument_1).objet)))
+			if (position == (*((integer8 *) (*s_objet_argument_1).objet)))
 			{
 				/*
 				 * Récupération de l'objet