[svn:parrot] r11711 - trunk/src

[leo]

Author: leo
Date: Thu Feb 23 10:00:11 2006
New Revision: 11711

Modified:
   trunk/src/register.c
Log:
nullify ctx->current_HLL in init_context

Modified: trunk/src/register.c
==============================================================================
--- trunk/src/register.c        (original)
+++ trunk/src/register.c        Thu Feb 23 10:00:11 2006
@@ -229,6 +229,7 @@ init_context(Interp *interpreter, parrot
     ctx->current_package = NULL; /* XXX unused except tests */
     ctx->current_method = NULL; /* XXX who clears it? */
     ctx->current_object = NULL; /* XXX who clears it?  */
+    ctx->current_HLL = 0;
     if (old) {
         /* some items should better be COW copied */
         ctx->constants = old->constants;