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

Remove inline and register attributes from read.c

Browse source 
* libguile/read.c: Remove all 'inline' and 'register' attributes.
This commit is contained in:
Mark H Weaver 2012-02-08 03:00:15 -05:00
parent 58996e37bb
commit cfd15439b2
1 changed files with 12 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

24
libguile/read.c
View file

@ -142,13 +142,13 @@ SCM_DEFINE (scm_read_options, "read-options-interface", 0, 1, 0,
characters to procedures. */ characters to procedures. */
static SCM *scm_i_read_hash_procedures; static SCM *scm_i_read_hash_procedures;
static inline SCM static SCM
scm_i_read_hash_procedures_ref (void) scm_i_read_hash_procedures_ref (void)
{ {
return scm_fluid_ref (*scm_i_read_hash_procedures); return scm_fluid_ref (*scm_i_read_hash_procedures);
} }
static inline void static void
scm_i_read_hash_procedures_set_x (SCM value) scm_i_read_hash_procedures_set_x (SCM value)
{ {
scm_fluid_set_x (*scm_i_read_hash_procedures, value); scm_fluid_set_x (*scm_i_read_hash_procedures, value);
@ -197,7 +197,7 @@ scm_i_read_hash_procedures_set_x (SCM value)
|| ((_chr) == 'd') || ((_chr) == 'l')) || ((_chr) == 'd') || ((_chr) == 'l'))
/* Read an SCSH block comment. */ /* Read an SCSH block comment. */
static inline SCM scm_read_scsh_block_comment (scm_t_wchar, SCM); static SCM scm_read_scsh_block_comment (scm_t_wchar, SCM);
static SCM scm_read_r6rs_block_comment (scm_t_wchar, SCM); static SCM scm_read_r6rs_block_comment (scm_t_wchar, SCM);
static SCM scm_read_commented_expression (scm_t_wchar, SCM); static SCM scm_read_commented_expression (scm_t_wchar, SCM);
static SCM scm_read_shebang (scm_t_wchar, SCM); static SCM scm_read_shebang (scm_t_wchar, SCM);
@ -207,7 +207,7 @@ static SCM scm_get_hash_procedure (int);
result in the pre-allocated buffer BUF. Return zero if the whole token has result in the pre-allocated buffer BUF. Return zero if the whole token has
fewer than BUF_SIZE bytes, non-zero otherwise. READ will be set the number of fewer than BUF_SIZE bytes, non-zero otherwise. READ will be set the number of
bytes actually read. */ bytes actually read. */
static inline int static int
read_token (SCM port, char *buf, const size_t buf_size, size_t *read) read_token (SCM port, char *buf, const size_t buf_size, size_t *read)
{ {
*read = 0; *read = 0;
@ -286,7 +286,7 @@ read_complete_token (SCM port, char *buffer, const size_t buffer_size,
static int static int
flush_ws (SCM port, const char *eoferr) flush_ws (SCM port, const char *eoferr)
{ {
register scm_t_wchar c; scm_t_wchar c;
while (1) while (1)
switch (c = scm_getc (port)) switch (c = scm_getc (port))
{ {
@ -836,7 +836,7 @@ scm_read_syntax (int chr, SCM port)
return p; return p;
} }
static inline SCM static SCM
scm_read_nil (int chr, SCM port) scm_read_nil (int chr, SCM port)
{ {
SCM id = scm_read_mixed_case_symbol (chr, port); SCM id = scm_read_mixed_case_symbol (chr, port);
@ -849,7 +849,7 @@ scm_read_nil (int chr, SCM port)
return SCM_ELISP_NIL; return SCM_ELISP_NIL;
} }
static inline SCM static SCM
scm_read_semicolon_comment (int chr, SCM port) scm_read_semicolon_comment (int chr, SCM port)
{ {
int c; int c;
@ -990,7 +990,7 @@ scm_read_character (scm_t_wchar chr, SCM port)
} }
#undef FUNC_NAME #undef FUNC_NAME
static inline SCM static SCM
scm_read_keyword (int chr, SCM port) scm_read_keyword (int chr, SCM port)
{ {
SCM symbol; SCM symbol;
@ -1009,7 +1009,7 @@ scm_read_keyword (int chr, SCM port)
return (scm_symbol_to_keyword (symbol)); return (scm_symbol_to_keyword (symbol));
} }
static inline SCM static SCM
scm_read_vector (int chr, SCM port) scm_read_vector (int chr, SCM port)
{ {
/* Note: We call `scm_read_sexp ()' rather than READER here in order to /* Note: We call `scm_read_sexp ()' rather than READER here in order to
@ -1019,7 +1019,7 @@ scm_read_vector (int chr, SCM port)
return (scm_vector (scm_read_sexp (chr, port))); return (scm_vector (scm_read_sexp (chr, port)));
} }
static inline SCM static SCM
scm_read_srfi4_vector (int chr, SCM port) scm_read_srfi4_vector (int chr, SCM port)
{ {
return scm_i_read_array (port, chr); return scm_i_read_array (port, chr);
@ -1069,7 +1069,7 @@ scm_read_guile_bit_vector (scm_t_wchar chr, SCM port)
return scm_bitvector (scm_reverse_x (s_bits, SCM_EOL)); return scm_bitvector (scm_reverse_x (s_bits, SCM_EOL));
} }
static inline SCM static SCM
scm_read_scsh_block_comment (scm_t_wchar chr, SCM port) scm_read_scsh_block_comment (scm_t_wchar chr, SCM port)
{ {
int bang_seen = 0; int bang_seen = 0;
@ -1414,7 +1414,7 @@ scm_read_expression (SCM port)
{ {
while (1) while (1)
{ {
register scm_t_wchar chr; scm_t_wchar chr;
chr = scm_getc (port); chr = scm_getc (port);