From 1927f64070ce9331df16e4e2783c2f071778531f Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 8 May 2019 09:57:15 +0000 Subject: [PATCH] * standard.ads.h: New file. From-SVN: r271003 --- gcc/ada/ChangeLog | 4 ++ gcc/ada/standard.ads.h | 84 ++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 88 insertions(+) create mode 100644 gcc/ada/standard.ads.h diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 699ad4370b7..9116b923de5 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2019-05-08 Arnaud Charlet + + * standard.ads.h: New file. + 2019-05-07 Rainer Orth * gcc-interface/Makefile.in (install-gcc-specs): Use foreach. diff --git a/gcc/ada/standard.ads.h b/gcc/ada/standard.ads.h new file mode 100644 index 00000000000..36e89a9fe64 --- /dev/null +++ b/gcc/ada/standard.ads.h @@ -0,0 +1,84 @@ +/**************************************************************************** + * * + * GNAT COMPILER COMPONENTS * + * * + * S T A N D A R D * + * * + * C Header File * + * * + * Copyright (C) 2015, AdaCore * + * * + * 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 * + * . * + * * + * GNAT was originally developed by the GNAT team at New York University. * + * Extensive contributions were provided by Ada Core Technologies Inc. * + * * + ****************************************************************************/ + +#ifndef STANDARD_ADS_H +#define STANDARD_ADS_H + +#include + +typedef unsigned char boolean; + +#ifndef false +#define false 0 +#endif + +#ifndef true +#define true 1 +#endif + +typedef uint8_t unsigned_8; +typedef uint16_t unsigned_16; +typedef uint32_t unsigned_32; +typedef uint64_t unsigned_64; + +typedef int8_t integer_8; +typedef int16_t integer_16; +typedef int32_t integer_32; +typedef int64_t integer_64; + +typedef int integer; + +typedef int natural; +typedef int positive; + +typedef signed char short_short_integer; +typedef short short_integer; +typedef long long_integer; +typedef long long long_long_integer; +typedef long long universal_integer; + +typedef float short_float; +typedef double long_float; +typedef long double long_long_float; +typedef long double universal_real; + +typedef char character; +typedef integer_16 wide_character; +typedef integer_32 wide_wide_character; + +typedef character *access_character; +typedef character *string; +typedef wide_character *wide_string; +typedef wide_wide_character *wide_wide_string; + +typedef integer_64 duration; + +#endif /* STANDARD_ADS_H */ -- 2.30.2