diff options
Diffstat (limited to 'cpp/042trace')
| -rw-r--r-- | cpp/042trace | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/cpp/042trace b/cpp/042trace new file mode 100644 index 00000000..3a7b0b0e --- /dev/null +++ b/cpp/042trace @@ -0,0 +1,21 @@ +:(scenario "trace") +recipe main [ + trace [foo], [this is a trace in mu] +] ++foo: this is a trace in mu + +:(before "End Globals") +const int TRACE = 32; +:(before "End Primitive Recipe Numbers") +Recipe_number["trace"] = TRACE; +assert(Next_recipe_number == TRACE); +Next_recipe_number++; +:(before "End Primitive Recipe Implementations") +case TRACE: { + assert(isa_literal(instructions[pc].ingredients[0])); + string label = instructions[pc].ingredients[0].name; + assert(isa_literal(instructions[pc].ingredients[1])); + string message = instructions[pc].ingredients[1].name; + trace(label) << message; + break; +} |