Lines 914-919
Link Here
|
914 |
` .data\n`; |
914 |
` .data\n`; |
915 |
List.iter emit_item l |
915 |
List.iter emit_item l |
916 |
|
916 |
|
|
|
917 |
(* Set the stack as non-executable *) |
918 |
let nx_stack() = |
919 |
`#ifdef __ELF__\n`; |
920 |
`.section .note.GNU-stack,\"\",%progbits\n`; |
921 |
`#endif\n` |
922 |
|
917 |
(* Beginning / end of an assembly file *) |
923 |
(* Beginning / end of an assembly file *) |
918 |
|
924 |
|
919 |
let begin_assembly() = |
925 |
let begin_assembly() = |
Lines 942-945
Link Here
|
942 |
` .long {emit_int (List.length !frame_descriptors)}\n`; |
948 |
` .long {emit_int (List.length !frame_descriptors)}\n`; |
943 |
List.iter emit_frame !frame_descriptors; |
949 |
List.iter emit_frame !frame_descriptors; |
944 |
frame_descriptors := []; |
950 |
frame_descriptors := []; |
|
|
951 |
nx_stack(); |
945 |
if macosx then emit_external_symbols () |
952 |
if macosx then emit_external_symbols () |