Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

fix the trace core, so when we use the -t, --trace, or -Rtrace flags,…

… it actually uses the right core
  • Loading branch information...
commit c510c5cf3970b9d435d370e9177448bfd198daad 1 parent 8142754
Andrew Whitworth Whiteknight authored
Showing with 4 additions and 2 deletions.
  1. +4 −2 src/embed/api.c
6 src/embed/api.c
View
@@ -165,7 +165,7 @@ Parrot_api_set_runcore(Parrot_PMC interp_pmc, ARGIN(const char * corename),
ASSERT_ARGS(Parrot_api_set_runcore)
EMBED_API_CALLIN(interp_pmc, interp)
if (trace) {
- Parrot_pcc_trace_flags_on(interp, interp->ctx, trace);
+ Interp_trace_SET(interp, PARROT_TRACE_OPS_FLAG);
Parrot_runcore_switch(interp, Parrot_str_new_constant(interp, "slow"));
}
else {
@@ -176,8 +176,10 @@ Parrot_api_set_runcore(Parrot_PMC interp_pmc, ARGIN(const char * corename),
Parrot_runcore_switch(interp, Parrot_str_new_constant(interp, "fast"));
else if (!strcmp(corename, "exec"))
Parrot_runcore_switch(interp, Parrot_str_new_constant(interp, "exec"));
- else if (!strcmp(corename, "trace"))
+ else if (!strcmp(corename, "trace")) {
+ Interp_trace_SET(interp, PARROT_TRACE_OPS_FLAG);
Parrot_runcore_switch(interp, Parrot_str_new_constant(interp, "slow"));
+ }
else if (!strcmp(corename, "profiling"))
Parrot_runcore_switch(interp, Parrot_str_new_constant(interp, "profiling"));
else if (!strcmp(corename, "gcdebug"))
Please sign in to comment.
Something went wrong with that request. Please try again.