| author | Camm Maguire <camm@transcendence.maguirefamily.org> | 2025年04月27日 10:54:59 -0400 |
|---|---|---|
| committer | Camm Maguire <camm@transcendence.maguirefamily.org> | 2025年04月27日 10:54:59 -0400 |
| commit | 1d1362e2b38eb7f4f07e7f983d7fcb55fe43f5e9 (patch) | |
| tree | be38e80af546eae3cceee515c30481490dd7c890 /gcl/o/funlink.c | |
| parent | 49cd106307bf75edc3f35bd476ebf6d84e8e139f (diff) | |
| download | gcl-c23.tar.gz | |
| -rw-r--r-- | gcl/o/funlink.c | 6 |
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; |