[svn:parrot] r47133 - trunk/compilers/pct/src/PCT

[moritz at svn.parrot.org]

Author: moritz
Date: Sun May 30 08:21:58 2010
New Revision: 47133
URL: https://trac.parrot.org/parrot/changeset/47133

Log:
[pct] print backtraces to STDERR without using dynops. plobsing++

Modified:
   trunk/compilers/pct/src/PCT/HLLCompiler.pir

Modified: trunk/compilers/pct/src/PCT/HLLCompiler.pir
==============================================================================
--- trunk/compilers/pct/src/PCT/HLLCompiler.pir	Sun May 30 08:15:45 2010	(r47132)
+++ trunk/compilers/pct/src/PCT/HLLCompiler.pir	Sun May 30 08:21:58 2010	(r47133)
@@ -804,9 +804,6 @@
 
 =cut
 
-# for printerr
-.loadlib 'io_ops'
-
 .sub 'command_line' :method
     .param pmc args
     .param pmc adverbs         :slurpy :named
@@ -921,7 +918,9 @@
     .get_results ($P0)
     pop_eh
     $S0 = self.'backtrace'($P0)
-    printerr $S0
+    $P0 = getinterp
+    $P0 = $P0.'stdhandle'(2)
+    print $P0, $S0
     exit 1
 .end