version 1.36, 2012/04/03 13:38:27
|
version 1.45, 2013/02/26 19:56:13
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.7 |
RPL/2 (R) version 4.1.12 |
Copyright (C) 1989-2012 Dr. BERTRAND Joël |
Copyright (C) 1989-2013 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 836 instruction_clrfuse(struct_processus *s_
|
Line 836 instruction_clrfuse(struct_processus *s_
|
================================================================================ |
================================================================================ |
*/ |
*/ |
|
|
static inline struct_objet * |
static struct_objet * |
creation_table(struct_liste_chainee *dimensions) |
creation_table(struct_processus *s_etat_processus, |
|
struct_liste_chainee *dimensions) |
{ |
{ |
struct_objet *s_table; |
struct_objet *s_table; |
|
|
Line 878 creation_table(struct_liste_chainee *dim
|
Line 879 creation_table(struct_liste_chainee *dim
|
.nombre_elements; i++) |
.nombre_elements; i++) |
{ |
{ |
if (((*((struct_tableau *) (*s_table).objet)).elements[i] = |
if (((*((struct_tableau *) (*s_table).objet)).elements[i] = |
creation_table(dimensions)) == NULL) |
creation_table(s_etat_processus, dimensions)) == NULL) |
{ |
{ |
return(NULL); |
return(NULL); |
} |
} |
Line 964 instruction_crtab(struct_processus *s_et
|
Line 965 instruction_crtab(struct_processus *s_et
|
l_element_courant = (*l_element_courant).suivant; |
l_element_courant = (*l_element_courant).suivant; |
} |
} |
|
|
if ((s_objet_resultat = |
if ((s_objet_resultat = creation_table(s_etat_processus, |
creation_table((*s_objet_argument).objet)) == NULL) |
(*s_objet_argument).objet)) == NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
return; |
return; |