ports/math/sc/patches/patch-interp_c

30 lines
748 B
Text
Raw Normal View History

2023-08-16 22:26:55 +00:00
Index: interp.c
--- interp.c.orig
+++ interp.c
@@ -2066,7 +2066,7 @@ str_search(char *s, int firstrow, int firstcol, int la
*line = '\0';
}
}
- if (!col_hidden[c])
+ if (!col_hidden[c]) {
if (gs.g_type == G_STR) {
if (p && p->label
#if defined(REGCOMP)
@@ -2099,6 +2099,7 @@ str_search(char *s, int firstrow, int firstcol, int la
#endif
#endif
break;
+ }
if (r == endr && c == endc) {
error("String not found");
#if defined(REGCOMP)
@@ -2475,7 +2476,7 @@ constant(register struct enode *e)
e == NULL
|| e->op == O_CONST
|| e->op == O_SCONST
- || e->op == 'm' && constant(e->e.o.left)
+ || (e->op == 'm' && constant(e->e.o.left))
|| (
e->op != O_VAR
&& !(e->op & REDUCE)