Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

make dummy_met an atom 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@7156 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Jacques Garrigue 2005-10-24 05:18:43 +00:00
parent f0e54ce934
commit b9ff981ae7
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
stdlib/camlinternalOO.ml
View File

@ -120,8 +120,10 @@ let dummy_table =
let table_count = ref 0
let dummy_met () = failwith "Undefined method"
let dummy_met : item = magic dummy_met
(* dummy_met should be a pointer, so use an atom *)
let dummy_met : item = obj (Obj.new_block 0 0)
(* if debugging is needed, this could be a good idea: *)
(* let dummy_met () = failwith "Undefined method" *)
let rec fit_size n =
if n <= 2 then n else