mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

* smob.h (scm_ptobfuns, SCM_PTOBNUM): Definitions moved...

Browse source 
* ports.h: ... to here.

* ports.h (scm_port_table_size): Explicitly give type as 'int';
don't rely on archaic C default type rules.
This commit is contained in:
Jim Blandy 1996-09-10 02:29:07 +00:00
parent 981ed37ed4
commit 0f82baf6cd
1 changed files with 19 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

21
libguile/ports.h
View file

@ -45,7 +45,6 @@
#include "libguile/__scm.h" #include "libguile/__scm.h"
#include "smob.h"
@ -82,7 +81,7 @@ struct scm_port_table
}; };
extern struct scm_port_table **scm_port_table; extern struct scm_port_table **scm_port_table;
extern scm_port_table_size; /* Number of ports in scm_port_table. */ extern int scm_port_table_size; /* Number of ports in scm_port_table. */
@ -134,6 +133,24 @@ extern scm_port_table_size; /* Number of ports in scm_port_table. */
typedef struct scm_ptobfuns
{
SCM (*mark) ();
int (*free) ();
int (*print) ();
SCM (*equalp) ();
int (*fputc) ();
int (*fputs) ();
scm_sizet (*fwrite) ();
int (*fflush) ();
int (*fgetc) ();
int (*fclose) ();
} scm_ptobfuns;
#define SCM_PTOBNUM(x) (0x0ff & (SCM_CAR(x)>>8));
extern scm_ptobfuns *scm_ptobs; extern scm_ptobfuns *scm_ptobs;