From 97741a01323021ccec8b0b60c6f8318c88ac373a Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Mon, 13 Jul 2026 02:49:24 +0200
Subject: Fix ICE substracting pointers

---
 source/common.elna | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'source/common.elna')

diff --git a/source/common.elna b/source/common.elna
index 8bba90f..9e6a314 100644
--- a/source/common.elna
+++ b/source/common.elna
@@ -78,4 +78,17 @@ begin
 	return nil
 end
 
+(* Returns true or false depending whether two strings  are equal. *)
+proc string_compare*(lhs_pointer: ^Char; lhs_length: Word; rhs_pointer: String): Bool
+var
+	result: Bool
+begin
+	if lhs_length = rhs_pointer.length then
+		result := memcmp(lhs_pointer, rhs_pointer.ptr, lhs_length) = 0
+	else
+		result := false
+	end;
+	return result
+end
+
 end.
-- 
cgit v1.2.3