rpl/src/formateur.c - diff

Return to formateur.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/formateur.c between versions 1.83 and 1.86

version 1.83, 2017/06/29 14:54:42	version 1.86, 2017/07/11 16:04:53
Line 42 formateur(struct_processus *s_etat_proce	Line 42 formateur(struct_processus *s_etat_proce
int parentheses_groupe_gauche;	int parentheses_groupe_gauche;
int parentheses_groupe_droit;	int parentheses_groupe_droit;

integer8 (*__type_disp)(struct_processus	integer8 (__type_disp)(struct_processus , void **);
s_etat_processus, void *arg);

logical1 registre45;	logical1 registre45;

Line 3308 formateur(struct_processus *s_etat_proce	Line 3307 formateur(struct_processus *s_etat_proce
strcat(chaine, " ]");	strcat(chaine, " ]");
}	}
}	}
	else if ((*s_objet).type == NON)
	{
	if ((chaine = malloc((strlen("System object") + 1)
	* sizeof(unsigned char))) == NULL)
	{
	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
	return(NULL);
	}

	strcpy(chaine, "System object");
	}
else if ((*s_objet).type == EXT)	else if ((*s_objet).type == EXT)
{	{
if ((__type_disp = dlsym((*s_objet).descripteur_bibliotheque,	if ((__type_disp = dlsym((*s_objet).descripteur_bibliotheque,
Line 3319 formateur(struct_processus *s_etat_proce	Line 3329 formateur(struct_processus *s_etat_proce
* sizeof(unsigned char))) == NULL)	* sizeof(unsigned char))) == NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
	return(NULL);
}	}

strcpy(chaine, "External symbol");	strcpy(chaine, "External symbol");
Line 3326 formateur(struct_processus *s_etat_proce	Line 3337 formateur(struct_processus *s_etat_proce
else	else
{	{
// Symbole externe affichable	// Symbole externe affichable
__type_disp(s_etat_processus, (void **) &chaine);	void **arg;

	arg = (void **) &s_objet;
	__type_disp(s_etat_processus, arg);
	chaine = (unsigned char ) (arg);
}	}
}	}
else	else

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.83
changed lines
	Added in v.1.86