diff options
| author | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2003-05-14 09:48:20 +0000 |
|---|---|---|
| committer | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2003-05-14 09:48:20 +0000 |
| commit | 4d7abfbc16022eab8af392bd3e6d76cf4773f2c2 (patch) | |
| tree | e883430c77d37c7c933652bca86be8dcc3697272 /bytecomp/emitcode.ml | |
| parent | 6ef3a9c5a2ca32049682798e1e6f4521ea196836 (diff) | |
| download | ocaml-multimatch.tar.gz | |
merge from HEADmultimatch
git-svn-id: http://caml.inria.fr/svn/ocaml/branches/multimatch@5563 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'bytecomp/emitcode.ml')
| -rw-r--r-- | bytecomp/emitcode.ml | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/bytecomp/emitcode.ml b/bytecomp/emitcode.ml index 4613241fcf..a2ee15a820 100644 --- a/bytecomp/emitcode.ml +++ b/bytecomp/emitcode.ml @@ -425,3 +425,13 @@ let to_memory init_code fun_code = and code_size = !out_position in init(); (code, code_size, reloc) + +(* Emission to a file for a packed library *) + +let to_packed_file outchan code = + init(); + emit code; + output outchan !out_buffer 0 !out_position; + let reloc = !reloc_info in + init(); + reloc |