Remove GCC glue code

1 files changed, 0 insertions, 167 deletions

diff --git a/gcc/elna-diagnostic.cc b/gcc/elna-diagnostic.cc
deleted file mode 100644
index 162d6cb..0000000
--- a/gcc/elna-diagnostic.cc
+++ /dev/null
@@ -1,167 +0,0 @@
-/* Elna frontend specific diagnostic routines.
-   Copyright (C) 2025 Free Software Foundation, Inc.
-
-GCC is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 3, or (at your option)
-any later version.
-
-GCC is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with GCC; see the file COPYING3.  If not see
-<http://www.gnu.org/licenses/>.  */
-
-#include "elna/gcc/elna-diagnostic.h"
-#include "elna/gcc/elna-tree.h"
-#include "elna/gcc/elna1.h"
-
-namespace elna::gcc
-{
-    linemap_guard::linemap_guard(const char *filename)
-    {
-        linemap_add(line_table, LC_ENTER, 0, filename, 1);
-    }
-
-    linemap_guard::~linemap_guard()
-    {
-        linemap_add(line_table, LC_LEAVE, 0, NULL, 0);
-    }
-
-    location_t get_location(const frontend::position *position)
-    {
-        linemap_line_start(line_table, position->line, 0);
-
-        return linemap_position_for_column(line_table, position->column);
-    }
-
-    std::string print_aggregate_name(tree type, const std::string& kind_name)
-    {
-        if (TYPE_IDENTIFIER(type) == NULL_TREE)
-        {
-            return kind_name;
-        }
-        else
-        {
-            return std::string(IDENTIFIER_POINTER(TYPE_IDENTIFIER(type)));
-        }
-    }
-
-    std::string print_type(tree type)
-    {
-        gcc_assert(TYPE_P(type));
-
-        tree unqualified_type = get_qualified_type(type, TYPE_UNQUALIFIED);
-        tree_code code = TREE_CODE(type);
-
-        if (unqualified_type == elna_int_type_node)
-        {
-            return "Int";
-        }
-        else if (unqualified_type == elna_word_type_node)
-        {
-            return "Word";
-        }
-        else if (unqualified_type == elna_bool_type_node)
-        {
-            return "Bool";
-        }
-        else if (unqualified_type == elna_pointer_type_node)
-        {
-            return "Pointer";
-        }
-        else if (unqualified_type == elna_float_type_node)
-        {
-            return "Float";
-        }
-        else if (unqualified_type == elna_char_type_node)
-        {
-            return "Char";
-        }
-        else if (unqualified_type == elna_string_type_node)
-        {
-            return "String";
-        }
-        else if (is_void_type(unqualified_type)) // For procedures without a return type.
-        {
-            return "()";
-        }
-        else if (POINTER_TYPE_P(unqualified_type))
-        {
-            tree pointer_target_type = TREE_TYPE(type);
-
-            if (TREE_CODE(pointer_target_type) == FUNCTION_TYPE)
-            {
-                return print_type(pointer_target_type);
-            }
-            else
-            {
-                return std::string("^" + print_type(pointer_target_type));
-            }
-        }
-        else if (code == FUNCTION_TYPE)
-        {
-            std::string output = "proc(";
-            tree parameter_type = TYPE_ARG_TYPES(type);
-            while (TREE_VALUE(parameter_type) != void_type_node)
-            {
-                output += print_type(TREE_VALUE(parameter_type));
-                parameter_type = TREE_CHAIN(parameter_type);
-                if (TREE_VALUE(parameter_type) == void_type_node)
-                {
-                    break;
-                }
-                else
-                {
-                    output += ", ";
-                }
-            }
-            output += ')';
-            tree return_type = TREE_TYPE(type);
-
-            if (!is_void_type(return_type))
-            {
-                output += " -> " + print_type(return_type);
-            }
-            return output;
-        }
-        else if (code == ARRAY_TYPE)
-        {
-            return "array";
-        }
-        else if (code == RECORD_TYPE)
-        {
-            return print_aggregate_name(unqualified_type, "record");
-        }
-        else if (code == UNION_TYPE)
-        {
-            return print_aggregate_name(unqualified_type, "union");
-        }
-        else if (code == ENUMERAL_TYPE)
-        {
-            return print_aggregate_name(unqualified_type, "enumeration");
-        }
-        else
-        {
-            return "<<unknown-type>>";
-        }
-        gcc_unreachable();
-    }
-
-    void report_errors(const std::deque<std::unique_ptr<frontend::error>>& errors)
-    {
-        for (const auto& error : errors)
-        {
-            location_t gcc_location{ UNKNOWN_LOCATION };
-
-            if (error->position.line != 0 || error->position.column != 0)
-            {
-                gcc_location = elna::gcc::get_location(&error->position);
-            }
-            error_at(gcc_location, error->what().c_str());
-        }
-    }
-}