Add PROMSXP to notObj check in missing assumptions (#1292)

Co-authored-by: Michal Štěpánek <[email protected]>
reactorlabs · Jun 21, 2024 · 189a62b · 189a62b
1 parent f5c47de
commit 189a62b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/rir/src/compiler/native/builtins.cpp b/rir/src/compiler/native/builtins.cpp
@@ -1364,7 +1364,8 @@ static SEXP nativeCallTrampolineImpl(ArglistOrder::CallId callId, rir::Code* c,
     case TypeAssumption::Arg##__i__##IsNotObj_: {                              \
         auto a = loadArg(__i__);                                               \
         if (a == R_UnboundValue || a == R_MissingArg || Rf_isObject(a) ||      \
-            TYPEOF(a) == CLOSXP || TYPEOF(a) == ENVSXP)                        \
+            TYPEOF(a) == PROMSXP || TYPEOF(a) == CLOSXP ||                     \
+            TYPEOF(a) == ENVSXP)                                               \
             fail = true;                                                       \
         break;                                                                 \
     }