mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Revert "Cheaper fluid-ref cache"

Browse source 
This reverts commit cd3ff33a31.
This commit is contained in:
Andy Wingo 2017-02-17 10:54:21 +01:00
parent d0934df1f2
commit 60035b66c7
2 changed files with 14 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/cache-internal.h
View file

@ -37,7 +37,6 @@ struct scm_cache_entry
{
scm_t_bits key;
scm_t_bits value;
int needs_flush;
};
#define SCM_CACHE_SIZE 8
@ -74,7 +73,6 @@ scm_cache_evict_1 (struct scm_cache *cache, struct scm_cache_entry *evicted)
sizeof (cache->entries[0]) * idx);
cache->entries[0].key = 0;
cache->entries[0].value = 0;
cache->entries[0].needs_flush = 0;
}
static inline struct scm_cache_entry*
@ -91,7 +89,7 @@ scm_cache_lookup (struct scm_cache *cache, SCM k)
static inline void
scm_cache_insert (struct scm_cache *cache, SCM k, SCM v,
struct scm_cache_entry *evicted, int needs_flush)
struct scm_cache_entry *evicted)
{
struct scm_cache_entry *entry;
@ -101,7 +99,6 @@ scm_cache_insert (struct scm_cache *cache, SCM k, SCM v,
if (entry->key == SCM_UNPACK (k))
{
entry->value = SCM_UNPACK (v);
entry->needs_flush = needs_flush;
return;
}
memmove (cache->entries,
@ -109,7 +106,6 @@ scm_cache_insert (struct scm_cache *cache, SCM k, SCM v,
(entry - cache->entries) * sizeof (*entry));
entry->key = SCM_UNPACK (k);
entry->value = SCM_UNPACK (v);
entry->needs_flush = needs_flush;
}
#endif /* SCM_CACHE_INTERNAL_H */