rpl/src/fusible.c - diff

Return to fusible.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/fusible.c between versions 1.13 and 1.28

version 1.13, 2010/08/06 15:32:58	version 1.28, 2011/06/27 09:04:55
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.18	RPL/2 (R) version 4.1.0
Copyright (C) 1989-2010 Dr. BERTRAND Joël	Copyright (C) 1989-2011 Dr. BERTRAND Joël

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

Line 40	Line 40
void *	void *
fusible(void *argument)	fusible(void *argument)
{	{
	# ifndef OS2

real8 temps_cpu_precedent;	real8 temps_cpu_precedent;
real8 temps_cpu_courant;	real8 temps_cpu_courant;

Line 85 fusible(void *argument)	Line 87 fusible(void *argument)
temporisation.tv_sec = 0;	temporisation.tv_sec = 0;
temporisation.tv_nsec = 100000000; // un dixième de seconde	temporisation.tv_nsec = 100000000; // un dixième de seconde

# ifndef OS2
pthread_setcancelstate(PTHREAD_CANCEL_ENABLE, NULL);	pthread_setcancelstate(PTHREAD_CANCEL_ENABLE, NULL);
# endif

getrusage(RUSAGE_SELF, &s_rusage);	getrusage(RUSAGE_SELF, &s_rusage);
temps_cpu_courant = s_rusage.ru_utime.tv_sec +	temps_cpu_courant = s_rusage.ru_utime.tv_sec +
Line 97 fusible(void *argument)	Line 97 fusible(void *argument)
{	{
pthread_testcancel();	pthread_testcancel();
nanosleep(&temporisation, NULL);	nanosleep(&temporisation, NULL);

getrusage(RUSAGE_SELF, &s_rusage);	getrusage(RUSAGE_SELF, &s_rusage);

temps_cpu_precedent = temps_cpu_courant;	temps_cpu_precedent = temps_cpu_courant;
Line 134 fusible(void *argument)	Line 133 fusible(void *argument)
fflush(stdout);	fflush(stdout);
}	}

	# else

	struct_processus *s_etat_processus;

	s_etat_processus = argument;

	if ((*s_etat_processus).langue == 'F')
	{
	printf("+++Attention : Support indisponible sous OS/2\n");
	}
	else
	{
	printf("+++Warning : Function unavailable\n");
	}
	# endif

pthread_exit(NULL);	pthread_exit(NULL);
}	}

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.13
changed lines
	Added in v.1.28