summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/numbers.c13
-rw-r--r--libguile/print.c2
-rw-r--r--libguile/print.h2
-rw-r--r--libguile/unif.c3
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)