version 1.66, 2013/03/23 18:00:09
|
version 1.70, 2013/04/18 15:44:39
|
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 19
|
Line 19
|
================================================================================ |
================================================================================ |
*/ |
*/ |
|
|
|
|
#define DEBUG_ERREURS |
#define DEBUG_ERREURS |
#include "rpl-conv.h" |
#include "rpl-conv.h" |
|
|
Line 1000 formateur_fichier(struct_processus *s_et
|
Line 1001 formateur_fichier(struct_processus *s_et
|
|
|
if (format_sortie == 'N') |
if (format_sortie == 'N') |
{ |
{ |
sprintf(tampon, "%llX", (*((logical8 *) |
sprintf(tampon, "%llX", (unsigned long long) (*((logical8 *) |
((*s_objet).objet)))); |
((*s_objet).objet)))); |
strcpy(base, "h"); |
strcpy(base, "h"); |
} |
} |
Line 1010 formateur_fichier(struct_processus *s_et
|
Line 1011 formateur_fichier(struct_processus *s_et
|
{ |
{ |
case 2: |
case 2: |
{ |
{ |
sprintf(tampon, "%llX", (*((logical8 *) |
sprintf(tampon, "%llX", (unsigned long long) |
((*s_objet).objet)))); |
(*((logical8 *) ((*s_objet).objet)))); |
|
|
chaine = (unsigned char *) malloc((strlen(tampon) + 1) |
chaine = (unsigned char *) malloc((strlen(tampon) + 1) |
* sizeof(unsigned char)); |
* sizeof(unsigned char)); |
Line 1120 formateur_fichier(struct_processus *s_et
|
Line 1121 formateur_fichier(struct_processus *s_et
|
|
|
case 8: |
case 8: |
{ |
{ |
sprintf(tampon, "%llo", (*((logical8 *) |
sprintf(tampon, "%llo", (*((unsigned long long *) |
((*s_objet).objet)))); |
((*s_objet).objet)))); |
strcpy(base, "o"); |
strcpy(base, "o"); |
break; |
break; |
Line 1128 formateur_fichier(struct_processus *s_et
|
Line 1129 formateur_fichier(struct_processus *s_et
|
|
|
case 10: |
case 10: |
{ |
{ |
sprintf(tampon, "%llu", (*((logical8 *) |
sprintf(tampon, "%llu", (*((unsigned long long *) |
((*s_objet).objet)))); |
((*s_objet).objet)))); |
strcpy(base, "d"); |
strcpy(base, "d"); |
break; |
break; |
Line 1136 formateur_fichier(struct_processus *s_et
|
Line 1137 formateur_fichier(struct_processus *s_et
|
|
|
case 16: |
case 16: |
{ |
{ |
sprintf(tampon, "%llX", (*((logical8 *) |
sprintf(tampon, "%llX", (unsigned long long) |
((*s_objet).objet)))); |
(*((logical8 *) ((*s_objet).objet)))); |
strcpy(base, "h"); |
strcpy(base, "h"); |
break; |
break; |
} |
} |
Line 4078 formateur_fichier(struct_processus *s_et
|
Line 4079 formateur_fichier(struct_processus *s_et
|
memcpy(&(chaine[longueur_totale]), tampon, 1); |
memcpy(&(chaine[longueur_totale]), tampon, 1); |
longueur_totale += 1; |
longueur_totale += 1; |
} |
} |
else if (longueur_totale < (((integer8) 1) << 16)) |
else |
{ |
{ |
longueur_totale++; |
longueur_totale++; |
|
|
for(i = 0; i < 7; i++) |
// i = { 0 (16 bits) 2 (32 bits) 6 (64 bits) } |
|
|
|
i = 0; |
|
|
|
for(;;) |
{ |
{ |
if ((longueur_totale < (((integer8) 1) << (8 * (i + 2)))) |
if ((longueur_totale < (((integer8) 1) << (8 * (i + 2)))) |
|| (i == 6)) |
|| (i == 6)) |
Line 4106 formateur_fichier(struct_processus *s_et
|
Line 4111 formateur_fichier(struct_processus *s_et
|
| ((i + 1) << 1)); |
| ((i + 1) << 1)); |
break; |
break; |
} |
} |
|
|
|
switch(i) |
|
{ |
|
case 0 : |
|
{ |
|
i = 2; |
|
break; |
|
} |
|
|
|
case 2 : |
|
{ |
|
i = 6; |
|
break; |
|
} |
|
} |
} |
} |
|
|
if ((chaine = realloc(chaine, (((size_t) longueur_totale) + 3) |
// i = 0 => +3 (16 bits) |
|
// i = 2 => +5 (32 bits) |
|
// i = 6 => +9 (64 bits) |
|
|
|
if ((chaine = realloc(chaine, (((size_t) longueur_totale) |
|
+ ((i == 0) ? 3 : ((i == 2) ? 5 : 9))) |
* sizeof(unsigned char))) == NULL) |
* sizeof(unsigned char))) == NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = |
(*s_etat_processus).erreur_systeme = |
Line 4119 formateur_fichier(struct_processus *s_et
|
Line 4144 formateur_fichier(struct_processus *s_et
|
memcpy(&(chaine[longueur_totale]), tampon, 3); |
memcpy(&(chaine[longueur_totale]), tampon, 3); |
longueur_totale += 3; |
longueur_totale += 3; |
} |
} |
else if (longueur_totale < (((integer8) 1) << 32)) |
|
{ |
|
} |
|
|
|
__zone(); |
__zone(); |
(*longueur_effective) = longueur_totale; |
(*longueur_effective) = longueur_totale; |