mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 00:30:21 +02:00
Code Activity

* Some more work to get rid of SCM_LENGTH

Browse source 
* Eliminated some cell type bit fiddling
* Various minor changes
This commit is contained in:
Dirk Herrmann 2000-10-25 11:01:03 +00:00
parent 31535422f5
commit d1ca2c6423
25 changed files with 129 additions and 65 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/async.c
View file

@ -121,7 +121,7 @@ static long tc16_async;
#define VALIDATE_ASYNC(pos,a) SCM_MAKE_VALIDATE(pos, a, ASYNCP)
#define ASYNC_GOT_IT(X) (SCM_CELL_WORD_0 (X) >> 16)
#define SET_ASYNC_GOT_IT(X, V) (SCM_SET_CELL_WORD_0 (X, (SCM_CELL_WORD_0 (X) & ((1 << 16) - 1)) | ((V) << 16)))
#define SET_ASYNC_GOT_IT(X, V) (SCM_SET_CELL_WORD_0 ((X), SCM_TYP16 (X) | ((V) << 16)))
#define ASYNC_THUNK(X) SCM_CELL_OBJECT_1 (X)