Project

General

Profile

« Previous | Next » 

Revision 20d354f4

Added by Arnaud Dieumegard over 3 years ago

Update of types fields names

View differences:

src/backends/VHDL/mini_vhdl_utils.ml
15 15
let rec get_ports: vhdl_port_t list -> vhdl_port_mode_t -> vhdl_port_t list= 
16 16
  fun l -> fun m -> match l with 
17 17
    | [] -> [] 
18
    | hd::tl -> if hd.mode = m then hd::(get_ports tl m) else get_ports tl m
18
    | hd::tl -> if hd.port_mode = m then hd::(get_ports tl m) else get_ports tl m
19 19

  
20 20
let rec get_ports_pos: vhdl_port_t list -> vhdl_port_mode_t -> int -> int list= 
21 21
  fun l -> fun m -> fun index -> match l with 
22 22
    | [] -> []
23
    | hd::tl -> if hd.mode = m then index::(get_ports_pos tl m (index+1)) else get_ports_pos tl m (index+1)
23
    | hd::tl -> if hd.port_mode = m then index::(get_ports_pos tl m (index+1)) else get_ports_pos tl m (index+1)
24 24

  
25
let get_names : vhdl_port_t -> vhdl_name_t list= fun x -> x.names
25
let get_names : vhdl_port_t -> vhdl_name_t list= fun x -> x.port_names
26 26

  
27 27
let rec duplicates l1=
28 28
  match l1 with

Also available in: Unified diff