Skip to content

Commit 41331da

Browse files
committed
Squashed 'ocaml/' changes from 64235a3..da6ff04
da6ff04 Accept [@ocaml.local] without -extension, and move autogenerated attrs to [@extension.local] (#9) 30ce67d Improve inclusion error messages for [@local_opt] (#10) f925a62 Remove some uneeded mode variables (#8) dec721c Local solver speedups (#7) e9afc49 Fix check_all_arches build 0b9b32a Fix i386 build a515093 Merge flambda-backend changes git-subtree-dir: ocaml git-subtree-split: da6ff04
1 parent b54d3a3 commit 41331da

File tree

23 files changed

+5380
-5235
lines changed

23 files changed

+5380
-5235
lines changed

asmcomp/i386/proc.ml

Lines changed: 0 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -140,9 +140,6 @@ let outgoing ofs =
140140
else Domainstate (ofs + size_domainstate_args)
141141
let not_supported _ofs = fatal_error "Proc.loc_results: cannot call"
142142

143-
(* Six arguments in integer registers plus eight in global memory. *)
144-
let max_arguments_for_tailcalls = 14
145-
146143
let loc_arguments arg =
147144
calling_conventions 0 5 100 99 outgoing arg
148145
let loc_parameters arg =

asmcomp/s390x/emit.mlp

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -105,7 +105,7 @@ let emit_stack r =
105105
| Stack (Domainstate n) ->
106106
let ofs = n + Domainstate.(idx_of_field Domain_extra_params) * 8 in
107107
`{emit_int ofs}(%r10)`
108-
Stack s ->
108+
| Stack s ->
109109
let ofs = slot_offset s (register_class r) in
110110
`{emit_int ofs}(%r15)`
111111
| _ -> fatal_error "Emit.emit_stack"

0 commit comments

Comments
 (0)