← Back to branch summary

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

« back to all changes in this revision

Viewing changes to parsing_cocci/adjust_pragmas.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/adjust_pragmas.ml
10
10
    None -> None
11
11
  | Some(pragmas,data) -> Some (pragmas,Ast0.rewrap s (cont data))
12
12
 
13
 
let left_mcode (a,b,info,mcodekind,d) =
 
13
let left_mcode (a,b,info,mcodekind,d,e) =
14
14
  match (info.Ast0.strings_before,mcodekind) with
15
15
    ([],_) | (_,Ast0.PLUS) -> None
16
 
  | (l,_) -> Some(l,(a,b,{info with Ast0.strings_before = []},mcodekind,d))
 
16
  | (l,_) -> Some(l,(a,b,{info with Ast0.strings_before = []},mcodekind,d,e))
17
17
 
18
 
let right_mcode (a,b,info,mcodekind,d) =
 
18
let right_mcode (a,b,info,mcodekind,d,e) =
19
19
  match (info.Ast0.strings_after,mcodekind) with
20
20
    ([],_) | (_,Ast0.PLUS) -> None
21
 
  | (l,_) -> Some(l,(a,b,{info with Ast0.strings_after = []},mcodekind,d))
 
21
  | (l,_) -> Some(l,(a,b,{info with Ast0.strings_after = []},mcodekind,d,e))
22
22
 
23
23
let update_before pragmas (info,x) =
24
24
  ({info with Ast0.strings_before = pragmas @ info.Ast0.strings_before},