procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Minor simplification of module_free_global_ref

Browse source 
* src/emacs-module.c (module_free_global_ref): Remove unused variable
'hashcode'.  Inline variable 'value' that's only used once.
This commit is contained in:
Philipp Stephani 2017-07-10 00:33:30 +02:00
parent 81131ff26f
commit ce6773aad5
1 changed files with 3 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/emacs-module.c
View file

@ -315,18 +315,13 @@ module_free_global_ref (emacs_env *env, emacs_value ref)
MODULE_FUNCTION_BEGIN ();
struct Lisp_Hash_Table *h = XHASH_TABLE (Vmodule_refs_hash);
Lisp_Object obj = value_to_lisp (ref);
EMACS_UINT hashcode;
ptrdiff_t i = hash_lookup (h, obj, &hashcode);
ptrdiff_t i = hash_lookup (h, obj, NULL);
if (i >= 0)
{
Lisp_Object value = HASH_VALUE (h, i);
EMACS_INT refcount = XFASTINT (value) - 1;
EMACS_INT refcount = XFASTINT (HASH_VALUE (h, i)) - 1;
if (refcount > 0)
{
value = make_natnum (refcount);
set_hash_value_slot (h, i, value);
}
set_hash_value_slot (h, i, make_natnum (refcount));
else
{
eassert (refcount == 0);