version 1.8, 2010/03/08 16:44:10
|
version 1.17, 2010/06/28 14:30:33
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.12 |
RPL/2 (R) version 4.0.17 |
Copyright (C) 1989-2010 Dr. BERTRAND Joël |
Copyright (C) 1989-2010 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
Line 1301 instruction_read(struct_processus *s_eta
|
Line 1301 instruction_read(struct_processus *s_eta
|
(*s_etat_processus).erreur_systeme = d_es_erreur_fichier; |
(*s_etat_processus).erreur_systeme = d_es_erreur_fichier; |
return; |
return; |
} |
} |
|
|
|
|
switch(sqlite3_step(ppStmt)) |
switch(sqlite3_step(ppStmt)) |
{ |
{ |
Line 1801 instruction_read(struct_processus *s_eta
|
Line 1800 instruction_read(struct_processus *s_eta
|
} |
} |
|
|
l_element_courant = NULL; |
l_element_courant = NULL; |
|
l_element_inclus = NULL; |
|
|
for(element--; element > 0; element--) |
for(element--; element > 0; element--) |
{ |
{ |
Line 1913 instruction_read(struct_processus *s_eta
|
Line 1913 instruction_read(struct_processus *s_eta
|
return; |
return; |
} |
} |
|
|
|
# ifndef SEMAPHORES_NOMMES |
if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0) |
if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_processus; |
(*s_etat_processus).erreur_systeme = d_es_processus; |
return; |
return; |
} |
} |
|
# else |
|
if (sem_post((*s_etat_processus).semaphore_fork) != 0) |
|
{ |
|
(*s_etat_processus).erreur_systeme = d_es_processus; |
|
return; |
|
} |
|
# endif |
|
|
for(;;) |
for(;;) |
{ |
{ |
Line 1956 instruction_read(struct_processus *s_eta
|
Line 1964 instruction_read(struct_processus *s_eta
|
free(tampon_lecture); |
free(tampon_lecture); |
liberation(s_etat_processus, s_objet_argument_1); |
liberation(s_etat_processus, s_objet_argument_1); |
|
|
|
# ifndef SEMAPHORES_NOMMES |
while(sem_wait(&((*s_etat_processus) |
while(sem_wait(&((*s_etat_processus) |
.semaphore_fork)) == -1) |
.semaphore_fork)) == -1) |
|
# else |
|
while(sem_wait((*s_etat_processus) |
|
.semaphore_fork) == -1) |
|
# endif |
{ |
{ |
if (errno != EINTR) |
if (errno != EINTR) |
{ |
{ |
Line 1985 instruction_read(struct_processus *s_eta
|
Line 1998 instruction_read(struct_processus *s_eta
|
} |
} |
} |
} |
|
|
while(sem_wait(&((*s_etat_processus).semaphore_fork)) |
# ifndef SEMAPHORES_NOMMES |
== -1) |
while(sem_wait(&((*s_etat_processus).semaphore_fork)) == -1) |
|
# else |
|
while(sem_wait((*s_etat_processus).semaphore_fork) == -1) |
|
# endif |
{ |
{ |
if (errno != EINTR) |
if (errno != EINTR) |
{ |
{ |