Merge SVN 4904

OCamlPro · Sep 23, 2024 · 75d1eac · 75d1eac
1 parent 0b7bfb4
commit 75d1eac
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/cobc/tree.c b/cobc/tree.c
@@ -5795,9 +5795,6 @@ static cb_tree
 compare_field_literal (cb_tree e, int swap, cb_tree x,
 		enum cb_binary_op_op op, struct cb_literal *l)
 {
-	enum cb_binary_op_flag flag = cb_next_binary_op_flag;
-	cb_next_binary_op_flag = 0;
-
 	int	i, j, scale, fscale;
 	int	alph_lit, zero_val;
 	int	lit_start, lit_length, refmod_length;
@@ -5807,6 +5804,10 @@ compare_field_literal (cb_tree e, int swap, cb_tree x,
 	cob_u32_t		have_sign;
 	struct cb_reference	*rl;
 
+	enum cb_binary_op_flag flag = cb_next_binary_op_flag;
+
+	cb_next_binary_op_flag = 0;
+
 	/* LCOV_EXCL_START */
 	if (!CB_REFERENCE_P (x)) {
 		cobc_err_msg (_("call to '%s' with invalid parameter '%s'"),