let resolved_call_chain_param () = 
  ByAReference.iter 
    (fun var (n,l) -> 
       debug "[resolve chaincall of param] array -> %a:%a"
         pp_var_type var pp_chaincall l;
       by_array_reference var n l) ; 
  ByPReference.iter 
    (fun var (n,l) -> 
       debug "[resolve chaincall of param] ptr -> %a:%a"
         pp_var_type var pp_chaincall l;
       by_ptr_reference var n l)