rpl/src/instructions_t2.c - diff

Return to instructions_t2.c CVS log

Up to [local] / rpl / src

version 1.1.1.1, 2010/01/26 15:22:45	version 1.11, 2010/06/24 10:10:45
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.9	RPL/2 (R) version 4.0.17
Copyright (C) 1989-2010 Dr. BERTRAND Joël	Copyright (C) 1989-2010 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.
Line 1914 instruction_target(struct_processus *s_e	Line 1914 instruction_target(struct_processus *s_e
.adresse_distante);	.adresse_distante);

if (((((struct_socket ) (*s_objet_argument_1).objet))	if (((((struct_socket ) (*s_objet_argument_1).objet))
.adresse_distante = malloc((strlen((unsigned char *)	.adresse_distante = transliteration(s_etat_processus,
(s_objet_argument_2).objet) + 1) sizeof(unsigned char)))	(unsigned char ) (s_objet_argument_2).objet,
== NULL)	d_locale, "UTF-8")) == NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	liberation(s_etat_processus, s_objet_argument_1);
	liberation(s_etat_processus, s_objet_argument_2);

return;	return;
}	}

strcpy((((struct_socket ) (*s_objet_argument_1).objet))
.adresse_distante, (unsigned char *)
(*s_objet_argument_2).objet);
}	}
else if ((*s_objet_argument_2).type == LST)	else if ((*s_objet_argument_2).type == LST)
{	{