fixes calling convention for ms64 (#1533)

ivg · web-flow · commit 46c93ca54bba · 2022-07-07T13:21:24.000-04:00
Large objects are passed via an explicit reference, not implicit (hidden).
diff --git a/lib/x86_cpu/x86_target.ml b/lib/x86_cpu/x86_target.ml
@@ -440,7 +440,7 @@ module Abi = struct
         otherwise, pass Arg.register irets;
       ] in
     describe ~return @@ fun ~alignment:_ size -> select [
-      is (size > 64), pass Arg.reference iregs;
+      is (size > 64), pass Arg.pointer iregs;
       C.Type.is_floating, pass Arg.register vregs;
       otherwise, pass Arg.register iregs;
     ]

Original file line number	Diff line number	Diff line change
`@@ -440,7 +440,7 @@ module Abi = struct`
`440`	`440`	`otherwise, pass Arg.register irets;`
`441`	`441`	`] in`
`442`	`442`	`describe ~return @@ fun ~alignment:_ size -> select [`
`443`		`- is (size > 64), pass Arg.reference iregs;`
	`443`	`+ is (size > 64), pass Arg.pointer iregs;`
`444`	`444`	`C.Type.is_floating, pass Arg.register vregs;`
`445`	`445`	`otherwise, pass Arg.register iregs;`
`446`	`446`	`]`