Added the possibility to disable range-checks

1987-08-11 10:50:30 +00:00
parent d0b452373b
commit a7b7fa4162
8 changed files with 71 additions and 18 deletions
--- a/lang/m2/comp/main.c
+++ b/lang/m2/comp/main.c
@@ -39,6 +39,7 @@ int		nDEF, mDEF;
 int		pass_1;
 struct def 	*Defined;
 extern int 	err_occurred;
+extern int 	Roption;
 extern int	fp_used;		/* set if floating point used */
 struct node	*EmptyStatement;

@@ -89,6 +90,7 @@ Compile(src, dst)
 	AddStandards();
 	EmptyStatement = dot2leaf(Stat);
 	EmptyStatement->nd_symb = ';';
+	Roption = options['R'];
 #ifdef DEBUG
 	if (options['l']) {
 		LexScan();