:art: Fix a few warnings

diff --git a/include/traverse.h b/include/traverse.h
index 4941b92baf3a30caea463be40b6a7a40ccbc19f7..18447fc7dda5c23bd4631e890ec6815350e6c7ea 100644 (file)
--- a/include/traverse.h
+++ b/include/traverse.h
@@ -1,6 +1,6 @@
 #ifndef __TRAVERSE
 #define __TRAVERSE
-ANN m_bool traverse_ast(const Env, const Ast*);
+ANN m_bool traverse_ast(const Env, Ast *const);
 ANN m_bool traverse_class_def(const Env, const Class_Def);
 ANN m_bool traverse_func_def(const Env, const Func_Def);
 ANN m_bool traverse_union_def(const Env, const Union_Def);

diff --git a/src/lib/prim.c b/src/lib/prim.c
index c9fc80c0fa75ec81185cf74886300f02c38353e1..fcaab1fad4bd66cab3bac8111f3b458c84c9bd6e 100644 (file)
--- a/src/lib/prim.c
+++ b/src/lib/prim.c
@@ -299,13 +299,13 @@ static OP_CHECK(opck_cast_f2i) {
   }
   return env->gwion->type[et_int];
 }
-
+/*
 ANN static void tofloat(Exp e, const m_int i) {
   e->exp_type = ae_exp_primary;
   e->d.prim.prim_type = ae_prim_float;
   e->d.prim.d.fnum = i;
 }
-
+*/
 static OP_CHECK(opck_cast_i2f) {
   Exp_Cast *cast = (Exp_Cast*)data;
   if(is_prim_int(cast->exp)) {

diff --git a/src/lib/ptr.c b/src/lib/ptr.c
index ce0ab9b1d6f60e8f78e41bfb706bdab067630feb..55c2495bc9e0305aa9934e5d3be93886a7cf2fdf 100644 (file)
--- a/src/lib/ptr.c
+++ b/src/lib/ptr.c
@@ -21,9 +21,8 @@ static m_bool ptr_access(const Env env, const Exp e) {
   ERR_B(e->pos, _("operand is %s"), access);
 }
 
-ANN static inline Type ptr_base(const Env env, const Type t) {
+ANN static inline Type ptr_base(const Type t) {
   return (Type)vector_front(&t->info->tuple->types);
-//  return known_type(env, *mp_vector_at(t->info->cdef->base.tmpl->call, Type_Decl*, 0));
 }
 
 static OP_CHECK(opck_ptr_assign) {
@@ -36,7 +35,7 @@ static OP_CHECK(opck_ptr_assign) {
   do {
     Type u = bin->rhs->type;
     do {
-      const Type base = ptr_base(env, u);
+      const Type base = ptr_base(u);
       if (isa(t, base) > 0) return bin->rhs->type;
     } while ((u = u->info->parent) && u->info->cdef->base.tmpl->call);
   } while ((t = t->info->parent));
@@ -54,7 +53,7 @@ static OP_EMIT(opem_ptr_assign) {
 
 static OP_CHECK(opck_ptr_deref) {
   const Exp_Unary *unary = (Exp_Unary *)data;
-  return ptr_base(env, unary->exp->type);
+  return ptr_base(unary->exp->type);
 }
 
 static OP_CHECK(opck_ptr_cast) {
@@ -73,7 +72,7 @@ static OP_CHECK(opck_ptr_cast) {
 static OP_CHECK(opck_ptr_implicit) {
   const struct Implicit *imp  = (struct Implicit *)data;
   const Exp              e    = imp->e;
-  const Type             base = ptr_base(env, imp->t);
+  const Type             base = ptr_base(imp->t);
   if (isa(e->type, base) > 0) {
     const m_str access = exp_access(e);
     if (access) ERR_N(e->pos, _("can't cast %s value to Ptr"), access);

diff --git a/src/lib/ugen.c b/src/lib/ugen.c
index d0e1f4250ab0e2d7be007fe4d87fe329d960dd4b..417e693a61cbfa53c46647b95f4c3916445ed476 100644 (file)
--- a/src/lib/ugen.c
+++ b/src/lib/ugen.c
@@ -373,11 +373,9 @@ ANN static UGen add_ugen(const Gwi gwi, struct ugen_importer *imp) {
 }
 
 static GWION_IMPORT(global_ugens) {
-  const VM *           vm       = gwi_vm(gwi);
+  VM *const vm       = gwi_vm(gwi);
   struct ugen_importer imp_hole = {vm, compute_mono, "blackhole", 1};
   const UGen           hole     = add_ugen(gwi, &imp_hole);
-  struct ugen_importer imp_dac  = {vm, dac_tick, "dac", vm->bbq->si->out};
-
   // dac needs to have *multi*
   const M_Object dac  = new_M_UGen(gwi->gwion);
   const UGen     u  = UGEN(dac);

diff --git a/src/parse/scan2.c b/src/parse/scan2.c
index 6a426cd85f6f788790a254aa6c8a82879e783a27..f706fe69c5960de427aef474cdc68a2d8247d7bc 100644 (file)
--- a/src/parse/scan2.c
+++ b/src/parse/scan2.c
@@ -46,7 +46,7 @@ ANN m_bool scan2_exp_decl(const Env env, const Exp_Decl *decl) {
   return ret;
 }
 
-ANN static m_bool scan2_args(const Env env, const Func_Def f) {
+ANN static m_bool scan2_args(const Func_Def f) {
   Arg_List   args   = f->base->args;
   const bool global = GET_FLAG(f->base, global);
   for(uint32_t i = 0; i < args->len; i++) {
@@ -80,7 +80,7 @@ ANN static Value scan2_func_assign(const Env env, const Func_Def d,
 ANN m_bool scan2_fptr_def(const Env env NUSED, const Fptr_Def fptr) {
   if (!tmpl_base(fptr->base->tmpl)) {
     const Func_Def def = fptr->type->info->func->def;
-    if (def->base->args) { RET_NSPC(scan2_args(env, def)) }
+    if (def->base->args) { RET_NSPC(scan2_args(def)) }
   } else
     set_tflag(fptr->type, tflag_ftmpl);
   return GW_OK;
@@ -514,7 +514,7 @@ m_bool scan2_fdef_std(const Env env, const Func_Def f, const Value overload) {
     CHECK_OB(func_create(env, f, overload, name));
   else
     f->base->func = base;
-  if (f->base->args) CHECK_BB(scan2_args(env, f));
+  if (f->base->args) CHECK_BB(scan2_args(f));
   if (!f->builtin && f->d.code) CHECK_BB(scan2_func_def_code(env, f));
   if (!base) {
     if (fbflag(f->base, fbflag_op)) CHECK_BB(scan2_func_def_op(env, f));

diff --git a/src/parse/traverse.c b/src/parse/traverse.c
index 4289cacbb7c6154d6628881bae6f45f74e4b20cd..04bd6351ef496f7facc420e882b910d32cb8ee80 100644 (file)
--- a/src/parse/traverse.c
+++ b/src/parse/traverse.c
@@ -3,7 +3,7 @@
 #include "gwion_env.h"
 #include "traverse.h"
 
-ANN m_bool traverse_ast(const Env env, const Ast *ast) {
+ANN m_bool traverse_ast(const Env env, Ast *const ast) {
   CHECK_BB(scan0_ast(env, ast));
   CHECK_BB(scan1_ast(env, ast));
   CHECK_BB(scan2_ast(env, ast));