Adaptation a OCaml

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@802 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
1996-05-07 14:37:18 +00:00 · 1996-05-07 14:37:18 +00:00 · db7b02911b
parent 610f0aa0d0
commit db7b02911b
1 changed files with 1 additions and 1 deletions
--- 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