summaryrefslogtreecommitdiffstats
path: root/lib.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2014-03-06 00:49:27 -0800
committerKaz Kylheku <kaz@kylheku.com>2014-03-06 00:49:27 -0800
commit2176bfdd1be53c65b8d6645c31f49f756e2dd3b1 (patch)
tree803c5f05f70adbcf6dbcc7c9839b33de6404d351 /lib.c
parentdf3566afa1a0b329ffa22773e79f1c67281e44c4 (diff)
downloadtxr-2176bfdd1be53c65b8d6645c31f49f756e2dd3b1.tar.gz
txr-2176bfdd1be53c65b8d6645c31f49f756e2dd3b1.tar.bz2
txr-2176bfdd1be53c65b8d6645c31f49f756e2dd3b1.zip
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.
Diffstat (limited to 'lib.c')
-rw-r--r--lib.c4
1 files changed, 2 insertions, 2 deletions
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);