rpl/src/rpl.c - diff

Return to rpl.c CVS log

Up to [local] / rpl / src

version 1.17, 2010/04/17 18:57:36	version 1.21, 2010/04/28 07:05:38
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.14	RPL/2 (R) version 4.0.15
Copyright (C) 1989-2010 Dr. BERTRAND Joël	Copyright (C) 1989-2010 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.
Line 1840 rplinit(int argc, char *argv[], unsigned	Line 1840 rplinit(int argc, char *argv[], unsigned
(*s_etat_processus).pile_origine_interruptions[i] = NULL;	(*s_etat_processus).pile_origine_interruptions[i] = NULL;
}	}

	(*s_etat_processus).at_exit = NULL;

(*s_etat_processus).pointeurs_caracteres = NULL;	(*s_etat_processus).pointeurs_caracteres = NULL;
(*s_etat_processus).arbre_instructions = NULL;	(*s_etat_processus).arbre_instructions = NULL;

Line 2618 rplinit(int argc, char *argv[], unsigned	Line 2620 rplinit(int argc, char *argv[], unsigned
erreur = sequenceur_optimise(s_etat_processus);	erreur = sequenceur_optimise(s_etat_processus);
}	}
}	}

	if (erreur == d_absence_erreur)
	{
	if ((*s_etat_processus).at_exit != NULL)
	{
	erreur = evaluation(s_etat_processus,
	(*s_etat_processus).at_exit, 'E');
	}
	}

	liberation(s_etat_processus,
	(*s_etat_processus).at_exit);
}	}

if ((*s_etat_processus).generateur_aleatoire != NULL)	if ((*s_etat_processus).generateur_aleatoire != NULL)