:art: Remove useless functions

diff --git a/include/env.h b/include/env.h
index 6298292853724c33b55cd2c9f1dedb34ac6a7848..53ae30f96dfa8402d392a0c0caa38928e1411d13 100644 (file)
--- a/include/env.h
+++ b/include/env.h
@@ -48,7 +48,6 @@ ANN m_bool compat_func(const __restrict__ Func_Def, const __restrict__ Func_Def)
 ANN Type known_type(const Env env, const Type_Decl*);
 ANN m_bool env_access(const Env env, const ae_flag flag);
 ANN void env_storage(const Env env, ae_flag* flag);
-ANN2(1,2) void env_add_value(const Env, const m_str, const Type,       const m_bool, void*);
 ANN void env_add_type(const Env, const Type);
 ANN Type find_type(const Env, ID_List);
 ANN m_bool already_defined(const Env env, const Symbol s, const uint pos);

diff --git a/include/import.h b/include/import.h
index c27a6a1c3110fcdc9cf30a4aa4c10e1561ba75ff..a32d4591edab727f4c383df68460f11588900448 100644 (file)
--- a/include/import.h
+++ b/include/import.h
@@ -34,8 +34,6 @@ typedef struct Gwi_* Gwi;
 ANN VM* gwi_vm(const Gwi);
 ANN2(1,2) ANEW Type gwi_mk_type(const Gwi, const m_str, const m_uint, const Type);
 ANN m_int gwi_add_type(const Gwi gwi, Type type);
-ANN2(1,2,3)m_int gwi_add_value(const Gwi gwi, const m_str name, Type type, const m_bool is_const, void* data);
-
 ANN2(1,2)m_int gwi_class_ini(const Gwi gwi, const Type type, const f_xtor pre_ctor, const f_xtor dtor);
 ANN m_int gwi_class_ext(const Gwi gwi, Type_Decl* td);
 ANN m_int gwi_class_end(const Gwi gwi);

diff --git a/src/lib/import.c b/src/lib/import.c
index 233e53ecee69bce185e32f147c0c1b2141158d6f..397e6d3d64a37b6ea714e8bab018ca453c198945 100644 (file)
--- a/src/lib/import.c
+++ b/src/lib/import.c
@@ -636,8 +636,3 @@ ANN m_int gwi_enum_end(const Gwi gwi) {
   free_stmt(stmt);
   return GW_OK;
 }
-
-m_int gwi_add_value(Gwi gwi, const m_str name, Type type, const m_bool is_const, void* value) {
-  env_add_value(gwi->env, name, type, is_const, value);
-  return GW_OK;
-}

diff --git a/src/oo/env.c b/src/oo/env.c
index 88a0da91db0ba6e9faaeabe807be1e2a23f3462b..de50af360b9a93bf39816ebbaca0cbb833851a92 100644 (file)
--- a/src/oo/env.c
+++ b/src/oo/env.c
@@ -75,16 +75,6 @@ ANN void env_pop(const Env env, const m_uint scope) {
   env->scope = scope;
 }
 
-ANN2(1,2) void env_add_value(const Env env, const m_str name, const Type type,
-      const m_bool is_const, void* data) {
-  const Value v = new_value(env->gwion, type, name);
-  ae_flag flag = ae_flag_checked | ae_flag_global | ae_flag_builtin | (is_const ? ae_flag_const : 0);
-  v->flag = flag;
-  v->d.ptr = data;
-  v->owner = env->global_nspc;
-  nspc_add_value(env->global_nspc, insert_symbol(name), v);
-}
-
 ANN void env_add_type(const Env env, const Type type) {
   const Type v_type = type_copy(t_class);
   v_type->d.base_type = type;