version 1.18, 2011/09/21 10:35:51
|
version 1.40, 2014/04/25 07:37:34
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.4 |
RPL/2 (R) version 4.1.18 |
Copyright (C) 1989-2011 Dr. BERTRAND Joël |
Copyright (C) 1989-2014 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 76 liberation_contexte_cas(struct_processus
|
Line 76 liberation_contexte_cas(struct_processus
|
return; |
return; |
} |
} |
|
|
|
#ifdef RPLCAS |
static unsigned char * |
static unsigned char * |
conversion_rpl_vers_cas(struct_processus *s_etat_processus, |
conversion_rpl_vers_cas(struct_processus *s_etat_processus, |
struct_objet **s_objet) |
struct_objet **s_objet) |
Line 83 conversion_rpl_vers_cas(struct_processus
|
Line 84 conversion_rpl_vers_cas(struct_processus
|
logical1 drapeau; |
logical1 drapeau; |
|
|
struct_liste_chainee *l_element_courant; |
struct_liste_chainee *l_element_courant; |
struct_liste_chainee *l_element_precedent; |
|
|
|
struct_objet *s_objet_temporaire; |
struct_objet *s_objet_temporaire; |
|
|
Line 214 conversion_rpl_vers_cas(struct_processus
|
Line 214 conversion_rpl_vers_cas(struct_processus
|
} |
} |
} |
} |
|
|
l_element_precedent = l_element_courant; |
|
l_element_courant = l_element_courant->suivant; |
l_element_courant = l_element_courant->suivant; |
} |
} |
} |
} |
Line 268 conversion_cas_vers_rpl(struct_processus
|
Line 267 conversion_cas_vers_rpl(struct_processus
|
logical1 drapeau; |
logical1 drapeau; |
|
|
struct_liste_chainee *l_element_courant; |
struct_liste_chainee *l_element_courant; |
struct_liste_chainee *l_element_precedent; |
|
|
|
struct_objet *s_objet; |
struct_objet *s_objet; |
|
|
Line 341 conversion_cas_vers_rpl(struct_processus
|
Line 339 conversion_cas_vers_rpl(struct_processus
|
|
|
if ((s_objet->type == ALG) || (s_objet->type == RPN)) |
if ((s_objet->type == ALG) || (s_objet->type == RPN)) |
{ |
{ |
l_element_precedent = NULL; |
|
l_element_courant = reinterpret_cast<struct_liste_chainee *>( |
l_element_courant = reinterpret_cast<struct_liste_chainee *>( |
s_objet->objet); |
s_objet->objet); |
|
|
Line 387 conversion_cas_vers_rpl(struct_processus
|
Line 384 conversion_cas_vers_rpl(struct_processus
|
} |
} |
} |
} |
|
|
l_element_precedent = l_element_courant; |
|
l_element_courant = l_element_courant->suivant; |
l_element_courant = l_element_courant->suivant; |
} |
} |
} |
} |
Line 400 conversion_cas_vers_rpl(struct_processus
|
Line 396 conversion_cas_vers_rpl(struct_processus
|
|
|
return; |
return; |
} |
} |
|
#endif |
|
|
|
|
/* |
/* |
Line 572 interface_cas(struct_processus *s_etat_p
|
Line 569 interface_cas(struct_processus *s_etat_p
|
l_element_courant = reinterpret_cast<struct_liste_chainee *> |
l_element_courant = reinterpret_cast<struct_liste_chainee *> |
(s_objet_argument_1->objet); |
(s_objet_argument_1->objet); |
position = 1; |
position = 1; |
|
argument_1 = NULL; |
|
argument_3 = NULL; |
argument_4 = NULL; |
argument_4 = NULL; |
|
|
while(l_element_courant != NULL) |
while(l_element_courant != NULL) |