version 1.47, 2012/12/19 09:58:27
|
version 1.50, 2013/03/21 11:30:30
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.12 |
RPL/2 (R) version 4.1.13 |
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 42 instruction_var(struct_processus *s_etat
|
Line 42 instruction_var(struct_processus *s_etat
|
struct_objet *s_objet_resultat; |
struct_objet *s_objet_resultat; |
struct_objet *s_objet_temporaire; |
struct_objet *s_objet_temporaire; |
|
|
unsigned long nombre_colonnes; |
integer8 nombre_colonnes; |
|
|
(*s_etat_processus).erreur_execution = d_ex; |
(*s_etat_processus).erreur_execution = d_ex; |
|
|
Line 969 instruction_version(struct_processus *s_
|
Line 969 instruction_version(struct_processus *s_
|
void |
void |
instruction_vars(struct_processus *s_etat_processus) |
instruction_vars(struct_processus *s_etat_processus) |
{ |
{ |
int i; |
integer8 i; |
int nb_variables; |
integer8 nb_variables; |
|
|
logical1 variable_partagee; |
logical1 variable_partagee; |
|
|
Line 1025 instruction_vars(struct_processus *s_eta
|
Line 1025 instruction_vars(struct_processus *s_eta
|
|
|
nb_variables = nombre_variables(s_etat_processus); |
nb_variables = nombre_variables(s_etat_processus); |
|
|
if ((tableau = malloc(nb_variables * sizeof(struct_tableau_variables))) |
if ((tableau = malloc(((size_t) nb_variables) * |
== NULL) |
sizeof(struct_tableau_variables))) == NULL) |
{ |
{ |
liberation_mutexes_arbre_variables_partagees(s_etat_processus, |
liberation_mutexes_arbre_variables_partagees(s_etat_processus, |
(*(*s_etat_processus).s_arbre_variables_partagees)); |
(*(*s_etat_processus).s_arbre_variables_partagees)); |
Line 1477 instruction_visit(struct_processus *s_et
|
Line 1477 instruction_visit(struct_processus *s_et
|
|
|
struct_objet *s_objet; |
struct_objet *s_objet; |
|
|
unsigned long profondeur_initiale; |
integer8 profondeur_initiale; |
|
|
(*s_etat_processus).erreur_execution = d_ex; |
(*s_etat_processus).erreur_execution = d_ex; |
|
|