* src/dynlib.c (dynlib_close): #ifdef out for now, as it’s not used.
* src/eval.c, src/lisp.h (lisp_eval_depth): Now static.
* src/module.c (Fmodule_load): Fix pointer signedness bug.
(Fmodule_call): Tell GCC that the default case is unreachable.
return dlerror ();
}
+/* FIXME: Currently there is no way to unload a module, so this
+ function is never used. */
+#if false
int
dynlib_close (dynlib_handle_ptr h)
{
return dlclose (h) == 0;
}
+#endif
#else
/* Depth in Lisp evaluations and function calls. */
-EMACS_INT lisp_eval_depth;
+static EMACS_INT lisp_eval_depth;
/* The value of num_nonmacro_input_events as of the last time we
started to enter the debugger. If we decide to enter the debugger
}
/* Defined in eval.c. */
-extern EMACS_INT lisp_eval_depth;
extern Lisp_Object Vautoload_queue;
extern Lisp_Object Vrun_hooks;
extern Lisp_Object Vsignaling_function;
void *gpl_sym;
CHECK_STRING (file);
- handle = dynlib_open (SDATA (file));
+ handle = dynlib_open (SSDATA (file));
if (!handle)
error ("Cannot load file %s: %s", SDATA (file), dynlib_error ());
finalize_environment (&env);
Fthrow (tag, value);
}
+ default:
+ eassume (false);
}
}