--- rpl/src/gestion_pile_systeme.c	2010/04/07 13:45:03	1.6
+++ rpl/src/gestion_pile_systeme.c	2010/04/20 12:49:18	1.7
@@ -261,4 +261,28 @@ depilement_pile_systeme(struct_processus
 	return;
 }
 
+
+/*
+================================================================================
+  Procédure d'effacement de la pile système
+================================================================================
+  Entrée :
+--------------------------------------------------------------------------------
+  Sortie :
+--------------------------------------------------------------------------------
+  Effets de bord : néant
+================================================================================
+*/
+
+void
+effacement_pile_systeme(struct_processus *s_etat_processus)
+{
+	while((*s_etat_processus).l_base_pile_systeme != NULL)
+	{
+		depilement_pile_systeme(s_etat_processus);
+	}
+
+	return;
+}
+
 // vim: ts=4