File tree Expand file tree Collapse file tree 2 files changed +18
-6
lines changed Expand file tree Collapse file tree 2 files changed +18
-6
lines changed Original file line number Diff line number Diff line change 38663866 </fundec >
38673867 </file >
38683868
3869- $ echo ' struct foo {int x;};' | dune exec ctoxml
3869+ $ echo ' struct foo {int x;};' | ctoxml
38703870 <?xml version="1.0" encoding="iso-8859-1" standalone="yes"? >
38713871 <file >
38723872 <struct id="struct:foo" >
38893889 </fundec >
38903890 </file >
38913891
3892- $ echo ' const volatile int n;' | dune exec ctoxml
3892+ $ echo ' const volatile int n;' | ctoxml
38933893 <?xml version="1.0" encoding="iso-8859-1" standalone="yes"? >
38943894 <file >
38953895 <var id="n" store="auto" >
54485448 </fundef >
54495449 </file >
54505450
5451- $ echo ' void fn(char xs[const static volatile]) {}' | dune exec ctoxml --
5451+ $ echo ' void fn(char xs[const static volatile]) {}' | ctoxml --
54525452 <?xml version="1.0" encoding="iso-8859-1" standalone="yes"? >
54535453 <file >
54545454 <fundef id="fn" store="auto" >
54725472 </body >
54735473 </fundef >
54745474 </file >
5475- $ echo ' void fn(char xs[const static volatile 10]) {}' | dune exec ctoxml --
5475+ $ echo ' void fn(char xs[const static volatile 10]) {}' | ctoxml
54765476 <?xml version="1.0" encoding="iso-8859-1" standalone="yes"? >
54775477 <file >
54785478 <fundef id="fn" store="auto" >
54965496 </body >
54975497 </fundef >
54985498 </file >
5499+
5500+ $ echo ' struct s {int : 32;};' | ctoxml
5501+ <?xml version="1.0" encoding="iso-8859-1" standalone="yes"? >
5502+ <file >
5503+ <struct id="struct:s" >
5504+ <field name="" >
5505+ <bits >
5506+ <int >32</int >
5507+ </bits >
5508+ </field >
5509+ </struct >
5510+ </file >
Original file line number Diff line number Diff line change @@ -589,8 +589,8 @@ field_dec:
589589 {(fst $ 2 , set_type (PROTO (NO_TYPE , fst $ 5 , snd $ 5 )) (snd $ 2 ))}
590590 | LPAREN field_dec RPAREN
591591 {$ 2 }
592- | IDENT COLON expression
593- {($ 1 , BITFIELD (NO_SIGN , $ 3 ))}
592+ | IDENT ? COLON expression
593+ {(( match $ 1 with None -> " " | Some x -> x) , BITFIELD (NO_SIGN , $ 3 ))}
594594;
595595
596596
You can’t perform that action at this time.
0 commit comments