Fix compiler warning

PRL-PRG · Nov 13, 2024 · 8a065a5 · 8a065a5
1 parent 1f51b19
commit 8a065a5
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/client/rsh/src/bc2c/runtime.h b/client/rsh/src/bc2c/runtime.h
@@ -1423,7 +1423,7 @@ static INLINE void Rsh_StartAssign2(Value *rhs, Value *lhs_cell, Value *lhs_val,
                                     Value *rhs_dup, SEXP symbol, BCell *cache,
                                     SEXP rho) {
   SEXP cell = bcell_get_cache(symbol, rho, cache);
-  R_varloc_t loc;
+  R_varloc_t loc = R_findVarLoc(symbol, rho);
   if (cell == R_UnboundValue) {
     loc.cell = R_NilValue;
   }

diff --git a/client/rsh/src/bc2c/runtime_internals.h b/client/rsh/src/bc2c/runtime_internals.h
@@ -74,6 +74,7 @@ SEXP do_colon(SEXP call, SEXP op, SEXP args, SEXP rho);
 SEXP R_compact_intrange(R_xlen_t n1, R_xlen_t n2);
 SEXP do_seq_along(SEXP call, SEXP op, SEXP args, SEXP rho);
 SEXP do_seq_len(SEXP call, SEXP op, SEXP args, SEXP rho);
+R_varloc_t R_findVarLoc(SEXP rho, SEXP symbol);
 
 static INLINE SEXP Rsh_get_dim_attr(SEXP v) {
   SEXP attr = ATTRIB(v);