1  /****************************************************************************
       2   *                                                                          *
       3   *                         GNAT COMPILER COMPONENTS                         *
       4   *                                                                          *
       5   *                           I N I T I A L I Z E                            *
       6   *                                                                          *
       7   *                          C Implementation File                           *
       8   *                                                                          *
       9   *          Copyright (C) 1992-2023, Free Software Foundation, Inc.         *
      10   *                                                                          *
      11   * GNAT is free software;  you can  redistribute it  and/or modify it under *
      12   * terms of the  GNU General Public License as published  by the Free Soft- *
      13   * ware  Foundation;  either version 3,  or (at your option) any later ver- *
      14   * sion.  GNAT is distributed in the hope that it will be useful, but WITH- *
      15   * OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY *
      16   * or FITNESS FOR A PARTICULAR PURPOSE.                                     *
      17   *                                                                          *
      18   * As a special exception under Section 7 of GPL version 3, you are granted *
      19   * additional permissions described in the GCC Runtime Library Exception,   *
      20   * version 3.1, as published by the Free Software Foundation.               *
      21   *                                                                          *
      22   * You should have received a copy of the GNU General Public License and    *
      23   * a copy of the GCC Runtime Library Exception along with this program;     *
      24   * see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see    *
      25   * <http://www.gnu.org/licenses/>.                                          *
      26   *                                                                          *
      27   * GNAT was originally developed  by the GNAT team at  New York University. *
      28   * Extensive contributions were provided by Ada Core Technologies Inc.      *
      29   *                                                                          *
      30   ****************************************************************************/
      31  
      32  /*  This unit provides the default implementation of __gnat_initialize, which
      33      is called before the elaboration of the partition.  It is provided in a
      34      separate file so that users can replace it easily.  But the implementation
      35      should be empty on most targets.  */
      36  
      37  #ifdef IN_RTS
      38  #include "runtime.h"
      39  #else
      40  #include "config.h"
      41  #include "system.h"
      42  #endif
      43  
      44  #include "raise.h"
      45  
      46  #ifdef __cplusplus
      47  extern "C" {
      48  #endif
      49  
      50  /******************************************/
      51  /* __gnat_initialize (NT-mingw32 Version) */
      52  /******************************************/
      53  
      54  #if defined (__MINGW32__)
      55  
      56  void
      57  __gnat_initialize (void *eh)
      58  {
      59     /* Install the Structured Exception handler.  */
      60     if (eh)
      61       __gnat_install_SEH_handler (eh);
      62  }
      63  
      64  #else
      65  
      66  /***************************************/
      67  /* __gnat_initialize (Default Version) */
      68  /***************************************/
      69  
      70  void
      71  __gnat_initialize (void *eh ATTRIBUTE_UNUSED)
      72  {
      73  }
      74  
      75  #endif
      76  
      77  #ifdef __cplusplus
      78  }
      79  #endif