diff options
-rw-r--r-- | libguile/numbers.c | 13 | ||||
-rw-r--r-- | libguile/print.c | 2 | ||||
-rw-r--r-- | libguile/print.h | 2 | ||||
-rw-r--r-- | libguile/unif.c | 3 |
4 files changed, 12 insertions, 8 deletions
diff --git a/libguile/numbers.c b/libguile/numbers.c index 360527611..474fc4afd 100644 --- a/libguile/numbers.c +++ b/libguile/numbers.c @@ -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 -scm_divbigdig(ds, h, div) - SCM_BIGDIG *ds; - scm_sizet h; - SCM_BIGDIG div; +scm_divbigdig(SCM_BIGDIG *ds, + scm_sizet h, + SCM_BIGDIG div) { register unsigned long t2 = 0; while(h--) { diff --git a/libguile/print.c b/libguile/print.c index adc70482c..e15622607 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -650,7 +650,7 @@ void scm_iprlist (hdr, exp, tlr, port, pstate) char *hdr; SCM exp; - char tlr; + int tlr; SCM port; scm_print_state *pstate; { diff --git a/libguile/print.h b/libguile/print.h index cb326fb5b..d16d4f64d 100644 --- a/libguile/print.h +++ b/libguile/print.h @@ -88,7 +88,7 @@ SCM scm_make_print_state SCM_P ((void)); 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_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_iprin1 SCM_P ((SCM exp, SCM port, scm_print_state *pstate)); extern SCM scm_write SCM_P ((SCM obj, SCM port)); diff --git a/libguile/unif.c b/libguile/unif.c index 922101722..87be8a22d 100644 --- a/libguile/unif.c +++ b/libguile/unif.c @@ -174,8 +174,7 @@ scm_vector_set_length_x (vect, len) SCM -scm_makflo (x) - float x; +scm_makflo (float x) { SCM z; if (x == 0.0) |