Ticket #366: HLLCompiler-dump-on-eval.patch

parrot/compilers/pct/src/PCT/HLLCompiler.pir

@@ -765 +765 @@
     if $I0 goto version
 
 
+    .local string target
+    target = adverbs['target']
+    target = downcase target
+
     $S0 = adverbs['e']
     $I0 = exists adverbs['e']
     if $I0 goto eval_line
@@ -785 +789 @@
     goto save_output
   eval_line:
     result = self.'eval'($S0, '-e', args :flat, adverbs :flat :named)
+    if target == '' goto no_dump
+    if target == 'pir' goto no_dump
+    '_dumper'(result, target)
+  no_dump:
 
   save_output:
     if null result goto end
     unless result goto end
-    .local string target
-    target = adverbs['target']
-    target = downcase target
     if target != 'pir' goto end
     .local string output
     .local pmc ofh