diff options
author | Arnaud Charlet <charlet@adacore.com> | 2020-01-09 11:04:35 -0500 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-03 06:01:39 -0400 |
commit | e60b6e23741c6d6059e6f765f18ce4c56366874b (patch) | |
tree | a9d06feb928b7ea4a945b531cf10cf202d81a6a8 /gcc/ada/vast.adb | |
parent | da566eeb31056d9f40ab48688dc3fe680535ce80 (diff) | |
download | gcc-e60b6e23741c6d6059e6f765f18ce4c56366874b.zip gcc-e60b6e23741c6d6059e6f765f18ce4c56366874b.tar.gz gcc-e60b6e23741c6d6059e6f765f18ce4c56366874b.tar.bz2 |
[Ada] Initial infrastructure for adding a tree checker
2020-06-03 Arnaud Charlet <charlet@adacore.com>
gcc/ada/
* frontend.adb (Frontend): Call (dummy for now) tree checker.
* debug.adb: Reserve -gnatd_V for the tree checker.
* vast.ads, vast.adb: New files.
* gcc-interface/Make-lang.in: Add vast.o.
Diffstat (limited to 'gcc/ada/vast.adb')
-rw-r--r-- | gcc/ada/vast.adb | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/gcc/ada/vast.adb b/gcc/ada/vast.adb new file mode 100644 index 0000000..87de26e --- /dev/null +++ b/gcc/ada/vast.adb @@ -0,0 +1,46 @@ +------------------------------------------------------------------------------ +-- -- +-- GNAT COMPILER COMPONENTS -- +-- -- +-- V A S T -- +-- -- +-- B o d y -- +-- -- +-- Copyright (C) 2020, Free Software Foundation, Inc. -- +-- -- +-- GNAT is free software; you can redistribute it and/or modify it under -- +-- terms of the GNU General Public License as published by the Free Soft- -- +-- ware Foundation; either version 3, or (at your option) any later ver- -- +-- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- +-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- +-- or FITNESS FOR A PARTICULAR PURPOSE. -- +-- -- +-- As a special exception under Section 7 of GPL version 3, you are granted -- +-- additional permissions described in the GCC Runtime Library Exception, -- +-- version 3.1, as published by the Free Software Foundation. -- +-- -- +-- You should have received a copy of the GNU General Public License and -- +-- a copy of the GCC Runtime Library Exception along with this program; -- +-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- +-- <http://www.gnu.org/licenses/>. -- +-- -- +-- GNAT was originally developed by the GNAT team at New York University. -- +-- Extensive contributions were provided by Ada Core Technologies Inc. -- +-- -- +------------------------------------------------------------------------------ + +-- Dummy implementation + +package body VAST is + + ---------------- + -- Check_Tree -- + ---------------- + + procedure Check_Tree (GNAT_Root : Node_Id) is + pragma Unreferenced (GNAT_Root); + begin + null; + end Check_Tree; + +end VAST; |