From 0a4889609312fae3805cb8f9ed2cbcc80192c8f2 Mon Sep 17 00:00:00 2001
From: 1138-4EB <1138-4EB@users.noreply.github.com>
Date: Sat, 26 May 2018 21:26:13 +0200
Subject: fix 'occured' typo

---
 src/grt/grt-lib.ads       | 2 +-
 src/grt/grt-main.adb      | 2 +-
 src/grt/grt-processes.adb | 4 ++--
 src/grt/grt-signals.ads   | 2 +-
 4 files changed, 5 insertions(+), 5 deletions(-)

(limited to 'src/grt')

diff --git a/src/grt/grt-lib.ads b/src/grt/grt-lib.ads
index 5d0fdfa57..69c8a4c34 100644
--- a/src/grt/grt-lib.ads
+++ b/src/grt/grt-lib.ads
@@ -61,7 +61,7 @@ package Grt.Lib is
    procedure Ghdl_Direction_Check_Failed (Filename : Ghdl_C_String;
                                           Line: Ghdl_I32);
 
-   --  Program error has occured:
+   --  Program error has occurred:
    --  * configuration of an already configured block.
    procedure Ghdl_Program_Error (Filename : Ghdl_C_String;
                                  Line : Ghdl_I32;
diff --git a/src/grt/grt-main.adb b/src/grt/grt-main.adb
index 44abf5439..d50f8d7db 100644
--- a/src/grt/grt-main.adb
+++ b/src/grt/grt-main.adb
@@ -194,7 +194,7 @@ package body Grt.Main is
       if Expect_Failure then
          if Status >= 0 then
             Expect_Failure := False;
-            Error ("error expected, but none occured");
+            Error ("error expected, but none occurred");
          end if;
       else
          if Status < 0 then
diff --git a/src/grt/grt-processes.adb b/src/grt/grt-processes.adb
index 3b3581d3f..fade31bab 100644
--- a/src/grt/grt-processes.adb
+++ b/src/grt/grt-processes.adb
@@ -931,8 +931,8 @@ package body Grt.Processes is
 
       --  f) The following actions occur in the indicated order:
       --     2) For each process P, if P is currently sensitive to a signal S
-      --        and if an event has occured on S in this simulation cycle, then
-      --        P resumes.
+      --        and if an event has occurred on S in this simulation cycle,
+      --        then P resumes.
       if Current_Time = Process_First_Timeout then
          --  There are processes to awake.
          Tn := Last_Time;
diff --git a/src/grt/grt-signals.ads b/src/grt/grt-signals.ads
index faaede9b6..f14d74076 100644
--- a/src/grt/grt-signals.ads
+++ b/src/grt/grt-signals.ads
@@ -282,7 +282,7 @@ package Grt.Signals is
       --  If set, the signal is dumped in a GHW file.
       Is_Dumped : Boolean;
 
-      --  Set when an event occured.
+      --  Set when an event occurred.
       --  Only reset by GHW file dumper.
       RO_Event : Boolean;
 
-- 
cgit v1.2.3