From aa5d4f3572d857a08413e163f4bcb71af0292a86 Mon Sep 17 00:00:00 2001
From: Fabrice Le Fessant <fabrice.le_fessant@ocamlpro.com>
Date: Thu, 24 Oct 2024 18:53:07 +0200
Subject: [PATCH] remove env vars

---
 cobc/cobc.c     | 2 --
 cobc/dump_ast.c | 3 ---
 2 files changed, 5 deletions(-)

diff --git a/cobc/cobc.c b/cobc/cobc.c
index ada1bbf68..90d09ece8 100644
--- 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
index 9e8cc9b31..1e10802d9 100644
--- 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)){