shithub: trueawk

Info  •  Files  •  Log  •  Branches

Fix 46 /= 7 bugaboo.

--- a/run.c

+++ b/run.c

@@ -1567,6 +1567,8 @@

 		xf *= yf;

 		break;

 	case DIVEQ:

+		if ((x->tval & CON) != 0)

+			FATAL("non-constant required for left side of /=");

 		if (yf == 0)

 			FATAL("division by zero in /=");

 		xf /= yf;

-- 

⑨