HCoop
/
bpt
/
coccinelle.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Release coccinelle-0.1.6
[bpt/coccinelle.git]
/
parsing_cocci
/
arity.ml
diff --git
a/parsing_cocci/arity.ml
b/parsing_cocci/arity.ml
index
56213c8
..
65863ec
100644
(file)
--- a/
parsing_cocci/arity.ml
+++ b/
parsing_cocci/arity.ml
@@
-33,7
+33,8
@@
let warning s = Printf.printf "warning: %s\n" s
let fail w str =
failwith
let fail w str =
failwith
- (Printf.sprintf "cocci line %d: %s" ((Ast0.get_info w).Ast0.line_start)
+ (Printf.sprintf "cocci line %d: %s"
+ ((Ast0.get_info w).Ast0.pos_info.Ast0.line_start)
str)
let make_opt_unique optfn uniquefn info tgt arity term =
str)
let make_opt_unique optfn uniquefn info tgt arity term =
@@
-79,7
+80,7
@@
let allopt l fn =
(* --------------------------------------------------------------------- *)
(* Mcode *)
(* --------------------------------------------------------------------- *)
(* Mcode *)
-let mcode2line (_,_,info,_,_) = info.Ast0.line_start
+let mcode2line (_,_,info,_,_) = info.Ast0.
pos_info.Ast0.
line_start
let mcode2arity (_,arity,_,_,_) = arity
let mcode x = x (* nothing to do ... *)
let mcode2arity (_,arity,_,_,_) = arity
let mcode x = x (* nothing to do ... *)