--- rpl/src/gestion_pile_systeme.c	2010/04/07 13:45:03	1.6
+++ rpl/src/gestion_pile_systeme.c	2010/05/19 09:22:34	1.10
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.14
+  RPL/2 (R) version 4.0.15
   Copyright (C) 1989-2010 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -259,6 +259,30 @@ 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