rpl/src/analyse.c - diff

Return to analyse.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/analyse.c between versions 1.86 and 1.110

version 1.86, 2013/05/22 09:05:20	version 1.110, 2018/05/30 09:27:30
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.14	RPL/2 (R) version 4.1.29
Copyright (C) 1989-2013 Dr. BERTRAND Joël	Copyright (C) 1989-2018 Dr. BERTRAND Joël

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

Line 323 initialisation_instructions(struct_proce	Line 323 initialisation_instructions(struct_proce
INSTRUCTION("EGV", instruction_egv);	INSTRUCTION("EGV", instruction_egv);
INSTRUCTION("END", instruction_end);	INSTRUCTION("END", instruction_end);
INSTRUCTION("ENG", instruction_eng);	INSTRUCTION("ENG", instruction_eng);
	INSTRUCTION("EQV", instruction_eqv);
INSTRUCTION("EXP", instruction_exp);	INSTRUCTION("EXP", instruction_exp);
INSTRUCTION("FC?", instruction_fc_test);	INSTRUCTION("FC?", instruction_fc_test);
INSTRUCTION("FFT", instruction_fft);	INSTRUCTION("FFT", instruction_fft);
Line 513 initialisation_instructions(struct_proce	Line 514 initialisation_instructions(struct_proce
INSTRUCTION("RECV", instruction_recv);	INSTRUCTION("RECV", instruction_recv);
INSTRUCTION("REGV", instruction_regv);	INSTRUCTION("REGV", instruction_regv);
INSTRUCTION("REPL", instruction_repl);	INSTRUCTION("REPL", instruction_repl);
	INSTRUCTION("RGDL", instruction_rgdl);
	INSTRUCTION("RGDR", instruction_rgdr);
INSTRUCTION("RNRM", instruction_rnrm);	INSTRUCTION("RNRM", instruction_rnrm);
INSTRUCTION("ROLL", instruction_roll);	INSTRUCTION("ROLL", instruction_roll);
//INSTRUCTION("ROOT")	//INSTRUCTION("ROOT")
Line 822 initialisation_instructions(struct_proce	Line 825 initialisation_instructions(struct_proce
INSTRUCTION("INQUIRE", instruction_inquire);	INSTRUCTION("INQUIRE", instruction_inquire);
INSTRUCTION("MEMLOCK", instruction_memlock);	INSTRUCTION("MEMLOCK", instruction_memlock);
INSTRUCTION("MTXLOCK", instruction_mtxlock);	INSTRUCTION("MTXLOCK", instruction_mtxlock);
	INSTRUCTION("NBRCPUS", instruction_nbrcpus);
INSTRUCTION("PERSIST", instruction_persist);	INSTRUCTION("PERSIST", instruction_persist);
INSTRUCTION("PLOTTER", instruction_plotter);	INSTRUCTION("PLOTTER", instruction_plotter);
INSTRUCTION("PRIVATE", instruction_private);	INSTRUCTION("PRIVATE", instruction_private);
Line 1159 analyse(struct_processus *s_etat_process	Line 1163 analyse(struct_processus *s_etat_process
{	{
if ((*s_etat_processus).test_instruction == 'N')	if ((*s_etat_processus).test_instruction == 'N')
{	{
if ((*s_etat_processus).nombre_interruptions_non_affectees != 0)	if (pthread_mutex_lock(&(*s_etat_processus).mutex_interruptions)
	!= 0)
{	{
affectation_interruptions_logicielles(s_etat_processus);	(*s_etat_processus).erreur_systeme = d_es_processus;
	}
	else
	{
	if ((*s_etat_processus).nombre_interruptions_non_affectees != 0)
	{
	affectation_interruptions_logicielles(s_etat_processus);
	}

	if (pthread_mutex_unlock(&(*s_etat_processus)
	.mutex_interruptions) != 0)
	{
	(*s_etat_processus).erreur_systeme = d_es_processus;
	}
}	}

if (((*s_etat_processus).nombre_interruptions_en_queue != 0) &&	if (((*s_etat_processus).nombre_interruptions_en_queue != 0) &&

CVSweb interface <joel.bertrand@systella.fr>

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