From c3eee8e333866d92e5fd94ae83cef618758c11bb Mon Sep 17 00:00:00 2001
From: Markus Uhlin <markus@nifty-networks.net>
Date: Mon, 15 Sep 2025 18:50:32 +0200
Subject: FICS RPBLC v1.4.6

---
 FICS/rmalloc.c | 97 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 97 insertions(+)
 create mode 100644 FICS/rmalloc.c

(limited to 'FICS/rmalloc.c')

diff --git a/FICS/rmalloc.c b/FICS/rmalloc.c
new file mode 100644
index 0000000..0a8f46d
--- /dev/null
+++ b/FICS/rmalloc.c
@@ -0,0 +1,97 @@
+/* rmalloc.c
+ *
+ */
+
+/*
+    fics - An internet chess server.
+    Copyright (C) 1993  Richard V. Nash
+
+    This program is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 2 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+*/
+
+/* Revision history:
+   name		email		yy/mm/dd	Change
+   Richard Nash                 93/10/22	Created
+   Markus Uhlin                 23/12/20	Revised
+*/
+
+
+#include "stdinclude.h"
+#include "common.h"
+
+#include "rmalloc.h"
+
+PUBLIC unsigned int	allocated_size = 0;
+PUBLIC unsigned int	malloc_count = 0;
+PUBLIC unsigned int	free_count = 0;
+
+PUBLIC void *
+rmalloc(int byteSize)
+{
+	void *newptr;
+
+#ifdef HASMALLOCSIZE
+	allocated_size += byteSize;
+#endif
+
+	malloc_count++;
+
+	if ((newptr = malloc(byteSize)) == NULL) {
+		fprintf(stderr, "Out of memory in %s()!\n", __func__);
+		abort();
+	}
+
+	return newptr;
+}
+
+PUBLIC void *
+rrealloc(void *ptr, int byteSize)
+{
+#ifdef HASMALLOCSIZE
+	allocated_size += (byteSize - malloc_size(ptr));
+#endif
+
+	if (ptr == NULL) {
+		fprintf(stderr, "Hoser! Null ptr passed to %s()!\n", __func__);
+		return NULL;
+	} else {
+		void *newptr;
+
+		if ((newptr = realloc(ptr, byteSize)) == NULL) {
+			fprintf(stderr, "Out of memory in %s()!\n", __func__);
+			abort();
+		}
+
+		return newptr;
+	}
+}
+
+PUBLIC void
+rfree(void *ptr)
+{
+#ifdef HASMALLOCSIZE
+	allocated_size = (allocated_size - malloc_size(ptr));
+#endif
+
+	if (ptr == NULL) {
+		fprintf(stderr, "Hoser! Null ptr passed to %s()!\n", __func__);
+	} else {
+		free_count++;
+		free(ptr);
+	}
+}
+
+PUBLIC void
+strfree(char *string)
+{
+	if (string != NULL)
+		rfree(string);
+}
-- 
cgit v1.2.3