From 56a3b67137c75cb7e314b0a48f2f07a4da500fa1 Mon Sep 17 00:00:00 2001
From: Eric Kooistra <kooistra@astron.nl>
Date: Mon, 31 Oct 2022 09:18:31 +0100
Subject: [PATCH] Use <= instead of < in almost_equal(), so that delta can be 1
 in case of integer.

---
 libraries/base/common/src/vhdl/common_pkg.vhd | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/libraries/base/common/src/vhdl/common_pkg.vhd b/libraries/base/common/src/vhdl/common_pkg.vhd
index 530ec64856..55bf1da32e 100644
--- a/libraries/base/common/src/vhdl/common_pkg.vhd
+++ b/libraries/base/common/src/vhdl/common_pkg.vhd
@@ -674,7 +674,7 @@ PACKAGE BODY common_pkg IS
   
   FUNCTION almost_equal(a, b, delta : REAL) RETURN BOOLEAN IS
   BEGIN
-    IF ABS(a - b) < ABS(delta) THEN
+    IF ABS(a - b) <= ABS(delta) THEN
       RETURN TRUE;
     ELSE
       RETURN FALSE;
@@ -683,7 +683,7 @@ PACKAGE BODY common_pkg IS
 
   FUNCTION almost_equal(a, b, delta : INTEGER) RETURN BOOLEAN IS
   BEGIN
-    IF ABS(a - b) < ABS(delta) THEN
+    IF ABS(a - b) <= ABS(delta) THEN
       RETURN TRUE;
     ELSE
       RETURN FALSE;
-- 
GitLab