version 1.78, 2011/04/11 12:10:12
|
version 1.90, 2011/06/17 08:47:43
|
Line 922 pid_t debug_fork();
|
Line 922 pid_t debug_fork();
|
# define d_ex_clef_inexistante __erreur(80) |
# define d_ex_clef_inexistante __erreur(80) |
# define d_ex_nom_implicite __erreur(81) |
# define d_ex_nom_implicite __erreur(81) |
# define d_ex_version_bibliotheque __erreur(82) |
# define d_ex_version_bibliotheque __erreur(82) |
|
# define d_ex_creation_variable_globale __erreur(83) |
#endif |
#endif |
|
|
|
|
Line 1670 typedef struct rpl_arguments
|
Line 1671 typedef struct rpl_arguments
|
void *s_etat_processus; |
void *s_etat_processus; |
} struct_rpl_arguments; |
} struct_rpl_arguments; |
|
|
|
/* |
|
-------------------------------------------------------------------------------- |
|
Structure d'arbre des instructions intrinsèques |
|
-------------------------------------------------------------------------------- |
|
*/ |
|
|
|
#ifndef RPLARGS |
|
typedef struct instruction |
|
{ |
|
struct instruction **noeuds; |
|
void (*feuille)(struct processus *); |
|
} struct_instruction; |
|
#endif |
|
|
|
/* |
|
-------------------------------------------------------------------------------- |
|
Structure d'arbre des variables variable globales et locales |
|
-------------------------------------------------------------------------------- |
|
*/ |
|
|
|
#ifndef RPLARGS |
|
typedef struct arbre_variables |
|
{ |
|
unsigned int noeuds_utilises; |
|
signed int indice_tableau_pere; |
|
struct arbre_variables *noeud_pere; |
|
struct arbre_variables **noeuds; |
|
struct liste_variables *feuille; |
|
} struct_arbre_variables; |
|
|
|
typedef struct liste_variables |
|
{ |
|
union |
|
{ |
|
// Utilisation dans la gestion des variables |
|
struct_variable *variable; |
|
// Utilisation dans la pile système (variables par niveau) |
|
struct_liste_chainee *liste; |
|
}; |
|
|
|
struct arbre_variables *noeud_pere; |
|
struct arbre_variables *noeud; |
|
struct liste_variables *suivant; |
|
struct liste_variables *precedent; |
|
} struct_liste_variables; |
|
|
|
#endif |
|
|
/* |
/* |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
Line 1716 typedef struct processus
|
Line 1764 typedef struct processus
|
|
|
int *pointeurs_caracteres; |
int *pointeurs_caracteres; |
int nombre_caracteres; |
int nombre_caracteres; |
struct instruction *arbre_instructions; |
struct_instruction *arbre_instructions; |
|
|
/* Requetes */ |
/* Requetes */ |
|
|
Line 1780 typedef struct processus
|
Line 1828 typedef struct processus
|
|
|
/* Variables */ |
/* Variables */ |
|
|
struct_variable *s_liste_variables; |
// La liste des variables par niveau est doublement chaînée. |
unsigned long nombre_variables; |
// À tout moment, elle pointe sur le niveau le plus haut existant et |
unsigned long nombre_variables_allouees; |
// l_liste_variable_par_niveau->precedent renvoie la liste des |
|
// définitions. l_liste_variable_par_niveau->precedent->precedent pointe |
|
// sur la liste des variables globales. |
|
// |
|
// À l'initialisation : |
|
// l_liste_variables_par_niveau->suivant == l_liste_variables_par_niveau |
|
// l_liste_variables_par_niveau->precedent == l_liste_variables_par_niveau |
|
|
|
struct_arbre_variables *s_arbre_variables; |
|
struct_liste_variables *l_liste_variables_par_niveau; |
|
|
|
struct_variable *pointeur_variable_courante; |
|
struct_liste_variables *pointeur_feuille_courante; |
|
|
|
int *pointeurs_caracteres_variables; |
|
int nombre_caracteres_variables; |
|
|
struct_variable_statique *s_liste_variables_statiques; |
struct_variable_statique *s_liste_variables_statiques; |
unsigned long nombre_variables_statiques; |
unsigned long nombre_variables_statiques; |
Line 1793 typedef struct processus
|
Line 1856 typedef struct processus
|
|
|
unsigned long niveau_courant; |
unsigned long niveau_courant; |
unsigned long niveau_initial; |
unsigned long niveau_initial; |
unsigned long position_variable_courante; |
|
unsigned long position_variable_statique_courante; |
unsigned long position_variable_statique_courante; |
|
|
logical1 creation_variables_statiques; |
logical1 creation_variables_statiques; |
Line 2121 typedef struct processus
|
Line 2183 typedef struct processus
|
unsigned long taille_pile_objets; |
unsigned long taille_pile_objets; |
struct_objet *pile_objets; |
struct_objet *pile_objets; |
|
|
# ifndef DEBUG_MALLOC |
# define TAILLE_CACHE 16384 |
# define TAILLE_CACHE 16384 |
|
# else |
|
# define TAILLE_CACHE 4 |
|
# endif |
|
|
|
unsigned long *objets_adr[TAILLE_CACHE]; |
unsigned long *objets_adr[TAILLE_CACHE]; |
int pointeur_adr; |
int pointeur_adr; |
Line 2164 typedef struct processus
|
Line 2222 typedef struct processus
|
|
|
/* |
/* |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
Structures instruction intrinsèque |
|
-------------------------------------------------------------------------------- |
|
*/ |
|
|
|
#ifndef RPLARGS |
|
typedef struct instruction |
|
{ |
|
struct instruction **noeud; |
|
void (*feuille)(struct_processus *); |
|
} struct_instruction; |
|
#endif |
|
|
|
|
|
/* |
|
-------------------------------------------------------------------------------- |
|
Structure fonction |
Structure fonction |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
*/ |
*/ |
Line 2803 void initialisation_drapeaux(struct_proc
|
Line 2846 void initialisation_drapeaux(struct_proc
|
void initialisation_generateur_aleatoire(struct_processus *s_etat_processus, |
void initialisation_generateur_aleatoire(struct_processus *s_etat_processus, |
logical1 initialisation_automatique, unsigned long int racine); |
logical1 initialisation_automatique, unsigned long int racine); |
void initialisation_instructions(struct_processus *s_etat_processus); |
void initialisation_instructions(struct_processus *s_etat_processus); |
|
void initialisation_variables(struct_processus *s_etat_processus); |
#endif |
#endif |
|
|
void initialisation_objet(struct_objet *s_objet); |
void initialisation_objet(struct_objet *s_objet); |
Line 2840 void liberation_maillon(struct_processus
|
Line 2884 void liberation_maillon(struct_processus
|
void liberation_allocateur(struct_processus *s_etat_processus); |
void liberation_allocateur(struct_processus *s_etat_processus); |
void liberation_arbre_instructions(struct_processus *s_etat_processus, |
void liberation_arbre_instructions(struct_processus *s_etat_processus, |
struct_instruction *arbre); |
struct_instruction *arbre); |
|
void liberation_arbre_variables(struct_processus *s_etat_processus, |
|
struct_arbre_variables *arbre, logical1 definitions); |
void liberation_generateur_aleatoire(struct_processus *s_etat_processus); |
void liberation_generateur_aleatoire(struct_processus *s_etat_processus); |
void liberation_threads(struct_processus *s_etat_processus); |
void liberation_threads(struct_processus *s_etat_processus); |
void liberation_profil(struct_processus *s_etat_processus); |
void liberation_profil(struct_processus *s_etat_processus); |
Line 3050 logical1 retrait_variable_statique(struc
|
Line 3096 logical1 retrait_variable_statique(struc
|
unsigned char *nom_variable, union_position_variable position); |
unsigned char *nom_variable, union_position_variable position); |
logical1 sequenceur(struct_processus *s_etat_processus); |
logical1 sequenceur(struct_processus *s_etat_processus); |
logical1 sequenceur_optimise(struct_processus *s_etat_processus); |
logical1 sequenceur_optimise(struct_processus *s_etat_processus); |
|
|
|
struct_arbre_variables *copie_arbre_variables( |
|
struct_processus *s_etat_processus); |
#endif |
#endif |
|
|
/* |
/* |
Line 3068 logical1 ecriture_pipe(struct_processus
|
Line 3117 logical1 ecriture_pipe(struct_processus
|
struct_objet *s_objet); |
struct_objet *s_objet); |
logical1 recherche_variable(struct_processus *s_etat_processus, |
logical1 recherche_variable(struct_processus *s_etat_processus, |
unsigned char *nom_variable); |
unsigned char *nom_variable); |
|
logical1 recherche_variable_globale(struct_processus *s_etat_processus, |
|
unsigned char *nom_variable); |
logical1 recherche_variable_partagee(struct_processus *s_etat_processus, |
logical1 recherche_variable_partagee(struct_processus *s_etat_processus, |
unsigned char *nom_variable, union_position_variable position, |
unsigned char *nom_variable, union_position_variable position, |
unsigned char origine); |
unsigned char origine); |