diff options
author | Xavier Leroy <xavier.leroy@inria.fr> | 2001-02-19 12:40:33 +0000 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@inria.fr> | 2001-02-19 12:40:33 +0000 |
commit | 913d33aa9ec4b999a9fad1f7792bf83d99cda37b (patch) | |
tree | 2fb9658e660298bc869f7b166d606c521fb5c96b | |
parent | 4b84fcf843140a9a3f9ccd86036b7a314dcd216a (diff) |
Backtrace
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3423 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
-rw-r--r-- | byterun/startup.h | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/byterun/startup.h b/byterun/startup.h new file mode 100644 index 000000000..86379c728 --- /dev/null +++ b/byterun/startup.h @@ -0,0 +1,21 @@ +#ifndef _startup_ +#define _startup_ + +#include "misc.h" +#include "exec.h" + +extern void caml_main(char **argv); +extern void caml_startup_code(code_t code, asize_t code_size, + char *data, char **argv); + +enum { FILE_NOT_FOUND = -1, BAD_BYTECODE = -2 }; + +extern int attempt_open(char **name, struct exec_trailer *trail, + int do_open_script); +extern void read_section_descriptors(int fd, struct exec_trailer *trail); +extern int32 seek_optional_section(int fd, struct exec_trailer *trail, + char *name); +extern int32 seek_section(int fd, struct exec_trailer *trail, char *name); + + +#endif |