Subversion Repositories openrisc_me

/*

------------------------------------------------------------------------------

--                                                                          --

--                         GNAT COMPILER COMPONENTS                         --

--                                                                          --

--                  S Y S T E M . O S _ C O N S T A N T S                   --

--                                                                          --

--                                 S p e c                                  --

--                                                                          --

--          Copyright (C) 2000-2009, 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.      --

--                                                                          --

------------------------------------------------------------------------------

pragma Style_Checks ("M32766");

--  Allow long lines

*/

/**

 **  This template file is used while building the GNAT runtime library to

 **  generate package System.OS_Constants (s-oscons.ads).

 **

 **  The generation process is:

 **  1. the platform-independent extraction tool xoscons is built with the

 **     base native compiler

 **  2. this template is processed by the cross C compiler to produce

 **     a list of constant values

 **  3. the comments in this template and the list of values are processed

 **     by xoscons to generate s-oscons.ads.

 **

 **  Any comment occurring in this file whose start and end markers are on

 **  a line by themselves (see above) is copied verbatim to s-oscons.ads.

 **  All other comments are ignored. Note that the build process first passes

 **  this file through the C preprocessor, so comments that occur in a section

 **  that is conditioned by a #if directive will be copied to the output only

 **  when it applies.

 **

 **  Two methods are supported to generate the list of constant values,

 **  s-oscons-tmpl.s.

 **

 **  The default one assumes that the template can be compiled by the newly-

 **  built cross compiler. It uses markup produced in the (pseudo-)assembly

 **  listing:

 **

 **     xgcc -DTARGET=\"$target\" -C -E s-oscons-tmplt.c > s-oscons-tmplt.i

 **     xgcc -S s-oscons-tmplt.i

 **     xoscons

 **

 **  Alternatively, if s-oscons-tmplt.c must be compiled with a proprietary

 **  compiler (e.g. the native DEC CC on OpenVMS), the NATIVE macro should

 **  be defined, and the resulting program executed:

 **

 **  $ CC/DEFINE=("TARGET=""OpenVMS""",NATIVE)

 **      /PREPROCESS_ONLY /COMMENTS=AS_IS s-oscons-tmplt

 **  $ CC/DEFINE=("TARGET=""OpenVMS""",NATIVE) s-oscons-tmplt

 **  $ LINK s-oscons-tmplt

 **  $ DEFINE/USER SYS$OUTPUT s-oscons-tmplt.s

 **  $ RUN s-oscons-tmplt

 **  $ RUN xoscons

 **/

#if defined (__linux__) && !defined (_XOPEN_SOURCE)

/** For Linux _XOPEN_SOURCE must be defined, otherwise IOV_MAX is not defined

 **/

#define _XOPEN_SOURCE 500

#elif defined (__mips) && defined (__sgi)

/** For IRIX 6, _XOPEN5 must be defined and _XOPEN_IOV_MAX must be used as

 ** IOV_MAX, otherwise IOV_MAX is not defined.  IRIX 5 has neither.

 **/

#ifdef _XOPEN_IOV_MAX

#define _XOPEN5

#define IOV_MAX _XOPEN_IOV_MAX

#endif

#endif

#include <stdlib.h>

#include <string.h>

#include <limits.h>

#include <fcntl.h>

#if ! (defined (__vxworks) || defined (__VMS) || defined (__MINGW32__) || \

       defined (__nucleus__))

# define HAVE_TERMIOS

#endif

#if defined (__vxworks)

/**

 ** For VxWorks, always include vxWorks.h (gsocket.h provides it only for

 ** the case of runtime libraries that support sockets).

 **/

# include <vxWorks.h>

#endif

#include "gsocket.h"

#ifdef DUMMY

# if defined (TARGET)

#   error TARGET may not be defined when generating the dummy version

# else

#   define TARGET "batch runtime compilation (dummy values)"

# endif

# if !(defined (HAVE_SOCKETS) && defined (HAVE_TERMIOS))

#   error Features missing on platform

# endif

# define NATIVE

#endif

#ifndef TARGET

# error Please define TARGET

#endif

#ifndef HAVE_SOCKETS

# include <errno.h>

#endif

#ifdef HAVE_TERMIOS

# include <termios.h>

#endif

#ifdef __APPLE__

# include <_types.h>

#endif

#ifdef NATIVE

#include <stdio.h>

#ifdef DUMMY

int counter = 0;

# define _VAL(x) counter++

#else

# define _VAL(x) x

#endif

#define CND(name,comment) \

  printf ("\n->CND:$%d:" #name ":$%d:" comment, __LINE__, ((int) _VAL (name)));

#define CNS(name,comment) \

  printf ("\n->CNS:$%d:" #name ":" name ":" comment, __LINE__);

#define C(sname,type,value,comment)\

  printf ("\n->C:$%d:" sname ":" #type ":" value ":" comment, __LINE__);

#define TXT(text) \

  printf ("\n->TXT:$%d:" text, __LINE__);

#else

#define CND(name, comment) \

  asm volatile("\n->CND:%0:" #name ":%1:" comment \

  : : "i" (__LINE__), "i" ((int) name));

/* Decimal constant in the range of type "int" */

#define CNS(name, comment) \

  asm volatile("\n->CNS:%0:" #name ":" name ":" comment \

  : : "i" (__LINE__));

/* General expression named number */

#define C(sname, type, value, comment) \

  asm volatile("\n->C:%0:" sname ":" #type ":" value ":" comment \

  : : "i" (__LINE__));

/* Typed constant */

#define TXT(text) \

  asm volatile("\n->TXT:%0:" text \

  : : "i" (__LINE__));

/* Freeform text */

#endif

#define CST(name,comment) C(#name,String,name,comment)

#define STR(x) STR1(x)

#define STR1(x) #x

#ifdef __MINGW32__

unsigned int _CRT_fmode = _O_BINARY;

#endif

int

main (void) {

/*

--  This package provides target dependent definitions of constant for use

--  by the GNAT runtime library. This package should not be directly with'd

--  by an application program.

--  This file is generated automatically, do not modify it by hand! Instead,

--  make changes to s-oscons-tmplt.c and rebuild the GNAT runtime library.

*/

/**

 ** Do not change the format of the line below without also updating the

 ** MaRTE Makefile.

 **/

TXT("--  This is the version for " TARGET)

TXT("")

#ifdef HAVE_SOCKETS

/**

 **  The type definitions for struct hostent components uses Interfaces.C

 **/

TXT("with Interfaces.C;")

#endif

/*

package System.OS_Constants is

   pragma Pure;

*/

/**

 **  General constants (all platforms)

 **/

/*

   -----------------------------

   -- Platform identification --

   -----------------------------

   type OS_Type is (Windows, VMS, Other_OS);

*/

#if defined (__MINGW32__)

# define TARGET_OS "Windows"

#elif defined (__VMS)

# define TARGET_OS "VMS"

#else

# define TARGET_OS "Other_OS"

#endif

C("Target_OS", OS_Type, TARGET_OS, "")

#define Target_Name TARGET

CST(Target_Name, "")

/*

   -------------------

   -- System limits --

   -------------------

*/

#ifndef IOV_MAX

# define IOV_MAX INT_MAX

#endif

CND(IOV_MAX, "Maximum writev iovcnt")

/*

   ---------------------

   -- File open modes --

   ---------------------

*/

#ifndef O_RDWR

# define O_RDWR -1

#endif

CND(O_RDWR, "Read/write")

#ifndef O_NOCTTY

# define O_NOCTTY -1

#endif

CND(O_NOCTTY, "Don't change ctrl tty")

#ifndef O_NDELAY

# define O_NDELAY -1

#endif

CND(O_NDELAY, "Nonblocking")

/*

   ----------------------

   -- Fcntl operations --

   ----------------------

*/

#ifndef F_GETFL

# define F_GETFL -1

#endif

CND(F_GETFL, "Get flags")

#ifndef F_SETFL

# define F_SETFL -1

#endif

CND(F_SETFL, "Set flags")

/*

   -----------------

   -- Fcntl flags --

   -----------------

*/

#ifndef FNDELAY

# define FNDELAY -1

#endif

CND(FNDELAY, "Nonblocking")

/*

   ----------------------

   -- Ioctl operations --

   ----------------------

*/

#ifndef FIONBIO

# define FIONBIO -1

#endif

CND(FIONBIO, "Set/clear non-blocking io")

#ifndef FIONREAD

# define FIONREAD -1

#endif

CND(FIONREAD, "How many bytes to read")

/*

   ------------------

   -- Errno values --

   ------------------

   --  The following constants are defined from <errno.h>

*/

#ifndef EAGAIN

# define EAGAIN -1

#endif

CND(EAGAIN, "Try again")

#ifndef ENOENT

# define ENOENT -1

#endif

CND(ENOENT, "File not found")

#ifndef ENOMEM

# define ENOMEM -1

#endif

CND(ENOMEM, "Out of memory")

#ifdef __MINGW32__

/*

   --  The following constants are defined from <winsock2.h> (WSA*)

*/

/**

 **  For sockets-related errno values on Windows, gsocket.h redefines

 **  Exxx as WSAExxx.

 **/

#endif

#ifndef EACCES

# define EACCES -1

#endif

CND(EACCES, "Permission denied")

#ifndef EADDRINUSE

# define EADDRINUSE -1

#endif

CND(EADDRINUSE, "Address already in use")

#ifndef EADDRNOTAVAIL

# define EADDRNOTAVAIL -1

#endif

CND(EADDRNOTAVAIL, "Cannot assign address")

#ifndef EAFNOSUPPORT

# define EAFNOSUPPORT -1

#endif

CND(EAFNOSUPPORT, "Addr family not supported")

#ifndef EALREADY

# define EALREADY -1

#endif

CND(EALREADY, "Operation in progress")

#ifndef EBADF

# define EBADF -1

#endif

CND(EBADF, "Bad file descriptor")

#ifndef ECONNABORTED

# define ECONNABORTED -1

#endif

CND(ECONNABORTED, "Connection aborted")

#ifndef ECONNREFUSED

# define ECONNREFUSED -1

#endif

CND(ECONNREFUSED, "Connection refused")

#ifndef ECONNRESET

# define ECONNRESET -1

#endif

CND(ECONNRESET, "Connection reset by peer")

#ifndef EDESTADDRREQ

# define EDESTADDRREQ -1

#endif

CND(EDESTADDRREQ, "Destination addr required")

#ifndef EFAULT

# define EFAULT -1

#endif

CND(EFAULT, "Bad address")

#ifndef EHOSTDOWN

# define EHOSTDOWN -1

#endif

CND(EHOSTDOWN, "Host is down")

#ifndef EHOSTUNREACH

# define EHOSTUNREACH -1

#endif

CND(EHOSTUNREACH, "No route to host")

#ifndef EINPROGRESS

# define EINPROGRESS -1

#endif

CND(EINPROGRESS, "Operation now in progress")

#ifndef EINTR

# define EINTR -1

#endif

CND(EINTR, "Interrupted system call")

#ifndef EINVAL

# define EINVAL -1

#endif

CND(EINVAL, "Invalid argument")

#ifndef EIO

# define EIO -1

#endif

CND(EIO, "Input output error")

#ifndef EISCONN

# define EISCONN -1

#endif

CND(EISCONN, "Socket already connected")

#ifndef ELOOP

# define ELOOP -1

#endif

CND(ELOOP, "Too many symbolic links")

#ifndef EMFILE

# define EMFILE -1

#endif

CND(EMFILE, "Too many open files")

#ifndef EMSGSIZE

# define EMSGSIZE -1

#endif

CND(EMSGSIZE, "Message too long")

#ifndef ENAMETOOLONG

# define ENAMETOOLONG -1

#endif

CND(ENAMETOOLONG, "Name too long")

#ifndef ENETDOWN

# define ENETDOWN -1

#endif

CND(ENETDOWN, "Network is down")

#ifndef ENETRESET

# define ENETRESET -1

#endif

CND(ENETRESET, "Disconn. on network reset")

#ifndef ENETUNREACH

# define ENETUNREACH -1

#endif

CND(ENETUNREACH, "Network is unreachable")

#ifndef ENOBUFS

# define ENOBUFS -1

#endif

CND(ENOBUFS, "No buffer space available")

#ifndef ENOPROTOOPT

# define ENOPROTOOPT -1

#endif

CND(ENOPROTOOPT, "Protocol not available")

#ifndef ENOTCONN

# define ENOTCONN -1

#endif

CND(ENOTCONN, "Socket not connected")

#ifndef ENOTSOCK

# define ENOTSOCK -1

#endif

CND(ENOTSOCK, "Operation on non socket")

#ifndef EOPNOTSUPP

# define EOPNOTSUPP -1

#endif

CND(EOPNOTSUPP, "Operation not supported")

#ifndef EPIPE

# define EPIPE -1

#endif

CND(EPIPE, "Broken pipe")

#ifndef EPFNOSUPPORT

# define EPFNOSUPPORT -1

#endif

CND(EPFNOSUPPORT, "Unknown protocol family")

#ifndef EPROTONOSUPPORT

# define EPROTONOSUPPORT -1

#endif

CND(EPROTONOSUPPORT, "Unknown protocol")

#ifndef EPROTOTYPE

# define EPROTOTYPE -1

#endif

CND(EPROTOTYPE, "Unknown protocol type")

#ifndef ERANGE

# define ERANGE -1

#endif

CND(ERANGE, "Result too large")

#ifndef ESHUTDOWN

# define ESHUTDOWN -1

#endif

CND(ESHUTDOWN, "Cannot send once shutdown")

#ifndef ESOCKTNOSUPPORT

# define ESOCKTNOSUPPORT -1

#endif

CND(ESOCKTNOSUPPORT, "Socket type not supported")

#ifndef ETIMEDOUT

# define ETIMEDOUT -1

#endif

CND(ETIMEDOUT, "Connection timed out")

#ifndef ETOOMANYREFS

# define ETOOMANYREFS -1

#endif

CND(ETOOMANYREFS, "Too many references")

#ifndef EWOULDBLOCK

# define EWOULDBLOCK -1

#endif

CND(EWOULDBLOCK, "Operation would block")

/**

 **  Terminal I/O constants

 **/

#ifdef HAVE_TERMIOS

/*

   ----------------------

   -- Terminal control --

   ----------------------

*/

#ifndef TCSANOW

# define TCSANOW -1

#endif

CND(TCSANOW, "Immediate")

#ifndef TCIFLUSH

# define TCIFLUSH -1

#endif

CND(TCIFLUSH, "Flush input")

#ifndef CLOCAL

# define CLOCAL -1

#endif

CND(CLOCAL, "Local")

#ifndef CRTSCTS

# define CRTSCTS -1

#endif

CND(CRTSCTS, "Hardware flow control")

#ifndef CREAD

# define CREAD -1

#endif

CND(CREAD, "Read")

#ifndef CS5

# define CS5 -1

#endif

CND(CS5, "5 data bits")

#ifndef CS6

# define CS6 -1

#endif

CND(CS6, "6 data bits")

#ifndef CS7

# define CS7 -1

#endif

CND(CS7, "7 data bits")

#ifndef CS8

# define CS8 -1

#endif

CND(CS8, "8 data bits")

#ifndef CSTOPB

# define CSTOPB -1

#endif

CND(CSTOPB, "2 stop bits")

#ifndef PARENB

# define PARENB -1

#endif

CND(PARENB, "Parity enable")

#ifndef PARODD

# define PARODD -1

#endif

CND(PARODD, "Parity odd")

#ifndef B0

# define B0 -1

#endif

CND(B0, "0 bps")

#ifndef B50

# define B50 -1

#endif

CND(B50, "50 bps")

#ifndef B75

# define B75 -1

#endif

CND(B75, "75 bps")

#ifndef B110

# define B110 -1

#endif

CND(B110, "110 bps")

#ifndef B134

# define B134 -1

#endif

CND(B134, "134 bps")

#ifndef B150

# define B150 -1

#endif

CND(B150, "150 bps")

#ifndef B200

# define B200 -1

#endif

CND(B200, "200 bps")

#ifndef B300

# define B300 -1

#endif

CND(B300, "300 bps")

#ifndef B600

# define B600 -1

#endif

CND(B600, "600 bps")

#ifndef B1200

# define B1200 -1

#endif

CND(B1200, "1200 bps")

#ifndef B1800

# define B1800 -1

#endif

CND(B1800, "1800 bps")

#ifndef B2400

# define B2400 -1

#endif

CND(B2400, "2400 bps")

#ifndef B4800

# define B4800 -1

#endif

CND(B4800, "4800 bps")

#ifndef B9600

# define B9600 -1

#endif

CND(B9600, "9600 bps")

#ifndef B19200

# define B19200 -1

#endif

CND(B19200, "19200 bps")

#ifndef B38400

# define B38400 -1

#endif

CND(B38400, "38400 bps")

#ifndef B57600

# define B57600 -1

#endif

CND(B57600, "57600 bps")

#ifndef B115200

# define B115200 -1

#endif

CND(B115200, "115200 bps")

#ifndef B230400

# define B230400 -1

#endif

CND(B230400, "230400 bps")

#ifndef B460800

# define B460800 -1

#endif

CND(B460800, "460800 bps")

#ifndef B500000

# define B500000 -1

#endif

CND(B500000, "500000 bps")

#ifndef B576000

# define B576000 -1

#endif

CND(B576000, "576000 bps")

#ifndef B921600

# define B921600 -1

#endif

CND(B921600, "921600 bps")

#ifndef B1000000

# define B1000000 -1

#endif

CND(B1000000, "1000000 bps")

#ifndef B1152000

# define B1152000 -1

#endif

CND(B1152000, "1152000 bps")

#ifndef B1500000

# define B1500000 -1

#endif

CND(B1500000, "1500000 bps")

#ifndef B2000000

# define B2000000 -1

#endif

CND(B2000000, "2000000 bps")

#ifndef B2500000

# define B2500000 -1

#endif

CND(B2500000, "2500000 bps")

#ifndef B3000000

# define B3000000 -1

#endif

CND(B3000000, "3000000 bps")

#ifndef B3500000

# define B3500000 -1

#endif

CND(B3500000, "3500000 bps")

#ifndef B4000000

# define B4000000 -1

#endif

CND(B4000000, "4000000 bps")

/*