Project

General

Profile

« Previous | Next » 

Revision 2475c9e8

Added by Pierre-Loïc Garoche over 7 years ago

Refactored EMF backend. Handle now the call to existing math and conv libraries

View differences:

src/machine_code.ml
106 106 
  try
107 107 
    let (decl, _) = List.assoc id m.mcalls in
108 108 
    Corelang.node_of_top decl
109 
  with Not_found -> (
110 
    Format.eprintf "Unable to find node %s in list [%a]@.@?"
111 
      id
112 
      (Utils.fprintf_list ~sep:", " (fun fmt (n,_) -> Format.fprintf fmt "%s" n)) m.mcalls
113 
    ;
109 
  with Not_found -> (
110 
    (* Format.eprintf "Unable to find node %s in list [%a]@.@?" *)
111 
    (*   id *)
112 
    (*   (Utils.fprintf_list ~sep:", " (fun fmt (n,_) -> Format.fprintf fmt "%s" n)) m.mcalls *)
113 
    (* ; *)
114 114 
    raise Not_found
115 115 
  )
116 116

Also available in: Unified diff