← Back to branch summary

~ubuntu-branches/ubuntu/karmic/coccinelle/karmic

« back to all changes in this revision

Viewing changes to parsing_cocci/check_meta.ml

  • Committer: Bazaar Package Importer
  • Author(s): Євгеній Мещеряков
  • Date: 2009-05-11 15:32:24 UTC
  • mfrom: (1.1.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20090511153224-1odv41d4dkr3y80v
Tags: 0.1.8.deb-2
Use common install Makefile target for both native and bytecode
build. This hopefully fixes FTBFS on bytecode archs 

Show diffs side-by-side

added added

removed removed

Lines of Context:
parsing_cocci/check_meta.ml
35
35
 
36
36
let warning s = Printf.fprintf stderr "warning: %s\n" s
37
37
 
38
 
let promote name = (name,(),Ast0.default_info(),(),None)
 
38
let promote name = (name,(),Ast0.default_info(),(),None,-1)
39
39
 
40
40
(* --------------------------------------------------------------------- *)
41
41
 
45
45
    | x::xs -> (try Hashtbl.find x name with Not_found -> loop xs) in
46
46
  loop table
47
47
 
48
 
let check_table table minus (name,_,info,_,_) =
 
48
let check_table table minus (name,_,info,_,_,_) =
49
49
  let rl = info.Ast0.pos_info.Ast0.line_start in
50
50
  if minus
51
51
  then
83
83
 
84
84
let ident context old_metas table minus i =
85
85
  match Ast0.unwrap i with
86
 
    Ast0.Id((name,_,info,_,_) : string Ast0.mcode) ->
 
86
    Ast0.Id((name,_,info,_,_,_) : string Ast0.mcode) ->
87
87
      let rl = info.Ast0.pos_info.Ast0.line_start in
88
88
      let err =
89
89
        if List.exists (function x -> x = name) old_metas