version 1.52, 2013/02/27 17:11:42
|
version 1.53, 2013/03/20 17:11:45
|
Line 59 instruction_fleche(struct_processus *s_e
|
Line 59 instruction_fleche(struct_processus *s_e
|
unsigned char *tampon; |
unsigned char *tampon; |
unsigned char test_instruction; |
unsigned char test_instruction; |
|
|
unsigned long i; |
integer8 i; |
unsigned long nombre_variables; |
integer8 nombre_variables; |
|
|
void (*fonction)(); |
void (*fonction)(); |
|
|
Line 838 instruction_fleche_list(struct_processus
|
Line 838 instruction_fleche_list(struct_processus
|
return; |
return; |
} |
} |
|
|
if ((unsigned long) nombre_elements >= |
if (nombre_elements >= (*s_etat_processus).hauteur_pile_operationnelle) |
(*s_etat_processus).hauteur_pile_operationnelle) |
|
{ |
{ |
(*s_etat_processus).erreur_execution = d_ex_manque_argument; |
(*s_etat_processus).erreur_execution = d_ex_manque_argument; |
return; |
return; |
Line 1844 instruction_fact(struct_processus *s_eta
|
Line 1843 instruction_fact(struct_processus *s_eta
|
for (i = 1; i <= (*((integer8 *) (*s_objet_argument).objet)); |
for (i = 1; i <= (*((integer8 *) (*s_objet_argument).objet)); |
i++) |
i++) |
{ |
{ |
produit *= i; |
produit *= (real8) i; |
} |
} |
|
|
if ((s_objet_resultat = allocation(s_etat_processus, REL)) |
if ((s_objet_resultat = allocation(s_etat_processus, REL)) |
Line 2168 instruction_floor(struct_processus *s_et
|
Line 2167 instruction_floor(struct_processus *s_et
|
return; |
return; |
} |
} |
|
|
(*((integer8 *) (*s_objet_resultat).objet)) = |
(*((integer8 *) (*s_objet_resultat).objet)) = (integer8) |
floor((*((real8 *) (*s_objet_argument).objet))); |
floor((*((real8 *) (*s_objet_argument).objet))); |
|
|
if (!((((*((integer8 *) (*s_objet_resultat).objet)) < |
if (!((((*((integer8 *) (*s_objet_resultat).objet)) < |
Line 2800 instruction_fix(struct_processus *s_etat
|
Line 2799 instruction_fix(struct_processus *s_etat
|
return; |
return; |
} |
} |
|
|
(*((logical8 *) (*s_objet).objet)) = |
(*((logical8 *) (*s_objet).objet)) = (logical8) |
(*((integer8 *) (*s_objet_argument).objet)); |
(*((integer8 *) (*s_objet_argument).objet)); |
|
|
i43 = test_cfsf(s_etat_processus, 43); |
i43 = test_cfsf(s_etat_processus, 43); |
Line 2838 instruction_fix(struct_processus *s_etat
|
Line 2837 instruction_fix(struct_processus *s_etat
|
{ |
{ |
if (valeur_binaire[i] == '0') |
if (valeur_binaire[i] == '0') |
{ |
{ |
cf(s_etat_processus, j++); |
cf(s_etat_processus, (unsigned char) j++); |
} |
} |
else |
else |
{ |
{ |
sf(s_etat_processus, j++); |
sf(s_etat_processus, (unsigned char) j++); |
} |
} |
} |
} |
|
|
for(; j <= 56; cf(s_etat_processus, j++)); |
for(; j <= 56; cf(s_etat_processus, (unsigned char) j++)); |
|
|
sf(s_etat_processus, 49); |
sf(s_etat_processus, 49); |
cf(s_etat_processus, 50); |
cf(s_etat_processus, 50); |