remove env vars

OCamlPro · Oct 24, 2024 · aa5d4f3 · aa5d4f3
1 parent 47f2f24
commit aa5d4f3
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 5 deletions.
diff --git a/cobc/cobc.c b/cobc/cobc.c
@@ -8320,8 +8320,6 @@ process_translate (struct filename *fn)
 		}
 	}
 
-	if (!dump_ast_to_file)
-		dump_ast_to_file = getenv("COB_DUMP_AST");
 	if (dump_ast_to_file)
 		cb_dump_ast_to_file (current_program, dump_ast_to_file, dump_ast_flags);
 

diff --git a/cobc/dump_ast.c b/cobc/dump_ast.c
@@ -229,11 +229,8 @@ void set_flags (const char* flags)
 
 void cb_dump_ast_to_file (struct cb_program *prog, const char *filename, const char* flags)
 {
-	char *env;
 	int close_fd = 1;
 
-	env = getenv ("COB_DUMP_AST_FLAGS");
-	if (env) set_flags (env);
 	if (flags) set_flags (flags);
 
 	if (!strcmp(filename, COB_DASH)){