Actually return register syntax from RegAlloc.

jnthn · jnthn · commit f3190cf11862 · 2012-04-22T10:43:31.000+02:00
diff --git a/src/QAST/Compiler.nqp b/src/QAST/Compiler.nqp
@@ -24,19 +24,19 @@ class QAST::Compiler is HLL::Compiler {
         
         method fresh_p() {
             $!cur_p := $!cur_p + 1;
-            $!cur_p
+            '$P' ~ $!cur_p
         }
         method fresh_s() {
             $!cur_s := $!cur_s + 1;
-            $!cur_s
+            '$S' ~ $!cur_s
         }
         method fresh_i() {
             $!cur_i := $!cur_i + 1;
-            $!cur_i
+            '$I' ~ $!cur_i
         }
         method fresh_n() {
             $!cur_n := $!cur_n + 1;
-            $!cur_n
+            '$N' ~ $!cur_n
         }
         
         method cur_p() { $!cur_p }

Original file line number	Diff line number	Diff line change
`@@ -24,19 +24,19 @@ class QAST::Compiler is HLL::Compiler {`
`24`	`24`
`25`	`25`	`method fresh_p() {`
`26`	`26`	`$!cur_p := $!cur_p + 1;`
`27`		`- $!cur_p`
	`27`	`+ '$P' ~ $!cur_p`
`28`	`28`	`}`
`29`	`29`	`method fresh_s() {`
`30`	`30`	`$!cur_s := $!cur_s + 1;`
`31`		`- $!cur_s`
	`31`	`+ '$S' ~ $!cur_s`
`32`	`32`	`}`
`33`	`33`	`method fresh_i() {`
`34`	`34`	`$!cur_i := $!cur_i + 1;`
`35`		`- $!cur_i`
	`35`	`+ '$I' ~ $!cur_i`
`36`	`36`	`}`
`37`	`37`	`method fresh_n() {`
`38`	`38`	`$!cur_n := $!cur_n + 1;`
`39`		`- $!cur_n`
	`39`	`+ '$N' ~ $!cur_n`
`40`	`40`	`}`
`41`	`41`
`42`	`42`	`method cur_p() { $!cur_p }`