Merged revisions 7797-7917 via svnmerge from

[cacao.git] / src / toolbox / worklist.c

diff --git a/src/toolbox/worklist.c b/src/toolbox/worklist.c
index 5c5d8de0890ad15eb58e98b25d3946ec3d214889..1e3ae2c7548fd45216eef6bb46b15c2fff3c3f6c 100644 (file)
--- a/src/toolbox/worklist.c
+++ b/src/toolbox/worklist.c
@@ -112,6 +112,17 @@ bool wl_is_empty(worklist *w) {
        return (w->W_top == 0);
 }
 
+/*******************************************************************************
+wl_reset
+
+Empties the worklist.
+
+IN:     worklist *w    pointer to worklist created with wl_new
+*******************************************************************************/
+void wl_reset(worklist *w, int size) {
+       w->W_top = 0;
+       bv_reset(w->W_bv, size);
+}
 
 /*
  * These are local overrides for various environment variables in Emacs.