diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2017-02-09 15:54:31 +0100 |
---|---|---|
committer | Bernhard Schommer <bschommer@users.noreply.github.com> | 2017-02-17 14:09:56 +0100 |
commit | 4a8f7dc7e9f3f57f08cca9ca2de19214cbe4dc77 (patch) | |
tree | df6c6de13d537ace13ef299187986d04a8c08971 /cparser/Checks.ml | |
parent | 201ca60922ede81a0861e76f9399fc400fafb440 (diff) | |
download | compcert-kvx-4a8f7dc7e9f3f57f08cca9ca2de19214cbe4dc77.tar.gz compcert-kvx-4a8f7dc7e9f3f57f08cca9ca2de19214cbe4dc77.zip |
Extended unused vars check for params.
The test now also checks whether the parameter are used at all in
the function body.
Bug 19872
Diffstat (limited to 'cparser/Checks.ml')
-rw-r--r-- | cparser/Checks.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/cparser/Checks.ml b/cparser/Checks.ml index 5ce51aba..dc08e254 100644 --- a/cparser/Checks.ml +++ b/cparser/Checks.ml @@ -167,5 +167,7 @@ let unused_variables p = | Gfundef fd -> let dec_env,used_env = vars_used_stmt (IdentMap.empty,IdentSet.empty) fd.fd_body in IdentMap.iter (fun id loc -> if not (IdentSet.mem id used_env) then - warning loc Unused_variable "unused variable '%s'" id.name) dec_env + warning loc Unused_variable "unused variable '%s'" id.name) dec_env; + List.iter (fun (id,_) -> if not (IdentSet.mem id used_env) then + warning g.gloc Unused_parameter "unused parameter '%s'" id.name) fd.fd_params | _ -> ()) p |