:art: Improve func checking

diff --git a/src/lib/func.c b/src/lib/func.c
index 258a7672d1d5b14e666b32df14a378c82af3cc50..ac8ea8ccf94cca12bedad2419b53f4dea05658b4 100644 (file)
--- a/src/lib/func.c
+++ b/src/lib/func.c
@@ -153,9 +153,9 @@ ANN static m_bool _check_lambda(const Env env, Exp_Lambda *l, const Func_Def def
   l->def->flag = def->flag;
   l->def->base->td = cpy_type_decl(env->gwion->mp, def->base->td);
   SET_FLAG(l->def, abstract); // mark as non immediate lambda
-  map_set(&env->curr->info->value->map, (m_uint)l->def->base, env->scope->depth);
-  const m_bool ret = traverse_func_def(env, l->def);
-  map_remove(&env->curr->info->value->map, (m_uint)l->def->base);
+  map_set(&env->curr->info->func->map, (m_uint)l->def->base, env->scope->depth);
+  const m_bool ret = check_traverse_fdef(env, l->def);
+  map_remove(&env->curr->info->func->map, (m_uint)l->def->base);
   CHECK_BB(ret)
   arg = l->def->base->args;
   while(arg) {

diff --git a/src/parse/check.c b/src/parse/check.c
index 2b7123f90c8060dc2b9aa74bdd3bcfa69aec8e0c..24519002acd8b3d8012877540eca1a2dcd0d141d 100644 (file)
--- a/src/parse/check.c
+++ b/src/parse/check.c
@@ -286,17 +286,22 @@ static inline Nspc value_owner(const Value v) {
   return v ? v->from->owner : NULL;
 }
 
-ANN static inline m_bool lambda_valid(const Env env, const Exp_Primary* exp) {
+ANN static m_bool lambda_valid(const Env env, const Exp_Primary* exp) {
   const Value val = exp->value;
   const Symbol sym = insert_symbol(val->name);
-  const vtype xid = (vtype)sym;
   const Vector vec = (Vector)&env->curr->info->value->ptr;
-  const m_uint scope = map_get(&env->curr->info->value->map, (m_uint)env->func->def->base) + 1;
-  if((val != (Value)map_get((Map)vector_back(vec), xid) && !nspc_lookup_value1(env->global_nspc, sym) &&
-    val != (Value)map_get((Map)vector_at(vec, vector_size(vec) - scope), xid)) &&
-    (val->from->owner_class && val->from->owner_class != env->class_def))
-      ERR_B(exp_self(exp)->pos, _("variable '%s' is not in lambda scope"), val->name)
-  return GW_OK;
+  const m_uint scope = map_get(&env->curr->info->func->map, (m_uint)env->func->def->base);
+  if(GET_FLAG(val, abstract))
+    return GW_OK;
+  if(val->from->owner_class && isa(val->from->owner_class, env->class_def) > 0)
+    return GW_OK;
+  const m_uint sz = vector_size(vec);
+  for(m_uint i = scope; i < sz; ++i) {
+    const Map map = (Map)vector_at(vec, i);
+    if(map_get(map, (m_uint)sym))
+      return GW_OK;
+  }
+  ERR_B(exp_self(exp)->pos, _("variable '%s' is not in lambda scope"), val->name)
 }
 
 ANN static Type prim_id_non_res(const Env env, const Symbol *data) {
@@ -503,22 +508,18 @@ ANN static inline Value template_get_ready(const Env env, const Value v, const m
       nspc_lookup_value1(v->from->owner, sym);
 }
 
-ANN static m_bool check_traverse_fdef(const Env env, const Func_Def fdef) {
+ANN m_bool check_traverse_fdef(const Env env, const Func_Def fdef) {
   struct Vector_ v = {};
-  if(env->func) {
-    m_uint scope = vector_size((Vector)&env->curr->info->value->ptr) > 1 ? (m_uint)nspc_lookup_value1(env->curr, (Symbol)env->func->def->base) + 1: 0;
-    if(scope) {
-      vector_init(&v);
-      for(m_uint i = 0; i < scope; ++i)
-        vector_add(&v, vector_pop((Vector)&env->curr->info->value->ptr));
-    }
-  }
+  const m_uint scope = env->scope->depth;
+  env->scope->depth = 1;
+  vector_init(&v);
+  while(vector_size((Vector)&env->curr->info->value->ptr) > 1)
+    vector_add(&v, vector_pop((Vector)&env->curr->info->value->ptr));
   const m_bool ret = traverse_func_def(env, fdef);
-  if(v.ptr) {
-    for(m_uint i = vector_size(&v) + 1; --i;)
-      vector_add((Vector)&env->curr->info->value->ptr, vector_at(&v, i-1));
-    vector_release(&v);
-  }
+  for(m_uint i = vector_size(&v) + 1; --i;)
+    vector_add((Vector)&env->curr->info->value->ptr, vector_at(&v, i-1));
+  vector_release(&v);
+  env->scope->depth = scope;
   return ret;
 }
 
@@ -1383,7 +1384,6 @@ ANN m_bool check_func_def(const Env env, const Func_Def f) {
   const Func former = env->func;
   env->func = func;
   ++env->scope->depth;
-  map_set(&env->curr->info->value->map, (m_uint)fdef->base, env->scope->depth);
   nspc_push_value(env->gwion->mp, env->curr);
   struct Op_Import opi = { };
   if(GET_FLAG(fdef, op)) {
@@ -1395,7 +1395,6 @@ ANN m_bool check_func_def(const Env env, const Func_Def f) {
     operator_resume(&opi);
   nspc_pop_value(env->gwion->mp, env->curr);
   --env->scope->depth;
-  map_remove(&env->curr->info->value->map, (m_uint)fdef->base);
   env->func = former;
   if(ret > 0)
     SET_FLAG(fdef, valid);

diff --git a/tests/error/function_used.gw b/tests/error/function_used.gw
index 65c4163bd8e374e777f5bbcf8e591e6ab2c31113..2fbbf696cd84118ba08fbabd0c5aa5990ee53fa6 100644 (file)
--- a/tests/error/function_used.gw
+++ b/tests/error/function_used.gw
@@ -1,3 +1,3 @@
-#! [contains] is already used by another value
- int i;
+#! [contains] has already been defined in the same scope
+int i;
 fun void i(){}