version 1.56, 2013/03/17 22:26:43
|
version 1.61, 2013/04/01 15:29:33
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.13 |
RPL/2 (R) version 4.1.14 |
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 54 compilation(struct_processus *s_etat_pro
|
Line 54 compilation(struct_processus *s_etat_pro
|
unsigned char ouverture_definition; |
unsigned char ouverture_definition; |
unsigned char position_debut_nom_definition_valide; |
unsigned char position_debut_nom_definition_valide; |
|
|
unsigned long *adresse; |
integer8 *adresse; |
unsigned long i; |
integer8 i; |
unsigned long niveau_definition; |
integer8 niveau_definition; |
unsigned long niveau_definition_registre; |
integer8 niveau_definition_registre; |
unsigned long position_courante; |
integer8 position_courante; |
unsigned long position_debut_nom_definition; |
integer8 position_debut_nom_definition; |
unsigned long position_fin_nom_definition; |
integer8 position_fin_nom_definition; |
unsigned long validation; |
integer8 validation; |
unsigned long validation_registre; |
integer8 validation_registre; |
|
|
(*s_etat_processus).erreur_compilation = d_ec; |
(*s_etat_processus).erreur_compilation = d_ec; |
(*s_etat_processus).erreur_systeme = d_es; |
(*s_etat_processus).erreur_systeme = d_es; |
Line 257 compilation(struct_processus *s_etat_pro
|
Line 257 compilation(struct_processus *s_etat_pro
|
s_variable = (struct_variable *) |
s_variable = (struct_variable *) |
malloc(sizeof(struct_variable)); |
malloc(sizeof(struct_variable)); |
adresse = (*s_objet).objet; |
adresse = (*s_objet).objet; |
definition = (unsigned char *) malloc( |
definition = (unsigned char *) malloc(((size_t) |
(position_fin_nom_definition - |
(position_fin_nom_definition - |
position_debut_nom_definition + 2) * |
position_debut_nom_definition + 2)) * |
sizeof(unsigned char)); |
sizeof(unsigned char)); |
|
|
if ((s_objet == NULL) || (s_variable == NULL) || |
if ((s_objet == NULL) || (s_variable == NULL) || |
Line 980 readline_effacement(int count, int key)
|
Line 980 readline_effacement(int count, int key)
|
*/ |
*/ |
|
|
void |
void |
swap(void *variable_1, void *variable_2, unsigned long taille) |
swap(void *variable_1, void *variable_2, integer8 taille) |
{ |
{ |
register unsigned char *t_var_1; |
register unsigned char *t_var_1; |
register unsigned char *t_var_2; |
register unsigned char *t_var_2; |
register unsigned char variable_temporaire; |
register unsigned char variable_temporaire; |
|
|
register unsigned long i; |
register integer8 i; |
|
|
t_var_1 = (unsigned char *) variable_1; |
t_var_1 = (unsigned char *) variable_1; |
t_var_2 = (unsigned char *) variable_2; |
t_var_2 = (unsigned char *) variable_2; |
Line 1019 recherche_instruction_suivante(struct_pr
|
Line 1019 recherche_instruction_suivante(struct_pr
|
{ |
{ |
logical1 drapeau_fin_objet; |
logical1 drapeau_fin_objet; |
logical1 erreur; |
logical1 erreur; |
logical1 erreur_analyse; |
|
logical1 erreur_format; |
int erreur_analyse; |
|
int erreur_format; |
|
|
unsigned char base_binaire; |
unsigned char base_binaire; |
unsigned char *pointeur_caractere_courant; |
unsigned char *pointeur_caractere_courant; |
Line 1748 recherche_instruction_suivante(struct_pr
|
Line 1749 recherche_instruction_suivante(struct_pr
|
pointeur_fin_instruction = pointeur_caractere_courant; |
pointeur_fin_instruction = pointeur_caractere_courant; |
|
|
(*s_etat_processus).instruction_courante = (unsigned char *) |
(*s_etat_processus).instruction_courante = (unsigned char *) |
malloc(((pointeur_fin_instruction - pointeur_debut_instruction) |
malloc((((size_t) (pointeur_fin_instruction |
+ 1) * sizeof(unsigned char)); |
- pointeur_debut_instruction)) + 1) * sizeof(unsigned char)); |
|
|
if ((*s_etat_processus).instruction_courante == NULL) |
if ((*s_etat_processus).instruction_courante == NULL) |
{ |
{ |
Line 1806 conversion_majuscule(unsigned char *chai
|
Line 1807 conversion_majuscule(unsigned char *chai
|
register unsigned char *caractere_courant_converti; |
register unsigned char *caractere_courant_converti; |
register unsigned char *chaine_convertie; |
register unsigned char *chaine_convertie; |
|
|
unsigned long longueur_chaine_plus_terminaison; |
integer8 longueur_chaine_plus_terminaison; |
|
|
longueur_chaine_plus_terminaison = 0; |
longueur_chaine_plus_terminaison = 0; |
caractere_courant = chaine; |
caractere_courant = chaine; |
Line 1819 conversion_majuscule(unsigned char *chai
|
Line 1820 conversion_majuscule(unsigned char *chai
|
|
|
caractere_courant = chaine; |
caractere_courant = chaine; |
caractere_courant_converti = chaine_convertie = (unsigned char *) malloc( |
caractere_courant_converti = chaine_convertie = (unsigned char *) malloc( |
(longueur_chaine_plus_terminaison + 1) * sizeof(unsigned char)); |
((size_t) (longueur_chaine_plus_terminaison + 1)) |
|
* sizeof(unsigned char)); |
|
|
if (chaine_convertie != NULL) |
if (chaine_convertie != NULL) |
{ |
{ |
Line 1847 conversion_majuscule(unsigned char *chai
|
Line 1849 conversion_majuscule(unsigned char *chai
|
|
|
void |
void |
conversion_majuscule_limitee(unsigned char *chaine_entree, |
conversion_majuscule_limitee(unsigned char *chaine_entree, |
unsigned char *chaine_sortie, unsigned long longueur) |
unsigned char *chaine_sortie, integer8 longueur) |
{ |
{ |
unsigned long i; |
integer8 i; |
|
|
for(i = 0; i < longueur; i++) |
for(i = 0; i < longueur; i++) |
{ |
{ |
Line 1893 initialisation_drapeaux(struct_processus
|
Line 1895 initialisation_drapeaux(struct_processus
|
{ |
{ |
unsigned long i; |
unsigned long i; |
|
|
for(i = 0; i < 31; cf(s_etat_processus, i++)); |
for(i = 0; i < 31; cf(s_etat_processus, (unsigned char) i++)); |
|
|
if ((*s_etat_processus).lancement_interactif == d_vrai) |
if ((*s_etat_processus).lancement_interactif == d_vrai) |
{ |
{ |