move lots of source files around to match their actual placement in the original treemain

1 files changed, 0 insertions, 230 deletions

diff --git a/compiler_and_linker/unsorted/GCCInlineAsm.c b/compiler_and_linker/unsorted/GCCInlineAsm.c
deleted file mode 100644
index 897df9b..0000000
--- a/compiler_and_linker/unsorted/GCCInlineAsm.c
+++ /dev/null
@@ -1,230 +0,0 @@
-#include "compiler/GCCInlineAsm.h"
-#include "compiler/CError.h"
-#include "compiler/CExpr.h"
-#include "compiler/CFunc.h"
-#include "compiler/CInt64.h"
-#include "compiler/CParser.h"
-#include "compiler/CPrep.h"
-#include "compiler/CPrepTokenizer.h"
-#include "compiler/InlineAsm.h"
-#include "compiler/objects.h"
-
-Statement *first_ST_ASM;
-IALookupResult gcc_name_list[20];
-int gcc_name_list_index;
-
-void InlineAsm_SkipComment(void) {
-    while (1) {
-        if (tk != '/')
-            break;
-        if (lookahead() != '*')
-            break;
-
-        tk = lex();
-        while (!((tk = lex()) == '*' && (tk = lex()) == '/')) {
-            // nothing
-        }
-        tk = lex();
-    }
-}
-
-static char gcc_parse_attribute(void) {
-    char ch;
-
-    while (tk == TK_EOL)
-        tk = lex();
-
-    if (tk != '"')
-        CError_Error(CErrorStr105);
-
-    while ((tk = lex()) != TK_IDENTIFIER) {
-        // nothing
-    }
-
-    ch = tkidentifier->name[0];
-
-    if ((tk = lex()) != '"')
-        CError_Error(CErrorStr105);
-    tk = lex();
-
-    return ch;
-}
-
-static void gcc_parse_name(Boolean flag, char attribute) {
-    IALookupResult *nameentry;
-    ENode *expr;
-    Object *tempobj;
-    ENode *tempexpr;
-    Statement *stmt;
-
-    while (tk == TK_EOL)
-        tk = lex();
-
-    if (tk != '(')
-        CError_Error(CErrorStr114);
-
-    tk = lex();
-
-    if (flag) {
-        if (tk != TK_IDENTIFIER)
-            CError_Error(CErrorStr105);
-
-        InlineAsm_LookupSymbol(tkidentifier, &gcc_name_list[++gcc_name_list_index]);
-        if (gcc_name_list[gcc_name_list_index].object && gcc_name_list[gcc_name_list_index].object->u.var.info)
-            gcc_name_list[gcc_name_list_index].object->u.var.info->used = 1;
-
-        tk = lex();
-    } else {
-        in_assembler = 0;
-        cprep_nostring = 0;
-        nameentry = &gcc_name_list[++gcc_name_list_index];
-
-        expr = expression();
-        if (attribute == 'i' || attribute == 'I') {
-            if (!ENODE_IS(expr, EINTCONST))
-                CError_Error(CErrorStr144);
-            nameentry->value = CInt64_GetULong(&expr->data.intval);
-            nameentry->has_value = 1;
-        } else {
-            tempobj = create_temp_object(expr->rtype);
-            tempexpr = create_objectnode(tempobj);
-            if (tempobj->u.var.info)
-                tempobj->u.var.info->used = 1;
-            expr = makediadicnode(tempexpr, expr, EASS);
-
-            stmt = CFunc_InsertBeforeStatement(ST_EXPRESSION, first_ST_ASM);
-            first_ST_ASM = stmt->next;
-            if (!first_ST_ASM->next)
-                curstmt = first_ST_ASM;
-            stmt->expr = expr;
-
-            nameentry->name = tempobj->name;
-            nameentry->object = tempobj;
-            nameentry->label = NULL;
-            nameentry->type = NULL;
-            nameentry->has_value = 0;
-        }
-    }
-
-    cprep_nostring = 1;
-    in_assembler = 1;
-
-    if (tk != ')')
-        CError_Error(CErrorStr115);
-    tk = lex();
-}
-
-static void gcc_parse_expression(Boolean flag) {
-    while (1) {
-        gcc_parse_name(flag, gcc_parse_attribute());
-        if (tk != ',')
-            break;
-        tk = lex();
-    }
-}
-
-static void gcc_parse_input(void) {
-    if (tk == ':') {
-        if ((tk = lex()) == ':' || tk == ')' || tk == '}')
-            return;
-        gcc_parse_expression(0);
-    }
-}
-
-static void gcc_parse_output(void) {
-    if (tk == ':') {
-        if ((tk = lex()) == ':' || tk == ')' || tk == '}')
-            return;
-        gcc_parse_expression(1);
-    }
-}
-
-static void gcc_parse_killed(void) {
-    if (tk == ':') {
-        while (1) {
-            if ((tk = lex()) != '"')
-                return;
-
-            tk = lex();
-            while (1) {
-                if (tk == '"') {
-                    if (lookahead() == ',') {
-                        tk = lex();
-                        break;
-                    }
-                    tk = lex();
-                    return;
-                }
-                tk = lex();
-            }
-        }
-    }
-}
-
-static void gcc_replace_arg_st_asm(Statement *stmt) {
-    InlineAsm *ia;
-    int i;
-    IAOperand *op;
-    short effect;
-    short rclass;
-    SInt32 num;
-
-    if ((ia = (InlineAsm *) stmt->expr)) {
-        for (i = 0, op = ia->args; i < ia->argcount; i++, op++) {
-            switch (op->type) {
-                case IAOpnd_Imm:
-                case IAOpnd_Reg:
-                case IAOpnd_3:
-                case IAOpnd_4:
-                case IAOpnd_Lab:
-                    break;
-
-                case IAOpnd_6:
-                    if (op->u.unk6.unk4 == 2) {
-                        effect = op->u.unk6.effect;
-                        rclass = op->u.unk6.rclass;
-                        num = op->u.unk6.num;
-                        op->type = IAOpnd_Reg;
-                        op->u.reg.effect = effect;
-                        op->u.reg.rclass = rclass;
-                        op->u.reg.object = NULL;
-                        if (num <= gcc_name_list_index)
-                            op->u.reg.object = gcc_name_list[num].object;
-                        else
-                            CError_Error(CErrorStr144);
-                        op->u.reg.num = 0;
-                    } else {
-                        CError_FATAL(365);
-                    }
-                    break;
-
-                case IAOpnd_7:
-                    op->type = IAOpnd_Imm;
-                    op->u.imm.value = gcc_name_list[op->u.unk7.value].value;
-                    break;
-            }
-        }
-    }
-}
-
-static void gcc_replace_arg(void) {
-    Statement *stmt;
-
-    for (stmt = first_ST_ASM; stmt; stmt = stmt->next) {
-        if (stmt->type == ST_ASM)
-            gcc_replace_arg_st_asm(stmt);
-    }
-}
-
-void InlineAsm_gcc_parse(void) {
-    gcc_name_list_index = -1;
-    cprep_eoltokens = 0;
-
-    if (tk == TK_EOL)
-        tk = lex();
-
-    gcc_parse_output();
-    gcc_parse_input();
-    gcc_parse_killed();
-    gcc_replace_arg();
-}