:art: Use transparent union

diff --git a/include/env/env.h b/include/env/env.h
index b07f2f87ac84980077a5b414a15907479d287a70..7bac4e9ba2866f58dcc1cb7d356aa3e9e69503af 100644 (file)
--- a/include/env/env.h
+++ b/include/env/env.h
@@ -51,7 +51,7 @@ ANN void env_add_type(const Env, const Type);
 ANN Type find_type(const Env, Type_Decl*);
 ANN m_bool already_defined(const Env env, const Symbol s, const loc_t pos);
 ANN m_bool type_engine_check_prog(const Env, const Ast);
-ANN m_bool type_engine_clean_prog(const Env, const m_bool*);
+ANN m_bool type_engine_clean_prog(const Env, m_bool*);
 ANN m_bool traverse_func_template(const Env, const Func_Def);
 ANN2(1,3) void env_err(const Env, const loc_t pos, const m_str fmt, ...);
 ANN Value global_string(const Env env, const m_str str);

diff --git a/include/pass.h b/include/pass.h
index b0c50efd52899c1b5dcc51abc5b0031e8862ccdb..60f21f138b43b35ff5a7697cce62cca1c7712c5e 100644 (file)
--- a/include/pass.h
+++ b/include/pass.h
@@ -11,7 +11,7 @@ struct Passes_ {
   struct Vector_ vec;
 };
 // change this to gwion ?
-typedef m_bool (*compilation_pass)(Env, PassArg);
+typedef m_bool (*compilation_pass)(const Env, PassArg);
 
 ANEW ANN struct Passes_* new_passes(MemPool mp);
 ANN void free_passes(MemPool mp, struct Passes_*);