From ad61b752ac165ce09fe1ed766e475286d36fbf18 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 28 Dec 2011 09:00:35 -0800
Subject: * match.c (LOG_MATCH): Use < in format directive instead of -.

* rand.c (random): Add back missing declaration.
---
 match.c | 2 +-
 rand.c  | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/match.c b/match.c
index 6fb87b2d..c53d16b0 100644
--- a/match.c
+++ b/match.c
@@ -389,7 +389,7 @@ typedef val (*h_match_func)(match_line_ctx c, match_line_ctx *cout);
           c.pos, EXTENT, c.file, c.data_lineno, nao);                   \
   debuglf(elem, lit("  ~a"), c.dataline, nao);                          \
   if (c_num(EXTENT) < 77)                                               \
-    debuglf(elem, lit("  ~*~a~-*~a^"), c.pos, lit(""),                  \
+    debuglf(elem, lit("  ~*~a~<*~a^"), c.pos, lit(""),                  \
               minus(EXTENT, c.pos), lit("^"), nao)
 
 #define elem_bind(elem_var, directive_var, specline)    \
diff --git a/rand.c b/rand.c
index 02c42c18..b28398ba 100644
--- a/rand.c
+++ b/rand.c
@@ -218,8 +218,9 @@ val random(val state, val modulus)
       goto invalid;
     for (;;) {
       cnum out = 0;
-
 #if SIZEOF_PTR >= 8
+      int i;
+
       for (i = 0; i < rands_needed; i++) {
         rand32_t rnd = rand32(r);
         out <<= 32;
-- 
cgit v1.2.3