Change type for is_for_loop from Rboolean to int.

luke · luke · commit f3568d907743 · 2025-02-26T22:08:43.000Z
git-svn-id: https://svn.r-project.org/R/trunk@87830 00db46b3-68df-0310-9c12-caf00c1e9a41
diff --git a/src/main/eval.c b/src/main/eval.c
@@ -7563,7 +7563,7 @@ static SEXP bcEval_loop(struct bcEval_locals *ploc)
     OP(PRINTVALUE, 0): PrintValue(BCNPOP()); NEXT();
     OP(STARTLOOPCNTXT, 2):
 	{
-	    Rboolean is_for_loop = GETOP();
+	    int is_for_loop = GETOP();
 	    R_bcstack_t *oldtop = R_BCNodeStackTop;
 	    RCNTXT *cntxt = BCNALLOC_CNTXT();
 	    int break_offset = GETOP();
@@ -7610,7 +7610,7 @@ static SEXP bcEval_loop(struct bcEval_locals *ploc)
 	}
     OP(ENDLOOPCNTXT, 1):
 	{
-	    Rboolean is_for_loop = GETOP();
+	    int is_for_loop = GETOP();
 	    if (is_for_loop) {
 		int offset = GET_FOR_LOOP_BCPROT_OFFSET();
 		DECLNK_stack(R_BCNodeStackBase + offset);

Original file line number	Diff line number	Diff line change
`@@ -7563,7 +7563,7 @@ static SEXP bcEval_loop(struct bcEval_locals *ploc)`
`7563`	`7563`	`OP(PRINTVALUE, 0): PrintValue(BCNPOP()); NEXT();`
`7564`	`7564`	`OP(STARTLOOPCNTXT, 2):`
`7565`	`7565`	`{`
`7566`		`- Rboolean is_for_loop = GETOP();`
	`7566`	`+ int is_for_loop = GETOP();`
`7567`	`7567`	`R_bcstack_t *oldtop = R_BCNodeStackTop;`
`7568`	`7568`	`RCNTXT *cntxt = BCNALLOC_CNTXT();`
`7569`	`7569`	`int break_offset = GETOP();`
`@@ -7610,7 +7610,7 @@ static SEXP bcEval_loop(struct bcEval_locals *ploc)`
`7610`	`7610`	`}`
`7611`	`7611`	`OP(ENDLOOPCNTXT, 1):`
`7612`	`7612`	`{`
`7613`		`- Rboolean is_for_loop = GETOP();`
	`7613`	`+ int is_for_loop = GETOP();`
`7614`	`7614`	`if (is_for_loop) {`
`7615`	`7615`	`int offset = GET_FOR_LOOP_BCPROT_OFFSET();`
`7616`	`7616`	`DECLNK_stack(R_BCNodeStackBase + offset);`