rpl/src/gestion_processus.c - diff

Return to gestion_processus.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/gestion_processus.c between versions 1.62 and 1.65

version 1.62, 2013/03/20 17:11:44	version 1.65, 2013/04/01 15:29:34
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.13	RPL/2 (R) version 4.1.14
Copyright (C) 1989-2013 Dr. BERTRAND Joël	Copyright (C) 1989-2013 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.
Line 1991 ecriture_pipe(struct_processus *s_etat_p	Line 1991 ecriture_pipe(struct_processus *s_etat_p

while((longueur_ecriture = write_atomic(s_etat_processus, pipe,	while((longueur_ecriture = write_atomic(s_etat_processus, pipe,
&((((struct_vecteur ) (*s_objet).objet))	&((((struct_vecteur ) (*s_objet).objet))
.taille), sizeof(unsigned long))) != sizeof(unsigned long))	.taille), sizeof(integer8))) != sizeof(integer8))
{	{
if (longueur_ecriture == -1)	if (longueur_ecriture == -1)
{	{
Line 2044 ecriture_pipe(struct_processus *s_etat_p	Line 2044 ecriture_pipe(struct_processus *s_etat_p

while((longueur_ecriture = write_atomic(s_etat_processus, pipe,	while((longueur_ecriture = write_atomic(s_etat_processus, pipe,
&((((struct_vecteur ) (*s_objet).objet))	&((((struct_vecteur ) (*s_objet).objet))
.taille), sizeof(unsigned long))) != sizeof(unsigned long))	.taille), sizeof(integer8))) != sizeof(integer8))
{	{
if (longueur_ecriture == -1)	if (longueur_ecriture == -1)
{	{
Line 2097 ecriture_pipe(struct_processus *s_etat_p	Line 2097 ecriture_pipe(struct_processus *s_etat_p

while((longueur_ecriture = write_atomic(s_etat_processus, pipe,	while((longueur_ecriture = write_atomic(s_etat_processus, pipe,
&((((struct_vecteur ) (*s_objet).objet))	&((((struct_vecteur ) (*s_objet).objet))
.taille), sizeof(unsigned long))) != sizeof(unsigned long))	.taille), sizeof(integer8))) != sizeof(integer8))
{	{
if (longueur_ecriture == -1)	if (longueur_ecriture == -1)
{	{
Line 2150 ecriture_pipe(struct_processus *s_etat_p	Line 2150 ecriture_pipe(struct_processus *s_etat_p

while((longueur_ecriture = write_atomic(s_etat_processus, pipe,	while((longueur_ecriture = write_atomic(s_etat_processus, pipe,
&((((struct_matrice ) (*s_objet).objet)).nombre_lignes),	&((((struct_matrice ) (*s_objet).objet)).nombre_lignes),
sizeof(unsigned long))) != sizeof(unsigned long))	sizeof(integer8))) != sizeof(integer8))
{	{
if (longueur_ecriture == -1)	if (longueur_ecriture == -1)
{	{
Line 2166 ecriture_pipe(struct_processus *s_etat_p	Line 2166 ecriture_pipe(struct_processus *s_etat_p

while((longueur_ecriture = write_atomic(s_etat_processus, pipe,	while((longueur_ecriture = write_atomic(s_etat_processus, pipe,
&((((struct_matrice ) (*s_objet).objet)).nombre_colonnes),	&((((struct_matrice ) (*s_objet).objet)).nombre_colonnes),
sizeof(unsigned long))) != sizeof(unsigned long))	sizeof(integer8))) != sizeof(integer8))
{	{
if (longueur_ecriture == -1)	if (longueur_ecriture == -1)
{	{
Line 2225 ecriture_pipe(struct_processus *s_etat_p	Line 2225 ecriture_pipe(struct_processus *s_etat_p

while((longueur_ecriture = write_atomic(s_etat_processus, pipe,	while((longueur_ecriture = write_atomic(s_etat_processus, pipe,
&((((struct_matrice ) (*s_objet).objet)).nombre_lignes),	&((((struct_matrice ) (*s_objet).objet)).nombre_lignes),
sizeof(unsigned long))) != sizeof(unsigned long))	sizeof(integer8))) != sizeof(integer8))
{	{
if (longueur_ecriture == -1)	if (longueur_ecriture == -1)
{	{
Line 2241 ecriture_pipe(struct_processus *s_etat_p	Line 2241 ecriture_pipe(struct_processus *s_etat_p

while((longueur_ecriture = write_atomic(s_etat_processus, pipe,	while((longueur_ecriture = write_atomic(s_etat_processus, pipe,
&((((struct_matrice ) (*s_objet).objet)).nombre_colonnes),	&((((struct_matrice ) (*s_objet).objet)).nombre_colonnes),
sizeof(unsigned long))) != sizeof(unsigned long))	sizeof(integer8))) != sizeof(integer8))
{	{
if (longueur_ecriture == -1)	if (longueur_ecriture == -1)
{	{
Line 2300 ecriture_pipe(struct_processus *s_etat_p	Line 2300 ecriture_pipe(struct_processus *s_etat_p

while((longueur_ecriture = write_atomic(s_etat_processus, pipe,	while((longueur_ecriture = write_atomic(s_etat_processus, pipe,
&((((struct_matrice ) (*s_objet).objet)).nombre_lignes),	&((((struct_matrice ) (*s_objet).objet)).nombre_lignes),
sizeof(unsigned long))) != sizeof(unsigned long))	sizeof(integer8))) != sizeof(integer8))
{	{
if (longueur_ecriture == -1)	if (longueur_ecriture == -1)
{	{
Line 2316 ecriture_pipe(struct_processus *s_etat_p	Line 2316 ecriture_pipe(struct_processus *s_etat_p

while((longueur_ecriture = write_atomic(s_etat_processus, pipe,	while((longueur_ecriture = write_atomic(s_etat_processus, pipe,
&((((struct_matrice ) (*s_objet).objet)).nombre_colonnes),	&((((struct_matrice ) (*s_objet).objet)).nombre_colonnes),
sizeof(unsigned long))) != sizeof(unsigned long))	sizeof(integer8))) != sizeof(integer8))
{	{
if (longueur_ecriture == -1)	if (longueur_ecriture == -1)
{	{
Line 2510 ecriture_pipe(struct_processus *s_etat_p	Line 2510 ecriture_pipe(struct_processus *s_etat_p

while((longueur_ecriture = write_atomic(s_etat_processus, pipe,	while((longueur_ecriture = write_atomic(s_etat_processus, pipe,
&((((struct_fonction ) (*s_objet).objet)).nombre_arguments),	&((((struct_fonction ) (*s_objet).objet)).nombre_arguments),
sizeof(unsigned long))) != sizeof(unsigned long))	sizeof(integer8))) != sizeof(integer8))
{	{
if (longueur_ecriture == -1)	if (longueur_ecriture == -1)
{	{
Line 2652 ecriture_pipe(struct_processus *s_etat_p	Line 2652 ecriture_pipe(struct_processus *s_etat_p

while((longueur_ecriture = write_atomic(s_etat_processus, pipe,	while((longueur_ecriture = write_atomic(s_etat_processus, pipe,
&((((struct_tableau ) (*s_objet).objet)).nombre_elements),	&((((struct_tableau ) (*s_objet).objet)).nombre_elements),
sizeof(unsigned long))) != sizeof(unsigned long))	sizeof(integer8))) != sizeof(integer8))
{	{
if (longueur_ecriture == -1)	if (longueur_ecriture == -1)
{	{
Line 2796 lecture_pipe(struct_processus *s_etat_pr	Line 2796 lecture_pipe(struct_processus *s_etat_pr

while(read_atomic(s_etat_processus, pipe, &((((struct_vecteur )	while(read_atomic(s_etat_processus, pipe, &((((struct_vecteur )
(*s_objet).objet)).taille),	(*s_objet).objet)).taille),
sizeof(unsigned long)) != sizeof(unsigned long))	sizeof(integer8)) != sizeof(integer8))
{	{
nanosleep(&attente, NULL);	nanosleep(&attente, NULL);
INCR_GRANULARITE(attente.tv_nsec);	INCR_GRANULARITE(attente.tv_nsec);
Line 2840 lecture_pipe(struct_processus *s_etat_pr	Line 2840 lecture_pipe(struct_processus *s_etat_pr

while(read_atomic(s_etat_processus, pipe, &((((struct_vecteur )	while(read_atomic(s_etat_processus, pipe, &((((struct_vecteur )
(*s_objet).objet)).taille),	(*s_objet).objet)).taille),
sizeof(unsigned long)) != sizeof(unsigned long))	sizeof(integer8)) != sizeof(integer8))
{	{
nanosleep(&attente, NULL);	nanosleep(&attente, NULL);
INCR_GRANULARITE(attente.tv_nsec);	INCR_GRANULARITE(attente.tv_nsec);
Line 2884 lecture_pipe(struct_processus *s_etat_pr	Line 2884 lecture_pipe(struct_processus *s_etat_pr

while(read_atomic(s_etat_processus, pipe, &((((struct_vecteur )	while(read_atomic(s_etat_processus, pipe, &((((struct_vecteur )
(*s_objet).objet)).taille),	(*s_objet).objet)).taille),
sizeof(unsigned long)) != sizeof(unsigned long))	sizeof(integer8)) != sizeof(integer8))
{	{
nanosleep(&attente, NULL);	nanosleep(&attente, NULL);
INCR_GRANULARITE(attente.tv_nsec);	INCR_GRANULARITE(attente.tv_nsec);
Line 2928 lecture_pipe(struct_processus *s_etat_pr	Line 2928 lecture_pipe(struct_processus *s_etat_pr

while(read_atomic(s_etat_processus, pipe, &((((struct_matrice )	while(read_atomic(s_etat_processus, pipe, &((((struct_matrice )
(*s_objet).objet)).nombre_lignes),	(*s_objet).objet)).nombre_lignes),
sizeof(unsigned long)) != sizeof(unsigned long))	sizeof(integer8)) != sizeof(integer8))
{	{
nanosleep(&attente, NULL);	nanosleep(&attente, NULL);
INCR_GRANULARITE(attente.tv_nsec);	INCR_GRANULARITE(attente.tv_nsec);
Line 2939 lecture_pipe(struct_processus *s_etat_pr	Line 2939 lecture_pipe(struct_processus *s_etat_pr

while(read_atomic(s_etat_processus, pipe, &((((struct_matrice )	while(read_atomic(s_etat_processus, pipe, &((((struct_matrice )
(*s_objet).objet)).nombre_colonnes),	(*s_objet).objet)).nombre_colonnes),
sizeof(unsigned long)) != sizeof(unsigned long))	sizeof(integer8)) != sizeof(integer8))
{	{
nanosleep(&attente, NULL);	nanosleep(&attente, NULL);
INCR_GRANULARITE(attente.tv_nsec);	INCR_GRANULARITE(attente.tv_nsec);
Line 2996 lecture_pipe(struct_processus *s_etat_pr	Line 2996 lecture_pipe(struct_processus *s_etat_pr

while(read_atomic(s_etat_processus, pipe, &((((struct_matrice )	while(read_atomic(s_etat_processus, pipe, &((((struct_matrice )
(*s_objet).objet)).nombre_lignes),	(*s_objet).objet)).nombre_lignes),
sizeof(unsigned long)) != sizeof(unsigned long))	sizeof(integer8)) != sizeof(integer8))
{	{
nanosleep(&attente, NULL);	nanosleep(&attente, NULL);
INCR_GRANULARITE(attente.tv_nsec);	INCR_GRANULARITE(attente.tv_nsec);
Line 3007 lecture_pipe(struct_processus *s_etat_pr	Line 3007 lecture_pipe(struct_processus *s_etat_pr

while(read_atomic(s_etat_processus, pipe, &((((struct_matrice )	while(read_atomic(s_etat_processus, pipe, &((((struct_matrice )
(*s_objet).objet)).nombre_colonnes),	(*s_objet).objet)).nombre_colonnes),
sizeof(unsigned long)) != sizeof(unsigned long))	sizeof(integer8)) != sizeof(integer8))
{	{
nanosleep(&attente, NULL);	nanosleep(&attente, NULL);
INCR_GRANULARITE(attente.tv_nsec);	INCR_GRANULARITE(attente.tv_nsec);
Line 3064 lecture_pipe(struct_processus *s_etat_pr	Line 3064 lecture_pipe(struct_processus *s_etat_pr

while(read_atomic(s_etat_processus, pipe, &((((struct_matrice )	while(read_atomic(s_etat_processus, pipe, &((((struct_matrice )
(*s_objet).objet)).nombre_lignes),	(*s_objet).objet)).nombre_lignes),
sizeof(unsigned long)) != sizeof(unsigned long))	sizeof(integer8)) != sizeof(integer8))
{	{
nanosleep(&attente, NULL);	nanosleep(&attente, NULL);
INCR_GRANULARITE(attente.tv_nsec);	INCR_GRANULARITE(attente.tv_nsec);
Line 3075 lecture_pipe(struct_processus *s_etat_pr	Line 3075 lecture_pipe(struct_processus *s_etat_pr

while(read_atomic(s_etat_processus, pipe, &((((struct_matrice )	while(read_atomic(s_etat_processus, pipe, &((((struct_matrice )
(*s_objet).objet)).nombre_colonnes),	(*s_objet).objet)).nombre_colonnes),
sizeof(unsigned long)) != sizeof(unsigned long))	sizeof(integer8)) != sizeof(integer8))
{	{
nanosleep(&attente, NULL);	nanosleep(&attente, NULL);
INCR_GRANULARITE(attente.tv_nsec);	INCR_GRANULARITE(attente.tv_nsec);
Line 3222 lecture_pipe(struct_processus *s_etat_pr	Line 3222 lecture_pipe(struct_processus *s_etat_pr

while(read_atomic(s_etat_processus, pipe,	while(read_atomic(s_etat_processus, pipe,
&((((struct_fonction ) (*s_objet).objet))	&((((struct_fonction ) (*s_objet).objet))
.nombre_arguments), sizeof(unsigned long)) !=	.nombre_arguments), sizeof(integer8)) !=
sizeof(unsigned long))	sizeof(integer8))
{	{
nanosleep(&attente, NULL);	nanosleep(&attente, NULL);
INCR_GRANULARITE(attente.tv_nsec);	INCR_GRANULARITE(attente.tv_nsec);
Line 3343 lecture_pipe(struct_processus *s_etat_pr	Line 3343 lecture_pipe(struct_processus *s_etat_pr

while(read_atomic(s_etat_processus, pipe, &((((struct_tableau )	while(read_atomic(s_etat_processus, pipe, &((((struct_tableau )
(*s_objet).objet)).nombre_elements),	(*s_objet).objet)).nombre_elements),
sizeof(unsigned long)) != sizeof(unsigned long))	sizeof(integer8)) != sizeof(integer8))
{	{
nanosleep(&attente, NULL);	nanosleep(&attente, NULL);
INCR_GRANULARITE(attente.tv_nsec);	INCR_GRANULARITE(attente.tv_nsec);

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.62
changed lines
	Added in v.1.65