/* Always return symbol 't'. */
static emacs_value
-Fmod_test_return_t (emacs_env *env, int nargs, emacs_value args[], void *data)
+Fmod_test_return_t (emacs_env *env, ptrdiff_t nargs, emacs_value args[],
+ void *data)
{
return env->intern (env, "t");
}
}
static emacs_value
-Fmod_test_sum (emacs_env *env, int nargs, emacs_value args[], void *data)
+Fmod_test_sum (emacs_env *env, ptrdiff_t nargs, emacs_value args[], void *data)
{
intmax_t a = env->extract_integer (env, args[0]);
intmax_t b = env->extract_integer (env, args[1]);
/* Signal '(error 56). */
static emacs_value
-Fmod_test_signal (emacs_env *env, int nargs, emacs_value args[], void *data)
+Fmod_test_signal (emacs_env *env, ptrdiff_t nargs, emacs_value args[],
+ void *data)
{
assert (env->non_local_exit_check (env) == emacs_funcall_exit_return);
env->non_local_exit_signal (env, env->intern (env, "error"),
/* Throw '(tag 65). */
static emacs_value
-Fmod_test_throw (emacs_env *env, int nargs, emacs_value args[], void *data)
+Fmod_test_throw (emacs_env *env, ptrdiff_t nargs, emacs_value args[],
+ void *data)
{
assert (env->non_local_exit_check (env) == emacs_funcall_exit_return);
env->non_local_exit_throw (env, env->intern (env, "tag"),
/* Call argument function, catch all non-local exists and return
either normal result or a list describing the non-local exit. */
static emacs_value
-Fmod_test_non_local_exit_funcall (emacs_env *env, int nargs, emacs_value args[],
- void *data)
+Fmod_test_non_local_exit_funcall (emacs_env *env, ptrdiff_t nargs,
+ emacs_value args[], void *data)
{
assert (nargs == 1);
emacs_value result = env->funcall (env, args[0], 0, NULL);
/* Return a global referrence. */
static emacs_value
-Fmod_test_globref_make (emacs_env *env, int nargs, emacs_value args[],
+Fmod_test_globref_make (emacs_env *env, ptrdiff_t nargs, emacs_value args[],
void *data)
{
/* Make a big string and make it global. */
/* Return a copy of the argument string where every 'a' is replaced
with 'b'. */
static emacs_value
-Fmod_test_string_a_to_b (emacs_env *env, int nargs, emacs_value args[],
+Fmod_test_string_a_to_b (emacs_env *env, ptrdiff_t nargs, emacs_value args[],
void *data)
{
emacs_value lisp_str = args[0];
char large_unused_buffer[512];
};
-/* Associated finalizer. */
-static void
-finalizer (void *p)
-{
- if (p)
- free (p);
-}
-
/* Return a new user-pointer to a super_struct, with amazing_int set
to the passed parameter. */
static emacs_value
-Fmod_test_userptr_make (emacs_env *env, int nargs, emacs_value args[],
+Fmod_test_userptr_make (emacs_env *env, ptrdiff_t nargs, emacs_value args[],
void *data)
{
struct super_struct *p = calloc (1, sizeof *p);
/* Return the amazing_int of a passed 'user-pointer to a super_struct'. */
static emacs_value
-Fmod_test_userptr_get (emacs_env *env, int nargs, emacs_value args[], void *data)
+Fmod_test_userptr_get (emacs_env *env, ptrdiff_t nargs, emacs_value args[],
+ void *data)
{
struct super_struct *p = env->get_user_ptr (env, args[0]);
return env->make_integer (env, p->amazing_int);
/* Fill vector in args[0] with value in args[1]. */
static emacs_value
-Fmod_test_vector_fill (emacs_env *env, int nargs, emacs_value args[], void *data)
+Fmod_test_vector_fill (emacs_env *env, ptrdiff_t nargs, emacs_value args[],
+ void *data)
{
emacs_value vec = args[0];
emacs_value val = args[1];
/* Return whether all elements of vector in args[0] are 'eq' to value
in args[1]. */
static emacs_value
-Fmod_test_vector_eq (emacs_env *env, int nargs, emacs_value args[], void *data)
+Fmod_test_vector_eq (emacs_env *env, ptrdiff_t nargs, emacs_value args[],
+ void *data)
{
emacs_value vec = args[0];
emacs_value val = args[1];