rpl/src/instructions_l5.c - diff

Return to instructions_l5.c CVS log

Up to [local] / rpl / src

version 1.30, 2011/11/17 22:31:16	version 1.31, 2011/11/19 17:53:46
Line 1609 instruction_lcase(struct_processus *s_et	Line 1609 instruction_lcase(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 1662 instruction_lcase(struct_processus *s_et	Line 1659 instruction_lcase(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 = tolower((*ptr));

if (toupper(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)