X-Git-Url: https://oss.titaniummirror.com/gitweb?a=blobdiff_plain;f=gcc%2Fada%2Frepinfo.h;fp=gcc%2Fada%2Frepinfo.h;h=0000000000000000000000000000000000000000;hb=6fed43773c9b0ce596dca5686f37ac3fc0fa11c0;hp=a25706051846f1ec07a0429f1f2817a780c3cc1a;hpb=27b11d56b743098deb193d510b337ba22dc52e5c;p=msp430-gcc.git diff --git a/gcc/ada/repinfo.h b/gcc/ada/repinfo.h deleted file mode 100644 index a2570605..00000000 --- a/gcc/ada/repinfo.h +++ /dev/null @@ -1,79 +0,0 @@ -/**************************************************************************** - * * - * GNAT COMPILER COMPONENTS * - * * - * R E P I N F O * - * * - * C Header File * - * * - * $Revision: 1.1.16.1 $ - * * - * Copyright (C) 1999-2001 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 2, 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 COPYING. If not, write * - * to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, * - * MA 02111-1307, USA. * - * * - * As a special exception, if you link this file with other files to * - * produce an executable, this file does not by itself cause the resulting * - * executable to be covered by the GNU General Public License. This except- * - * ion does not however invalidate any other reasons why the executable * - * file might be covered by the GNU Public License. * - * * - * GNAT was originally developed by the GNAT team at New York University. * - * Extensive contributions were provided by Ada Core Technologies Inc. * - * * - ****************************************************************************/ - -/* This file corresponds to the Ada file repinfo.ads. */ - -typedef Uint Node_Ref; -typedef Uint Node_Ref_Or_Val; -typedef char TCode; - -/* These are the values of TCcode that correspond to tree codes in tree.def, - except for the first, which is how we encode discriminants. */ - -#define Discrim_Val 0 -#define Cond_Expr 1 -#define Plus_Expr 2 -#define Minus_Expr 3 -#define Mult_Expr 4 -#define Trunc_Div_Expr 5 -#define Ceil_Div_Expr 6 -#define Floor_Div_Expr 7 -#define Trunc_Mod_Expr 8 -#define Ceil_Mod_Expr 9 -#define Floor_Mod_Expr 10 -#define Exact_Div_Expr 11 -#define Negate_Expr 12 -#define Min_Expr 13 -#define Max_Expr 14 -#define Abs_Expr 15 -#define Truth_Andif_Expr 16 -#define Truth_Orif_Expr 17 -#define Truth_And_Expr 18 -#define Truth_Or_Expr 19 -#define Truth_Xor_Expr 20 -#define Truth_Not_Expr 21 -#define Lt_Expr 22 -#define Le_Expr 23 -#define Gt_Expr 24 -#define Ge_Expr 25 -#define Eq_Expr 26 -#define Ne_Expr 27 - -/* Creates a node using the tree code defined by Expr and from 1-3 - operands as required (unused operands set as shown to No_Uint) Note - that this call can be used to create a discriminant reference by - using (Expr => Discrim_Val, Op1 => discriminant_number). */ -#define Create_Node repinfo__create_node -extern Node_Ref Create_Node PARAMS((TCode, Node_Ref_Or_Val, - Node_Ref_Or_Val, Node_Ref_Or_Val));