We don't want to be exposing the integer value of the current HLL, but the string name.
On Tue, Sep 29, 2009 at 8:00 AM, <[email protected]> wrote: > 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 > _______________________________________________ > http://lists.parrot.org/mailman/listinfo/parrot-commits > -- Will "Coke" Coleda _______________________________________________ http://lists.parrot.org/mailman/listinfo/parrot-dev
