From 9c30a0663fbe3da5d85206ecfa539b0facbcc4a1 Mon Sep 17 00:00:00 2001
From: Maximilian Muecke <muecke.maximilian@gmail.com>
Date: Tue, 20 Oct 2026 09:41:29 +0200
Subject: [PATCH] dt_na: hoist COMPLEX_RO() out of the loop

---
 src/frank.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/frank.c b/src/frank.c
index 168c4ac7d9..f80cd9b7e9 100644
--- a/src/frank.c
+++ b/src/frank.c
@@ -59,7 +59,8 @@ SEXP dt_na(SEXP x, SEXP cols)
       break;
     case CPLXSXP: {
       // taken from https://github.com/wch/r-source/blob/d75f39d532819ccc8251f93b8ab10d5b83aac89a/src/main/coerce.c
-      for (int j=0; j<n; ++j) ians[j] |= (ISNAN(COMPLEX(v)[j].r) || ISNAN(COMPLEX(v)[j].i));
+      const Rcomplex *cv = COMPLEX_RO(v);
+      for (int j=0; j<n; ++j) ians[j] |= (ISNAN(cv[j].r) || ISNAN(cv[j].i));
     }
       break;
     case VECSXP: {