version 1.54, 2012/01/17 14:44:10
|
version 1.56, 2012/04/12 09:56:40
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.6 |
RPL/2 (R) version 4.1.7 |
Copyright (C) 1989-2012 Dr. BERTRAND Joël |
Copyright (C) 1989-2012 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
Line 706 instruction_sqlconnect(struct_processus
|
Line 706 instruction_sqlconnect(struct_processus
|
if ((s_objet_resultat = parametres_sql(s_etat_processus, |
if ((s_objet_resultat = parametres_sql(s_etat_processus, |
s_objet_argument)) == NULL) |
s_objet_argument)) == NULL) |
{ |
{ |
|
liberation(s_etat_processus, s_objet_resultat); |
liberation(s_etat_processus, s_objet_argument); |
liberation(s_etat_processus, s_objet_argument); |
return; |
return; |
} |
} |
|
|
|
if ((*s_etat_processus).erreur_execution == |
|
d_ex_instruction_indisponible) |
|
{ |
|
liberation(s_etat_processus, s_objet_resultat); |
|
return; |
|
} |
|
|
if ((s_objet_systeme = copie_objet(s_etat_processus, s_objet_resultat, |
if ((s_objet_systeme = copie_objet(s_etat_processus, s_objet_resultat, |
'O')) == NULL) |
'O')) == NULL) |
{ |
{ |