diff options
| -rw-r--r-- | cfrontend/CPragmas.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/cfrontend/CPragmas.ml b/cfrontend/CPragmas.ml index c074632..0c93217 100644 --- a/cfrontend/CPragmas.ml +++ b/cfrontend/CPragmas.ml @@ -67,6 +67,9 @@ let process_pragma name = | ["section"; classname; istring; ustring; addrmode; accmode] -> process_section_pragma classname istring ustring addrmode accmode; true + | ["section"; classname; istring; ustring; accmode] -> + process_section_pragma classname istring ustring "" accmode; + true | "section" :: _ -> C2C.error "ill-formed `section' pragma"; true | "use_section" :: classname :: identlist -> |