version 1.87, 2013/05/23 12:45:08
|
version 1.106, 2017/06/28 09:20:29
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.14 |
RPL/2 (R) version 4.1.27 |
Copyright (C) 1989-2013 Dr. BERTRAND Joël |
Copyright (C) 1989-2017 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 1159 analyse(struct_processus *s_etat_process
|
Line 1162 analyse(struct_processus *s_etat_process
|
{ |
{ |
if ((*s_etat_processus).test_instruction == 'N') |
if ((*s_etat_processus).test_instruction == 'N') |
{ |
{ |
if (pthread_mutex_lock(&(*s_etat_processus).mutex) != 0) |
if (pthread_mutex_lock(&(*s_etat_processus).mutex_interruptions) |
|
!= 0) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_processus; |
(*s_etat_processus).erreur_systeme = d_es_processus; |
} |
} |
Line 1170 analyse(struct_processus *s_etat_process
|
Line 1174 analyse(struct_processus *s_etat_process
|
affectation_interruptions_logicielles(s_etat_processus); |
affectation_interruptions_logicielles(s_etat_processus); |
} |
} |
|
|
pthread_mutex_unlock(&(*s_etat_processus).mutex); |
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) && |