Code cleanup

Author: ChAoSUnItY

.github/workflows/main.yml

@@ -72,11 +72,11 @@ jobs:
           sudo apt-get install -q -y qemu-user
           sudo apt-get install -q -y build-essential
       - name: Configurate config
-        env:
-          CC: ${{ matrix.compiler }}
         run: |
           make distclean config ARCH=${{ matrix.architecture }}
       - name: Preprocess stage 1 source code
+        env:
+          CC: ${{ matrix.compiler }}
         run: |
           make out/shecc
           ./out/shecc -E src/main.c > ./out/out.c

src/globals.c

@@ -1697,7 +1697,7 @@ void error_at(char *msg, source_location_t *loc)
 /* FIXME: This function has been deprecated, use `error_at` instead. */
 void error(char *msg)
 {
-    printf("[Error]: %s.\n");
+    printf("[Error]: %s.\n", msg);
     abort();
 }
 

src/lexer.c

@@ -420,7 +420,7 @@ token_t *lex_token(strbuf_t *buf, source_location_t *loc, token_t *prev)
 
         token_buffer[sz] = '\0';
         token = new_token(T_numeric, loc, sz);
-        token->literal = arena_strdup(TOKEN_ARENA, token_buffer);
+        token->literal = intern_string(token_buffer);
         loc->column += sz;
         return token;
     }
@@ -523,7 +523,7 @@ token_t *lex_token(strbuf_t *buf, source_location_t *loc, token_t *prev)
 
         read_char(buf);
         token = new_token(T_string, loc, sz + 2);
-        token->literal = arena_strdup(TOKEN_ARENA, token_buffer);
+        token->literal = intern_string(token_buffer);
         loc->column += sz + 2;
         return token;
     }
@@ -557,8 +557,8 @@ token_t *lex_token(strbuf_t *buf, source_location_t *loc, token_t *prev)
 
         read_char(buf);
         token = new_token(T_char, loc, sz + 2);
-        token->literal = arena_strdup(TOKEN_ARENA, token_buffer);
-        loc->column = sz + 2;
+        token->literal = intern_string(token_buffer);
+        loc->column += sz + 2;
         return token;
     }
 
@@ -906,7 +906,7 @@ token_t *lex_token(strbuf_t *buf, source_location_t *loc, token_t *prev)
             kind = lookup_keyword(token_buffer);
 
         token = new_token(kind, loc, sz);
-        token->literal = arena_strdup(TOKEN_ARENA, token_buffer);
+        token->literal = intern_string(token_buffer);
         loc->column += sz;
         return token;
     }