Project

General

Profile

Revision 6560bb94 src/corelang.ml

View differences:

src/corelang.ml
348 348
                     | Tydec_enum tl -> tl
349 349
                     | _             -> assert false)
350 350
 | _            -> assert false
351
(*
351

  
352 352
let get_struct_type_fields cty =
353 353
 match cty with
354 354
 | Tydec_const _ -> (match Hashtbl.find type_table cty with
355 355
                     | Tydec_struct fl -> fl
356 356
                     | _               -> assert false)
357 357
 | _            -> assert false
358
 *)
358

  
359 359
let const_of_bool b =
360 360
 Const_tag (if b then tag_true else tag_false)
361 361

  

Also available in: Unified diff