diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1996-05-07 14:37:18 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1996-05-07 14:37:18 +0000 |
| commit | db7b02911b6ef4f0b41a0b6e12ffb8aa45b8da02 (patch) | |
| tree | a90feadd032a440ff508db8a17a8c966c8948b38 | |
| parent | 610f0aa0d0f01e5083ca3c58d1117ff4d78f7c20 (diff) | |
Adaptation a OCaml
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@802 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | asmcomp/emit_hppa.mlp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/asmcomp/emit_hppa.mlp b/asmcomp/emit_hppa.mlp index 45cb929ba..79cb6671c 100644 --- a/asmcomp/emit_hppa.mlp +++ b/asmcomp/emit_hppa.mlp @@ -247,7 +247,7 @@ let emit_float_constant (lbl, cst) = let defined_functions = ref StringSet.empty -let stub_label_table = (Hashtbl.new 19 : (string, int) Hashtbl.t) +let stub_label_table = (Hashtbl.create 19 : (string, int) Hashtbl.t) let stub_label symb = try |