g-socket-dummy.adb, [...]: New files.
2008-08-06 Thomas Quinot <quinot@adacore.com> * g-socket-dummy.adb, g-socket-dummy.ads, g-sothco-dummy.adb, g-sothco-dummy.ads, g-socthi-dummy.adb, g-socthi-dummy.ads, g-sttsne-dummy.ads: New files. * gcc-interface/Makefile.in, Makefile.rtl: Use placeholder sources with pragma Unimplemented_Unit for sockets packages on Nucleus. From-SVN: r138781
This commit is contained in:
Arnaud Charlet
parent
32b9901464
commit
6594c0f3e1
@ -1,3 +1,32 @@
|
||||
2008-08-06 Thomas Quinot <quinot@adacore.com>
|
||||
|
||||
* g-socket-dummy.adb, g-socket-dummy.ads, g-sothco-dummy.adb,
|
||||
g-sothco-dummy.ads, g-socthi-dummy.adb, g-socthi-dummy.ads,
|
||||
g-sttsne-dummy.ads: New files.
|
||||
|
||||
* gcc-interface/Makefile.in, Makefile.rtl: Use placeholder sources
|
||||
with pragma Unimplemented_Unit for sockets packages on Nucleus.
|
||||
|
||||
2008-08-06 Pascal Obry <obry@adacore.com>
|
||||
|
||||
* adaint.c: Another fix for ACL support on Windows.
|
||||
|
||||
2008-08-06 Javier Miranda <miranda@adacore.com>
|
||||
|
||||
* exp_disp (Expand_Interface_Actuals): Adds missing support for
|
||||
expansion of calls to subprograms using selected components.
|
||||
|
||||
2008-08-06 Ed Schonberg <schonberg@adacore.com>
|
||||
|
||||
* sem_res.adb (Resolve_Call): Use base type to determine whether a
|
||||
dereference is needed because a subtype of an access_to_subprogram is
|
||||
simply an access-subtype
|
||||
|
||||
2008-08-06 Jerome Lambourg <lambourg@adacore.com>
|
||||
|
||||
* g-comlin.adb (Set_Command_Line): Now that aliases can contain
|
||||
parameters, always specify the expected separator.
|
||||
|
||||
2008-08-06 Thomas Quinot <quinot@adacore.com>
|
||||
|
||||
* xnmake.adb: Use new XUtil package for platform independent text
|
||||
|
||||
@ -365,11 +365,6 @@ GNATRTL_NONTASKING_OBJS= \
|
||||
g-sercom$(objext) \
|
||||
g-sestin$(objext) \
|
||||
g-sha1$(objext) \
|
||||
g-soccon$(objext) \
|
||||
g-socket$(objext) \
|
||||
g-socthi$(objext) \
|
||||
g-soliop$(objext) \
|
||||
g-sothco$(objext) \
|
||||
g-souinf$(objext) \
|
||||
g-speche$(objext) \
|
||||
g-spchge$(objext) \
|
||||
@ -380,7 +375,6 @@ GNATRTL_NONTASKING_OBJS= \
|
||||
g-sptavs$(objext) \
|
||||
g-string$(objext) \
|
||||
g-strspl$(objext) \
|
||||
g-sttsne$(objext) \
|
||||
g-table$(objext) \
|
||||
g-tasloc$(objext) \
|
||||
g-timsta$(objext) \
|
||||
@ -609,4 +603,5 @@ GNATRTL_NONTASKING_OBJS= \
|
||||
text_io$(objext) \
|
||||
unchconv$(objext) \
|
||||
unchdeal$(objext) \
|
||||
$(GNATRTL_SOCKETS_OBJS) \
|
||||
$(EXTRA_GNATRTL_NONTASKING_OBJS)
|
||||
|
||||
34
gcc/ada/g-socket-dummy.adb
Normal file
34
gcc/ada/g-socket-dummy.adb
Normal file
@ -0,0 +1,34 @@
|
||||
------------------------------------------------------------------------------
|
||||
-- --
|
||||
-- GNAT COMPILER COMPONENTS --
|
||||
-- --
|
||||
-- G N A T . S O C K E T S --
|
||||
-- --
|
||||
-- B o d y --
|
||||
-- --
|
||||
-- Copyright (C) 2001-2008, 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 2, 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. See the GNU General Public License --
|
||||
-- for more details. You should have received a copy of the GNU General --
|
||||
-- Public License distributed with GNAT; see file COPYING. If not, write --
|
||||
-- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, --
|
||||
-- Boston, MA 02110-1301, USA. --
|
||||
-- --
|
||||
-- As a special exception, if other files instantiate generics from this --
|
||||
-- unit, or you link this unit with other files to produce an executable, --
|
||||
-- this unit does not by itself cause the resulting executable to be --
|
||||
-- covered by the GNU General Public License. This exception does not --
|
||||
-- however invalidate any other reasons why the executable file might be --
|
||||
-- covered by the GNU Public License. --
|
||||
-- --
|
||||
-- GNAT was originally developed by the GNAT team at New York University. --
|
||||
-- Extensive contributions were provided by Ada Core Technologies Inc. --
|
||||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
pragma No_Body;
|
||||
39
gcc/ada/g-socket-dummy.ads
Normal file
39
gcc/ada/g-socket-dummy.ads
Normal file
@ -0,0 +1,39 @@
|
||||
------------------------------------------------------------------------------
|
||||
-- --
|
||||
-- GNAT COMPILER COMPONENTS --
|
||||
-- --
|
||||
-- G N A T . S O C K E T S --
|
||||
-- --
|
||||
-- S p e c --
|
||||
-- --
|
||||
-- Copyright (C) 2001-2008, 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 2, 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. See the GNU General Public License --
|
||||
-- for more details. You should have received a copy of the GNU General --
|
||||
-- Public License distributed with GNAT; see file COPYING. If not, write --
|
||||
-- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, --
|
||||
-- Boston, MA 02110-1301, USA. --
|
||||
-- --
|
||||
-- As a special exception, if other files instantiate generics from this --
|
||||
-- unit, or you link this unit with other files to produce an executable, --
|
||||
-- this unit does not by itself cause the resulting executable to be --
|
||||
-- covered by the GNU General Public License. This exception does not --
|
||||
-- however invalidate any other reasons why the executable file might be --
|
||||
-- covered by the GNU Public License. --
|
||||
-- --
|
||||
-- GNAT was originally developed by the GNAT team at New York University. --
|
||||
-- Extensive contributions were provided by Ada Core Technologies Inc. --
|
||||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
-- This package is a placeholder for the sockets binding for platforms where
|
||||
-- it is not implemented.
|
||||
|
||||
package GNAT.Sockets is
|
||||
pragma Unimplemented_Unit;
|
||||
end GNAT.Sockets;
|
||||
34
gcc/ada/g-socthi-dummy.adb
Normal file
34
gcc/ada/g-socthi-dummy.adb
Normal file
@ -0,0 +1,34 @@
|
||||
------------------------------------------------------------------------------
|
||||
-- --
|
||||
-- GNAT COMPILER COMPONENTS --
|
||||
-- --
|
||||
-- G N A T . S O C K E T S . T H I N --
|
||||
-- --
|
||||
-- B o d y --
|
||||
-- --
|
||||
-- Copyright (C) 2001-2008, 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 2, 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. See the GNU General Public License --
|
||||
-- for more details. You should have received a copy of the GNU General --
|
||||
-- Public License distributed with GNAT; see file COPYING. If not, write --
|
||||
-- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, --
|
||||
-- Boston, MA 02110-1301, USA. --
|
||||
-- --
|
||||
-- As a special exception, if other files instantiate generics from this --
|
||||
-- unit, or you link this unit with other files to produce an executable, --
|
||||
-- this unit does not by itself cause the resulting executable to be --
|
||||
-- covered by the GNU General Public License. This exception does not --
|
||||
-- however invalidate any other reasons why the executable file might be --
|
||||
-- covered by the GNU Public License. --
|
||||
-- --
|
||||
-- GNAT was originally developed by the GNAT team at New York University. --
|
||||
-- Extensive contributions were provided by Ada Core Technologies Inc. --
|
||||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
pragma No_Body;
|
||||
39
gcc/ada/g-socthi-dummy.ads
Normal file
39
gcc/ada/g-socthi-dummy.ads
Normal file
@ -0,0 +1,39 @@
|
||||
------------------------------------------------------------------------------
|
||||
-- --
|
||||
-- GNAT COMPILER COMPONENTS --
|
||||
-- --
|
||||
-- G N A T . S O C K E T S . T H I N --
|
||||
-- --
|
||||
-- S p e c --
|
||||
-- --
|
||||
-- Copyright (C) 2001-2008, 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 2, 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. See the GNU General Public License --
|
||||
-- for more details. You should have received a copy of the GNU General --
|
||||
-- Public License distributed with GNAT; see file COPYING. If not, write --
|
||||
-- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, --
|
||||
-- Boston, MA 02110-1301, USA. --
|
||||
-- --
|
||||
-- As a special exception, if other files instantiate generics from this --
|
||||
-- unit, or you link this unit with other files to produce an executable, --
|
||||
-- this unit does not by itself cause the resulting executable to be --
|
||||
-- covered by the GNU General Public License. This exception does not --
|
||||
-- however invalidate any other reasons why the executable file might be --
|
||||
-- covered by the GNU Public License. --
|
||||
-- --
|
||||
-- GNAT was originally developed by the GNAT team at New York University. --
|
||||
-- Extensive contributions were provided by Ada Core Technologies Inc. --
|
||||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
-- This package is a placeholder for the sockets binding for platforms where
|
||||
-- it is not implemented.
|
||||
|
||||
package GNAT.Sockets.Thin is
|
||||
pragma Unimplemented_Unit;
|
||||
end GNAT.Sockets.Thin;
|
||||
34
gcc/ada/g-sothco-dummy.adb
Normal file
34
gcc/ada/g-sothco-dummy.adb
Normal file
@ -0,0 +1,34 @@
|
||||
------------------------------------------------------------------------------
|
||||
-- --
|
||||
-- GNAT COMPILER COMPONENTS --
|
||||
-- --
|
||||
-- G N A T . S O C K E T S . T H I N _ C O M M O N --
|
||||
-- --
|
||||
-- B o d y --
|
||||
-- --
|
||||
-- Copyright (C) 2008, 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 2, 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. See the GNU General Public License --
|
||||
-- for more details. You should have received a copy of the GNU General --
|
||||
-- Public License distributed with GNAT; see file COPYING. If not, write --
|
||||
-- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, --
|
||||
-- Boston, MA 02110-1301, USA. --
|
||||
-- --
|
||||
-- As a special exception, if other files instantiate generics from this --
|
||||
-- unit, or you link this unit with other files to produce an executable, --
|
||||
-- this unit does not by itself cause the resulting executable to be --
|
||||
-- covered by the GNU General Public License. This exception does not --
|
||||
-- however invalidate any other reasons why the executable file might be --
|
||||
-- covered by the GNU Public License. --
|
||||
-- --
|
||||
-- GNAT was originally developed by the GNAT team at New York University. --
|
||||
-- Extensive contributions were provided by Ada Core Technologies Inc. --
|
||||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
pragma No_Body;
|
||||
39
gcc/ada/g-sothco-dummy.ads
Normal file
39
gcc/ada/g-sothco-dummy.ads
Normal file
@ -0,0 +1,39 @@
|
||||
------------------------------------------------------------------------------
|
||||
-- --
|
||||
-- GNAT COMPILER COMPONENTS --
|
||||
-- --
|
||||
-- G N A T . S O C K E T S . T H I N _ C O M M O N --
|
||||
-- --
|
||||
-- S p e c --
|
||||
-- --
|
||||
-- Copyright (C) 2008, 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 2, 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. See the GNU General Public License --
|
||||
-- for more details. You should have received a copy of the GNU General --
|
||||
-- Public License distributed with GNAT; see file COPYING. If not, write --
|
||||
-- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, --
|
||||
-- Boston, MA 02110-1301, USA. --
|
||||
-- --
|
||||
-- As a special exception, if other files instantiate generics from this --
|
||||
-- unit, or you link this unit with other files to produce an executable, --
|
||||
-- this unit does not by itself cause the resulting executable to be --
|
||||
-- covered by the GNU General Public License. This exception does not --
|
||||
-- however invalidate any other reasons why the executable file might be --
|
||||
-- covered by the GNU Public License. --
|
||||
-- --
|
||||
-- GNAT was originally developed by the GNAT team at New York University. --
|
||||
-- Extensive contributions were provided by Ada Core Technologies Inc. --
|
||||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
-- This package is a placeholder for the sockets binding for platforms where
|
||||
-- it is not implemented.
|
||||
|
||||
package GNAT.Sockets.Thin_Common is
|
||||
pragma Unimplemented_Unit;
|
||||
end GNAT.Sockets.Thin_Common;
|
||||
39
gcc/ada/g-sttsne-dummy.ads
Normal file
39
gcc/ada/g-sttsne-dummy.ads
Normal file
@ -0,0 +1,39 @@
|
||||
------------------------------------------------------------------------------
|
||||
-- --
|
||||
-- GNAT COMPILER COMPONENTS --
|
||||
-- --
|
||||
-- G N A T . S O C K E T S . T H I N . T A S K _ S A F E _ N E T D B --
|
||||
-- --
|
||||
-- S p e c --
|
||||
-- --
|
||||
-- Copyright (C) 2007, 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 2, 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. See the GNU General Public License --
|
||||
-- for more details. You should have received a copy of the GNU General --
|
||||
-- Public License distributed with GNAT; see file COPYING. If not, write --
|
||||
-- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, --
|
||||
-- Boston, MA 02110-1301, USA. --
|
||||
-- --
|
||||
-- As a special exception, if other files instantiate generics from this --
|
||||
-- unit, or you link this unit with other files to produce an executable, --
|
||||
-- this unit does not by itself cause the resulting executable to be --
|
||||
-- covered by the GNU General Public License. This exception does not --
|
||||
-- however invalidate any other reasons why the executable file might be --
|
||||
-- covered by the GNU Public License. --
|
||||
-- --
|
||||
-- GNAT was originally developed by the GNAT team at New York University. --
|
||||
-- Extensive contributions were provided by Ada Core Technologies Inc. --
|
||||
-- --
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
-- This package is a placeholder for the sockets binding for platforms where
|
||||
-- it is not implemented.
|
||||
|
||||
package GNAT.Sockets.Thin.Task_Safe_NetDB is
|
||||
pragma Unimplemented_Unit;
|
||||
end GNAT.Sockets.Thin.Task_Safe_NetDB;
|
||||
@ -364,6 +364,22 @@ PREFIX_REAL_OBJS = ../prefix.o \
|
||||
../../libiberty/xstrdup.o \
|
||||
../../libiberty/xexit.o
|
||||
|
||||
# By default, build socket support units. On platforms that do not support
|
||||
# sockets, reset this variable to empty and add DUMMY_SOCKETS_TARGET_PAIRS
|
||||
# to LIBGNAT_TARGET_PAIRS.
|
||||
|
||||
GNATRTL_SOCKETS_OBJS = g-soccon$(objext) g-socket$(objext) g-socthi$(objext) \
|
||||
g-soliop$(objext) g-sothco$(objext) g-sttsne$(objext)
|
||||
|
||||
DUMMY_SOCKETS_TARGET_PAIRS = \
|
||||
g-socket.adb<g-socket-dummy.adb \
|
||||
g-socket.ads<g-socket-dummy.ads \
|
||||
g-socthi.adb<g-socthi-dummy.adb \
|
||||
g-socthi.ads<g-socthi-dummy.ads \
|
||||
g-sothco.adb<g-sothco-dummy.adb \
|
||||
g-sothco.ads<g-sothco-dummy.ads \
|
||||
g-sttsne.ads<g-sttsne-dummy.ads
|
||||
|
||||
LIB_VERSION = $(strip $(shell grep ' Library_Version :' $(fsrcpfx)gnatvsn.ads | sed -e 's/.*"\(.*\)".*/\1/'))
|
||||
|
||||
# $(filter-out PATTERN...,TEXT) removes all PATTERN words from TEXT.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user