From 2a6ce4c14f79dffc389af94c18c525e4b2f03a96 Mon Sep 17 00:00:00 2001
From: fennecdjay <astor.jeremie@wanadoo.fr>
Date: Mon, 23 Sep 2019 16:45:24 +0200
Subject: [PATCH] :shirt: Remove compiler warnings

---
 include/specialid.h | 8 ++++----
 src/gwiondata.c     | 1 +
 src/lib/shred.c     | 1 +
 src/lib/string.c    | 7 ++++---
 src/parse/check.c   | 1 +
 5 files changed, 11 insertions(+), 7 deletions(-)

diff --git a/include/specialid.h b/include/specialid.h
index 13fe0e5f..3f92935c 100644
--- a/include/specialid.h
+++ b/include/specialid.h
@@ -3,8 +3,8 @@
 
 //typedef struct SpecialId_* SpecialId;
 struct SpecialId_;
-typedef Type (*idck)(const Env, Exp_Primary*);
-typedef Instr (*idem)(const Emitter, Exp_Primary*);
+typedef Type (*idck)(const Env, const Exp_Primary*);
+typedef Instr (*idem)(const Emitter, const Exp_Primary*);
 
 struct SpecialId_ {
   Type type;
@@ -14,8 +14,8 @@ struct SpecialId_ {
   m_bool is_const;
 };
 
-#define ID_CHECK(a)  ANN Type a(const Env env NUSED, Exp_Primary* prim NUSED)
-#define ID_EMIT(a)  ANN Instr a(const Emitter emit NUSED, Exp_Primary* prim NUSED)
+#define ID_CHECK(a)  ANN Type a(const Env env NUSED, const Exp_Primary* prim NUSED)
+#define ID_EMIT(a)  ANN Instr a(const Emitter emit NUSED, const Exp_Primary* prim NUSED)
 
 ANN static inline Type specialid_type(const Env env,
     struct SpecialId_ *spid, const Exp_Primary* prim) {
diff --git a/src/gwiondata.c b/src/gwiondata.c
index 11306a63..a8dc8468 100644
--- a/src/gwiondata.c
+++ b/src/gwiondata.c
@@ -6,6 +6,7 @@
 #include "vm.h"
 #include "instr.h"
 #include "gwion.h"
+#include "emit.h"
 #include "specialid.h"
 
 ANN GwionData* new_gwiondata(MemPool mp) {
diff --git a/src/lib/shred.c b/src/lib/shred.c
index da411adf..49a64918 100644
--- a/src/lib/shred.c
+++ b/src/lib/shred.c
@@ -12,6 +12,7 @@
 #include "gwion.h"
 #include "operator.h"
 #include "import.h"
+#include "emit.h"
 #include "specialid.h"
 
 static m_int o_fork_thread, o_shred_cancel, o_fork_done, o_fork_ev, o_fork_retsize, o_fork_retval, 
diff --git a/src/lib/string.c b/src/lib/string.c
index fbb3ecba..a0f08b87 100644
--- a/src/lib/string.c
+++ b/src/lib/string.c
@@ -13,6 +13,7 @@
 #include "gwion.h"
 #include "operator.h"
 #include "import.h"
+#include "emit.h"
 #include "specialid.h"
 #include "func.h"
 
@@ -173,10 +174,10 @@ static CTOR(string_ctor) {
 
 ANN Type prim_str(const Env, Exp_Primary *const);
 ID_CHECK(check_funcpp) {
-  prim->primary_type = ae_primary_str;
-  prim->d.str = env->func ? env->func->name : env->class_def ?
+  ((Exp_Primary*)prim)->primary_type = ae_primary_str;
+  ((Exp_Primary*)prim)->d.str = env->func ? env->func->name : env->class_def ?
     env->class_def->name : env->name;
-  return prim_str(env, prim);
+  return prim_str(env, (Exp_Primary * const)prim);
 }
 
 GWION_IMPORT(string) {
diff --git a/src/parse/check.c b/src/parse/check.c
index 9c8881bc..8f8389bf 100644
--- a/src/parse/check.c
+++ b/src/parse/check.c
@@ -20,6 +20,7 @@
 #include "match.h"
 #include "cpy_ast.h"
 #include "tuple.h"
+#include "emit.h"
 #include "specialid.h"
 
 ANN static Type   check_exp(const Env env, Exp exp);
-- 
2.43.0