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

Revert "add SCM_HEAP_OBJECT_BASE"

Browse source 
This reverts commit 47ed8656db.

Conflicts:

	libguile/foreign.c
This commit is contained in:
Andy Wingo 2012-01-31 22:58:24 +01:00
parent 3bf3d735ac
commit 0aed71aa51
14 changed files with 28 additions and 44 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/bytevectors.c
View file

@ -333,7 +333,7 @@ scm_c_shrink_bytevector (SCM bv, size_t c_new_len)
SCM_BYTEVECTOR_SET_LENGTH (bv, c_new_len);
if (SCM_BYTEVECTOR_CONTIGUOUS_P (bv))
new_bv = SCM_PACK_POINTER (scm_gc_realloc (SCM_HEAP_OBJECT_BASE (bv),
new_bv = PTR2SCM (scm_gc_realloc (SCM2PTR (bv),
c_len + SCM_BYTEVECTOR_HEADER_BYTES,
c_new_len + SCM_BYTEVECTOR_HEADER_BYTES,
SCM_GC_BYTEVECTOR));