[svn:parrot] r44301 - trunk/tools/dev

[fperrad at svn.parrot.org]

Author: fperrad
Date: Mon Feb 22 19:34:44 2010
New Revision: 44301
URL: https://trac.parrot.org/parrot/changeset/44301

Log:
[build] fix nci_thunk_gen.pir on Windows : pathname with \

Modified:
   trunk/tools/dev/nci_thunk_gen.pir

Modified: trunk/tools/dev/nci_thunk_gen.pir
==============================================================================
--- trunk/tools/dev/nci_thunk_gen.pir	Mon Feb 22 19:06:11 2010	(r44300)
+++ trunk/tools/dev/nci_thunk_gen.pir	Mon Feb 22 19:34:44 2010	(r44301)
@@ -1071,7 +1071,8 @@
     .param pmc extns :slurpy
 
     .local string dir, file, extn
-    file = clone full_path
+    $P0 = split "\\", full_path
+    file = join "/", $P0
 
     extn_loop:
         unless extns goto end_extn_loop
@@ -1084,7 +1085,6 @@
         substr file, $I1, $I0, ''
     end_extn_loop:
 
-    # TODO: make this portable
     .const string file_sep = '/'
 
     strip_dir_loop: