a31f1faf17
[ci skip]
20 lines
623 B
Diff
20 lines
623 B
Diff
--- ocaml-4.04.2/asmcomp/emitaux.ml
|
|
+++ ocaml-4.04.2/asmcomp/emitaux.ml
|
|
@@ -205,6 +205,7 @@ let emit_frames a =
|
|
| None -> a.efa_word 0
|
|
end
|
|
in
|
|
+ a.efa_align Arch.size_addr;
|
|
a.efa_word (List.length !frame_descriptors);
|
|
List.iter emit_frame !frame_descriptors;
|
|
Label_table.iter emit_debuginfo debuginfos;
|
|
--- ocaml-4.04.2/asmrun/power.S
|
|
+++ ocaml-4.04.2/asmrun/power.S
|
|
@@ -642,6 +642,7 @@ caml_system__code_end:
|
|
/* Frame table */
|
|
|
|
.section ".data"
|
|
+ .align wordalign
|
|
.globl caml_system__frametable
|
|
.type caml_system__frametable, @object
|
|
caml_system__frametable:
|