From b31b22d7eb5708d06a2c38cb3c0a7d7fc6f7c3f7 Mon Sep 17 00:00:00 2001
From: mikefc <coolbutuseless@users.noreply.github.com>
Date: Thu, 1 Feb 2024 09:01:19 +1000
Subject: [PATCH] Fix expected bytes from fread()

---
 src/R-yyjson-parse.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/R-yyjson-parse.c b/src/R-yyjson-parse.c
index 58a9403..15e5e7c 100644
--- a/src/R-yyjson-parse.c
+++ b/src/R-yyjson-parse.c
@@ -1961,7 +1961,7 @@ SEXP parse_from_gzfile_(SEXP filename_, SEXP parse_opts_) {
   
   fseek(fp, -4, SEEK_END);
   int32_t uncompressed_len;
-  size_t nbytes = fread(&uncompressed_len, 4, 1, fp);
+  size_t nbytes = fread(&uncompressed_len, 1, 4, fp);
   fclose(fp);
   if (nbytes != 4) {
     error("Couldn't read size from end of file: %s", filename);