version 1.5, 2010/03/04 17:42:46
|
version 1.22, 2011/06/20 17:54:20
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.12 |
RPL/2 (R) version 4.1.0.prerelease.1 |
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 20
|
Line 20
|
*/ |
*/ |
|
|
|
|
#include "rpl.conv.h" |
#include "rpl-conv.h" |
|
|
|
|
/* |
/* |
Line 1077 instruction_uchol(struct_processus *s_et
|
Line 1077 instruction_uchol(struct_processus *s_et
|
void |
void |
instruction_unlock(struct_processus *s_etat_processus) |
instruction_unlock(struct_processus *s_etat_processus) |
{ |
{ |
file *descripteur; |
|
|
|
struct flock lock; |
struct flock lock; |
|
|
|
struct_descripteur_fichier *descripteur; |
|
|
struct_objet *s_objet; |
struct_objet *s_objet; |
|
|
(*s_etat_processus).erreur_execution = d_ex; |
(*s_etat_processus).erreur_execution = d_ex; |
Line 1137 instruction_unlock(struct_processus *s_e
|
Line 1137 instruction_unlock(struct_processus *s_e
|
return; |
return; |
} |
} |
|
|
if (fcntl(fileno(descripteur), F_SETLK, &lock) == -1) |
if (fcntl(fileno((*descripteur).descripteur_c), F_SETLK, &lock) |
|
== -1) |
{ |
{ |
liberation(s_etat_processus, s_objet); |
liberation(s_etat_processus, s_objet); |
|
|
Line 1228 instruction_unprotect(struct_processus *
|
Line 1229 instruction_unprotect(struct_processus *
|
return; |
return; |
} |
} |
|
|
((*s_etat_processus).s_liste_variables[(*s_etat_processus) |
(*(*s_etat_processus).pointeur_variable_courante) |
.position_variable_courante]).variable_verrouillee = d_faux; |
.variable_verrouillee = d_faux; |
} |
} |
else if ((*s_objet).type == LST) |
else if ((*s_objet).type == LST) |
{ |
{ |
Line 1256 instruction_unprotect(struct_processus *
|
Line 1257 instruction_unprotect(struct_processus *
|
return; |
return; |
} |
} |
|
|
((*s_etat_processus).s_liste_variables[(*s_etat_processus) |
(*(*s_etat_processus).pointeur_variable_courante) |
.position_variable_courante]).variable_verrouillee = d_faux; |
.variable_verrouillee = d_faux; |
|
|
l_element_courant = (*l_element_courant).suivant; |
l_element_courant = (*l_element_courant).suivant; |
} |
} |