[svn:parrot] r39423 - branches/pmc_pct/compilers/pmcc

[cotto at svn.parrot.org]

Author: cotto
Date: Sat Jun  6 07:22:54 2009
New Revision: 39423
URL: https://trac.parrot.org/parrot/changeset/39423

Log:
[pmcc] make pmcc behave well when working with pmcs in the cwd

Modified:
   branches/pmc_pct/compilers/pmcc/pmcc.pir

Modified: branches/pmc_pct/compilers/pmcc/pmcc.pir
==============================================================================
--- branches/pmc_pct/compilers/pmcc/pmcc.pir	Sat Jun  6 04:12:30 2009	(r39422)
+++ branches/pmc_pct/compilers/pmcc/pmcc.pir	Sat Jun  6 07:22:54 2009	(r39423)
@@ -86,6 +86,11 @@
     delete $P1[$I0]
     pmc_dir = join '/', $P1
 
+    $I0 = pmc_dir
+    unless $I0 == 0 goto emit_files
+    pmc_dir = '.'
+
+  emit_files:  
     .local string dump_filename, c_filename, header_filename
     .local string dump_contents, c_contents, header_contents