diff options
author | shannonjr <shannonjr@pkgsrc.org> | 2004-06-03 10:07:27 +0000 |
---|---|---|
committer | shannonjr <shannonjr@pkgsrc.org> | 2004-06-03 10:07:27 +0000 |
commit | 9b4bc40e9cf178976725f35ce94b3a7ae9eea44f (patch) | |
tree | eb946b4a8b2c9ffd158b1de2097a35be07d0e4cc /devel/florist | |
parent | 9e013dd12765a8cc7e250598e9021b98355f5976 (diff) | |
download | pkgsrc-9b4bc40e9cf178976725f35ce94b3a7ae9eea44f.tar.gz |
florist-3.15p FSU implementation of POSIX.5 (Ada binding)
Florist is the FSU open-source implementaton
of IEEE Standard 1003.5b-1996, the POSIX Ada
binding, including real-time extensions. This
software provides access to the UNIX operating
system services for application programs
written in the Ada programming language.
Diffstat (limited to 'devel/florist')
21 files changed, 590 insertions, 0 deletions
diff --git a/devel/florist/DESCR b/devel/florist/DESCR new file mode 100644 index 00000000000..d42f794cb66 --- /dev/null +++ b/devel/florist/DESCR @@ -0,0 +1,9 @@ +Florist is the FSU open-source implementaton +of IEEE Standard 1003.5b-1996, the POSIX Ada +binding, including real-time extensions. This +software provides access to the UNIX operating +system services for application programs +written in the Ada programming language. + +Florist is written in Ada and requires an +installed Ada compiler. diff --git a/devel/florist/MESSAGE b/devel/florist/MESSAGE new file mode 100644 index 00000000000..d5a8a063bf3 --- /dev/null +++ b/devel/florist/MESSAGE @@ -0,0 +1,11 @@ +=========================================================================== +$NetBSD: MESSAGE,v 1.1.1.1 2004/06/03 10:07:27 shannonjr Exp $ + +To compile against the Florist packages, +add: + + ${PREFIX}/lib/florist + +to your ADA_INCLUDE_PATH. + +=========================================================================== diff --git a/devel/florist/Makefile b/devel/florist/Makefile new file mode 100644 index 00000000000..da11e427859 --- /dev/null +++ b/devel/florist/Makefile @@ -0,0 +1,55 @@ +# $NetBSD: Makefile,v 1.1.1.1 2004/06/03 10:07:27 shannonjr Exp $ +# + +DISTNAME= florist-3.15p-src +PKGNAME= florist-3.15p +CATEGORIES= devel +MASTER_SITES= ftp://ftp.cs.nyu.edu/pub/gnat/3.15p/ +EXTRACT_SUFX= .tgz + +MAINTAINER= shannonjr@NetBSD.org +HOMEPAGE= ftp://ftp.cs.nyu.edu/pub/gnat/3.15p/ +COMMENT= FSU implementation of POSIX.5 (Ada binding) + +USE_BUILDLINK3= yes +USE_PKGLOCALEDIR= yes +GNU_CONFIGURE= yes +USE_AUTOCONF= yes +AUTOCONF_REQD= 2.12 +USE_GNU_TOOLS+= make + +.include "../../mk/bsd.prefs.mk" + +# This package requires an Ada compiler. Two are available: +# 1) gcc-3.4-ada and 2) gcc-3.4 built with Ada option +# If USE_GCC_34=YES this package will use gcc-3.4. Otherwise, +# it will use gcc-3.4-ada +BUILD_DEFS= USE_GCC_34 +USE_GCC_34?= NO + +post-extract: + ${CP} ${FILESDIR}/pconfig.NetBSD ${WRKSRC}/configs + +pre-configure: +.if !empty(USE_GCC_34:M[Yy][Ee][Ss]) +. include "../../lang/gcc-3.4/preconfigure.mk" +.else +. include "../../lang/gcc-3.4-ada/preconfigure.mk" +.endif + cd ${WRKSRC}; ${AUTOCONF} + +do-install: + @${MKDIR} ${PREFIX}/lib/florist + @${INSTALL_DATA} ${WRKSRC}/floristlib/*.ad[sb] \ + ${WRKSRC}/floristlib/*.ali \ + ${PREFIX}/lib/florist + @${INSTALL_DATA} ${WRKSRC}/floristlib/libflorist.a ${PREFIX}/lib + +.if !empty(USE_GCC_34:M[Yy][Ee][Ss]) +. include "../../lang/gcc-3.4/buildlink3.mk" +.else +. include "../../lang/gcc-3.4-ada/buildlink3.mk" +.endif +.include "../../mk/pthread.buildlink3.mk" +.include "../../mk/autoconf.mk" +.include "../../mk/bsd.pkg.mk" diff --git a/devel/florist/PLIST b/devel/florist/PLIST new file mode 100644 index 00000000000..796a162d134 --- /dev/null +++ b/devel/florist/PLIST @@ -0,0 +1,210 @@ +@comment $NetBSD: PLIST,v 1.1.1.1 2004/06/03 10:07:27 shannonjr Exp $ +lib/florist/ada_streams.ads +lib/florist/ada_streams.ali +lib/florist/ada_task_identification.ads +lib/florist/ada_task_identification.ali +lib/florist/deps.adb +lib/florist/deps.ads +lib/florist/deps5c.adb +lib/florist/deps5c.ads +lib/florist/deps_no_thread.adb +lib/florist/gnatprep.adb +lib/florist/gnatprep.ads +lib/florist/posix-asynchronous_io.adb +lib/florist/posix-asynchronous_io.ads +lib/florist/posix-asynchronous_io.ali +lib/florist/posix-c.adb +lib/florist/posix-c.ads +lib/florist/posix-c.ali +lib/florist/posix-calendar.adb +lib/florist/posix-calendar.ads +lib/florist/posix-calendar.ali +lib/florist/posix-condition_variables.adb +lib/florist/posix-condition_variables.ads +lib/florist/posix-condition_variables.ali +lib/florist/posix-configurable_file_limits.adb +lib/florist/posix-configurable_file_limits.ads +lib/florist/posix-configurable_file_limits.ali +lib/florist/posix-configurable_system_limits.adb +lib/florist/posix-configurable_system_limits.ads +lib/florist/posix-configurable_system_limits.ali +lib/florist/posix-error_codes.ads +lib/florist/posix-event_management.adb +lib/florist/posix-event_management.ads +lib/florist/posix-file_locking.adb +lib/florist/posix-file_locking.ads +lib/florist/posix-file_locking.ali +lib/florist/posix-file_status.adb +lib/florist/posix-file_status.ads +lib/florist/posix-file_status.ali +lib/florist/posix-files.adb +lib/florist/posix-files.ads +lib/florist/posix-files.ali +lib/florist/posix-generic_shared_memory.adb +lib/florist/posix-generic_shared_memory.ads +lib/florist/posix-generic_shared_memory.ali +lib/florist/posix-group_database.adb +lib/florist/posix-group_database.ads +lib/florist/posix-group_database.ali +lib/florist/posix-implementation-ok_signals.ads +lib/florist/posix-implementation-ok_signals.ali +lib/florist/posix-implementation.adb +lib/florist/posix-implementation.ads +lib/florist/posix-implementation.ali +lib/florist/posix-io.adb +lib/florist/posix-io.ads +lib/florist/posix-io.ali +lib/florist/posix-limits.ads +lib/florist/posix-limits.ali +lib/florist/posix-memory_locking.adb +lib/florist/posix-memory_locking.ads +lib/florist/posix-memory_locking.ali +lib/florist/posix-memory_mapping.adb +lib/florist/posix-memory_mapping.ads +lib/florist/posix-memory_mapping.ali +lib/florist/posix-memory_range_locking.adb +lib/florist/posix-memory_range_locking.ads +lib/florist/posix-memory_range_locking.ali +lib/florist/posix-message_queues.adb +lib/florist/posix-message_queues.ads +lib/florist/posix-message_queues.ali +lib/florist/posix-mutexes.adb +lib/florist/posix-mutexes.ads +lib/florist/posix-mutexes.ali +lib/florist/posix-options.ads +lib/florist/posix-options.ali +lib/florist/posix-page_alignment.adb +lib/florist/posix-page_alignment.ads +lib/florist/posix-page_alignment.ali +lib/florist/posix-permissions-implementation.adb +lib/florist/posix-permissions-implementation.ads +lib/florist/posix-permissions-implementation.ali +lib/florist/posix-permissions.adb +lib/florist/posix-permissions.ads +lib/florist/posix-permissions.ali +lib/florist/posix-process_environment.adb +lib/florist/posix-process_environment.ads +lib/florist/posix-process_environment.ali +lib/florist/posix-process_identification.adb +lib/florist/posix-process_identification.ads +lib/florist/posix-process_identification.ali +lib/florist/posix-process_primitives.adb +lib/florist/posix-process_primitives.ads +lib/florist/posix-process_primitives.ali +lib/florist/posix-process_scheduling.adb +lib/florist/posix-process_scheduling.ads +lib/florist/posix-process_scheduling.ali +lib/florist/posix-process_times.adb +lib/florist/posix-process_times.ads +lib/florist/posix-process_times.ali +lib/florist/posix-semaphores.adb +lib/florist/posix-semaphores.ads +lib/florist/posix-semaphores.ali +lib/florist/posix-shared_memory_objects.adb +lib/florist/posix-shared_memory_objects.ads +lib/florist/posix-shared_memory_objects.ali +lib/florist/posix-signals.adb +lib/florist/posix-signals.ads +lib/florist/posix-signals.ali +lib/florist/posix-sockets-internet.adb +lib/florist/posix-sockets-internet.ads +lib/florist/posix-sockets-iso.ads +lib/florist/posix-sockets-local.adb +lib/florist/posix-sockets-local.ads +lib/florist/posix-sockets.adb +lib/florist/posix-sockets.ads +lib/florist/posix-supplement_to_ada_io.adb +lib/florist/posix-supplement_to_ada_io.ads +lib/florist/posix-supplement_to_ada_io.ali +lib/florist/posix-terminal_functions.adb +lib/florist/posix-terminal_functions.ads +lib/florist/posix-terminal_functions.ali +lib/florist/posix-timers.adb +lib/florist/posix-timers.ads +lib/florist/posix-timers.ali +lib/florist/posix-unsafe_process_primitives.adb +lib/florist/posix-unsafe_process_primitives.ads +lib/florist/posix-unsafe_process_primitives.ali +lib/florist/posix-user_database.adb +lib/florist/posix-user_database.ads +lib/florist/posix-user_database.ali +lib/florist/posix-xti-internet.adb +lib/florist/posix-xti-internet.ads +lib/florist/posix-xti-iso.ads +lib/florist/posix-xti-mosi.ads +lib/florist/posix-xti.adb +lib/florist/posix-xti.ads +lib/florist/posix.adb +lib/florist/posix.ads +lib/florist/posix.ali +lib/florist/posix_asynchronous_io.ads +lib/florist/posix_asynchronous_io.ali +lib/florist/posix_c.ads +lib/florist/posix_calendar.ads +lib/florist/posix_calendar.ali +lib/florist/posix_condition_variables.ads +lib/florist/posix_condition_variables.ali +lib/florist/posix_configurable_file_limits.ads +lib/florist/posix_configurable_file_limits.ali +lib/florist/posix_configurable_system_limits.ads +lib/florist/posix_configurable_system_limits.ali +lib/florist/posix_error_codes.ads +lib/florist/posix_file_locking.ads +lib/florist/posix_file_locking.ali +lib/florist/posix_file_status.ads +lib/florist/posix_file_status.ali +lib/florist/posix_files.ads +lib/florist/posix_files.ali +lib/florist/posix_generic_shared_memory.ads +lib/florist/posix_generic_shared_memory.ali +lib/florist/posix_group_database.ads +lib/florist/posix_group_database.ali +lib/florist/posix_io.ads +lib/florist/posix_io.ali +lib/florist/posix_limits.ads +lib/florist/posix_limits.ali +lib/florist/posix_memory_locking.ads +lib/florist/posix_memory_locking.ali +lib/florist/posix_memory_mapping.ads +lib/florist/posix_memory_mapping.ali +lib/florist/posix_memory_range_locking.ads +lib/florist/posix_memory_range_locking.ali +lib/florist/posix_message_queues.ads +lib/florist/posix_message_queues.ali +lib/florist/posix_mutexes.ads +lib/florist/posix_mutexes.ali +lib/florist/posix_options.ads +lib/florist/posix_options.ali +lib/florist/posix_page_alignment.ads +lib/florist/posix_page_alignment.ali +lib/florist/posix_permissions.ads +lib/florist/posix_permissions.ali +lib/florist/posix_process_environment.ads +lib/florist/posix_process_environment.ali +lib/florist/posix_process_identification.ads +lib/florist/posix_process_identification.ali +lib/florist/posix_process_primitives.ads +lib/florist/posix_process_primitives.ali +lib/florist/posix_process_scheduling.ads +lib/florist/posix_process_scheduling.ali +lib/florist/posix_process_times.ads +lib/florist/posix_process_times.ali +lib/florist/posix_semaphores.ads +lib/florist/posix_semaphores.ali +lib/florist/posix_shared_memory_objects.ads +lib/florist/posix_shared_memory_objects.ali +lib/florist/posix_signals.ads +lib/florist/posix_signals.ali +lib/florist/posix_supplement_to_ada_io.ads +lib/florist/posix_supplement_to_ada_io.ali +lib/florist/posix_terminal_functions.ads +lib/florist/posix_terminal_functions.ali +lib/florist/posix_timers.ads +lib/florist/posix_timers.ali +lib/florist/posix_unsafe_process_primitives.ads +lib/florist/posix_unsafe_process_primitives.ali +lib/florist/posix_user_database.ads +lib/florist/posix_user_database.ali +lib/florist/system_storage_elements.ads +lib/libflorist.a +@dirrm lib/florist diff --git a/devel/florist/buildlink3.mk b/devel/florist/buildlink3.mk new file mode 100644 index 00000000000..64a5b9777d4 --- /dev/null +++ b/devel/florist/buildlink3.mk @@ -0,0 +1,17 @@ +# $NetBSD: buildlink3.mk,v 1.1.1.1 2004/06/03 10:07:27 shannonjr Exp $ + +BUILDLINK_DEPTH:= ${BUILDLINK_DEPTH}+ +FLORIST_BUILDLINK3_MK:= ${FLORIST_BUILDLINK3_MK}+ + +.if !empty(BUILDLINK_DEPTH:M+) +BUILDLINK_DEPENDS+= florist +.endif + +.if !empty(FLORIST_BUILDLINK3_MK:M+) +BUILDLINK_PACKAGES+= florist +BUILDLINK_DEPENDS.florist+= florist>=3.6.1 +BUILDLINK_PKGSRCDIR.florist?= ../../lang/florist + +.endif # FLORIST_BUILDLINK3_MK + +BUILDLINK_DEPTH:= ${BUILDLINK_DEPTH:S/+$//} diff --git a/devel/florist/distinfo b/devel/florist/distinfo new file mode 100644 index 00000000000..8ca7da47bc6 --- /dev/null +++ b/devel/florist/distinfo @@ -0,0 +1,18 @@ +$NetBSD: distinfo,v 1.1.1.1 2004/06/03 10:07:27 shannonjr Exp $ + +SHA1 (florist-3.15p-src.tgz) = 1f901f25e4d3d450fa75cd8b0a200e3690282cd7 +Size (florist-3.15p-src.tgz) = 264898 bytes +SHA1 (patch-c-posix.c) = 622d42742a78bad89f8367f92d4931450ec365e5 +SHA1 (patch-configure.in) = b6e182ae9db5960378c047bf84b3a3fe979027a7 +SHA1 (patch-posix-implementation.gpb) = 2b5c58039a2254e36aa450b9b1f69bd9f6d513b4 +SHA1 (patch-posix-io.adb) = 7a9d761e139c0265239cd56bc97366f60b03c80f +SHA1 (patch-posix-message_queues.adb) = 5ef23709667be534df25de79fee5d9e1f59b537f +SHA1 (patch-posix-permissions.adb) = 962377e3d5eb17da9e08c5a5448bdc76ee8d4bb9 +SHA1 (patch-posix-process_environment.adb) = 6b0227ef192134adcb78360a15b9cf1a465576f9 +SHA1 (patch-posix-process_identification.gpb) = c5f45e058e805ff576d8984f50e783dd77d9bd5b +SHA1 (patch-posix-process_primitives.gpb) = 9bdba9b09b855c5a46ea3a2329a4c7a952314a18 +SHA1 (patch-posix-process_scheduling.adb) = 112cec272ebaf54d61547b13a421a59ac8130705 +SHA1 (patch-posix-process_times.adb) = 5f8468ae9fa9c1384fa75a7d4f1f3f469ba9409a +SHA1 (patch-posix-signals.adb) = 1b6c29b51cbebb0970f9c0ee376d38fdf8dd4153 +SHA1 (patch-posix-supplement_to_ada_io.adb) = accafdb30808b498dfbaf6128227daa1dc71db65 +SHA1 (patch-posix-unsafe_process_primitives.gpb) = 4da2f7f5738500d68a5510f6016f4cc17683e83e diff --git a/devel/florist/files/pconfig.NetBSD b/devel/florist/files/pconfig.NetBSD new file mode 100644 index 00000000000..60685c92499 --- /dev/null +++ b/devel/florist/files/pconfig.NetBSD @@ -0,0 +1,7 @@ +#define _POSIX_SOURCE +#define _POSIX_C_SOURCE 199506L +#define _XOPEN_SOURCE +#define _XOPEN_SOURCE_EXTENDED 1 +#define _REENTRANT +#define _P1003_1B_VISIBLE +#include <sys/featuretest.h> diff --git a/devel/florist/patches/patch-c-posix.c b/devel/florist/patches/patch-c-posix.c new file mode 100644 index 00000000000..ee944c6c943 --- /dev/null +++ b/devel/florist/patches/patch-c-posix.c @@ -0,0 +1,34 @@ +$NetBSD: patch-c-posix.c,v 1.1.1.1 2004/06/03 10:07:27 shannonjr Exp $ + +--- c-posix.c.orig 2002-10-24 02:03:51.000000000 -0600 ++++ c-posix.c +@@ -571,7 +571,7 @@ typedef struct siginfo { + #endif + GT2(si_signo, int) + GT2(si_code, int) +- GT2(si_value, union sigval) ++ GT2(si_sigval, union sigval) + GT3 + + /* sigevent must precede aiocb +@@ -2788,7 +2788,11 @@ void create_limits() { + #endif + + #ifdef SEM_VALUE_MAX ++#if SEM_VALUE_MAX > INT_MAX ++ gmaxnn("Semaphores_Value",INT_MAX); ++#else + gmaxnn("Semaphores_Value",SEM_VALUE_MAX); ++#endif + #else + #ifdef _POSIX_SEM_VALUE_MAX + gmaxn("Semaphores_Value",_POSIX_SEM_VALUE_MAX); +@@ -6344,7 +6348,7 @@ void create_c() { + g_struct_msghdr(); + gcmnt("local socket address"); + { struct sockaddr_un DUMMY; +- ifprintf(fp," subtype sun_path_string is ++ ifprintf(fp," subtype sun_path_string is \ + POSIX_String (1 .. %d);\n", sizeof (DUMMY.sun_path)); + } + g_struct_sockaddr_un(); diff --git a/devel/florist/patches/patch-configure.in b/devel/florist/patches/patch-configure.in new file mode 100644 index 00000000000..c9c1d390748 --- /dev/null +++ b/devel/florist/patches/patch-configure.in @@ -0,0 +1,25 @@ +$NetBSD: patch-configure.in,v 1.1.1.1 2004/06/03 10:07:27 shannonjr Exp $ + +--- configure.in.orig Tue Jun 3 03:55:13 2003 ++++ configure.in Tue Jun 3 03:58:10 2003 +@@ -104,6 +104,10 @@ + echo "Using Configuration for" ${UNAME_SYSTEM} ${UNAME_RELEASE}; + cp ./configs/pconfig.LynxOS ./pconfig.h.in; + ;; ++ NetBSD) ++ echo "Using Configuration for" ${UNAME_SYSTEM} ${UNAME_RELEASE}; ++ cp ./configs/pconfig.NetBSD ./pconfig.h.in; ++ ;; + *) + echo "No Configuration for ${UNAME_SYSTEM}. Using default."; + cp ./configs/pconfig.Default ./pconfig.h.in; +@@ -177,7 +181,8 @@ + AC_POSIX_LIB(pthreads, pthread_self,, + AC_POSIX_LIB(cma, pthread_self,, + AC_POSIX_LIB(:libcma.a, pthread_self,, +- AC_POSIX_LIB(thread, pthread_self)))))) ++ AC_POSIX_LIB(thread, pthread_self,, ++ AC_POSIX_LIB(c_r, pthread_self))))))) + fi + + AC_POSIX_LIB(aio, aio_read) diff --git a/devel/florist/patches/patch-posix-implementation.gpb b/devel/florist/patches/patch-posix-implementation.gpb new file mode 100644 index 00000000000..6d511ec8d3c --- /dev/null +++ b/devel/florist/patches/patch-posix-implementation.gpb @@ -0,0 +1,13 @@ +$NetBSD: patch-posix-implementation.gpb,v 1.1.1.1 2004/06/03 10:07:27 shannonjr Exp $ + +--- posix-implementation.gpb.orig 2002-10-24 02:03:52.000000000 -0600 ++++ posix-implementation.gpb +@@ -50,6 +50,8 @@ with Ada.Exceptions, + Unchecked_Conversion; + package body POSIX.Implementation is + ++ pragma Warnings (Off); ++ + use POSIX.C; + + package SIM renames System.Interrupt_Management; diff --git a/devel/florist/patches/patch-posix-io.adb b/devel/florist/patches/patch-posix-io.adb new file mode 100644 index 00000000000..ffa0993e443 --- /dev/null +++ b/devel/florist/patches/patch-posix-io.adb @@ -0,0 +1,12 @@ +$NetBSD: patch-posix-io.adb,v 1.1.1.1 2004/06/03 10:07:27 shannonjr Exp $ + +--- posix-io.adb.orig 2002-10-24 02:03:52.000000000 -0600 ++++ posix-io.adb +@@ -631,6 +631,7 @@ package body POSIX.IO is + To : in Boolean := True) is + Flags : Bits; + Result : int; ++ pragma Warnings (Off, Result); + begin + Begin_Critical_Section; + Flags := To_Bits (fcntl (int (File), F_GETFD)); diff --git a/devel/florist/patches/patch-posix-message_queues.adb b/devel/florist/patches/patch-posix-message_queues.adb new file mode 100644 index 00000000000..6a64a50120e --- /dev/null +++ b/devel/florist/patches/patch-posix-message_queues.adb @@ -0,0 +1,13 @@ +$NetBSD: patch-posix-message_queues.adb,v 1.1.1.1 2004/06/03 10:07:27 shannonjr Exp $ + +--- posix-message_queues.adb.orig 2002-10-24 02:03:52.000000000 -0600 ++++ posix-message_queues.adb +@@ -350,7 +350,7 @@ package body POSIX.Message_Queues is + size_t ((Message'Size + char'Size - 1) / char'Size), + unsigned (Priority)); + Check_NNeg_And_Restore_Signals +- (int (Result), Masked_Signals, Old_Mask'Unchecked_Access); ++ (Result, Masked_Signals, Old_Mask'Unchecked_Access); + end Send; + + --------------- diff --git a/devel/florist/patches/patch-posix-permissions.adb b/devel/florist/patches/patch-posix-permissions.adb new file mode 100644 index 00000000000..8b3e746b9b4 --- /dev/null +++ b/devel/florist/patches/patch-posix-permissions.adb @@ -0,0 +1,13 @@ +$NetBSD: patch-posix-permissions.adb,v 1.1.1.1 2004/06/03 10:07:27 shannonjr Exp $ + +--- posix-permissions.adb.orig 2002-10-24 02:03:52.000000000 -0600 ++++ posix-permissions.adb +@@ -105,7 +105,7 @@ package body POSIX.Permissions is + procedure Set_Allowed_Process_Permissions + (Permissions : in Permission_Set; + Old_Perms : out Permission_Set) is +- Mask : mode_t := ++ Mask : constant mode_t := + not (Form_C_Permission (Permissions) and File_Access_Permission_Bits); + begin + Cached_Umask := Mask; diff --git a/devel/florist/patches/patch-posix-process_environment.adb b/devel/florist/patches/patch-posix-process_environment.adb new file mode 100644 index 00000000000..36759836740 --- /dev/null +++ b/devel/florist/patches/patch-posix-process_environment.adb @@ -0,0 +1,32 @@ +$NetBSD: patch-posix-process_environment.adb,v 1.1.1.1 2004/06/03 10:07:27 shannonjr Exp $ + +--- posix-process_environment.adb.orig 2002-10-24 02:03:52.000000000 -0600 ++++ posix-process_environment.adb +@@ -443,7 +443,7 @@ package body POSIX.Process_Environment i + procedure Copy_Environment + (Source : in Environment; + Target : in out Environment) is +- T_Source : POSIX_String_List := To_POSIX_String_List (Source); ++ T_Source : constant POSIX_String_List := To_POSIX_String_List (Source); + T_Target : POSIX_String_List; + procedure Copy_One (Str : POSIX_String; Done : in out Boolean); + procedure Copy_One (Str : POSIX_String; Done : in out Boolean) is +@@ -490,7 +490,8 @@ package body POSIX.Process_Environment i + Undefined : POSIX.POSIX_String := "") + return POSIX.POSIX_String is + c_name : POSIX_String := Name & NUL; +- Result : char_ptr := Getenv (c_name (c_name'First)'Unchecked_Access); ++ Result : constant char_ptr := ++ Getenv (c_name (c_name'First)'Unchecked_Access); + begin + Validate (Name); + if Result = null then return Undefined; end if; +@@ -568,7 +569,7 @@ package body POSIX.Process_Environment i + while P.all /= null loop + -- .... concise but inefficient + declare +- S : POSIX_String := Form_POSIX_String (P.all); ++ S : constant POSIX_String := Form_POSIX_String (P.all); + J : constant Integer := Split_Point (S); + begin + Append (Strings, S (1 .. J - 1)); diff --git a/devel/florist/patches/patch-posix-process_identification.gpb b/devel/florist/patches/patch-posix-process_identification.gpb new file mode 100644 index 00000000000..a1a026fc894 --- /dev/null +++ b/devel/florist/patches/patch-posix-process_identification.gpb @@ -0,0 +1,13 @@ +$NetBSD: patch-posix-process_identification.gpb,v 1.1.1.1 2004/06/03 10:07:28 shannonjr Exp $ + +--- posix-process_identification.gpb.orig 2002-10-24 02:03:52.000000000 -0600 ++++ posix-process_identification.gpb +@@ -213,7 +213,7 @@ package body POSIX.Process_Identificatio + Name_Ptr : char_ptr; + begin + Name_Ptr := getlogin; +- if (Name_Ptr = null) then Raise_POSIX_Error; end if; ++ if Name_Ptr = null then Raise_POSIX_Error; end if; + return Form_POSIX_String (Name_Ptr); + end Get_Login_Name; + diff --git a/devel/florist/patches/patch-posix-process_primitives.gpb b/devel/florist/patches/patch-posix-process_primitives.gpb new file mode 100644 index 00000000000..81fb92434af --- /dev/null +++ b/devel/florist/patches/patch-posix-process_primitives.gpb @@ -0,0 +1,13 @@ +$NetBSD: patch-posix-process_primitives.gpb,v 1.1.1.1 2004/06/03 10:07:28 shannonjr Exp $ + +--- posix-process_primitives.gpb.orig 2002-10-24 02:03:52.000000000 -0600 ++++ posix-process_primitives.gpb +@@ -49,6 +49,8 @@ with POSIX, + Unchecked_Deallocation; + package body POSIX.Process_Primitives is + ++ pragma Warnings (Off); ++ + use POSIX.C, + POSIX.Implementation, + POSIX.Process_Identification, diff --git a/devel/florist/patches/patch-posix-process_scheduling.adb b/devel/florist/patches/patch-posix-process_scheduling.adb new file mode 100644 index 00000000000..70b82156422 --- /dev/null +++ b/devel/florist/patches/patch-posix-process_scheduling.adb @@ -0,0 +1,13 @@ +$NetBSD: patch-posix-process_scheduling.adb,v 1.1.1.1 2004/06/03 10:07:28 shannonjr Exp $ + +--- posix-process_scheduling.adb.orig 2002-10-24 02:03:52.000000000 -0600 ++++ posix-process_scheduling.adb +@@ -104,7 +104,7 @@ package body POSIX.Process_Scheduling is + begin + Check (sched_getparam + (To_pid_t (Process), Params.Param'Unchecked_Access)); +- return Scheduling_Parameters (Params); ++ return Params; + end Get_Scheduling_Parameters; + + ----------------------------- diff --git a/devel/florist/patches/patch-posix-process_times.adb b/devel/florist/patches/patch-posix-process_times.adb new file mode 100644 index 00000000000..94573fbbd3d --- /dev/null +++ b/devel/florist/patches/patch-posix-process_times.adb @@ -0,0 +1,13 @@ +$NetBSD: patch-posix-process_times.adb,v 1.1.1.1 2004/06/03 10:07:28 shannonjr Exp $ + +--- posix-process_times.adb.orig 2002-10-24 02:03:52.000000000 -0600 ++++ posix-process_times.adb +@@ -64,7 +64,7 @@ package body POSIX.Process_Times is + t : Process_Times; + begin + t.Elapsed_Real_Time := times (t.tms'Unchecked_Access); +- return Process_Times (t); ++ return t; + end Get_Process_Times; + + ---------------------------- diff --git a/devel/florist/patches/patch-posix-signals.adb b/devel/florist/patches/patch-posix-signals.adb new file mode 100644 index 00000000000..fc57a18aa49 --- /dev/null +++ b/devel/florist/patches/patch-posix-signals.adb @@ -0,0 +1,36 @@ +$NetBSD: patch-posix-signals.adb,v 1.1.1.1 2004/06/03 10:07:28 shannonjr Exp $ + +--- posix-signals.adb.orig 2002-10-24 02:03:52.000000000 -0600 ++++ posix-signals.adb +@@ -236,13 +236,6 @@ package body POSIX.Signals is + -- Global Data -- + ------------------ + +- Last_Unblocker : array (Signal) of Task_ID := +- (others => Null_Task); +- pragma Volatile_Components (Last_Unblocker); +- -- Holds the ID of the last Task which Unblocked this Interrupt. +- -- It contains Null_Task if no tasks have ever requested the +- -- Unblocking operation or the Interrupt is currently Blocked. +- + type Signal_Bit_Vector is array (Signal) of Boolean; + + -- Reserved_Signal is the union of the following sets of +@@ -941,7 +934,7 @@ package body POSIX.Signals is + + function Get_Data (Info : Signal_Info) return Signal_Data is + begin +- return To_Signal_Data (Info.si_value); ++ return To_Signal_Data (Info.si_sigval); + end Get_Data; + + ---------------- +@@ -952,7 +945,7 @@ package body POSIX.Signals is + (Info : in out Signal_Info; + Data : in Signal_Data) is + begin +- Info.si_value := To_sigval (Data); ++ Info.si_sigval := To_sigval (Data); + end Set_Data; + + ----------------------- diff --git a/devel/florist/patches/patch-posix-supplement_to_ada_io.adb b/devel/florist/patches/patch-posix-supplement_to_ada_io.adb new file mode 100644 index 00000000000..bf199db0db9 --- /dev/null +++ b/devel/florist/patches/patch-posix-supplement_to_ada_io.adb @@ -0,0 +1,20 @@ +$NetBSD: patch-posix-supplement_to_ada_io.adb,v 1.1.1.1 2004/06/03 10:07:27 shannonjr Exp $ + +--- posix-supplement_to_ada_io.adb.orig 2002-10-24 02:03:52.000000000 -0600 ++++ posix-supplement_to_ada_io.adb +@@ -113,6 +113,7 @@ package body POSIX.Supplement_to_Ada_IO + + F : System_File_Type; + Ret : int; ++ pragma Warnings (Off, Ret); + + begin + F := To_SFT (File); +@@ -126,6 +127,7 @@ package body POSIX.Supplement_to_Ada_IO + + F : System_File_Type; + Ret : int; ++ pragma Warnings (Off, Ret); + + begin + F := To_SFT (File); diff --git a/devel/florist/patches/patch-posix-unsafe_process_primitives.gpb b/devel/florist/patches/patch-posix-unsafe_process_primitives.gpb new file mode 100644 index 00000000000..48fb0316988 --- /dev/null +++ b/devel/florist/patches/patch-posix-unsafe_process_primitives.gpb @@ -0,0 +1,13 @@ +$NetBSD: patch-posix-unsafe_process_primitives.gpb,v 1.1.1.1 2004/06/03 10:07:28 shannonjr Exp $ + +--- posix-unsafe_process_primitives.gpb.orig 2002-10-24 02:03:52.000000000 -0600 ++++ posix-unsafe_process_primitives.gpb +@@ -47,6 +47,8 @@ with POSIX.C, + Unchecked_Conversion; + package body POSIX.Unsafe_Process_Primitives is + ++ pragma Warnings (Off); ++ + use POSIX.C, + POSIX.Implementation; + |