diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1995-07-27 17:40:34 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1995-07-27 17:40:34 +0000 |
| commit | b44ab158b2735be981330ff8a0d696051a246cc6 (patch) | |
| tree | 0e992484f37f1c0a99d09eb4e41fc16812a5cacc /bytecomp/symtable.ml | |
| parent | 8213d543cb66cb460e8f3561e67fc6091dce6a60 (diff) | |
Creation du module primitive.
Gestion speciale des tableaux de flottants et des records de flottants.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@152 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'bytecomp/symtable.ml')
| -rw-r--r-- | bytecomp/symtable.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/bytecomp/symtable.ml b/bytecomp/symtable.ml index 2a5947e07..f75025b41 100644 --- a/bytecomp/symtable.ml +++ b/bytecomp/symtable.ml @@ -140,6 +140,9 @@ let rec transl_const = function (fun c -> Obj.set_field block !pos (transl_const c); incr pos) fields; block + | Const_float_array fields -> + transl_const + (Const_block(0, List.map (fun f -> Const_base(Const_float f)) fields)) (* Build the initial table of globals *) |