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

* weaks.h (scm_weak_vectors, scm_weaks_prehistory): Added

Browse source 
declarations.
This commit is contained in:
Mikael Djurfeldt 2000-04-21 23:14:19 +00:00
parent d662820a70
commit 56a68067d4
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/weaks.h
View file

@ -2,7 +2,7 @@
#ifndef WEAKSH #ifndef WEAKSH
#define WEAKSH #define WEAKSH
/* Copyright (C) 1995,1996 Free Software Foundation, Inc. /* Copyright (C) 1995,1996, 2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by
@ -59,6 +59,8 @@
#define SCM_IS_WHVEC_ANY(X) (SCM_UNPACK (SCM_VELTS(X)[-1]) != 0) #define SCM_IS_WHVEC_ANY(X) (SCM_UNPACK (SCM_VELTS(X)[-1]) != 0)
#define SCM_WVECT_GC_CHAIN(X) (SCM_VELTS(X)[-2]) #define SCM_WVECT_GC_CHAIN(X) (SCM_VELTS(X)[-2])
extern SCM scm_weak_vectors;
extern SCM scm_make_weak_vector (SCM k, SCM fill); extern SCM scm_make_weak_vector (SCM k, SCM fill);
@ -70,6 +72,7 @@ extern SCM scm_make_doubly_weak_hash_table (SCM k);
extern SCM scm_weak_key_hash_table_p (SCM x); extern SCM scm_weak_key_hash_table_p (SCM x);
extern SCM scm_weak_value_hash_table_p (SCM x); extern SCM scm_weak_value_hash_table_p (SCM x);
extern SCM scm_doubly_weak_hash_table_p (SCM x); extern SCM scm_doubly_weak_hash_table_p (SCM x);
extern void scm_weaks_prehistory (void);
extern void scm_init_weaks (void); extern void scm_init_weaks (void);
#endif /* WEAKSH */ #endif /* WEAKSH */