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

* ports.c (scm_numptob): Make this an int, not an scm_sizet, to

Browse source 
avoid signed/unsigned comparisons.
* ports.h (scm_numptob): Change extern declaration to match.
(scm_current_load_port, scm_set_port_line_x,
scm_set_port_column_x): New prototypes.
This commit is contained in:
Jim Blandy 1998-09-05 16:50:24 +00:00
parent 952bedad0c
commit a1c95c454b
2 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/ports.c
View file

@ -73,7 +73,7 @@
* tags for smobjects (if you know a tag you can get an index and conversely).
*/
scm_ptobfuns *scm_ptobs;
scm_sizet scm_numptob;
int scm_numptob;
SCM

5
libguile/ports.h
View file

@ -142,7 +142,7 @@ typedef struct scm_ptobfuns
extern scm_ptobfuns *scm_ptobs;
extern scm_sizet scm_numptob;
extern int scm_numptob;
extern int scm_port_table_room;
@ -154,6 +154,7 @@ extern SCM scm_char_ready_p SCM_P ((SCM port));
extern SCM scm_current_input_port SCM_P ((void));
extern SCM scm_current_output_port SCM_P ((void));
extern SCM scm_current_error_port SCM_P ((void));
extern SCM scm_current_load_port SCM_P ((void));
extern SCM scm_set_current_input_port SCM_P ((SCM port));
extern SCM scm_set_current_output_port SCM_P ((SCM port));
extern SCM scm_set_current_error_port SCM_P ((SCM port));
@ -178,7 +179,9 @@ extern SCM scm_peek_char SCM_P ((SCM port));
extern SCM scm_unread_char SCM_P ((SCM cobj, SCM port));
extern char *scm_generic_fgets SCM_P ((SCM port, int *len));
extern SCM scm_port_line SCM_P ((SCM port));
extern SCM scm_set_port_line_x SCM_P ((SCM port, SCM line));
extern SCM scm_port_column SCM_P ((SCM port));
extern SCM scm_set_port_column_x SCM_P ((SCM port, SCM line));
extern SCM scm_port_filename SCM_P ((SCM port));
extern SCM scm_set_port_filename_x SCM_P ((SCM port, SCM filename));
extern void scm_prinport SCM_P ((SCM exp, SCM port, char *type));