Project

General

Profile

Revision 3d04f75e src/types.ml

View differences:

src/types.ml
198 198
  | Tstruct fl -> (try Some (List.assoc label fl) with Not_found -> None)
199 199
  | _          -> None
200 200

  
201
let is_real_type ty =
202
 match (repr ty).tdesc with
203
 | Treal -> true
204
 | _     -> false
205

  
201 206
let is_numeric_type ty =
202 207
 match (repr ty).tdesc with
203 208
 | Tint

Also available in: Unified diff