cehck-typo
parent
a7ecba9045
commit
24744e8dd8
|
@ -170,9 +170,15 @@ let last_int_register = if macosx then 7 else 15
|
|||
let loc_arguments arg =
|
||||
calling_conventions 0 last_int_register 100 115 outgoing 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, _) = 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:
|
||||
first integer args in r0...r7
|
||||
|
|
Loading…
Reference in New Issue