[svn:parrot] r45153 - trunk/runtime/parrot/library

fperrad at svn.parrot.org fperrad at svn.parrot.org
Wed Mar 24 16:03:37 UTC 2010


Author: fperrad
Date: Wed Mar 24 16:03:35 2010
New Revision: 45153
URL: https://trac.parrot.org/parrot/changeset/45153

Log:
[distutils] handles pir_nqp_flags with parrot-nqp

Modified:
   trunk/runtime/parrot/library/distutils.pir

Modified: trunk/runtime/parrot/library/distutils.pir
==============================================================================
--- trunk/runtime/parrot/library/distutils.pir	Wed Mar 24 15:45:46 2010	(r45152)
+++ trunk/runtime/parrot/library/distutils.pir	Wed Mar 24 16:03:35 2010	(r45153)
@@ -758,6 +758,8 @@
 
 the value is the NQP pathname
 
+=item pir_nqp_flags
+
 =cut
 
 .sub '_build_pir_nqp_rx' :anon
@@ -765,17 +767,20 @@
     $I0 = exists kv['pir_nqp-rx']
     unless $I0 goto L1
     $P0 = kv['pir_nqp-rx']
-    build_pir_nqp_rx($P0)
+    $S0 = get_value('pir_nqp_flags', '' :named('default'), kv :flat :named)
+    build_pir_nqp_rx($P0, $S0)
   L1:
     $I0 = exists kv['pir_nqprx']
     unless $I0 goto L2
     $P0 = kv['pir_nqprx']
-    build_pir_nqp_rx($P0)
+    $S0 = get_value('pir_nqp_flags', '' :named('default'), kv :flat :named)
+    build_pir_nqp_rx($P0, $S0)
   L2:
 .end
 
 .sub 'build_pir_nqp_rx'
     .param pmc hash
+    .param string flags
     .local pmc jobs
     jobs = new 'ResizableStringArray'
     $P0 = iter hash
@@ -793,6 +798,8 @@
     cmd .= " --target=pir --output="
     cmd .= pir
     cmd .= " "
+    cmd .= flags
+    cmd .= " "
     cmd .= nqp
     push jobs, cmd
     goto L1
@@ -1266,7 +1273,7 @@
   L2:
 .end
 
-.sub '__build_dynpmc' :anon
+.sub '__build_dynpmc'
     .param string src
     .param string cflags
     .local pmc config


More information about the parrot-commits mailing list