version 1.33, 2011/11/18 20:24:40
|
version 1.34, 2011/11/19 17:53:46
|
Line 1294 instruction_ucase(struct_processus *s_et
|
Line 1294 instruction_ucase(struct_processus *s_et
|
struct_objet *s_objet_argument; |
struct_objet *s_objet_argument; |
struct_objet *s_objet_resultat; |
struct_objet *s_objet_resultat; |
|
|
unsigned char *ptr; |
|
unsigned char registre; |
|
|
|
(*s_etat_processus).erreur_execution = d_ex; |
(*s_etat_processus).erreur_execution = d_ex; |
|
|
if ((*s_etat_processus).affichage_arguments == 'Y') |
if ((*s_etat_processus).affichage_arguments == 'Y') |
Line 1346 instruction_ucase(struct_processus *s_et
|
Line 1343 instruction_ucase(struct_processus *s_et
|
} |
} |
|
|
liberation(s_etat_processus, s_objet_argument); |
liberation(s_etat_processus, s_objet_argument); |
ptr = (unsigned char *) (*s_objet_resultat).objet; |
conversion_chaine(s_etat_processus, (unsigned char *) |
|
(*s_objet_resultat).objet, 'M'); |
while((*ptr) != d_code_fin_chaine) |
|
{ |
|
registre = toupper((*ptr)); |
|
|
|
if (tolower(registre) == (*ptr)) |
|
{ |
|
(*ptr) = registre; |
|
} |
|
|
|
ptr++; |
|
} |
|
|
|
if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile), |
if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile), |
s_objet_resultat) == d_erreur) |
s_objet_resultat) == d_erreur) |