rpl/src/formateur.c - diff

Return to formateur.c CVS log

Up to [local] / rpl / src

version 1.82, 2017/06/28 09:20:30	version 1.83, 2017/06/29 14:54:42
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
	s_etat_processus, void *arg);

logical1 registre45;	logical1 registre45;

logical4 autorisation_parenthese;	logical4 autorisation_parenthese;
Line 3296 formateur(struct_processus *s_etat_proce	Line 3299 formateur(struct_processus *s_etat_proce

if (chaine == NULL)	if (chaine == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
d_es_allocation_memoire;
return(NULL);	return(NULL);
}	}

Line 3306 formateur(struct_processus *s_etat_proce	Line 3308 formateur(struct_processus *s_etat_proce
strcat(chaine, " ]");	strcat(chaine, " ]");
}	}
}	}
	else if ((*s_objet).type == EXT)
	{
	if ((__type_disp = dlsym((*s_objet).descripteur_bibliotheque,
	"__type_disp")) == NULL)
	{
	// Symbole externe non affichable

	if ((chaine = malloc((strlen("External symbol") + 1)
	* sizeof(unsigned char))) == NULL)
	{
	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
	}

	strcpy(chaine, "External symbol");
	}
	else
	{
	// Symbole externe affichable
	__type_disp(s_etat_processus, (void **) &chaine);
	}
	}
	else
	{
	BUG(1, uprintf("Unknown symbol type\n"));
	}

return(chaine);	return(chaine);
}	}