Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

cehck-typo

master
Sébastien Hinderer 2020-07-30 10:23:17 +02:00
parent a7ecba9045
commit 24744e8dd8
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
asmcomp/arm64/proc.ml
View File

@ -170,9 +170,15 @@ let last_int_register = if macosx then 7 else 15
let loc_arguments arg = let loc_arguments arg =
calling_conventions 0 last_int_register 100 115 outgoing arg calling_conventions 0 last_int_register 100 115 outgoing arg
let loc_parameters arg = let loc_parameters arg =
let (loc, _) = calling_conventions 0 last_int_register 100 115 incoming arg in loc let (loc, _) =
calling_conventions 0 last_int_register 100 115 incoming arg
in
loc
let loc_results res = let loc_results res =
let (loc, _) = calling_conventions 0 last_int_register 100 115 not_supported res in loc let (loc, _) =
calling_conventions 0 last_int_register 100 115 not_supported res
in
loc
(* C calling convention: (* C calling convention:
first integer args in r0...r7 first integer args in r0...r7