From: Jason S. Ninneman <jsn@mbar.us>
Date: Sat, 3 Jun 2017 18:41:33 +0000 (-0700)
Subject: Sync compile.c with misc.c.
X-Git-Tag: 0.90~19
X-Git-Url: https://jxself.org/git/?p=open-adventure.git;a=commitdiff_plain;h=7c0a690a1ce5afee35696ebeb3ffabe533390dfd;hp=4babd6d05829d1710f68914a25dd6c1ba30fe204

Sync compile.c with misc.c.
---

diff --git a/compile.c b/compile.c
index d7e74d2..736c729 100644
--- a/compile.c
+++ b/compile.c
@@ -87,47 +87,46 @@ long GETTXT(long SKIP,long ONEWRD, long UPPER) {
  *  end of the line, the word is filled up with blanks (which encode as 0's).
  *  If we're already at end of line when GETTXT is called, we return -1. */
 
-  long CHAR;
-  long GETTXT;
+  long TEXT;
   static long SPLITTING = -1;
 
   if(LNPOSN != SPLITTING)
     SPLITTING = -1;
-  GETTXT= -1;
+  TEXT= -1;
   while (true) {
     if(LNPOSN > LNLENG)
-      return(GETTXT);
+      return(TEXT);
     if((!SKIP) || INLINE[LNPOSN] != 0)
       break;
     LNPOSN=LNPOSN+1;
   }
 
-  GETTXT=0;
+  TEXT=0;
   for (int I=1; I<=5; I++) {
-    GETTXT=GETTXT*64;
+    TEXT=TEXT*64;
     if(LNPOSN > LNLENG || (ONEWRD && INLINE[LNPOSN] == 0))
       continue;
-    CHAR=INLINE[LNPOSN];
-    if(CHAR < 63) {
+    char current=INLINE[LNPOSN];
+    if(current < 63) {
       SPLITTING = -1;
-      if(UPPER && CHAR >= 37)
-        CHAR=CHAR-26;
-      GETTXT=GETTXT+CHAR;
+      if(UPPER && current >= 37)
+        current=current-26;
+      TEXT=TEXT+current;
       LNPOSN=LNPOSN+1;
       continue;
     }
     if(SPLITTING != LNPOSN) {
-      GETTXT=GETTXT+63;
+      TEXT=TEXT+63;
       SPLITTING = LNPOSN;
       continue;
     }
 
-    GETTXT=GETTXT+CHAR-63;
+    TEXT=TEXT+current-63;
     SPLITTING = -1;
     LNPOSN=LNPOSN+1;
   }
 
-  return(GETTXT);
+  return(TEXT);
 }
 
 void BUG(long NUM) {