rpl/src/instructions_u1.c - diff

Return to instructions_u1.c CVS log

Up to [local] / rpl / src

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)