--- rpl/src/sql.c	2010/01/26 15:22:45	1.1.1.1
+++ rpl/src/sql.c	2012/04/13 14:13:04	1.37
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.9
-  Copyright (C) 1989-2010 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.8
+  Copyright (C) 1989-2012 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -20,7 +20,7 @@
 */
 
 
-#include "rpl.conv.h"
+#include "rpl-conv.h"
 
 
 /*
@@ -38,17 +38,20 @@
 struct_objet *
 parametres_sql(struct_processus *s_etat_processus, struct_objet *s_parametres)
 {
+#if defined(MYSQL_SUPPORT) || defined(POSTGRESQL_SUPPORT)
 	struct_liste_chainee			*l_element_courant;
 
 	struct_objet					*s_connecteur;
 
-	unsigned char					*base;
 	unsigned char					*locale;
-	unsigned char					*mot_de_passe;
-	unsigned char					*serveur;
-	unsigned char					*sport;
 	unsigned char					*type_base;
+	unsigned char					*serveur;
+	unsigned char					*base;
 	unsigned char					*utilisateur;
+	unsigned char					*mot_de_passe;
+#	ifdef POSTGRESQL_SUPPORT
+	unsigned char					*sport;
+#	endif
 
 	unsigned int					port;
 
@@ -289,6 +292,8 @@ parametres_sql(struct_processus *s_etat_
 		}
 
 		fflush(stdout);
+
+		(*s_etat_processus).erreur_execution = d_ex_instruction_indisponible;
 #		endif
 	}
 	else if (strcmp((*((struct_connecteur_sql *) (*s_connecteur).objet)).type,
@@ -338,6 +343,8 @@ parametres_sql(struct_processus *s_etat_
 		}
 
 		fflush(stdout);
+
+		(*s_etat_processus).erreur_execution = d_ex_instruction_indisponible;
 #		endif
 	}
 	else
@@ -348,6 +355,9 @@ parametres_sql(struct_processus *s_etat_
 	}
 
 	return(s_connecteur);
+#else
+	return(NULL);
+#endif
 }
 
 // vim: ts=4