CLEANUP: Avoid UBSAN error

Test for arity > 0
SWI-Prolog · May 5, 2024 · b2311c0 · b2311c0
1 parent bcca31e
commit b2311c0
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/pl-comp.c b/src/pl-comp.c
@@ -1953,8 +1953,8 @@ left-to-right.
   if ( flags & (SSU_COMMIT_CLAUSE|SSU_CHOICE_CLAUSE) )
     Output_0(ci, I_CHP);
 
-  if ( head )
-  { int n;
+  if ( head && ci->arity)
+  { size_t n;
     Word arg;
 
     for ( arg = argTermP(*head, 0), n = 0; n < ci->arity; n++, arg++ )