rpl/src/instructions_t2.c - diff

Return to instructions_t2.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_t2.c between versions 1.1 and 1.5

version 1.1, 2010/01/26 15:22:45	version 1.5, 2010/03/06 18:29:07
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.9	RPL/2 (R) version 4.0.12
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 1819 instruction_target(struct_processus *s_e	Line 1819 instruction_target(struct_processus *s_e
struct_objet *s_objet_argument_1;	struct_objet *s_objet_argument_1;
struct_objet *s_objet_argument_2;	struct_objet *s_objet_argument_2;

	unsigned char *nom;

unsigned long i;	unsigned long i;
unsigned long nombre_elements;	unsigned long nombre_elements;

Line 1914 instruction_target(struct_processus *s_e	Line 1916 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)
{	{

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.1
changed lines
	Added in v.1.5