version 1.83, 2020/01/10 11:15:39
|
version 1.86, 2022/09/07 13:40:29
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.32 |
RPL/2 (R) version 4.1.34 |
Copyright (C) 1989-2020 Dr. BERTRAND Joël |
Copyright (C) 1989-2021 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 1427 struct_liste_chainee *
|
Line 1427 struct_liste_chainee *
|
empilement_pile_operationnelle(struct_rpl_arguments *s_rpl_arguments, |
empilement_pile_operationnelle(struct_rpl_arguments *s_rpl_arguments, |
struct_objet *s_objet) |
struct_objet *s_objet) |
{ |
{ |
|
# pragma GCC diagnostic push |
|
# pragma GCC diagnostic ignored "-Wunused-but-set-variable" |
struct_liste_chainee *l_ancienne_base_liste; |
struct_liste_chainee *l_ancienne_base_liste; |
struct_liste_chainee *l_nouvelle_base_liste; |
struct_liste_chainee *l_nouvelle_base_liste; |
|
|
Line 1447 empilement_pile_operationnelle(struct_rp
|
Line 1449 empilement_pile_operationnelle(struct_rp
|
(*s_rpl_arguments).l_base_pile = l_nouvelle_base_liste; |
(*s_rpl_arguments).l_base_pile = l_nouvelle_base_liste; |
|
|
return l_nouvelle_base_liste; |
return l_nouvelle_base_liste; |
|
# pragma GCC diagnostic pop |
} |
} |
|
|
|
|
Line 1466 struct_liste_chainee *
|
Line 1469 struct_liste_chainee *
|
depilement_pile_operationnelle(struct_rpl_arguments *s_rpl_arguments, |
depilement_pile_operationnelle(struct_rpl_arguments *s_rpl_arguments, |
struct_objet **s_objet) |
struct_objet **s_objet) |
{ |
{ |
|
# pragma GCC diagnostic push |
|
# pragma GCC diagnostic ignored "-Wunused-but-set-variable" |
struct_liste_chainee *l_ancienne_base_liste; |
struct_liste_chainee *l_ancienne_base_liste; |
struct_liste_chainee *l_nouvelle_base_liste; |
struct_liste_chainee *l_nouvelle_base_liste; |
|
|
Line 1474 depilement_pile_operationnelle(struct_rp
|
Line 1479 depilement_pile_operationnelle(struct_rp
|
if ((*s_rpl_arguments).l_base_pile == NULL) |
if ((*s_rpl_arguments).l_base_pile == NULL) |
{ |
{ |
*s_objet = NULL; |
*s_objet = NULL; |
return(NULL); |
return NULL ; |
} |
} |
else |
else |
{ |
{ |
Line 1487 depilement_pile_operationnelle(struct_rp
|
Line 1492 depilement_pile_operationnelle(struct_rp
|
|
|
(*s_rpl_arguments).l_base_pile = l_nouvelle_base_liste; |
(*s_rpl_arguments).l_base_pile = l_nouvelle_base_liste; |
|
|
return(l_nouvelle_base_liste); |
return l_nouvelle_base_liste ; |
} |
} |
|
# pragma GCC diagnostic pop |
} |
} |
|
|
|
|