From d13f1e243ff5ac94ecfc64f2bd81ae5d1c33bfcc Mon Sep 17 00:00:00 2001
From: Michael Schmidt <github@mschmidt.me>
Date: Mon, 4 Jun 2018 14:47:16 +0200
Subject: Various improvements in the wording of diagnostics.

Fix various typos in diagnostic messages and unified wording and
capitalization.
Bug 23850
---
 cparser/Lexer.mll | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'cparser/Lexer.mll')

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)
-- 
cgit