changed the prototype of hcl_pfimpl_t to accept a hcl_mod_t* pointer

2018-02-28 04:52:01 +00:00
parent 9c6ce5df9c
commit 8bcade7a2e
10 changed files with 47 additions and 37 deletions
--- a/hcl/lib/exec.c
+++ b/hcl/lib/exec.c
@ -972,7 +972,7 @@ static HCL_INLINE int call_primitive (hcl_t* hcl, hcl_ooi_t nargs)
 		return -1;
 	}

-	return ((hcl_pfimpl_t)rcv->slot[0]) (hcl, nargs);
+	return ((hcl_pfimpl_t)rcv->slot[0]) (hcl, (hcl_mod_t*)rcv->slot[4], nargs);
 }

 /* ------------------------------------------------------------------------- */