num64/num32 truncate/extend coercion code-gen.

jnthn · jnthn · commit 6dc2a6f83130 · 2015-12-17T13:37:16.000+01:00
diff --git a/src/vm/moar/QAST/QASTCompilerMAST.nqp b/src/vm/moar/QAST/QASTCompilerMAST.nqp
@@ -428,6 +428,9 @@ my class MASTCompilerInstance {
                 elsif $got == $MVM_reg_str {
                     push_op($il, 'coerce_sn', $res_reg, $reg);
                 }
+                elsif $got == $MVM_reg_num32 {
+                    push_op($il, 'extend_n32', $res_reg, $reg);
+                }
                 elsif $got == $MVM_reg_void {
                     push_op($il, 'const_n64', $res_reg, MAST::NVal.new( :value(0) ));
                 }
@@ -449,6 +452,14 @@ my class MASTCompilerInstance {
                     nqp::die("Unknown coercion case for str; got: "~$got);
                 }
             }
+            elsif $desired == $MVM_reg_num32 {
+                if $got == $MVM_reg_num64 {
+                    push_op($il, 'trunc_n32', $res_reg, $reg);
+                }
+                else {
+                    nqp::die("Unknown coercion case for num32; got: "~$got);
+                }
+            }
             else {
                 nqp::die("Coercion from type '$got' to '$desired' NYI");
             }

Original file line number	Diff line number	Diff line change
`@@ -428,6 +428,9 @@ my class MASTCompilerInstance {`
`428`	`428`	`elsif $got == $MVM_reg_str {`
`429`	`429`	`push_op($il, 'coerce_sn', $res_reg, $reg);`
`430`	`430`	`}`
	`431`	`+ elsif $got == $MVM_reg_num32 {`
	`432`	`+ push_op($il, 'extend_n32', $res_reg, $reg);`
	`433`	`+ }`
`431`	`434`	`elsif $got == $MVM_reg_void {`
`432`	`435`	`push_op($il, 'const_n64', $res_reg, MAST::NVal.new( :value(0) ));`
`433`	`436`	`}`
`@@ -449,6 +452,14 @@ my class MASTCompilerInstance {`
`449`	`452`	`nqp::die("Unknown coercion case for str; got: "~$got);`
`450`	`453`	`}`
`451`	`454`	`}`
	`455`	`+ elsif $desired == $MVM_reg_num32 {`
	`456`	`+ if $got == $MVM_reg_num64 {`
	`457`	`+ push_op($il, 'trunc_n32', $res_reg, $reg);`
	`458`	`+ }`
	`459`	`+ else {`
	`460`	`+ nqp::die("Unknown coercion case for num32; got: "~$got);`
	`461`	`+ }`
	`462`	`+ }`
`452`	`463`	`else {`
`453`	`464`	`nqp::die("Coercion from type '$got' to '$desired' NYI");`
`454`	`465`	`}`