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

* Removed unused type tag scm_tc7_lvector.

Browse source
This commit is contained in:
Dirk Herrmann 2000-09-22 18:33:24 +00:00
parent f151f91293
commit 1660782ecf
4 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
NEWS
View file

@ -160,9 +160,11 @@ scm_gensym now only takes one argument.
The builtin `gentemp' has now become a primitive. The builtin `gentemp' has now become a primitive.
** Deprecated type tags: scm_tc7_ssymbol, scm_tc7_msymbol, scm_tcs_symbols ** Deprecated type tags: scm_tc7_ssymbol, scm_tc7_msymbol, scm_tcs_symbols,
scm_tc7_lvector
There is now only a single symbol type scm_tc7_symbol. There is now only a single symbol type scm_tc7_symbol.
The tag scm_tc7_lvector was not used anyway.
Changes since Guile 1.3.4: Changes since Guile 1.3.4:

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2000-09-22 Dirk Herrmann <D.Herrmann@tu-bs.de>
* gc.c (scm_gc_mark, scm_gc_sweep), tags.h: Removed the
scm_tc7_lvector type tag.
2000-09-22 Dirk Herrmann <D.Herrmann@tu-bs.de> 2000-09-22 Dirk Herrmann <D.Herrmann@tu-bs.de>
* eval.c (scm_m_define), evalext.c (scm_m_undefine): Removed dead * eval.c (scm_m_define), evalext.c (scm_m_undefine): Removed dead

2
libguile/gc.c
View file

@ -1213,7 +1213,6 @@ gc_mark_nimp:
ptr = SCM_CDR (ptr); ptr = SCM_CDR (ptr);
goto gc_mark_nimp; goto gc_mark_nimp;
case scm_tc7_vector: case scm_tc7_vector:
case scm_tc7_lvector:
#ifdef CCLO #ifdef CCLO
case scm_tc7_cclo: case scm_tc7_cclo:
#endif #endif
@ -1608,7 +1607,6 @@ scm_gc_sweep ()
scm_must_free ((char *)(SCM_VELTS (scmptr) - 2)); scm_must_free ((char *)(SCM_VELTS (scmptr) - 2));
break; break;
case scm_tc7_vector: case scm_tc7_vector:
case scm_tc7_lvector:
#ifdef CCLO #ifdef CCLO
case scm_tc7_cclo: case scm_tc7_cclo:
#endif #endif

2
libguile/tags.h
View file

@ -348,11 +348,11 @@ typedef long scm_bits_t;
* of these 7 bit tags! * of these 7 bit tags!
*/ */
#define scm_tc7_pws 31 #define scm_tc7_pws 31
#define scm_tc7_lvector 39
#ifdef HAVE_ARRAYS #ifdef HAVE_ARRAYS
#define scm_tc7_llvect 29 #define scm_tc7_llvect 29
#define scm_tc7_uvect 37 #define scm_tc7_uvect 37
/* free 39 */
#define scm_tc7_fvect 45 #define scm_tc7_fvect 45
#define scm_tc7_dvect 47 #define scm_tc7_dvect 47
#define scm_tc7_cvect 53 #define scm_tc7_cvect 53