Avoid use of nqp::time_n() if --stable-sc was provided

moritz · moritz · commit c0c31bf4bded · 2015-10-08T14:38:02.000+02:00
diff --git a/src/QAST/Block.nqp b/src/QAST/Block.nqp
@@ -37,7 +37,7 @@ class QAST::Block is QAST::Node does QAST::Children {
     }
 
     my $cur_cuid := 0;
-    my $cuid_suffix := ~nqp::time_n();
+    my $cuid_suffix := %*COMPILING<%?OPTIONS><stable-sc> || ~nqp::time_n();
     
     method cuid($value = NO_VALUE) {
         if !($value =:= NO_VALUE) {

Original file line number	Diff line number	Diff line change
`@@ -37,7 +37,7 @@ class QAST::Block is QAST::Node does QAST::Children {`
`37`	`37`	`}`
`38`	`38`
`39`	`39`	`my $cur_cuid := 0;`
`40`		`- my $cuid_suffix := ~nqp::time_n();`
	`40`	`+ my $cuid_suffix := %*COMPILING<%?OPTIONS><stable-sc> \|\| ~nqp::time_n();`
`41`	`41`
`42`	`42`	`method cuid($value = NO_VALUE) {`
`43`	`43`	`if !($value =:= NO_VALUE) {`