[svn:parrot] r41909 - trunk/compilers/pct/src/PAST

[pmichaud at svn.parrot.org]

Author: pmichaud
Date: Sat Oct 17 21:15:45 2009
New Revision: 41909
URL: https://trac.parrot.org/parrot/changeset/41909

Log:
[pct]:  Add some resolution to subid generation, in case multiple
compilations occur within the same second.  (We really ought to have
a better uuid generator here, but this works for now.)

Modified:
   trunk/compilers/pct/src/PAST/Node.pir

Modified: trunk/compilers/pct/src/PAST/Node.pir
==============================================================================
--- trunk/compilers/pct/src/PAST/Node.pir	Sat Oct 17 20:46:57 2009	(r41908)
+++ trunk/compilers/pct/src/PAST/Node.pir	Sat Oct 17 21:15:45 2009	(r41909)
@@ -690,8 +690,8 @@
     .local pmc suffix
     suffix = get_global '$!subid_suffix'
     unless null suffix goto have_suffix
-    $I0 = time
-    $S0 = $I0
+    $N0 = time
+    $S0 = $N0
     $S0 = concat '_', $S0
     suffix = box $S0
     set_global '$!subid_suffix', suffix