diff options
| author | Michael Schmidt <github@mschmidt.me> | 2018-06-04 14:47:16 +0200 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2018-08-02 10:29:44 +0200 |
| commit | d13f1e243ff5ac94ecfc64f2bd81ae5d1c33bfcc (patch) | |
| tree | e01d30310ccddee46fb854f7dc69e001447b91f6 /cparser/Lexer.mll | |
| parent | a2064197c9dc5578e6f0155b8d0cc9cb3eecef90 (diff) | |
| download | compcert-kvx-d13f1e243ff5ac94ecfc64f2bd81ae5d1c33bfcc.tar.gz compcert-kvx-d13f1e243ff5ac94ecfc64f2bd81ae5d1c33bfcc.zip | |
Various improvements in the wording of diagnostics.
Fix various typos in diagnostic messages and unified wording and
capitalization.
Bug 23850
Diffstat (limited to 'cparser/Lexer.mll')
| -rw-r--r-- | cparser/Lexer.mll | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/cparser/Lexer.mll b/cparser/Lexer.mll index cf8788c5..357c6c50 100644 --- a/cparser/Lexer.mll +++ b/cparser/Lexer.mll @@ -21,7 +21,7 @@ open Pre_parser_aux module SSet = Set.Make(String) let lexicon : (string, Cabs.cabsloc -> token) Hashtbl.t = Hashtbl.create 17 -let ignored_keyworkds : SSet.t ref = ref SSet.empty +let ignored_keywords : SSet.t ref = ref SSet.empty let () = List.iter (fun (key, builder) -> Hashtbl.add lexicon key builder) @@ -85,7 +85,7 @@ let () = ("while", fun loc -> WHILE loc)]; if Configuration.system <> "diab" then (* We can ignore the __extension__ GCC keyword. *) - ignored_keyworkds := SSet.add "__extension__" !ignored_keyworkds + ignored_keywords := SSet.add "__extension__" !ignored_keywords let init_ctx = SSet.singleton "__builtin_va_list" let types_context : SSet.t ref = ref init_ctx @@ -329,7 +329,7 @@ rule initial = parse | "," { COMMA(currentLoc lexbuf) } | "." { DOT(currentLoc lexbuf) } | identifier as id { - if SSet.mem id !ignored_keyworkds then + if SSet.mem id !ignored_keywords then initial lexbuf else try Hashtbl.find lexicon id (currentLoc lexbuf) |