rpl/src/gestion_pile_last.c - diff

Return to gestion_pile_last.c CVS log

Up to [local] / rpl / src

version 1.6, 2010/04/07 13:45:03	version 1.44, 2013/09/06 10:30:51
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.14	RPL/2 (R) version 4.1.16
Copyright (C) 1989-2010 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 20	Line 20
*/	*/


#include "rpl.conv.h"	#include "rpl-conv.h"


/*	/*
Line 37	Line 37

logical1	logical1
empilement_pile_last(struct_processus *s_etat_processus,	empilement_pile_last(struct_processus *s_etat_processus,
unsigned long nombre_arguments)	integer8 nombre_arguments)
{	{
struct_liste_chainee *l_element_courant;	struct_liste_chainee *l_element_courant;
struct_liste_chainee *l_element_suivant;	struct_liste_chainee *l_element_suivant;
Line 46 empilement_pile_last(struct_processus *s	Line 46 empilement_pile_last(struct_processus *s

logical1 erreur;	logical1 erreur;

unsigned long i;	integer8 i;

erreur = d_absence_erreur;	erreur = d_absence_erreur;