From c92f4f52d97ce3df0aaa7eb6de50fef350b2054f Mon Sep 17 00:00:00 2001
From: herman ten brugge <hermantenbrugge@home.nl>
Date: Mon, 26 Jun 2023 11:19:41 +0200
Subject: [PATCH] Update pragma once for file operations

Use open/read/close instead of fopen/fread/fclose for tcc4tcl and ziptcc
---
 tccpp.c | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/tccpp.c b/tccpp.c
index 95519986..b95c63d4 100644
--- a/tccpp.c
+++ b/tccpp.c
@@ -1611,20 +1611,20 @@ bad_twosharp:
 static unsigned long long calc_file_hash(const char *filename)
 {
     unsigned long long hash = 14695981039346656037ull; // FNV_offset_basis;
-    FILE *fp = fopen (filename, "rb");
+    int fd = open (filename, O_RDONLY | O_BINARY);
 
-    if (fp == NULL)
+    if (fd < 0)
 	return 0;
     for (;;) {
         unsigned char temp[IO_BUF_SIZE];
-	int i, n = fread(temp, 1, sizeof(temp), fp);
+	int i, n = read(fd, temp, sizeof(temp));
 
 	if (n <= 0)
 	    break;
 	for (i = 0; i < n; i++)
 	    hash = hash * 1099511628211ull ^ temp[i]; // FNV_prime
     }
-    fclose(fp);
+    close(fd);
     return hash ? hash : 1ull;
 }
 #endif