rpl/src/instructions_s8.c - diff

Return to instructions_s8.c CVS log

Up to [local] / rpl / src

version 1.42, 2012/01/05 10:19:04	version 1.51, 2012/12/18 13:19:38
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.5	RPL/2 (R) version 4.1.12
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 375 instruction_send(struct_processus *s_eta	Line 375 instruction_send(struct_processus *s_eta
}	}
}	}

tid = -3;	tid = (pthread_t) -3;

attente.tv_sec = 0;	attente.tv_sec = 0;
attente.tv_nsec = GRANULARITE_us * 1000;	attente.tv_nsec = GRANULARITE_us * 1000;
Line 627 instruction_send(struct_processus *s_eta	Line 627 instruction_send(struct_processus *s_eta
}	}
else	else
{	{
tid = -1;	tid = (pthread_t) -1;

attente.tv_sec = 0;	attente.tv_sec = 0;
attente.tv_nsec = GRANULARITE_us * 1000;	attente.tv_nsec = GRANULARITE_us * 1000;
Line 885 instruction_sqlquery(struct_processus *s	Line 885 instruction_sqlquery(struct_processus *s
return;	return;
}	}

	if ((*s_etat_processus).erreur_execution ==
	d_ex_instruction_indisponible)
	{
	liberation(s_etat_processus, s_objet_1);
	liberation(s_etat_processus, s_objet_2);
	liberation(s_etat_processus, s_copie_1);

	return;
	}

liberation(s_etat_processus, s_copie_1);	liberation(s_etat_processus, s_copie_1);
}	}
else	else