version 1.24, 2011/06/24 20:31:39
|
version 1.54, 2015/06/08 14:11:38
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.0.prerelease.4 |
RPL/2 (R) version 4.1.22 |
Copyright (C) 1989-2011 Dr. BERTRAND Joël |
Copyright (C) 1989-2015 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 38
|
Line 38
|
void |
void |
instruction_num(struct_processus *s_etat_processus) |
instruction_num(struct_processus *s_etat_processus) |
{ |
{ |
|
integer8 longueur; |
|
|
struct_objet *s_objet_argument; |
struct_objet *s_objet_argument; |
struct_objet *s_objet_resultat; |
struct_objet *s_objet_resultat; |
|
|
|
unsigned char *chaine; |
|
|
(*s_etat_processus).erreur_execution = d_ex; |
(*s_etat_processus).erreur_execution = d_ex; |
|
|
if ((*s_etat_processus).affichage_arguments == 'Y') |
if ((*s_etat_processus).affichage_arguments == 'Y') |
Line 90 instruction_num(struct_processus *s_etat
|
Line 94 instruction_num(struct_processus *s_etat
|
|
|
if ((*s_objet_argument).type == CHN) |
if ((*s_objet_argument).type == CHN) |
{ |
{ |
if (strlen((unsigned char *) (*s_objet_argument).objet) != 1) |
if (longueur_chaine(s_etat_processus, (unsigned char *) |
|
(*s_objet_argument).objet) != 1) |
{ |
{ |
liberation(s_etat_processus, s_objet_argument); |
liberation(s_etat_processus, s_objet_argument); |
|
|
Line 98 instruction_num(struct_processus *s_etat
|
Line 103 instruction_num(struct_processus *s_etat
|
return; |
return; |
} |
} |
|
|
|
if ((chaine = formateur_flux(s_etat_processus, (unsigned char *) |
|
(*s_objet_argument).objet, &longueur)) == NULL) |
|
{ |
|
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
|
return; |
|
} |
|
|
if ((s_objet_resultat = allocation(s_etat_processus, INT)) == NULL) |
if ((s_objet_resultat = allocation(s_etat_processus, INT)) == NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
return; |
return; |
} |
} |
|
|
(*((integer8 *) (*s_objet_resultat).objet)) = |
(*((integer8 *) (*s_objet_resultat).objet)) = chaine[0]; |
(integer8) ((unsigned char *) (*s_objet_argument).objet)[0]; |
free(chaine); |
} |
} |
|
|
/* |
/* |