From b55ec4369167f64833d1b25d11c2f0cac89a0bfb Mon Sep 17 00:00:00 2001
From: fabern <10245680+fabern@users.noreply.github.com>
Date: Mon, 13 Oct 2025 08:42:39 +0200
Subject: [PATCH] Add PROTECT to dims

---
 src/wrappersc.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/wrappersc.c b/src/wrappersc.c
index cbb73e80..cbcd755e 100644
--- a/src/wrappersc.c
+++ b/src/wrappersc.c
@@ -224,11 +224,11 @@ extern SEXP biomee_f_C(
 
     // Dimensions
     int pDims[4] = {50, nt_annual_trans, 35, n_lu};
-    SEXP dims = allocVector(INTSXP, 4);
+    SEXP dims = PROTECT( allocVector(INTSXP, 4) );
     // INTEGER(dims) is a int* which we initialise with pDims
     memcpy(INTEGER(dims), pDims, 4 * sizeof(int));
     // Allocate 4D array
-    SEXP output_annual_cohort_tile = PROTECT(allocArray(REALSXP, dims));
+    SEXP output_annual_cohort_tile = PROTECT( allocArray(REALSXP, dims) );
 
     SEXP output_annual_aggregated  = PROTECT( allocMatrix(REALSXP, nt_annual, 71) );
     /****************/
@@ -263,7 +263,7 @@ extern SEXP biomee_f_C(
     SET_VECTOR_ELT(out_list, 2, output_annual_cohort_tile);
     SET_VECTOR_ELT(out_list, 3, output_annual_aggregated);
 
-    UNPROTECT(5);
+    UNPROTECT(6);
 
     return out_list;
 }