From f59b285e171eaf00a589df072597ded58d5be5bb Mon Sep 17 00:00:00 2001
From: VVWVV <d0u61ev@gmail.com>
Date: Sat, 4 Nov 2017 00:05:54 +0300
Subject: [PATCH] fix ppconcat function

---
 source/compiler/sc2.c | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/source/compiler/sc2.c b/source/compiler/sc2.c
index ea40378..db7fd4e 100644
--- a/source/compiler/sc2.c
+++ b/source/compiler/sc2.c
@@ -1830,15 +1830,14 @@ static void substallpatterns(unsigned char *line,int buffersize)
     } /* if */
   } /* while */
 }
-#endif
 
 static void ppconcat(const char *line)
 {
-  register const char *c, *p, *b;
+  const char *c,*p,*b;
   for (c=line; *c!='\0'; ++c) {
     if (is_startstring(c))
       c=skipstring(c);
-    if(*c=='#' && *(c+1)=='#') {
+    if (*c=='#' && *(c+1)=='#') {
       p=c-1;
       b=c+2;
       while (*p==' ')
@@ -1849,6 +1848,7 @@ static void ppconcat(const char *line)
     } /* if */
   } /* for */
 }
+#endif
 
 /*  preprocess
  *
@@ -1873,14 +1873,13 @@ SC_FUNC void preprocess(void)
     stripcom(pline);    /* ??? no need for this when reading back from list file (in the second pass) */
     lptr=pline;         /* set "line pointer" to start of the parsing buffer */
     iscommand=command();
-    ppconcat((char*)lptr);
     if (iscommand!=CMD_NONE)
       errorset(sRESET,0); /* reset error flag ("panic mode") on empty line or directive */
     #if !defined NO_DEFINE
       if (iscommand==CMD_NONE) {
         assert(lptr!=term_expr);
         substallpatterns(pline,sLINEMAX);
-        ppconcat((char*)pline);
+        ppconcat(pline);
         lptr=pline;       /* reset "line pointer" to start of the parsing buffer */
       } /* if */
     #endif