From 736da6373cac68db9fed37a02d893b11a2e8c66d Mon Sep 17 00:00:00 2001
From: Alan Cox <alan@linux.intel.com>
Date: Sat, 19 Mar 2016 11:18:23 +0000
Subject: [PATCH] icint: speed up initial load and put a debug item back

---
 Applications/BCPL/icint.c | 35 ++++++++++++++++++++++++++++++-----
 1 file changed, 30 insertions(+), 5 deletions(-)

diff --git a/Applications/BCPL/icint.c b/Applications/BCPL/icint.c
index 1bcd1304..9cebd8c8 100644
--- a/Applications/BCPL/icint.c
+++ b/Applications/BCPL/icint.c
@@ -174,16 +174,39 @@ stc(uint16_t c)
     M[P - 1] += c << Cp;
 }
 
+static char buf[128];
+static char *rcp = buf;
+static char *rce = buf;
+
+static int16_t rchget(void)
+{
+ rcp = buf;
+ rce = buf + read(fp, buf, 128);
+ if (rce <= rcp)
+  return -1;
+ return 0;
+}
+
 static void
 rch(void)
 {
     /* FIXME: blows up on EOF */
     for (;;) {
-        if (read(fp, &Ch, 1) == 0)
-         Ch = -1;
-//        putchar(Ch);
+        if (rcp == rce)
+          if (rchget()) {
+           Ch = -1;
+           return;
+          }
+        Ch = *rcp++;
         if (Ch != '/') return;
-        do read(fp, &Ch, 1); while (Ch != '\n');
+        do {
+         if (rcp == rce)
+          if (rchget()) {
+            Ch = -1;
+            return;
+          }
+          Ch = *rcp++;
+       } while (Ch != '\n');
     }
 }
 
@@ -205,7 +228,9 @@ setlab(int n)
     while (k > 0) {
 	uint16_t kp = k;
         uint16_t nv = M[kp];
-//        if (n == 499)fprintf(stderr, "setlab %d to %d\n", (unsigned int)kp, (unsigned int)P);
+        /* Removing this debug check breaks under SDCC - FIXME check if
+           compiler bug ! */
+        if (n == 9499)fprintf(stderr, "setlab %d to %d\n", (unsigned int)kp, (unsigned int)P);
         M[kp] = P;
         k = nv;
     }
-- 
2.34.1