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

* list.c (scm_list_n): Add #if SCM_DEBUG_CELL_ACCESSES_P around

Browse source 
validation.

	* read.c (scm_lreadparen): Removed.
	(scm_lreadparen1): Renamed scm_i_lreadparen.
This commit is contained in:
Neil Jerram 2004-02-20 22:04:24 +00:00
parent eb741d98e2
commit 1e55d28813
4 changed files with 16 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/ChangeLog
View file

@ -1,3 +1,11 @@
2004-02-20 Neil Jerram <neil@ossau.uklinux.net>
* list.c (scm_list_n): Add #if SCM_DEBUG_CELL_ACCESSES_P around
validation.
* read.c (scm_lreadparen): Removed.
(scm_lreadparen1): Renamed scm_i_lreadparen.
2004-02-20 Han-Wen Nienhuys <hanwen@xs4all.nl> 2004-02-20 Han-Wen Nienhuys <hanwen@xs4all.nl>
* list.c (scm_list_n): validate non-immediate arguments; * list.c (scm_list_n): validate non-immediate arguments;

3
libguile/list.c
View file

@ -90,9 +90,10 @@ scm_list_n (SCM elt, ...)
var_start (foo, elt); var_start (foo, elt);
while (! SCM_UNBNDP (elt)) while (! SCM_UNBNDP (elt))
{ {
#if (SCM_DEBUG_CELL_ACCESSES == 1)
if (SCM_NIMP (elt)) if (SCM_NIMP (elt))
SCM_VALIDATE_CELL(elt, 0); SCM_VALIDATE_CELL(elt, 0);
#endif
*pos = scm_cons (elt, SCM_EOL); *pos = scm_cons (elt, SCM_EOL);
pos = SCM_CDRLOC (*pos); pos = SCM_CDRLOC (*pos);
elt = va_arg (foo, SCM); elt = va_arg (foo, SCM);

18
libguile/read.c
View file

@ -298,7 +298,7 @@ skip_scsh_block_comment (SCM port)
static SCM scm_get_hash_procedure(int c); static SCM scm_get_hash_procedure(int c);
static SCM scm_lreadparen1 (SCM *, SCM, char *, SCM *, char); static SCM scm_i_lreadparen (SCM *, SCM, char *, SCM *, char);
static char s_list[]="list"; static char s_list[]="list";
static char s_vector[]="vector"; static char s_vector[]="vector";
@ -322,7 +322,7 @@ scm_lreadr (SCM *tok_buf, SCM port, SCM *copy)
case '(': case '(':
return SCM_RECORD_POSITIONS_P return SCM_RECORD_POSITIONS_P
? scm_lreadrecparen (tok_buf, port, s_list, copy) ? scm_lreadrecparen (tok_buf, port, s_list, copy)
: scm_lreadparen1 (tok_buf, port, s_list, copy, ')'); : scm_i_lreadparen (tok_buf, port, s_list, copy, ')');
case ')': case ')':
scm_input_error (FUNC_NAME, port,"unexpected \")\"", SCM_EOL); scm_input_error (FUNC_NAME, port,"unexpected \")\"", SCM_EOL);
goto tryagain; goto tryagain;
@ -331,7 +331,7 @@ scm_lreadr (SCM *tok_buf, SCM port, SCM *copy)
case '[': case '[':
if (SCM_ELISP_VECTORS_P) if (SCM_ELISP_VECTORS_P)
{ {
p = scm_lreadparen1 (tok_buf, port, s_vector, copy, ']'); p = scm_i_lreadparen (tok_buf, port, s_vector, copy, ']');
return SCM_NULLP (p) ? scm_nullvect : scm_vector (p); return SCM_NULLP (p) ? scm_nullvect : scm_vector (p);
} }
goto read_token; goto read_token;
@ -395,7 +395,7 @@ scm_lreadr (SCM *tok_buf, SCM port, SCM *copy)
switch (c) switch (c)
{ {
case '(': case '(':
p = scm_lreadparen1 (tok_buf, port, s_vector, copy, ')'); p = scm_i_lreadparen (tok_buf, port, s_vector, copy, ')');
return SCM_NULLP (p) ? scm_nullvect : scm_vector (p); return SCM_NULLP (p) ? scm_nullvect : scm_vector (p);
case 't': case 't':
@ -723,15 +723,9 @@ scm_read_token (int ic, SCM *tok_buf, SCM port, int weird)
_Pragma ("opt"); /* # pragma _CRI opt */ _Pragma ("opt"); /* # pragma _CRI opt */
#endif #endif
SCM
scm_lreadparen (SCM *tok_buf, SCM port, char *name, SCM *copy)
{
return scm_lreadparen1 (tok_buf, port, name, copy, ')');
}
static SCM static SCM
scm_lreadparen1 (SCM *tok_buf, SCM port, char *name, SCM *copy, char term_char) scm_i_lreadparen (SCM *tok_buf, SCM port, char *name, SCM *copy, char term_char)
#define FUNC_NAME "scm_lreadparen" #define FUNC_NAME "scm_i_lreadparen"
{ {
SCM tmp; SCM tmp;
SCM tl; SCM tl;

1
libguile/read.h
View file

@ -70,7 +70,6 @@ SCM_API int scm_flush_ws (SCM port, const char *eoferr);
SCM_API int scm_casei_streq (char * s1, char * s2); SCM_API int scm_casei_streq (char * s1, char * s2);
SCM_API SCM scm_lreadr (SCM * tok_buf, SCM port, SCM *copy); SCM_API SCM scm_lreadr (SCM * tok_buf, SCM port, SCM *copy);
SCM_API size_t scm_read_token (int ic, SCM * tok_buf, SCM port, int weird); SCM_API size_t scm_read_token (int ic, SCM * tok_buf, SCM port, int weird);
SCM_API SCM scm_lreadparen (SCM * tok_buf, SCM port, char *name, SCM *copy);
SCM_API SCM scm_lreadrecparen (SCM * tok_buf, SCM port, char *name, SCM *copy); SCM_API SCM scm_lreadrecparen (SCM * tok_buf, SCM port, char *name, SCM *copy);
SCM_API SCM scm_read_hash_extend (SCM chr, SCM proc); SCM_API SCM scm_read_hash_extend (SCM chr, SCM proc);
SCM_API void scm_init_read (void); SCM_API void scm_init_read (void);