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

Fix -output-obj C file argv signature

master
Nicolas Ojeda Bar 2017-09-19 17:16:07 +02:00 committed by David Allsopp
parent fb878a0af8
commit ecaebcad4a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
bytecomp/bytelink.ml
View File

@ -487,7 +487,7 @@ let link_bytecode_as_c ppf tolink outfile =
Symtable.output_primitive_table outchan;
(* The entry point *)
output_string outchan "\
\nvoid caml_startup(char ** argv)\
\nvoid caml_startup(charnat ** argv)\
\n{\
\n caml_startup_code(caml_code, sizeof(caml_code),\
\n caml_data, sizeof(caml_data),\
@ -496,7 +496,7 @@ let link_bytecode_as_c ppf tolink outfile =
\n argv);\
\n}\
\n\
\nvalue caml_startup_exn(char ** argv)\
\nvalue caml_startup_exn(charnat ** argv)\
\n{\
\n return caml_startup_code_exn(caml_code, sizeof(caml_code),\
\n caml_data, sizeof(caml_data),\
@ -505,7 +505,7 @@ let link_bytecode_as_c ppf tolink outfile =
\n argv);\
\n}\
\n\
\nvoid caml_startup_pooled(char ** argv)\
\nvoid caml_startup_pooled(charnat ** argv)\
\n{\
\n caml_startup_code(caml_code, sizeof(caml_code),\
\n caml_data, sizeof(caml_data),\
@ -514,7 +514,7 @@ let link_bytecode_as_c ppf tolink outfile =
\n argv);\
\n}\
\n\
\nvalue caml_startup_pooled_exn(char ** argv)\
\nvalue caml_startup_pooled_exn(charnat ** argv)\
\n{\
\n return caml_startup_code_exn(caml_code, sizeof(caml_code),\
\n caml_data, sizeof(caml_data),\