version 1.35, 2011/06/24 20:31:43
|
version 1.44, 2012/01/05 10:19:06
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.0.prerelease.4 |
RPL/2 (R) version 4.1.5 |
Copyright (C) 1989-2011 Dr. BERTRAND Joël |
Copyright (C) 1989-2012 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 2868 recherche_type(struct_processus *s_etat_
|
Line 2868 recherche_type(struct_processus *s_etat_
|
|
|
(*(--ptr_ecriture)) = d_code_fin_chaine; |
(*(--ptr_ecriture)) = d_code_fin_chaine; |
|
|
|
if (validation_chaine((unsigned char *) element) == d_faux) |
|
{ |
|
(*s_etat_processus).erreur_execution = d_ex_syntaxe; |
|
(*s_etat_processus).traitement_interruptible = |
|
registre_interruption; |
|
|
|
free(element); |
|
return; |
|
} |
|
|
break; |
break; |
} |
} |
|
|
Line 3512 recherche_type(struct_processus *s_etat_
|
Line 3522 recherche_type(struct_processus *s_etat_
|
} |
} |
else |
else |
{ |
{ |
(*s_objet).type = INT; |
// Le format ressemble à un entier mais il peut y avoir |
|
// un dépassement de capacité lors de la conversion. |
|
// On convertit donc en entier et en réel. Si les |
|
// deux conversions donnent le même résultat, on |
|
// considère que la conversion en entier est bonne. Dans |
|
// le cas contraire, on garde la conversion en réel. |
|
|
element = (void *) ((integer8 *) malloc( |
integer8 conversion_entiere; |
sizeof(integer8))); |
real8 conversion_reelle; |
|
|
if (element == NULL) |
if (sscanf((*s_etat_processus).instruction_courante, "%lg", |
|
&conversion_reelle) != 1) |
{ |
{ |
(*s_etat_processus).erreur_systeme = |
(*s_etat_processus).erreur_execution = d_ex_syntaxe; |
d_es_allocation_memoire; |
|
(*s_etat_processus).traitement_interruptible = |
|
registre_interruption; |
|
return; |
|
} |
} |
|
|
nombre_elements_convertis = sscanf( |
if (sscanf((*s_etat_processus).instruction_courante, "%lld", |
(*s_etat_processus).instruction_courante, "%lld", |
&conversion_entiere) != 1) |
(integer8 *) element); |
|
|
|
if (nombre_elements_convertis != 1) |
|
{ |
{ |
(*s_etat_processus).erreur_execution = d_ex_syntaxe; |
(*s_etat_processus).erreur_execution = d_ex_syntaxe; |
} |
} |
|
|
|
if (abs(nextafter(conversion_reelle, conversion_entiere) |
|
- conversion_reelle) >= abs(conversion_reelle |
|
- conversion_entiere)) |
|
{ |
|
(*s_objet).type = INT; |
|
|
|
element = malloc(sizeof(integer8)); |
|
|
|
if (element == NULL) |
|
{ |
|
(*s_etat_processus).erreur_systeme = |
|
d_es_allocation_memoire; |
|
(*s_etat_processus).traitement_interruptible = |
|
registre_interruption; |
|
return; |
|
} |
|
|
|
(*((integer8 *) element)) = conversion_entiere; |
|
} |
|
else |
|
{ |
|
(*s_objet).type = REL; |
|
|
|
element = malloc(sizeof(real8)); |
|
|
|
if (element == NULL) |
|
{ |
|
(*s_etat_processus).erreur_systeme = |
|
d_es_allocation_memoire; |
|
(*s_etat_processus).traitement_interruptible = |
|
registre_interruption; |
|
return; |
|
} |
|
|
|
(*((real8 *) element)) = conversion_reelle; |
|
} |
} |
} |
} |
} |
|
|