aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--miscutils/bc.c14
1 files changed, 7 insertions, 7 deletions
diff --git a/miscutils/bc.c b/miscutils/bc.c
index 70db2ce3d..791275c8c 100644
--- a/miscutils/bc.c
+++ b/miscutils/bc.c
@@ -736,6 +736,7 @@ typedef struct BcProgram {
struct globals {
IF_FEATURE_BC_SIGNALS(smallint ttyin;)
IF_FEATURE_CLEAN_UP(smallint exiting;)
+ smallint in_read;
char sbgn;
char send;
@@ -5390,20 +5391,18 @@ static BcStatus bc_program_read(void)
BcParse parse;
BcVec buf;
BcInstPtr ip;
- size_t i;
- BcFunc *f = bc_program_func(BC_PROG_READ);
+ BcFunc *f;
- for (i = 0; i < G.prog.stack.len; ++i) {
- BcInstPtr *ip_ptr = bc_vec_item(&G.prog.stack, i);
- if (ip_ptr->func == BC_PROG_READ)
- return bc_error_nested_read_call();
- }
+ if (G.in_read)
+ return bc_error_nested_read_call();
+ f = bc_program_func(BC_PROG_READ);
bc_vec_pop_all(&f->code);
bc_char_vec_init(&buf);
sv_file = G.prog.file;
G.prog.file = NULL;
+ G.in_read = 1;
s = bc_read_line(&buf);
//if (s) goto io_err; - wrong, nonzero return means EOF, not error
@@ -5434,6 +5433,7 @@ static BcStatus bc_program_read(void)
exec_err:
bc_parse_free(&parse);
//io_err:
+ G.in_read = 0;
G.prog.file = sv_file;
bc_vec_free(&buf);
return s;