literal_subst doesn't take regexes, oops :)

timo · timo · commit 6482f71b02bb · 2016-09-04T16:17:30.000+02:00
fixes the heap snapshot profile
diff --git a/src/vm/moar/HLL/Backend.nqp b/src/vm/moar/HLL/Backend.nqp
@@ -325,10 +325,10 @@ class HLL::Backend::MoarVM {
                 }
                 elsif nqp::isstr($obj) {
                     if nqp::index($obj, '\\') {
-                        $obj := literal_subst($obj, /'\\'/, $escaped_backslash);
+                        $obj := literal_subst($obj, '\\', $escaped_backslash);
                     }
                     if nqp::index($obj, '"') {
-                        $obj := literal_subst($obj, /'"'/, $escaped_dquote);
+                        $obj := literal_subst($obj, '"', $escaped_dquote);
                     }
                     nqp::push_s(@pieces, '"');
                     nqp::push_s(@pieces, $obj);

Original file line number	Diff line number	Diff line change
`@@ -325,10 +325,10 @@ class HLL::Backend::MoarVM {`
`325`	`325`	`}`
`326`	`326`	`elsif nqp::isstr($obj) {`
`327`	`327`	`if nqp::index($obj, '\\') {`
`328`		`- $obj := literal_subst($obj, /'\\'/, $escaped_backslash);`
	`328`	`+ $obj := literal_subst($obj, '\\', $escaped_backslash);`
`329`	`329`	`}`
`330`	`330`	`if nqp::index($obj, '"') {`
`331`		`- $obj := literal_subst($obj, /'"'/, $escaped_dquote);`
	`331`	`+ $obj := literal_subst($obj, '"', $escaped_dquote);`
`332`	`332`	`}`
`333`	`333`	`nqp::push_s(@pieces, '"');`
`334`	`334`	`nqp::push_s(@pieces, $obj);`