gcc-sparc64-ada_fix.patch

   1 --- a/gcc/ada/gcc-interface/Makefile.in 2005-05-26 10:48:40.000000000 +0000
   2 +++ b/gcc/ada/gcc-interface/Makefile.in 2005-05-26 10:59:25.000000000 +0000
   3 @@ -1180,6 +1180,31 @@
   4    LIBRARY_VERSION := $(LIB_VERSION)
   5  endif
   6
   7 +ifeq ($(strip $(filter-out sparc64% linux%,$(arch) $(osys))),)
   8 +  LIBGNAT_TARGET_PAIRS = \
   9 +  a-intnam.ads<a-intnam-linux.ads \
  10 +  s-inmaop.adb<s-inmaop-posix.adb \
  11 +  s-intman.adb<s-intman-posix.adb \
  12 +  s-osinte.adb<s-osinte-posix.adb \
  13 +  s-osinte.ads<s-osinte-linux.ads \
  14 +  s-osprim.adb<s-osprim-posix.adb \
  15 +  s-taprop.adb<s-taprop-linux.adb \
  16 +  s-taspri.ads<s-taspri-posix.ads \
  17 +  s-tpopsp.adb<s-tpopsp-posix-foreign.adb \
  18 +  s-parame.adb<s-parame-linux.adb \
  19 +  system.ads<system-linux-sparc64.ads
  20 +
  21 +  TOOLS_TARGET_PAIRS =  \
  22 +    mlib-tgt.adb<mlib-tgt-linux.adb \
  23 +    indepsw.adb<indepsw-linux.adb
  24 +
  25 +  THREADSLIB = -lpthread
  26 +  GNATLIB_SHARED = gnatlib-shared-dual
  27 +  GMEM_LIB = gmemlib
  28 +  PREFIX_OBJS = $(PREFIX_REAL_OBJS)
  29 +  LIBRARY_VERSION := $(LIB_VERSION)
  30 +endif
  31 +
  32  ifeq ($(strip $(filter-out hppa% linux%,$(arch) $(osys))),)
  33    LIBGNAT_TARGET_PAIRS = \
  34    a-intnam.ads<a-intnam-linux.ads \
  35 --- a/gcc/ada/system-linux-sparc64.ads  1970-01-01 00:00:00.000000000 +0000
  36 +++ b/gcc/ada/system-linux-sparc64.ads  2005-05-21 18:34:52.000000000 +0000
  37 @@ -0,0 +1,151 @@
  38 +------------------------------------------------------------------------------
  39 +--                                                                          --
  40 +--                        GNAT RUN-TIME COMPONENTS                          --
  41 +--                                                                          --
  42 +--                               S Y S T E M                                --
  43 +--                                                                          --
  44 +--                                 S p e c                                  --
  45 +--                          (GNU/Linux-SPARC64 Version)                     --
  46 +--                                                                          --
  47 +--          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
  48 +--                                                                          --
  49 +-- This specification is derived from the Ada Reference Manual for use with --
  50 +-- GNAT. The copyright notice above, and the license provisions that follow --
  51 +-- apply solely to the  contents of the part following the private keyword. --
  52 +--                                                                          --
  53 +-- GNAT is free software;  you can  redistribute it  and/or modify it under --
  54 +-- terms of the  GNU General Public License as published  by the Free Soft- --
  55 +-- ware  Foundation;  either version 2,  or (at your option) any later ver- --
  56 +-- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
  57 +-- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
  58 +-- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --
  59 +-- for  more details.  You should have  received  a copy of the GNU General --
  60 +-- Public License  distributed with GNAT;  see file COPYING.  If not, write --
  61 +-- to  the Free Software Foundation,  59 Temple Place - Suite 330,  Boston, --
  62 +-- MA 02111-1307, USA.                                                      --
  63 +--                                                                          --
  64 +-- As a special exception,  if other files  instantiate  generics from this --
  65 +-- unit, or you link  this unit with other files  to produce an executable, --
  66 +-- this  unit  does not  by itself cause  the resulting  executable  to  be --
  67 +-- covered  by the  GNU  General  Public  License.  This exception does not --
  68 +-- however invalidate  any other reasons why  the executable file  might be --
  69 +-- covered by the  GNU Public License.                                      --
  70 +--                                                                          --
  71 +-- GNAT was originally developed  by the GNAT team at  New York University. --
  72 +-- Extensive contributions were provided by Ada Core Technologies Inc.      --
  73 +--                                                                          --
  74 +------------------------------------------------------------------------------
  75 +
  76 +package System is
  77 +pragma Pure (System);
  78 +--  Note that we take advantage of the implementation permission to
  79 +--  make this unit Pure instead of Preelaborable, see RM 13.7(36)
  80 +
  81 +   type Name is (SYSTEM_NAME_GNAT);
  82 +   System_Name : constant Name := SYSTEM_NAME_GNAT;
  83 +
  84 +   --  System-Dependent Named Numbers
  85 +
  86 +   Min_Int               : constant := Long_Long_Integer'First;
  87 +   Max_Int               : constant := Long_Long_Integer'Last;
  88 +
  89 +   Max_Binary_Modulus    : constant := 2 ** Long_Long_Integer'Size;
  90 +   Max_Nonbinary_Modulus : constant := Integer'Last;
  91 +
  92 +   Max_Base_Digits       : constant := Long_Long_Float'Digits;
  93 +   Max_Digits            : constant := Long_Long_Float'Digits;
  94 +
  95 +   Max_Mantissa          : constant := 63;
  96 +   Fine_Delta            : constant := 2.0 ** (-Max_Mantissa);
  97 +
  98 +   Tick                  : constant := 0.000_001;
  99 +
 100 +   --  Storage-related Declarations
 101 +
 102 +   type Address is private;
 103 +   Null_Address : constant Address;
 104 +
 105 +   Storage_Unit : constant := 8;
 106 +   Word_Size    : constant := 64;
 107 +   Memory_Size  : constant := 2 ** 64;
 108 +
 109 +   --  Address comparison
 110 +
 111 +   function "<"  (Left, Right : Address) return Boolean;
 112 +   function "<=" (Left, Right : Address) return Boolean;
 113 +   function ">"  (Left, Right : Address) return Boolean;
 114 +   function ">=" (Left, Right : Address) return Boolean;
 115 +   function "="  (Left, Right : Address) return Boolean;
 116 +
 117 +   pragma Import (Intrinsic, "<");
 118 +   pragma Import (Intrinsic, "<=");
 119 +   pragma Import (Intrinsic, ">");
 120 +   pragma Import (Intrinsic, ">=");
 121 +   pragma Import (Intrinsic, "=");
 122 +
 123 +   --  Other System-Dependent Declarations
 124 +
 125 +   type Bit_Order is (High_Order_First, Low_Order_First);
 126 +   Default_Bit_Order : constant Bit_Order := High_Order_First;
 127 +
 128 +   --  Priority-related Declarations (RM D.1)
 129 +
 130 +   Max_Priority           : constant Positive := 30;
 131 +   Max_Interrupt_Priority : constant Positive := 31;
 132 +
 133 +   subtype Any_Priority       is Integer      range  0 .. 31;
 134 +   subtype Priority           is Any_Priority range  0 .. 30;
 135 +   subtype Interrupt_Priority is Any_Priority range 31 .. 31;
 136 +
 137 +   Default_Priority : constant Priority := 15;
 138 +
 139 +private
 140 +
 141 +   type Address is mod Memory_Size;
 142 +   Null_Address : constant Address := 0;
 143 +
 144 +   --------------------------------------
 145 +   -- System Implementation Parameters --
 146 +   --------------------------------------
 147 +
 148 +   --  These parameters provide information about the target that is used
 149 +   --  by the compiler. They are in the private part of System, where they
 150 +   --  can be accessed using the special circuitry in the Targparm unit
 151 +   --  whose source should be consulted for more detailed descriptions
 152 +   --  of the individual switch values.
 153 +
 154 +   AAMP                      : constant Boolean := False;
 155 +   Backend_Divide_Checks     : constant Boolean := False;
 156 +   Backend_Overflow_Checks   : constant Boolean := False;
 157 +   Command_Line_Args         : constant Boolean := True;
 158 +   Configurable_Run_Time     : constant Boolean := False;
 159 +   Denorm                    : constant Boolean := True;
 160 +   Duration_32_Bits          : constant Boolean := False;
 161 +   Exit_Status_Supported     : constant Boolean := True;
 162 +   Fractional_Fixed_Ops      : constant Boolean := False;
 163 +   Frontend_Layout           : constant Boolean := False;
 164 +   Functions_Return_By_DSP   : constant Boolean := False;
 165 +   Machine_Overflows         : constant Boolean := False;
 166 +   Machine_Rounds            : constant Boolean := True;
 167 +   OpenVMS                   : constant Boolean := False;
 168 +   Preallocated_Stacks       : constant Boolean := False;
 169 +   Signed_Zeros              : constant Boolean := True;
 170 +   Stack_Check_Default       : constant Boolean := False;
 171 +   Stack_Check_Probes        : constant Boolean := False;
 172 +   Support_64_Bit_Divides    : constant Boolean := True;
 173 +   Support_Aggregates        : constant Boolean := True;
 174 +   Support_Composite_Assign  : constant Boolean := True;
 175 +   Support_Composite_Compare : constant Boolean := True;
 176 +   Support_Long_Shifts       : constant Boolean := True;
 177 +   Suppress_Standard_Library : constant Boolean := False;
 178 +   Use_Ada_Main_Program_Name : constant Boolean := False;
 179 +   ZCX_By_Default            : constant Boolean := True;
 180 +   GCC_ZCX_Support           : constant Boolean := True;
 181 +   Front_End_ZCX_Support     : constant Boolean := False;
 182 +
 183 +   --  Obsolete entries, to be removed eventually (bootstrap issues!)
 184 +
 185 +   High_Integrity_Mode       : constant Boolean := False;
 186 +   Long_Shifts_Inlined       : constant Boolean := True;
 187 +
 188 +end System;