version 1.3, 2010/02/10 10:14:25
|
version 1.10, 2010/05/24 10:58:35
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.11 |
RPL/2 (R) version 4.0.16 |
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) |
{ |
{ |