From 2176bfdd1be53c65b8d6645c31f49f756e2dd3b1 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 6 Mar 2014 00:49:27 -0800 Subject: g++ regressions. * eval.c (env_k): Duplicate global variable definition removed. * lib.c (vector, vec_set_length): Fixed signed/unsigned comparison warnings. * stream.h (stdin_s, stdout_s, stddebug_s, stderr_s, stdnull_s): Declarations were definitions due to missing extern. --- lib.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib.c') diff --git a/lib.c b/lib.c index d28d16d7..08d324c5 100644 --- a/lib.c +++ b/lib.c @@ -3860,7 +3860,7 @@ val vector(val length, val initval) int i; cnum alloc_plus = c_num(length) + 2; size_t size = alloc_plus * sizeof (val); - val *v = (size / sizeof *v == alloc_plus) + val *v = ((cnum) (size / sizeof *v) == alloc_plus) ? (val *) chk_malloc(size) : (val *) uw_throwf(error_s, lit("vector: length ~a is too large"), length, nao); @@ -3895,7 +3895,7 @@ val vec_set_length(val vec, val length) cnum length_delta = new_length - old_length; cnum alloc_delta = new_length - old_alloc; - if (new_length > ((size_t) -1)/(sizeof (val)) - 2) + if (new_length > (cnum) ((size_t) -1/sizeof (val) - 2)) uw_throwf(error_s, lit("vec-set-length: cannot extend to length ~s"), length, nao); -- cgit v1.2.3