summaryrefslogtreecommitdiff
path: root/gcc/ada/back_end.ads
diff options
context:
space:
mode:
authorupstream source tree <ports@midipix.org>2015-03-15 20:14:05 -0400
committerupstream source tree <ports@midipix.org>2015-03-15 20:14:05 -0400
commit554fd8c5195424bdbcabf5de30fdc183aba391bd (patch)
tree976dc5ab7fddf506dadce60ae936f43f58787092 /gcc/ada/back_end.ads
downloadcbb-gcc-4.6.4-554fd8c5195424bdbcabf5de30fdc183aba391bd.tar.bz2
cbb-gcc-4.6.4-554fd8c5195424bdbcabf5de30fdc183aba391bd.tar.xz
obtained gcc-4.6.4.tar.bz2 from upstream website;upstream
verified gcc-4.6.4.tar.bz2.sig; imported gcc-4.6.4 source tree from verified upstream tarball. downloading a git-generated archive based on the 'upstream' tag should provide you with a source tree that is binary identical to the one extracted from the above tarball. if you have obtained the source via the command 'git clone', however, do note that line-endings of files in your working directory might differ from line-endings of the respective files in the upstream repository.
Diffstat (limited to 'gcc/ada/back_end.ads')
-rw-r--r--gcc/ada/back_end.ads64
1 files changed, 64 insertions, 0 deletions
diff --git a/gcc/ada/back_end.ads b/gcc/ada/back_end.ads
new file mode 100644
index 000000000..93e1ba643
--- /dev/null
+++ b/gcc/ada/back_end.ads
@@ -0,0 +1,64 @@
+------------------------------------------------------------------------------
+-- --
+-- GNAT COMPILER COMPONENTS --
+-- --
+-- B A C K _ E N D --
+-- --
+-- S p e c --
+-- --
+-- Copyright (C) 1992-2010, 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. See the GNU General Public License --
+-- for more details. You should have received a copy of the GNU General --
+-- Public License distributed with GNAT; see file COPYING3. If not, go to --
+-- http://www.gnu.org/licenses for a complete copy of the license. --
+-- --
+-- GNAT was originally developed by the GNAT team at New York University. --
+-- Extensive contributions were provided by Ada Core Technologies Inc. --
+-- --
+------------------------------------------------------------------------------
+
+-- Call the back end with all the information needed. Also contains other
+-- back-end specific interfaces required by the front end.
+
+package Back_End is
+
+ type Back_End_Mode_Type is (
+ Generate_Object,
+ -- Full back end operation with object file generation
+
+ Declarations_Only,
+ -- Partial back end operation with no object file generation. In this
+ -- mode the only useful action performed by gigi is to process all
+ -- declarations issuing any error messages (in particular those to
+ -- do with rep clauses), and to back annotate representation info.
+
+ Skip);
+ -- Back end call is skipped (syntax only, or errors found)
+
+ pragma Convention (C, Back_End_Mode_Type);
+ for Back_End_Mode_Type use (0, 1, 2);
+
+ procedure Call_Back_End (Mode : Back_End_Mode_Type);
+ -- Call back end, i.e. make call to driver traversing the tree and
+ -- outputting code. This call is made with all tables locked.
+ -- The back end is responsible for unlocking any tables it may need
+ -- to change, and locking them again before returning.
+
+ procedure Scan_Compiler_Arguments;
+ -- Acquires command-line parameters passed to the compiler and processes
+ -- them. Calls Scan_Front_End_Switches for any front-end switches found.
+ --
+ -- The processing of arguments is private to the back end, since the way
+ -- of acquiring the arguments as well as the set of allowable back end
+ -- switches is different depending on the particular back end being used.
+ --
+ -- Any processed switches that influence the result of a compilation must
+ -- be added to the Compilation_Arguments table.
+
+end Back_End;