[svn:parrot] r41553 - in trunk: src/pmc t/pmc

[bacek at svn.parrot.org]

Author: bacek
Date: Tue Sep 29 12:00:14 2009
New Revision: 41553
URL: https://trac.parrot.org/parrot/changeset/41553

Log:
[core] Expose Context.current_HLL into PIR

Modified:
   trunk/src/pmc/context.pmc
   trunk/t/pmc/context.t

Modified: trunk/src/pmc/context.pmc
==============================================================================
--- trunk/src/pmc/context.pmc	Tue Sep 29 11:42:40 2009	(r41552)
+++ trunk/src/pmc/context.pmc	Tue Sep 29 12:00:14 2009	(r41553)
@@ -176,6 +176,10 @@
             return ctx->current_namespace;
         else if (Parrot_str_equal(INTERP, key, CONST_STRING(INTERP, "handlers")))
             return ctx->handlers;
+        else if (Parrot_str_equal(INTERP, key, CONST_STRING(INTERP, "current_HLL")))
+            /* This function from src/hash.c. */
+            /* We probably have to move it to more suitable place */
+            return get_integer_pmc(INTERP, ctx->current_HLL);
 
         Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_ATTRIB_NOT_FOUND,
                 "No such item %Ss", key);

Modified: trunk/t/pmc/context.t
==============================================================================
--- trunk/t/pmc/context.t	Tue Sep 29 11:42:40 2009	(r41552)
+++ trunk/t/pmc/context.t	Tue Sep 29 12:00:14 2009	(r41553)
@@ -18,10 +18,12 @@
 
 =cut
 
+.HLL 'FOO'
+
 .sub main :main
     .include 'test_more.pir'
 
-    plan(15)
+    plan(16)
 
     test_new()
 
@@ -114,6 +116,10 @@
     pop_eh
     ok($I0, "No world domination in this Context")
 
+    # Current HLL shouldn't be zero
+    $P0 = ctx['current_HLL']
+    $I0 = $P0
+    ok($I0, 'Got Context.current_HLL')
 
   done:
     pop_eh