version 1.51, 2013/03/20 17:11:43
|
version 1.56, 2013/12/03 09:36:10
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.13 |
RPL/2 (R) version 4.1.17 |
Copyright (C) 1989-2013 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 41 void *
|
Line 41 void *
|
chargement_bibliotheque(struct_processus *s_etat_processus, |
chargement_bibliotheque(struct_processus *s_etat_processus, |
unsigned char *bibliotheque) |
unsigned char *bibliotheque) |
{ |
{ |
char **(*fonction)(integer8 *, const char *); |
char **(*fonction)(struct_rpl_arguments *, |
|
integer8 *, const char *); |
char *message; |
char *message; |
|
|
integer8 i; |
integer8 i; |
Line 56 chargement_bibliotheque(struct_processus
|
Line 57 chargement_bibliotheque(struct_processus
|
unsigned char *tampon; |
unsigned char *tampon; |
|
|
void *descripteur_bibliotheque; |
void *descripteur_bibliotheque; |
void (*onloading)(struct_rpl_arguments *); |
int (*onloading)(struct_rpl_arguments *); |
|
|
/* |
/* |
* On vérifie que la bibliothèque n'est pas déjà chargée. |
* On vérifie que la bibliothèque n'est pas déjà chargée. |
Line 335 chargement_bibliotheque(struct_processus
|
Line 336 chargement_bibliotheque(struct_processus
|
* Ajout des symboles externes |
* Ajout des symboles externes |
*/ |
*/ |
|
|
if ((tableau = (unsigned char **) (*fonction)((&nombre_symboles), |
if ((tableau = (unsigned char **) (*fonction)(&rpl_arguments, |
d_version_rpl)) == NULL) |
(&nombre_symboles), d_version_rpl)) == NULL) |
{ |
{ |
/* |
/* |
* Nombre symboles : |
* Nombre symboles : |
Line 489 retrait_bibliotheque(struct_processus *s
|
Line 490 retrait_bibliotheque(struct_processus *s
|
integer8 j; |
integer8 j; |
integer8 nombre_symboles_residuels; |
integer8 nombre_symboles_residuels; |
|
|
void (*onclosing)(struct_rpl_arguments *); |
int (*onclosing)(struct_rpl_arguments *); |
|
|
l_element_courant = (*s_etat_processus).s_bibliotheques; |
l_element_courant = (*s_etat_processus).s_bibliotheques; |
presence_bibliotheque = d_faux; |
presence_bibliotheque = d_faux; |
Line 870 execution_fonction_de_bibliotheque(struc
|
Line 871 execution_fonction_de_bibliotheque(struc
|
integer8 nombre_iterations_maximal; |
integer8 nombre_iterations_maximal; |
integer8 ordre_iteration; |
integer8 ordre_iteration; |
|
|
void (*fonction)(struct_rpl_arguments *); |
int (*fonction)(struct_rpl_arguments *); |
|
|
/* |
/* |
* Recherche dichotomique de la définition externe |
* Recherche dichotomique de la définition externe |