gcl.git - GNU Common Lisp

diff --git a/gcl/o/funlink.c b/gcl/o/funlink.c
index 89ab1fd29..49a086d30 100644
--- a/gcl/o/funlink.c
+++ b/gcl/o/funlink.c

@@ -341,7 +341,7 @@ call_proc_new(object sym,ufixnum clp,ufixnum vld,void **link,ufixnum argd,object

}

if (sSAprofilingA->s.s_dbind!=Cnil)

- sSin_call->s.s_gfdef->fun.fun_self(sym);

+ ((object (*)(object))sSin_call->s.s_gfdef->fun.fun_self)(sym);

if (fas) {

@@ -352,7 +352,7 @@ call_proc_new(object sym,ufixnum clp,ufixnum vld,void **link,ufixnum argd,object

}

if (sSAprofilingA->s.s_dbind!=Cnil)

- sSout_call->s.s_gfdef->fun.fun_self(fSgettimeofday());

+ ((object (*)(object))sSout_call->s.s_gfdef->fun.fun_self)(fSgettimeofday());

return(c_apply_n_fun(fun,x-tmp,tmp));

@@ -428,7 +428,7 @@ call_proc_new(object sym,ufixnum clp,ufixnum vld,void **link,ufixnum argd,object

}

if (sSAprofilingA->s.s_dbind!=Cnil)

- sSout_call->s.s_gfdef->fun.fun_self(fSgettimeofday());

+ ((object (*)(object))sSout_call->s.s_gfdef->fun.fun_self)(fSgettimeofday());

return res;