--- rpl/src/gestion_pile_systeme.c	2010/01/26 15:22:44	1.1.1.1
+++ rpl/src/gestion_pile_systeme.c	2010/04/20 12:49:18	1.7
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.9
+  RPL/2 (R) version 4.0.14
   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