diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2014-05-05 08:27:22 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2014-05-05 08:27:22 +0000 |
commit | dba806ca25b5bc53b744e2c1c2d72fa3d6cd8e05 (patch) | |
tree | efdded5c1b088beb82043d0bb2a7003726205ab2 /cparser/Cabshelper.ml | |
parent | f3a4e6b8796f8358ff85a7a50d1a14fe0e5642b1 (diff) | |
download | compcert-dba806ca25b5bc53b744e2c1c2d72fa3d6cd8e05.tar.gz compcert-dba806ca25b5bc53b744e2c1c2d72fa3d6cd8e05.zip |
Support for old-style K&R function definitions.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2478 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'cparser/Cabshelper.ml')
-rw-r--r-- | cparser/Cabshelper.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/cparser/Cabshelper.ml b/cparser/Cabshelper.ml index aa7a1175..7f411ad2 100644 --- a/cparser/Cabshelper.ml +++ b/cparser/Cabshelper.ml @@ -47,6 +47,7 @@ let rec isTypedef = function let get_definitionloc (d : definition) : cabsloc = match d with | FUNDEF(_, _, _, l) -> l + | KRFUNDEF(_, _, _, _, _, l) -> l | DECDEF(_, l) -> l | PRAGMA(_, l) -> l |