--- rpl/src/instructions_r4.c	2013/03/18 10:32:41	1.75
+++ rpl/src/instructions_r4.c	2013/03/20 22:24:37	1.76
@@ -96,8 +96,8 @@ instruction_r_vers_b(struct_processus *s
 		}
 		else
 		{
-			(*((logical8 *) (*s_objet_resultat).objet)) = (*((integer8 *)
-					(*s_objet_argument).objet));
+			(*((logical8 *) (*s_objet_resultat).objet)) = (logical8)
+					(*((integer8 *) (*s_objet_argument).objet));
 		}
 	}
 	else
@@ -1053,7 +1053,7 @@ instruction_read(struct_processus *s_eta
 
 				longueur_questure = 4096;
 
-				if ((tampon_lecture = malloc(longueur_questure *
+				if ((tampon_lecture = malloc(((size_t) longueur_questure) *
 						sizeof(unsigned char))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -1072,8 +1072,8 @@ instruction_read(struct_processus *s_eta
 
 				do
 				{
-					longueur_effective = fread(tampon_lecture,
-							(size_t) sizeof(unsigned char), longueur_questure,
+					longueur_effective = (integer8) fread(tampon_lecture,
+							sizeof(unsigned char), (size_t) longueur_questure,
 							(*descripteur).descripteur_c);
 
 					pointeur = 0;
@@ -1123,8 +1123,8 @@ instruction_read(struct_processus *s_eta
 
 				do
 				{
-					longueur_effective = fread(tampon_lecture,
-							(size_t) sizeof(unsigned char), longueur_questure,
+					longueur_effective = (integer8) fread(tampon_lecture,
+							sizeof(unsigned char), (size_t) longueur_questure,
 							(*descripteur).descripteur_c);
 
 					pointeur = 0;
@@ -1192,7 +1192,8 @@ instruction_read(struct_processus *s_eta
 				free(tampon_lecture);
 				longueur_enregistrement = position_finale - position_initiale;
 
-				if ((tampon_lecture = malloc((longueur_enregistrement + 1) *
+				if ((tampon_lecture = malloc(((size_t)
+						(longueur_enregistrement + 1)) *
 						sizeof(unsigned char))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -1210,9 +1211,8 @@ instruction_read(struct_processus *s_eta
 					return;
 				}
 
-				longueur_effective = fread(tampon_lecture,
-						(size_t) sizeof(unsigned char),
-						(size_t) longueur_enregistrement,
+				longueur_effective = (integer8) fread(tampon_lecture,
+						sizeof(unsigned char), (size_t) longueur_enregistrement,
 						(*descripteur).descripteur_c);
 
 				if (longueur_effective != longueur_enregistrement)
@@ -1302,7 +1302,7 @@ instruction_read(struct_processus *s_eta
 				}
 
 				if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,
-						commande, strlen(commande), &ppStmt, &queue)
+						commande, (int) strlen(commande), &ppStmt, &queue)
 						!= SQLITE_OK)
 				{
 					(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
@@ -1473,7 +1473,7 @@ instruction_read(struct_processus *s_eta
 				}
 
 				if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,
-						commande, strlen(commande), &ppStmt, &queue)
+						commande, (int) strlen(commande), &ppStmt, &queue)
 						!= SQLITE_OK)
 				{
 					(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
@@ -1547,7 +1547,7 @@ instruction_read(struct_processus *s_eta
 				}
 
 				if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,
-						commande, strlen(commande), &ppStmt, &queue)
+						commande, (int) strlen(commande), &ppStmt, &queue)
 						!= SQLITE_OK)
 				{
 					(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
@@ -1640,7 +1640,7 @@ instruction_read(struct_processus *s_eta
 				}
 
 				if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,
-						commande, strlen(commande), &ppStmt, &queue)
+						commande, (int) strlen(commande), &ppStmt, &queue)
 						!= SQLITE_OK)
 				{
 					(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
@@ -2028,7 +2028,7 @@ instruction_read(struct_processus *s_eta
 						return;
 					}
 
-					longueur = strlen(format_chaine);
+					longueur = (integer8) strlen(format_chaine);
 
 					if (format_chaine[longueur - 1] != ')')
 					{
@@ -2090,16 +2090,17 @@ instruction_read(struct_processus *s_eta
 						longueur_enregistrement = longueur;
 					}
 
-					if ((tampon_lecture = malloc((longueur_enregistrement)
-							* sizeof(unsigned char))) == NULL)
+					if ((tampon_lecture = malloc(((size_t)
+							longueur_enregistrement) * sizeof(unsigned char)))
+							== NULL)
 					{
 						(*s_etat_processus).erreur_systeme =
 								d_es_allocation_memoire;
 						return;
 					}
 
-					longueur_effective = fread(tampon_lecture,
-							(size_t) sizeof(unsigned char),
+					longueur_effective = (integer8) fread(tampon_lecture,
+							sizeof(unsigned char),
 							(size_t) longueur_enregistrement,
 							(*descripteur).descripteur_c);
 
@@ -2233,7 +2234,7 @@ instruction_read(struct_processus *s_eta
 				presence_indicateur = d_faux;
 
 				if ((tampon_lecture = realloc(tampon_lecture,
-						(longueur_effective + longueur_questure + 1)
+						((size_t) (longueur_effective + longueur_questure + 1))
 					   	* sizeof(unsigned char))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -2258,10 +2259,10 @@ instruction_read(struct_processus *s_eta
 
 					do
 					{
-						ios = recvfrom((*((struct_socket *)
+						ios = (int) recvfrom((*((struct_socket *)
 								(*s_objet_argument_1).objet)).socket,
-								tampon_lecture,
-								longueur_effective + longueur_questure,
+								tampon_lecture, (size_t) (longueur_effective +
+								longueur_questure),
 								MSG_PEEK | MSG_DONTWAIT, (struct sockaddr *)
 								&adresse_unix, &longueur_adresse);
 					} while((ios == -1) && (errno == EINTR));
@@ -2273,10 +2274,10 @@ instruction_read(struct_processus *s_eta
 
 					do
 					{
-						ios = recvfrom((*((struct_socket *)
+						ios = (int) recvfrom((*((struct_socket *)
 								(*s_objet_argument_1).objet)).socket,
-								tampon_lecture,
-								longueur_effective + longueur_questure,
+								tampon_lecture, (size_t) (longueur_effective +
+								longueur_questure),
 								MSG_PEEK | MSG_DONTWAIT, (struct sockaddr *)
 								&adresse_ipv4, &longueur_adresse);
 					} while((ios == -1) && (errno == EINTR));
@@ -2289,10 +2290,10 @@ instruction_read(struct_processus *s_eta
 					
 					do
 					{
-						ios = recvfrom((*((struct_socket *)
+						ios = (int) recvfrom((*((struct_socket *)
 								(*s_objet_argument_1).objet)).socket,
-								tampon_lecture,
-								longueur_effective + longueur_questure,
+								tampon_lecture, (size_t) (longueur_effective +
+								longueur_questure),
 								MSG_PEEK | MSG_DONTWAIT, (struct sockaddr *)
 								&adresse_ipv6, &longueur_adresse);
 					} while((ios == -1) && (errno == EINTR));
@@ -2444,7 +2445,8 @@ instruction_read(struct_processus *s_eta
 								longueur_adresse = sizeof(adresse_unix);
 								recvfrom((*((struct_socket *)
 										(*s_objet_argument_1).objet)).socket,
-										tampon_lecture, longueur_effective,
+										tampon_lecture,
+										(size_t) longueur_effective,
 										0, (struct sockaddr *)
 										&adresse_unix, &longueur_adresse);
 							} while((ios == -1) && (errno == EINTR));
@@ -2457,7 +2459,8 @@ instruction_read(struct_processus *s_eta
 								longueur_adresse = sizeof(adresse_ipv4);
 								recvfrom((*((struct_socket *)
 										(*s_objet_argument_1).objet)).socket,
-										tampon_lecture, longueur_effective,
+										tampon_lecture,
+										(size_t) longueur_effective,
 										0, (struct sockaddr *)
 										&adresse_ipv4, &longueur_adresse);
 							} while((ios == -1) && (errno == EINTR));
@@ -2471,7 +2474,8 @@ instruction_read(struct_processus *s_eta
 								longueur_adresse = sizeof(adresse_ipv6);
 								recvfrom((*((struct_socket *)
 										(*s_objet_argument_1).objet)).socket,
-										tampon_lecture, longueur_effective,
+										tampon_lecture,
+										(size_t) longueur_effective,
 										0, (struct sockaddr *)
 										&adresse_ipv6, &longueur_adresse);
 							} while((ios == -1) && (errno == EINTR));
@@ -2836,7 +2840,7 @@ instruction_read(struct_processus *s_eta
 				longueur_adresse = 0;
 				recvfrom((*((struct_socket *)
 						(*s_objet_argument_1).objet)).socket, tampon_lecture,
-						position_finale, MSG_DONTWAIT,
+						(size_t) position_finale, MSG_DONTWAIT,
 						NULL, &longueur_adresse);
 			}
 
@@ -2867,7 +2871,7 @@ instruction_read(struct_processus *s_eta
 				presence_indicateur = d_faux;
 
 				if ((tampon_lecture = realloc(tampon_lecture,
-						(longueur_effective + longueur_questure + 1)
+						((size_t) (longueur_effective + longueur_questure) + 1)
 					   	* sizeof(unsigned char))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -2892,10 +2896,10 @@ instruction_read(struct_processus *s_eta
 
 					do
 					{
-						ios = recvfrom((*((struct_socket *)
+						ios = (int) recvfrom((*((struct_socket *)
 								(*s_objet_argument_1).objet)).socket,
-								tampon_lecture,
-								longueur_effective + longueur_questure,
+								tampon_lecture, (size_t)
+								(longueur_effective + longueur_questure),
 								MSG_PEEK | MSG_DONTWAIT, (struct sockaddr *)
 								&adresse_unix, &longueur_adresse);
 					} while((ios == -1) && (errno == EINTR));
@@ -2907,10 +2911,10 @@ instruction_read(struct_processus *s_eta
 
 					do
 					{
-						ios = recvfrom((*((struct_socket *)
+						ios = (int) recvfrom((*((struct_socket *)
 								(*s_objet_argument_1).objet)).socket,
-								tampon_lecture,
-								longueur_effective + longueur_questure,
+								tampon_lecture, (size_t)
+								(longueur_effective + longueur_questure),
 								MSG_PEEK | MSG_DONTWAIT, (struct sockaddr *)
 								&adresse_ipv4, &longueur_adresse);
 					} while((ios == -1) && (errno == EINTR));
@@ -2923,10 +2927,10 @@ instruction_read(struct_processus *s_eta
 					
 					do
 					{
-						ios = recvfrom((*((struct_socket *)
+						ios = (int) recvfrom((*((struct_socket *)
 								(*s_objet_argument_1).objet)).socket,
-								tampon_lecture,
-								longueur_effective + longueur_questure,
+								tampon_lecture, (size_t)
+								(longueur_effective + longueur_questure),
 								MSG_PEEK | MSG_DONTWAIT, (struct sockaddr *)
 								&adresse_ipv6, &longueur_adresse);
 					} while((ios == -1) && (errno == EINTR));
@@ -3012,7 +3016,7 @@ instruction_read(struct_processus *s_eta
 							longueur_adresse = sizeof(adresse_unix);
 							recvfrom((*((struct_socket *)
 									(*s_objet_argument_1).objet)).socket,
-									tampon_lecture, longueur_effective,
+									tampon_lecture, (size_t) longueur_effective,
 									0, (struct sockaddr *)
 									&adresse_unix, &longueur_adresse);
 						} while((ios == -1) && (errno == EINTR));
@@ -3025,7 +3029,7 @@ instruction_read(struct_processus *s_eta
 							longueur_adresse = sizeof(adresse_ipv4);
 							recvfrom((*((struct_socket *)
 									(*s_objet_argument_1).objet)).socket,
-									tampon_lecture, longueur_effective,
+									tampon_lecture, (size_t) longueur_effective,
 									0, (struct sockaddr *)
 									&adresse_ipv4, &longueur_adresse);
 						} while((ios == -1) && (errno == EINTR));
@@ -3039,7 +3043,7 @@ instruction_read(struct_processus *s_eta
 							longueur_adresse = sizeof(adresse_ipv6);
 							recvfrom((*((struct_socket *)
 									(*s_objet_argument_1).objet)).socket,
-									tampon_lecture, longueur_effective,
+									tampon_lecture, (size_t) longueur_effective,
 									0, (struct sockaddr *)
 									&adresse_ipv6, &longueur_adresse);
 						} while((ios == -1) && (errno == EINTR));
@@ -3321,7 +3325,7 @@ instruction_read(struct_processus *s_eta
 				longueur_adresse = 0;
 				recvfrom((*((struct_socket *)
 						(*s_objet_argument_1).objet)).socket, tampon_lecture,
-						position_finale, MSG_DONTWAIT,
+						(size_t) position_finale, MSG_DONTWAIT,
 						NULL, &longueur_adresse);
 			}