rpl/src/instructions_o1.c - diff

Return to instructions_o1.c CVS log

Up to [local] / rpl / src

version 1.57, 2012/07/03 12:49:55	version 1.59, 2012/08/22 10:47:16
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.9	RPL/2 (R) version 4.1.10
Copyright (C) 1989-2012 Dr. BERTRAND Joël	Copyright (C) 1989-2012 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.
Line 4735 instruction_open(struct_processus *s_eta	Line 4735 instruction_open(struct_processus *s_eta
if (strcmp(protocole_socket, "IPV4") == 0)	if (strcmp(protocole_socket, "IPV4") == 0)
{	{
protocole_socket[2] = d_code_fin_chaine;	protocole_socket[2] = d_code_fin_chaine;
	protocole_numerique = 0;
}	}
	else
if ((s_protocole = getprotobyname(protocole_socket)) == NULL)
{	{
liberation(s_etat_processus, s_objet_argument);	if ((s_protocole = getprotobyname(protocole_socket))
	== NULL)
	{
	liberation(s_etat_processus, s_objet_argument);

(*s_etat_processus).erreur_execution =	(*s_etat_processus).erreur_execution =
d_ex_erreur_parametre_fichier;	d_ex_erreur_parametre_fichier;
return;	return;
}	}

protocole_numerique = (*s_protocole).p_proto;	protocole_numerique = (*s_protocole).p_proto;
	}
}	}

if ((s_objet_resultat = allocation(s_etat_processus, SCK))	if ((s_objet_resultat = allocation(s_etat_processus, SCK))