home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / gnat-2.06-src.tgz / tar.out / fsf / gnat / ada / a-errno.c < prev    next >
C/C++ Source or Header  |  1996-09-28  |  2KB  |  45 lines
  1. /****************************************************************************
  2.  *                                                                          *
  3.  *                 GNU ADA RUNTIME LIBRARY (GNARL) COMPONENTS               *
  4.  *                                                                          *
  5.  *                              a - e r r n o                               *
  6.  *                                                                          *
  7.  *                          C Implementation File                           *
  8.  *                                                                          *
  9.  *                             $Revision: 1.5 $                             *
  10.  *                                                                          *
  11.  *     Copyright (c) 1991,1992,1993,1994,1995 FSU, All Rights Reserved      *
  12.  *                                                                          *
  13.  *  GNARL is free software; you can redistribute it and/or modify it  under *
  14.  *  terms  of  the  GNU  Library General Public License as published by the *
  15.  *  Free Software Foundation; either version 2, or  (at  your  option)  any *
  16.  *  later  version.   GNARL is distributed in the hope that it will be use- *
  17.  *  ful, but but WITHOUT ANY WARRANTY; without even the implied warranty of *
  18.  *  MERCHANTABILITY  or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Gen- *
  19.  *  eral Library Public License for more details.  You should have received *
  20.  *  a  copy of the GNU Library General Public License along with GNARL; see *
  21.  *  file COPYING. If not, write to the Free Software Foundation,  675  Mass *
  22.  *  Ave, Cambridge, MA 02139, USA.                                          *
  23.  *                                                 *
  24.  ****************************************************************************
  25.  */
  26.  
  27. /* This file provides access to the C-language errno to the Ada interface
  28.    for POSIX.  It is not possible in general to import errno, even in
  29.    Ada compilers that allow (as GNAT does) the importation of variables,
  30.    as it may be defined using a macro.
  31. */
  32.  
  33.  
  34. #include <errno.h>
  35. int get_errno()
  36.  {
  37.     return errno;
  38.  }
  39.  
  40. void set_errno(err)
  41.     int err;
  42.  {
  43.     errno = err;
  44.  }
  45.