rpl/src/instructions_o1.c - diff

Return to instructions_o1.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_o1.c between versions 1.86 and 1.98

version 1.86, 2015/11/26 11:44:38	version 1.98, 2019/02/03 14:40:46
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.24	RPL/2 (R) version 4.1.31
Copyright (C) 1989-2015 Dr. BERTRAND Joël	Copyright (C) 1989-2019 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.

Line 114 instruction_over(struct_processus *s_eta	Line 114 instruction_over(struct_processus *s_eta
" %s, %s, %s, %s, %s,\n"	" %s, %s, %s, %s, %s,\n"
" %s, %s, %s, %s, %s,\n"	" %s, %s, %s, %s, %s,\n"
" %s, %s, %s, %s,\n"	" %s, %s, %s, %s,\n"
" %s, %s\n",	" %s, %s, %s\n",
d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,	d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,
d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK,	d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK,
d_SQL, d_SLB, d_PRC, d_MTX);	d_SQL, d_SLB, d_PRC, d_MTX, d_REC);
printf(" 1: %s, %s, %s, %s, %s, %s,\n"	printf(" 1: %s, %s, %s, %s, %s, %s,\n"
" %s, %s, %s, %s, %s,\n"	" %s, %s, %s, %s, %s,\n"
" %s, %s, %s, %s, %s,\n"	" %s, %s, %s, %s, %s,\n"
" %s, %s, %s, %s,\n"	" %s, %s, %s, %s,\n"
" %s, %s\n",	" %s, %s, %s\n",
d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,	d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,
d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK,	d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK,
d_SQL, d_SLB, d_PRC, d_MTX);	d_SQL, d_SLB, d_PRC, d_MTX, d_REC);
printf("-> 3: %s, %s, %s, %s, %s, %s,\n"	printf("-> 3: %s, %s, %s, %s, %s, %s,\n"
" %s, %s, %s, %s, %s,\n"	" %s, %s, %s, %s, %s,\n"
" %s, %s, %s, %s, %s,\n"	" %s, %s, %s, %s, %s,\n"
" %s, %s, %s, %s,\n"	" %s, %s, %s, %s,\n"
" %s, %s\n",	" %s, %s, %s\n",
d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,	d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,
d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK,	d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK,
d_SQL, d_SLB, d_PRC, d_MTX);	d_SQL, d_SLB, d_PRC, d_MTX, d_REC);
printf(" ...\n");	printf(" ...\n");
printf(" 1: %s, %s, %s, %s, %s, %s,\n"	printf(" 1: %s, %s, %s, %s, %s, %s,\n"
" %s, %s, %s, %s, %s,\n"	" %s, %s, %s, %s, %s,\n"
" %s, %s, %s, %s, %s,\n"	" %s, %s, %s, %s, %s,\n"
" %s, %s, %s, %s,\n"	" %s, %s, %s, %s,\n"
" %s, %s\n",	" %s, %s, %s\n",
d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,	d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,
d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK,	d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK,
d_SQL, d_SLB, d_PRC, d_MTX);	d_SQL, d_SLB, d_PRC, d_MTX, d_REC);

return;	return;
}	}
Line 2361 instruction_open(struct_processus *s_eta	Line 2361 instruction_open(struct_processus *s_eta
{	{
type_arguments = 'S';	type_arguments = 'S';
}	}
	else if (type_arguments == 'F')
{	{
liberation(s_etat_processus,	liberation(s_etat_processus,
s_objet_argument);	s_objet_argument);
Line 5054 instruction_open(struct_processus *s_eta	Line 5055 instruction_open(struct_processus *s_eta
.objet)).adresse);	.objet)).adresse);

if (((((struct_socket ) (*s_objet_resultat)	if (((((struct_socket ) (*s_objet_resultat)
.objet)).adresse = malloc(22 *	.objet)).adresse = malloc(23 *
sizeof(unsigned char))) == NULL)	sizeof(unsigned char))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 5063 instruction_open(struct_processus *s_eta	Line 5064 instruction_open(struct_processus *s_eta
}	}

sprintf((((struct_socket ) (*s_objet_resultat)	sprintf((((struct_socket ) (*s_objet_resultat)
.objet)).adresse, "%d.%d.%d.%d",	.objet)).adresse, "%d.%d.%d.%d(%u)",
(ntohl((((struct sockaddr_in )	(ntohl((((struct sockaddr_in )
(*resolution_courante).ai_addr)).sin_addr	(*resolution_courante).ai_addr)).sin_addr
.s_addr) >> 24) & 0xFF,	.s_addr) >> 24) & 0xFF,
Line 5075 instruction_open(struct_processus *s_eta	Line 5076 instruction_open(struct_processus *s_eta
.s_addr) >> 8) & 0xFF,	.s_addr) >> 8) & 0xFF,
ntohl((((struct sockaddr_in )	ntohl((((struct sockaddr_in )
(*resolution_courante).ai_addr)).sin_addr	(*resolution_courante).ai_addr)).sin_addr
.s_addr) & 0xFF);	.s_addr) & 0xFF,
	(unsigned int) port);
}	}
else	else
{ // Accès en IPv6	{ // Accès en IPv6
Line 5165 instruction_open(struct_processus *s_eta	Line 5167 instruction_open(struct_processus *s_eta
free((((struct_socket ) (*s_objet_resultat)	free((((struct_socket ) (*s_objet_resultat)
.objet)).adresse);	.objet)).adresse);

	/*
	* Longueur de la chaîne :
	* Adresse IPv6 : 16 octets soit 128 bits.
	* => 32 chiffres en hexadécimal
	* Par groupe de 4, 8 groupes
	* => 7 ":"
	* Port : (%u)
	* => 7
	* ==> 32 + 7 + 7 + 1 = 47
	*/

if (((((struct_socket ) (*s_objet_resultat)	if (((((struct_socket ) (*s_objet_resultat)
.objet)).adresse = malloc(55 *	.objet)).adresse = malloc(47 *
sizeof(unsigned char))) == NULL)	sizeof(unsigned char))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 5174 instruction_open(struct_processus *s_eta	Line 5187 instruction_open(struct_processus *s_eta
return;	return;
}	}

for(i = 0; i < 16; i++)	sprintf((((struct_socket ) (*s_objet_resultat)
{	.objet)).adresse,
sprintf((((struct_socket ) (*s_objet_resultat)	"%02X%02X:%02X%02X:%02X%02X:%02X%02X:"
.objet)).adresse,	"%02X%02X:%02X%02X:%02X%02X:%02X%02X(%u)",
(i == 0) ? "%s%X" : "%s:%X",	(((struct sockaddr_in6 )
(((struct_socket ) (*s_objet_resultat)	(*resolution_courante).ai_addr)).sin6_addr
.objet)).adresse,	.s6_addr[0],
(((struct sockaddr_in6 )	(((struct sockaddr_in6 )
(*resolution_courante).ai_addr))	(*resolution_courante).ai_addr)).sin6_addr
.sin6_addr.s6_addr[i]);	.s6_addr[1],
}	(((struct sockaddr_in6 )
	(*resolution_courante).ai_addr)).sin6_addr
	.s6_addr[2],
	(((struct sockaddr_in6 )
	(*resolution_courante).ai_addr)).sin6_addr
	.s6_addr[3],
	(((struct sockaddr_in6 )
	(*resolution_courante).ai_addr)).sin6_addr
	.s6_addr[4],
	(((struct sockaddr_in6 )
	(*resolution_courante).ai_addr)).sin6_addr
	.s6_addr[5],
	(((struct sockaddr_in6 )
	(*resolution_courante).ai_addr)).sin6_addr
	.s6_addr[6],
	(((struct sockaddr_in6 )
	(*resolution_courante).ai_addr)).sin6_addr
	.s6_addr[7],
	(((struct sockaddr_in6 )
	(*resolution_courante).ai_addr)).sin6_addr
	.s6_addr[8],
	(((struct sockaddr_in6 )
	(*resolution_courante).ai_addr)).sin6_addr
	.s6_addr[9],
	(((struct sockaddr_in6 )
	(*resolution_courante).ai_addr)).sin6_addr
	.s6_addr[10],
	(((struct sockaddr_in6 )
	(*resolution_courante).ai_addr)).sin6_addr
	.s6_addr[11],
	(((struct sockaddr_in6 )
	(*resolution_courante).ai_addr)).sin6_addr
	.s6_addr[12],
	(((struct sockaddr_in6 )
	(*resolution_courante).ai_addr)).sin6_addr
	.s6_addr[13],
	(((struct sockaddr_in6 )
	(*resolution_courante).ai_addr)).sin6_addr
	.s6_addr[14],
	(((struct sockaddr_in6 )
	(*resolution_courante).ai_addr)).sin6_addr
	.s6_addr[15],
	(unsigned int) port);
# else	# else
if ((*s_etat_processus).langue == 'F')	if ((*s_etat_processus).langue == 'F')
{	{
Line 5209 instruction_open(struct_processus *s_eta	Line 5264 instruction_open(struct_processus *s_eta
}	}

freeaddrinfo(resolution);	freeaddrinfo(resolution);

sprintf((((struct_socket ) (*s_objet_resultat)
.objet)).adresse, "%s(%u)",
(((struct_socket ) (*s_objet_resultat)
.objet)).adresse, (unsigned int) port);
}	}
else	else
{ // Hôte défini par une adresse	{ // Hôte défini par une adresse
Line 5223 instruction_open(struct_processus *s_eta	Line 5273 instruction_open(struct_processus *s_eta
.objet)).adresse);	.objet)).adresse);

if (((((struct_socket ) (*s_objet_resultat)	if (((((struct_socket ) (*s_objet_resultat)
.objet)).adresse = malloc(22 *	.objet)).adresse = malloc(23 *
sizeof(unsigned char))) == NULL)	sizeof(unsigned char))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 5231 instruction_open(struct_processus *s_eta	Line 5281 instruction_open(struct_processus *s_eta
return;	return;
}	}

(((struct_socket ) (*s_objet_resultat).objet))
.adresse[0] = d_code_fin_chaine;

for(i = 0; i < 4; i++)
{
sprintf((((struct_socket ) (*s_objet_resultat)
.objet)).adresse,
(i == 0) ? "%s%d" : "%s.%d",
(((struct_socket ) (*s_objet_resultat)
.objet)).adresse, (int) adresse[i]);
}

sprintf((((struct_socket ) (*s_objet_resultat)	sprintf((((struct_socket ) (*s_objet_resultat)
.objet)).adresse, "%s(%u)",	.objet)).adresse, "%d.%d.%d.%d(%u)",
(((struct_socket ) (*s_objet_resultat)	(int) adresse[0], (int) adresse[1],
.objet)).adresse, (unsigned int) port);	(int) adresse[2], (int) adresse[3],
	(unsigned int) port);

if (((((struct_socket )	if (((((struct_socket )
(*s_objet_resultat).objet))	(*s_objet_resultat).objet))
Line 5307 instruction_open(struct_processus *s_eta	Line 5346 instruction_open(struct_processus *s_eta
.objet)).adresse);	.objet)).adresse);

if (((((struct_socket ) (*s_objet_resultat)	if (((((struct_socket ) (*s_objet_resultat)
.objet)).adresse = malloc(55 *	.objet)).adresse = malloc(47 *
sizeof(unsigned char))) == NULL)	sizeof(unsigned char))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 5315 instruction_open(struct_processus *s_eta	Line 5354 instruction_open(struct_processus *s_eta
return;	return;
}	}

(((struct_socket ) (*s_objet_resultat).objet))
.adresse[0] = d_code_fin_chaine;

for(i = 0; i < 16; i++)
{
sprintf((((struct_socket ) (*s_objet_resultat)
.objet)).adresse,
(i == 0) ? "%s%X" : "%s:%X",
(((struct_socket ) (*s_objet_resultat)
.objet)).adresse, (unsigned int)
adresse[i]);
}

sprintf((((struct_socket ) (*s_objet_resultat)	sprintf((((struct_socket ) (*s_objet_resultat)
.objet)).adresse, "%s(%u)",	.objet)).adresse,
(((struct_socket ) (*s_objet_resultat)	"%02X%02X:%02X%02X:%02X%02X:%02X%02X:"
.objet)).adresse, (unsigned int) port);	"%02X%02X:%02X%02X:%02X%02X:%02X%02X(%u)",
	(unsigned int) adresse[0],
	(unsigned int) adresse[1],
	(unsigned int) adresse[2],
	(unsigned int) adresse[3],
	(unsigned int) adresse[4],
	(unsigned int) adresse[5],
	(unsigned int) adresse[6],
	(unsigned int) adresse[7],
	(unsigned int) adresse[8],
	(unsigned int) adresse[9],
	(unsigned int) adresse[10],
	(unsigned int) adresse[11],
	(unsigned int) adresse[12],
	(unsigned int) adresse[13],
	(unsigned int) adresse[14],
	(unsigned int) adresse[15],
	(unsigned int) port);

if (((((struct_socket )	if (((((struct_socket )
(*s_objet_resultat).objet))	(*s_objet_resultat).objet))
Line 5636 instruction_open(struct_processus *s_eta	Line 5679 instruction_open(struct_processus *s_eta
.objet)).adresse);	.objet)).adresse);

if (((((struct_socket ) (*s_objet_resultat)	if (((((struct_socket ) (*s_objet_resultat)
.objet)).adresse = malloc(22 *	.objet)).adresse = malloc(23 *
sizeof(unsigned char))) == NULL)	sizeof(unsigned char))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 5645 instruction_open(struct_processus *s_eta	Line 5688 instruction_open(struct_processus *s_eta
}	}

sprintf((((struct_socket ) (*s_objet_resultat)	sprintf((((struct_socket ) (*s_objet_resultat)
.objet)).adresse, "%d.%d.%d.%d",	.objet)).adresse, "%d.%d.%d.%d(%u)",
(ntohl((((struct sockaddr_in )	(ntohl((((struct sockaddr_in )
(*resolution_courante).ai_addr)).sin_addr	(*resolution_courante).ai_addr)).sin_addr
.s_addr) >> 24) & 0xFF,	.s_addr) >> 24) & 0xFF,
Line 5657 instruction_open(struct_processus *s_eta	Line 5700 instruction_open(struct_processus *s_eta
.s_addr) >> 8) & 0xFF,	.s_addr) >> 8) & 0xFF,
ntohl((((struct sockaddr_in )	ntohl((((struct sockaddr_in )
(*resolution_courante).ai_addr)).sin_addr	(*resolution_courante).ai_addr)).sin_addr
.s_addr) & 0xFF);	.s_addr) & 0xFF,
	(unsigned int) port);
}	}
else	else
{ // Accès en IPv6	{ // Accès en IPv6
Line 5745 instruction_open(struct_processus *s_eta	Line 5789 instruction_open(struct_processus *s_eta
.objet)).adresse);	.objet)).adresse);

if (((((struct_socket ) (*s_objet_resultat)	if (((((struct_socket ) (*s_objet_resultat)
.objet)).adresse = malloc(55 *	.objet)).adresse = malloc(47 *
sizeof(unsigned char))) == NULL)	sizeof(unsigned char))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 5753 instruction_open(struct_processus *s_eta	Line 5797 instruction_open(struct_processus *s_eta
return;	return;
}	}

for(i = 0; i < 16; i++)	sprintf((((struct_socket ) (*s_objet_resultat)
{	.objet)).adresse,
sprintf((((struct_socket ) (*s_objet_resultat)	"%02X%02X:%02X%02X:%02X%02X:%02X%02X:"
.objet)).adresse,	"%02X%02X:%02X%02X:%02X%02X:%02X%02X(%u)",
(i == 0) ? "%s%X" : "%s:%X",	(((struct sockaddr_in6 )
(((struct_socket ) (*s_objet_resultat)	(*resolution_courante).ai_addr)).sin6_addr
.objet)).adresse,	.s6_addr[0],
(((struct sockaddr_in6 )	(((struct sockaddr_in6 )
(*resolution_courante).ai_addr))	(*resolution_courante).ai_addr)).sin6_addr
.sin6_addr.s6_addr[i]);	.s6_addr[1],
}	(((struct sockaddr_in6 )
	(*resolution_courante).ai_addr)).sin6_addr
	.s6_addr[2],
	(((struct sockaddr_in6 )
	(*resolution_courante).ai_addr)).sin6_addr
	.s6_addr[3],
	(((struct sockaddr_in6 )
	(*resolution_courante).ai_addr)).sin6_addr
	.s6_addr[4],
	(((struct sockaddr_in6 )
	(*resolution_courante).ai_addr)).sin6_addr
	.s6_addr[5],
	(((struct sockaddr_in6 )
	(*resolution_courante).ai_addr)).sin6_addr
	.s6_addr[6],
	(((struct sockaddr_in6 )
	(*resolution_courante).ai_addr)).sin6_addr
	.s6_addr[7],
	(((struct sockaddr_in6 )
	(*resolution_courante).ai_addr)).sin6_addr
	.s6_addr[8],
	(((struct sockaddr_in6 )
	(*resolution_courante).ai_addr)).sin6_addr
	.s6_addr[9],
	(((struct sockaddr_in6 )
	(*resolution_courante).ai_addr)).sin6_addr
	.s6_addr[10],
	(((struct sockaddr_in6 )
	(*resolution_courante).ai_addr)).sin6_addr
	.s6_addr[11],
	(((struct sockaddr_in6 )
	(*resolution_courante).ai_addr)).sin6_addr
	.s6_addr[12],
	(((struct sockaddr_in6 )
	(*resolution_courante).ai_addr)).sin6_addr
	.s6_addr[13],
	(((struct sockaddr_in6 )
	(*resolution_courante).ai_addr)).sin6_addr
	.s6_addr[14],
	(((struct sockaddr_in6 )
	(*resolution_courante).ai_addr)).sin6_addr
	.s6_addr[15],
	(unsigned int) port);
# else	# else
if ((*s_etat_processus).langue == 'F')	if ((*s_etat_processus).langue == 'F')
{	{
Line 5788 instruction_open(struct_processus *s_eta	Line 5874 instruction_open(struct_processus *s_eta
}	}

freeaddrinfo(resolution);	freeaddrinfo(resolution);

sprintf((((struct_socket ) (*s_objet_resultat)
.objet)).adresse, "%s(%u)",
(((struct_socket ) (*s_objet_resultat)
.objet)).adresse, (unsigned int) port);
}	}
else	else
{ // Hôte défini par une adresse	{ // Hôte défini par une adresse
Line 5804 instruction_open(struct_processus *s_eta	Line 5885 instruction_open(struct_processus *s_eta
.objet)).adresse);	.objet)).adresse);

if (((((struct_socket ) (*s_objet_resultat)	if (((((struct_socket ) (*s_objet_resultat)
.objet)).adresse = malloc(22 *	.objet)).adresse = malloc(23 *
sizeof(unsigned char))) == NULL)	sizeof(unsigned char))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 5812 instruction_open(struct_processus *s_eta	Line 5893 instruction_open(struct_processus *s_eta
return;	return;
}	}

(((struct_socket ) (*s_objet_resultat).objet))
.adresse[0] = d_code_fin_chaine;

for(i = 0; i < 4; i++)
{
sprintf((((struct_socket )
(*s_objet_resultat).objet)).adresse,
(i == 0) ? "%s%d" : "%s.%d",
(((struct_socket )
(*s_objet_resultat)
.objet)).adresse, (int) adresse[i]);
}

sprintf((((struct_socket ) (*s_objet_resultat)	sprintf((((struct_socket ) (*s_objet_resultat)
.objet)).adresse, "%s(%u)",	.objet)).adresse, "%d.%d.%d.%d(%u)",
(((struct_socket ) (*s_objet_resultat)	(int) adresse[0], (int) adresse[1],
.objet)).adresse, (unsigned int) port);	(int) adresse[2], (int) adresse[3],
	(unsigned int) port);
}	}
else	else
{	{
Line 5907 instruction_open(struct_processus *s_eta	Line 5976 instruction_open(struct_processus *s_eta
.objet)).adresse);	.objet)).adresse);

if (((((struct_socket ) (*s_objet_resultat)	if (((((struct_socket ) (*s_objet_resultat)
.objet)).adresse = malloc(55 *	.objet)).adresse = malloc(47 *
sizeof(unsigned char))) == NULL)	sizeof(unsigned char))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 5915 instruction_open(struct_processus *s_eta	Line 5984 instruction_open(struct_processus *s_eta
return;	return;
}	}

(((struct_socket ) (*s_objet_resultat).objet))
.adresse[0] = d_code_fin_chaine;

for(i = 0; i < 16; i++)
{
sprintf((((struct_socket )
(*s_objet_resultat).objet)).adresse,
(i == 0) ? "%s%X" : "%s:%X",
(((struct_socket )
(*s_objet_resultat)
.objet)).adresse, (unsigned int)
adresse[i]);
}

sprintf((((struct_socket ) (*s_objet_resultat)	sprintf((((struct_socket ) (*s_objet_resultat)
.objet)).adresse, "%s(%u)",	.objet)).adresse,
(((struct_socket ) (*s_objet_resultat)	"%02X%02X:%02X%02X:%02X%02X:%02X%02X:"
.objet)).adresse, (unsigned int) port);	"%02X%02X:%02X%02X:%02X%02X:%02X%02X"
	"(%u)",
	(unsigned int) adresse[0],
	(unsigned int) adresse[1],
	(unsigned int) adresse[2],
	(unsigned int) adresse[3],
	(unsigned int) adresse[4],
	(unsigned int) adresse[5],
	(unsigned int) adresse[6],
	(unsigned int) adresse[7],
	(unsigned int) adresse[8],
	(unsigned int) adresse[9],
	(unsigned int) adresse[10],
	(unsigned int) adresse[11],
	(unsigned int) adresse[12],
	(unsigned int) adresse[13],
	(unsigned int) adresse[14],
	(unsigned int) adresse[15],
	(unsigned int) port);
}	}
else	else
{	{

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.86
changed lines
	Added in v.1.98