mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

I think the Sun compiler has chosen a perverse way to interpret

Browse source 
ANSI declarations combined with K&R definitions.  We'll
appease it a little bit.  But when it invades France, we fight.
* print.c (scm_iprlist): Change 'tlr' argument to an int.
* print.h (scm_iprlist): Here too.
* numbers.c (scm_divbigdig): Change definition to match
declaration in numbers.h.
* unif.c (scm_makflo): Change definition to match declaration in
unif.h.
This commit is contained in:
Jim Blandy 1997-01-07 23:42:35 +00:00
parent ae65f9f937
commit 805df3e8af
4 changed files with 12 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

13
libguile/numbers.c
View file

@ -998,11 +998,16 @@ scm_mulbig(x, nx, y, ny, sgn)
} }
/* Sun's compiler complains about the fact that this function has an
ANSI prototype in numbers.h, but a K&R declaration here, and the
two specify different promotions for the third argument. I'm going
to turn this into an ANSI declaration, and see if anyone complains
about it not being K&R. */
unsigned int unsigned int
scm_divbigdig(ds, h, div) scm_divbigdig(SCM_BIGDIG *ds,
SCM_BIGDIG *ds; scm_sizet h,
scm_sizet h; SCM_BIGDIG div)
SCM_BIGDIG div;
{ {
register unsigned long t2 = 0; register unsigned long t2 = 0;
while(h--) { while(h--) {

2
libguile/print.c
View file

@ -650,7 +650,7 @@ void
scm_iprlist (hdr, exp, tlr, port, pstate) scm_iprlist (hdr, exp, tlr, port, pstate)
char *hdr; char *hdr;
SCM exp; SCM exp;
char tlr; int tlr;
SCM port; SCM port;
scm_print_state *pstate; scm_print_state *pstate;
{ {

2
libguile/print.h
View file

@ -88,7 +88,7 @@ SCM scm_make_print_state SCM_P ((void));
void scm_free_print_state SCM_P ((SCM print_state)); void scm_free_print_state SCM_P ((SCM print_state));
extern void scm_intprint SCM_P ((long n, int radix, SCM port)); extern void scm_intprint SCM_P ((long n, int radix, SCM port));
extern void scm_ipruk SCM_P ((char *hdr, SCM ptr, SCM port)); extern void scm_ipruk SCM_P ((char *hdr, SCM ptr, SCM port));
extern void scm_iprlist SCM_P ((char *hdr, SCM exp, char tlr, SCM port, scm_print_state *pstate)); extern void scm_iprlist SCM_P ((char *hdr, SCM exp, int tlr, SCM port, scm_print_state *pstate));
extern void scm_prin1 SCM_P ((SCM exp, SCM port, int writingp)); extern void scm_prin1 SCM_P ((SCM exp, SCM port, int writingp));
extern void scm_iprin1 SCM_P ((SCM exp, SCM port, scm_print_state *pstate)); extern void scm_iprin1 SCM_P ((SCM exp, SCM port, scm_print_state *pstate));
extern SCM scm_write SCM_P ((SCM obj, SCM port)); extern SCM scm_write SCM_P ((SCM obj, SCM port));

3
libguile/unif.c
View file

@ -174,8 +174,7 @@ scm_vector_set_length_x (vect, len)
SCM SCM
scm_makflo (x) scm_makflo (float x)
float x;
{ {
SCM z; SCM z;
if (x == 0.0) if (x == 0.0)