From: David Given <dg@cowlark.com>
Date: Sun, 11 Mar 2018 10:00:35 +0000 (+0100)
Subject: lchar() needs to return the character written. (This happens by magic on 386,
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=d5a9f1541a9e47fe30fd9502e697e560a9e824a1;p=ack.git

lchar() needs to return the character written. (This happens by magic on 386,
but no on PPC.) See #72.
---

diff --git a/lang/b/lib/main.c b/lang/b/lib/main.c
index b583a4309..44ea76c9b 100644
--- a/lang/b/lib/main.c
+++ b/lang/b/lib/main.c
@@ -14,10 +14,11 @@ static intptr_t i_char(intptr_t s, intptr_t n)
     return p[n];
 }
 
-static void i_lchar(intptr_t s, intptr_t n, intptr_t c)
+static intptr_t i_lchar(intptr_t s, intptr_t n, intptr_t c)
 {
     char* p = (char*)(s<<SHIFT);
     p[n] = c;
+	return c;
 }
 
 static intptr_t i_getchar(void)