Index: vendor/gcc/dist/contrib/libobjc/ChangeLog =================================================================== --- vendor/gcc/dist/contrib/libobjc/ChangeLog (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/ChangeLog (revision 132722) @@ -1,581 +1,678 @@ -2003-10-16 Release Manager +2004-07-01 Release Manager - * GCC 3.3.2 Released. + * GCC 3.4.1 released. +2004-04-18 Release Manager + + * GCC 3.4.0 released. + +2004-03-01 Michael Matz + + * Makefile.in (ALL_CFLAGS): Add -fno-strict-aliasing. + +2004-01-17 Andrew Pinski + + PR target/10781 + * encoding.c (rs6000_special_round_type_align): Define. + +2004-01-14 Adam Fedor + + PR libobjc/12155 + * selector.c (__objc_register_instance_methods_to_class): Free + new_list if not used. + +2004-01-09 Andrew Ruder + + PR libobjc/11904 + * sarray.c (sarray_free): Free array->is_copy_of latter. + +2003-12-01 Zack Weinberg + + PR 11433 + * Protocol.m (descriptionForInstanceMethod): Don't dereference + instance_methods if it's NULL. + (descriptionForClassMethod): Likewise for class_methods. + +2003-10-24 Rainer Orth + + * Makefile.in (runtime-info.h): Remove -Wp. + +2003-10-21 Rainer Orth + + * Makefile.in (CC1OBJ): Remove. + (runtime-info.h): Invoke $(CC) so all MULTIFLAGS are handled + correctly. + Use .m extension for temporary file. + Remove assembler temp file. + +2003-10-20 Joseph S. Myers + + * objc/hash.h (hash_string): Don't use a cast as an lvalue. + +2003-10-17 Rainer Orth + + * Makefile.in (runtime-info.h): Use MULTIFLAGS. + 2003-09-09 Alan Modra * configure: Regenerate. -2003-08-04 Release Manager +2003-08-27 Alexander Malmberg - * GCC 3.3.1 Released. + * Makefile.in, aclocal.m4: Update to $(libdir)/gcc/ instead of + (libdir)/gcc-lib/ when installing. + * configure: Regenerate. -2003-08-04 Release Manager +Thu Jul 10 10:27:43 2003 Nicola Pero - * GCC 3.3.1 Released. + libobjc/9969 + * sendmsg.c (get_imp): Fixed rare threading problem. + (__objc_responds_to): Similar fixes. + (objc_msg_lookup): Similar fixes. + (__objc_init_install_dtable): Lock the runtime before checking if the + table is installed. -2003-05-13 Release Manager +2003-05-23 Nathanael Nerode - * GCC 3.3 Released. + * hash.c, init.c, libobjc.def, libobjc_entry.c, linking.m, + makefile.dos, misc.c, nil_method.c, objects.c, sarray.c, + selector.c, sendmsg.c, thr-dce.c, thr-decosf1.c, thr-irix.c, + thr-mach.c, thr-objc.c, thr-os2.c, thr-posix.c, thr-pthreads.c, + thr-rtems.c, thr-single.c, thr-solaris.c, thr-vxworks.c, + thr-win32.c, thr.c: Replace "GNU CC" with "GCC". + * Makefile.in, NXConstStr.m, Object.m, Protocol.m, archive.c, + class.c, encoding.c, gc.c, objc/NXConstStr.h, objc/Object.h, + objc/Protocol.h, objc/encoding.h, objc/hash.h, objc/objc-api.h, + objc/objc-list.h, objc/objc.h, ocjc/runtime.h, objc/sarray.h, + objc/thr.h, objc/typedstream.h: Replace "GNU CC" with "GCC". -2003-05-13 Release Manager +Tue May 13 14:56:03 2003 Richard Frith-Macdonald + Nicola Pero - * GCC 3.3 Released. + libobjc/10742 + * init.c (class_superclass_of_class): New function. + (create_tree_of_subclasses_inherited_from): Use it. + (__objc_tree_insert_class): Likewise. + (class_is_subclass_of_class): Likewise. -2003-05-13 Release Manager +2003-04-11 David Chad + Loren J. Rittle - * GCC 3.3 Released. + libobjc/8562 + * objc/hash.h (hash_string): Constify correctly. + (compare_ptrs): Use direct compare. + * objc/objc-list.h (list_nth): Rename index to indx to avoid shadow. + * objc/sarray.h: Global rename index to indx to avoid shadow. +2003-03-12 Andreas Schwab + + * aclocal.m4 (GLIBCPP_EXPORT_INSTALL_INFO): Avoid trailing /. in + glibcpp_toolexeclibdir. + * configure: Rebuilt. + 2003-02-20 Alexandre Oliva * configure.in: Propagate ORIGINAL_LD_FOR_MULTILIBS to config.status. * configure: Rebuilt. 2003-01-27 Alexandre Oliva * aclocal.m4 (glibcpp_toolexeclibdir): Instead of $(MULTISUBDIR), use `$CC -print-multi-os-directory`, unless version_specific_libs is enabled. * configure: Rebuilt. -2003-01-26 Christian Cornelssen +2003-01-09 Christian Cornelssen * Makefile.in (FLAGS_TO_PASS): Also pass DESTDIR. (install-libs, install-headers): Prepend $(DESTDIR) to destination paths in all (un)installation commands. +2002-12-02 Zack Weinberg + + * thr-objc.c: Include coretypes.h and tm.h. + +2002-12-01 Zack Weinberg + + * encoding.c, sendmsg.c: Include coretypes.h and tm.h. + +2002-11-26 Nathanael Nerode + + * configure.in: Remove skip-this-dir support. + * configure: Regenerate. + 2002-09-22 Kaveh R. Ghazi * Makefile.in (all): Fix multilib parallel build. Thu Sep 12 12:44:37 2002 Nicola Pero * sendmsg.c (nil_method): Declare not to take a variable number of args. (objc_msg_lookup): Cast nil_method to IMP before returning it. (objc_msg_lookup_super): The same. 2002-09-10 Jan Hubicka * nil_method.c (nil_method): No longer defined with variable arguments. 2002-07-02 Rodney Brown * objc/encoding.h: Fix formatting. * objc/hash.h: Likewise. * objc/objc-api.h: Likewise. * objc/runtime.h: Likewise. * objc/thr.h: Likewise. * archive.c: Likewise. * class.c: Likewise. * encoding.c: Likewise. * gc.c: Likewise. * hash.c: Likewise. * init.c: Likewise. * misc.c: Likewise. * nil_method.c: Likewise. * objects.c: Likewise. * sarray.c: Likewise. * selector.c: Likewise. * sendmsg.c: Likewise. * thr-mach.c: Likewise. * thr.c: Likewise. 2002-06-25 DJ Delorie * aclocal.m4 (GLIBCPP_CONFIGURE): Split out GLIBCPP_TOPREL_CONFIGURE. * configure.in: Call it before AC_CANONICAL_SYSTEM. * configure: Regenerate. 2002-06-21 Kaveh R. Ghazi * Object.m (forward, read, write): Fix unused parameter warnings. * encoding.c: Include . (target_flags): Mark with attribute unused. (atoi): Delete. * runtime.h (__objc_selector_max_index): Change to unsigned int. (__objc_generate_gc_type_description): Prototype. * selector.c (__objc_selector_max_index): Change to unsigned int. Mon Jun 17 18:37:42 2002 Nicola Pero * sendmsg.c (__objc_get_forward_imp): Fix warning by making sure we always have a return value: if __objc_msg_forward does not supply a forwarding implementation, return the default __builtin_apply based one. 2002-06-15 Kaveh R. Ghazi * Object.m: Fix signed/unsigned warning. * Protocol.m: Likewise. * archive.c: Always include stdlib.h. (objc_read_short, objc_read_unsigned_short, objc_read_int, objc_read_long, __objc_read_nbyte_uint, __objc_read_nbyte_ulong): Fix signed/unsigned warning. (objc_write_type, objc_read_type, objc_write_types, objc_read_types): Ensure ctype 8-bit safety. (__objc_no_write, __objc_no_read): Mark unused parameters. * class.c (class_table_setup): Specify void arg. * encoding.c (atoi, objc_sizeof_type, objc_alignof_type, objc_skip_typespec, objc_skip_offset, objc_layout_structure_next_member): Ensure ctype 8-bit safety. (objc_layout_structure_next_member): Ensure variables are initialized. * gc.c (__objc_generate_gc_type_description, class_ivar_set_gcinvisible): Mark unused parameters. * init.c (__objc_send_load, __objc_destroy_class_tree_node): Mark unused parameters. (__objc_init_protocols) Fix signed/unsigned warning. * nil_method.c (nil_method): Mark unused parameters. * thr.h (objc_thread_callback): Specify void arg. * sarray.c (sarray_new, sarray_realloc, sarray_free): Fix signed/unsigned warning. (sarray_free): Fix formatting. * selector.c (sel_types_match): Ensure ctype 8-bit safety. * sendmsg.c (__objc_init_install_dtable) Mark unused parameters. 2002-06-09 Andreas Jaeger * encoding.c (objc_layout_structure_next_member): Remove unused variable. 2002-05-20 Kaveh R. Ghazi * Makefile.in (SHELL): Set to @SHELL@. (WARN_CFLAGS): New. (ALL_CFLAGS): Add $(WARN_CFLAGS). 2002-05-16 Rainer Orth * aclocal.m4: Allow for PWDCMD to override hardcoded pwd. * configure: Regenerate. 2002-05-08 Alexandre Oliva * configure.in (ORIGINAL_LD_FOR_MULTILIBS): Preserve LD at script entry, and set LD to it when configuring multilibs. * configure: Rebuilt. 2002-04-19 David O'Brien * encoding.c (MAX, MIN, ROUNDING): #undef before defining. 2002-04-09 Hans-Peter Nilsson PR objc/6107 * objc/objc-api.h (struct objc_protocol_list): Change type of member count from int to size_t. 2002-02-11 Franz Sirl PR libobjc/4039 * aclocal.m4: Replace with version copied from libstdc++-v3. * configure.in: Update for changes to aclocal and Makefile. * configure: Regenerate. * Makefile.in: Correct install of multilibs and shared libs, use INSTALL_DATA for include files. Mon Dec 17 17:02:12 2001 Nicola Pero * init.c (__objc_exec_class): Fixed bug in the loop on unclaimed categories - when an unclaimed category was found, the loop was doing two steps forward instead of one, so that in certain cases it was failing to properly load all the categories. (Reported with fix by Alexander Malmberg ). 2001-11-14 Aldy Hernandez - * encoding.c: Add target_flags. + * encoding.c: Add target_flags. 2001-11-07 Aldy Hernandez * objc/objc-api.h (_C_VECTOR): New. * encoding.c (VECTOR_TYPE): New. Mon Oct 29 21:29:21 2001 Nicola Pero * class.c: Rewritten the class table to use optimized, lock-free - lookup. This more than doubles the speed of class method - invocations. (class_table_setup), (class_table_insert), - (class_table_replace), (class_table_get_safe), - (class_table_next), (class_table_print), - (class_table_print_histogram): New functions. - (__objc_init_class_tables): Use class_table_setup. - (__objc_add_class_to_hash): Use class_table_get_safe and - class_table_insert. (objc_lookup_class), (objc_get_class): Do not - assert the existence of the table; do not lock the runtime; use - class_table_get_safe. (objc_next_class): Use class_table_next. - (__objc_resolve_class_links): Use class_table_next. - (class_pose_as): Use class_table_replace. + lookup. This more than doubles the speed of class method + invocations. (class_table_setup), (class_table_insert), + (class_table_replace), (class_table_get_safe), + (class_table_next), (class_table_print), + (class_table_print_histogram): New functions. + (__objc_init_class_tables): Use class_table_setup. + (__objc_add_class_to_hash): Use class_table_get_safe and + class_table_insert. (objc_lookup_class), (objc_get_class): Do not + assert the existence of the table; do not lock the runtime; use + class_table_get_safe. (objc_next_class): Use class_table_next. + (__objc_resolve_class_links): Use class_table_next. + (class_pose_as): Use class_table_replace. 2001-09-10 Ovidiu Predescu * gc.c: Removed the DEBUG declaration. Wed Jul 18 12:48:56 2001 Nicola Pero * thr.c (objc_mutex_lock): Invoke __objc_thread_id directly, rather than through objc_thread_id, to save a function call. (objc_mutex_trylock, objc_mutex_unlock, objc_condition_wait): Ditto. Mon Jul 16 12:15:00 2001 Nicola Pero * objc/objc-api.h (object_is_class): Fixed - buggy code was trying to cast an id to a Class, which can not be done. Make the check by using CLS_ISMETA on the class pointer instead. (object_is_meta_class): Similar fix. 2001-06-09 Alexandre Oliva , Stephen L Moshier * configure.in (AC_EXEEXT): Work around in case it expands to nothing, as in autoconf 2.50. * acinclude.m4: Likewise. * configure: Rebuilt. 2001-06-08 Nicola Pero * THREADS: Explain that when we compile libobjc inside GCC, we always use thr-objc.c as a backend, which uses GCC's thread code. 2001-06-06 Richard Frith-Macdonald * init.c (__objc_send_message_in_list): When setting a new entry in __objc_load_methods use the method IMP as key, but check to see if the method is in the hashtable by looking at the IMP also. Also ... call the method after adding it to the hashtable rather than before ... thus preventing an obscure possibility of infinite recursion if a +load method itself loads a subclass. 2001-05-25 Ovidiu Predescu * init.c (__objc_send_message_in_list): When setting a new entry in __objc_load_methods use the method name as key, not the method IMP (reported by Richard Frith-Macdonald ). 2001-05-09 Joseph S. Myers * objc-features.texi: Move to ../gcc/objc.texi. * fdl.texi: Remove. * Makefile.in: Don't generate documentation from objc-features.texi. 2001-05-01 Mark Mitchell * fdl.texi: New file. * objc-features.texi: Simplify. * Makefile.in: Adjust accordingly. 2001-04-30 Mark Mitchell * objc-features.texi: Use the GFDL. Wed Mar 21 04:44:58 EST 2001 John Wehle (john@feith.com) * encoding.c (REAL_TYPE): Define. 2001-03-19 David Edelsohn * encoding.c (TYPE_MODE): Define. 2001-03-14 Nicola Pero * thr.c (objc_thread_add): New function. (objc_thread_remove): Ditto. * objc/thr.h: Declare them. * libobjc.def: Mention them. 2001-02-28 Ovidiu Predescu * objc-features.texi: Document the @compatibility_alias compiler directive (description from Nicola Pero ). Fri Feb 23 18:12:00 2001 Rainer Orth * sendmsg.c (__objc_forward): Delete strlen() declaration. 2001-02-08 Geoffrey Keating * configure.in: Don't run AC_PROG_CC_WORKS or AC_EXEEXT, because we're not interested in the result and they might fail. * configure: Regenerated. 2001-01-12 Joseph S. Myers * objc-features.texi: Use @email. 2001-01-12 Joseph S. Myers * sendmsg.c (__objc_print_dtable_stats): Don't use #ifdef inside printf. 2000-01-11 Richard Earnshaw * encoding.c (STRUCTURE_SIZE_BOUNDARY): Redefine in a way that determines the value dynamically. Wed Jan 3 00:49:10 2001 Ovidiu Predescu * sendmsg.c: Added __objc_msg_forward, a hook that allows external libraries to provide a function that returns the real forwarding function. This can alleviate problems __builtin_apply() and friends have on various platforms. (Solution suggested by Helge Hess.) * objc/objc-api.h: Define __objc_msg_forward. * sendmsg.c: Define gen_rtx_REG. 2000-12-06 Ralf Corsepius * thr-rtems.c: New file. Stub to compile. 2000-09-06 Alexandre Oliva * configure: Rebuilt with new libtool.m4. Tue Aug 15 00:38:56 2000 Ovidiu Predescu * configure.in: Create a config.h file. Check for . * configure: Regenerate. * config.h.in: Check for . 2000-08-14 Zack Weinberg * configure: Regenerate after change to ../libtool.m4. 2000-08-14 Andreas Schwab * objc-features.texi (Top): Move @menu at end of node. 2000-08-11 Manfred Hollstein * objc-features.texi: Move @node Top before @menu. Sun Aug 6 23:27:49 2000 Ovidiu Predescu * objc-features.texi: Documented the new -fconstant-string-class option. Sun Aug 6 22:51:16 2000 Ovidiu Predescu * thr-posix.c: Integrated Chris Ball's changes to improve the Posix thread support for Objective-C. 2000-08-04 Zack Weinberg * aclocal.m4: Replace copy of ../libtool.m4 with sinclude(../libtool.m4). Fri Jul 28 08:58:02 2000 Nicola Pero * configure.in: Added libtool support; build shared libraries if --enable-shared was passed on command line. * Makefile.in: Modified most compilation commands to use libtool. * aclocal.m4: New symbolic link to the ../libtool.m4, from the libtool distribution. Sat Jul 29 00:10:21 2000 Ovidiu Predescu * sarray.c, Object.m: Removed the explicit prototypes for strlen and memcpy on 64-bit platforms (Suggested by Rodney Brown ). 2000-05-12 H.J. Lu (hjl@gnu.org) * Makefile.in (GTHREAD_FLAGS): New. (ALL_CFLAGS): Add $(GTHREAD_FLAGS). (OBJC_THREAD_FILE): Changed to thr-objc. * configure.in (GTHREAD_FLAGS): New, check and replace it for Makefile. (OBJC_THREAD_FILE): Removed. * thr-objc.c: New. 2000-07-13 Kaveh R. Ghazi * objc/hash.h: Include string.h. 2000-04-15 David Edelsohn * Object.m (strlen): 64-bit PowerPC is a 64bit platform as well. 2000-04-12 Jakub Jelinek * Object.m (strlen): Provide prototype on all 64bit platforms, not only alpha. * sarray.c (memcpy): Likewise. * encoding.c (objc_layout_finish_structure): Don't use ROUND_TYPE_ALIGN on sparc. * encoding.c (objc_layout_structure_next_member): Do the whole procedure even for the first member, so that we get correct alignment. 2000-03-29 Zack Weinberg * objc/Protocol.h, objc/objc-list.h: Change #endif labels to comments. 2000-02-23 Zack Weinberg * Makefile.in: Add -DIN_TARGET_LIBS to ALL_CFLAGS. Thu Sep 23 07:19:12 1999 Chris Ball * thr-posix.c (__objc_mutex_deallocate): made deallocate work. Tue Sep 21 07:47:10 1999 Jeffrey A Law (law@cygnus.com) * Makefile.in (gc.o, gc_gc.o): Do not pass -fgnu-runtime to the compiler when building C code. Fri Aug 6 23:32:29 1999 Daniel Jacobowitz * Makefile.in (FLAGS_TO_PASS): Include prefix, exec_prefix, libdir, libsubdir and tooldir. Mon Jun 21 05:40:15 1999 John David Anglin * init.c (__objc_force_linking): Make global. Thu May 20 03:20:59 1999 Jeffrey A Law (law@cygnus.com) * configure.in (AC_EXEEXT): Remove call. (compiler_name): Explicitly check with no extension and .exe extension. * configure: Regenerate. Sun Apr 25 01:15:34 1999 Mumit Khan * Makefile.in (CC1OBJ): Define in terms of CC. (runtime-info.h): Use. Fri April 8 08:21:07 1999 Ovidiu Predescu * objc-features.texi: Updated the URL to Boehm's GC page. Fri Mar 26 23:41:07 1999 Ovidiu Predescu * archive.c (__objc_code_char, __objc_write_char): Explicitly specify the char as being signed (patch from Daniel Jacobowitz ). Wed Mar 24 22:41:28 1999 Mumit Khan * configure.in (AC_PREREQ): Update to 2.13. (AC_EXEEXT): Call to find possible file extension. (compiler_name): Use. * configure: Regenerate. Wed Jan 27 02:31:01 1999 Jeffrey A Law (law@cygnus.com) * Makefile.in (ALL_CFLAGS): Add -DIN_GCC. Tue Jan 5 01:38:53 1999 Jeffrey A Law (law@cygnus.com) * configure.in (thread_file): Correct and simplify code to find the thread file. * configure: Rebuilt. 1998-11-26 Manfred Hollstein * configure.in (compiler_name): Add check to detect if this language's compiler has been built. * configure: Regenerate. Mon Nov 23 16:50:28 1998 Kaveh R. Ghazi * configure.in: Use AC_PREREQ(2.12.1). Thu Nov 19 20:33:37 1998 Jeffrey A Law (law@cygnus.com) * Makefile.in (runtime-info.h): Avoid GNU make extensions. Sun Nov 8 17:46:14 1998 Kaveh R. Ghazi * Makefile.in (INCLUDES): Add -I$(srcdir)/$(MULTISRCTOP)../include. Thu Oct 22 14:34:06 1998 Kaveh R. Ghazi * configure.in: Use AC_CONFIG_AUX_DIR($topsrcdir). Sat Oct 17 05:21:31 1998 Ovidiu Predescu * objc-features.texi (Top): Changed the email address. * objc-features.texi (Garbage Collection): Use @uref instead of @url. Mon Oct 11 21:25:27 1998 Ovidiu Predescu * encoding.c: Redefine get_inner_array_type to get the first entry in the structure. Thu Oct 8 12:21:14 1998 Richard Frith-Macdonald * encoding.c (objc_skip_type_qualifiers): Handle _C_BYREF. (objc_get_type_qualifiers): Similarly. * objc/encoding.h (_C_BYREF): Define. (_F_BYREF): Define. 1998-10-07 David S. Miller * objc/sarray.h: Make boffset be an unsigned long when sparc so it works out on 64-bit systems. Tue Oct 6 20:32:06 1998 Alexandre Oliva * Makefile.in (INCLUDES): Make it multilib-friendly. Fri Oct 2 07:12:14 1998 H.J. Lu (hjl@gnu.org) * Makefile.in (INCLUDES): Add -I$(srcdir)/../gcc. Thu Oct 1 22:33:03 1998 Robert Lipe Jeffrey A Law (law@cygnus.com) * Makefile.in (INCLUDES): Reference gcc via $MULTIBUILDTOP. (FLAGS_TO_PASS): Added. (runtime-info.h): Reference cc1ibj via $MULTIBUILDTOP. * archive.c: Change config.h to tconfig.h. * configure.in: Find gcc's object directory even for multilibs. Wed Sep 30 18:17:17 1998 Robert Lipe * configure.in: Escape ^ in grep string. * configure: Rebuilt. Wed Sep 30 09:14:52 1998 Jeffrey A Law (law@cygnus.com) * All .h files pushed down into the objc/ subdirectory. * Makefile.in (copy_headers): Corresponding changes. * configure.in (AC_INIT): Corresponding changes. * configure: Rebuilt. 1998-09-30 Ben Elliston Jeff Law * Makefile.in: Rewrite. * configure.in: Likewise. * configure: Regenerate. * All .c files. Remove "objc" prefix when including objc header files. Include tconfig.h, not ../tconfig.h. Mon Sep 21 23:27:10 1998 Ovidiu Predescu * encoding.c (TREE_TYPE, ARRAY_TYPE): Define. (get_inner_array_type): Define. 1998-09-21 Ben Elliston * New directory. Moved files from ../gcc/objc. Index: vendor/gcc/dist/contrib/libobjc/Makefile.in =================================================================== --- vendor/gcc/dist/contrib/libobjc/Makefile.in (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/Makefile.in (revision 132722) @@ -1,359 +1,352 @@ -#Makefile for GNU Objective C runtime library. -#Copyright (C) 1993, 95-98, 1999, 2001 Free Software Foundation, Inc. +# Makefile for GNU Objective C runtime library. +# Copyright (C) 1993, 95-98, 1999, 2001, 2002, 2003 +# Free Software Foundation, Inc. -#This file is part of GNU CC. +#This file is part of GCC. -#GNU CC is free software; you can redistribute it and/or modify +#GCC is free software; you can redistribute it and/or modify #it under the terms of the GNU General Public License as published by #the Free Software Foundation; either version 2, or (at your option) #any later version. -#GNU CC is distributed in the hope that it will be useful, +#GCC is distributed in the hope that it will be useful, #but WITHOUT 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 -#along with GNU CC; see the file COPYING. If not, write to +#along with GCC; see the file COPYING. If not, write to #the Free Software Foundation, 59 Temple Place - Suite 330, #Boston, MA 02111-1307, USA. */ #This was cribbed from the libchill, libiberty and libstdc++ #Makefile.in files. Some of this stuff may be unnecessary and #worthless. SHELL = @SHELL@ MAKEOVERRIDES= #### Start of system configuration section. #### srcdir = @glibcpp_srcdir@ VPATH = @glibcpp_srcdir@ prefix = @prefix@ exec_prefix = @exec_prefix@ target_alias = @target_alias@ gcc_version = @gcc_version@ gcc_version_trigger = @gcc_version_trigger@ top_srcdir = @top_srcdir@ toplevel_srcdir = @toplevel_srcdir@ toolexecdir = @glibcpp_toolexecdir@ glibcpp_toolexecdir = @glibcpp_toolexecdir@ glibcpp_toolexeclibdir = @glibcpp_toolexeclibdir@ top_builddir = . libdir = $(exec_prefix)/lib -libsubdir = $(libdir)/gcc-lib/$(target_alias)/$(gcc_version) +libsubdir = $(libdir)/gcc/$(target_alias)/$(gcc_version) # Multilib support variables. MULTISRCTOP = MULTIBUILDTOP = MULTIDIRS = MULTISUBDIR = MULTIDO = true MULTICLEAN = true # Not configured per top-level version, since that doesn't get passed # down at configure time, but overrridden by the top-level install # target. INSTALL = @INSTALL@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_DATA = @INSTALL_DATA@ AR = @AR@ AR_FLAGS = rc RANLIB = @RANLIB@ CC = @CC@ CFLAGS = @CFLAGS@ WARN_CFLAGS = -W -Wall -Wwrite-strings -Wstrict-prototypes GTHREAD_FLAGS=@GTHREAD_FLAGS@ ALL_CFLAGS = -I. -I$(srcdir) $(CPPFLAGS) $(DEFS) $(CFLAGS) $(WARN_CFLAGS) \ - $(GTHREAD_FLAGS) -DIN_GCC -DIN_TARGET_LIBS + $(GTHREAD_FLAGS) -DIN_GCC -DIN_TARGET_LIBS -fno-strict-aliasing # Libtool # The following strings describe the version of the obj-C library # begin compiled and compatibility issues. # Please refer to Libtool documentation about how to manage these # numbers. LIBOBJC_VERSION = 1:0:0 LIBOBJC_GC_VERSION = 1:0:0 # @LIBTOOL@ does not get it right, so we hack it in - FIXME LIBTOOL = ./libtool LIBTOOL_COMPILE = $(LIBTOOL) --mode=compile LIBTOOL_LINK = $(LIBTOOL) --mode=link LIBTOOL_INSTALL = $(LIBTOOL) --mode=install LIBTOOL_CLEAN = $(LIBTOOL) --mode=clean #LIBTOOL_UNINSTALL = $(LIBTOOL) --mode=uninstall -# -# Define the cc1obj in terms of the CC that is passed on from higher -# level make. This is needed to make sure we can create runtime-info.h -# when doing canadian cross builds where running ../../gcc/cc1obj -# does not make any sense. -# -CC1OBJ = `$(CC) -print-prog-name=cc1obj` - INCLUDES = -I$(srcdir)/objc -I$(srcdir)/$(MULTISRCTOP)../gcc \ -I$(srcdir)/$(MULTISRCTOP)../gcc/config -I$(MULTIBUILDTOP)../../gcc \ -I$(srcdir)/$(MULTISRCTOP)../include OBJC_GCFLAGS=-DOBJC_WITH_GC=1 OBJC_THREAD_FILE=thr-objc OBJC_BOEHM_GC=@OBJC_BOEHM_GC@ .SUFFIXES: .SUFFIXES: .c .m .lo .c.lo: $(LIBTOOL_COMPILE) $(CC) -c $(ALL_CFLAGS) $(INCLUDES) $< .m.lo: $(LIBTOOL_COMPILE) $(CC) -c $(ALL_CFLAGS) $(INCLUDES) $< # Flags to pass to a recursive make. FLAGS_TO_PASS = \ "AR=$(AR)" \ "AR_FLAGS=$(AR_FLAGS)" \ "CC=$(CC)" \ "CFLAGS=$(CFLAGS)" \ "DESTDIR=$(DESTDIR)" \ "LIBCFLAGS=$(LIBCFLAGS)" \ "EXTRA_OFILES=$(EXTRA_OFILES)" \ "HDEFINES=$(HDEFINES)" \ "INSTALL=$(INSTALL)" \ "INSTALL_DATA=$(INSTALL_DATA)" \ "INSTALL_PROGRAM=$(INSTALL_PROGRAM)" \ "LDFLAGS=$(LDFLAGS)" \ "LIBTOOL=$(LIBTOOL)" \ "LOADLIBES=$(LOADLIBES)" \ "PICFLAG=$(PICFLAG)" \ "RANLIB=$(RANLIB)" \ "SHELL=$(SHELL)" \ "prefix=$(prefix)" \ "exec_prefix=$(exec_prefix)" \ "libdir=$(libdir)" \ "libsubdir=$(libsubdir)" \ "tooldir=$(tooldir)" all: libobjc.la $(OBJC_BOEHM_GC) : $(MAKE) ; exec $(MULTIDO) $(FLAGS_TO_PASS) multi-do DO=all # User-visible header files. OBJC_H = hash.h objc-list.h sarray.h objc.h objc-api.h \ NXConstStr.h Object.h Protocol.h encoding.h typedstream.h \ thr.h # Modules that comprise the runtime library. OBJS = archive.lo class.lo encoding.lo gc.lo hash.lo init.lo linking.lo \ misc.lo nil_method.lo NXConstStr.lo Object.lo objects.lo \ Protocol.lo sarray.lo selector.lo sendmsg.lo thr.lo \ $(OBJC_THREAD_FILE).lo OBJS_GC = archive_gc.lo class_gc.lo encoding_gc.lo gc_gc.lo hash_gc.lo \ init_gc.lo linking_gc.lo misc_gc.lo nil_method_gc.lo \ NXConstStr_gc.lo Object_gc.lo objects_gc.lo Protocol_gc.lo \ sarray_gc.lo selector_gc.lo sendmsg_gc.lo thr_gc.lo \ $(OBJC_THREAD_FILE)_gc.lo runtime-info.h: - echo "" > tmp-runtime + echo "" > tmp-runtime.m echo "/* This file is automatically generated */" > $@ - $(CC1OBJ) -print-objc-runtime-info tmp-runtime >> $@ - rm -f tmp-runtime + $(CC) $(MULTIFLAGS) -print-objc-runtime-info -S tmp-runtime.m >> $@ + rm -f tmp-runtime.m tmp-runtime.s archive_gc.lo: archive.c $(LIBTOOL_COMPILE) $(CC) -c -o $@ $(ALL_CFLAGS) $(OBJC_GCFLAGS) \ $(INCLUDES) $< class_gc.lo: class.c $(LIBTOOL_COMPILE) $(CC) -c -o $@ $(ALL_CFLAGS) $(OBJC_GCFLAGS) \ $(INCLUDES) $< encoding_gc.lo: encoding.c $(LIBTOOL_COMPILE) $(CC) -c -o $@ $(ALL_CFLAGS) $(OBJC_GCFLAGS) \ $(INCLUDES) $< gc.lo: gc.c $(LIBTOOL_COMPILE) $(CC) -c -o $@ $(ALL_CFLAGS) $(INCLUDES) $< gc_gc.lo: gc.c $(LIBTOOL_COMPILE) $(CC) -c -o $@ $(ALL_CFLAGS) $(OBJC_GCFLAGS) \ $(INCLUDES) $< hash_gc.lo: hash.c $(LIBTOOL_COMPILE) $(CC) -c -o $@ $(ALL_CFLAGS) $(OBJC_GCFLAGS) \ $(INCLUDES) $< init_gc.lo: init.c $(LIBTOOL_COMPILE) $(CC) -c -o $@ $(ALL_CFLAGS) $(OBJC_GCFLAGS) \ $(INCLUDES) $< linking.lo: linking.m $(LIBTOOL_COMPILE) $(CC) -fgnu-runtime -c -o $@ $(ALL_CFLAGS) \ $(INCLUDES) $< linking_gc.lo: linking.m $(LIBTOOL_COMPILE) $(CC) -fgnu-runtime -c -o $@ $(ALL_CFLAGS) \ $(OBJC_GCFLAGS) $(INCLUDES) $< misc_gc.lo: misc.c $(LIBTOOL_COMPILE) $(CC) -c $(ALL_CFLAGS) -o $@ $(OBJC_GCFLAGS) \ $(INCLUDES) $< nil_method_gc.lo: nil_method.c $(LIBTOOL_COMPILE) $(CC) -c $(ALL_CFLAGS) -o $@ $(OBJC_GCFLAGS) \ $(INCLUDES) $< NXConstStr.lo: NXConstStr.m $(LIBTOOL_COMPILE) $(CC) -fgnu-runtime -c -o $@ $(ALL_CFLAGS) \ $(INCLUDES) $< NXConstStr_gc.lo: NXConstStr.m $(LIBTOOL_COMPILE) $(CC) -fgnu-runtime -c -o $@ $(ALL_CFLAGS) \ $(OBJC_GCFLAGS) $(INCLUDES) $< Object.lo: Object.m $(LIBTOOL_COMPILE) $(CC) -fgnu-runtime -c -o $@ $(ALL_CFLAGS) \ $(INCLUDES) $< Object_gc.lo: Object.m $(LIBTOOL_COMPILE) $(CC) -fgnu-runtime -c -o $@ $(ALL_CFLAGS) \ $(OBJC_GCFLAGS) $(INCLUDES) $< objects_gc.lo: objects.c $(LIBTOOL_COMPILE) $(CC) -c $(ALL_CFLAGS) -o $@ $(OBJC_GCFLAGS) \ $(INCLUDES) $< Protocol.lo: Protocol.m $(LIBTOOL_COMPILE) $(CC) -fgnu-runtime -c -o $@ $(ALL_CFLAGS) \ $(INCLUDES) $< Protocol_gc.lo: Protocol.m $(LIBTOOL_COMPILE) $(CC) -fgnu-runtime -c -o $@ $(ALL_CFLAGS) \ $(OBJC_GCFLAGS) $(INCLUDES) $< sarray_gc.lo: sarray.c $(LIBTOOL_COMPILE) $(CC) -c -o $@ $(ALL_CFLAGS) $(OBJC_GCFLAGS) \ $(INCLUDES) $< selector_gc.lo: selector.c $(LIBTOOL_COMPILE) $(CC) -c -o $@ $(ALL_CFLAGS) $(OBJC_GCFLAGS) \ $(INCLUDES) $< sendmsg.lo: sendmsg.c runtime-info.h $(LIBTOOL_COMPILE) $(CC) -c -o $@ $(ALL_CFLAGS) $(INCLUDES) $< sendmsg_gc.lo: sendmsg.c runtime-info.h $(LIBTOOL_COMPILE) $(CC) -c -o $@ $(ALL_CFLAGS) $(OBJC_GCFLAGS) \ $(INCLUDES) $< thr_gc.lo: thr.c $(LIBTOOL_COMPILE) $(CC) -c -o $@ $(ALL_CFLAGS) $(OBJC_GCFLAGS) \ $(INCLUDES) $< $(OBJC_THREAD_FILE)_gc.lo: $(OBJC_THREAD_FILE).c $(LIBTOOL_COMPILE) $(CC) -c -o $@ $(ALL_CFLAGS) $(OBJC_GCFLAGS) \ $(INCLUDES) $< doc: info dvi html libobjc.la: $(OBJS) $(LIBTOOL_LINK) $(CC) -o $@ $(OBJS) \ -rpath $(glibcpp_toolexeclibdir) \ -version-info $(LIBOBJC_VERSION) libobjc_gc.la: $(OBJS_GC) $(LIBTOOL_LINK) $(CC) -o $@ $(OBJS_GC) \ -rpath $(glibcpp_toolexeclibdir) \ -version-info $(LIBOBJC_GC_VERSION) # # FIXME -- The following part does not fit in the libtool context. # Libtool is supposed to [going to] be able to create a win 32 DLL # without extra code but since I don't have a win machine to test # if it already works, I leave the old code here. # libobjc_s.a: libobjc.la mv libobjc.a libobjc_s.a # Create a relocatable DLL libobjc.dll: libobjc_s.a libobjc_entry.o $(CC) -mdll -Wl,--base-file -Wl,libobjc.base \ -o libobjc.dll libobjc_s.a libobjc_entry.o -lkernel32 $(DLLTOOL) --dllname libobjc.dll --def $(srcdir)/libobjc.def \ --base-file libobjc.base --output-exp libobjc.exp $(GCC_FOR_TARGET) -mdll -Wl,--base-file libobjc.base libobjc.exp \ -o libobjc.dll libobjc_s.a libobjc_entry.o -lkernel32 $(DLLTOOL) --dllname libobjc.dll --def $(srcdir)/libobjc.def \ --base-file libobjc.base --output-exp libobjc.exp $(GCC_FOR_TARGET) libobjc.exp -mdll \ -o libobjc.dll libobjc_s.a libobjc_entry.o -lkernel32 $(DLLTOOL) --dllname libobjc.dll --def $(srcdir)/libobjc.def \ --output-lib libobjc.a # # # # # info: dvi: html: Makefile: Makefile.in config.status $(SHELL) config.status config.status: configure rm -f config.cache CONFIG_SITE=no-such-file CC='$(CC)' AR='$(AR)' CFLAGS='$(CFLAGS)' \ CPPFLAGS='$(CPPFLAGS)' $(SHELL) config.status --recheck ${srcdir}/configure: configure.in rm -f config.cache cd ${srcdir} && autoconf install: install-libs install-headers install-libs: installdirs $(SHELL) $(toplevel_srcdir)/mkinstalldirs $(DESTDIR)$(glibcpp_toolexeclibdir) $(LIBTOOL_INSTALL) $(INSTALL) libobjc.la $(DESTDIR)$(glibcpp_toolexeclibdir); if [ "$(OBJC_BOEHM_GC)" ]; then \ $(LIBTOOL_INSTALL) $(INSTALL) libobjc_gc.la \ $(DESTDIR)$(glibcpp_toolexeclibdir);\ fi $(MULTIDO) $(FLAGS_TO_PASS) multi-do DO="$@" @-$(LIBTOOL) --mode=finish $(DESTDIR)$(glibcpp_toolexeclibdir) # Copy Objective C headers to installation include directory. install-headers: $(SHELL) $(toplevel_srcdir)/mkinstalldirs $(DESTDIR)$(libsubdir)/include/objc for file in $(OBJC_H); do \ realfile=$(srcdir)/objc/$${file}; \ $(INSTALL_DATA) $${realfile} $(DESTDIR)$(libsubdir)/include/objc; \ done check uninstall install-strip dist installcheck installdirs: mostlyclean: -$(LIBTOOL_CLEAN) rm -f libobjc.la libobjc_gc.la *.lo -rm -f runtime-info.h tmp-runtime.s *.o *.lo libobjc* xforward \ fflags *.aux *.cp *.dvi *.fn *.info *.ky *.log *.pg \ *.toc *.tp *.vr *.html libobj.exp @$(MULTICLEAN) multi-clean DO=mostlyclean clean: mostlyclean rm -f config.log @$(MULTICLEAN) multi-clean DO=clean distclean: clean @$(MULTICLEAN) multi-clean DO=distclean rm -f config.cache config.status Makefile configure maintainer-clean realclean: distclean .PHONY: mostlyclean clean distclean maintainer-clean all check uninstall \ install-strip dist installcheck installdirs Index: vendor/gcc/dist/contrib/libobjc/NXConstStr.m =================================================================== --- vendor/gcc/dist/contrib/libobjc/NXConstStr.m (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/NXConstStr.m (revision 132722) @@ -1,42 +1,42 @@ /* Implementation of the NXConstantString class for Objective-C. Copyright (C) 1995 Free Software Foundation, Inc. Contributed by Pieter J. Schoenmakers -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify it +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, but WITHOUT +GCC is distributed in the hope that it will be useful, but WITHOUT 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 -along with GNU CC; see the file COPYING. If not, write to +along with GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #include "objc/NXConstStr.h" @implementation NXConstantString -(const char *) cString { return (c_string); } /* -cString */ -(unsigned int) length { return (len); } /* -length */ @end Index: vendor/gcc/dist/contrib/libobjc/Object.m =================================================================== --- vendor/gcc/dist/contrib/libobjc/Object.m (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/Object.m (revision 132722) @@ -1,386 +1,386 @@ /* The implementation of class Object for Objective-C. Copyright (C) 1993, 1994, 1995, 1997, 2002 Free Software Foundation, Inc. -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify it +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, but WITHOUT +GCC is distributed in the hope that it will be useful, but WITHOUT 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 -along with GNU CC; see the file COPYING. If not, write to +along with GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #include #include "objc/Object.h" #include "objc/Protocol.h" #include "objc/objc-api.h" extern int errno; #define MAX_CLASS_NAME_LEN 256 @implementation Object + initialize { return self; } - init { return self; } + new { return [[self alloc] init]; } + alloc { return class_create_instance(self); } - free { return object_dispose(self); } - copy { return [[self shallowCopy] deepen]; } - shallowCopy { return object_copy(self); } - deepen { return self; } - deepCopy { return [self copy]; } - (Class)class { return object_get_class(self); } - (Class)superClass { return object_get_super_class(self); } - (MetaClass)metaClass { return object_get_meta_class(self); } - (const char *)name { return object_get_class_name(self); } - self { return self; } - (unsigned int)hash { return (size_t)self; } - (BOOL)isEqual:anObject { return self==anObject; } - (int)compare:anotherObject; { if ([self isEqual:anotherObject]) return 0; // Ordering objects by their address is pretty useless, // so subclasses should override this is some useful way. else if (self > anotherObject) return 1; else return -1; } - (BOOL)isMetaClass { return NO; } - (BOOL)isClass { return object_is_class(self); } - (BOOL)isInstance { return object_is_instance(self); } - (BOOL)isKindOf:(Class)aClassObject { Class class; for (class = self->isa; class!=Nil; class = class_get_super_class(class)) if (class==aClassObject) return YES; return NO; } - (BOOL)isMemberOf:(Class)aClassObject { return self->isa==aClassObject; } - (BOOL)isKindOfClassNamed:(const char *)aClassName { Class class; if (aClassName!=NULL) for (class = self->isa; class!=Nil; class = class_get_super_class(class)) if (!strcmp(class_get_class_name(class), aClassName)) return YES; return NO; } - (BOOL)isMemberOfClassNamed:(const char *)aClassName { return ((aClassName!=NULL) &&!strcmp(class_get_class_name(self->isa), aClassName)); } + (BOOL)instancesRespondTo:(SEL)aSel { return class_get_instance_method(self, aSel)!=METHOD_NULL; } - (BOOL)respondsTo:(SEL)aSel { return ((object_is_instance(self) ?class_get_instance_method(self->isa, aSel) :class_get_class_method(self->isa, aSel))!=METHOD_NULL); } + (IMP)instanceMethodFor:(SEL)aSel { return method_get_imp(class_get_instance_method(self, aSel)); } // Indicates if the receiving class or instance conforms to the given protocol // not usually overridden by subclasses // // Modified 9/5/94 to always search the class object's protocol list, rather // than the meta class. + (BOOL) conformsTo: (Protocol*)aProtocol { size_t i; struct objc_protocol_list* proto_list; id parent; for (proto_list = ((Class)self)->protocols; proto_list; proto_list = proto_list->next) { for (i=0; i < proto_list->count; i++) { if ([proto_list->list[i] conformsTo: aProtocol]) return YES; } } if ((parent = [self superClass])) return [parent conformsTo: aProtocol]; else return NO; } - (BOOL) conformsTo: (Protocol*)aProtocol { return [[self class] conformsTo:aProtocol]; } - (IMP)methodFor:(SEL)aSel { return (method_get_imp(object_is_instance(self) ?class_get_instance_method(self->isa, aSel) :class_get_class_method(self->isa, aSel))); } + (struct objc_method_description *)descriptionForInstanceMethod:(SEL)aSel { return ((struct objc_method_description *) class_get_instance_method(self, aSel)); } - (struct objc_method_description *)descriptionForMethod:(SEL)aSel { return ((struct objc_method_description *) (object_is_instance(self) ?class_get_instance_method(self->isa, aSel) :class_get_class_method(self->isa, aSel))); } - perform:(SEL)aSel { IMP msg = objc_msg_lookup(self, aSel); if (!msg) return [self error:"invalid selector passed to %s", sel_get_name(_cmd)]; return (*msg)(self, aSel); } - perform:(SEL)aSel with:anObject { IMP msg = objc_msg_lookup(self, aSel); if (!msg) return [self error:"invalid selector passed to %s", sel_get_name(_cmd)]; return (*msg)(self, aSel, anObject); } - perform:(SEL)aSel with:anObject1 with:anObject2 { IMP msg = objc_msg_lookup(self, aSel); if (!msg) return [self error:"invalid selector passed to %s", sel_get_name(_cmd)]; return (*msg)(self, aSel, anObject1, anObject2); } - (retval_t)forward:(SEL)aSel :(arglist_t)argFrame { (void) argFrame; /* UNUSED */ return (retval_t)[self doesNotRecognize: aSel]; } - (retval_t)performv:(SEL)aSel :(arglist_t)argFrame { return objc_msg_sendv(self, aSel, argFrame); } + poseAs:(Class)aClassObject { return class_pose_as(self, aClassObject); } - (Class)transmuteClassTo:(Class)aClassObject { if (object_is_instance(self)) if (class_is_class(aClassObject)) if (class_get_instance_size(aClassObject)==class_get_instance_size(isa)) if ([self isKindOf:aClassObject]) { Class old_isa = isa; isa = aClassObject; return old_isa; } return nil; } - subclassResponsibility:(SEL)aSel { return [self error:"subclass should override %s", sel_get_name(aSel)]; } - notImplemented:(SEL)aSel { return [self error:"method %s not implemented", sel_get_name(aSel)]; } - shouldNotImplement:(SEL)aSel { return [self error:"%s should not implement %s", object_get_class_name(self), sel_get_name(aSel)]; } - doesNotRecognize:(SEL)aSel { return [self error:"%s does not recognize %s", object_get_class_name(self), sel_get_name(aSel)]; } - error:(const char *)aString, ... { #define FMT "error: %s (%s)\n%s\n" char fmt[(strlen((char*)FMT)+strlen((char*)object_get_class_name(self)) +((aString!=NULL)?strlen((char*)aString):0)+8)]; va_list ap; sprintf(fmt, FMT, object_get_class_name(self), object_is_instance(self)?"instance":"class", (aString!=NULL)?aString:""); va_start(ap, aString); objc_verror(self, OBJC_ERR_UNKNOWN, fmt, ap); va_end(ap); return nil; #undef FMT } + (int)version { return class_get_version(self); } + setVersion:(int)aVersion { class_set_version(self, aVersion); return self; } + (int)streamVersion: (TypedStream*)aStream { if (aStream->mode == OBJC_READONLY) return objc_get_stream_class_version (aStream, self); else return class_get_version (self); } // These are used to write or read the instance variables // declared in this particular part of the object. Subclasses // should extend these, by calling [super read/write: aStream] // before doing their own archiving. These methods are private, in // the sense that they should only be called from subclasses. - read: (TypedStream*)aStream { (void) aStream; /* UNUSED */ // [super read: aStream]; return self; } - write: (TypedStream*)aStream { (void) aStream; /* UNUSED */ // [super write: aStream]; return self; } - awake { // [super awake]; return self; } @end Index: vendor/gcc/dist/contrib/libobjc/Protocol.m =================================================================== --- vendor/gcc/dist/contrib/libobjc/Protocol.m (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/Protocol.m (revision 132722) @@ -1,130 +1,132 @@ /* This file contains the implementation of class Protocol. Copyright (C) 1993 Free Software Foundation, Inc. -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, +GCC is distributed in the hope that it will be useful, but WITHOUT 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 -along with GNU CC; see the file COPYING. If not, write to +along with GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #include "objc/Protocol.h" #include "objc/objc-api.h" /* Method description list */ struct objc_method_description_list { int count; struct objc_method_description list[1]; }; @implementation Protocol { @private char *protocol_name; struct objc_protocol_list *protocol_list; struct objc_method_description_list *instance_methods, *class_methods; } /* Obtaining attributes intrinsic to the protocol */ - (const char *)name { return protocol_name; } /* Testing protocol conformance */ - (BOOL) conformsTo: (Protocol *)aProtocolObject { size_t i; struct objc_protocol_list* proto_list; if (!strcmp(aProtocolObject->protocol_name, self->protocol_name)) return YES; for (proto_list = protocol_list; proto_list; proto_list = proto_list->next) { for (i=0; i < proto_list->count; i++) { if ([proto_list->list[i] conformsTo: aProtocolObject]) return YES; } } return NO; } /* Looking up information specific to a protocol */ - (struct objc_method_description *) descriptionForInstanceMethod:(SEL)aSel { int i; struct objc_protocol_list* proto_list; const char* name = sel_get_name (aSel); struct objc_method_description *result; - for (i = 0; i < instance_methods->count; i++) - { - if (!strcmp ((char*)instance_methods->list[i].name, name)) - return &(instance_methods->list[i]); - } + if (instance_methods) + for (i = 0; i < instance_methods->count; i++) + { + if (!strcmp ((char*)instance_methods->list[i].name, name)) + return &(instance_methods->list[i]); + } for (proto_list = protocol_list; proto_list; proto_list = proto_list->next) { size_t j; for (j=0; j < proto_list->count; j++) { if ((result = [proto_list->list[j] descriptionForInstanceMethod: aSel])) return result; } } return NULL; } - (struct objc_method_description *) descriptionForClassMethod:(SEL)aSel; { int i; struct objc_protocol_list* proto_list; const char* name = sel_get_name (aSel); struct objc_method_description *result; - for (i = 0; i < class_methods->count; i++) - { - if (!strcmp ((char*)class_methods->list[i].name, name)) - return &(class_methods->list[i]); - } + if (class_methods) + for (i = 0; i < class_methods->count; i++) + { + if (!strcmp ((char*)class_methods->list[i].name, name)) + return &(class_methods->list[i]); + } for (proto_list = protocol_list; proto_list; proto_list = proto_list->next) { size_t j; for (j=0; j < proto_list->count; j++) { if ((result = [proto_list->list[j] descriptionForClassMethod: aSel])) return result; } } return NULL; } @end Index: vendor/gcc/dist/contrib/libobjc/aclocal.m4 =================================================================== --- vendor/gcc/dist/contrib/libobjc/aclocal.m4 (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/aclocal.m4 (revision 132722) @@ -1,231 +1,235 @@ dnl Copyright (C) 1994, 1995-8, 1999, 2001 Free Software Foundation, Inc. dnl This file is free software; the Free Software Foundation dnl gives unlimited permission to copy and/or distribute it, dnl with or without modifications, as long as this notice is preserved. dnl This program is distributed in the hope that it will be useful, dnl but WITHOUT ANY WARRANTY, to the extent permitted by law; without dnl even the implied warranty of MERCHANTABILITY or FITNESS FOR A dnl PARTICULAR PURPOSE. dnl dnl Initialize configure bits. dnl dnl GLIBCPP_TOPREL_CONFIGURE AC_DEFUN(GLIBCPP_TOPREL_CONFIGURE, [ dnl Default to --enable-multilib AC_ARG_ENABLE(multilib, [ --enable-multilib build hella library versions (default)], [case "${enableval}" in yes) multilib=yes ;; no) multilib=no ;; *) AC_MSG_ERROR(bad value ${enableval} for multilib option) ;; esac], [multilib=yes])dnl # When building with srcdir == objdir, links to the source files will # be created in directories within the target_subdir. We have to # adjust toplevel_srcdir accordingly, so that configure finds # install-sh and other auxiliary files that live in the top-level # source directory. if test "${srcdir}" = "."; then if test -z "${with_target_subdir}"; then toprel=".." else if test "${with_target_subdir}" != "."; then toprel="${with_multisrctop}../.." else toprel="${with_multisrctop}.." fi fi else toprel=".." fi AC_CONFIG_AUX_DIR(${srcdir}/$toprel) toplevel_srcdir=\${top_srcdir}/$toprel AC_SUBST(toplevel_srcdir) ]) dnl dnl Initialize configure bits. dnl dnl GLIBCPP_CONFIGURE AC_DEFUN(GLIBCPP_CONFIGURE, [ # Export build and source directories. # These need to be absolute paths, yet at the same time need to # canonicalize only relative paths, because then amd will not unmount # drives. Thus the use of PWDCMD: set it to 'pawd' or 'amq -w' if using amd. glibcpp_builddir=`${PWDCMD-pwd}` case $srcdir in [\\/$]* | ?:[\\/]*) glibcpp_srcdir=${srcdir} ;; *) glibcpp_srcdir=`cd "$srcdir" && ${PWDCMD-pwd} || echo "$srcdir"` ;; esac AC_SUBST(glibcpp_builddir) AC_SUBST(glibcpp_srcdir) dnl This is here just to satisfy automake. ifelse(not,equal,[AC_CONFIG_AUX_DIR(..)]) # Will set LN_S to either 'ln -s' or 'ln'. With autoconf 2.50+, can also # be 'cp -p' if linking isn't available. #ac_cv_prog_LN_S='cp -p' AC_PROG_LN_S # We use these options to decide which functions to include. AC_ARG_WITH(target-subdir, [ --with-target-subdir=SUBDIR configuring in a subdirectory]) AC_ARG_WITH(cross-host, [ --with-cross-host=HOST configuring with a cross compiler]) # Never versions of autoconf add an underscore to these functions. # Prevent future problems ... ifdef([AC_PROG_CC_G],[],[define([AC_PROG_CC_G],defn([_AC_PROG_CC_G]))]) ifdef([AC_PROG_CC_GNU],[],[define([AC_PROG_CC_GNU],defn([_AC_PROG_CC_GNU]))]) ifdef([AC_PROG_CXX_G],[],[define([AC_PROG_CXX_G],defn([_AC_PROG_CXX_G]))]) ifdef([AC_PROG_CXX_GNU],[],[define([AC_PROG_CXX_GNU],defn([_AC_PROG_CXX_GNU]))]) # AC_PROG_CC # FIXME: We temporarily define our own version of AC_PROG_CC. This is # copied from autoconf 2.12, but does not call AC_PROG_CC_WORKS. We # are probably using a cross compiler, which will not be able to fully # link an executable. This should really be fixed in autoconf # itself. AC_DEFUN(LIB_AC_PROG_CC, [AC_BEFORE([$0], [AC_PROG_CPP])dnl dnl Fool anybody using AC_PROG_CC. AC_PROVIDE([AC_PROG_CC]) AC_CHECK_PROG(CC, gcc, gcc) if test -z "$CC"; then AC_CHECK_PROG(CC, cc, cc, , , /usr/ucb/cc) test -z "$CC" && AC_MSG_ERROR([no acceptable cc found in \$PATH]) fi AC_PROG_CC_GNU if test $ac_cv_prog_gcc = yes; then GCC=yes dnl Check whether -g works, even if CFLAGS is set, in case the package dnl plays around with CFLAGS (such as to build both debugging and dnl normal versions of a library), tasteless as that idea is. ac_test_CFLAGS="${CFLAGS+set}" ac_save_CFLAGS="$CFLAGS" CFLAGS= AC_PROG_CC_G if test "$ac_test_CFLAGS" = set; then CFLAGS="$ac_save_CFLAGS" elif test $ac_cv_prog_cc_g = yes; then CFLAGS="-g -O2" else CFLAGS="-O2" fi else GCC= test "${CFLAGS+set}" = set || CFLAGS="-g" fi ]) LIB_AC_PROG_CC AC_CHECK_TOOL(AS, as) AC_CHECK_TOOL(AR, ar) AC_CHECK_TOOL(RANLIB, ranlib, ranlib-not-found-in-path-error) AC_PROG_INSTALL # We need AC_EXEEXT to keep automake happy in cygnus mode. However, # at least currently, we never actually build a program, so we never # need to use $(EXEEXT). Moreover, the test for EXEEXT normally # fails, because we are probably configuring with a cross compiler # which can't create executables. So we include AC_EXEEXT to keep # automake happy, but we don't execute it, since we don't care about # the result. if false; then # autoconf 2.50 runs AC_EXEEXT by default, and the macro expands # to nothing, so nothing would remain between `then' and `fi' if it # were not for the `:' below. : AC_EXEEXT fi ]) dnl dnl GLIBCPP_EXPORT_INSTALL_INFO dnl calculates gxx_install_dir dnl exports glibcpp_toolexecdir dnl exports glibcpp_toolexeclibdir dnl exports glibcpp_prefixdir dnl dnl Assumes cross_compiling bits already done, and with_cross_host in dnl particular dnl dnl GLIBCPP_EXPORT_INSTALL_INFO AC_DEFUN(GLIBCPP_EXPORT_INSTALL_INFO, [ # Assumes glibcpp_builddir, glibcpp_srcdir are alreay set up and # exported correctly in GLIBCPP_CONFIGURE. glibcpp_toolexecdir=no glibcpp_toolexeclibdir=no glibcpp_prefixdir=${prefix} AC_MSG_CHECKING([for interface version number]) libstdcxx_interface=$INTERFACE AC_MSG_RESULT($libstdcxx_interface) # Process the option "--enable-version-specific-runtime-libs" AC_MSG_CHECKING([for --enable-version-specific-runtime-libs]) AC_ARG_ENABLE(version-specific-runtime-libs, [ --enable-version-specific-runtime-libs Specify that runtime libraries should be installed in a compiler-specific directory ], [case "$enableval" in yes) version_specific_libs=yes ;; no) version_specific_libs=no ;; *) AC_MSG_ERROR([Unknown argument to enable/disable version-specific libs]);; esac], version_specific_libs=no)dnl # Option set, now we can test it. AC_MSG_RESULT($version_specific_libs) gcc_version_trigger=${srcdir}/../gcc/version.c gcc_version_full=`grep version_string ${gcc_version_trigger} | sed -e 's/.*\"\([[^ \"]]*\)[[ \"]].*/\1/'` gcc_version=`echo ${gcc_version_full} | sed -e 's/\([^ ]*\) .*/\1/'` AC_SUBST(gcc_version) AC_SUBST(gcc_version_trigger) if test $version_specific_libs = yes; then # Need the gcc compiler version to know where to install libraries # and header files if --enable-version-specific-runtime-libs option # is selected. changequote(,)dnl - glibcpp_toolexecdir='$(libdir)/gcc-lib/$(target_alias)' + glibcpp_toolexecdir='$(libdir)/gcc/$(target_alias)' glibcpp_toolexeclibdir='$(toolexecdir)/'${gcc_version}'$(MULTISUBDIR)' changequote([,])dnl fi # Calculate glibcpp_toolexecdir, glibcpp_toolexeclibdir # Install a library built with a cross compiler in tooldir, not libdir. if test x"$glibcpp_toolexecdir" = x"no"; then if test -n "$with_cross_host" && test x"$with_cross_host" != x"no"; then glibcpp_toolexecdir='$(exec_prefix)/$(target_alias)' glibcpp_toolexeclibdir='$(toolexecdir)/lib' else glibcpp_toolexecdir='$(libdir)/gcc-lib/$(target_alias)' glibcpp_toolexeclibdir='$(libdir)' fi - glibcpp_toolexeclibdir=$glibcpp_toolexeclibdir/`$CC -print-multi-os-directory` + multi_os_directory=`$CC -print-multi-os-directory` + case $multi_os_directory in + .) ;; # Avoid trailing /. + *) glibcpp_toolexeclibdir=$glibcpp_toolexeclibdir/$multi_os_directory ;; + esac fi AC_SUBST(glibcpp_prefixdir) AC_SUBST(glibcpp_toolexecdir) AC_SUBST(glibcpp_toolexeclibdir) ]) sinclude(../libtool.m4) dnl The lines below arrange for aclocal not to bring an installed dnl libtool.m4 into aclocal.m4, while still arranging for automake to dnl add a definition of LIBTOOL to Makefile.in. ifelse(,,,[AC_SUBST(LIBTOOL) AC_DEFUN([AM_PROG_LIBTOOL]) AC_DEFUN([AC_LIBTOOL_DLOPEN]) AC_DEFUN([AC_PROG_LD]) ]) Index: vendor/gcc/dist/contrib/libobjc/archive.c =================================================================== --- vendor/gcc/dist/contrib/libobjc/archive.c (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/archive.c (revision 132722) @@ -1,1655 +1,1655 @@ /* GNU Objective C Runtime archiving Copyright (C) 1993, 1995, 1996, 1997, 2002 Free Software Foundation, Inc. Contributed by Kresten Krab Thorup -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify it under the +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, but WITHOUT ANY +GCC is distributed in the hope that it will be useful, but WITHOUT 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 along with -GNU CC; see the file COPYING. If not, write to the Free Software +GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #include "tconfig.h" #include "runtime.h" #include "typedstream.h" #include "encoding.h" #include extern int fflush (FILE *); #define ROUND(V, A) \ ({ typeof (V) __v = (V); typeof (A) __a = (A); \ __a * ((__v + __a - 1)/__a); }) #define PTR2LONG(P) (((char *) (P))-(char *) 0) #define LONG2PTR(L) (((char *) 0) + (L)) /* Declare some functions... */ static int objc_read_class (struct objc_typed_stream *stream, Class *class); int objc_sizeof_type (const char *type); static int objc_write_use_common (struct objc_typed_stream *stream, unsigned long key); static int objc_write_register_common (struct objc_typed_stream *stream, unsigned long key); static int objc_write_class (struct objc_typed_stream *stream, struct objc_class *class); const char *objc_skip_type (const char *type); static void __objc_finish_write_root_object (struct objc_typed_stream *); static void __objc_finish_read_root_object (struct objc_typed_stream *); static __inline__ int __objc_code_unsigned_char (unsigned char *buf, unsigned char val) { if ((val&_B_VALUE) == val) { buf[0] = val|_B_SINT; return 1; } else { buf[0] = _B_NINT|0x01; buf[1] = val; return 2; } } int objc_write_unsigned_char (struct objc_typed_stream *stream, unsigned char value) { unsigned char buf[sizeof (unsigned char) + 1]; int len = __objc_code_unsigned_char (buf, value); return (*stream->write) (stream->physical, buf, len); } static __inline__ int __objc_code_char (unsigned char *buf, signed char val) { if (val >= 0) return __objc_code_unsigned_char (buf, val); else { buf[0] = _B_NINT|_B_SIGN|0x01; buf[1] = -val; return 2; } } int objc_write_char (struct objc_typed_stream *stream, signed char value) { unsigned char buf[sizeof (char) + 1]; int len = __objc_code_char (buf, value); return (*stream->write) (stream->physical, buf, len); } static __inline__ int __objc_code_unsigned_short (unsigned char *buf, unsigned short val) { if ((val&_B_VALUE) == val) { buf[0] = val|_B_SINT; return 1; } else { int c, b; buf[0] = _B_NINT; for (c = sizeof (short); c != 0; c -= 1) if (((val >> (8*(c - 1)))%0x100) != 0) break; buf[0] |= c; for (b = 1; c != 0; c--, b++) { buf[b] = (val >> (8*(c - 1)))%0x100; } return b; } } int objc_write_unsigned_short (struct objc_typed_stream *stream, unsigned short value) { unsigned char buf[sizeof (unsigned short) + 1]; int len = __objc_code_unsigned_short (buf, value); return (*stream->write) (stream->physical, buf, len); } static __inline__ int __objc_code_short (unsigned char *buf, short val) { int sign = (val < 0); int size = __objc_code_unsigned_short (buf, sign ? -val : val); if (sign) buf[0] |= _B_SIGN; return size; } int objc_write_short (struct objc_typed_stream *stream, short value) { unsigned char buf[sizeof (short) + 1]; int len = __objc_code_short (buf, value); return (*stream->write) (stream->physical, buf, len); } static __inline__ int __objc_code_unsigned_int (unsigned char *buf, unsigned int val) { if ((val&_B_VALUE) == val) { buf[0] = val|_B_SINT; return 1; } else { int c, b; buf[0] = _B_NINT; for (c = sizeof (int); c != 0; c -= 1) if (((val >> (8*(c - 1)))%0x100) != 0) break; buf[0] |= c; for (b = 1; c != 0; c--, b++) { buf[b] = (val >> (8*(c-1)))%0x100; } return b; } } int objc_write_unsigned_int (struct objc_typed_stream *stream, unsigned int value) { unsigned char buf[sizeof (unsigned int) + 1]; int len = __objc_code_unsigned_int (buf, value); return (*stream->write) (stream->physical, buf, len); } static __inline__ int __objc_code_int (unsigned char *buf, int val) { int sign = (val < 0); int size = __objc_code_unsigned_int (buf, sign ? -val : val); if (sign) buf[0] |= _B_SIGN; return size; } int objc_write_int (struct objc_typed_stream *stream, int value) { unsigned char buf[sizeof (int) + 1]; int len = __objc_code_int (buf, value); return (*stream->write) (stream->physical, buf, len); } static __inline__ int __objc_code_unsigned_long (unsigned char *buf, unsigned long val) { if ((val&_B_VALUE) == val) { buf[0] = val|_B_SINT; return 1; } else { int c, b; buf[0] = _B_NINT; for (c = sizeof (long); c != 0; c -= 1) if (((val >> (8*(c - 1)))%0x100) != 0) break; buf[0] |= c; for (b = 1; c != 0; c--, b++) { buf[b] = (val >> (8*(c - 1)))%0x100; } return b; } } int objc_write_unsigned_long (struct objc_typed_stream *stream, unsigned long value) { unsigned char buf[sizeof (unsigned long) + 1]; int len = __objc_code_unsigned_long (buf, value); return (*stream->write) (stream->physical, buf, len); } static __inline__ int __objc_code_long (unsigned char *buf, long val) { int sign = (val < 0); int size = __objc_code_unsigned_long (buf, sign ? -val : val); if (sign) buf[0] |= _B_SIGN; return size; } int objc_write_long (struct objc_typed_stream *stream, long value) { unsigned char buf[sizeof (long) + 1]; int len = __objc_code_long (buf, value); return (*stream->write) (stream->physical, buf, len); } int objc_write_string (struct objc_typed_stream *stream, const unsigned char *string, unsigned int nbytes) { unsigned char buf[sizeof (unsigned int) + 1]; int len = __objc_code_unsigned_int (buf, nbytes); if ((buf[0]&_B_CODE) == _B_SINT) buf[0] = (buf[0]&_B_VALUE)|_B_SSTR; else /* _B_NINT */ buf[0] = (buf[0]&_B_VALUE)|_B_NSTR; if ((*stream->write) (stream->physical, buf, len) != 0) return (*stream->write) (stream->physical, string, nbytes); else return 0; } int objc_write_string_atomic (struct objc_typed_stream *stream, unsigned char *string, unsigned int nbytes) { unsigned long key; if ((key = PTR2LONG(hash_value_for_key (stream->stream_table, string)))) return objc_write_use_common (stream, key); else { int length; hash_add (&stream->stream_table, LONG2PTR(key=PTR2LONG(string)), string); if ((length = objc_write_register_common (stream, key))) return objc_write_string (stream, string, nbytes); return length; } } static int objc_write_register_common (struct objc_typed_stream *stream, unsigned long key) { unsigned char buf[sizeof (unsigned long)+2]; int len = __objc_code_unsigned_long (buf + 1, key); if (len == 1) { buf[0] = _B_RCOMM|0x01; buf[1] &= _B_VALUE; return (*stream->write) (stream->physical, buf, len + 1); } else { buf[1] = (buf[1]&_B_VALUE)|_B_RCOMM; return (*stream->write) (stream->physical, buf + 1, len); } } static int objc_write_use_common (struct objc_typed_stream *stream, unsigned long key) { unsigned char buf[sizeof (unsigned long)+2]; int len = __objc_code_unsigned_long (buf + 1, key); if (len == 1) { buf[0] = _B_UCOMM|0x01; buf[1] &= _B_VALUE; return (*stream->write) (stream->physical, buf, 2); } else { buf[1] = (buf[1]&_B_VALUE)|_B_UCOMM; return (*stream->write) (stream->physical, buf + 1, len); } } static __inline__ int __objc_write_extension (struct objc_typed_stream *stream, unsigned char code) { if (code <= _B_VALUE) { unsigned char buf = code|_B_EXT; return (*stream->write) (stream->physical, &buf, 1); } else { objc_error (nil, OBJC_ERR_BAD_OPCODE, "__objc_write_extension: bad opcode %c\n", code); return -1; } } __inline__ int __objc_write_object (struct objc_typed_stream *stream, id object) { unsigned char buf = '\0'; SEL write_sel = sel_get_any_uid ("write:"); if (object) { __objc_write_extension (stream, _BX_OBJECT); objc_write_class (stream, object->class_pointer); (*objc_msg_lookup (object, write_sel)) (object, write_sel, stream); return (*stream->write) (stream->physical, &buf, 1); } else return objc_write_use_common (stream, 0); } int objc_write_object_reference (struct objc_typed_stream *stream, id object) { unsigned long key; if ((key = PTR2LONG(hash_value_for_key (stream->object_table, object)))) return objc_write_use_common (stream, key); __objc_write_extension (stream, _BX_OBJREF); return objc_write_unsigned_long (stream, PTR2LONG (object)); } int objc_write_root_object (struct objc_typed_stream *stream, id object) { int len = 0; if (stream->writing_root_p) objc_error (nil, OBJC_ERR_RECURSE_ROOT, "objc_write_root_object called recursively"); else { stream->writing_root_p = 1; __objc_write_extension (stream, _BX_OBJROOT); if ((len = objc_write_object (stream, object))) __objc_finish_write_root_object (stream); stream->writing_root_p = 0; } return len; } int objc_write_object (struct objc_typed_stream *stream, id object) { unsigned long key; if ((key = PTR2LONG(hash_value_for_key (stream->object_table, object)))) return objc_write_use_common (stream, key); else if (object == nil) return objc_write_use_common (stream, 0); else { int length; hash_add (&stream->object_table, LONG2PTR(key=PTR2LONG(object)), object); if ((length = objc_write_register_common (stream, key))) return __objc_write_object (stream, object); return length; } } __inline__ int __objc_write_class (struct objc_typed_stream *stream, struct objc_class *class) { __objc_write_extension (stream, _BX_CLASS); objc_write_string_atomic (stream, (char *) class->name, strlen ((char *) class->name)); return objc_write_unsigned_long (stream, class->version); } static int objc_write_class (struct objc_typed_stream *stream, struct objc_class *class) { unsigned long key; if ((key = PTR2LONG(hash_value_for_key (stream->stream_table, class)))) return objc_write_use_common (stream, key); else { int length; hash_add (&stream->stream_table, LONG2PTR(key = PTR2LONG(class)), class); if ((length = objc_write_register_common (stream, key))) return __objc_write_class (stream, class); return length; } } __inline__ int __objc_write_selector (struct objc_typed_stream *stream, SEL selector) { const char *sel_name; __objc_write_extension (stream, _BX_SEL); /* to handle NULL selectors */ if ((SEL)0 == selector) return objc_write_string (stream, "", 0); sel_name = sel_get_name (selector); return objc_write_string (stream, sel_name, strlen ((char*)sel_name)); } int objc_write_selector (struct objc_typed_stream *stream, SEL selector) { const char *sel_name; unsigned long key; /* to handle NULL selectors */ if ((SEL)0 == selector) return __objc_write_selector (stream, selector); sel_name = sel_get_name (selector); if ((key = PTR2LONG(hash_value_for_key (stream->stream_table, sel_name)))) return objc_write_use_common (stream, key); else { int length; hash_add (&stream->stream_table, LONG2PTR(key = PTR2LONG(sel_name)), (char *) sel_name); if ((length = objc_write_register_common (stream, key))) return __objc_write_selector (stream, selector); return length; } } /* ** Read operations */ __inline__ int objc_read_char (struct objc_typed_stream *stream, char *val) { unsigned char buf; int len; len = (*stream->read) (stream->physical, &buf, 1); if (len != 0) { if ((buf & _B_CODE) == _B_SINT) (*val) = (buf & _B_VALUE); else if ((buf & _B_NUMBER) == 1) { len = (*stream->read) (stream->physical, val, 1); if (buf&_B_SIGN) (*val) = -1 * (*val); } else objc_error (nil, OBJC_ERR_BAD_DATA, "expected 8bit signed int, got %dbit int", (int) (buf&_B_NUMBER)*8); } return len; } __inline__ int objc_read_unsigned_char (struct objc_typed_stream *stream, unsigned char *val) { unsigned char buf; int len; if ((len = (*stream->read) (stream->physical, &buf, 1))) { if ((buf & _B_CODE) == _B_SINT) (*val) = (buf & _B_VALUE); else if ((buf & _B_NUMBER) == 1) len = (*stream->read) (stream->physical, val, 1); else objc_error (nil, OBJC_ERR_BAD_DATA, "expected 8bit unsigned int, got %dbit int", (int) (buf&_B_NUMBER)*8); } return len; } __inline__ int objc_read_short (struct objc_typed_stream *stream, short *value) { unsigned char buf[sizeof (short) + 1]; int len; if ((len = (*stream->read) (stream->physical, buf, 1))) { if ((buf[0] & _B_CODE) == _B_SINT) (*value) = (buf[0] & _B_VALUE); else { int pos = 1; int nbytes = buf[0] & _B_NUMBER; if (nbytes > (int) sizeof (short)) objc_error (nil, OBJC_ERR_BAD_DATA, "expected short, got bigger (%dbits)", nbytes*8); len = (*stream->read) (stream->physical, buf + 1, nbytes); (*value) = 0; while (pos <= nbytes) (*value) = ((*value)*0x100) + buf[pos++]; if (buf[0] & _B_SIGN) (*value) = -(*value); } } return len; } __inline__ int objc_read_unsigned_short (struct objc_typed_stream *stream, unsigned short *value) { unsigned char buf[sizeof (unsigned short) + 1]; int len; if ((len = (*stream->read) (stream->physical, buf, 1))) { if ((buf[0] & _B_CODE) == _B_SINT) (*value) = (buf[0] & _B_VALUE); else { int pos = 1; int nbytes = buf[0] & _B_NUMBER; if (nbytes > (int) sizeof (short)) objc_error (nil, OBJC_ERR_BAD_DATA, "expected short, got int or bigger"); len = (*stream->read) (stream->physical, buf + 1, nbytes); (*value) = 0; while (pos <= nbytes) (*value) = ((*value)*0x100) + buf[pos++]; } } return len; } __inline__ int objc_read_int (struct objc_typed_stream *stream, int *value) { unsigned char buf[sizeof (int) + 1]; int len; if ((len = (*stream->read) (stream->physical, buf, 1))) { if ((buf[0] & _B_CODE) == _B_SINT) (*value) = (buf[0] & _B_VALUE); else { int pos = 1; int nbytes = buf[0] & _B_NUMBER; if (nbytes > (int) sizeof (int)) objc_error (nil, OBJC_ERR_BAD_DATA, "expected int, got bigger"); len = (*stream->read) (stream->physical, buf + 1, nbytes); (*value) = 0; while (pos <= nbytes) (*value) = ((*value)*0x100) + buf[pos++]; if (buf[0] & _B_SIGN) (*value) = -(*value); } } return len; } __inline__ int objc_read_long (struct objc_typed_stream *stream, long *value) { unsigned char buf[sizeof (long) + 1]; int len; if ((len = (*stream->read) (stream->physical, buf, 1))) { if ((buf[0] & _B_CODE) == _B_SINT) (*value) = (buf[0] & _B_VALUE); else { int pos = 1; int nbytes = buf[0] & _B_NUMBER; if (nbytes > (int) sizeof (long)) objc_error (nil, OBJC_ERR_BAD_DATA, "expected long, got bigger"); len = (*stream->read) (stream->physical, buf + 1, nbytes); (*value) = 0; while (pos <= nbytes) (*value) = ((*value)*0x100) + buf[pos++]; if (buf[0] & _B_SIGN) (*value) = -(*value); } } return len; } __inline__ int __objc_read_nbyte_uint (struct objc_typed_stream *stream, unsigned int nbytes, unsigned int *val) { int len; unsigned int pos = 0; unsigned char buf[sizeof (unsigned int) + 1]; if (nbytes > sizeof (int)) objc_error (nil, OBJC_ERR_BAD_DATA, "expected int, got bigger"); len = (*stream->read) (stream->physical, buf, nbytes); (*val) = 0; while (pos < nbytes) (*val) = ((*val)*0x100) + buf[pos++]; return len; } __inline__ int objc_read_unsigned_int (struct objc_typed_stream *stream, unsigned int *value) { unsigned char buf[sizeof (unsigned int) + 1]; int len; if ((len = (*stream->read) (stream->physical, buf, 1))) { if ((buf[0] & _B_CODE) == _B_SINT) (*value) = (buf[0] & _B_VALUE); else len = __objc_read_nbyte_uint (stream, (buf[0] & _B_VALUE), value); } return len; } int __objc_read_nbyte_ulong (struct objc_typed_stream *stream, unsigned int nbytes, unsigned long *val) { int len; unsigned int pos = 0; unsigned char buf[sizeof (unsigned long) + 1]; if (nbytes > sizeof (long)) objc_error (nil, OBJC_ERR_BAD_DATA, "expected long, got bigger"); len = (*stream->read) (stream->physical, buf, nbytes); (*val) = 0; while (pos < nbytes) (*val) = ((*val)*0x100) + buf[pos++]; return len; } __inline__ int objc_read_unsigned_long (struct objc_typed_stream *stream, unsigned long *value) { unsigned char buf[sizeof (unsigned long) + 1]; int len; if ((len = (*stream->read) (stream->physical, buf, 1))) { if ((buf[0] & _B_CODE) == _B_SINT) (*value) = (buf[0] & _B_VALUE); else len = __objc_read_nbyte_ulong (stream, (buf[0] & _B_VALUE), value); } return len; } __inline__ int objc_read_string (struct objc_typed_stream *stream, char **string) { unsigned char buf[sizeof (unsigned int) + 1]; int len; if ((len = (*stream->read) (stream->physical, buf, 1))) { unsigned long key = 0; if ((buf[0]&_B_CODE) == _B_RCOMM) /* register following */ { len = __objc_read_nbyte_ulong (stream, (buf[0] & _B_VALUE), &key); len = (*stream->read) (stream->physical, buf, 1); } switch (buf[0]&_B_CODE) { case _B_SSTR: { int length = buf[0]&_B_VALUE; (*string) = (char*)objc_malloc (length + 1); if (key) hash_add (&stream->stream_table, LONG2PTR(key), *string); len = (*stream->read) (stream->physical, *string, length); (*string)[length] = '\0'; } break; case _B_UCOMM: { char *tmp; len = __objc_read_nbyte_ulong (stream, (buf[0] & _B_VALUE), &key); tmp = hash_value_for_key (stream->stream_table, LONG2PTR (key)); *string = objc_malloc (strlen (tmp) + 1); strcpy (*string, tmp); } break; case _B_NSTR: { unsigned int nbytes = buf[0]&_B_VALUE; len = __objc_read_nbyte_uint (stream, nbytes, &nbytes); if (len) { (*string) = (char*)objc_malloc (nbytes + 1); if (key) hash_add (&stream->stream_table, LONG2PTR(key), *string); len = (*stream->read) (stream->physical, *string, nbytes); (*string)[nbytes] = '\0'; } } break; default: objc_error (nil, OBJC_ERR_BAD_DATA, "expected string, got opcode %c\n", (buf[0]&_B_CODE)); } } return len; } int objc_read_object (struct objc_typed_stream *stream, id *object) { unsigned char buf[sizeof (unsigned int)]; int len; if ((len = (*stream->read) (stream->physical, buf, 1))) { SEL read_sel = sel_get_any_uid ("read:"); unsigned long key = 0; if ((buf[0]&_B_CODE) == _B_RCOMM) /* register common */ { len = __objc_read_nbyte_ulong (stream, (buf[0] & _B_VALUE), &key); len = (*stream->read) (stream->physical, buf, 1); } if (buf[0] == (_B_EXT | _BX_OBJECT)) { Class class; /* get class */ len = objc_read_class (stream, &class); /* create instance */ (*object) = class_create_instance (class); /* register? */ if (key) hash_add (&stream->object_table, LONG2PTR(key), *object); /* send -read: */ if (__objc_responds_to (*object, read_sel)) (*get_imp (class, read_sel)) (*object, read_sel, stream); /* check null-byte */ len = (*stream->read) (stream->physical, buf, 1); if (buf[0] != '\0') objc_error (nil, OBJC_ERR_BAD_DATA, "expected null-byte, got opcode %c", buf[0]); } else if ((buf[0]&_B_CODE) == _B_UCOMM) { if (key) objc_error (nil, OBJC_ERR_BAD_KEY, "cannot register use upcode..."); len = __objc_read_nbyte_ulong (stream, (buf[0] & _B_VALUE), &key); (*object) = hash_value_for_key (stream->object_table, LONG2PTR(key)); } else if (buf[0] == (_B_EXT | _BX_OBJREF)) /* a forward reference */ { struct objc_list *other; len = objc_read_unsigned_long (stream, &key); other = (struct objc_list *) hash_value_for_key (stream->object_refs, LONG2PTR(key)); hash_add (&stream->object_refs, LONG2PTR(key), (void *)list_cons (object, other)); } else if (buf[0] == (_B_EXT | _BX_OBJROOT)) /* a root object */ { if (key) objc_error (nil, OBJC_ERR_BAD_KEY, "cannot register root object..."); len = objc_read_object (stream, object); __objc_finish_read_root_object (stream); } else objc_error (nil, OBJC_ERR_BAD_DATA, "expected object, got opcode %c", buf[0]); } return len; } static int objc_read_class (struct objc_typed_stream *stream, Class *class) { unsigned char buf[sizeof (unsigned int)]; int len; if ((len = (*stream->read) (stream->physical, buf, 1))) { unsigned long key = 0; if ((buf[0]&_B_CODE) == _B_RCOMM) /* register following */ { len = __objc_read_nbyte_ulong (stream, (buf[0] & _B_VALUE), &key); len = (*stream->read) (stream->physical, buf, 1); } if (buf[0] == (_B_EXT | _BX_CLASS)) { char *class_name; unsigned long version; /* get class */ len = objc_read_string (stream, &class_name); (*class) = objc_get_class (class_name); objc_free (class_name); /* register */ if (key) hash_add (&stream->stream_table, LONG2PTR(key), *class); objc_read_unsigned_long (stream, &version); hash_add (&stream->class_table, (*class)->name, (void *)version); } else if ((buf[0]&_B_CODE) == _B_UCOMM) { if (key) objc_error (nil, OBJC_ERR_BAD_KEY, "cannot register use upcode..."); len = __objc_read_nbyte_ulong (stream, (buf[0] & _B_VALUE), &key); *class = hash_value_for_key (stream->stream_table, LONG2PTR(key)); if (! *class) objc_error (nil, OBJC_ERR_BAD_CLASS, "cannot find class for key %lu", key); } else objc_error (nil, OBJC_ERR_BAD_DATA, "expected class, got opcode %c", buf[0]); } return len; } int objc_read_selector (struct objc_typed_stream *stream, SEL* selector) { unsigned char buf[sizeof (unsigned int)]; int len; if ((len = (*stream->read) (stream->physical, buf, 1))) { unsigned long key = 0; if ((buf[0]&_B_CODE) == _B_RCOMM) /* register following */ { len = __objc_read_nbyte_ulong (stream, (buf[0] & _B_VALUE), &key); len = (*stream->read) (stream->physical, buf, 1); } if (buf[0] == (_B_EXT|_BX_SEL)) /* selector! */ { char *selector_name; /* get selector */ len = objc_read_string (stream, &selector_name); /* To handle NULL selectors */ if (0 == strlen (selector_name)) { (*selector) = (SEL)0; return 0; } else (*selector) = sel_get_any_uid (selector_name); objc_free (selector_name); /* register */ if (key) hash_add (&stream->stream_table, LONG2PTR(key), (void *) *selector); } else if ((buf[0]&_B_CODE) == _B_UCOMM) { if (key) objc_error (nil, OBJC_ERR_BAD_KEY, "cannot register use upcode..."); len = __objc_read_nbyte_ulong (stream, (buf[0] & _B_VALUE), &key); (*selector) = hash_value_for_key (stream->stream_table, LONG2PTR(key)); } else objc_error (nil, OBJC_ERR_BAD_DATA, "expected selector, got opcode %c", buf[0]); } return len; } /* ** USER LEVEL FUNCTIONS */ /* ** Write one object, encoded in TYPE and pointed to by DATA to the ** typed stream STREAM. */ int objc_write_type (TypedStream *stream, const char *type, const void *data) { switch (*type) { case _C_ID: return objc_write_object (stream, *(id *) data); break; case _C_CLASS: return objc_write_class (stream, *(Class *) data); break; case _C_SEL: return objc_write_selector (stream, *(SEL *) data); break; case _C_CHR: return objc_write_char (stream, *(signed char *) data); break; case _C_UCHR: return objc_write_unsigned_char (stream, *(unsigned char *) data); break; case _C_SHT: return objc_write_short (stream, *(short *) data); break; case _C_USHT: return objc_write_unsigned_short (stream, *(unsigned short *) data); break; case _C_INT: return objc_write_int (stream, *(int *) data); break; case _C_UINT: return objc_write_unsigned_int (stream, *(unsigned int *) data); break; case _C_LNG: return objc_write_long (stream, *(long *) data); break; case _C_ULNG: return objc_write_unsigned_long (stream, *(unsigned long *) data); break; case _C_CHARPTR: return objc_write_string (stream, *(char **) data, strlen (*(char **) data)); break; case _C_ATOM: return objc_write_string_atomic (stream, *(char **) data, strlen (*(char **) data)); break; case _C_ARY_B: { int len = atoi (type + 1); while (isdigit ((unsigned char) *++type)) ; return objc_write_array (stream, type, len, data); } break; case _C_STRUCT_B: { int acc_size = 0; int align; while (*type != _C_STRUCT_E && *type++ != '=') ; /* skip "=" */ while (*type != _C_STRUCT_E) { align = objc_alignof_type (type); /* padd to alignment */ acc_size += ROUND (acc_size, align); objc_write_type (stream, type, ((char *) data) + acc_size); acc_size += objc_sizeof_type (type); /* add component size */ type = objc_skip_typespec (type); /* skip component */ } return 1; } default: { objc_error (nil, OBJC_ERR_BAD_TYPE, "objc_write_type: cannot parse typespec: %s\n", type); return 0; } } } /* ** Read one object, encoded in TYPE and pointed to by DATA to the ** typed stream STREAM. DATA specifies the address of the types to ** read. Expected type is checked against the type actually present ** on the stream. */ int objc_read_type(TypedStream *stream, const char *type, void *data) { char c; switch (c = *type) { case _C_ID: return objc_read_object (stream, (id*)data); break; case _C_CLASS: return objc_read_class (stream, (Class*)data); break; case _C_SEL: return objc_read_selector (stream, (SEL*)data); break; case _C_CHR: return objc_read_char (stream, (char*)data); break; case _C_UCHR: return objc_read_unsigned_char (stream, (unsigned char*)data); break; case _C_SHT: return objc_read_short (stream, (short*)data); break; case _C_USHT: return objc_read_unsigned_short (stream, (unsigned short*)data); break; case _C_INT: return objc_read_int (stream, (int*)data); break; case _C_UINT: return objc_read_unsigned_int (stream, (unsigned int*)data); break; case _C_LNG: return objc_read_long (stream, (long*)data); break; case _C_ULNG: return objc_read_unsigned_long (stream, (unsigned long*)data); break; case _C_CHARPTR: case _C_ATOM: return objc_read_string (stream, (char**)data); break; case _C_ARY_B: { int len = atoi (type + 1); while (isdigit ((unsigned char) *++type)) ; return objc_read_array (stream, type, len, data); } break; case _C_STRUCT_B: { int acc_size = 0; int align; while (*type != _C_STRUCT_E && *type++ != '=') ; /* skip "=" */ while (*type != _C_STRUCT_E) { align = objc_alignof_type (type); /* padd to alignment */ acc_size += ROUND (acc_size, align); objc_read_type (stream, type, ((char*)data)+acc_size); acc_size += objc_sizeof_type (type); /* add component size */ type = objc_skip_typespec (type); /* skip component */ } return 1; } default: { objc_error (nil, OBJC_ERR_BAD_TYPE, "objc_read_type: cannot parse typespec: %s\n", type); return 0; } } } /* ** Write the object specified by the template TYPE to STREAM. Last ** arguments specify addresses of values to be written. It might ** seem surprising to specify values by address, but this is extremely ** convenient for copy-paste with objc_read_types calls. A more ** down-to-the-earth cause for this passing of addresses is that values ** of arbitrary size is not well supported in ANSI C for functions with ** variable number of arguments. */ int objc_write_types (TypedStream *stream, const char *type, ...) { va_list args; const char *c; int res = 0; va_start(args, type); for (c = type; *c; c = objc_skip_typespec (c)) { switch (*c) { case _C_ID: res = objc_write_object (stream, *va_arg (args, id*)); break; case _C_CLASS: res = objc_write_class (stream, *va_arg (args, Class*)); break; case _C_SEL: res = objc_write_selector (stream, *va_arg (args, SEL*)); break; case _C_CHR: res = objc_write_char (stream, *va_arg (args, char*)); break; case _C_UCHR: res = objc_write_unsigned_char (stream, *va_arg (args, unsigned char*)); break; case _C_SHT: res = objc_write_short (stream, *va_arg (args, short*)); break; case _C_USHT: res = objc_write_unsigned_short (stream, *va_arg (args, unsigned short*)); break; case _C_INT: res = objc_write_int(stream, *va_arg (args, int*)); break; case _C_UINT: res = objc_write_unsigned_int(stream, *va_arg (args, unsigned int*)); break; case _C_LNG: res = objc_write_long(stream, *va_arg (args, long*)); break; case _C_ULNG: res = objc_write_unsigned_long(stream, *va_arg (args, unsigned long*)); break; case _C_CHARPTR: { char **str = va_arg (args, char **); res = objc_write_string (stream, *str, strlen (*str)); } break; case _C_ATOM: { char **str = va_arg (args, char **); res = objc_write_string_atomic (stream, *str, strlen (*str)); } break; case _C_ARY_B: { int len = atoi (c + 1); const char *t = c; while (isdigit ((unsigned char) *++t)) ; res = objc_write_array (stream, t, len, va_arg (args, void *)); t = objc_skip_typespec (t); if (*t != _C_ARY_E) objc_error (nil, OBJC_ERR_BAD_TYPE, "expected `]', got: %s", t); } break; default: objc_error (nil, OBJC_ERR_BAD_TYPE, "objc_write_types: cannot parse typespec: %s\n", type); } } va_end(args); return res; } /* ** Last arguments specify addresses of values to be read. Expected ** type is checked against the type actually present on the stream. */ int objc_read_types(TypedStream *stream, const char *type, ...) { va_list args; const char *c; int res = 0; va_start (args, type); for (c = type; *c; c = objc_skip_typespec(c)) { switch (*c) { case _C_ID: res = objc_read_object(stream, va_arg (args, id*)); break; case _C_CLASS: res = objc_read_class(stream, va_arg (args, Class*)); break; case _C_SEL: res = objc_read_selector(stream, va_arg (args, SEL*)); break; case _C_CHR: res = objc_read_char(stream, va_arg (args, char*)); break; case _C_UCHR: res = objc_read_unsigned_char(stream, va_arg (args, unsigned char*)); break; case _C_SHT: res = objc_read_short(stream, va_arg (args, short*)); break; case _C_USHT: res = objc_read_unsigned_short(stream, va_arg (args, unsigned short*)); break; case _C_INT: res = objc_read_int(stream, va_arg (args, int*)); break; case _C_UINT: res = objc_read_unsigned_int(stream, va_arg (args, unsigned int*)); break; case _C_LNG: res = objc_read_long(stream, va_arg (args, long*)); break; case _C_ULNG: res = objc_read_unsigned_long(stream, va_arg (args, unsigned long*)); break; case _C_CHARPTR: case _C_ATOM: { char **str = va_arg (args, char **); res = objc_read_string (stream, str); } break; case _C_ARY_B: { int len = atoi (c + 1); const char *t = c; while (isdigit ((unsigned char) *++t)) ; res = objc_read_array (stream, t, len, va_arg (args, void *)); t = objc_skip_typespec (t); if (*t != _C_ARY_E) objc_error (nil, OBJC_ERR_BAD_TYPE, "expected `]', got: %s", t); } break; default: objc_error (nil, OBJC_ERR_BAD_TYPE, "objc_read_types: cannot parse typespec: %s\n", type); } } va_end (args); return res; } /* ** Write an array of COUNT elements of TYPE from the memory address DATA. ** This is equivalent of objc_write_type (stream, "[N]", data) */ int objc_write_array (TypedStream *stream, const char *type, int count, const void *data) { int off = objc_sizeof_type(type); const char *where = data; while (count-- > 0) { objc_write_type(stream, type, where); where += off; } return 1; } /* ** Read an array of COUNT elements of TYPE into the memory address ** DATA. The memory pointed to by data is supposed to be allocated ** by the callee. This is equivalent of ** objc_read_type (stream, "[N]", data) */ int objc_read_array (TypedStream *stream, const char *type, int count, void *data) { int off = objc_sizeof_type(type); char *where = (char*)data; while (count-- > 0) { objc_read_type(stream, type, where); where += off; } return 1; } static int __objc_fread (FILE *file, char *data, int len) { return fread(data, len, 1, file); } static int __objc_fwrite (FILE *file, char *data, int len) { return fwrite(data, len, 1, file); } static int __objc_feof (FILE *file) { return feof(file); } static int __objc_no_write (FILE *file __attribute__ ((__unused__)), const char *data __attribute__ ((__unused__)), int len __attribute__ ((__unused__))) { objc_error (nil, OBJC_ERR_NO_WRITE, "TypedStream not open for writing"); return 0; } static int __objc_no_read (FILE *file __attribute__ ((__unused__)), const char *data __attribute__ ((__unused__)), int len __attribute__ ((__unused__))) { objc_error (nil, OBJC_ERR_NO_READ, "TypedStream not open for reading"); return 0; } static int __objc_read_typed_stream_signature (TypedStream *stream) { char buffer[80]; int pos = 0; do (*stream->read) (stream->physical, buffer+pos, 1); while (buffer[pos++] != '\0') ; sscanf (buffer, "GNU TypedStream %d", &stream->version); if (stream->version != OBJC_TYPED_STREAM_VERSION) objc_error (nil, OBJC_ERR_STREAM_VERSION, "cannot handle TypedStream version %d", stream->version); return 1; } static int __objc_write_typed_stream_signature (TypedStream *stream) { char buffer[80]; sprintf(buffer, "GNU TypedStream %d", OBJC_TYPED_STREAM_VERSION); stream->version = OBJC_TYPED_STREAM_VERSION; (*stream->write) (stream->physical, buffer, strlen (buffer) + 1); return 1; } static void __objc_finish_write_root_object(struct objc_typed_stream *stream) { hash_delete (stream->object_table); stream->object_table = hash_new(64, (hash_func_type)hash_ptr, (compare_func_type)compare_ptrs); } static void __objc_finish_read_root_object(struct objc_typed_stream *stream) { node_ptr node; SEL awake_sel = sel_get_any_uid ("awake"); cache_ptr free_list = hash_new (64, (hash_func_type) hash_ptr, (compare_func_type) compare_ptrs); /* resolve object forward references */ for (node = hash_next (stream->object_refs, NULL); node; node = hash_next (stream->object_refs, node)) { struct objc_list *reflist = node->value; const void *key = node->key; id object = hash_value_for_key (stream->object_table, key); while (reflist) { *((id*) reflist->head) = object; if (hash_value_for_key (free_list,reflist) == NULL) hash_add (&free_list,reflist,reflist); reflist = reflist->tail; } } /* apply __objc_free to all objects stored in free_list */ for (node = hash_next (free_list, NULL); node; node = hash_next (free_list, node)) objc_free ((void *) node->key); hash_delete (free_list); /* empty object reference table */ hash_delete (stream->object_refs); stream->object_refs = hash_new(8, (hash_func_type)hash_ptr, (compare_func_type)compare_ptrs); /* call -awake for all objects read */ if (awake_sel) { for (node = hash_next (stream->object_table, NULL); node; node = hash_next (stream->object_table, node)) { id object = node->value; if (__objc_responds_to (object, awake_sel)) (*objc_msg_lookup (object, awake_sel)) (object, awake_sel); } } /* empty object table */ hash_delete (stream->object_table); stream->object_table = hash_new(64, (hash_func_type)hash_ptr, (compare_func_type)compare_ptrs); } /* ** Open the stream PHYSICAL in MODE */ TypedStream * objc_open_typed_stream (FILE *physical, int mode) { TypedStream *s = (TypedStream *) objc_malloc (sizeof (TypedStream)); s->mode = mode; s->physical = physical; s->stream_table = hash_new (64, (hash_func_type) hash_ptr, (compare_func_type) compare_ptrs); s->object_table = hash_new (64, (hash_func_type) hash_ptr, (compare_func_type) compare_ptrs); s->eof = (objc_typed_eof_func) __objc_feof; s->flush = (objc_typed_flush_func) fflush; s->writing_root_p = 0; if (mode == OBJC_READONLY) { s->class_table = hash_new (8, (hash_func_type) hash_string, (compare_func_type) compare_strings); s->object_refs = hash_new (8, (hash_func_type) hash_ptr, (compare_func_type) compare_ptrs); s->read = (objc_typed_read_func) __objc_fread; s->write = (objc_typed_write_func) __objc_no_write; __objc_read_typed_stream_signature (s); } else if (mode == OBJC_WRITEONLY) { s->class_table = 0; s->object_refs = 0; s->read = (objc_typed_read_func) __objc_no_read; s->write = (objc_typed_write_func) __objc_fwrite; __objc_write_typed_stream_signature (s); } else { objc_close_typed_stream (s); return NULL; } s->type = OBJC_FILE_STREAM; return s; } /* ** Open the file named by FILE_NAME in MODE */ TypedStream* objc_open_typed_stream_for_file (const char *file_name, int mode) { FILE *file = NULL; TypedStream *s; if (mode == OBJC_READONLY) file = fopen (file_name, "r"); else file = fopen (file_name, "w"); if (file) { s = objc_open_typed_stream (file, mode); if (s) s->type |= OBJC_MANAGED_STREAM; return s; } else return NULL; } /* ** Close STREAM freeing the structure it self. If it was opened with ** objc_open_typed_stream_for_file, the file will also be closed. */ void objc_close_typed_stream (TypedStream *stream) { if (stream->mode == OBJC_READONLY) { __objc_finish_read_root_object (stream); /* Just in case... */ hash_delete (stream->class_table); hash_delete (stream->object_refs); } hash_delete (stream->stream_table); hash_delete (stream->object_table); if (stream->type == (OBJC_MANAGED_STREAM | OBJC_FILE_STREAM)) fclose ((FILE *)stream->physical); objc_free(stream); } BOOL objc_end_of_typed_stream (TypedStream *stream) { return (*stream->eof) (stream->physical); } void objc_flush_typed_stream (TypedStream *stream) { (*stream->flush) (stream->physical); } long objc_get_stream_class_version (TypedStream *stream, Class class) { if (stream->class_table) return PTR2LONG(hash_value_for_key (stream->class_table, class->name)); else return class_get_version (class); } Index: vendor/gcc/dist/contrib/libobjc/class.c =================================================================== --- vendor/gcc/dist/contrib/libobjc/class.c (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/class.c (revision 132722) @@ -1,703 +1,703 @@ /* GNU Objective C Runtime class related functions Copyright (C) 1993, 1995, 1996, 1997, 2001, 2002 Free Software Foundation, Inc. Contributed by Kresten Krab Thorup and Dennis Glatting. Lock-free class table code designed and written from scratch by Nicola Pero, 2001. -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify it under the +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, but WITHOUT ANY +GCC is distributed in the hope that it will be useful, but WITHOUT 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 along with -GNU CC; see the file COPYING. If not, write to the Free Software +GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ /* The code in this file critically affects class method invocation speed. This long preamble comment explains why, and the issues involved. One of the traditional weaknesses of the GNU Objective-C runtime is that class method invocations are slow. The reason is that when you write array = [NSArray new]; this gets basically compiled into the equivalent of array = [(objc_get_class ("NSArray")) new]; objc_get_class returns the class pointer corresponding to the string `NSArray'; and because of the lookup, the operation is more complicated and slow than a simple instance method invocation. Most high performance Objective-C code (using the GNU Objc runtime) I had the opportunity to read (or write) work around this problem by caching the class pointer: Class arrayClass = [NSArray class]; ... later on ... array = [arrayClass new]; array = [arrayClass new]; array = [arrayClass new]; In this case, you always perform a class lookup (the first one), but then all the [arrayClass new] methods run exactly as fast as an instance method invocation. It helps if you have many class method invocations to the same class. The long-term solution to this problem would be to modify the compiler to output tables of class pointers corresponding to all the class method invocations, and to add code to the runtime to update these tables - that should in the end allow class method invocations to perform precisely as fast as instance method invocations, because no class lookup would be involved. I think the Apple Objective-C runtime uses this technique. Doing this involves synchronized modifications in the runtime and in the compiler. As a first medicine to the problem, I [NP] have redesigned and rewritten the way the runtime is performing class lookup. This doesn't give as much speed as the other (definitive) approach, but at least a class method invocation now takes approximately 4.5 times an instance method invocation on my machine (it would take approx 12 times before the rewriting), which is a lot better. One of the main reason the new class lookup is so faster is because I implemented it in a way that can safely run multithreaded without using locks - a so-called `lock-free' data structure. The atomic operation is pointer assignment. The reason why in this problem lock-free data structures work so well is that you never remove classes from the table - and the difficult thing with lock-free data structures is freeing data when is removed from the structures. */ #include "runtime.h" /* the kitchen sink */ #include "sarray.h" #include #include #include /* We use a table which maps a class name to the corresponding class * pointer. The first part of this file defines this table, and * functions to do basic operations on the table. The second part of * the file implements some higher level Objective-C functionality for * classes by using the functions provided in the first part to manage * the table. */ /** ** Class Table Internals **/ /* A node holding a class */ typedef struct class_node { struct class_node *next; /* Pointer to next entry on the list. NULL indicates end of list. */ const char *name; /* The class name string */ int length; /* The class name string length */ Class pointer; /* The Class pointer */ } *class_node_ptr; /* A table containing classes is a class_node_ptr (pointing to the first entry in the table - if it is NULL, then the table is empty). */ /* We have 1024 tables. Each table contains all class names which have the same hash (which is a number between 0 and 1023). To look up a class_name, we compute its hash, and get the corresponding table. Once we have the table, we simply compare strings directly till we find the one which we want (using the length first). The number of tables is quite big on purpose (a normal big application has less than 1000 classes), so that you shouldn't normally get any collisions, and get away with a single comparison (which we can't avoid since we need to know that you have got the right thing). */ #define CLASS_TABLE_SIZE 1024 #define CLASS_TABLE_MASK 1023 static class_node_ptr class_table_array[CLASS_TABLE_SIZE]; /* The table writing mutex - we lock on writing to avoid conflicts between different writers, but we read without locks. That is possible because we assume pointer assignment to be an atomic operation. */ static objc_mutex_t __class_table_lock = NULL; /* CLASS_TABLE_HASH is how we compute the hash of a class name. It is a macro - *not* a function - arguments *are* modified directly. INDEX should be a variable holding an int; HASH should be a variable holding an int; CLASS_NAME should be a variable holding a (char *) to the class_name. After the macro is executed, INDEX contains the length of the string, and HASH the computed hash of the string; CLASS_NAME is untouched. */ #define CLASS_TABLE_HASH(INDEX, HASH, CLASS_NAME) \ HASH = 0; \ for (INDEX = 0; CLASS_NAME[INDEX] != '\0'; INDEX++) \ { \ HASH = (HASH << 4) ^ (HASH >> 28) ^ CLASS_NAME[INDEX]; \ } \ \ HASH = (HASH ^ (HASH >> 10) ^ (HASH >> 20)) & CLASS_TABLE_MASK; /* Setup the table. */ static void class_table_setup (void) { /* Start - nothing in the table. */ memset (class_table_array, 0, sizeof (class_node_ptr) * CLASS_TABLE_SIZE); /* The table writing mutex. */ __class_table_lock = objc_mutex_allocate (); } /* Insert a class in the table (used when a new class is registered). */ static void class_table_insert (const char *class_name, Class class_pointer) { int hash, length; class_node_ptr new_node; /* Find out the class name's hash and length. */ CLASS_TABLE_HASH (length, hash, class_name); /* Prepare the new node holding the class. */ new_node = objc_malloc (sizeof (struct class_node)); new_node->name = class_name; new_node->length = length; new_node->pointer = class_pointer; /* Lock the table for modifications. */ objc_mutex_lock (__class_table_lock); /* Insert the new node in the table at the beginning of the table at class_table_array[hash]. */ new_node->next = class_table_array[hash]; class_table_array[hash] = new_node; objc_mutex_unlock (__class_table_lock); } /* Replace a class in the table (used only by poseAs:). */ static void class_table_replace (Class old_class_pointer, Class new_class_pointer) { int hash; class_node_ptr node; objc_mutex_lock (__class_table_lock); hash = 0; node = class_table_array[hash]; while (hash < CLASS_TABLE_SIZE) { if (node == NULL) { hash++; if (hash < CLASS_TABLE_SIZE) { node = class_table_array[hash]; } } else { Class class1 = node->pointer; if (class1 == old_class_pointer) { node->pointer = new_class_pointer; } node = node->next; } } objc_mutex_unlock (__class_table_lock); } /* Get a class from the table. This does not need mutex protection. Currently, this function is called each time you call a static method, this is why it must be very fast. */ static inline Class class_table_get_safe (const char *class_name) { class_node_ptr node; int length, hash; /* Compute length and hash. */ CLASS_TABLE_HASH (length, hash, class_name); node = class_table_array[hash]; if (node != NULL) { do { if (node->length == length) { /* Compare the class names. */ int i; for (i = 0; i < length; i++) { if ((node->name)[i] != class_name[i]) { break; } } if (i == length) { /* They are equal! */ return node->pointer; } } } while ((node = node->next) != NULL); } return Nil; } /* Enumerate over the class table. */ struct class_table_enumerator { int hash; class_node_ptr node; }; static Class class_table_next (struct class_table_enumerator **e) { struct class_table_enumerator *enumerator = *e; class_node_ptr next; if (enumerator == NULL) { *e = objc_malloc (sizeof (struct class_table_enumerator)); enumerator = *e; enumerator->hash = 0; enumerator->node = NULL; next = class_table_array[enumerator->hash]; } else { next = enumerator->node->next; } if (next != NULL) { enumerator->node = next; return enumerator->node->pointer; } else { enumerator->hash++; while (enumerator->hash < CLASS_TABLE_SIZE) { next = class_table_array[enumerator->hash]; if (next != NULL) { enumerator->node = next; return enumerator->node->pointer; } enumerator->hash++; } /* Ok - table finished - done. */ objc_free (enumerator); return Nil; } } #if 0 /* DEBUGGING FUNCTIONS */ /* Debugging function - print the class table. */ void class_table_print (void) { int i; for (i = 0; i < CLASS_TABLE_SIZE; i++) { class_node_ptr node; printf ("%d:\n", i); node = class_table_array[i]; while (node != NULL) { printf ("\t%s\n", node->name); node = node->next; } } } /* Debugging function - print an histogram of number of classes in function of hash key values. Useful to evaluate the hash function in real cases. */ void class_table_print_histogram (void) { int i, j; int counter = 0; for (i = 0; i < CLASS_TABLE_SIZE; i++) { class_node_ptr node; node = class_table_array[i]; while (node != NULL) { counter++; node = node->next; } if (((i + 1) % 50) == 0) { printf ("%4d:", i + 1); for (j = 0; j < counter; j++) { printf ("X"); } printf ("\n"); counter = 0; } } printf ("%4d:", i + 1); for (j = 0; j < counter; j++) { printf ("X"); } printf ("\n"); } #endif /* DEBUGGING FUNCTIONS */ /** ** Objective-C runtime functions **/ /* From now on, the only access to the class table data structure should be via the class_table_* functions. */ /* This is a hook which is called by objc_get_class and objc_lookup_class if the runtime is not able to find the class. This may e.g. try to load in the class using dynamic loading. */ Class (*_objc_lookup_class) (const char *name) = 0; /* !T:SAFE */ /* True when class links has been resolved. */ BOOL __objc_class_links_resolved = NO; /* !T:UNUSED */ void __objc_init_class_tables (void) { /* Allocate the class hash table. */ if (__class_table_lock) return; objc_mutex_lock (__objc_runtime_mutex); class_table_setup (); objc_mutex_unlock (__objc_runtime_mutex); } /* This function adds a class to the class hash table, and assigns the class a number, unless it's already known. */ void __objc_add_class_to_hash (Class class) { Class h_class; objc_mutex_lock (__objc_runtime_mutex); /* Make sure the table is there. */ assert (__class_table_lock); /* Make sure it's not a meta class. */ assert (CLS_ISCLASS (class)); /* Check to see if the class is already in the hash table. */ h_class = class_table_get_safe (class->name); if (! h_class) { /* The class isn't in the hash table. Add the class and assign a class number. */ static unsigned int class_number = 1; CLS_SETNUMBER (class, class_number); CLS_SETNUMBER (class->class_pointer, class_number); ++class_number; class_table_insert (class->name, class); } objc_mutex_unlock (__objc_runtime_mutex); } /* Get the class object for the class named NAME. If NAME does not identify a known class, the hook _objc_lookup_class is called. If this fails, nil is returned. */ Class objc_lookup_class (const char *name) { Class class; class = class_table_get_safe (name); if (class) return class; if (_objc_lookup_class) return (*_objc_lookup_class) (name); else return 0; } /* Get the class object for the class named NAME. If NAME does not identify a known class, the hook _objc_lookup_class is called. If this fails, an error message is issued and the system aborts. */ Class objc_get_class (const char *name) { Class class; class = class_table_get_safe (name); if (class) return class; if (_objc_lookup_class) class = (*_objc_lookup_class) (name); if (class) return class; objc_error (nil, OBJC_ERR_BAD_CLASS, "objc runtime: cannot find class %s\n", name); return 0; } MetaClass objc_get_meta_class (const char *name) { return objc_get_class (name)->class_pointer; } /* This function provides a way to enumerate all the classes in the executable. Pass *ENUM_STATE == NULL to start the enumeration. The function will return 0 when there are no more classes. For example: id class; void *es = NULL; while ((class = objc_next_class (&es))) ... do something with class; */ Class objc_next_class (void **enum_state) { Class class; objc_mutex_lock (__objc_runtime_mutex); /* Make sure the table is there. */ assert (__class_table_lock); class = class_table_next ((struct class_table_enumerator **) enum_state); objc_mutex_unlock (__objc_runtime_mutex); return class; } /* Resolve super/subclass links for all classes. The only thing we can be sure of is that the class_pointer for class objects point to the right meta class objects. */ void __objc_resolve_class_links (void) { struct class_table_enumerator *es = NULL; Class object_class = objc_get_class ("Object"); Class class1; assert (object_class); objc_mutex_lock (__objc_runtime_mutex); /* Assign subclass links. */ while ((class1 = class_table_next (&es))) { /* Make sure we have what we think we have. */ assert (CLS_ISCLASS (class1)); assert (CLS_ISMETA (class1->class_pointer)); /* The class_pointer of all meta classes point to Object's meta class. */ class1->class_pointer->class_pointer = object_class->class_pointer; if (! CLS_ISRESOLV (class1)) { CLS_SETRESOLV (class1); CLS_SETRESOLV (class1->class_pointer); if (class1->super_class) { Class a_super_class = objc_get_class ((char *) class1->super_class); assert (a_super_class); DEBUG_PRINTF ("making class connections for: %s\n", class1->name); /* Assign subclass links for superclass. */ class1->sibling_class = a_super_class->subclass_list; a_super_class->subclass_list = class1; /* Assign subclass links for meta class of superclass. */ if (a_super_class->class_pointer) { class1->class_pointer->sibling_class = a_super_class->class_pointer->subclass_list; a_super_class->class_pointer->subclass_list = class1->class_pointer; } } else /* A root class, make its meta object be a subclass of Object. */ { class1->class_pointer->sibling_class = object_class->subclass_list; object_class->subclass_list = class1->class_pointer; } } } /* Assign superclass links. */ es = NULL; while ((class1 = class_table_next (&es))) { Class sub_class; for (sub_class = class1->subclass_list; sub_class; sub_class = sub_class->sibling_class) { sub_class->super_class = class1; if (CLS_ISCLASS (sub_class)) sub_class->class_pointer->super_class = class1->class_pointer; } } objc_mutex_unlock (__objc_runtime_mutex); } #define CLASSOF(c) ((c)->class_pointer) Class class_pose_as (Class impostor, Class super_class) { if (! CLS_ISRESOLV (impostor)) __objc_resolve_class_links (); /* Preconditions */ assert (impostor); assert (super_class); assert (impostor->super_class == super_class); assert (CLS_ISCLASS (impostor)); assert (CLS_ISCLASS (super_class)); assert (impostor->instance_size == super_class->instance_size); { Class *subclass = &(super_class->subclass_list); /* Move subclasses of super_class to impostor. */ while (*subclass) { Class nextSub = (*subclass)->sibling_class; if (*subclass != impostor) { Class sub = *subclass; /* Classes */ sub->sibling_class = impostor->subclass_list; sub->super_class = impostor; impostor->subclass_list = sub; /* It will happen that SUB is not a class object if it is the top of the meta class hierarchy chain (root meta-class objects inherit their class object). If that is the case... don't mess with the meta-meta class. */ if (CLS_ISCLASS (sub)) { /* Meta classes */ CLASSOF (sub)->sibling_class = CLASSOF (impostor)->subclass_list; CLASSOF (sub)->super_class = CLASSOF (impostor); CLASSOF (impostor)->subclass_list = CLASSOF (sub); } } *subclass = nextSub; } /* Set subclasses of superclass to be impostor only. */ super_class->subclass_list = impostor; CLASSOF (super_class)->subclass_list = CLASSOF (impostor); /* Set impostor to have no sibling classes. */ impostor->sibling_class = 0; CLASSOF (impostor)->sibling_class = 0; } /* Check relationship of impostor and super_class is kept. */ assert (impostor->super_class == super_class); assert (CLASSOF (impostor)->super_class == CLASSOF (super_class)); /* This is how to update the lookup table. Regardless of what the keys of the hashtable is, change all values that are superclass into impostor. */ objc_mutex_lock (__objc_runtime_mutex); class_table_replace (super_class, impostor); objc_mutex_unlock (__objc_runtime_mutex); /* Next, we update the dispatch tables... */ __objc_update_dispatch_table_for_class (CLASSOF (impostor)); __objc_update_dispatch_table_for_class (impostor); return impostor; } Index: vendor/gcc/dist/contrib/libobjc/configure =================================================================== --- vendor/gcc/dist/contrib/libobjc/configure (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/configure (revision 132722) @@ -1,3379 +1,3350 @@ #! /bin/sh # Guess values for system-dependent variables and create Makefiles. # Generated automatically using autoconf version 2.13 # Copyright (C) 1992, 93, 94, 95, 96 Free Software Foundation, Inc. # # This configure script is free software; the Free Software Foundation # gives unlimited permission to copy, distribute and modify it. # Defaults: ac_help= ac_default_prefix=/usr/local # Any additions from configure.in: ac_help="$ac_help --enable-multilib build hella library versions (default)" ac_help="$ac_help --with-target-subdir=SUBDIR configuring in a subdirectory" ac_help="$ac_help --with-cross-host=HOST configuring with a cross compiler" ac_help="$ac_help --enable-version-specific-runtime-libs Specify that runtime libraries should be installed in a compiler-specific directory " ac_help="$ac_help --enable-shared[=PKGS] build shared libraries [default=no]" ac_help="$ac_help --enable-static[=PKGS] build static libraries [default=yes]" ac_help="$ac_help --enable-fast-install[=PKGS] optimize for fast installation [default=yes]" ac_help="$ac_help --with-gnu-ld assume the C compiler uses GNU ld [default=no]" ac_help="$ac_help --disable-libtool-lock avoid locking (might break parallel builds)" ac_help="$ac_help --with-pic try to use only PIC/non-PIC objects [default=use both]" ac_help="$ac_help --enable-objc-gc enable the use of Boehm's garbage collector with the GNU Objective-C runtime." # Initialize some variables set by options. # The variables have the same names as the options, with # dashes changed to underlines. build=NONE cache_file=./config.cache exec_prefix=NONE host=NONE no_create= nonopt=NONE no_recursion= prefix=NONE program_prefix=NONE program_suffix=NONE program_transform_name=s,x,x, silent= site= srcdir= target=NONE verbose= x_includes=NONE x_libraries=NONE bindir='${exec_prefix}/bin' sbindir='${exec_prefix}/sbin' libexecdir='${exec_prefix}/libexec' datadir='${prefix}/share' sysconfdir='${prefix}/etc' sharedstatedir='${prefix}/com' localstatedir='${prefix}/var' libdir='${exec_prefix}/lib' includedir='${prefix}/include' oldincludedir='/usr/include' infodir='${prefix}/info' mandir='${prefix}/man' # Initialize some other variables. subdirs= MFLAGS= MAKEFLAGS= SHELL=${CONFIG_SHELL-/bin/sh} # Maximum number of lines to put in a shell here document. ac_max_here_lines=12 ac_prev= for ac_option do # If the previous option needs an argument, assign it. if test -n "$ac_prev"; then eval "$ac_prev=\$ac_option" ac_prev= continue fi case "$ac_option" in -*=*) ac_optarg=`echo "$ac_option" | sed 's/[-_a-zA-Z0-9]*=//'` ;; *) ac_optarg= ;; esac # Accept the important Cygnus configure options, so we can diagnose typos. case "$ac_option" in -bindir | --bindir | --bindi | --bind | --bin | --bi) ac_prev=bindir ;; -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) bindir="$ac_optarg" ;; -build | --build | --buil | --bui | --bu) ac_prev=build ;; -build=* | --build=* | --buil=* | --bui=* | --bu=*) build="$ac_optarg" ;; -cache-file | --cache-file | --cache-fil | --cache-fi \ | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) ac_prev=cache_file ;; -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) cache_file="$ac_optarg" ;; -datadir | --datadir | --datadi | --datad | --data | --dat | --da) ac_prev=datadir ;; -datadir=* | --datadir=* | --datadi=* | --datad=* | --data=* | --dat=* \ | --da=*) datadir="$ac_optarg" ;; -disable-* | --disable-*) ac_feature=`echo $ac_option|sed -e 's/-*disable-//'` # Reject names that are not valid shell variable names. if test -n "`echo $ac_feature| sed 's/[-a-zA-Z0-9_]//g'`"; then { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; } fi ac_feature=`echo $ac_feature| sed 's/-/_/g'` eval "enable_${ac_feature}=no" ;; -enable-* | --enable-*) ac_feature=`echo $ac_option|sed -e 's/-*enable-//' -e 's/=.*//'` # Reject names that are not valid shell variable names. if test -n "`echo $ac_feature| sed 's/[-_a-zA-Z0-9]//g'`"; then { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; } fi ac_feature=`echo $ac_feature| sed 's/-/_/g'` case "$ac_option" in *=*) ;; *) ac_optarg=yes ;; esac eval "enable_${ac_feature}='$ac_optarg'" ;; -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ | --exec | --exe | --ex) ac_prev=exec_prefix ;; -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ | --exec=* | --exe=* | --ex=*) exec_prefix="$ac_optarg" ;; -gas | --gas | --ga | --g) # Obsolete; use --with-gas. with_gas=yes ;; -help | --help | --hel | --he) # Omit some internal or obsolete options to make the list less imposing. # This message is too long to be a string in the A/UX 3.1 sh. cat << EOF Usage: configure [options] [host] Options: [defaults in brackets after descriptions] Configuration: --cache-file=FILE cache test results in FILE --help print this message --no-create do not create output files --quiet, --silent do not print \`checking...' messages --version print the version of autoconf that created configure Directory and file names: --prefix=PREFIX install architecture-independent files in PREFIX [$ac_default_prefix] --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX [same as prefix] --bindir=DIR user executables in DIR [EPREFIX/bin] --sbindir=DIR system admin executables in DIR [EPREFIX/sbin] --libexecdir=DIR program executables in DIR [EPREFIX/libexec] --datadir=DIR read-only architecture-independent data in DIR [PREFIX/share] --sysconfdir=DIR read-only single-machine data in DIR [PREFIX/etc] --sharedstatedir=DIR modifiable architecture-independent data in DIR [PREFIX/com] --localstatedir=DIR modifiable single-machine data in DIR [PREFIX/var] --libdir=DIR object code libraries in DIR [EPREFIX/lib] --includedir=DIR C header files in DIR [PREFIX/include] --oldincludedir=DIR C header files for non-gcc in DIR [/usr/include] --infodir=DIR info documentation in DIR [PREFIX/info] --mandir=DIR man documentation in DIR [PREFIX/man] --srcdir=DIR find the sources in DIR [configure dir or ..] --program-prefix=PREFIX prepend PREFIX to installed program names --program-suffix=SUFFIX append SUFFIX to installed program names --program-transform-name=PROGRAM run sed PROGRAM on installed program names EOF cat << EOF Host type: --build=BUILD configure for building on BUILD [BUILD=HOST] --host=HOST configure for HOST [guessed] --target=TARGET configure for TARGET [TARGET=HOST] Features and packages: --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no) --enable-FEATURE[=ARG] include FEATURE [ARG=yes] --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) --x-includes=DIR X include files are in DIR --x-libraries=DIR X library files are in DIR EOF if test -n "$ac_help"; then echo "--enable and --with options recognized:$ac_help" fi exit 0 ;; -host | --host | --hos | --ho) ac_prev=host ;; -host=* | --host=* | --hos=* | --ho=*) host="$ac_optarg" ;; -includedir | --includedir | --includedi | --included | --include \ | --includ | --inclu | --incl | --inc) ac_prev=includedir ;; -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ | --includ=* | --inclu=* | --incl=* | --inc=*) includedir="$ac_optarg" ;; -infodir | --infodir | --infodi | --infod | --info | --inf) ac_prev=infodir ;; -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) infodir="$ac_optarg" ;; -libdir | --libdir | --libdi | --libd) ac_prev=libdir ;; -libdir=* | --libdir=* | --libdi=* | --libd=*) libdir="$ac_optarg" ;; -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ | --libexe | --libex | --libe) ac_prev=libexecdir ;; -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ | --libexe=* | --libex=* | --libe=*) libexecdir="$ac_optarg" ;; -localstatedir | --localstatedir | --localstatedi | --localstated \ | --localstate | --localstat | --localsta | --localst \ | --locals | --local | --loca | --loc | --lo) ac_prev=localstatedir ;; -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ | --localstate=* | --localstat=* | --localsta=* | --localst=* \ | --locals=* | --local=* | --loca=* | --loc=* | --lo=*) localstatedir="$ac_optarg" ;; -mandir | --mandir | --mandi | --mand | --man | --ma | --m) ac_prev=mandir ;; -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) mandir="$ac_optarg" ;; -nfp | --nfp | --nf) # Obsolete; use --without-fp. with_fp=no ;; -no-create | --no-create | --no-creat | --no-crea | --no-cre \ | --no-cr | --no-c) no_create=yes ;; -no-recursion | --no-recursion | --no-recursio | --no-recursi \ | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) no_recursion=yes ;; -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ | --oldin | --oldi | --old | --ol | --o) ac_prev=oldincludedir ;; -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) oldincludedir="$ac_optarg" ;; -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) ac_prev=prefix ;; -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) prefix="$ac_optarg" ;; -program-prefix | --program-prefix | --program-prefi | --program-pref \ | --program-pre | --program-pr | --program-p) ac_prev=program_prefix ;; -program-prefix=* | --program-prefix=* | --program-prefi=* \ | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) program_prefix="$ac_optarg" ;; -program-suffix | --program-suffix | --program-suffi | --program-suff \ | --program-suf | --program-su | --program-s) ac_prev=program_suffix ;; -program-suffix=* | --program-suffix=* | --program-suffi=* \ | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) program_suffix="$ac_optarg" ;; -program-transform-name | --program-transform-name \ | --program-transform-nam | --program-transform-na \ | --program-transform-n | --program-transform- \ | --program-transform | --program-transfor \ | --program-transfo | --program-transf \ | --program-trans | --program-tran \ | --progr-tra | --program-tr | --program-t) ac_prev=program_transform_name ;; -program-transform-name=* | --program-transform-name=* \ | --program-transform-nam=* | --program-transform-na=* \ | --program-transform-n=* | --program-transform-=* \ | --program-transform=* | --program-transfor=* \ | --program-transfo=* | --program-transf=* \ | --program-trans=* | --program-tran=* \ | --progr-tra=* | --program-tr=* | --program-t=*) program_transform_name="$ac_optarg" ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil) silent=yes ;; -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) ac_prev=sbindir ;; -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ | --sbi=* | --sb=*) sbindir="$ac_optarg" ;; -sharedstatedir | --sharedstatedir | --sharedstatedi \ | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ | --sharedst | --shareds | --shared | --share | --shar \ | --sha | --sh) ac_prev=sharedstatedir ;; -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ | --sha=* | --sh=*) sharedstatedir="$ac_optarg" ;; -site | --site | --sit) ac_prev=site ;; -site=* | --site=* | --sit=*) site="$ac_optarg" ;; -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) ac_prev=srcdir ;; -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) srcdir="$ac_optarg" ;; -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ | --syscon | --sysco | --sysc | --sys | --sy) ac_prev=sysconfdir ;; -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) sysconfdir="$ac_optarg" ;; -target | --target | --targe | --targ | --tar | --ta | --t) ac_prev=target ;; -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) target="$ac_optarg" ;; -v | -verbose | --verbose | --verbos | --verbo | --verb) verbose=yes ;; -version | --version | --versio | --versi | --vers) echo "configure generated by autoconf version 2.13" exit 0 ;; -with-* | --with-*) ac_package=`echo $ac_option|sed -e 's/-*with-//' -e 's/=.*//'` # Reject names that are not valid shell variable names. if test -n "`echo $ac_package| sed 's/[-_a-zA-Z0-9]//g'`"; then { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; } fi ac_package=`echo $ac_package| sed 's/-/_/g'` case "$ac_option" in *=*) ;; *) ac_optarg=yes ;; esac eval "with_${ac_package}='$ac_optarg'" ;; -without-* | --without-*) ac_package=`echo $ac_option|sed -e 's/-*without-//'` # Reject names that are not valid shell variable names. if test -n "`echo $ac_package| sed 's/[-a-zA-Z0-9_]//g'`"; then { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; } fi ac_package=`echo $ac_package| sed 's/-/_/g'` eval "with_${ac_package}=no" ;; --x) # Obsolete; use --with-x. with_x=yes ;; -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ | --x-incl | --x-inc | --x-in | --x-i) ac_prev=x_includes ;; -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) x_includes="$ac_optarg" ;; -x-libraries | --x-libraries | --x-librarie | --x-librari \ | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) ac_prev=x_libraries ;; -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) x_libraries="$ac_optarg" ;; -*) { echo "configure: error: $ac_option: invalid option; use --help to show usage" 1>&2; exit 1; } ;; *) if test -n "`echo $ac_option| sed 's/[-a-z0-9.]//g'`"; then echo "configure: warning: $ac_option: invalid host type" 1>&2 fi if test "x$nonopt" != xNONE; then { echo "configure: error: can only configure for one host and one target at a time" 1>&2; exit 1; } fi nonopt="$ac_option" ;; esac done if test -n "$ac_prev"; then { echo "configure: error: missing argument to --`echo $ac_prev | sed 's/_/-/g'`" 1>&2; exit 1; } fi trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15 # File descriptor usage: # 0 standard input # 1 file creation # 2 errors and warnings # 3 some systems may open it to /dev/tty # 4 used on the Kubota Titan # 6 checking for... messages and results # 5 compiler messages saved in config.log if test "$silent" = yes; then exec 6>/dev/null else exec 6>&1 fi exec 5>./config.log echo "\ This file contains any messages produced by compilers while running configure, to aid debugging if configure makes a mistake. " 1>&5 # Strip out --no-create and --no-recursion so they do not pile up. # Also quote any args containing shell metacharacters. ac_configure_args= for ac_arg do case "$ac_arg" in -no-create | --no-create | --no-creat | --no-crea | --no-cre \ | --no-cr | --no-c) ;; -no-recursion | --no-recursion | --no-recursio | --no-recursi \ | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) ;; *" "*|*" "*|*[\[\]\~\#\$\^\&\*\(\)\{\}\\\|\;\<\>\?]*) ac_configure_args="$ac_configure_args '$ac_arg'" ;; *) ac_configure_args="$ac_configure_args $ac_arg" ;; esac done # NLS nuisances. # Only set these to C if already set. These must not be set unconditionally # because not all systems understand e.g. LANG=C (notably SCO). # Fixing LC_MESSAGES prevents Solaris sh from translating var values in `set'! # Non-C LC_CTYPE values break the ctype check. if test "${LANG+set}" = set; then LANG=C; export LANG; fi if test "${LC_ALL+set}" = set; then LC_ALL=C; export LC_ALL; fi if test "${LC_MESSAGES+set}" = set; then LC_MESSAGES=C; export LC_MESSAGES; fi if test "${LC_CTYPE+set}" = set; then LC_CTYPE=C; export LC_CTYPE; fi # confdefs.h avoids OS command line length limits that DEFS can exceed. rm -rf conftest* confdefs.h # AIX cpp loses on an empty file, so make sure it contains at least a newline. echo > confdefs.h # A filename unique to this package, relative to the directory that # configure is in, which we can look for to find out if srcdir is correct. ac_unique_file=objc/objc.h # Find the source files, if location was not specified. if test -z "$srcdir"; then ac_srcdir_defaulted=yes # Try the directory containing this script, then its parent. ac_prog=$0 ac_confdir=`echo $ac_prog|sed 's%/[^/][^/]*$%%'` test "x$ac_confdir" = "x$ac_prog" && ac_confdir=. srcdir=$ac_confdir if test ! -r $srcdir/$ac_unique_file; then srcdir=.. fi else ac_srcdir_defaulted=no fi if test ! -r $srcdir/$ac_unique_file; then if test "$ac_srcdir_defaulted" = yes; then { echo "configure: error: can not find sources in $ac_confdir or .." 1>&2; exit 1; } else { echo "configure: error: can not find sources in $srcdir" 1>&2; exit 1; } fi fi srcdir=`echo "${srcdir}" | sed 's%\([^/]\)/*$%\1%'` # Prefer explicitly selected file to automatically selected ones. if test -z "$CONFIG_SITE"; then if test "x$prefix" != xNONE; then CONFIG_SITE="$prefix/share/config.site $prefix/etc/config.site" else CONFIG_SITE="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site" fi fi for ac_site_file in $CONFIG_SITE; do if test -r "$ac_site_file"; then echo "loading site script $ac_site_file" . "$ac_site_file" fi done if test -r "$cache_file"; then echo "loading cache $cache_file" . $cache_file else echo "creating cache $cache_file" > $cache_file fi ac_ext=c # CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options. ac_cpp='$CPP $CPPFLAGS' ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5' ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5' cross_compiling=$ac_cv_prog_cc_cross ac_exeext= ac_objext=o if (echo "testing\c"; echo 1,2,3) | grep c >/dev/null; then # Stardent Vistra SVR4 grep lacks -e, says ghazi@caip.rutgers.edu. if (echo -n testing; echo 1,2,3) | sed s/-n/xn/ | grep xn >/dev/null; then ac_n= ac_c=' ' ac_t=' ' else ac_n=-n ac_c= ac_t= fi else ac_n= ac_c='\c' ac_t= fi # This works around the fact that libtool configuration may change LD # for this particular configuration, but some shells, instead of # keeping the changes in LD private, export them just because LD is # exported. ORIGINAL_LD_FOR_MULTILIBS=$LD # Check whether --enable-multilib or --disable-multilib was given. if test "${enable_multilib+set}" = set; then enableval="$enable_multilib" case "${enableval}" in yes) multilib=yes ;; no) multilib=no ;; *) { echo "configure: error: bad value ${enableval} for multilib option" 1>&2; exit 1; } ;; esac else multilib=yes fi # When building with srcdir == objdir, links to the source files will # be created in directories within the target_subdir. We have to # adjust toplevel_srcdir accordingly, so that configure finds # install-sh and other auxiliary files that live in the top-level # source directory. if test "${srcdir}" = "."; then if test -z "${with_target_subdir}"; then toprel=".." else if test "${with_target_subdir}" != "."; then toprel="${with_multisrctop}../.." else toprel="${with_multisrctop}.." fi fi else toprel=".." fi ac_aux_dir= for ac_dir in ${srcdir}/$toprel $srcdir/${srcdir}/$toprel; do if test -f $ac_dir/install-sh; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/install-sh -c" break elif test -f $ac_dir/install.sh; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/install.sh -c" break fi done if test -z "$ac_aux_dir"; then { echo "configure: error: can not find install-sh or install.sh in ${srcdir}/$toprel $srcdir/${srcdir}/$toprel" 1>&2; exit 1; } fi ac_config_guess=$ac_aux_dir/config.guess ac_config_sub=$ac_aux_dir/config.sub ac_configure=$ac_aux_dir/configure # This should be Cygnus configure. toplevel_srcdir=\${top_srcdir}/$toprel # Do some error checking and defaulting for the host and target type. # The inputs are: # configure --host=HOST --target=TARGET --build=BUILD NONOPT # # The rules are: # 1. You are not allowed to specify --host, --target, and nonopt at the # same time. # 2. Host defaults to nonopt. # 3. If nonopt is not specified, then host defaults to the current host, # as determined by config.guess. # 4. Target and build default to nonopt. # 5. If nonopt is not specified, then target and build default to host. # The aliases save the names the user supplied, while $host etc. # will get canonicalized. case $host---$target---$nonopt in NONE---*---* | *---NONE---* | *---*---NONE) ;; *) { echo "configure: error: can only configure for one host and one target at a time" 1>&2; exit 1; } ;; esac # Make sure we can run config.sub. if ${CONFIG_SHELL-/bin/sh} $ac_config_sub sun4 >/dev/null 2>&1; then : else { echo "configure: error: can not run $ac_config_sub" 1>&2; exit 1; } fi echo $ac_n "checking host system type""... $ac_c" 1>&6 echo "configure:639: checking host system type" >&5 host_alias=$host case "$host_alias" in NONE) case $nonopt in NONE) if host_alias=`${CONFIG_SHELL-/bin/sh} $ac_config_guess`; then : else { echo "configure: error: can not guess host type; you must specify one" 1>&2; exit 1; } fi ;; *) host_alias=$nonopt ;; esac ;; esac host=`${CONFIG_SHELL-/bin/sh} $ac_config_sub $host_alias` host_cpu=`echo $host | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\1/'` host_vendor=`echo $host | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\2/'` host_os=`echo $host | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\3/'` echo "$ac_t""$host" 1>&6 echo $ac_n "checking target system type""... $ac_c" 1>&6 echo "configure:660: checking target system type" >&5 target_alias=$target case "$target_alias" in NONE) case $nonopt in NONE) target_alias=$host_alias ;; *) target_alias=$nonopt ;; esac ;; esac target=`${CONFIG_SHELL-/bin/sh} $ac_config_sub $target_alias` target_cpu=`echo $target | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\1/'` target_vendor=`echo $target | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\2/'` target_os=`echo $target | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\3/'` echo "$ac_t""$target" 1>&6 echo $ac_n "checking build system type""... $ac_c" 1>&6 echo "configure:678: checking build system type" >&5 build_alias=$build case "$build_alias" in NONE) case $nonopt in NONE) build_alias=$host_alias ;; *) build_alias=$nonopt ;; esac ;; esac build=`${CONFIG_SHELL-/bin/sh} $ac_config_sub $build_alias` build_cpu=`echo $build | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\1/'` build_vendor=`echo $build | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\2/'` build_os=`echo $build | sed 's/^\([^-]*\)-\([^-]*\)-\(.*\)$/\3/'` echo "$ac_t""$build" 1>&6 test "$host_alias" != "$target_alias" && test "$program_prefix$program_suffix$program_transform_name" = \ NONENONEs,x,x, && program_prefix=${target_alias}- target_alias=${target_alias-$target} if test $host != $build; then ac_tool_prefix=${host_alias}- else ac_tool_prefix= fi echo $ac_n "checking for Cygwin environment""... $ac_c" 1>&6 echo "configure:710: checking for Cygwin environment" >&5 if eval "test \"`echo '$''{'ac_cv_cygwin'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* ac_cv_cygwin=yes else echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 rm -rf conftest* ac_cv_cygwin=no fi rm -f conftest* rm -f conftest* fi echo "$ac_t""$ac_cv_cygwin" 1>&6 CYGWIN= test "$ac_cv_cygwin" = yes && CYGWIN=yes echo $ac_n "checking for mingw32 environment""... $ac_c" 1>&6 echo "configure:743: checking for mingw32 environment" >&5 if eval "test \"`echo '$''{'ac_cv_mingw32'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* ac_cv_mingw32=yes else echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 rm -rf conftest* ac_cv_mingw32=no fi rm -f conftest* rm -f conftest* fi echo "$ac_t""$ac_cv_mingw32" 1>&6 MINGW32= test "$ac_cv_mingw32" = yes && MINGW32=yes # Export build and source directories. # These need to be absolute paths, yet at the same time need to # canonicalize only relative paths, because then amd will not unmount # drives. Thus the use of PWDCMD: set it to 'pawd' or 'amq -w' if using amd. glibcpp_builddir=`${PWDCMD-pwd}` case $srcdir in \\/$* | ?:\\/*) glibcpp_srcdir=${srcdir} ;; *) glibcpp_srcdir=`cd "$srcdir" && ${PWDCMD-pwd} || echo "$srcdir"` ;; esac # Will set LN_S to either 'ln -s' or 'ln'. With autoconf 2.50+, can also # be 'cp -p' if linking isn't available. #ac_cv_prog_LN_S='cp -p' echo $ac_n "checking whether ln -s works""... $ac_c" 1>&6 echo "configure:790: checking whether ln -s works" >&5 if eval "test \"`echo '$''{'ac_cv_prog_LN_S'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else rm -f conftestdata if ln -s X conftestdata 2>/dev/null then rm -f conftestdata ac_cv_prog_LN_S="ln -s" else ac_cv_prog_LN_S=ln fi fi LN_S="$ac_cv_prog_LN_S" if test "$ac_cv_prog_LN_S" = "ln -s"; then echo "$ac_t""yes" 1>&6 else echo "$ac_t""no" 1>&6 fi # We use these options to decide which functions to include. # Check whether --with-target-subdir or --without-target-subdir was given. if test "${with_target_subdir+set}" = set; then withval="$with_target_subdir" : fi # Check whether --with-cross-host or --without-cross-host was given. if test "${with_cross_host+set}" = set; then withval="$with_cross_host" : fi # Never versions of autoconf add an underscore to these functions. # Prevent future problems ... # AC_PROG_CC # FIXME: We temporarily define our own version of AC_PROG_CC. This is # copied from autoconf 2.12, but does not call AC_PROG_CC_WORKS. We # are probably using a cross compiler, which will not be able to fully # link an executable. This should really be fixed in autoconf # itself. # Extract the first word of "gcc", so it can be a program name with args. set dummy gcc; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 echo "configure:846: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" ac_dummy="$PATH" for ac_dir in $ac_dummy; do test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/$ac_word; then ac_cv_prog_CC="gcc" break fi done IFS="$ac_save_ifs" fi fi CC="$ac_cv_prog_CC" if test -n "$CC"; then echo "$ac_t""$CC" 1>&6 else echo "$ac_t""no" 1>&6 fi if test -z "$CC"; then # Extract the first word of "cc", so it can be a program name with args. set dummy cc; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 echo "configure:876: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" ac_prog_rejected=no ac_dummy="$PATH" for ac_dir in $ac_dummy; do test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/$ac_word; then if test "$ac_dir/$ac_word" = "/usr/ucb/cc"; then ac_prog_rejected=yes continue fi ac_cv_prog_CC="cc" break fi done IFS="$ac_save_ifs" if test $ac_prog_rejected = yes; then # We found a bogon in the path, so make sure we never use it. set dummy $ac_cv_prog_CC shift if test $# -gt 0; then # We chose a different compiler from the bogus one. # However, it has the same basename, so the bogon will be chosen # first if we set CC to just the basename; use the full file name. shift set dummy "$ac_dir/$ac_word" "$@" shift ac_cv_prog_CC="$@" fi fi fi fi CC="$ac_cv_prog_CC" if test -n "$CC"; then echo "$ac_t""$CC" 1>&6 else echo "$ac_t""no" 1>&6 fi test -z "$CC" && { echo "configure: error: no acceptable cc found in \$PATH" 1>&2; exit 1; } fi echo $ac_n "checking whether we are using GNU C""... $ac_c" 1>&6 echo "configure:925: checking whether we are using GNU C" >&5 if eval "test \"`echo '$''{'ac_cv_prog_gcc'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.c <&5; (eval $ac_try) 2>&5; }; } | egrep yes >/dev/null 2>&1; then ac_cv_prog_gcc=yes else ac_cv_prog_gcc=no fi fi echo "$ac_t""$ac_cv_prog_gcc" 1>&6 if test $ac_cv_prog_gcc = yes; then GCC=yes ac_test_CFLAGS="${CFLAGS+set}" ac_save_CFLAGS="$CFLAGS" CFLAGS= echo $ac_n "checking whether ${CC-cc} accepts -g""... $ac_c" 1>&6 echo "configure:949: checking whether ${CC-cc} accepts -g" >&5 if eval "test \"`echo '$''{'ac_cv_prog_cc_g'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else echo 'void f(){}' > conftest.c if test -z "`${CC-cc} -g -c conftest.c 2>&1`"; then ac_cv_prog_cc_g=yes else ac_cv_prog_cc_g=no fi rm -f conftest* fi echo "$ac_t""$ac_cv_prog_cc_g" 1>&6 if test "$ac_test_CFLAGS" = set; then CFLAGS="$ac_save_CFLAGS" elif test $ac_cv_prog_cc_g = yes; then CFLAGS="-g -O2" else CFLAGS="-O2" fi else GCC= test "${CFLAGS+set}" = set || CFLAGS="-g" fi # Extract the first word of "${ac_tool_prefix}as", so it can be a program name with args. set dummy ${ac_tool_prefix}as; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 echo "configure:980: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_AS'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else if test -n "$AS"; then ac_cv_prog_AS="$AS" # Let the user override the test. else IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" ac_dummy="$PATH" for ac_dir in $ac_dummy; do test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/$ac_word; then ac_cv_prog_AS="${ac_tool_prefix}as" break fi done IFS="$ac_save_ifs" test -z "$ac_cv_prog_AS" && ac_cv_prog_AS="as" fi fi AS="$ac_cv_prog_AS" if test -n "$AS"; then echo "$ac_t""$AS" 1>&6 else echo "$ac_t""no" 1>&6 fi # Extract the first word of "${ac_tool_prefix}ar", so it can be a program name with args. set dummy ${ac_tool_prefix}ar; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 echo "configure:1012: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_AR'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else if test -n "$AR"; then ac_cv_prog_AR="$AR" # Let the user override the test. else IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" ac_dummy="$PATH" for ac_dir in $ac_dummy; do test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/$ac_word; then ac_cv_prog_AR="${ac_tool_prefix}ar" break fi done IFS="$ac_save_ifs" test -z "$ac_cv_prog_AR" && ac_cv_prog_AR="ar" fi fi AR="$ac_cv_prog_AR" if test -n "$AR"; then echo "$ac_t""$AR" 1>&6 else echo "$ac_t""no" 1>&6 fi # Extract the first word of "${ac_tool_prefix}ranlib", so it can be a program name with args. set dummy ${ac_tool_prefix}ranlib; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 echo "configure:1044: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_RANLIB'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else if test -n "$RANLIB"; then ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test. else IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" ac_dummy="$PATH" for ac_dir in $ac_dummy; do test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/$ac_word; then ac_cv_prog_RANLIB="${ac_tool_prefix}ranlib" break fi done IFS="$ac_save_ifs" fi fi RANLIB="$ac_cv_prog_RANLIB" if test -n "$RANLIB"; then echo "$ac_t""$RANLIB" 1>&6 else echo "$ac_t""no" 1>&6 fi if test -z "$ac_cv_prog_RANLIB"; then if test -n "$ac_tool_prefix"; then # Extract the first word of "ranlib", so it can be a program name with args. set dummy ranlib; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 echo "configure:1076: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_RANLIB'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else if test -n "$RANLIB"; then ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test. else IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" ac_dummy="$PATH" for ac_dir in $ac_dummy; do test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/$ac_word; then ac_cv_prog_RANLIB="ranlib" break fi done IFS="$ac_save_ifs" test -z "$ac_cv_prog_RANLIB" && ac_cv_prog_RANLIB="ranlib-not-found-in-path-error" fi fi RANLIB="$ac_cv_prog_RANLIB" if test -n "$RANLIB"; then echo "$ac_t""$RANLIB" 1>&6 else echo "$ac_t""no" 1>&6 fi else RANLIB="ranlib-not-found-in-path-error" fi fi # Find a good install program. We prefer a C program (faster), # so one script is as good as another. But avoid the broken or # incompatible versions: # SysV /etc/install, /usr/sbin/install # SunOS /usr/etc/install # IRIX /sbin/install # AIX /bin/install # AIX 4 /usr/bin/installbsd, which doesn't work without a -g flag # AFS /usr/afsws/bin/install, which mishandles nonexistent args # SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff" # ./install, which can be erroneously created by make from ./install.sh. echo $ac_n "checking for a BSD compatible install""... $ac_c" 1>&6 echo "configure:1120: checking for a BSD compatible install" >&5 if test -z "$INSTALL"; then if eval "test \"`echo '$''{'ac_cv_path_install'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else IFS="${IFS= }"; ac_save_IFS="$IFS"; IFS=":" for ac_dir in $PATH; do # Account for people who put trailing slashes in PATH elements. case "$ac_dir/" in /|./|.//|/etc/*|/usr/sbin/*|/usr/etc/*|/sbin/*|/usr/afsws/bin/*|/usr/ucb/*) ;; *) # OSF1 and SCO ODT 3.0 have their own names for install. # Don't use installbsd from OSF since it installs stuff as root # by default. for ac_prog in ginstall scoinst install; do if test -f $ac_dir/$ac_prog; then if test $ac_prog = install && grep dspmsg $ac_dir/$ac_prog >/dev/null 2>&1; then # AIX install. It has an incompatible calling convention. : else ac_cv_path_install="$ac_dir/$ac_prog -c" break 2 fi fi done ;; esac done IFS="$ac_save_IFS" fi if test "${ac_cv_path_install+set}" = set; then INSTALL="$ac_cv_path_install" else # As a last resort, use the slow shell script. We don't cache a # path for INSTALL within a source directory, because that will # break other packages using the cache if that directory is # removed, or if the path is relative. INSTALL="$ac_install_sh" fi fi echo "$ac_t""$INSTALL" 1>&6 # Use test -z because SunOS4 sh mishandles braces in ${var-val}. # It thinks the first close brace ends the variable substitution. test -z "$INSTALL_PROGRAM" && INSTALL_PROGRAM='${INSTALL}' test -z "$INSTALL_SCRIPT" && INSTALL_SCRIPT='${INSTALL_PROGRAM}' test -z "$INSTALL_DATA" && INSTALL_DATA='${INSTALL} -m 644' # We need AC_EXEEXT to keep automake happy in cygnus mode. However, # at least currently, we never actually build a program, so we never # need to use $(EXEEXT). Moreover, the test for EXEEXT normally # fails, because we are probably configuring with a cross compiler # which can't create executables. So we include AC_EXEEXT to keep # automake happy, but we don't execute it, since we don't care about # the result. if false; then # autoconf 2.50 runs AC_EXEEXT by default, and the macro expands # to nothing, so nothing would remain between `then' and `fi' if it # were not for the `:' below. : echo $ac_n "checking for executable suffix""... $ac_c" 1>&6 echo "configure:1188: checking for executable suffix" >&5 if eval "test \"`echo '$''{'ac_cv_exeext'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else if test "$CYGWIN" = yes || test "$MINGW32" = yes; then ac_cv_exeext=.exe else rm -f conftest* echo 'int main () { return 0; }' > conftest.$ac_ext ac_cv_exeext= if { (eval echo configure:1198: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; }; then for file in conftest.*; do case $file in *.c | *.o | *.obj) ;; *) ac_cv_exeext=`echo $file | sed -e s/conftest//` ;; esac done else { echo "configure: error: installation or configuration problem: compiler cannot create executables." 1>&2; exit 1; } fi rm -f conftest* test x"${ac_cv_exeext}" = x && ac_cv_exeext=no fi fi EXEEXT="" test x"${ac_cv_exeext}" != xno && EXEEXT=${ac_cv_exeext} echo "$ac_t""${ac_cv_exeext}" 1>&6 ac_exeext=$EXEEXT fi # Assumes glibcpp_builddir, glibcpp_srcdir are alreay set up and # exported correctly in GLIBCPP_CONFIGURE. glibcpp_toolexecdir=no glibcpp_toolexeclibdir=no glibcpp_prefixdir=${prefix} echo $ac_n "checking for interface version number""... $ac_c" 1>&6 echo "configure:1228: checking for interface version number" >&5 libstdcxx_interface=$INTERFACE echo "$ac_t""$libstdcxx_interface" 1>&6 # Process the option "--enable-version-specific-runtime-libs" echo $ac_n "checking for --enable-version-specific-runtime-libs""... $ac_c" 1>&6 echo "configure:1234: checking for --enable-version-specific-runtime-libs" >&5 # Check whether --enable-version-specific-runtime-libs or --disable-version-specific-runtime-libs was given. if test "${enable_version_specific_runtime_libs+set}" = set; then enableval="$enable_version_specific_runtime_libs" case "$enableval" in yes) version_specific_libs=yes ;; no) version_specific_libs=no ;; *) { echo "configure: error: Unknown argument to enable/disable version-specific libs" 1>&2; exit 1; };; esac else version_specific_libs=no fi # Option set, now we can test it. echo "$ac_t""$version_specific_libs" 1>&6 gcc_version_trigger=${srcdir}/../gcc/version.c gcc_version_full=`grep version_string ${gcc_version_trigger} | sed -e 's/.*\"\([^ \"]*\)[ \"].*/\1/'` gcc_version=`echo ${gcc_version_full} | sed -e 's/\(^ *\) .*/\1/'` if test $version_specific_libs = yes; then # Need the gcc compiler version to know where to install libraries # and header files if --enable-version-specific-runtime-libs option # is selected. - glibcpp_toolexecdir='$(libdir)/gcc-lib/$(target_alias)' + glibcpp_toolexecdir='$(libdir)/gcc/$(target_alias)' glibcpp_toolexeclibdir='$(toolexecdir)/'${gcc_version}'$(MULTISUBDIR)' fi # Calculate glibcpp_toolexecdir, glibcpp_toolexeclibdir # Install a library built with a cross compiler in tooldir, not libdir. if test x"$glibcpp_toolexecdir" = x"no"; then if test -n "$with_cross_host" && test x"$with_cross_host" != x"no"; then glibcpp_toolexecdir='$(exec_prefix)/$(target_alias)' glibcpp_toolexeclibdir='$(toolexecdir)/lib' else glibcpp_toolexecdir='$(libdir)/gcc-lib/$(target_alias)' glibcpp_toolexeclibdir='$(libdir)' fi - glibcpp_toolexeclibdir=$glibcpp_toolexeclibdir/`$CC -print-multi-os-directory` + multi_os_directory=`$CC -print-multi-os-directory` + case $multi_os_directory in + .) ;; # Avoid trailing /. + *) glibcpp_toolexeclibdir=$glibcpp_toolexeclibdir/$multi_os_directory ;; + esac fi -# If the language specific compiler does not exist, but the "gcc" directory -# does, we do not build anything. Note, $r is set by the top-level Makefile. -# Note that when we look for the compiler, we search both with and without -# extension to handle cross and canadian cross builds. -compiler_name=cc1obj -rm -f skip-this-dir -echo $ac_n "checking if compiler $compiler_name has been built""... $ac_c" 1>&6 -echo "configure:1289: checking if compiler $compiler_name has been built" >&5 -if eval "test \"`echo '$''{'objc_cv_compiler_exists'+set}'`\" = set"; then - echo $ac_n "(cached) $ac_c" 1>&6 -else - objc_cv_compiler_exists=yes -if test -n "$r"; then - if test -d "$r"/gcc; then - if test -f "$r"/gcc/$compiler_name \ - || test -f "$r"/gcc/$compiler_name.exe; then - true - else - objc_cv_compiler_exists=no - echo "rm -f config.cache config.log multilib.out" > skip-this-dir - fi - fi -fi -fi - -echo "$ac_t""$objc_cv_compiler_exists" 1>&6 -if test x$objc_cv_compiler_exists = xno -then - rm -f Makefile conftest* confdefs* core - exit 0 -fi - - # Disable shared libs by default # Check whether --enable-shared or --disable-shared was given. if test "${enable_shared+set}" = set; then enableval="$enable_shared" p=${PACKAGE-default} case $enableval in yes) enable_shared=yes ;; no) enable_shared=no ;; *) enable_shared=no # Look at the argument we got. We use all the common list separators. IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS="${IFS}:," for pkg in $enableval; do if test "X$pkg" = "X$p"; then enable_shared=yes fi done IFS="$ac_save_ifs" ;; esac else enable_shared=no fi # Enable Win32 DLL on MS Windows - FIXME # Check whether --enable-static or --disable-static was given. if test "${enable_static+set}" = set; then enableval="$enable_static" p=${PACKAGE-default} case $enableval in yes) enable_static=yes ;; no) enable_static=no ;; *) enable_static=no # Look at the argument we got. We use all the common list separators. IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS="${IFS}:," for pkg in $enableval; do if test "X$pkg" = "X$p"; then enable_static=yes fi done IFS="$ac_save_ifs" ;; esac else enable_static=yes fi # Check whether --enable-fast-install or --disable-fast-install was given. if test "${enable_fast_install+set}" = set; then enableval="$enable_fast_install" p=${PACKAGE-default} case $enableval in yes) enable_fast_install=yes ;; no) enable_fast_install=no ;; *) enable_fast_install=no # Look at the argument we got. We use all the common list separators. IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS="${IFS}:," for pkg in $enableval; do if test "X$pkg" = "X$p"; then enable_fast_install=yes fi done IFS="$ac_save_ifs" ;; esac else enable_fast_install=yes fi # Check whether --with-gnu-ld or --without-gnu-ld was given. if test "${with_gnu_ld+set}" = set; then withval="$with_gnu_ld" test "$withval" = no || with_gnu_ld=yes else with_gnu_ld=no fi ac_prog=ld if test "$GCC" = yes; then # Check if gcc -print-prog-name=ld gives a path. echo $ac_n "checking for ld used by GCC""... $ac_c" 1>&6 -echo "configure:1401: checking for ld used by GCC" >&5 +echo "configure:1372: checking for ld used by GCC" >&5 case $host in *-*-mingw*) # gcc leaves a trailing carriage return which upsets mingw ac_prog=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;; *) ac_prog=`($CC -print-prog-name=ld) 2>&5` ;; esac case $ac_prog in # Accept absolute paths. [\\/]* | [A-Za-z]:[\\/]*) re_direlt='/[^/][^/]*/\.\./' # Canonicalize the path of ld ac_prog=`echo $ac_prog| sed 's%\\\\%/%g'` while echo $ac_prog | grep "$re_direlt" > /dev/null 2>&1; do ac_prog=`echo $ac_prog| sed "s%$re_direlt%/%"` done test -z "$LD" && LD="$ac_prog" ;; "") # If it fails, then pretend we aren't using GCC. ac_prog=ld ;; *) # If it is relative, then search for the first ld in PATH. with_gnu_ld=unknown ;; esac elif test "$with_gnu_ld" = yes; then echo $ac_n "checking for GNU ld""... $ac_c" 1>&6 -echo "configure:1431: checking for GNU ld" >&5 +echo "configure:1402: checking for GNU ld" >&5 else echo $ac_n "checking for non-GNU ld""... $ac_c" 1>&6 -echo "configure:1434: checking for non-GNU ld" >&5 +echo "configure:1405: checking for non-GNU ld" >&5 fi if eval "test \"`echo '$''{'lt_cv_path_LD'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else if test -z "$LD"; then IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS="${IFS}${PATH_SEPARATOR-:}" for ac_dir in $PATH; do test -z "$ac_dir" && ac_dir=. if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then lt_cv_path_LD="$ac_dir/$ac_prog" # Check to see if the program is GNU ld. I'd rather use --version, # but apparently some GNU ld's only accept -v. # Break only if it was the GNU/non-GNU ld that we prefer. if "$lt_cv_path_LD" -v 2>&1 < /dev/null | egrep '(GNU|with BFD)' > /dev/null; then test "$with_gnu_ld" != no && break else test "$with_gnu_ld" != yes && break fi fi done IFS="$ac_save_ifs" else lt_cv_path_LD="$LD" # Let the user override the test with a path. fi fi LD="$lt_cv_path_LD" if test -n "$LD"; then echo "$ac_t""$LD" 1>&6 else echo "$ac_t""no" 1>&6 fi test -z "$LD" && { echo "configure: error: no acceptable ld found in \$PATH" 1>&2; exit 1; } echo $ac_n "checking if the linker ($LD) is GNU ld""... $ac_c" 1>&6 -echo "configure:1469: checking if the linker ($LD) is GNU ld" >&5 +echo "configure:1440: checking if the linker ($LD) is GNU ld" >&5 if eval "test \"`echo '$''{'lt_cv_prog_gnu_ld'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else # I'd rather use --version here, but apparently some GNU ld's only accept -v. if $LD -v 2>&1 &5; then lt_cv_prog_gnu_ld=yes else lt_cv_prog_gnu_ld=no fi fi echo "$ac_t""$lt_cv_prog_gnu_ld" 1>&6 with_gnu_ld=$lt_cv_prog_gnu_ld echo $ac_n "checking for $LD option to reload object files""... $ac_c" 1>&6 -echo "configure:1486: checking for $LD option to reload object files" >&5 +echo "configure:1457: checking for $LD option to reload object files" >&5 if eval "test \"`echo '$''{'lt_cv_ld_reload_flag'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else lt_cv_ld_reload_flag='-r' fi echo "$ac_t""$lt_cv_ld_reload_flag" 1>&6 reload_flag=$lt_cv_ld_reload_flag test -n "$reload_flag" && reload_flag=" $reload_flag" echo $ac_n "checking for BSD-compatible nm""... $ac_c" 1>&6 -echo "configure:1498: checking for BSD-compatible nm" >&5 +echo "configure:1469: checking for BSD-compatible nm" >&5 if eval "test \"`echo '$''{'lt_cv_path_NM'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else if test -n "$NM"; then # Let the user override the test. lt_cv_path_NM="$NM" else IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS="${IFS}${PATH_SEPARATOR-:}" for ac_dir in $PATH /usr/ccs/bin /usr/ucb /bin; do test -z "$ac_dir" && ac_dir=. tmp_nm=$ac_dir/${ac_tool_prefix}nm if test -f $tmp_nm || test -f $tmp_nm$ac_exeext ; then # Check to see if the nm accepts a BSD-compat flag. # Adding the `sed 1q' prevents false positives on HP-UX, which says: # nm: unknown option "B" ignored # Tru64's nm complains that /dev/null is an invalid object file if ($tmp_nm -B /dev/null 2>&1 | sed '1q'; exit 0) | egrep '(/dev/null|Invalid file or object type)' >/dev/null; then lt_cv_path_NM="$tmp_nm -B" break elif ($tmp_nm -p /dev/null 2>&1 | sed '1q'; exit 0) | egrep /dev/null >/dev/null; then lt_cv_path_NM="$tmp_nm -p" break else lt_cv_path_NM=${lt_cv_path_NM="$tmp_nm"} # keep the first match, but continue # so that we can try to find one that supports BSD flags fi fi done IFS="$ac_save_ifs" test -z "$lt_cv_path_NM" && lt_cv_path_NM=nm fi fi NM="$lt_cv_path_NM" echo "$ac_t""$NM" 1>&6 echo $ac_n "checking how to recognise dependant libraries""... $ac_c" 1>&6 -echo "configure:1536: checking how to recognise dependant libraries" >&5 +echo "configure:1507: checking how to recognise dependant libraries" >&5 if eval "test \"`echo '$''{'lt_cv_deplibs_check_method'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else lt_cv_file_magic_cmd='$MAGIC_CMD' lt_cv_file_magic_test_file= lt_cv_deplibs_check_method='unknown' # Need to set the preceding variable on all platforms that support # interlibrary dependencies. # 'none' -- dependencies not supported. # `unknown' -- same as none, but documents that we really don't know. # 'pass_all' -- all dependencies passed with no checks. # 'test_compile' -- check by making test program. # 'file_magic [regex]' -- check by looking for files in library path # which responds to the $file_magic_cmd with a given egrep regex. # If you have `file' or equivalent on your system and you're not sure # whether `pass_all' will *always* work, you probably want this one. case $host_os in aix*) lt_cv_deplibs_check_method=pass_all ;; beos*) lt_cv_deplibs_check_method=pass_all ;; bsdi4*) lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (shared object|dynamic lib)' lt_cv_file_magic_cmd='/usr/bin/file -L' lt_cv_file_magic_test_file=/shlib/libc.so ;; cygwin* | mingw* |pw32*) lt_cv_deplibs_check_method='file_magic file format pei*-i386(.*architecture: i386)?' lt_cv_file_magic_cmd='$OBJDUMP -f' ;; darwin* | rhapsody*) lt_cv_deplibs_check_method='file_magic Mach-O dynamically linked shared library' lt_cv_file_magic_cmd='/usr/bin/file -L' case "$host_os" in rhapsody* | darwin1.012) lt_cv_file_magic_test_file='/System/Library/Frameworks/System.framework/System' ;; *) # Darwin 1.3 on lt_cv_file_magic_test_file='/usr/lib/libSystem.dylib' ;; esac ;; freebsd* ) if echo __ELF__ | $CC -E - | grep __ELF__ > /dev/null; then case $host_cpu in i*86 ) # Not sure whether the presence of OpenBSD here was a mistake. # Let's accept both of them until this is cleared up. lt_cv_deplibs_check_method='file_magic (FreeBSD|OpenBSD)/i[3-9]86 (compact )?demand paged shared library' lt_cv_file_magic_cmd=/usr/bin/file lt_cv_file_magic_test_file=`echo /usr/lib/libc.so.*` ;; esac else lt_cv_deplibs_check_method=pass_all fi ;; gnu*) lt_cv_deplibs_check_method=pass_all ;; hpux10.20*|hpux11*) case $host_cpu in hppa*) lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|PA-RISC[0-9].[0-9]) shared library' lt_cv_file_magic_cmd=/usr/bin/file lt_cv_file_magic_test_file=/usr/lib/libc.sl ;; ia64*) lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF-[0-9][0-9]) shared object file - IA64' lt_cv_file_magic_cmd=/usr/bin/file lt_cv_file_magic_test_file=/usr/lib/hpux32/libc.so ;; esac ;; irix5* | irix6*) case $host_os in irix5*) # this will be overridden with pass_all, but let us keep it just in case lt_cv_deplibs_check_method="file_magic ELF 32-bit MSB dynamic lib MIPS - version 1" ;; *) case $LD in *-32|*"-32 ") libmagic=32-bit;; *-n32|*"-n32 ") libmagic=N32;; *-64|*"-64 ") libmagic=64-bit;; *) libmagic=never-match;; esac # this will be overridden with pass_all, but let us keep it just in case lt_cv_deplibs_check_method="file_magic ELF ${libmagic} MSB mips-[1234] dynamic lib MIPS - version 1" ;; esac lt_cv_file_magic_test_file=`echo /lib${libsuff}/libc.so*` lt_cv_deplibs_check_method=pass_all ;; # This must be Linux ELF. linux-gnu*) case $host_cpu in - alpha* | hppa* | i*86 | powerpc* | sparc* | ia64* ) + alpha* | mips* | hppa* | i*86 | powerpc* | sparc* | ia64* | sh* ) lt_cv_deplibs_check_method=pass_all ;; *) # glibc up to 2.1.1 does not perform some relocations on ARM lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [LM]SB (shared object|dynamic lib )' ;; esac lt_cv_file_magic_test_file=`echo /lib/libc.so* /lib/libc-*.so` ;; netbsd*) if echo __ELF__ | $CC -E - | grep __ELF__ > /dev/null; then lt_cv_deplibs_check_method='match_pattern /lib[^/\.]+\.so\.[0-9]+\.[0-9]+$' else lt_cv_deplibs_check_method='match_pattern /lib[^/\.]+\.so$' fi ;; newsos6) lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (executable|dynamic lib)' lt_cv_file_magic_cmd=/usr/bin/file lt_cv_file_magic_test_file=/usr/lib/libnls.so ;; osf3* | osf4* | osf5*) # this will be overridden with pass_all, but let us keep it just in case lt_cv_deplibs_check_method='file_magic COFF format alpha shared library' lt_cv_file_magic_test_file=/shlib/libc.so lt_cv_deplibs_check_method=pass_all ;; sco3.2v5*) lt_cv_deplibs_check_method=pass_all ;; solaris*) lt_cv_deplibs_check_method=pass_all lt_cv_file_magic_test_file=/lib/libc.so ;; sysv5uw[78]* | sysv4*uw2*) lt_cv_deplibs_check_method=pass_all ;; sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*) case $host_vendor in ncr) lt_cv_deplibs_check_method=pass_all ;; motorola) lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (shared object|dynamic lib) M[0-9][0-9]* Version [0-9]' lt_cv_file_magic_test_file=`echo /usr/lib/libc.so*` ;; esac ;; esac fi echo "$ac_t""$lt_cv_deplibs_check_method" 1>&6 file_magic_cmd=$lt_cv_file_magic_cmd deplibs_check_method=$lt_cv_deplibs_check_method echo $ac_n "checking for object suffix""... $ac_c" 1>&6 -echo "configure:1709: checking for object suffix" >&5 +echo "configure:1680: checking for object suffix" >&5 if eval "test \"`echo '$''{'ac_cv_objext'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else rm -f conftest* echo 'int i = 1;' > conftest.$ac_ext -if { (eval echo configure:1715: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then +if { (eval echo configure:1686: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then for ac_file in conftest.*; do case $ac_file in *.c) ;; *) ac_cv_objext=`echo $ac_file | sed -e s/conftest.//` ;; esac done else { echo "configure: error: installation or configuration problem; compiler does not work" 1>&2; exit 1; } fi rm -f conftest* fi echo "$ac_t""$ac_cv_objext" 1>&6 OBJEXT=$ac_cv_objext ac_objext=$ac_cv_objext # Autoconf 2.13's AC_OBJEXT and AC_EXEEXT macros only works for C compilers! # Only perform the check for file, if the check method requires it case $deplibs_check_method in file_magic*) if test "$file_magic_cmd" = '$MAGIC_CMD'; then echo $ac_n "checking for ${ac_tool_prefix}file""... $ac_c" 1>&6 -echo "configure:1739: checking for ${ac_tool_prefix}file" >&5 +echo "configure:1710: checking for ${ac_tool_prefix}file" >&5 if eval "test \"`echo '$''{'lt_cv_path_MAGIC_CMD'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else case $MAGIC_CMD in /*) lt_cv_path_MAGIC_CMD="$MAGIC_CMD" # Let the user override the test with a path. ;; ?:/*) lt_cv_path_MAGIC_CMD="$MAGIC_CMD" # Let the user override the test with a dos path. ;; *) ac_save_MAGIC_CMD="$MAGIC_CMD" IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" ac_dummy="/usr/bin:$PATH" for ac_dir in $ac_dummy; do test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/${ac_tool_prefix}file; then lt_cv_path_MAGIC_CMD="$ac_dir/${ac_tool_prefix}file" if test -n "$file_magic_test_file"; then case $deplibs_check_method in "file_magic "*) file_magic_regex="`expr \"$deplibs_check_method\" : \"file_magic \(.*\)\"`" MAGIC_CMD="$lt_cv_path_MAGIC_CMD" if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null | egrep "$file_magic_regex" > /dev/null; then : else cat <&2 *** Warning: the command libtool uses to detect shared libraries, *** $file_magic_cmd, produces output that libtool cannot recognize. *** The result is that libtool may fail to recognize shared libraries *** as such. This will affect the creation of libtool libraries that *** depend on shared libraries, but programs linked with such libtool *** libraries will work regardless of this problem. Nevertheless, you *** may want to report the problem to your system manager and/or to *** bug-libtool@gnu.org EOF fi ;; esac fi break fi done IFS="$ac_save_ifs" MAGIC_CMD="$ac_save_MAGIC_CMD" ;; esac fi MAGIC_CMD="$lt_cv_path_MAGIC_CMD" if test -n "$MAGIC_CMD"; then echo "$ac_t""$MAGIC_CMD" 1>&6 else echo "$ac_t""no" 1>&6 fi if test -z "$lt_cv_path_MAGIC_CMD"; then if test -n "$ac_tool_prefix"; then echo $ac_n "checking for file""... $ac_c" 1>&6 -echo "configure:1801: checking for file" >&5 +echo "configure:1772: checking for file" >&5 if eval "test \"`echo '$''{'lt_cv_path_MAGIC_CMD'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else case $MAGIC_CMD in /*) lt_cv_path_MAGIC_CMD="$MAGIC_CMD" # Let the user override the test with a path. ;; ?:/*) lt_cv_path_MAGIC_CMD="$MAGIC_CMD" # Let the user override the test with a dos path. ;; *) ac_save_MAGIC_CMD="$MAGIC_CMD" IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" ac_dummy="/usr/bin:$PATH" for ac_dir in $ac_dummy; do test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/file; then lt_cv_path_MAGIC_CMD="$ac_dir/file" if test -n "$file_magic_test_file"; then case $deplibs_check_method in "file_magic "*) file_magic_regex="`expr \"$deplibs_check_method\" : \"file_magic \(.*\)\"`" MAGIC_CMD="$lt_cv_path_MAGIC_CMD" if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null | egrep "$file_magic_regex" > /dev/null; then : else cat <&2 *** Warning: the command libtool uses to detect shared libraries, *** $file_magic_cmd, produces output that libtool cannot recognize. *** The result is that libtool may fail to recognize shared libraries *** as such. This will affect the creation of libtool libraries that *** depend on shared libraries, but programs linked with such libtool *** libraries will work regardless of this problem. Nevertheless, you *** may want to report the problem to your system manager and/or to *** bug-libtool@gnu.org EOF fi ;; esac fi break fi done IFS="$ac_save_ifs" MAGIC_CMD="$ac_save_MAGIC_CMD" ;; esac fi MAGIC_CMD="$lt_cv_path_MAGIC_CMD" if test -n "$MAGIC_CMD"; then echo "$ac_t""$MAGIC_CMD" 1>&6 else echo "$ac_t""no" 1>&6 fi else MAGIC_CMD=: fi fi fi ;; esac # Extract the first word of "${ac_tool_prefix}ranlib", so it can be a program name with args. set dummy ${ac_tool_prefix}ranlib; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:1872: checking for $ac_word" >&5 +echo "configure:1843: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_RANLIB'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else if test -n "$RANLIB"; then ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test. else IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" ac_dummy="$PATH" for ac_dir in $ac_dummy; do test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/$ac_word; then ac_cv_prog_RANLIB="${ac_tool_prefix}ranlib" break fi done IFS="$ac_save_ifs" fi fi RANLIB="$ac_cv_prog_RANLIB" if test -n "$RANLIB"; then echo "$ac_t""$RANLIB" 1>&6 else echo "$ac_t""no" 1>&6 fi if test -z "$ac_cv_prog_RANLIB"; then if test -n "$ac_tool_prefix"; then # Extract the first word of "ranlib", so it can be a program name with args. set dummy ranlib; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:1904: checking for $ac_word" >&5 +echo "configure:1875: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_RANLIB'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else if test -n "$RANLIB"; then ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test. else IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" ac_dummy="$PATH" for ac_dir in $ac_dummy; do test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/$ac_word; then ac_cv_prog_RANLIB="ranlib" break fi done IFS="$ac_save_ifs" test -z "$ac_cv_prog_RANLIB" && ac_cv_prog_RANLIB=":" fi fi RANLIB="$ac_cv_prog_RANLIB" if test -n "$RANLIB"; then echo "$ac_t""$RANLIB" 1>&6 else echo "$ac_t""no" 1>&6 fi else RANLIB=":" fi fi # Extract the first word of "${ac_tool_prefix}strip", so it can be a program name with args. set dummy ${ac_tool_prefix}strip; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:1939: checking for $ac_word" >&5 +echo "configure:1910: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_STRIP'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else if test -n "$STRIP"; then ac_cv_prog_STRIP="$STRIP" # Let the user override the test. else IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" ac_dummy="$PATH" for ac_dir in $ac_dummy; do test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/$ac_word; then ac_cv_prog_STRIP="${ac_tool_prefix}strip" break fi done IFS="$ac_save_ifs" fi fi STRIP="$ac_cv_prog_STRIP" if test -n "$STRIP"; then echo "$ac_t""$STRIP" 1>&6 else echo "$ac_t""no" 1>&6 fi if test -z "$ac_cv_prog_STRIP"; then if test -n "$ac_tool_prefix"; then # Extract the first word of "strip", so it can be a program name with args. set dummy strip; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:1971: checking for $ac_word" >&5 +echo "configure:1942: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_STRIP'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else if test -n "$STRIP"; then ac_cv_prog_STRIP="$STRIP" # Let the user override the test. else IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" ac_dummy="$PATH" for ac_dir in $ac_dummy; do test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/$ac_word; then ac_cv_prog_STRIP="strip" break fi done IFS="$ac_save_ifs" test -z "$ac_cv_prog_STRIP" && ac_cv_prog_STRIP=":" fi fi STRIP="$ac_cv_prog_STRIP" if test -n "$STRIP"; then echo "$ac_t""$STRIP" 1>&6 else echo "$ac_t""no" 1>&6 fi else STRIP=":" fi fi # Check for any special flags to pass to ltconfig. libtool_flags="--cache-file=$cache_file" test "$enable_shared" = no && libtool_flags="$libtool_flags --disable-shared" test "$enable_static" = no && libtool_flags="$libtool_flags --disable-static" test "$enable_fast_install" = no && libtool_flags="$libtool_flags --disable-fast-install" test "$GCC" = yes && libtool_flags="$libtool_flags --with-gcc" test "$lt_cv_prog_gnu_ld" = yes && libtool_flags="$libtool_flags --with-gnu-ld" libtool_flags="$libtool_flags --enable-win32-dll" # Check whether --enable-libtool-lock or --disable-libtool-lock was given. if test "${enable_libtool_lock+set}" = set; then enableval="$enable_libtool_lock" : fi test "x$enable_libtool_lock" = xno && libtool_flags="$libtool_flags --disable-lock" test x"$silent" = xyes && libtool_flags="$libtool_flags --silent" # Check whether --with-pic or --without-pic was given. if test "${with_pic+set}" = set; then withval="$with_pic" pic_mode="$withval" else pic_mode=default fi test x"$pic_mode" = xyes && libtool_flags="$libtool_flags --prefer-pic" test x"$pic_mode" = xno && libtool_flags="$libtool_flags --prefer-non-pic" # Some flags need to be propagated to the compiler or linker for good # libtool support. case $host in *-*-irix6*) # Find out which ABI we are using. - echo '#line 2038 "configure"' > conftest.$ac_ext - if { (eval echo configure:2039: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then + echo '#line 2009 "configure"' > conftest.$ac_ext + if { (eval echo configure:2010: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then if test "$lt_cv_prog_gnu_ld" = yes; then case `/usr/bin/file conftest.$ac_objext` in *32-bit*) LD="${LD-ld} -melf32bsmip" ;; *N32*) LD="${LD-ld} -melf32bmipn32" ;; *64-bit*) LD="${LD-ld} -melf64bmip" ;; esac else case `/usr/bin/file conftest.$ac_objext` in *32-bit*) LD="${LD-ld} -32" ;; *N32*) LD="${LD-ld} -n32" ;; *64-bit*) LD="${LD-ld} -64" ;; esac fi fi rm -rf conftest* ;; ia64-*-hpux*) # Find out which ABI we are using. echo 'int i;' > conftest.$ac_ext - if { (eval echo configure:2072: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then + if { (eval echo configure:2043: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then case "`/usr/bin/file conftest.o`" in *ELF-32*) HPUX_IA64_MODE="32" ;; *ELF-64*) HPUX_IA64_MODE="64" ;; esac fi rm -rf conftest* ;; x86_64-*linux*|ppc*-*linux*|powerpc*-*linux*|s390*-*linux*|sparc*-*linux*) # Find out which ABI we are using. echo 'int i;' > conftest.$ac_ext - if { (eval echo configure:2088: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then + if { (eval echo configure:2059: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then case "`/usr/bin/file conftest.o`" in *32-bit*) case $host in x86_64-*linux*) LD="${LD-ld} -m elf_i386" ;; ppc64-*linux*|powerpc64-*linux*) LD="${LD-ld} -m elf32ppclinux" ;; s390x-*linux*) LD="${LD-ld} -m elf_s390" ;; sparc64-*linux*) LD="${LD-ld} -m elf32_sparc" ;; esac ;; *64-bit*) case $host in x86_64-*linux*) LD="${LD-ld} -m elf_x86_64" ;; ppc*-*linux*|powerpc*-*linux*) LD="${LD-ld} -m elf64ppc" ;; s390*-*linux*) LD="${LD-ld} -m elf64_s390" ;; sparc*-*linux*) LD="${LD-ld} -m elf64_sparc" ;; esac ;; esac fi rm -rf conftest* ;; *-*-sco3.2v5*) # On SCO OpenServer 5, we need -belf to get full-featured binaries. SAVE_CFLAGS="$CFLAGS" CFLAGS="$CFLAGS -belf" echo $ac_n "checking whether the C compiler needs -belf""... $ac_c" 1>&6 -echo "configure:2132: checking whether the C compiler needs -belf" >&5 +echo "configure:2103: checking whether the C compiler needs -belf" >&5 if eval "test \"`echo '$''{'lt_cv_cc_needs_belf'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else ac_ext=c # CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options. ac_cpp='$CPP $CPPFLAGS' ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5' ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5' cross_compiling=$ac_cv_prog_cc_cross cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then +if { (eval echo configure:2123: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then rm -rf conftest* lt_cv_cc_needs_belf=yes else echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 rm -rf conftest* lt_cv_cc_needs_belf=no fi rm -f conftest* ac_ext=c # CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options. ac_cpp='$CPP $CPPFLAGS' ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5' ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5' cross_compiling=$ac_cv_prog_cc_cross fi echo "$ac_t""$lt_cv_cc_needs_belf" 1>&6 if test x"$lt_cv_cc_needs_belf" != x"yes"; then # this is probably gcc 2.8.0, egcs 1.0 or newer; no need for -belf CFLAGS="$SAVE_CFLAGS" fi ;; *-*-cygwin* | *-*-mingw* | *-*-pw32*) # Extract the first word of "${ac_tool_prefix}dlltool", so it can be a program name with args. set dummy ${ac_tool_prefix}dlltool; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:2182: checking for $ac_word" >&5 +echo "configure:2153: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_DLLTOOL'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else if test -n "$DLLTOOL"; then ac_cv_prog_DLLTOOL="$DLLTOOL" # Let the user override the test. else IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" ac_dummy="$PATH" for ac_dir in $ac_dummy; do test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/$ac_word; then ac_cv_prog_DLLTOOL="${ac_tool_prefix}dlltool" break fi done IFS="$ac_save_ifs" fi fi DLLTOOL="$ac_cv_prog_DLLTOOL" if test -n "$DLLTOOL"; then echo "$ac_t""$DLLTOOL" 1>&6 else echo "$ac_t""no" 1>&6 fi if test -z "$ac_cv_prog_DLLTOOL"; then if test -n "$ac_tool_prefix"; then # Extract the first word of "dlltool", so it can be a program name with args. set dummy dlltool; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:2214: checking for $ac_word" >&5 +echo "configure:2185: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_DLLTOOL'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else if test -n "$DLLTOOL"; then ac_cv_prog_DLLTOOL="$DLLTOOL" # Let the user override the test. else IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" ac_dummy="$PATH" for ac_dir in $ac_dummy; do test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/$ac_word; then ac_cv_prog_DLLTOOL="dlltool" break fi done IFS="$ac_save_ifs" test -z "$ac_cv_prog_DLLTOOL" && ac_cv_prog_DLLTOOL="false" fi fi DLLTOOL="$ac_cv_prog_DLLTOOL" if test -n "$DLLTOOL"; then echo "$ac_t""$DLLTOOL" 1>&6 else echo "$ac_t""no" 1>&6 fi else DLLTOOL="false" fi fi # Extract the first word of "${ac_tool_prefix}as", so it can be a program name with args. set dummy ${ac_tool_prefix}as; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:2249: checking for $ac_word" >&5 +echo "configure:2220: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_AS'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else if test -n "$AS"; then ac_cv_prog_AS="$AS" # Let the user override the test. else IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" ac_dummy="$PATH" for ac_dir in $ac_dummy; do test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/$ac_word; then ac_cv_prog_AS="${ac_tool_prefix}as" break fi done IFS="$ac_save_ifs" fi fi AS="$ac_cv_prog_AS" if test -n "$AS"; then echo "$ac_t""$AS" 1>&6 else echo "$ac_t""no" 1>&6 fi if test -z "$ac_cv_prog_AS"; then if test -n "$ac_tool_prefix"; then # Extract the first word of "as", so it can be a program name with args. set dummy as; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:2281: checking for $ac_word" >&5 +echo "configure:2252: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_AS'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else if test -n "$AS"; then ac_cv_prog_AS="$AS" # Let the user override the test. else IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" ac_dummy="$PATH" for ac_dir in $ac_dummy; do test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/$ac_word; then ac_cv_prog_AS="as" break fi done IFS="$ac_save_ifs" test -z "$ac_cv_prog_AS" && ac_cv_prog_AS="false" fi fi AS="$ac_cv_prog_AS" if test -n "$AS"; then echo "$ac_t""$AS" 1>&6 else echo "$ac_t""no" 1>&6 fi else AS="false" fi fi # Extract the first word of "${ac_tool_prefix}objdump", so it can be a program name with args. set dummy ${ac_tool_prefix}objdump; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:2316: checking for $ac_word" >&5 +echo "configure:2287: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_OBJDUMP'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else if test -n "$OBJDUMP"; then ac_cv_prog_OBJDUMP="$OBJDUMP" # Let the user override the test. else IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" ac_dummy="$PATH" for ac_dir in $ac_dummy; do test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/$ac_word; then ac_cv_prog_OBJDUMP="${ac_tool_prefix}objdump" break fi done IFS="$ac_save_ifs" fi fi OBJDUMP="$ac_cv_prog_OBJDUMP" if test -n "$OBJDUMP"; then echo "$ac_t""$OBJDUMP" 1>&6 else echo "$ac_t""no" 1>&6 fi if test -z "$ac_cv_prog_OBJDUMP"; then if test -n "$ac_tool_prefix"; then # Extract the first word of "objdump", so it can be a program name with args. set dummy objdump; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:2348: checking for $ac_word" >&5 +echo "configure:2319: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_OBJDUMP'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else if test -n "$OBJDUMP"; then ac_cv_prog_OBJDUMP="$OBJDUMP" # Let the user override the test. else IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" ac_dummy="$PATH" for ac_dir in $ac_dummy; do test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/$ac_word; then ac_cv_prog_OBJDUMP="objdump" break fi done IFS="$ac_save_ifs" test -z "$ac_cv_prog_OBJDUMP" && ac_cv_prog_OBJDUMP="false" fi fi OBJDUMP="$ac_cv_prog_OBJDUMP" if test -n "$OBJDUMP"; then echo "$ac_t""$OBJDUMP" 1>&6 else echo "$ac_t""no" 1>&6 fi else OBJDUMP="false" fi fi # recent cygwin and mingw systems supply a stub DllMain which the user # can override, but on older systems we have to supply one echo $ac_n "checking if libtool should supply DllMain function""... $ac_c" 1>&6 -echo "configure:2384: checking if libtool should supply DllMain function" >&5 +echo "configure:2355: checking if libtool should supply DllMain function" >&5 if eval "test \"`echo '$''{'lt_cv_need_dllmain'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then +if { (eval echo configure:2368: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then rm -rf conftest* lt_cv_need_dllmain=no else echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 rm -rf conftest* lt_cv_need_dllmain=yes fi rm -f conftest* fi echo "$ac_t""$lt_cv_need_dllmain" 1>&6 case $host/$CC in *-*-cygwin*/gcc*-mno-cygwin*|*-*-mingw*) # old mingw systems require "-dll" to link a DLL, while more recent ones # require "-mdll" SAVE_CFLAGS="$CFLAGS" CFLAGS="$CFLAGS -mdll" echo $ac_n "checking how to link DLLs""... $ac_c" 1>&6 -echo "configure:2418: checking how to link DLLs" >&5 +echo "configure:2389: checking how to link DLLs" >&5 if eval "test \"`echo '$''{'lt_cv_cc_dll_switch'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then +if { (eval echo configure:2401: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then rm -rf conftest* lt_cv_cc_dll_switch=-mdll else echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 rm -rf conftest* lt_cv_cc_dll_switch=-dll fi rm -f conftest* fi echo "$ac_t""$lt_cv_cc_dll_switch" 1>&6 CFLAGS="$SAVE_CFLAGS" ;; *-*-cygwin* | *-*-pw32*) # cygwin systems need to pass --dll to the linker, and not link # crt.o which will require a WinMain@16 definition. lt_cv_cc_dll_switch="-Wl,--dll -nostartfiles" ;; esac ;; esac # Save cache, so that ltconfig can load it cat > confcache <<\EOF # This file is a shell script that caches the results of configure # tests run on this system so they can be shared between configure # scripts and configure runs. It is not useful on other systems. # If it contains results you don't want to keep, you may remove or edit it. # # By default, configure uses ./config.cache as the cache file, # creating it if it does not exist already. You can give configure # the --cache-file=FILE option to use a different cache file; that is # what configure does when it calls configure scripts in # subdirectories, so they share the cache. # Giving --cache-file=/dev/null disables caching, for debugging configure. # config.status only pays attention to the cache file if you give it the # --recheck option to rerun configure. # EOF # The following way of writing the cache mishandles newlines in values, # but we know of no workaround that is simple, portable, and efficient. # So, don't put newlines in cache variables' values. # Ultrix sh set writes to stderr and can't be redirected directly, # and sets the high bit in the cache file unless we assign to the vars. (set) 2>&1 | case `(ac_space=' '; set | grep ac_space) 2>&1` in *ac_space=\ *) # `set' does not quote correctly, so add quotes (double-quote substitution # turns \\\\ into \\, and sed turns \\ into \). sed -n \ -e "s/'/'\\\\''/g" \ -e "s/^\\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\\)=\\(.*\\)/\\1=\${\\1='\\2'}/p" ;; *) # `set' quotes correctly as required by POSIX, so do not add quotes. sed -n -e 's/^\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\)=\(.*\)/\1=${\1=\2}/p' ;; esac >> confcache if cmp -s $cache_file confcache; then : else if test -w $cache_file; then echo "updating cache $cache_file" cat confcache > $cache_file else echo "not updating unwritable cache $cache_file" fi fi rm -f confcache # Actually configure libtool. ac_aux_dir is where install-sh is found. AR="$AR" LTCC="$CC" CC="$CC" CFLAGS="$CFLAGS" CPPFLAGS="$CPPFLAGS" \ MAGIC_CMD="$MAGIC_CMD" LD="$LD" LDFLAGS="$LDFLAGS" LIBS="$LIBS" \ LN_S="$LN_S" NM="$NM" RANLIB="$RANLIB" STRIP="$STRIP" \ AS="$AS" DLLTOOL="$DLLTOOL" OBJDUMP="$OBJDUMP" \ objext="$OBJEXT" exeext="$EXEEXT" reload_flag="$reload_flag" \ deplibs_check_method="$deplibs_check_method" file_magic_cmd="$file_magic_cmd" \ ${CONFIG_SHELL-/bin/sh} $ac_aux_dir/ltconfig --no-reexec \ $libtool_flags --no-verify --build="$build" $ac_aux_dir/ltmain.sh $host \ || { echo "configure: error: libtool configure failed" 1>&2; exit 1; } # Reload cache, that may have been modified by ltconfig if test -r "$cache_file"; then echo "loading cache $cache_file" . $cache_file else echo "creating cache $cache_file" > $cache_file fi # This can be used to rebuild libtool when needed LIBTOOL_DEPS="$ac_aux_dir/ltconfig $ac_aux_dir/ltmain.sh $ac_aux_dir/ltcf-c.sh" # Always use our own libtool. LIBTOOL='$(SHELL) $(top_builddir)/libtool' # Redirect the config.log output again, so that the ltconfig log is not # clobbered by the next message. exec 5>>./config.log test "$AR" || AR=ar if test "$RANLIB"; then : else # Extract the first word of "ranlib", so it can be a program name with args. set dummy ranlib; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 -echo "configure:2548: checking for $ac_word" >&5 +echo "configure:2519: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_RANLIB'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else if test -n "$RANLIB"; then ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test. else IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" ac_dummy="$PATH" for ac_dir in $ac_dummy; do test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/$ac_word; then ac_cv_prog_RANLIB="ranlib" break fi done IFS="$ac_save_ifs" test -z "$ac_cv_prog_RANLIB" && ac_cv_prog_RANLIB=":" fi fi RANLIB="$ac_cv_prog_RANLIB" if test -n "$RANLIB"; then echo "$ac_t""$RANLIB" 1>&6 else echo "$ac_t""no" 1>&6 fi fi # Find a good install program. We prefer a C program (faster), # so one script is as good as another. But avoid the broken or # incompatible versions: # SysV /etc/install, /usr/sbin/install # SunOS /usr/etc/install # IRIX /sbin/install # AIX /bin/install # AIX 4 /usr/bin/installbsd, which doesn't work without a -g flag # AFS /usr/afsws/bin/install, which mishandles nonexistent args # SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff" # ./install, which can be erroneously created by make from ./install.sh. echo $ac_n "checking for a BSD compatible install""... $ac_c" 1>&6 -echo "configure:2588: checking for a BSD compatible install" >&5 +echo "configure:2559: checking for a BSD compatible install" >&5 if test -z "$INSTALL"; then if eval "test \"`echo '$''{'ac_cv_path_install'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else IFS="${IFS= }"; ac_save_IFS="$IFS"; IFS=":" for ac_dir in $PATH; do # Account for people who put trailing slashes in PATH elements. case "$ac_dir/" in /|./|.//|/etc/*|/usr/sbin/*|/usr/etc/*|/sbin/*|/usr/afsws/bin/*|/usr/ucb/*) ;; *) # OSF1 and SCO ODT 3.0 have their own names for install. # Don't use installbsd from OSF since it installs stuff as root # by default. for ac_prog in ginstall scoinst install; do if test -f $ac_dir/$ac_prog; then if test $ac_prog = install && grep dspmsg $ac_dir/$ac_prog >/dev/null 2>&1; then # AIX install. It has an incompatible calling convention. : else ac_cv_path_install="$ac_dir/$ac_prog -c" break 2 fi fi done ;; esac done IFS="$ac_save_IFS" fi if test "${ac_cv_path_install+set}" = set; then INSTALL="$ac_cv_path_install" else # As a last resort, use the slow shell script. We don't cache a # path for INSTALL within a source directory, because that will # break other packages using the cache if that directory is # removed, or if the path is relative. INSTALL="$ac_install_sh" fi fi echo "$ac_t""$INSTALL" 1>&6 # Use test -z because SunOS4 sh mishandles braces in ${var-val}. # It thinks the first close brace ends the variable substitution. test -z "$INSTALL_PROGRAM" && INSTALL_PROGRAM='${INSTALL}' test -z "$INSTALL_SCRIPT" && INSTALL_SCRIPT='${INSTALL_PROGRAM}' test -z "$INSTALL_DATA" && INSTALL_DATA='${INSTALL} -m 644' echo $ac_n "checking whether ${MAKE-make} sets \${MAKE}""... $ac_c" 1>&6 -echo "configure:2641: checking whether ${MAKE-make} sets \${MAKE}" >&5 +echo "configure:2612: checking whether ${MAKE-make} sets \${MAKE}" >&5 set dummy ${MAKE-make}; ac_make=`echo "$2" | sed 'y%./+-%__p_%'` if eval "test \"`echo '$''{'ac_cv_prog_make_${ac_make}_set'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftestmake <<\EOF all: @echo 'ac_maketemp="${MAKE}"' EOF # GNU make sometimes prints "make[1]: Entering...", which would confuse us. eval `${MAKE-make} -f conftestmake 2>/dev/null | grep temp=` if test -n "$ac_maketemp"; then eval ac_cv_prog_make_${ac_make}_set=yes else eval ac_cv_prog_make_${ac_make}_set=no fi rm -f conftestmake fi if eval "test \"`echo '$ac_cv_prog_make_'${ac_make}_set`\" = yes"; then echo "$ac_t""yes" 1>&6 SET_MAKE= else echo "$ac_t""no" 1>&6 SET_MAKE="MAKE=${MAKE-make}" fi # Sanity check for the cross-compilation case: echo $ac_n "checking how to run the C preprocessor""... $ac_c" 1>&6 -echo "configure:2670: checking how to run the C preprocessor" >&5 +echo "configure:2641: checking how to run the C preprocessor" >&5 # On Suns, sometimes $CPP names a directory. if test -n "$CPP" && test -d "$CPP"; then CPP= fi if test -z "$CPP"; then if eval "test \"`echo '$''{'ac_cv_prog_CPP'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else # This must be in double quotes, not single quotes, because CPP may get # substituted into the Makefile and "${CC-cc}" will confuse make. CPP="${CC-cc} -E" # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. cat > conftest.$ac_ext < Syntax Error EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:2691: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:2662: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"` if test -z "$ac_err"; then : else echo "$ac_err" >&5 echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 rm -rf conftest* CPP="${CC-cc} -E -traditional-cpp" cat > conftest.$ac_ext < Syntax Error EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:2708: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:2679: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"` if test -z "$ac_err"; then : else echo "$ac_err" >&5 echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 rm -rf conftest* CPP="${CC-cc} -nologo -E" cat > conftest.$ac_ext < Syntax Error EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:2725: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:2696: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"` if test -z "$ac_err"; then : else echo "$ac_err" >&5 echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 rm -rf conftest* CPP=/lib/cpp fi rm -f conftest* fi rm -f conftest* fi rm -f conftest* ac_cv_prog_CPP="$CPP" fi CPP="$ac_cv_prog_CPP" else ac_cv_prog_CPP="$CPP" fi echo "$ac_t""$CPP" 1>&6 ac_safe=`echo "stdio.h" | sed 'y%./+-%__p_%'` echo $ac_n "checking for stdio.h""... $ac_c" 1>&6 -echo "configure:2751: checking for stdio.h" >&5 +echo "configure:2722: checking for stdio.h" >&5 if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:2761: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:2732: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"` if test -z "$ac_err"; then rm -rf conftest* eval "ac_cv_header_$ac_safe=yes" else echo "$ac_err" >&5 echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 rm -rf conftest* eval "ac_cv_header_$ac_safe=no" fi rm -f conftest* fi if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then echo "$ac_t""yes" 1>&6 : else echo "$ac_t""no" 1>&6 { echo "configure: error: Can't find stdio.h. You must have a usable C system for the target already installed, at least including headers and, preferably, the library, before you can configure the Objective C runtime system. If necessary, install gcc now with \`LANGUAGES=c', then the target library, then build with \`LANGUAGES=objc'." 1>&2; exit 1; } fi echo $ac_n "checking for ANSI C header files""... $ac_c" 1>&6 -echo "configure:2789: checking for ANSI C header files" >&5 +echo "configure:2760: checking for ANSI C header files" >&5 if eval "test \"`echo '$''{'ac_cv_header_stdc'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #include #include #include EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:2802: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:2773: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"` if test -z "$ac_err"; then rm -rf conftest* ac_cv_header_stdc=yes else echo "$ac_err" >&5 echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 rm -rf conftest* ac_cv_header_stdc=no fi rm -f conftest* if test $ac_cv_header_stdc = yes; then # SunOS 4.x string.h does not declare mem*, contrary to ANSI. cat > conftest.$ac_ext < EOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | egrep "memchr" >/dev/null 2>&1; then : else rm -rf conftest* ac_cv_header_stdc=no fi rm -f conftest* fi if test $ac_cv_header_stdc = yes; then # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. cat > conftest.$ac_ext < EOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | egrep "free" >/dev/null 2>&1; then : else rm -rf conftest* ac_cv_header_stdc=no fi rm -f conftest* fi if test $ac_cv_header_stdc = yes; then # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. if test "$cross_compiling" = yes; then : else cat > conftest.$ac_ext < #define ISLOWER(c) ('a' <= (c) && (c) <= 'z') #define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) #define XOR(e, f) (((e) && !(f)) || (!(e) && (f))) int main () { int i; for (i = 0; i < 256; i++) if (XOR (islower (i), ISLOWER (i)) || toupper (i) != TOUPPER (i)) exit(2); exit (0); } EOF -if { (eval echo configure:2869: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null +if { (eval echo configure:2840: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null then : else echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 rm -fr conftest* ac_cv_header_stdc=no fi rm -fr conftest* fi fi fi echo "$ac_t""$ac_cv_header_stdc" 1>&6 if test $ac_cv_header_stdc = yes; then cat >> confdefs.h <<\EOF #define STDC_HEADERS 1 EOF fi for ac_hdr in sched.h do ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'` echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6 -echo "configure:2897: checking for $ac_hdr" >&5 +echo "configure:2868: checking for $ac_hdr" >&5 if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" -{ (eval echo configure:2907: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +{ (eval echo configure:2878: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"` if test -z "$ac_err"; then rm -rf conftest* eval "ac_cv_header_$ac_safe=yes" else echo "$ac_err" >&5 echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 rm -rf conftest* eval "ac_cv_header_$ac_safe=no" fi rm -f conftest* fi if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then echo "$ac_t""yes" 1>&6 ac_tr_hdr=HAVE_`echo $ac_hdr | sed 'y%abcdefghijklmnopqrstuvwxyz./-%ABCDEFGHIJKLMNOPQRSTUVWXYZ___%'` cat >> confdefs.h <&6 fi done # Determine CFLAGS for gthread. echo $ac_n "checking for gthread cflags""... $ac_c" 1>&6 -echo "configure:2937: checking for gthread cflags" >&5 +echo "configure:2908: checking for gthread cflags" >&5 if eval "test \"`echo '$''{'objc_cv_gthread_flags'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else if test -f "$r"/gcc/Makefile then objc_cv_gthread_flags=`grep \^GTHREAD_FLAGS "$r"/gcc/Makefile | awk -F= '{ print $2 }'` else { echo "configure: error: not found" 1>&2; exit 1; } fi fi echo "$ac_t""$objc_cv_gthread_flags" 1>&6 GTHREAD_FLAGS=$objc_cv_gthread_flags # Check whether --enable-objc-gc or --disable-objc-gc was given. if test "${enable_objc_gc+set}" = set; then enableval="$enable_objc_gc" if [ x$enable_objc_gc = xno ]; then OBJC_BOEHM_GC='' else OBJC_BOEHM_GC=libobjc_gc.la fi else OBJC_BOEHM_GC='' fi # We need multilib support, but only if configuring for the target. trap '' 1 2 15 cat > confcache <<\EOF # This file is a shell script that caches the results of configure # tests run on this system so they can be shared between configure # scripts and configure runs. It is not useful on other systems. # If it contains results you don't want to keep, you may remove or edit it. # # By default, configure uses ./config.cache as the cache file, # creating it if it does not exist already. You can give configure # the --cache-file=FILE option to use a different cache file; that is # what configure does when it calls configure scripts in # subdirectories, so they share the cache. # Giving --cache-file=/dev/null disables caching, for debugging configure. # config.status only pays attention to the cache file if you give it the # --recheck option to rerun configure. # EOF # The following way of writing the cache mishandles newlines in values, # but we know of no workaround that is simple, portable, and efficient. # So, don't put newlines in cache variables' values. # Ultrix sh set writes to stderr and can't be redirected directly, # and sets the high bit in the cache file unless we assign to the vars. (set) 2>&1 | case `(ac_space=' '; set | grep ac_space) 2>&1` in *ac_space=\ *) # `set' does not quote correctly, so add quotes (double-quote substitution # turns \\\\ into \\, and sed turns \\ into \). sed -n \ -e "s/'/'\\\\''/g" \ -e "s/^\\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\\)=\\(.*\\)/\\1=\${\\1='\\2'}/p" ;; *) # `set' quotes correctly as required by POSIX, so do not add quotes. sed -n -e 's/^\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\)=\(.*\)/\1=${\1=\2}/p' ;; esac >> confcache if cmp -s $cache_file confcache; then : else if test -w $cache_file; then echo "updating cache $cache_file" cat confcache > $cache_file else echo "not updating unwritable cache $cache_file" fi fi rm -f confcache trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15 test "x$prefix" = xNONE && prefix=$ac_default_prefix # Let make expand exec_prefix. test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' # Any assignment to VPATH causes Sun make to only execute # the first set of double-colon rules, so remove it if not needed. # If there is a colon in the path, we need to keep it. if test "x$srcdir" = x.; then ac_vpsub='/^[ ]*VPATH[ ]*=[^:]*$/d' fi trap 'rm -f $CONFIG_STATUS conftest*; exit 1' 1 2 15 DEFS=-DHAVE_CONFIG_H # Without the "./", some shells look in PATH for config.status. : ${CONFIG_STATUS=./config.status} echo creating $CONFIG_STATUS rm -f $CONFIG_STATUS cat > $CONFIG_STATUS </dev/null | sed 1q`: # # $0 $ac_configure_args # # Compiler output produced by configure, useful for debugging # configure, is in ./config.log if it exists. ac_cs_usage="Usage: $CONFIG_STATUS [--recheck] [--version] [--help]" for ac_option do case "\$ac_option" in -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) echo "running \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion" exec \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion ;; -version | --version | --versio | --versi | --vers | --ver | --ve | --v) echo "$CONFIG_STATUS generated by autoconf version 2.13" exit 0 ;; -help | --help | --hel | --he | --h) echo "\$ac_cs_usage"; exit 0 ;; *) echo "\$ac_cs_usage"; exit 1 ;; esac done ac_given_srcdir=$srcdir ac_given_INSTALL="$INSTALL" trap 'rm -fr `echo "Makefile config.h" | sed "s/:[^ ]*//g"` conftest*; exit 1' 1 2 15 EOF cat >> $CONFIG_STATUS < conftest.subs <<\\CEOF $ac_vpsub $extrasub s%@SHELL@%$SHELL%g s%@CFLAGS@%$CFLAGS%g s%@CPPFLAGS@%$CPPFLAGS%g s%@CXXFLAGS@%$CXXFLAGS%g s%@FFLAGS@%$FFLAGS%g s%@DEFS@%$DEFS%g s%@LDFLAGS@%$LDFLAGS%g s%@LIBS@%$LIBS%g s%@exec_prefix@%$exec_prefix%g s%@prefix@%$prefix%g s%@program_transform_name@%$program_transform_name%g s%@bindir@%$bindir%g s%@sbindir@%$sbindir%g s%@libexecdir@%$libexecdir%g s%@datadir@%$datadir%g s%@sysconfdir@%$sysconfdir%g s%@sharedstatedir@%$sharedstatedir%g s%@localstatedir@%$localstatedir%g s%@libdir@%$libdir%g s%@includedir@%$includedir%g s%@oldincludedir@%$oldincludedir%g s%@infodir@%$infodir%g s%@mandir@%$mandir%g s%@toplevel_srcdir@%$toplevel_srcdir%g s%@host@%$host%g s%@host_alias@%$host_alias%g s%@host_cpu@%$host_cpu%g s%@host_vendor@%$host_vendor%g s%@host_os@%$host_os%g s%@target@%$target%g s%@target_alias@%$target_alias%g s%@target_cpu@%$target_cpu%g s%@target_vendor@%$target_vendor%g s%@target_os@%$target_os%g s%@build@%$build%g s%@build_alias@%$build_alias%g s%@build_cpu@%$build_cpu%g s%@build_vendor@%$build_vendor%g s%@build_os@%$build_os%g s%@glibcpp_builddir@%$glibcpp_builddir%g s%@glibcpp_srcdir@%$glibcpp_srcdir%g s%@LN_S@%$LN_S%g s%@CC@%$CC%g s%@AS@%$AS%g s%@AR@%$AR%g s%@RANLIB@%$RANLIB%g s%@INSTALL_PROGRAM@%$INSTALL_PROGRAM%g s%@INSTALL_SCRIPT@%$INSTALL_SCRIPT%g s%@INSTALL_DATA@%$INSTALL_DATA%g s%@EXEEXT@%$EXEEXT%g s%@gcc_version@%$gcc_version%g s%@gcc_version_trigger@%$gcc_version_trigger%g s%@glibcpp_prefixdir@%$glibcpp_prefixdir%g s%@glibcpp_toolexecdir@%$glibcpp_toolexecdir%g s%@glibcpp_toolexeclibdir@%$glibcpp_toolexeclibdir%g s%@OBJEXT@%$OBJEXT%g s%@STRIP@%$STRIP%g s%@DLLTOOL@%$DLLTOOL%g s%@OBJDUMP@%$OBJDUMP%g s%@LIBTOOL@%$LIBTOOL%g s%@SET_MAKE@%$SET_MAKE%g s%@CPP@%$CPP%g s%@GTHREAD_FLAGS@%$GTHREAD_FLAGS%g s%@OBJC_BOEHM_GC@%$OBJC_BOEHM_GC%g CEOF EOF cat >> $CONFIG_STATUS <<\EOF # Split the substitutions into bite-sized pieces for seds with # small command number limits, like on Digital OSF/1 and HP-UX. ac_max_sed_cmds=90 # Maximum number of lines to put in a sed script. ac_file=1 # Number of current file. ac_beg=1 # First line for current file. ac_end=$ac_max_sed_cmds # Line after last line for current file. ac_more_lines=: ac_sed_cmds="" while $ac_more_lines; do if test $ac_beg -gt 1; then sed "1,${ac_beg}d; ${ac_end}q" conftest.subs > conftest.s$ac_file else sed "${ac_end}q" conftest.subs > conftest.s$ac_file fi if test ! -s conftest.s$ac_file; then ac_more_lines=false rm -f conftest.s$ac_file else if test -z "$ac_sed_cmds"; then ac_sed_cmds="sed -f conftest.s$ac_file" else ac_sed_cmds="$ac_sed_cmds | sed -f conftest.s$ac_file" fi ac_file=`expr $ac_file + 1` ac_beg=$ac_end ac_end=`expr $ac_end + $ac_max_sed_cmds` fi done if test -z "$ac_sed_cmds"; then ac_sed_cmds=cat fi EOF cat >> $CONFIG_STATUS <> $CONFIG_STATUS <<\EOF for ac_file in .. $CONFIG_FILES; do if test "x$ac_file" != x..; then # Support "outfile[:infile[:infile...]]", defaulting infile="outfile.in". case "$ac_file" in *:*) ac_file_in=`echo "$ac_file"|sed 's%[^:]*:%%'` ac_file=`echo "$ac_file"|sed 's%:.*%%'` ;; *) ac_file_in="${ac_file}.in" ;; esac # Adjust a relative srcdir, top_srcdir, and INSTALL for subdirectories. # Remove last slash and all that follows it. Not all systems have dirname. ac_dir=`echo $ac_file|sed 's%/[^/][^/]*$%%'` if test "$ac_dir" != "$ac_file" && test "$ac_dir" != .; then # The file is in a subdirectory. test ! -d "$ac_dir" && mkdir "$ac_dir" ac_dir_suffix="/`echo $ac_dir|sed 's%^\./%%'`" # A "../" for each directory in $ac_dir_suffix. ac_dots=`echo $ac_dir_suffix|sed 's%/[^/]*%../%g'` else ac_dir_suffix= ac_dots= fi case "$ac_given_srcdir" in .) srcdir=. if test -z "$ac_dots"; then top_srcdir=. else top_srcdir=`echo $ac_dots|sed 's%/$%%'`; fi ;; /*) srcdir="$ac_given_srcdir$ac_dir_suffix"; top_srcdir="$ac_given_srcdir" ;; *) # Relative path. srcdir="$ac_dots$ac_given_srcdir$ac_dir_suffix" top_srcdir="$ac_dots$ac_given_srcdir" ;; esac case "$ac_given_INSTALL" in [/$]*) INSTALL="$ac_given_INSTALL" ;; *) INSTALL="$ac_dots$ac_given_INSTALL" ;; esac echo creating "$ac_file" rm -f "$ac_file" configure_input="Generated automatically from `echo $ac_file_in|sed 's%.*/%%'` by configure." case "$ac_file" in *Makefile*) ac_comsub="1i\\ # $configure_input" ;; *) ac_comsub= ;; esac ac_file_inputs=`echo $ac_file_in|sed -e "s%^%$ac_given_srcdir/%" -e "s%:% $ac_given_srcdir/%g"` sed -e "$ac_comsub s%@configure_input@%$configure_input%g s%@srcdir@%$srcdir%g s%@top_srcdir@%$top_srcdir%g s%@INSTALL@%$INSTALL%g " $ac_file_inputs | (eval "$ac_sed_cmds") > $ac_file fi; done rm -f conftest.s* # These sed commands are passed to sed as "A NAME B NAME C VALUE D", where # NAME is the cpp macro being defined and VALUE is the value it is being given. # # ac_d sets the value in "#define NAME VALUE" lines. ac_dA='s%^\([ ]*\)#\([ ]*define[ ][ ]*\)' ac_dB='\([ ][ ]*\)[^ ]*%\1#\2' ac_dC='\3' ac_dD='%g' # ac_u turns "#undef NAME" with trailing blanks into "#define NAME VALUE". ac_uA='s%^\([ ]*\)#\([ ]*\)undef\([ ][ ]*\)' ac_uB='\([ ]\)%\1#\2define\3' ac_uC=' ' ac_uD='\4%g' # ac_e turns "#undef NAME" without trailing blanks into "#define NAME VALUE". ac_eA='s%^\([ ]*\)#\([ ]*\)undef\([ ][ ]*\)' ac_eB='$%\1#\2define\3' ac_eC=' ' ac_eD='%g' if test "${CONFIG_HEADERS+set}" != set; then EOF cat >> $CONFIG_STATUS <> $CONFIG_STATUS <<\EOF fi for ac_file in .. $CONFIG_HEADERS; do if test "x$ac_file" != x..; then # Support "outfile[:infile[:infile...]]", defaulting infile="outfile.in". case "$ac_file" in *:*) ac_file_in=`echo "$ac_file"|sed 's%[^:]*:%%'` ac_file=`echo "$ac_file"|sed 's%:.*%%'` ;; *) ac_file_in="${ac_file}.in" ;; esac echo creating $ac_file rm -f conftest.frag conftest.in conftest.out ac_file_inputs=`echo $ac_file_in|sed -e "s%^%$ac_given_srcdir/%" -e "s%:% $ac_given_srcdir/%g"` cat $ac_file_inputs > conftest.in EOF # Transform confdefs.h into a sed script conftest.vals that substitutes # the proper values into config.h.in to produce config.h. And first: # Protect against being on the right side of a sed subst in config.status. # Protect against being in an unquoted here document in config.status. rm -f conftest.vals cat > conftest.hdr <<\EOF s/[\\&%]/\\&/g s%[\\$`]%\\&%g s%#define \([A-Za-z_][A-Za-z0-9_]*\) *\(.*\)%${ac_dA}\1${ac_dB}\1${ac_dC}\2${ac_dD}%gp s%ac_d%ac_u%gp s%ac_u%ac_e%gp EOF sed -n -f conftest.hdr confdefs.h > conftest.vals rm -f conftest.hdr # This sed command replaces #undef with comments. This is necessary, for # example, in the case of _POSIX_SOURCE, which is predefined and required # on some systems where configure will not decide to define it. cat >> conftest.vals <<\EOF s%^[ ]*#[ ]*undef[ ][ ]*[a-zA-Z_][a-zA-Z_0-9]*%/* & */% EOF # Break up conftest.vals because some shells have a limit on # the size of here documents, and old seds have small limits too. rm -f conftest.tail while : do ac_lines=`grep -c . conftest.vals` # grep -c gives empty output for an empty file on some AIX systems. if test -z "$ac_lines" || test "$ac_lines" -eq 0; then break; fi # Write a limited-size here document to conftest.frag. echo ' cat > conftest.frag <> $CONFIG_STATUS sed ${ac_max_here_lines}q conftest.vals >> $CONFIG_STATUS echo 'CEOF sed -f conftest.frag conftest.in > conftest.out rm -f conftest.in mv conftest.out conftest.in ' >> $CONFIG_STATUS sed 1,${ac_max_here_lines}d conftest.vals > conftest.tail rm -f conftest.vals mv conftest.tail conftest.vals done rm -f conftest.vals cat >> $CONFIG_STATUS <<\EOF rm -f conftest.frag conftest.h echo "/* $ac_file. Generated automatically by configure. */" > conftest.h cat conftest.in >> conftest.h rm -f conftest.in if cmp -s $ac_file conftest.h 2>/dev/null; then echo "$ac_file is unchanged" rm -f conftest.h else # Remove last slash and all that follows it. Not all systems have dirname. ac_dir=`echo $ac_file|sed 's%/[^/][^/]*$%%'` if test "$ac_dir" != "$ac_file" && test "$ac_dir" != .; then # The file is in a subdirectory. test ! -d "$ac_dir" && mkdir "$ac_dir" fi rm -f $ac_file mv conftest.h $ac_file fi fi; done EOF cat >> $CONFIG_STATUS <> $CONFIG_STATUS <<\EOF test -z "$CONFIG_HEADERS" || echo timestamp > stamp-h if test -n "$CONFIG_FILES"; then if test -n "${with_target_subdir}"; then # FIXME: We shouldn't need to set ac_file ac_file=Makefile LD="${ORIGINAL_LD_FOR_MULTILIBS}" . ${toplevel_srcdir}/config-ml.in fi fi exit 0 EOF chmod +x $CONFIG_STATUS rm -fr confdefs* $ac_clean_files test "$no_create" = yes || ${CONFIG_SHELL-/bin/sh} $CONFIG_STATUS || exit 1 Index: vendor/gcc/dist/contrib/libobjc/configure.in =================================================================== --- vendor/gcc/dist/contrib/libobjc/configure.in (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/configure.in (revision 132722) @@ -1,155 +1,127 @@ # Process this file with autoconf to produce a configure script. # Copyright (C) 1995, 1997, 1998, 1999, 2002, 2003 # Free Software Foundation, Inc. # Contributed by Dave Love (d.love@dl.ac.uk). # #This file is part of GNU Objective C. # #GNU Objective C is free software; you can redistribute it and/or modify #it under the terms of the GNU General Public License as published by #the Free Software Foundation; either version 2, or (at your option) #any later version. # #GNU Objective C is distributed in the hope that it will be useful, #but WITHOUT 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 #along with GNU Objective C; see the file COPYING. If not, write to #the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA #02111-1307, USA. AC_PREREQ(2.13) AC_INIT(objc/objc.h) AC_CONFIG_HEADER(config.h) # This works around the fact that libtool configuration may change LD # for this particular configuration, but some shells, instead of # keeping the changes in LD private, export them just because LD is # exported. ORIGINAL_LD_FOR_MULTILIBS=$LD GLIBCPP_TOPREL_CONFIGURE AC_CANONICAL_SYSTEM target_alias=${target_alias-$target} AC_SUBST(target_alias) GLIBCPP_CONFIGURE(.) GLIBCPP_EXPORT_INSTALL_INFO -# If the language specific compiler does not exist, but the "gcc" directory -# does, we do not build anything. Note, $r is set by the top-level Makefile. -# Note that when we look for the compiler, we search both with and without -# extension to handle cross and canadian cross builds. -compiler_name=cc1obj -rm -f skip-this-dir -AC_MSG_CHECKING(if compiler $compiler_name has been built) -AC_CACHE_VAL(objc_cv_compiler_exists, -[objc_cv_compiler_exists=yes -if test -n "$r"; then - if test -d "$r"/gcc; then - if test -f "$r"/gcc/$compiler_name \ - || test -f "$r"/gcc/$compiler_name.exe; then - true - else - objc_cv_compiler_exists=no - echo "rm -f config.cache config.log multilib.out" > skip-this-dir - fi - fi -fi -]) -AC_MSG_RESULT($objc_cv_compiler_exists) -if test x$objc_cv_compiler_exists = xno -then - rm -f Makefile conftest* confdefs* core - exit 0 -fi - dnl Checks for programs. # Disable shared libs by default AC_DISABLE_SHARED # Enable Win32 DLL on MS Windows - FIXME AC_LIBTOOL_WIN32_DLL AC_PROG_LIBTOOL dnl These should be inherited in the recursive make, but ensure they are dnl defined: test "$AR" || AR=ar AC_SUBST(AR) if test "$RANLIB"; then : AC_SUBST(RANLIB) else AC_PROG_RANLIB fi AC_PROG_INSTALL AC_PROG_MAKE_SET dnl Checks for header files. # Sanity check for the cross-compilation case: AC_CHECK_HEADER(stdio.h,:, [AC_MSG_ERROR([Can't find stdio.h. You must have a usable C system for the target already installed, at least including headers and, preferably, the library, before you can configure the Objective C runtime system. If necessary, install gcc now with \`LANGUAGES=c', then the target library, then build with \`LANGUAGES=objc'.])]) AC_HEADER_STDC AC_CHECK_HEADERS(sched.h) # Determine CFLAGS for gthread. AC_CACHE_CHECK([for gthread cflags],objc_cv_gthread_flags, [if test -f "$r"/gcc/Makefile then objc_cv_gthread_flags=`grep \^GTHREAD_FLAGS "$r"/gcc/Makefile | awk -F= '{ print $2 }'` else AC_MSG_ERROR([not found]) fi]) GTHREAD_FLAGS=$objc_cv_gthread_flags AC_SUBST(GTHREAD_FLAGS) AC_ARG_ENABLE(objc-gc, [ --enable-objc-gc enable the use of Boehm's garbage collector with the GNU Objective-C runtime.], if [[[ x$enable_objc_gc = xno ]]]; then OBJC_BOEHM_GC='' else OBJC_BOEHM_GC=libobjc_gc.la fi, OBJC_BOEHM_GC='') AC_SUBST(OBJC_BOEHM_GC) # We need multilib support, but only if configuring for the target. AC_OUTPUT(Makefile, [test -z "$CONFIG_HEADERS" || echo timestamp > stamp-h if test -n "$CONFIG_FILES"; then if test -n "${with_target_subdir}"; then # FIXME: We shouldn't need to set ac_file ac_file=Makefile LD="${ORIGINAL_LD_FOR_MULTILIBS}" . ${toplevel_srcdir}/config-ml.in fi fi], srcdir=${srcdir} host=${host} target=${target} with_target_subdir=${with_target_subdir} with_multisubdir=${with_multisubdir} ac_configure_args="--enable-multilib ${ac_configure_args}" toplevel_srcdir=${toplevel_srcdir} CONFIG_SHELL=${CONFIG_SHELL-/bin/sh} ORIGINAL_LD_FOR_MULTILIBS="${ORIGINAL_LD_FOR_MULTILIBS}" ) dnl Local Variables: dnl comment-start: "dnl " dnl comment-end: "" dnl comment-start-skip: "\\bdnl\\b\\s *" dnl End: Index: vendor/gcc/dist/contrib/libobjc/encoding.c =================================================================== --- vendor/gcc/dist/contrib/libobjc/encoding.c (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/encoding.c (revision 132722) @@ -1,936 +1,951 @@ /* Encoding of types for Objective C. Copyright (C) 1993, 1995, 1996, 1997, 1998, 2000, 2002 Free Software Foundation, Inc. Contributed by Kresten Krab Thorup Bitfield support by Ovidiu Predescu -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, +GCC is distributed in the hope that it will be useful, but WITHOUT 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 -along with GNU CC; see the file COPYING. If not, write to +along with GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ +/* FIXME: This file has no business including tm.h. */ + #include "tconfig.h" +#include "coretypes.h" +#include "tm.h" #include "objc-api.h" #include "encoding.h" #include #undef MAX #define MAX(X, Y) \ ({ typeof (X) __x = (X), __y = (Y); \ (__x > __y ? __x : __y); }) #undef MIN #define MIN(X, Y) \ ({ typeof (X) __x = (X), __y = (Y); \ (__x < __y ? __x : __y); }) #undef ROUND #define ROUND(V, A) \ ({ typeof (V) __v = (V); typeof (A) __a = (A); \ __a * ((__v+__a - 1)/__a); }) /* Various hacks for objc_layout_record. These are used by the target macros. */ #define TREE_CODE(TYPE) *(TYPE) #define TREE_TYPE(TREE) (TREE) #define RECORD_TYPE _C_STRUCT_B #define UNION_TYPE _C_UNION_B #define QUAL_UNION_TYPE _C_UNION_B #define ARRAY_TYPE _C_ARY_B #define REAL_TYPE _C_DBL #define VECTOR_TYPE _C_VECTOR #define TYPE_FIELDS(TYPE) objc_skip_typespec (TYPE) #define DECL_MODE(TYPE) *(TYPE) #define TYPE_MODE(TYPE) *(TYPE) #define DFmode _C_DBL #define get_inner_array_type(TYPE) ((TYPE) + 1) /* Some ports (eg ARM) allow the structure size boundary to be selected at compile-time. We override the normal definition with one that has a constant value for this compilation. */ #undef STRUCTURE_SIZE_BOUNDARY #define STRUCTURE_SIZE_BOUNDARY (BITS_PER_UNIT * sizeof (struct{char a;})) /* Some ROUND_TYPE_ALIGN macros use TARGET_foo, and consequently target_flags. Define a dummy entry here to so we don't die. */ /* ??? FIXME: As of 2002-06-21, the attribute `unused' doesn't seem to eliminate the warning. */ static int __attribute__ ((__unused__)) target_flags = 0; + + +/* FIXME: while this file has no business including tm.h, this + definitely has no business defining this macro but it + is only way around without really rewritting this file, + should look after the branch of 3.4 to fix this. */ +#define rs6000_special_round_type_align(STRUCT, COMPUTED, SPECIFIED) \ + ((TYPE_FIELDS (STRUCT) != 0 \ + && DECL_MODE (TYPE_FIELDS (STRUCT)) == DFmode) \ + ? MAX (MAX (COMPUTED, SPECIFIED), 64) \ + : MAX (COMPUTED, SPECIFIED)) /* return the size of an object specified by type */ int objc_sizeof_type (const char *type) { /* Skip the variable name if any */ if (*type == '"') { for (type++; *type++ != '"';) /* do nothing */; } switch (*type) { case _C_ID: return sizeof (id); break; case _C_CLASS: return sizeof (Class); break; case _C_SEL: return sizeof (SEL); break; case _C_CHR: return sizeof (char); break; case _C_UCHR: return sizeof (unsigned char); break; case _C_SHT: return sizeof (short); break; case _C_USHT: return sizeof (unsigned short); break; case _C_INT: return sizeof (int); break; case _C_UINT: return sizeof (unsigned int); break; case _C_LNG: return sizeof (long); break; case _C_ULNG: return sizeof (unsigned long); break; case _C_LNG_LNG: return sizeof (long long); break; case _C_ULNG_LNG: return sizeof (unsigned long long); break; case _C_FLT: return sizeof (float); break; case _C_DBL: return sizeof (double); break; case _C_VOID: return sizeof (void); break; case _C_PTR: case _C_ATOM: case _C_CHARPTR: return sizeof (char *); break; case _C_ARY_B: { int len = atoi (type + 1); while (isdigit ((unsigned char)*++type)) ; return len * objc_aligned_size (type); } break; case _C_BFLD: { /* The new encoding of bitfields is: b 'position' 'type' 'size' */ int position, size; int startByte, endByte; position = atoi (type + 1); while (isdigit ((unsigned char)*++type)) ; size = atoi (type + 1); startByte = position / BITS_PER_UNIT; endByte = (position + size) / BITS_PER_UNIT; return endByte - startByte; } case _C_STRUCT_B: { struct objc_struct_layout layout; unsigned int size; objc_layout_structure (type, &layout); while (objc_layout_structure_next_member (&layout)) /* do nothing */ ; objc_layout_finish_structure (&layout, &size, NULL); return size; } case _C_UNION_B: { int max_size = 0; while (*type != _C_UNION_E && *type++ != '=') /* do nothing */; while (*type != _C_UNION_E) { /* Skip the variable name if any */ if (*type == '"') { for (type++; *type++ != '"';) /* do nothing */; } max_size = MAX (max_size, objc_sizeof_type (type)); type = objc_skip_typespec (type); } return max_size; } default: { objc_error (nil, OBJC_ERR_BAD_TYPE, "unknown type %s\n", type); return 0; } } } /* Return the alignment of an object specified by type */ int objc_alignof_type (const char *type) { /* Skip the variable name if any */ if (*type == '"') { for (type++; *type++ != '"';) /* do nothing */; } switch (*type) { case _C_ID: return __alignof__ (id); break; case _C_CLASS: return __alignof__ (Class); break; case _C_SEL: return __alignof__ (SEL); break; case _C_CHR: return __alignof__ (char); break; case _C_UCHR: return __alignof__ (unsigned char); break; case _C_SHT: return __alignof__ (short); break; case _C_USHT: return __alignof__ (unsigned short); break; case _C_INT: return __alignof__ (int); break; case _C_UINT: return __alignof__ (unsigned int); break; case _C_LNG: return __alignof__ (long); break; case _C_ULNG: return __alignof__ (unsigned long); break; case _C_LNG_LNG: return __alignof__ (long long); break; case _C_ULNG_LNG: return __alignof__ (unsigned long long); break; case _C_FLT: return __alignof__ (float); break; case _C_DBL: return __alignof__ (double); break; case _C_PTR: case _C_ATOM: case _C_CHARPTR: return __alignof__ (char *); break; case _C_ARY_B: while (isdigit ((unsigned char)*++type)) /* do nothing */; return objc_alignof_type (type); case _C_STRUCT_B: { struct objc_struct_layout layout; unsigned int align; objc_layout_structure (type, &layout); while (objc_layout_structure_next_member (&layout)) /* do nothing */; objc_layout_finish_structure (&layout, NULL, &align); return align; } case _C_UNION_B: { int maxalign = 0; while (*type != _C_UNION_E && *type++ != '=') /* do nothing */; while (*type != _C_UNION_E) { /* Skip the variable name if any */ if (*type == '"') { for (type++; *type++ != '"';) /* do nothing */; } maxalign = MAX (maxalign, objc_alignof_type (type)); type = objc_skip_typespec (type); } return maxalign; } default: { objc_error (nil, OBJC_ERR_BAD_TYPE, "unknown type %s\n", type); return 0; } } } /* The aligned size if the size rounded up to the nearest alignment. */ int objc_aligned_size (const char *type) { int size, align; /* Skip the variable name */ if (*type == '"') { for (type++; *type++ != '"';) /* do nothing */; } size = objc_sizeof_type (type); align = objc_alignof_type (type); return ROUND (size, align); } /* The size rounded up to the nearest integral of the wordsize, taken to be the size of a void *. */ int objc_promoted_size (const char *type) { int size, wordsize; /* Skip the variable name */ if (*type == '"') { for (type++; *type++ != '"';) /* do nothing */; } size = objc_sizeof_type (type); wordsize = sizeof (void *); return ROUND (size, wordsize); } /* Skip type qualifiers. These may eventually precede typespecs occurring in method prototype encodings. */ inline const char * objc_skip_type_qualifiers (const char *type) { while (*type == _C_CONST || *type == _C_IN || *type == _C_INOUT || *type == _C_OUT || *type == _C_BYCOPY || *type == _C_BYREF || *type == _C_ONEWAY || *type == _C_GCINVISIBLE) { type += 1; } return type; } /* Skip one typespec element. If the typespec is prepended by type qualifiers, these are skipped as well. */ const char * objc_skip_typespec (const char *type) { /* Skip the variable name if any */ if (*type == '"') { for (type++; *type++ != '"';) /* do nothing */; } type = objc_skip_type_qualifiers (type); switch (*type) { case _C_ID: /* An id may be annotated by the actual type if it is known with the @"ClassName" syntax */ if (*++type != '"') return type; else { while (*++type != '"') /* do nothing */; return type + 1; } /* The following are one character type codes */ case _C_CLASS: case _C_SEL: case _C_CHR: case _C_UCHR: case _C_CHARPTR: case _C_ATOM: case _C_SHT: case _C_USHT: case _C_INT: case _C_UINT: case _C_LNG: case _C_ULNG: case _C_LNG_LNG: case _C_ULNG_LNG: case _C_FLT: case _C_DBL: case _C_VOID: case _C_UNDEF: return ++type; break; case _C_ARY_B: /* skip digits, typespec and closing ']' */ while (isdigit ((unsigned char)*++type)) ; type = objc_skip_typespec (type); if (*type == _C_ARY_E) return ++type; else { objc_error (nil, OBJC_ERR_BAD_TYPE, "bad array type %s\n", type); return 0; } case _C_BFLD: /* The new encoding of bitfields is: b 'position' 'type' 'size' */ while (isdigit ((unsigned char)*++type)) ; /* skip position */ while (isdigit ((unsigned char)*++type)) ; /* skip type and size */ return type; case _C_STRUCT_B: /* skip name, and elements until closing '}' */ while (*type != _C_STRUCT_E && *type++ != '=') ; while (*type != _C_STRUCT_E) { type = objc_skip_typespec (type); } return ++type; case _C_UNION_B: /* skip name, and elements until closing ')' */ while (*type != _C_UNION_E && *type++ != '=') ; while (*type != _C_UNION_E) { type = objc_skip_typespec (type); } return ++type; case _C_PTR: /* Just skip the following typespec */ return objc_skip_typespec (++type); default: { objc_error (nil, OBJC_ERR_BAD_TYPE, "unknown type %s\n", type); return 0; } } } /* Skip an offset as part of a method encoding. This is prepended by a '+' if the argument is passed in registers. */ inline const char * objc_skip_offset (const char *type) { if (*type == '+') type++; while (isdigit ((unsigned char) *++type)) ; return type; } /* Skip an argument specification of a method encoding. */ const char * objc_skip_argspec (const char *type) { type = objc_skip_typespec (type); type = objc_skip_offset (type); return type; } /* Return the number of arguments that the method MTH expects. Note that all methods need two implicit arguments `self' and `_cmd'. */ int method_get_number_of_arguments (struct objc_method *mth) { int i = 0; const char *type = mth->method_types; while (*type) { type = objc_skip_argspec (type); i += 1; } return i - 1; } /* Return the size of the argument block needed on the stack to invoke the method MTH. This may be zero, if all arguments are passed in registers. */ int method_get_sizeof_arguments (struct objc_method *mth) { const char *type = objc_skip_typespec (mth->method_types); return atoi (type); } /* Return a pointer to the next argument of ARGFRAME. type points to the last argument. Typical use of this look like: { char *datum, *type; for (datum = method_get_first_argument (method, argframe, &type); datum; datum = method_get_next_argument (argframe, &type)) { unsigned flags = objc_get_type_qualifiers (type); type = objc_skip_type_qualifiers (type); if (*type != _C_PTR) [portal encodeData: datum ofType: type]; else { if ((flags & _F_IN) == _F_IN) [portal encodeData: *(char **) datum ofType: ++type]; } } } */ char * method_get_next_argument (arglist_t argframe, const char **type) { const char *t = objc_skip_argspec (*type); if (*t == '\0') return 0; *type = t; t = objc_skip_typespec (t); if (*t == '+') return argframe->arg_regs + atoi (++t); else return argframe->arg_ptr + atoi (t); } /* Return a pointer to the value of the first argument of the method described in M with the given argumentframe ARGFRAME. The type is returned in TYPE. type must be passed to successive calls of method_get_next_argument. */ char * method_get_first_argument (struct objc_method *m, arglist_t argframe, const char **type) { *type = m->method_types; return method_get_next_argument (argframe, type); } /* Return a pointer to the ARGth argument of the method M from the frame ARGFRAME. The type of the argument is returned in the value-result argument TYPE */ char * method_get_nth_argument (struct objc_method *m, arglist_t argframe, int arg, const char **type) { const char *t = objc_skip_argspec (m->method_types); if (arg > method_get_number_of_arguments (m)) return 0; while (arg--) t = objc_skip_argspec (t); *type = t; t = objc_skip_typespec (t); if (*t == '+') return argframe->arg_regs + atoi (++t); else return argframe->arg_ptr + atoi (t); } unsigned objc_get_type_qualifiers (const char *type) { unsigned res = 0; BOOL flag = YES; while (flag) switch (*type++) { case _C_CONST: res |= _F_CONST; break; case _C_IN: res |= _F_IN; break; case _C_INOUT: res |= _F_INOUT; break; case _C_OUT: res |= _F_OUT; break; case _C_BYCOPY: res |= _F_BYCOPY; break; case _C_BYREF: res |= _F_BYREF; break; case _C_ONEWAY: res |= _F_ONEWAY; break; case _C_GCINVISIBLE: res |= _F_GCINVISIBLE; break; default: flag = NO; } return res; } /* The following three functions can be used to determine how a structure is laid out by the compiler. For example: struct objc_struct_layout layout; int i; objc_layout_structure (type, &layout); while (objc_layout_structure_next_member (&layout)) { int position, align; const char *type; objc_layout_structure_get_info (&layout, &position, &align, &type); printf ("element %d has offset %d, alignment %d\n", i++, position, align); } These functions are used by objc_sizeof_type and objc_alignof_type functions to compute the size and alignment of structures. The previous method of computing the size and alignment of a structure was not working on some architectures, particulary on AIX, and in the presence of bitfields inside the structure. */ void objc_layout_structure (const char *type, struct objc_struct_layout *layout) { const char *ntype; if (*type++ != _C_STRUCT_B) { objc_error (nil, OBJC_ERR_BAD_TYPE, "record type expected in objc_layout_structure, got %s\n", type); } layout->original_type = type; /* Skip "=" if any. Avoid embedded structures and unions. */ ntype = type; while (*ntype != _C_STRUCT_E && *ntype != _C_STRUCT_B && *ntype != _C_UNION_B && *ntype++ != '=') /* do nothing */; /* If there's a "=", ntype - 1 points to '='; skip the the name */ if (*(ntype - 1) == '=') type = ntype; layout->type = type; layout->prev_type = NULL; layout->record_size = 0; layout->record_align = BITS_PER_UNIT; layout->record_align = MAX (layout->record_align, STRUCTURE_SIZE_BOUNDARY); } BOOL objc_layout_structure_next_member (struct objc_struct_layout *layout) { register int desired_align = 0; /* The following are used only if the field is a bitfield */ register const char *bfld_type = 0; register int bfld_type_size, bfld_type_align = 0, bfld_field_size = 0; /* The current type without the type qualifiers */ const char *type; /* Add the size of the previous field to the size of the record. */ if (layout->prev_type) { type = objc_skip_type_qualifiers (layout->prev_type); if (*type != _C_BFLD) layout->record_size += objc_sizeof_type (type) * BITS_PER_UNIT; else { /* Get the bitfield's type */ for (bfld_type = type + 1; isdigit ((unsigned char)*bfld_type); bfld_type++) /* do nothing */; bfld_type_size = objc_sizeof_type (bfld_type) * BITS_PER_UNIT; bfld_type_align = objc_alignof_type (bfld_type) * BITS_PER_UNIT; bfld_field_size = atoi (objc_skip_typespec (bfld_type)); layout->record_size += bfld_field_size; } } if (*layout->type == _C_STRUCT_E) return NO; /* Skip the variable name if any */ if (*layout->type == '"') { for (layout->type++; *layout->type++ != '"';) /* do nothing */; } type = objc_skip_type_qualifiers (layout->type); if (*type != _C_BFLD) desired_align = objc_alignof_type (type) * BITS_PER_UNIT; else { desired_align = 1; /* Skip the bitfield's offset */ for (bfld_type = type + 1; isdigit ((unsigned char) *bfld_type); bfld_type++) /* do nothing */; bfld_type_size = objc_sizeof_type (bfld_type) * BITS_PER_UNIT; bfld_type_align = objc_alignof_type (bfld_type) * BITS_PER_UNIT; bfld_field_size = atoi (objc_skip_typespec (bfld_type)); } #ifdef BIGGEST_FIELD_ALIGNMENT desired_align = MIN (desired_align, BIGGEST_FIELD_ALIGNMENT); #endif #ifdef ADJUST_FIELD_ALIGN desired_align = ADJUST_FIELD_ALIGN (type, desired_align); #endif /* Record must have at least as much alignment as any field. Otherwise, the alignment of the field within the record is meaningless. */ #ifndef PCC_BITFIELD_TYPE_MATTERS layout->record_align = MAX (layout->record_align, desired_align); #else /* PCC_BITFIELD_TYPE_MATTERS */ if (*type == _C_BFLD) { /* For these machines, a zero-length field does not affect the alignment of the structure as a whole. It does, however, affect the alignment of the next field within the structure. */ if (bfld_field_size) layout->record_align = MAX (layout->record_align, desired_align); else desired_align = objc_alignof_type (bfld_type) * BITS_PER_UNIT; /* A named bit field of declared type `int' forces the entire structure to have `int' alignment. Q1: How is encoded this thing and how to check for it? Q2: How to determine maximum_field_alignment at runtime? */ /* if (DECL_NAME (field) != 0) */ { int type_align = bfld_type_align; #if 0 if (maximum_field_alignment != 0) type_align = MIN (type_align, maximum_field_alignment); else if (DECL_PACKED (field)) type_align = MIN (type_align, BITS_PER_UNIT); #endif layout->record_align = MAX (layout->record_align, type_align); } } else layout->record_align = MAX (layout->record_align, desired_align); #endif /* PCC_BITFIELD_TYPE_MATTERS */ /* Does this field automatically have alignment it needs by virtue of the fields that precede it and the record's own alignment? */ if (*type == _C_BFLD) layout->record_size = atoi (type + 1); else if (layout->record_size % desired_align != 0) { /* No, we need to skip space before this field. Bump the cumulative size to multiple of field alignment. */ layout->record_size = ROUND (layout->record_size, desired_align); } /* Jump to the next field in record. */ layout->prev_type = layout->type; layout->type = objc_skip_typespec (layout->type); /* skip component */ return YES; } void objc_layout_finish_structure (struct objc_struct_layout *layout, unsigned int *size, unsigned int *align) { if (layout->type && *layout->type == _C_STRUCT_E) { /* Work out the alignment of the record as one expression and store in the record type. Round it up to a multiple of the record's alignment. */ #if defined (ROUND_TYPE_ALIGN) && ! defined (__sparc__) layout->record_align = ROUND_TYPE_ALIGN (layout->original_type, 1, layout->record_align); #else layout->record_align = MAX (1, layout->record_align); #endif #ifdef ROUND_TYPE_SIZE layout->record_size = ROUND_TYPE_SIZE (layout->original_type, layout->record_size, layout->record_align); #else /* Round the size up to be a multiple of the required alignment */ layout->record_size = ROUND (layout->record_size, layout->record_align); #endif layout->type = NULL; } if (size) *size = layout->record_size / BITS_PER_UNIT; if (align) *align = layout->record_align / BITS_PER_UNIT; } void objc_layout_structure_get_info (struct objc_struct_layout *layout, unsigned int *offset, unsigned int *align, const char **type) { if (offset) *offset = layout->record_size / BITS_PER_UNIT; if (align) *align = layout->record_align / BITS_PER_UNIT; if (type) *type = layout->prev_type; } Index: vendor/gcc/dist/contrib/libobjc/gc.c =================================================================== --- vendor/gcc/dist/contrib/libobjc/gc.c (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/gc.c (revision 132722) @@ -1,459 +1,459 @@ /* Basic data types for Objective C. Copyright (C) 1998, 2002 Free Software Foundation, Inc. Contributed by Ovidiu Predescu. -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, +GCC is distributed in the hope that it will be useful, but WITHOUT 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 -along with GNU CC; see the file COPYING. If not, write to +along with GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #include "tconfig.h" #include "objc.h" #include "encoding.h" #include #include #if OBJC_WITH_GC #include /* gc_typed.h uses the following but doesn't declare them */ typedef GC_word word; typedef GC_signed_word signed_word; #if BITS_PER_WORD == 32 # define LOGWL 5 # define modWORDSZ(n) ((n) & 0x1f) /* n mod size of word */ #endif #if BITS_PER_WORD == 64 # define LOGWL 6 # define modWORDSZ(n) ((n) & 0x3f) /* n mod size of word */ #endif #define divWORDSZ(n) ((n) >> LOGWL) /* divide n by size of word */ #include /* The following functions set up in `mask` the corresponding pointers. The offset is incremented with the size of the type. */ #define ROUND(V, A) \ ({ typeof (V) __v = (V); typeof (A) __a = (A); \ __a * ((__v+__a - 1)/__a); }) #define SET_BIT_FOR_OFFSET(mask, offset) \ GC_set_bit (mask, offset / sizeof (void *)) /* Some prototypes */ static void __objc_gc_setup_struct (GC_bitmap mask, const char *type, int offset); static void __objc_gc_setup_union (GC_bitmap mask, const char *type, int offset); static void __objc_gc_setup_array (GC_bitmap mask, const char *type, int offset) { int i, len = atoi (type + 1); while (isdigit (*++type)) /* do nothing */; /* skip the size of the array */ switch (*type) { case _C_ARY_B: for (i = 0; i < len; i++) __objc_gc_setup_array (mask, type, offset); break; case _C_STRUCT_B: for (i = 0; i < len; i++) __objc_gc_setup_struct (mask, type, offset); break; case _C_UNION_B: for (i = 0; i < len; i++) __objc_gc_setup_union (mask, type, offset); break; default: break; } } static void __objc_gc_setup_struct (GC_bitmap mask, const char *type, int offset) { struct objc_struct_layout layout; unsigned int position; const char *mtype; objc_layout_structure (type, &layout); while (objc_layout_structure_next_member (&layout)) { BOOL gc_invisible = NO; objc_layout_structure_get_info (&layout, &position, NULL, &mtype); /* Skip the variable name */ if (*mtype == '"') { for (mtype++; *mtype++ != '"';) /* do nothing */; } if (*mtype == _C_GCINVISIBLE) { gc_invisible = YES; mtype++; } /* Add to position the offset of this structure */ position += offset; switch (*mtype) { case _C_ID: case _C_CLASS: case _C_SEL: case _C_PTR: case _C_CHARPTR: case _C_ATOM: if (! gc_invisible) SET_BIT_FOR_OFFSET (mask, position); break; case _C_ARY_B: __objc_gc_setup_array (mask, mtype, position); break; case _C_STRUCT_B: __objc_gc_setup_struct (mask, mtype, position); break; case _C_UNION_B: __objc_gc_setup_union (mask, mtype, position); break; default: break; } } } static void __objc_gc_setup_union (GC_bitmap mask, const char *type, int offset) { /* Sub-optimal, quick implementation: assume the union is made of pointers, set up the mask accordingly. */ int i, size, align; /* Skip the variable name */ if (*type == '"') { for (type++; *type++ != '"';) /* do nothing */; } size = objc_sizeof_type (type); align = objc_alignof_type (type); offset = ROUND (offset, align); for (i = 0; i < size; i += sizeof (void *)) { SET_BIT_FOR_OFFSET (mask, offset); offset += sizeof (void *); } } /* Iterates over the types in the structure that represents the class encoding and sets the bits in mask according to each ivar type. */ static void __objc_gc_type_description_from_type (GC_bitmap mask, const char *type) { struct objc_struct_layout layout; unsigned int offset, align; const char *ivar_type; objc_layout_structure (type, &layout); while (objc_layout_structure_next_member (&layout)) { BOOL gc_invisible = NO; objc_layout_structure_get_info (&layout, &offset, &align, &ivar_type); /* Skip the variable name */ if (*ivar_type == '"') { for (ivar_type++; *ivar_type++ != '"';) /* do nothing */; } if (*ivar_type == _C_GCINVISIBLE) { gc_invisible = YES; ivar_type++; } switch (*ivar_type) { case _C_ID: case _C_CLASS: case _C_SEL: case _C_PTR: case _C_CHARPTR: if (! gc_invisible) SET_BIT_FOR_OFFSET (mask, offset); break; case _C_ARY_B: __objc_gc_setup_array (mask, ivar_type, offset); break; case _C_STRUCT_B: __objc_gc_setup_struct (mask, ivar_type, offset); break; case _C_UNION_B: __objc_gc_setup_union (mask, ivar_type, offset); break; default: break; } } } /* Computes in *type the full type encoding of this class including its super classes. '*size' gives the total number of bytes allocated into *type, '*current' the number of bytes used so far by the encoding. */ static void __objc_class_structure_encoding (Class class, char **type, int *size, int *current) { int i, ivar_count; struct objc_ivar_list *ivars; if (! class) { strcat (*type, "{"); *current++; return; } /* Add the type encodings of the super classes */ __objc_class_structure_encoding (class->super_class, type, size, current); ivars = class->ivars; if (! ivars) return; ivar_count = ivars->ivar_count; for (i = 0; i < ivar_count; i++) { struct objc_ivar *ivar = &(ivars->ivar_list[i]); const char *ivar_type = ivar->ivar_type; int len = strlen (ivar_type); if (*current + len + 1 >= *size) { /* Increase the size of the encoding string so that it contains this ivar's type. */ *size = ROUND (*current + len + 1, 10); *type = objc_realloc (*type, *size); } strcat (*type + *current, ivar_type); *current += len; } } /* Allocates the memory that will hold the type description for class and calls the __objc_class_structure_encoding that generates this value. */ void __objc_generate_gc_type_description (Class class) { GC_bitmap mask; int bits_no, size; int type_size = 10, current; char *class_structure_type; if (! CLS_ISCLASS (class)) return; /* We have to create a mask in which each bit counts for a pointer member. We take into consideration all the non-pointer instance variables and we round them up to the alignment. */ /* The number of bits in the mask is the size of an instance in bytes divided by the size of a pointer. */ bits_no = (ROUND (class_get_instance_size (class), sizeof (void *)) / sizeof (void *)); size = ROUND (bits_no, BITS_PER_WORD) / BITS_PER_WORD; mask = objc_atomic_malloc (size * sizeof (int)); memset (mask, 0, size * sizeof (int)); class_structure_type = objc_atomic_malloc (type_size); *class_structure_type = current = 0; __objc_class_structure_encoding (class, &class_structure_type, &type_size, ¤t); if (current + 1 == type_size) class_structure_type = objc_realloc (class_structure_type, ++type_size); strcat (class_structure_type + current, "}"); #ifdef DEBUG printf ("type description for '%s' is %s\n", class->name, class_structure_type); #endif __objc_gc_type_description_from_type (mask, class_structure_type); objc_free (class_structure_type); #ifdef DEBUG printf (" mask for '%s', type '%s' (bits %d, mask size %d) is:", class_structure_type, class->name, bits_no, size); { int i; for (i = 0; i < size; i++) printf (" %lx", mask[i]); } puts (""); #endif class->gc_object_type = (void *) GC_make_descriptor (mask, bits_no); } /* Returns YES if type denotes a pointer type, NO otherwise */ static inline BOOL __objc_ivar_pointer (const char *type) { type = objc_skip_type_qualifiers (type); return (*type == _C_ID || *type == _C_CLASS || *type == _C_SEL || *type == _C_PTR || *type == _C_CHARPTR || *type == _C_ATOM); } /* Mark the instance variable whose name is given by ivarname as a weak pointer (a pointer hidden to the garbage collector) if gc_invisible is true. If gc_invisible is false it unmarks the instance variable and makes it a normal pointer, visible to the garbage collector. This operation only makes sense on instance variables that are pointers. */ void class_ivar_set_gcinvisible (Class class, const char *ivarname, BOOL gc_invisible) { int i, ivar_count; struct objc_ivar_list *ivars; if (! class || ! ivarname) return; ivars = class->ivars; if (! ivars) return; ivar_count = ivars->ivar_count; for (i = 0; i < ivar_count; i++) { struct objc_ivar *ivar = &(ivars->ivar_list[i]); const char *type; if (! ivar->ivar_name || strcmp (ivar->ivar_name, ivarname)) continue; assert (ivar->ivar_type); type = ivar->ivar_type; /* Skip the variable name */ if (*type == '"') { for (type++; *type++ != '"';) /* do nothing */; } if (*type == _C_GCINVISIBLE) { char *new_type; if (gc_invisible || ! __objc_ivar_pointer (type)) return; /* The type of the variable already matches the requested gc_invisible type */ /* The variable is gc_invisible and we have to reverse it */ new_type = objc_atomic_malloc (strlen (ivar->ivar_type)); strncpy (new_type, ivar->ivar_type, (size_t)(type - ivar->ivar_type)); strcat (new_type, type + 1); ivar->ivar_type = new_type; } else { char *new_type; if (! gc_invisible || ! __objc_ivar_pointer (type)) return; /* The type of the variable already matches the requested gc_invisible type */ /* The variable is gc visible and we have to make it gc_invisible */ new_type = objc_malloc (strlen (ivar->ivar_type) + 2); strncpy (new_type, ivar->ivar_type, (size_t)(type - ivar->ivar_type)); strcat (new_type, "!"); strcat (new_type, type); ivar->ivar_type = new_type; } __objc_generate_gc_type_description (class); return; } /* Search the instance variable in the superclasses */ class_ivar_set_gcinvisible (class->super_class, ivarname, gc_invisible); } #else /* !OBJC_WITH_GC */ void __objc_generate_gc_type_description (Class class __attribute__ ((__unused__))) { } void class_ivar_set_gcinvisible (Class class __attribute__ ((__unused__)), const char *ivarname __attribute__ ((__unused__)), BOOL gc_invisible __attribute__ ((__unused__))) { } #endif /* OBJC_WITH_GC */ Index: vendor/gcc/dist/contrib/libobjc/hash.c =================================================================== --- vendor/gcc/dist/contrib/libobjc/hash.c (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/hash.c (revision 132722) @@ -1,283 +1,283 @@ /* Hash tables for Objective C internal structures Copyright (C) 1993, 1996, 1997 Free Software Foundation, Inc. -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, +GCC is distributed in the hope that it will be useful, but WITHOUT 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 -along with GNU CC; see the file COPYING. If not, write to +along with GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #include "assert.h" #include "hash.h" #include "runtime.h" /* for DEBUG_PRINTF */ /* These two macros determine when a hash table is full and by how much it should be expanded respectively. These equations are percentages. */ #define FULLNESS(cache) \ ((((cache)->size * 75) / 100) <= (cache)->used) #define EXPANSION(cache) \ ((cache)->size * 2) cache_ptr hash_new (unsigned int size, hash_func_type hash_func, compare_func_type compare_func) { cache_ptr cache; /* Pass me a value greater than 0 and a power of 2. */ assert (size); assert (! (size & (size - 1))); /* Allocate the cache structure. calloc insures its initialization for default values. */ cache = (cache_ptr) objc_calloc (1, sizeof (struct cache)); assert (cache); /* Allocate the array of buckets for the cache. calloc initializes all of the pointers to NULL. */ cache->node_table = (node_ptr *) objc_calloc (size, sizeof (node_ptr)); assert (cache->node_table); cache->size = size; /* This should work for all processor architectures? */ cache->mask = (size - 1); /* Store the hashing function so that codes can be computed. */ cache->hash_func = hash_func; /* Store the function that compares hash keys to determine if they are equal. */ cache->compare_func = compare_func; return cache; } void hash_delete (cache_ptr cache) { node_ptr node; node_ptr next_node; unsigned int i; /* Purge all key/value pairs from the table. */ /* Step through the nodes one by one and remove every node WITHOUT using hash_next. this makes hash_delete much more efficient. */ for (i = 0;i < cache->size;i++) { if ((node = cache->node_table[i])) { /* an entry in the hash table has been found, now step through the nodes next in the list and free them. */ while ((next_node = node->next)) { hash_remove (cache,node->key); node = next_node; } hash_remove (cache,node->key); } } /* Release the array of nodes and the cache itself. */ objc_free(cache->node_table); objc_free(cache); } void hash_add (cache_ptr *cachep, const void *key, void *value) { size_t indx = (*(*cachep)->hash_func)(*cachep, key); node_ptr node = (node_ptr) objc_calloc (1, sizeof (struct cache_node)); assert (node); /* Initialize the new node. */ node->key = key; node->value = value; node->next = (*cachep)->node_table[indx]; /* Debugging. Check the list for another key. */ #ifdef DEBUG { node_ptr node1 = (*cachep)->node_table[indx]; while (node1) { assert (node1->key != key); node1 = node1->next; } } #endif /* Install the node as the first element on the list. */ (*cachep)->node_table[indx] = node; /* Bump the number of entries in the cache. */ ++(*cachep)->used; /* Check the hash table's fullness. We're going to expand if it is above the fullness level. */ if (FULLNESS (*cachep)) { /* The hash table has reached its fullness level. Time to expand it. I'm using a slow method here but is built on other primitive functions thereby increasing its correctness. */ node_ptr node1 = NULL; cache_ptr new = hash_new (EXPANSION (*cachep), (*cachep)->hash_func, (*cachep)->compare_func); DEBUG_PRINTF ("Expanding cache %#x from %d to %d\n", *cachep, (*cachep)->size, new->size); /* Copy the nodes from the first hash table to the new one. */ while ((node1 = hash_next (*cachep, node1))) hash_add (&new, node1->key, node1->value); /* Trash the old cache. */ hash_delete (*cachep); /* Return a pointer to the new hash table. */ *cachep = new; } } void hash_remove (cache_ptr cache, const void *key) { size_t indx = (*cache->hash_func)(cache, key); node_ptr node = cache->node_table[indx]; /* We assume there is an entry in the table. Error if it is not. */ assert (node); /* Special case. First element is the key/value pair to be removed. */ if ((*cache->compare_func)(node->key, key)) { cache->node_table[indx] = node->next; objc_free(node); } else { /* Otherwise, find the hash entry. */ node_ptr prev = node; BOOL removed = NO; do { if ((*cache->compare_func)(node->key, key)) { prev->next = node->next, removed = YES; objc_free(node); } else prev = node, node = node->next; } while (! removed && node); assert (removed); } /* Decrement the number of entries in the hash table. */ --cache->used; } node_ptr hash_next (cache_ptr cache, node_ptr node) { /* If the scan is being started then reset the last node visitied pointer and bucket index. */ if (! node) cache->last_bucket = 0; /* If there is a node visited last then check for another entry in the same bucket; Otherwise step to the next bucket. */ if (node) { if (node->next) /* There is a node which follows the last node returned. Step to that node and retun it. */ return node->next; else ++cache->last_bucket; } /* If the list isn't exhausted then search the buckets for other nodes. */ if (cache->last_bucket < cache->size) { /* Scan the remainder of the buckets looking for an entry at the head of the list. Return the first item found. */ while (cache->last_bucket < cache->size) if (cache->node_table[cache->last_bucket]) return cache->node_table[cache->last_bucket]; else ++cache->last_bucket; /* No further nodes were found in the hash table. */ return NULL; } else return NULL; } /* Given KEY, return corresponding value for it in CACHE. Return NULL if the KEY is not recorded. */ void * hash_value_for_key (cache_ptr cache, const void *key) { node_ptr node = cache->node_table[(*cache->hash_func)(cache, key)]; void *retval = NULL; if (node) do { if ((*cache->compare_func)(node->key, key)) { retval = node->value; break; } else node = node->next; } while (! retval && node); return retval; } /* Given KEY, return YES if it exists in the CACHE. Return NO if it does not */ BOOL hash_is_key_in_hash (cache_ptr cache, const void *key) { node_ptr node = cache->node_table[(*cache->hash_func)(cache, key)]; if (node) do { if ((*cache->compare_func)(node->key, key)) return YES; else node = node->next; } while (node); return NO; } Index: vendor/gcc/dist/contrib/libobjc/init.c =================================================================== --- vendor/gcc/dist/contrib/libobjc/init.c (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/init.c (revision 132722) @@ -1,854 +1,891 @@ /* GNU Objective C Runtime initialization Copyright (C) 1993, 1995, 1996, 1997, 2002 Free Software Foundation, Inc. Contributed by Kresten Krab Thorup +load support contributed by Ovidiu Predescu -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify it under the +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, but WITHOUT ANY +GCC is distributed in the hope that it will be useful, but WITHOUT 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 along with -GNU CC; see the file COPYING. If not, write to the Free Software +GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #include "runtime.h" /* The version number of this runtime. This must match the number defined in gcc (objc-act.c). */ #define OBJC_VERSION 8 #define PROTOCOL_VERSION 2 /* This list contains all modules currently loaded into the runtime. */ static struct objc_list *__objc_module_list = 0; /* !T:MUTEX */ /* This list contains all proto_list's not yet assigned class links. */ static struct objc_list *unclaimed_proto_list = 0; /* !T:MUTEX */ /* List of unresolved static instances. */ static struct objc_list *uninitialized_statics = 0; /* !T:MUTEX */ /* Global runtime "write" mutex. */ objc_mutex_t __objc_runtime_mutex = 0; /* Number of threads that are alive. */ int __objc_runtime_threads_alive = 1; /* !T:MUTEX */ /* Check compiler vs runtime version. */ static void init_check_module_version (Module_t); /* Assign isa links to protos. */ static void __objc_init_protocols (struct objc_protocol_list *protos); /* Add protocol to class. */ static void __objc_class_add_protocols (Class, struct objc_protocol_list *); /* This is a hook which is called by __objc_exec_class every time a class or a category is loaded into the runtime. This may e.g. help a dynamic loader determine the classes that have been loaded when an object file is dynamically linked in. */ void (*_objc_load_callback) (Class class, Category *category); /* !T:SAFE */ /* Is all categories/classes resolved? */ BOOL __objc_dangling_categories = NO; /* !T:UNUSED */ extern SEL __sel_register_typed_name (const char *name, const char *types, struct objc_selector *orig, BOOL is_const); /* Sends +load to all classes and categories in certain situations. */ static void objc_send_load (void); /* Inserts all the classes defined in module in a tree of classes that resembles the class hierarchy. This tree is traversed in preorder and the classes in its nodes receive the +load message if these methods were not executed before. The algorithm ensures that when the +load method of a class is executed all the superclasses have been already received the +load message. */ static void __objc_create_classes_tree (Module_t module); static void __objc_call_callback (Module_t module); /* A special version that works only before the classes are completely installed in the runtime. */ static BOOL class_is_subclass_of_class (Class class, Class superclass); typedef struct objc_class_tree { Class class; struct objc_list *subclasses; /* `head' is pointer to an objc_class_tree */ } objc_class_tree; /* This is a linked list of objc_class_tree trees. The head of these trees are root classes (their super class is Nil). These different trees represent different class hierarchies. */ static struct objc_list *__objc_class_tree_list = NULL; /* Keeps the +load methods who have been already executed. This hash should not be destroyed during the execution of the program. */ static cache_ptr __objc_load_methods = NULL; +/* This function is used when building the class tree used to send + ordinately the +load message to all classes needing it. The tree + is really needed so that superclasses will get the message before + subclasses. + + This tree will contain classes which are being loaded (or have just + being loaded), and whose super_class pointers have not yet been + resolved. This implies that their super_class pointers point to a + string with the name of the superclass; when the first message is + sent to the class (/an object of that class) the class links will + be resolved, which will replace the super_class pointers with + pointers to the actual superclasses. + + Unfortunately, the tree might also contain classes which had been + loaded previously, and whose class links have already been + resolved. + + This function returns the superclass of a class in both cases, and + can be used to build the determine the class relationships while + building the tree. +*/ +static Class class_superclass_of_class (Class class) +{ + char *super_class_name; + + /* If the class links have been resolved, use the resolved + * links. */ + if (CLS_ISRESOLV (class)) + return class->super_class; + + /* Else, 'class' has not yet been resolved. This means that its + * super_class pointer is really the name of the super class (rather + * than a pointer to the actual superclass). */ + super_class_name = (char *)class->super_class; + + /* Return Nil for a root class. */ + if (super_class_name == NULL) + return Nil; + + /* Lookup the superclass of non-root classes. */ + return objc_lookup_class (super_class_name); +} + + /* Creates a tree of classes whose topmost class is directly inherited from `upper' and the bottom class in this tree is `bottom_class'. The classes in this tree are super classes of `bottom_class'. `subclasses' member of each tree node point to the next subclass tree node. */ static objc_class_tree * create_tree_of_subclasses_inherited_from (Class bottom_class, Class upper) { Class superclass = bottom_class->super_class ? objc_lookup_class ((char *) bottom_class->super_class) : Nil; objc_class_tree *tree, *prev; DEBUG_PRINTF ("create_tree_of_subclasses_inherited_from:"); DEBUG_PRINTF ("bottom_class = %s, upper = %s\n", (bottom_class ? bottom_class->name : NULL), (upper ? upper->name : NULL)); tree = prev = objc_calloc (1, sizeof (objc_class_tree)); prev->class = bottom_class; while (superclass != upper) { tree = objc_calloc (1, sizeof (objc_class_tree)); tree->class = superclass; tree->subclasses = list_cons (prev, tree->subclasses); - superclass = (superclass->super_class ? - objc_lookup_class ((char *) superclass->super_class) - : Nil); + superclass = class_superclass_of_class (superclass); prev = tree; } return tree; } /* Insert the `class' into the proper place in the `tree' class hierarchy. This function returns a new tree if the class has been successfully inserted into the tree or NULL if the class is not part of the classes hierarchy described by `tree'. This function is private to objc_tree_insert_class (), you should not call it directly. */ static objc_class_tree * __objc_tree_insert_class (objc_class_tree *tree, Class class) { DEBUG_PRINTF ("__objc_tree_insert_class: tree = %x, class = %s\n", tree, class->name); if (tree == NULL) return create_tree_of_subclasses_inherited_from (class, NULL); else if (class == tree->class) { /* `class' has been already inserted */ DEBUG_PRINTF ("1. class %s was previously inserted\n", class->name); return tree; } - else if ((class->super_class ? - objc_lookup_class ((char *) class->super_class) - : Nil) - == tree->class) + else if (class_superclass_of_class (class) == tree->class) { /* If class is a direct subclass of tree->class then add class to the list of subclasses. First check to see if it wasn't already inserted. */ struct objc_list *list = tree->subclasses; objc_class_tree *node; while (list) { /* Class has been already inserted; do nothing just return the tree. */ if (((objc_class_tree *) list->head)->class == class) { DEBUG_PRINTF ("2. class %s was previously inserted\n", class->name); return tree; } list = list->tail; } /* Create a new node class and insert it into the list of subclasses */ node = objc_calloc (1, sizeof (objc_class_tree)); node->class = class; tree->subclasses = list_cons (node, tree->subclasses); DEBUG_PRINTF ("3. class %s inserted\n", class->name); return tree; } else { /* The class is not a direct subclass of tree->class. Search for class's superclasses in the list of subclasses. */ struct objc_list *subclasses = tree->subclasses; /* Precondition: the class must be a subclass of tree->class; otherwise return NULL to indicate our caller that it must take the next tree. */ if (! class_is_subclass_of_class (class, tree->class)) return NULL; for (; subclasses != NULL; subclasses = subclasses->tail) { Class aClass = ((objc_class_tree *) (subclasses->head))->class; if (class_is_subclass_of_class (class, aClass)) { /* If we found one of class's superclasses we insert the class into its subtree and return the original tree since nothing has been changed. */ subclasses->head = __objc_tree_insert_class (subclasses->head, class); DEBUG_PRINTF ("4. class %s inserted\n", class->name); return tree; } } /* We haven't found a subclass of `class' in the `subclasses' list. Create a new tree of classes whose topmost class is a direct subclass of tree->class. */ { objc_class_tree *new_tree = create_tree_of_subclasses_inherited_from (class, tree->class); tree->subclasses = list_cons (new_tree, tree->subclasses); DEBUG_PRINTF ("5. class %s inserted\n", class->name); return tree; } } } /* This function inserts `class' in the right tree hierarchy classes. */ static void objc_tree_insert_class (Class class) { struct objc_list *list_node; objc_class_tree *tree; list_node = __objc_class_tree_list; while (list_node) { tree = __objc_tree_insert_class (list_node->head, class); if (tree) { list_node->head = tree; break; } else list_node = list_node->tail; } /* If the list was finished but the class hasn't been inserted, insert it here. */ if (! list_node) { __objc_class_tree_list = list_cons (NULL, __objc_class_tree_list); __objc_class_tree_list->head = __objc_tree_insert_class (NULL, class); } } /* Traverse tree in preorder. Used to send +load. */ static void objc_preorder_traverse (objc_class_tree *tree, int level, void (*function) (objc_class_tree *, int)) { struct objc_list *node; (*function) (tree, level); for (node = tree->subclasses; node; node = node->tail) objc_preorder_traverse (node->head, level + 1, function); } /* Traverse tree in postorder. Used to destroy a tree. */ static void objc_postorder_traverse (objc_class_tree *tree, int level, void (*function) (objc_class_tree *, int)) { struct objc_list *node; for (node = tree->subclasses; node; node = node->tail) objc_postorder_traverse (node->head, level + 1, function); (*function) (tree, level); } /* Used to print a tree class hierarchy. */ #ifdef DEBUG static void __objc_tree_print (objc_class_tree *tree, int level) { int i; for (i = 0; i < level; i++) printf (" "); printf ("%s\n", tree->class->name); } #endif /* Walks on a linked list of methods in the reverse order and executes all the methods corresponding to `op' selector. Walking in the reverse order assures the +load of class is executed first and then +load of categories because of the way in which categories are added to the class methods. */ static void __objc_send_message_in_list (MethodList_t method_list, Class class, SEL op) { int i; if (! method_list) return; /* First execute the `op' message in the following method lists */ __objc_send_message_in_list (method_list->method_next, class, op); /* Search the method list. */ for (i = 0; i < method_list->method_count; i++) { Method_t mth = &method_list->method_list[i]; if (mth->method_name && sel_eq (mth->method_name, op) && ! hash_is_key_in_hash (__objc_load_methods, mth->method_imp)) { /* Add this method into the +load hash table */ hash_add (&__objc_load_methods, mth->method_imp, mth->method_imp); DEBUG_PRINTF ("sending +load in class: %s\n", class->name); /* The method was found and wasn't previously executed. */ (*mth->method_imp) ((id)class, mth->method_name); break; } } } static void __objc_send_load (objc_class_tree *tree, int level __attribute__ ((__unused__))) { static SEL load_sel = 0; Class class = tree->class; MethodList_t method_list = class->class_pointer->methods; if (! load_sel) load_sel = sel_register_name ("load"); __objc_send_message_in_list (method_list, class, load_sel); } static void __objc_destroy_class_tree_node (objc_class_tree *tree, int level __attribute__ ((__unused__))) { objc_free (tree); } /* This is used to check if the relationship between two classes before the runtime completely installs the classes. */ static BOOL class_is_subclass_of_class (Class class, Class superclass) { for (; class != Nil;) { if (class == superclass) return YES; - class = (class->super_class ? - objc_lookup_class ((char *) class->super_class) - : Nil); + class = class_superclass_of_class (class); } return NO; } /* This list contains all the classes in the runtime system for whom their superclasses are not yet known to the runtime. */ static struct objc_list *unresolved_classes = 0; /* Extern function used to reference the Object and NXConstantString classes. */ extern void __objc_force_linking (void); void __objc_force_linking (void) { extern void __objc_linking (void); __objc_linking (); } /* Run through the statics list, removing modules as soon as all its statics have been initialized. */ static void objc_init_statics (void) { struct objc_list **cell = &uninitialized_statics; struct objc_static_instances **statics_in_module; objc_mutex_lock (__objc_runtime_mutex); while (*cell) { int module_initialized = 1; for (statics_in_module = (*cell)->head; *statics_in_module; statics_in_module++) { struct objc_static_instances *statics = *statics_in_module; Class class = objc_lookup_class (statics->class_name); if (! class) module_initialized = 0; /* Actually, the static's class_pointer will be NULL when we haven't been here before. However, the comparison is to be reminded of taking into account class posing and to think about possible semantics... */ else if (class != statics->instances[0]->class_pointer) { id *inst; for (inst = &statics->instances[0]; *inst; inst++) { (*inst)->class_pointer = class; /* ??? Make sure the object will not be freed. With refcounting, invoke `-retain'. Without refcounting, do nothing and hope that `-free' will never be invoked. */ /* ??? Send the object an `-initStatic' or something to that effect now or later on? What are the semantics of statically allocated instances, besides the trivial NXConstantString, anyway? */ } } } if (module_initialized) { /* Remove this module from the uninitialized list. */ struct objc_list *this = *cell; *cell = this->tail; objc_free (this); } else cell = &(*cell)->tail; } objc_mutex_unlock (__objc_runtime_mutex); } /* objc_init_statics */ /* This function is called by constructor functions generated for each module compiled. (_GLOBAL_$I$...) The purpose of this function is to gather the module pointers so that they may be processed by the initialization routines as soon as possible. */ void __objc_exec_class (Module_t module) { /* Have we processed any constructors previously? This flag is used to indicate that some global data structures need to be built. */ static BOOL previous_constructors = 0; static struct objc_list *unclaimed_categories = 0; /* The symbol table (defined in objc-api.h) generated by gcc */ Symtab_t symtab = module->symtab; /* The statics in this module */ struct objc_static_instances **statics = symtab->defs[symtab->cls_def_cnt + symtab->cat_def_cnt]; /* Entry used to traverse hash lists */ struct objc_list **cell; /* The table of selector references for this module */ SEL selectors = symtab->refs; /* dummy counter */ int i; DEBUG_PRINTF ("received module: %s\n", module->name); /* check gcc version */ init_check_module_version (module); /* On the first call of this routine, initialize some data structures. */ if (! previous_constructors) { /* Initialize thread-safe system */ __objc_init_thread_system (); __objc_runtime_threads_alive = 1; __objc_runtime_mutex = objc_mutex_allocate (); __objc_init_selector_tables (); __objc_init_class_tables (); __objc_init_dispatch_tables (); __objc_class_tree_list = list_cons (NULL, __objc_class_tree_list); __objc_load_methods = hash_new (128, (hash_func_type)hash_ptr, compare_ptrs); previous_constructors = 1; } /* Save the module pointer for later processing. (not currently used) */ objc_mutex_lock (__objc_runtime_mutex); __objc_module_list = list_cons (module, __objc_module_list); /* Replace referenced selectors from names to SEL's. */ if (selectors) { for (i = 0; selectors[i].sel_id; ++i) { const char *name, *type; name = (char *) selectors[i].sel_id; type = (char *) selectors[i].sel_types; /* Constructors are constant static data so we can safely store pointers to them in the runtime structures. is_const == YES */ __sel_register_typed_name (name, type, (struct objc_selector *) &(selectors[i]), YES); } } /* Parse the classes in the load module and gather selector information. */ DEBUG_PRINTF ("gathering selectors from module: %s\n", module->name); for (i = 0; i < symtab->cls_def_cnt; ++i) { Class class = (Class) symtab->defs[i]; const char *superclass = (char *) class->super_class; /* Make sure we have what we think. */ assert (CLS_ISCLASS (class)); assert (CLS_ISMETA (class->class_pointer)); DEBUG_PRINTF ("phase 1, processing class: %s\n", class->name); /* Initialize the subclass list to be NULL. In some cases it isn't and this crashes the program. */ class->subclass_list = NULL; /* Store the class in the class table and assign class numbers. */ __objc_add_class_to_hash (class); /* Register all of the selectors in the class and meta class. */ __objc_register_selectors_from_class (class); __objc_register_selectors_from_class ((Class) class->class_pointer); /* Install the fake dispatch tables */ __objc_install_premature_dtable (class); __objc_install_premature_dtable (class->class_pointer); /* Register the instance methods as class methods, this is only done for root classes. */ __objc_register_instance_methods_to_class (class); if (class->protocols) __objc_init_protocols (class->protocols); /* Check to see if the superclass is known in this point. If it's not add the class to the unresolved_classes list. */ if (superclass && ! objc_lookup_class (superclass)) unresolved_classes = list_cons (class, unresolved_classes); } /* Process category information from the module. */ for (i = 0; i < symtab->cat_def_cnt; ++i) { Category_t category = symtab->defs[i + symtab->cls_def_cnt]; Class class = objc_lookup_class (category->class_name); /* If the class for the category exists then append its methods. */ if (class) { DEBUG_PRINTF ("processing categories from (module,object): %s, %s\n", module->name, class->name); /* Do instance methods. */ if (category->instance_methods) class_add_method_list (class, category->instance_methods); /* Do class methods. */ if (category->class_methods) class_add_method_list ((Class) class->class_pointer, category->class_methods); if (category->protocols) { __objc_init_protocols (category->protocols); __objc_class_add_protocols (class, category->protocols); } /* Register the instance methods as class methods, this is only done for root classes. */ __objc_register_instance_methods_to_class (class); } else { /* The object to which the category methods belong can't be found. Save the information. */ unclaimed_categories = list_cons (category, unclaimed_categories); } } if (statics) uninitialized_statics = list_cons (statics, uninitialized_statics); if (uninitialized_statics) objc_init_statics (); /* Scan the unclaimed category hash. Attempt to attach any unclaimed categories to objects. */ for (cell = &unclaimed_categories; *cell; ) { Category_t category = (*cell)->head; Class class = objc_lookup_class (category->class_name); if (class) { DEBUG_PRINTF ("attaching stored categories to object: %s\n", class->name); list_remove_head (cell); if (category->instance_methods) class_add_method_list (class, category->instance_methods); if (category->class_methods) class_add_method_list ((Class) class->class_pointer, category->class_methods); if (category->protocols) { __objc_init_protocols (category->protocols); __objc_class_add_protocols (class, category->protocols); } /* Register the instance methods as class methods, this is only done for root classes. */ __objc_register_instance_methods_to_class (class); } else cell = &(*cell)->tail; } if (unclaimed_proto_list && objc_lookup_class ("Protocol")) { list_mapcar (unclaimed_proto_list, (void (*) (void *))__objc_init_protocols); list_free (unclaimed_proto_list); unclaimed_proto_list = 0; } objc_send_load (); objc_mutex_unlock (__objc_runtime_mutex); } static void objc_send_load (void) { if (! __objc_module_list) return; /* Try to find out if all the classes loaded so far also have their superclasses known to the runtime. We suppose that the objects that are allocated in the +load method are in general of a class declared in the same module. */ if (unresolved_classes) { Class class = unresolved_classes->head; while (objc_lookup_class ((char *) class->super_class)) { list_remove_head (&unresolved_classes); if (unresolved_classes) class = unresolved_classes->head; else break; } /* If we still have classes for whom we don't have yet their super classes known to the runtime we don't send the +load messages. */ if (unresolved_classes) return; } /* Special check to allow creating and sending messages to constant strings in +load methods. If these classes are not yet known, even if all the other classes are known, delay sending of +load. */ if (! objc_lookup_class ("NXConstantString") || ! objc_lookup_class ("Object")) return; /* Iterate over all modules in the __objc_module_list and call on them the __objc_create_classes_tree function. This function creates a tree of classes that resembles the class hierarchy. */ list_mapcar (__objc_module_list, (void (*) (void *)) __objc_create_classes_tree); while (__objc_class_tree_list) { #ifdef DEBUG objc_preorder_traverse (__objc_class_tree_list->head, 0, __objc_tree_print); #endif objc_preorder_traverse (__objc_class_tree_list->head, 0, __objc_send_load); objc_postorder_traverse (__objc_class_tree_list->head, 0, __objc_destroy_class_tree_node); list_remove_head (&__objc_class_tree_list); } list_mapcar (__objc_module_list, (void (*) (void *)) __objc_call_callback); list_free (__objc_module_list); __objc_module_list = NULL; } static void __objc_create_classes_tree (Module_t module) { /* The runtime mutex is locked in this point */ Symtab_t symtab = module->symtab; int i; /* Iterate thru classes defined in this module and insert them in the classes tree hierarchy. */ for (i = 0; i < symtab->cls_def_cnt; i++) { Class class = (Class) symtab->defs[i]; objc_tree_insert_class (class); } } static void __objc_call_callback (Module_t module) { /* The runtime mutex is locked in this point. */ Symtab_t symtab = module->symtab; int i; /* Iterate thru classes defined in this module and call the callback for each one. */ for (i = 0; i < symtab->cls_def_cnt; i++) { Class class = (Class) symtab->defs[i]; /* Call the _objc_load_callback for this class. */ if (_objc_load_callback) _objc_load_callback (class, 0); } /* Call the _objc_load_callback for categories. Don't register the instance methods as class methods for categories to root classes since they were already added in the class. */ for (i = 0; i < symtab->cat_def_cnt; i++) { Category_t category = symtab->defs[i + symtab->cls_def_cnt]; Class class = objc_lookup_class (category->class_name); if (_objc_load_callback) _objc_load_callback (class, category); } } /* Sanity check the version of gcc used to compile `module'. */ static void init_check_module_version (Module_t module) { if ((module->version != OBJC_VERSION) || (module->size != sizeof (Module))) { int code; if (module->version > OBJC_VERSION) code = OBJC_ERR_OBJC_VERSION; else if (module->version < OBJC_VERSION) code = OBJC_ERR_GCC_VERSION; else code = OBJC_ERR_MODULE_SIZE; objc_error (nil, code, "Module %s version %d doesn't match runtime %d\n", module->name, (int)module->version, OBJC_VERSION); } } static void __objc_init_protocols (struct objc_protocol_list *protos) { size_t i; static Class proto_class = 0; if (! protos) return; objc_mutex_lock (__objc_runtime_mutex); if (! proto_class) proto_class = objc_lookup_class ("Protocol"); if (! proto_class) { unclaimed_proto_list = list_cons (protos, unclaimed_proto_list); objc_mutex_unlock (__objc_runtime_mutex); return; } #if 0 assert (protos->next == 0); /* only single ones allowed */ #endif for (i = 0; i < protos->count; i++) { struct objc_protocol *aProto = protos->list[i]; if (((size_t)aProto->class_pointer) == PROTOCOL_VERSION) { /* assign class pointer */ aProto->class_pointer = proto_class; /* init super protocols */ __objc_init_protocols (aProto->protocol_list); } else if (protos->list[i]->class_pointer != proto_class) { objc_error (nil, OBJC_ERR_PROTOCOL_VERSION, "Version %d doesn't match runtime protocol version %d\n", (int) ((char *) protos->list[i]->class_pointer - (char *) 0), PROTOCOL_VERSION); } } objc_mutex_unlock (__objc_runtime_mutex); } static void __objc_class_add_protocols (Class class, struct objc_protocol_list *protos) { /* Well... */ if (! protos) return; /* Add it... */ protos->next = class->protocols; class->protocols = protos; } Index: vendor/gcc/dist/contrib/libobjc/libobjc.def =================================================================== --- vendor/gcc/dist/contrib/libobjc/libobjc.def (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/libobjc.def (revision 132722) @@ -1,163 +1,163 @@ ; GNU Objective C Runtime DLL Export Definitions ; Copyright (C) 1997 Free Software Foundation, Inc. ; Contributed by Scott Christley ; -; This file is part of GNU CC. +; This file is part of GCC. ; -; GNU CC is free software; you can redistribute it and/or modify it under the +; GCC is free software; you can redistribute it and/or modify it under the ; terms of the GNU General Public License as published by the Free Software ; Foundation; either version 2, or (at your option) any later version. ; -; GNU CC is distributed in the hope that it will be useful, but WITHOUT ANY +; GCC is distributed in the hope that it will be useful, but WITHOUT 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 along with -; GNU CC; see the file COPYING. If not, write to the Free Software +; GCC; see the file COPYING. If not, write to the Free Software ; Foundation, 59 Temple Place - Suite 330, ; Boston, MA 02111-1307, USA. LIBRARY libobjc EXPORTS search_for_method_in_list objc_get_uninstalled_dtable hash_is_key_in_hash objc_verror _objc_load_callback objc_malloc objc_atomic_malloc objc_valloc objc_realloc objc_calloc objc_free __objc_init_thread_system objc_mutex_allocate objc_mutex_deallocate objc_mutex_lock objc_mutex_trylock objc_mutex_unlock objc_thread_detach objc_thread_exit objc_thread_get_data objc_thread_get_priority objc_thread_id objc_thread_set_data objc_thread_set_priority objc_thread_yield objc_thread_add objc_thread_remove __objc_class_name_Object __objc_class_name_Protocol __objc_class_name_NXConstantString objc_error __objc_object_alloc __objc_object_copy __objc_object_dispose class_create_instance object_copy object_dispose __objc_init_selector_tables __objc_register_selectors_from_class __sel_register_typed_name sel_get_any_typed_uid sel_get_any_uid sel_get_name sel_get_type sel_get_typed_uid sel_get_uid sel_is_mapped sel_register_name sel_register_typed_name sel_types_match method_get_first_argument method_get_next_argument method_get_nth_argument method_get_number_of_arguments method_get_sizeof_arguments objc_aligned_size objc_alignof_type objc_get_type_qualifiers objc_promoted_size objc_sizeof_type objc_skip_argspec objc_skip_offset objc_skip_type_qualifiers objc_skip_typespec __objc_read_nbyte_uint __objc_read_nbyte_ulong __objc_write_class __objc_write_object __objc_write_selector objc_close_typed_stream objc_end_of_typed_stream objc_flush_typed_stream objc_get_stream_class_version objc_open_typed_stream objc_open_typed_stream_for_file objc_read_array objc_read_char objc_read_int objc_read_long objc_read_object objc_read_selector objc_read_short objc_read_string objc_read_type objc_read_types objc_read_unsigned_char objc_read_unsigned_int objc_read_unsigned_long objc_read_unsigned_short objc_write_array objc_write_char objc_write_int objc_write_long objc_write_object objc_write_object_reference objc_write_root_object objc_write_selector objc_write_short objc_write_string objc_write_string_atomic objc_write_type objc_write_types objc_write_unsigned_char objc_write_unsigned_int objc_write_unsigned_long objc_write_unsigned_short __objc_exec_class __objc_init_dispatch_tables __objc_install_premature_dtable __objc_print_dtable_stats __objc_responds_to __objc_update_dispatch_table_for_class class_add_method_list class_get_class_method class_get_instance_method get_imp nil_method objc_msg_lookup objc_msg_lookup_super objc_msg_sendv __objc_add_class_to_hash __objc_init_class_tables __objc_resolve_class_links class_pose_as objc_get_class objc_get_meta_class objc_lookup_class objc_next_class sarray_at_put sarray_at_put_safe sarray_free sarray_lazy_copy sarray_new sarray_realloc sarray_remove_garbage hash_add hash_delete hash_new hash_next hash_remove hash_value_for_key Index: vendor/gcc/dist/contrib/libobjc/libobjc_entry.c =================================================================== --- vendor/gcc/dist/contrib/libobjc/libobjc_entry.c (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/libobjc_entry.c (revision 132722) @@ -1,55 +1,55 @@ /* GNU Objective C Runtime DLL Entry Copyright (C) 1997 Free Software Foundation, Inc. Contributed by Scott Christley -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify it +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, but WITHOUT +GCC is distributed in the hope that it will be useful, but WITHOUT 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 -along with GNU CC; see the file COPYING. If not, write to the Free +along with GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #include /* DLL entry function for Objective-C Runtime library This function gets called everytime a process/thread attaches to DLL */ WINBOOL WINAPI DllMain(HANDLE hInst, ULONG ul_reason_for_call, LPVOID lpReserved) { switch(ul_reason_for_call) { case DLL_PROCESS_ATTACH: break; case DLL_PROCESS_DETACH: break; case DLL_THREAD_ATTACH: break; case DLL_THREAD_DETACH: break; } return TRUE; } /* This section terminates the list of imports under GCC. If you do not include this then you will have problems when linking with DLLs. */ asm (".section .idata$3\n" ".long 0,0,0,0,0,0,0,0"); Index: vendor/gcc/dist/contrib/libobjc/linking.m =================================================================== --- vendor/gcc/dist/contrib/libobjc/linking.m (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/linking.m (revision 132722) @@ -1,40 +1,40 @@ /* Force linking of classes required by Objective C runtime. Copyright (C) 1997 Free Software Foundation, Inc. Contributed by Ovidiu Predescu (ovidiu@net-community.com). -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, +GCC is distributed in the hope that it will be useful, but WITHOUT 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 -along with GNU CC; see the file COPYING. If not, write to +along with GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #include #include /* Generate references to Object and NXConstanstString classes since they are needed by the runtime system to run correctly. */ void __objc_linking (void) { [Object name]; [NXConstantString name]; } Index: vendor/gcc/dist/contrib/libobjc/makefile.dos =================================================================== --- vendor/gcc/dist/contrib/libobjc/makefile.dos (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/makefile.dos (revision 132722) @@ -1,56 +1,56 @@ # GNU Objective C Runtime Makefile for compiling with djgpp # Copyright (C) 1993, 1994, 1996 Free Software Foundation, Inc. # -# This file is part of GNU CC. +# This file is part of GCC. # -# GNU CC is free software; you can redistribute it and/or modify it under the +# GCC is free software; you can redistribute it and/or modify it under the # terms of the GNU General Public License as published by the Free Software # Foundation; either version 2, or (at your option) any later version. # -# GNU CC is distributed in the hope that it will be useful, but WITHOUT ANY +# GCC is distributed in the hope that it will be useful, but WITHOUT 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 along with -# GNU CC; see the file COPYING. If not, write to the Free Software +# GCC; see the file COPYING. If not, write to the Free Software # Foundation, 59 Temple Place - Suite 330, # Boston, MA 02111-1307, USA. # This Makefile is configured for GnuMAKE GCC_FOR_TARGET=gcc .SUFFIXES: .o .m OPTIMIZE = -O2 # Always search these dirs when compiling. SUBDIR_INCLUDES = -I. -I.. -I../config .c.o: $(GCC_FOR_TARGET) $(OPTIMIZE) \ -c $(GCC_CFLAGS) $(SUBDIR_INCLUDES) $< .m.o: $(GCC_FOR_TARGET) $(OPTIMIZE) -fgnu-runtime \ -c $(GCC_CFLAGS) $(SUBDIR_INCLUDES) $< OBJC_O = hash.o sarray.o class.o sendmsg.o init.o archive.o \ selector.o objects.o misc.o object.o protocol.o encoding.o thread.o libobjc.a: $(OBJC_O) -rm -f libobjc.a ar rc libobjc.a $(OBJC_O) ranlib libobjc.a OBJC_H = hash.h objc-list.h sarray.h objc.h \ objc-api.h \ object.h protocol.h mutex.h \ typedstream.h thread.h mostlyclean: -rm -f *.o libobjc.a xforward fflags clean: mostlyclean distclean: mostlyclean extraclean: mostlyclean Index: vendor/gcc/dist/contrib/libobjc/misc.c =================================================================== --- vendor/gcc/dist/contrib/libobjc/misc.c (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/misc.c (revision 132722) @@ -1,185 +1,185 @@ /* GNU Objective C Runtime Miscellaneous Copyright (C) 1993, 1994, 1995, 1996, 1997, 2002 Free Software Foundation, Inc. Contributed by Kresten Krab Thorup -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify it +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, but WITHOUT +GCC is distributed in the hope that it will be useful, but WITHOUT 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 -along with GNU CC; see the file COPYING. If not, write to the Free +along with GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #define __USE_FIXED_PROTOTYPES__ #include #include "runtime.h" /* ** Error handler function ** NULL so that default is to just print to stderr */ static objc_error_handler _objc_error_handler = NULL; /* Trigger an objc error */ void objc_error (id object, int code, const char *fmt, ...) { va_list ap; va_start (ap, fmt); objc_verror (object, code, fmt, ap); va_end (ap); } /* Trigger an objc error */ void objc_verror (id object, int code, const char *fmt, va_list ap) { BOOL result = NO; /* Call the error handler if its there Otherwise print to stderr */ if (_objc_error_handler) result = (*_objc_error_handler) (object, code, fmt, ap); else vfprintf (stderr, fmt, ap); /* Continue if the error handler says its ok Otherwise abort the program */ if (result) return; else abort (); } /* Set the error handler */ objc_error_handler objc_set_error_handler (objc_error_handler func) { objc_error_handler temp = _objc_error_handler; _objc_error_handler = func; return temp; } /* ** Standard functions for memory allocation and disposal. ** Users should use these functions in their ObjC programs so ** that they work properly with garbage collectors as well as ** can take advantage of the exception/error handling available. */ void * objc_malloc (size_t size) { void *res = (void *) (*_objc_malloc) (size); if (! res) objc_error (nil, OBJC_ERR_MEMORY, "Virtual memory exhausted\n"); return res; } void * objc_atomic_malloc (size_t size) { void *res = (void *) (*_objc_atomic_malloc) (size); if (! res) objc_error (nil, OBJC_ERR_MEMORY, "Virtual memory exhausted\n"); return res; } void * objc_valloc (size_t size) { void *res = (void *) (*_objc_valloc) (size); if (! res) objc_error (nil, OBJC_ERR_MEMORY, "Virtual memory exhausted\n"); return res; } void * objc_realloc (void *mem, size_t size) { void *res = (void *) (*_objc_realloc) (mem, size); if (! res) objc_error (nil, OBJC_ERR_MEMORY, "Virtual memory exhausted\n"); return res; } void * objc_calloc (size_t nelem, size_t size) { void *res = (void *) (*_objc_calloc) (nelem, size); if (! res) objc_error (nil, OBJC_ERR_MEMORY, "Virtual memory exhausted\n"); return res; } void objc_free (void *mem) { (*_objc_free) (mem); } /* ** Hook functions for memory allocation and disposal. ** This makes it easy to substitute garbage collection systems ** such as Boehm's GC by assigning these function pointers ** to the GC's allocation routines. By default these point ** to the ANSI standard malloc, realloc, free, etc. ** ** Users should call the normal objc routines above for ** memory allocation and disposal within their programs. */ #if OBJC_WITH_GC #include static void * GC_calloc (size_t nelem, size_t size) { void *p = GC_malloc (nelem * size); if (! p) objc_error (nil, OBJC_ERR_MEMORY, "Virtual memory exhausted!\n"); memset (p, 0, nelem * size); return p; } static void noFree (void *p) { } void *(*_objc_malloc) (size_t) = GC_malloc; void *(*_objc_atomic_malloc) (size_t) = GC_malloc_atomic; void *(*_objc_valloc) (size_t) = GC_malloc; void *(*_objc_realloc) (void *, size_t) = GC_realloc; void *(*_objc_calloc) (size_t, size_t) = GC_calloc; void (*_objc_free) (void *) = noFree; #else /* !OBJC_WITH_GC */ void *(*_objc_malloc) (size_t) = malloc; void *(*_objc_atomic_malloc) (size_t) = malloc; void *(*_objc_valloc) (size_t) = malloc; void *(*_objc_realloc) (void *, size_t) = realloc; void *(*_objc_calloc) (size_t, size_t) = calloc; void (*_objc_free) (void *) = free; #endif /* !OBJC_WITH_GC */ Index: vendor/gcc/dist/contrib/libobjc/nil_method.c =================================================================== --- vendor/gcc/dist/contrib/libobjc/nil_method.c (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/nil_method.c (revision 132722) @@ -1,55 +1,55 @@ /* GNU Objective C Runtime nil receiver function Copyright (C) 1993, 1995, 1996, 2002 Free Software Foundation, Inc. Contributed by Kresten Krab Thorup -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify it under the +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, but WITHOUT ANY +GCC is distributed in the hope that it will be useful, but WITHOUT 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 along with -GNU CC; see the file COPYING. If not, write to the Free Software +GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ /* This is the nil method, the function that is called when the receiver of a method is nil */ #include "runtime.h" /* When the receiver of a method invocation is nil, the runtime returns nil_method() as the method implementation. This function will be casted to whatever function was supposed to be executed to execute that method (that function will take an id, followed by a SEL, followed by who knows what arguments, depends on the method), and executed. For this reason, nil_method() should be a function which can be called in place of any function taking an 'id' argument followed by a 'SEL' argument, followed by zero, or one, or any number of arguments (both a fixed number, or a variable number !). There is no "proper" implementation of such a nil_method function in C, however in all existing implementations it does not matter when extra arguments are present, so we can simply create a function taking a receiver and a selector, and all other arguments will be ignored. :-) */ id nil_method (id receiver, SEL op __attribute__ ((__unused__))) { return receiver; } Index: vendor/gcc/dist/contrib/libobjc/objc/NXConstStr.h =================================================================== --- vendor/gcc/dist/contrib/libobjc/objc/NXConstStr.h (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/objc/NXConstStr.h (revision 132722) @@ -1,44 +1,44 @@ /* Interface for the NXConstantString class for Objective-C. Copyright (C) 1995 Free Software Foundation, Inc. Contributed by Pieter J. Schoenmakers -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify it +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, but WITHOUT +GCC is distributed in the hope that it will be useful, but WITHOUT 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 -along with GNU CC; see the file COPYING. If not, write to +along with GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #ifndef __nxconstantstring_INCLUDE_GNU #define __nxconstantstring_INCLUDE_GNU #include "objc/Object.h" @interface NXConstantString: Object { char *c_string; unsigned int len; } -(const char *) cString; -(unsigned int) length; @end #endif Index: vendor/gcc/dist/contrib/libobjc/objc/Object.h =================================================================== --- vendor/gcc/dist/contrib/libobjc/objc/Object.h (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/objc/Object.h (revision 132722) @@ -1,124 +1,124 @@ /* Interface for the Object class for Objective-C. Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc. -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify it +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, but WITHOUT +GCC is distributed in the hope that it will be useful, but WITHOUT 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 -along with GNU CC; see the file COPYING. If not, write to +along with GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #ifndef __object_INCLUDE_GNU #define __object_INCLUDE_GNU #include #include /* * All classes are derived from Object. As such, * this is the overhead tacked onto those objects. */ @interface Object { Class isa; /* A pointer to the instance's class structure */ } /* Initializing classes and instances */ + initialize; - init; /* Creating, freeing, and copying instances */ + new; + alloc; - free; - copy; - shallowCopy; - deepen; - deepCopy; /* Identifying classes */ - (Class)class; - (Class)superClass; - (MetaClass)metaClass; - (const char *)name; /* Identifying and comparing objects */ - self; - (unsigned int)hash; - (BOOL)isEqual:anObject; - (int)compare:anotherObject; /* Testing object type */ - (BOOL)isMetaClass; - (BOOL)isClass; - (BOOL)isInstance; /* Testing inheritance relationships */ - (BOOL)isKindOf:(Class)aClassObject; - (BOOL)isMemberOf:(Class)aClassObject; - (BOOL)isKindOfClassNamed:(const char *)aClassName; - (BOOL)isMemberOfClassNamed:(const char *)aClassName; /* Testing class functionality */ + (BOOL)instancesRespondTo:(SEL)aSel; - (BOOL)respondsTo:(SEL)aSel; /* Testing protocol conformance */ - (BOOL)conformsTo:(Protocol*)aProtocol; /* Introspection */ + (IMP)instanceMethodFor:(SEL)aSel; - (IMP)methodFor:(SEL)aSel; + (struct objc_method_description *)descriptionForInstanceMethod:(SEL)aSel; - (struct objc_method_description *)descriptionForMethod:(SEL)aSel; /* Sending messages determined at run time */ - perform:(SEL)aSel; - perform:(SEL)aSel with:anObject; - perform:(SEL)aSel with:anObject1 with:anObject2; /* Forwarding */ - (retval_t)forward:(SEL)aSel :(arglist_t)argFrame; - (retval_t)performv:(SEL)aSel :(arglist_t)argFrame; /* Posing */ + poseAs:(Class)aClassObject; - (Class)transmuteClassTo:(Class)aClassObject; /* Enforcing intentions */ - subclassResponsibility:(SEL)aSel; - notImplemented:(SEL)aSel; - shouldNotImplement:(SEL)aSel; /* Error handling */ - doesNotRecognize:(SEL)aSel; - error:(const char *)aString, ...; /* Archiving */ + (int)version; + setVersion:(int)aVersion; + (int)streamVersion: (TypedStream*)aStream; - read: (TypedStream*)aStream; - write: (TypedStream*)aStream; - awake; @end #endif Index: vendor/gcc/dist/contrib/libobjc/objc/Protocol.h =================================================================== --- vendor/gcc/dist/contrib/libobjc/objc/Protocol.h (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/objc/Protocol.h (revision 132722) @@ -1,58 +1,58 @@ /* Declare the class Protocol for Objective C programs. Copyright (C) 1993 Free Software Foundation, Inc. -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, +GCC is distributed in the hope that it will be useful, but WITHOUT 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 -along with GNU CC; see the file COPYING. If not, write to +along with GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #ifndef __Protocol_INCLUDE_GNU #define __Protocol_INCLUDE_GNU #include "objc/Object.h" @interface Protocol : Object { @private char *protocol_name; struct objc_protocol_list *protocol_list; struct objc_method_description_list *instance_methods, *class_methods; } /* Obtaining attributes intrinsic to the protocol */ - (const char *)name; /* Testing protocol conformance */ - (BOOL) conformsTo: (Protocol *)aProtocolObject; /* Looking up information specific to a protocol */ - (struct objc_method_description *) descriptionForInstanceMethod:(SEL)aSel; - (struct objc_method_description *) descriptionForClassMethod:(SEL)aSel; @end #endif /* not __Protocol_INCLUDE_GNU */ Index: vendor/gcc/dist/contrib/libobjc/objc/encoding.h =================================================================== --- vendor/gcc/dist/contrib/libobjc/objc/encoding.h (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/objc/encoding.h (revision 132722) @@ -1,99 +1,99 @@ /* Encoding of types for Objective C. Copyright (C) 1993, 1997, 2002 Free Software Foundation, Inc. Author: Kresten Krab Thorup -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, +GCC is distributed in the hope that it will be useful, but WITHOUT 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 -along with GNU CC; see the file COPYING. If not, write to +along with GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #ifndef __encoding_INCLUDE_GNU #define __encoding_INCLUDE_GNU #include #include "objc/objc-api.h" #define _C_CONST 'r' #define _C_IN 'n' #define _C_INOUT 'N' #define _C_OUT 'o' #define _C_BYCOPY 'O' #define _C_BYREF 'R' #define _C_ONEWAY 'V' #define _C_GCINVISIBLE '!' #define _F_CONST 0x01 #define _F_IN 0x01 #define _F_OUT 0x02 #define _F_INOUT 0x03 #define _F_BYCOPY 0x04 #define _F_BYREF 0x08 #define _F_ONEWAY 0x10 #define _F_GCINVISIBLE 0x20 int objc_aligned_size (const char *type); int objc_sizeof_type (const char *type); int objc_alignof_type (const char *type); int objc_aligned_size (const char *type); int objc_promoted_size (const char *type); const char *objc_skip_type_qualifiers (const char *type); const char *objc_skip_typespec (const char *type); const char *objc_skip_offset (const char *type); const char *objc_skip_argspec (const char *type); int method_get_number_of_arguments (struct objc_method *); int method_get_sizeof_arguments (struct objc_method *); char *method_get_first_argument (struct objc_method *, arglist_t argframe, const char **type); char *method_get_next_argument (arglist_t argframe, const char **type); char *method_get_nth_argument (struct objc_method *m, arglist_t argframe, int arg, const char **type); unsigned objc_get_type_qualifiers (const char *type); struct objc_struct_layout { const char *original_type; const char *type; const char *prev_type; unsigned int record_size; unsigned int record_align; }; void objc_layout_structure (const char *type, struct objc_struct_layout *layout); BOOL objc_layout_structure_next_member (struct objc_struct_layout *layout); void objc_layout_finish_structure (struct objc_struct_layout *layout, unsigned int *size, unsigned int *align); void objc_layout_structure_get_info (struct objc_struct_layout *layout, unsigned int *offset, unsigned int *align, const char **type); #endif /* __encoding_INCLUDE_GNU */ Index: vendor/gcc/dist/contrib/libobjc/objc/hash.h =================================================================== --- vendor/gcc/dist/contrib/libobjc/objc/hash.h (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/objc/hash.h (revision 132722) @@ -1,207 +1,207 @@ /* Hash tables for Objective C method dispatch. Copyright (C) 1993, 1995, 1996 Free Software Foundation, Inc. -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, +GCC is distributed in the hope that it will be useful, but WITHOUT 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 -along with GNU CC; see the file COPYING. If not, write to +along with GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #ifndef __hash_INCLUDE_GNU #define __hash_INCLUDE_GNU #include #include #include /* * This data structure is used to hold items * stored in a hash table. Each node holds * a key/value pair. * * Items in the cache are really of type void *. */ typedef struct cache_node { struct cache_node *next; /* Pointer to next entry on the list. NULL indicates end of list. */ const void *key; /* Key used to locate the value. Used to locate value when more than one key computes the same hash value. */ void *value; /* Value stored for the key. */ } *node_ptr; /* * This data type is the function that computes a hash code given a key. * Therefore, the key can be a pointer to anything and the function specific * to the key type. * * Unfortunately there is a mutual data structure reference problem with this * typedef. Therefore, to remove compiler warnings the functions passed to * hash_new will have to be casted to this type. */ typedef unsigned int (*hash_func_type) (void *, const void *); /* * This data type is the function that compares two hash keys and returns an * integer greater than, equal to, or less than 0, according as the first * parameter is lexicographically greater than, equal to, or less than the * second. */ typedef int (*compare_func_type) (const void *, const void *); /* * This data structure is the cache. * * It must be passed to all of the hashing routines * (except for new). */ typedef struct cache { /* Variables used to implement the hash itself. */ node_ptr *node_table; /* Pointer to an array of hash nodes. */ /* Variables used to track the size of the hash table so to determine when to resize it. */ unsigned int size; /* Number of buckets allocated for the hash table (number of array entries allocated for "node_table"). Must be a power of two. */ unsigned int used; /* Current number of entries in the hash table. */ unsigned int mask; /* Precomputed mask. */ /* Variables used to implement indexing through the hash table. */ unsigned int last_bucket; /* Tracks which entry in the array where the last value was returned. */ /* Function used to compute a hash code given a key. This function is specified when the hash table is created. */ hash_func_type hash_func; /* Function used to compare two hash keys to see if they are equal. */ compare_func_type compare_func; } *cache_ptr; /* Two important hash tables. */ extern cache_ptr module_hash_table, class_hash_table; /* Allocate and initialize a hash table. */ cache_ptr hash_new (unsigned int size, hash_func_type hash_func, compare_func_type compare_func); /* Deallocate all of the hash nodes and the cache itself. */ void hash_delete (cache_ptr cache); /* Add the key/value pair to the hash table. If the hash table reaches a level of fullness then it will be resized. assert if the key is already in the hash. */ void hash_add (cache_ptr *cachep, const void *key, void *value); /* Remove the key/value pair from the hash table. assert if the key isn't in the table. */ void hash_remove (cache_ptr cache, const void *key); /* Used to index through the hash table. Start with NULL to get the first entry. Successive calls pass the value returned previously. ** Don't modify the hash during this operation *** Cache nodes are returned such that key or value can be extracted. */ node_ptr hash_next (cache_ptr cache, node_ptr node); /* Used to return a value from a hash table using a given key. */ void *hash_value_for_key (cache_ptr cache, const void *key); /* Used to determine if the given key exists in the hash table */ BOOL hash_is_key_in_hash (cache_ptr cache, const void *key); /************************************************ Useful hashing functions. Declared inline for your pleasure. ************************************************/ /* Calculate a hash code by performing some manipulation of the key pointer. (Use the lowest bits except for those likely to be 0 due to alignment.) */ static inline unsigned int hash_ptr (cache_ptr cache, const void *key) { return ((size_t)key / sizeof (void *)) & cache->mask; } /* Calculate a hash code by iterating over a NULL terminate string. */ static inline unsigned int hash_string (cache_ptr cache, const void *key) { unsigned int ret = 0; unsigned int ctr = 0; + const char *ckey = key; - - while (*(char *) key) { - ret ^= *(char *) key++ << ctr; + while (*ckey) { + ret ^= *ckey++ << ctr; ctr = (ctr + 1) % sizeof (void *); } return ret & cache->mask; } /* Compare two pointers for equality. */ static inline int compare_ptrs (const void *k1, const void *k2) { - return ! (k1 - k2); + return (k1 == k2); } /* Compare two strings. */ static inline int compare_strings (const void *k1, const void *k2) { if (k1 == k2) return 1; else if (k1 == 0 || k2 == 0) return 0; else return ! strcmp (k1, k2); } #endif /* not __hash_INCLUDE_GNU */ Index: vendor/gcc/dist/contrib/libobjc/objc/objc-api.h =================================================================== --- vendor/gcc/dist/contrib/libobjc/objc/objc-api.h (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/objc/objc-api.h (revision 132722) @@ -1,607 +1,607 @@ /* GNU Objective-C Runtime API. Copyright (C) 1993, 1995, 1996, 1997, 2002 Free Software Foundation, Inc. -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify it +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, but WITHOUT +GCC is distributed in the hope that it will be useful, but WITHOUT 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 -along with GNU CC; see the file COPYING. If not, write to +along with GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #ifndef __objc_api_INCLUDE_GNU #define __objc_api_INCLUDE_GNU #include "objc/objc.h" #include "objc/hash.h" #include "objc/thr.h" #include #include /* For functions which return Method_t */ #define METHOD_NULL (Method_t)0 /* Boolean typedefs */ /* ** Method descriptor returned by introspective Object methods. ** This is really just the first part of the more complete objc_method ** structure defined below and used internally by the runtime. */ struct objc_method_description { SEL name; /* this is a selector, not a string */ char *types; /* type encoding */ }; /* Filer types used to describe Ivars and Methods. */ #define _C_ID '@' #define _C_CLASS '#' #define _C_SEL ':' #define _C_CHR 'c' #define _C_UCHR 'C' #define _C_SHT 's' #define _C_USHT 'S' #define _C_INT 'i' #define _C_UINT 'I' #define _C_LNG 'l' #define _C_ULNG 'L' #define _C_LNG_LNG 'q' #define _C_ULNG_LNG 'Q' #define _C_FLT 'f' #define _C_DBL 'd' #define _C_BFLD 'b' #define _C_VOID 'v' #define _C_UNDEF '?' #define _C_PTR '^' #define _C_CHARPTR '*' #define _C_ATOM '%' #define _C_ARY_B '[' #define _C_ARY_E ']' #define _C_UNION_B '(' #define _C_UNION_E ')' #define _C_STRUCT_B '{' #define _C_STRUCT_E '}' #define _C_VECTOR '!' /* ** Error handling ** ** Call objc_error() or objc_verror() to record an error; this error ** routine will generally exit the program but not necessarily if the ** user has installed his own error handler. ** ** Call objc_set_error_handler to assign your own function for ** handling errors. The function should return YES if it is ok ** to continue execution, or return NO or just abort if the ** program should be stopped. The default error handler is just to ** print a message on stderr. ** ** The error handler function should be of type objc_error_handler ** The first parameter is an object instance of relevance. ** The second parameter is an error code. ** The third parameter is a format string in the printf style. ** The fourth parameter is a variable list of arguments. */ extern void objc_error(id object, int code, const char* fmt, ...); extern void objc_verror(id object, int code, const char* fmt, va_list ap); typedef BOOL (*objc_error_handler)(id, int code, const char *fmt, va_list ap); objc_error_handler objc_set_error_handler(objc_error_handler func); /* ** Error codes ** These are used by the runtime library, and your ** error handling may use them to determine if the error is ** hard or soft thus whether execution can continue or abort. */ #define OBJC_ERR_UNKNOWN 0 /* Generic error */ #define OBJC_ERR_OBJC_VERSION 1 /* Incorrect runtime version */ #define OBJC_ERR_GCC_VERSION 2 /* Incorrect compiler version */ #define OBJC_ERR_MODULE_SIZE 3 /* Bad module size */ #define OBJC_ERR_PROTOCOL_VERSION 4 /* Incorrect protocol version */ #define OBJC_ERR_MEMORY 10 /* Out of memory */ #define OBJC_ERR_RECURSE_ROOT 20 /* Attempt to archive the root object more than once. */ #define OBJC_ERR_BAD_DATA 21 /* Didn't read expected data */ #define OBJC_ERR_BAD_KEY 22 /* Bad key for object */ #define OBJC_ERR_BAD_CLASS 23 /* Unknown class */ #define OBJC_ERR_BAD_TYPE 24 /* Bad type specification */ #define OBJC_ERR_NO_READ 25 /* Cannot read stream */ #define OBJC_ERR_NO_WRITE 26 /* Cannot write stream */ #define OBJC_ERR_STREAM_VERSION 27 /* Incorrect stream version */ #define OBJC_ERR_BAD_OPCODE 28 /* Bad opcode */ #define OBJC_ERR_UNIMPLEMENTED 30 /* Method is not implemented */ #define OBJC_ERR_BAD_STATE 40 /* Bad thread state */ /* ** Set this variable nonzero to print a line describing each ** message that is sent. (this is currently disabled) */ extern BOOL objc_trace; /* For every class which happens to have statically allocated instances in this module, one OBJC_STATIC_INSTANCES is allocated by the compiler. INSTANCES is NULL terminated and points to all statically allocated instances of this class. */ struct objc_static_instances { char *class_name; id instances[0]; }; /* ** Whereas a Module (defined further down) is the root (typically) of a file, ** a Symtab is the root of the class and category definitions within the ** module. ** ** A Symtab contains a variable length array of pointers to classes and ** categories defined in the module. */ typedef struct objc_symtab { unsigned long sel_ref_cnt; /* Unknown. */ SEL refs; /* Unknown. */ unsigned short cls_def_cnt; /* Number of classes compiled (defined) in the module. */ unsigned short cat_def_cnt; /* Number of categories compiled (defined) in the module. */ void *defs[1]; /* Variable array of pointers. cls_def_cnt of type Class followed by cat_def_cnt of type Category_t, followed by a NULL terminated array of objc_static_instances. */ } Symtab, *Symtab_t; /* ** The compiler generates one of these structures for each module that ** composes the executable (eg main.m). ** ** This data structure is the root of the definition tree for the module. ** ** A collect program runs between ld stages and creates a ObjC ctor array. ** That array holds a pointer to each module structure of the executable. */ typedef struct objc_module { unsigned long version; /* Compiler revision. */ unsigned long size; /* sizeof(Module). */ const char* name; /* Name of the file where the module was generated. The name includes the path. */ Symtab_t symtab; /* Pointer to the Symtab of the module. The Symtab holds an array of pointers to the classes and categories defined in the module. */ } Module, *Module_t; /* ** The compiler generates one of these structures for a class that has ** instance variables defined in its specification. */ typedef struct objc_ivar* Ivar_t; typedef struct objc_ivar_list { int ivar_count; /* Number of structures (Ivar) contained in the list. One structure per instance variable defined in the class. */ struct objc_ivar { const char* ivar_name; /* Name of the instance variable as entered in the class definition. */ const char* ivar_type; /* Description of the Ivar's type. Useful for debuggers. */ int ivar_offset; /* Byte offset from the base address of the instance structure to the variable. */ } ivar_list[1]; /* Variable length structure. */ } IvarList, *IvarList_t; /* ** The compiler generates one (or more) of these structures for a class that ** has methods defined in its specification. ** ** The implementation of a class can be broken into separate pieces in a file ** and categories can break them across modules. To handle this problem is a ** singly linked list of methods. */ typedef struct objc_method Method; typedef Method* Method_t; typedef struct objc_method_list { struct objc_method_list* method_next; /* This variable is used to link a method list to another. It is a singly linked list. */ int method_count; /* Number of methods defined in this structure. */ struct objc_method { SEL method_name; /* This variable is the method's name. It is a char*. The unique integer passed to objc_msg_send is a char* too. It is compared against method_name using strcmp. */ const char* method_types; /* Description of the method's parameter list. Useful for debuggers. */ IMP method_imp; /* Address of the method in the executable. */ } method_list[1]; /* Variable length structure. */ } MethodList, *MethodList_t; struct objc_protocol_list { struct objc_protocol_list *next; size_t count; Protocol *list[1]; }; /* ** This is used to assure consistent access to the info field of ** classes */ #ifndef HOST_BITS_PER_LONG #define HOST_BITS_PER_LONG (sizeof(long)*8) #endif #define __CLS_INFO(cls) ((cls)->info) #define __CLS_ISINFO(cls, mask) ((__CLS_INFO(cls)&mask)==mask) #define __CLS_SETINFO(cls, mask) (__CLS_INFO(cls) |= mask) /* The structure is of type MetaClass */ #define _CLS_META 0x2L #define CLS_ISMETA(cls) ((cls)&&__CLS_ISINFO(cls, _CLS_META)) /* The structure is of type Class */ #define _CLS_CLASS 0x1L #define CLS_ISCLASS(cls) ((cls)&&__CLS_ISINFO(cls, _CLS_CLASS)) /* ** The class is initialized within the runtime. This means that ** it has had correct super and sublinks assigned */ #define _CLS_RESOLV 0x8L #define CLS_ISRESOLV(cls) __CLS_ISINFO(cls, _CLS_RESOLV) #define CLS_SETRESOLV(cls) __CLS_SETINFO(cls, _CLS_RESOLV) /* ** The class has been send a +initialize message or a such is not ** defined for this class */ #define _CLS_INITIALIZED 0x04L #define CLS_ISINITIALIZED(cls) __CLS_ISINFO(cls, _CLS_INITIALIZED) #define CLS_SETINITIALIZED(cls) __CLS_SETINFO(cls, _CLS_INITIALIZED) /* ** The class number of this class. This must be the same for both the ** class and its meta class object */ #define CLS_GETNUMBER(cls) (__CLS_INFO(cls) >> (HOST_BITS_PER_LONG/2)) #define CLS_SETNUMBER(cls, num) \ ({ (cls)->info <<= (HOST_BITS_PER_LONG/2); \ (cls)->info >>= (HOST_BITS_PER_LONG/2); \ __CLS_SETINFO(cls, (((unsigned long)num) << (HOST_BITS_PER_LONG/2))); }) /* ** The compiler generates one of these structures for each category. A class ** may have many categories and contain both instance and factory methods. */ typedef struct objc_category { const char* category_name; /* Name of the category. Name contained in the () of the category definition. */ const char* class_name; /* Name of the class to which the category belongs. */ MethodList_t instance_methods; /* Linked list of instance methods defined in the category. NULL indicates no instance methods defined. */ MethodList_t class_methods; /* Linked list of factory methods defined in the category. NULL indicates no class methods defined. */ struct objc_protocol_list *protocols; /* List of Protocols conformed to */ } Category, *Category_t; /* ** Structure used when a message is send to a class's super class. The ** compiler generates one of these structures and passes it to ** objc_msg_super. */ typedef struct objc_super { id self; /* Id of the object sending the message. */ Class class; /* Object's super class. */ } Super, *Super_t; IMP objc_msg_lookup_super(Super_t super, SEL sel); retval_t objc_msg_sendv(id, SEL, arglist_t); /* ** This is a hook which is called by objc_lookup_class and ** objc_get_class if the runtime is not able to find the class. ** This may e.g. try to load in the class using dynamic loading. ** The function is guaranteed to be passed a non-NULL name string. */ extern Class (*_objc_lookup_class)(const char *name); /* ** This is a hook which is called by __objc_exec_class every time a class ** or a category is loaded into the runtime. This may e.g. help a ** dynamic loader determine the classes that have been loaded when ** an object file is dynamically linked in. */ extern void (*_objc_load_callback)(Class class, Category* category); /* ** Hook functions for allocating, copying and disposing of instances */ extern id (*_objc_object_alloc)(Class class); extern id (*_objc_object_copy)(id object); extern id (*_objc_object_dispose)(id object); /* ** Standard functions for memory allocation and disposal. ** Users should use these functions in their ObjC programs so ** that they work properly with garbage collectors as well as ** can take advantage of the exception/error handling available. */ void * objc_malloc(size_t size); void * objc_atomic_malloc(size_t size); void * objc_valloc(size_t size); void * objc_realloc(void *mem, size_t size); void * objc_calloc(size_t nelem, size_t size); void objc_free(void *mem); /* ** Hook functions for memory allocation and disposal. ** This makes it easy to substitute garbage collection systems ** such as Boehm's GC by assigning these function pointers ** to the GC's allocation routines. By default these point ** to the ANSI standard malloc, realloc, free, etc. ** ** Users should call the normal objc routines above for ** memory allocation and disposal within their programs. */ extern void *(*_objc_malloc)(size_t); extern void *(*_objc_atomic_malloc)(size_t); extern void *(*_objc_valloc)(size_t); extern void *(*_objc_realloc)(void *, size_t); extern void *(*_objc_calloc)(size_t, size_t); extern void (*_objc_free)(void *); /* ** Hook for method forwarding. This makes it easy to substitute a ** library, such as ffcall, that implements closures, thereby avoiding ** gcc's __builtin_apply problems. */ extern IMP (*__objc_msg_forward)(SEL); Method_t class_get_class_method(MetaClass class, SEL aSel); Method_t class_get_instance_method(Class class, SEL aSel); Class class_pose_as(Class impostor, Class superclass); Class objc_get_class(const char *name); Class objc_lookup_class(const char *name); Class objc_next_class(void **enum_state); const char *sel_get_name(SEL selector); const char *sel_get_type(SEL selector); SEL sel_get_uid(const char *name); SEL sel_get_any_uid(const char *name); SEL sel_get_any_typed_uid(const char *name); SEL sel_get_typed_uid(const char *name, const char*); SEL sel_register_name(const char *name); SEL sel_register_typed_name(const char *name, const char*type); BOOL sel_is_mapped (SEL aSel); extern id class_create_instance(Class class); static inline const char * class_get_class_name(Class class) { return CLS_ISCLASS(class)?class->name:((class==Nil)?"Nil":0); } static inline long class_get_instance_size(Class class) { return CLS_ISCLASS(class)?class->instance_size:0; } static inline MetaClass class_get_meta_class(Class class) { return CLS_ISCLASS(class)?class->class_pointer:Nil; } static inline Class class_get_super_class(Class class) { return CLS_ISCLASS(class)?class->super_class:Nil; } static inline int class_get_version(Class class) { return CLS_ISCLASS(class)?class->version:-1; } static inline BOOL class_is_class(Class class) { return CLS_ISCLASS(class); } static inline BOOL class_is_meta_class(Class class) { return CLS_ISMETA(class); } static inline void class_set_version(Class class, long version) { if (CLS_ISCLASS(class)) class->version = version; } static inline void * class_get_gc_object_type (Class class) { return CLS_ISCLASS(class) ? class->gc_object_type : NULL; } /* Mark the instance variable as innaccessible to the garbage collector */ extern void class_ivar_set_gcinvisible (Class class, const char* ivarname, BOOL gcInvisible); static inline IMP method_get_imp(Method_t method) { return (method!=METHOD_NULL)?method->method_imp:(IMP)0; } IMP get_imp (Class class, SEL sel); /* Redefine on NeXTSTEP so as not to conflict with system function */ #ifdef __NeXT__ #define object_copy gnu_object_copy #define object_dispose gnu_object_dispose #endif id object_copy(id object); id object_dispose(id object); static inline Class object_get_class(id object) { return ((object!=nil) ? (CLS_ISCLASS(object->class_pointer) ? object->class_pointer : (CLS_ISMETA(object->class_pointer) ? (Class)object : Nil)) : Nil); } static inline const char * object_get_class_name(id object) { return ((object!=nil)?(CLS_ISCLASS(object->class_pointer) ?object->class_pointer->name :((Class)object)->name) :"Nil"); } static inline MetaClass object_get_meta_class(id object) { return ((object!=nil)?(CLS_ISCLASS(object->class_pointer) ?object->class_pointer->class_pointer :(CLS_ISMETA(object->class_pointer) ?object->class_pointer :Nil)) :Nil); } static inline Class object_get_super_class (id object) { return ((object!=nil)?(CLS_ISCLASS(object->class_pointer) ?object->class_pointer->super_class :(CLS_ISMETA(object->class_pointer) ?((Class)object)->super_class :Nil)) :Nil); } static inline BOOL object_is_class (id object) { return ((object != nil) && CLS_ISMETA (object->class_pointer)); } static inline BOOL object_is_instance (id object) { return ((object != nil) && CLS_ISCLASS (object->class_pointer)); } static inline BOOL object_is_meta_class (id object) { return ((object != nil) && !object_is_instance (object) && !object_is_class (object)); } struct sarray* objc_get_uninstalled_dtable(void); #endif /* not __objc_api_INCLUDE_GNU */ Index: vendor/gcc/dist/contrib/libobjc/objc/objc-list.h =================================================================== --- vendor/gcc/dist/contrib/libobjc/objc/objc-list.h (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/objc/objc-list.h (revision 132722) @@ -1,147 +1,147 @@ /* Generic single linked list to keep various information Copyright (C) 1993, 1994, 1996 Free Software Foundation, Inc. Contributed by Kresten Krab Thorup. -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, +GCC is distributed in the hope that it will be useful, but WITHOUT 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 -along with GNU CC; see the file COPYING. If not, write to +along with GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #ifndef __GNU_OBJC_LIST_H #define __GNU_OBJC_LIST_H struct objc_list { void *head; struct objc_list *tail; }; /* Return a cons cell produced from (head . tail) */ static inline struct objc_list* list_cons(void* head, struct objc_list* tail) { struct objc_list* cell; cell = (struct objc_list*)objc_malloc(sizeof(struct objc_list)); cell->head = head; cell->tail = tail; return cell; } /* Return the length of a list, list_length(NULL) returns zero */ static inline int list_length(struct objc_list* list) { int i = 0; while(list) { i += 1; list = list->tail; } return i; } /* Return the Nth element of LIST, where N count from zero. If N larger than the list length, NULL is returned */ static inline void* -list_nth(int index, struct objc_list* list) +list_nth(int indx, struct objc_list* list) { - while(index-- != 0) + while(indx-- != 0) { if(list->tail) list = list->tail; else return 0; } return list->head; } /* Remove the element at the head by replacing it by its successor */ static inline void list_remove_head(struct objc_list** list) { if ((*list)->tail) { struct objc_list* tail = (*list)->tail; /* fetch next */ *(*list) = *tail; /* copy next to list head */ objc_free(tail); /* free next */ } else /* only one element in list */ { objc_free(*list); (*list) = 0; } } /* Remove the element with `car' set to ELEMENT */ static inline void list_remove_elem(struct objc_list** list, void* elem) { while (*list) { if ((*list)->head == elem) list_remove_head(list); list = &((*list)->tail); } } /* Map FUNCTION over all elements in LIST */ static inline void list_mapcar(struct objc_list* list, void(*function)(void*)) { while(list) { (*function)(list->head); list = list->tail; } } /* Return element that has ELEM as car */ static inline struct objc_list** list_find(struct objc_list** list, void* elem) { while(*list) { if ((*list)->head == elem) return list; list = &((*list)->tail); } return NULL; } /* Free list (backwards recursive) */ static void list_free(struct objc_list* list) { if(list) { list_free(list->tail); objc_free(list); } } #endif /* not __GNU_OBJC_LIST_H */ Index: vendor/gcc/dist/contrib/libobjc/objc/objc.h =================================================================== --- vendor/gcc/dist/contrib/libobjc/objc/objc.h (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/objc/objc.h (revision 132722) @@ -1,165 +1,165 @@ /* Basic data types for Objective C. Copyright (C) 1993, 1995, 1996 Free Software Foundation, Inc. -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, +GCC is distributed in the hope that it will be useful, but WITHOUT 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 -along with GNU CC; see the file COPYING. If not, write to +along with GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #ifndef __objc_INCLUDE_GNU #define __objc_INCLUDE_GNU #ifdef __cplusplus extern "C" { #endif #include /* ** Definition of the boolean type. */ #ifdef __vxworks typedef int BOOL; #else typedef unsigned char BOOL; #endif #define YES (BOOL)1 #define NO (BOOL)0 /* ** Definition of a selector. Selectors themselves are not unique, but ** the sel_id is a unique identifier. */ typedef const struct objc_selector { void *sel_id; const char *sel_types; } *SEL; inline static BOOL sel_eq (SEL s1, SEL s2) { if (s1 == 0 || s2 == 0) return s1 == s2; else return s1->sel_id == s2->sel_id; } /* ** ObjC uses this typedef for untyped instances. */ typedef struct objc_object { struct objc_class* class_pointer; } *id; /* ** Definition of method type. When retrieving the implementation of a ** method, this is type of the pointer returned. The idea of the ** definition of IMP is to represent a 'pointer to a general function ** taking an id, a SEL, followed by other unspecified arguments'. You ** must always cast an IMP to a pointer to a function taking the ** appropriate, specific types for that function, before calling it - ** to make sure the appropriate arguments are passed to it. The code ** generated by the compiler to perform method calls automatically ** does this cast inside method calls. */ typedef id (*IMP)(id, SEL, ...); /* ** More simple types... */ #define nil (id)0 /* id of Nil instance */ #define Nil (Class)0 /* id of Nil class */ typedef char *STR; /* String alias */ /* ** The compiler generates one of these structures for each class. ** ** This structure is the definition for classes. ** ** This structure is generated by the compiler in the executable and used by ** the run-time during normal messaging operations. Therefore some members ** change type. The compiler generates "char* const" and places a string in ** the following member variables: super_class. */ typedef struct objc_class *MetaClass; typedef struct objc_class *Class; struct objc_class { MetaClass class_pointer; /* Pointer to the class's meta class. */ struct objc_class* super_class; /* Pointer to the super class. NULL for class Object. */ const char* name; /* Name of the class. */ long version; /* Unknown. */ unsigned long info; /* Bit mask. See class masks defined above. */ long instance_size; /* Size in bytes of the class. The sum of the class definition and all super class definitions. */ struct objc_ivar_list* ivars; /* Pointer to a structure that describes the instance variables in the class definition. NULL indicates no instance variables. Does not include super class variables. */ struct objc_method_list* methods; /* Linked list of instance methods defined for the class. */ struct sarray * dtable; /* Pointer to instance method dispatch table. */ struct objc_class* subclass_list; /* Subclasses */ struct objc_class* sibling_class; struct objc_protocol_list *protocols; /* Protocols conformed to */ void* gc_object_type; }; #ifndef __OBJC__ typedef struct objc_protocol { struct objc_class* class_pointer; char *protocol_name; struct objc_protocol_list *protocol_list; struct objc_method_description_list *instance_methods, *class_methods; } Protocol; #else /* __OBJC__ */ @class Protocol; #endif typedef void* retval_t; /* return value */ typedef void(*apply_t)(void); /* function pointer */ typedef union { char *arg_ptr; char arg_regs[sizeof (char*)]; } *arglist_t; /* argument frame */ IMP objc_msg_lookup(id receiver, SEL op); #ifdef __cplusplus } #endif #endif /* not __objc_INCLUDE_GNU */ Index: vendor/gcc/dist/contrib/libobjc/objc/runtime.h =================================================================== --- vendor/gcc/dist/contrib/libobjc/objc/runtime.h (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/objc/runtime.h (revision 132722) @@ -1,89 +1,89 @@ /* GNU Objective C Runtime internal declarations Copyright (C) 1993, 1995, 1996, 1997, 2002 Free Software Foundation, Inc. Contributed by Kresten Krab Thorup -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify it under the +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, but WITHOUT ANY +GCC is distributed in the hope that it will be useful, but WITHOUT 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 along with -GNU CC; see the file COPYING. If not, write to the Free Software +GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #ifndef __objc_runtime_INCLUDE_GNU #define __objc_runtime_INCLUDE_GNU #include /* for varargs and va_list's */ #include #include #include /* so noone else will get system versions */ #include "assert.h" #include "objc/objc.h" /* core data types */ #include "objc/objc-api.h" /* runtime api functions */ #include "objc/thr.h" /* thread and mutex support */ #include "objc/hash.h" /* hash structures */ #include "objc/objc-list.h" /* linear lists */ extern void __objc_add_class_to_hash(Class); /* (objc-class.c) */ extern void __objc_init_selector_tables(void); /* (objc-sel.c) */ extern void __objc_init_class_tables(void); /* (objc-class.c) */ extern void __objc_init_dispatch_tables(void); /* (objc-dispatch.c) */ extern void __objc_install_premature_dtable(Class); /* (objc-dispatch.c) */ extern void __objc_resolve_class_links(void); /* (objc-class.c) */ extern void __objc_register_selectors_from_class(Class); /* (objc-sel.c) */ extern void __objc_update_dispatch_table_for_class (Class);/* (objc-msg.c) */ extern int __objc_init_thread_system(void); /* thread.c */ extern int __objc_fini_thread_system(void); /* thread.c */ extern void __objc_print_dtable_stats(void); /* sendmsg.c */ extern void class_add_method_list(Class, MethodList_t); /* Registering instance methods as class methods for root classes */ extern void __objc_register_instance_methods_to_class(Class); extern Method_t search_for_method_in_list(MethodList_t list, SEL op); /* True when class links has been resolved */ extern BOOL __objc_class_links_resolved; /* Number of selectors stored in each of the selector tables */ extern unsigned int __objc_selector_max_index; /* Mutex locking __objc_selector_max_index and its arrays. */ extern objc_mutex_t __objc_runtime_mutex; /* Number of threads which are alive. */ extern int __objc_runtime_threads_alive; #ifdef DEBUG #define DEBUG_PRINTF(format, args...) printf (format, ## args) #else #define DEBUG_PRINTF(format, args...) #endif BOOL __objc_responds_to (id object, SEL sel); /* for internal use only! */ SEL __sel_register_typed_name (const char*, const char*, struct objc_selector*, BOOL is_const); extern void __objc_generate_gc_type_description (Class); #endif /* not __objc_runtime_INCLUDE_GNU */ Index: vendor/gcc/dist/contrib/libobjc/objc/sarray.h =================================================================== --- vendor/gcc/dist/contrib/libobjc/objc/sarray.h (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/objc/sarray.h (revision 132722) @@ -1,237 +1,237 @@ /* Sparse Arrays for Objective C dispatch tables Copyright (C) 1993, 1995, 1996 Free Software Foundation, Inc. Contributed by Kresten Krab Thorup. -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, +GCC is distributed in the hope that it will be useful, but WITHOUT 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 -along with GNU CC; see the file COPYING. If not, write to +along with GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #ifndef __sarray_INCLUDE_GNU #define __sarray_INCLUDE_GNU #define OBJC_SPARSE2 /* 2-level sparse array */ /* #define OBJC_SPARSE3 */ /* 3-level sparse array */ #ifdef OBJC_SPARSE2 extern const char* __objc_sparse2_id; #endif #ifdef OBJC_SPARSE3 extern const char* __objc_sparse3_id; #endif #include #include "objc/thr.h" extern int nbuckets; /* for stats */ extern int nindices; extern int narrays; extern int idxsize; #include /* An unsigned integer of same size as a pointer */ #define SIZET_BITS (sizeof(size_t)*8) #if defined(__sparc__) || defined(OBJC_SPARSE2) #define PRECOMPUTE_SELECTORS #endif #ifdef OBJC_SPARSE3 /* Buckets are 8 words each */ #define BUCKET_BITS 3 #define BUCKET_SIZE (1< indices[x.off.ioffset]-> buckets[x.off.boffset]-> elems[x.off.eoffset]; #else /* OBJC_SPARSE2 */ return array->buckets[x.off.boffset]->elems[x.off.eoffset]; #endif /* OBJC_SPARSE2 */ #else /* not PRECOMPUTE_SELECTORS */ #ifdef OBJC_SPARSE3 return array-> - indices[index/INDEX_CAPACITY]-> - buckets[(index/BUCKET_SIZE)%INDEX_SIZE]-> - elems[index%BUCKET_SIZE]; + indices[indx/INDEX_CAPACITY]-> + buckets[(indx/BUCKET_SIZE)%INDEX_SIZE]-> + elems[indx%BUCKET_SIZE]; #else /* OBJC_SPARSE2 */ - return array->buckets[index/BUCKET_SIZE]->elems[index%BUCKET_SIZE]; + return array->buckets[indx/BUCKET_SIZE]->elems[indx%BUCKET_SIZE]; #endif /* not OBJC_SPARSE3 */ #endif /* not PRECOMPUTE_SELECTORS */ } -static inline void* sarray_get_safe(struct sarray* array, sidx index) +static inline void* sarray_get_safe(struct sarray* array, sidx indx) { - if(soffset_decode(index) < array->capacity) - return sarray_get(array, index); + if(soffset_decode(indx) < array->capacity) + return sarray_get(array, indx); else return (array->empty_bucket->elems[0]); } #endif /* __sarray_INCLUDE_GNU */ Index: vendor/gcc/dist/contrib/libobjc/objc/thr.h =================================================================== --- vendor/gcc/dist/contrib/libobjc/objc/thr.h (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/objc/thr.h (revision 132722) @@ -1,145 +1,145 @@ /* Thread and mutex controls for Objective C. Copyright (C) 1996, 1997, 2002 Free Software Foundation, Inc. Contributed by Galen C. Hunt (gchunt@cs.rochester.edu) -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, +GCC is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. -GNU CC is free software; you can redistribute it and/or modify it under the +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, but WITHOUT ANY +GCC is distributed in the hope that it will be useful, but WITHOUT 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 along with -GNU CC; see the file COPYING. If not, write to the Free Software +GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #ifndef __thread_INCLUDE_GNU #define __thread_INCLUDE_GNU #include "objc/objc.h" /************************************************************************* * Universal static variables: */ extern int __objc_thread_exit_status; /* Global exit status. */ /******** * Thread safe implementation types and functions. */ /* Thread priorities */ #define OBJC_THREAD_INTERACTIVE_PRIORITY 2 #define OBJC_THREAD_BACKGROUND_PRIORITY 1 #define OBJC_THREAD_LOW_PRIORITY 0 /* A thread */ typedef void * objc_thread_t; /* This structure represents a single mutual exclusion lock. */ struct objc_mutex { volatile objc_thread_t owner; /* Id of thread that owns. */ volatile int depth; /* # of acquires. */ void * backend; /* Specific to backend */ }; typedef struct objc_mutex *objc_mutex_t; /* This structure represents a single condition mutex */ struct objc_condition { void * backend; /* Specific to backend */ }; typedef struct objc_condition *objc_condition_t; /* Frontend mutex functions */ objc_mutex_t objc_mutex_allocate (void); int objc_mutex_deallocate (objc_mutex_t mutex); int objc_mutex_lock (objc_mutex_t mutex); int objc_mutex_unlock (objc_mutex_t mutex); int objc_mutex_trylock (objc_mutex_t mutex); /* Frontend condition mutex functions */ objc_condition_t objc_condition_allocate (void); int objc_condition_deallocate (objc_condition_t condition); int objc_condition_wait (objc_condition_t condition, objc_mutex_t mutex); int objc_condition_signal (objc_condition_t condition); int objc_condition_broadcast (objc_condition_t condition); /* Frontend thread functions */ objc_thread_t objc_thread_detach (SEL selector, id object, id argument); void objc_thread_yield (void); int objc_thread_exit (void); int objc_thread_set_priority (int priority); int objc_thread_get_priority (void); void * objc_thread_get_data (void); int objc_thread_set_data (void *value); objc_thread_t objc_thread_id (void); void objc_thread_add (void); void objc_thread_remove (void); /* Use this to set the hook function that will be called when the runtime initially becomes multi threaded. The hook function is only called once, meaning only when the 2nd thread is spawned, not for each and every thread. It returns the previous hook function or NULL if there is none. A program outside of the runtime could set this to some function so it can be informed; for example, the GNUstep Base Library sets it so it can implement the NSBecomingMultiThreaded notification. */ typedef void (*objc_thread_callback) (void); objc_thread_callback objc_set_thread_callback (objc_thread_callback func); /* Backend initialization functions */ int __objc_init_thread_system (void); int __objc_fini_thread_system (void); /* Backend mutex functions */ int __objc_mutex_allocate (objc_mutex_t mutex); int __objc_mutex_deallocate (objc_mutex_t mutex); int __objc_mutex_lock (objc_mutex_t mutex); int __objc_mutex_trylock (objc_mutex_t mutex); int __objc_mutex_unlock (objc_mutex_t mutex); /* Backend condition mutex functions */ int __objc_condition_allocate (objc_condition_t condition); int __objc_condition_deallocate (objc_condition_t condition); int __objc_condition_wait (objc_condition_t condition, objc_mutex_t mutex); int __objc_condition_broadcast (objc_condition_t condition); int __objc_condition_signal (objc_condition_t condition); /* Backend thread functions */ objc_thread_t __objc_thread_detach (void (*func) (void *arg), void *arg); int __objc_thread_set_priority (int priority); int __objc_thread_get_priority (void); void __objc_thread_yield (void); int __objc_thread_exit (void); objc_thread_t __objc_thread_id (void); int __objc_thread_set_data (void *value); void * __objc_thread_get_data (void); #endif /* not __thread_INCLUDE_GNU */ Index: vendor/gcc/dist/contrib/libobjc/objc/typedstream.h =================================================================== --- vendor/gcc/dist/contrib/libobjc/objc/typedstream.h (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/objc/typedstream.h (revision 132722) @@ -1,132 +1,132 @@ /* GNU Objective-C Typed Streams interface. Copyright (C) 1993, 1995 Free Software Foundation, Inc. -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify it +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, but WITHOUT +GCC is distributed in the hope that it will be useful, but WITHOUT 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 -along with GNU CC; see the file COPYING. If not, write to +along with GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #ifndef __typedstream_INCLUDE_GNU #define __typedstream_INCLUDE_GNU #include "objc/objc.h" #include "objc/hash.h" #include typedef int (*objc_typed_read_func)(void*, char*, int); typedef int (*objc_typed_write_func)(void*, const char*, int); typedef int (*objc_typed_flush_func)(void*); typedef int (*objc_typed_eof_func)(void*); #define OBJC_READONLY 0x01 #define OBJC_WRITEONLY 0x02 #define OBJC_MANAGED_STREAM 0x01 #define OBJC_FILE_STREAM 0x02 #define OBJC_MEMORY_STREAM 0x04 #define OBJC_TYPED_STREAM_VERSION 0x01 typedef struct objc_typed_stream { void* physical; cache_ptr object_table; /* read/written objects */ cache_ptr stream_table; /* other read/written but shared things.. */ cache_ptr class_table; /* class version mapping */ cache_ptr object_refs; /* forward references */ int mode; /* OBJC_READONLY or OBJC_WRITEONLY */ int type; /* MANAGED, FILE, MEMORY etc bit string */ int version; /* version used when writing */ int writing_root_p; objc_typed_read_func read; objc_typed_write_func write; objc_typed_eof_func eof; objc_typed_flush_func flush; } TypedStream; /* opcode masks */ #define _B_VALUE 0x1fU #define _B_CODE 0xe0U #define _B_SIGN 0x10U #define _B_NUMBER 0x0fU /* standard opcodes */ #define _B_INVALID 0x00U #define _B_SINT 0x20U #define _B_NINT 0x40U #define _B_SSTR 0x60U #define _B_NSTR 0x80U #define _B_RCOMM 0xa0U #define _B_UCOMM 0xc0U #define _B_EXT 0xe0U /* eXtension opcodes */ #define _BX_OBJECT 0x00U #define _BX_CLASS 0x01U #define _BX_SEL 0x02U #define _BX_OBJREF 0x03U #define _BX_OBJROOT 0x04U #define _BX_EXT 0x1fU /* ** Read and write objects as specified by TYPE. All the `last' ** arguments are pointers to the objects to read/write. */ int objc_write_type (TypedStream* stream, const char* type, const void* data); int objc_read_type (TypedStream* stream, const char* type, void* data); int objc_write_types (TypedStream* stream, const char* type, ...); int objc_read_types (TypedStream* stream, const char* type, ...); int objc_write_object_reference (TypedStream* stream, id object); int objc_write_root_object (TypedStream* stream, id object); long objc_get_stream_class_version (TypedStream* stream, Class class); /* ** Convenience functions */ int objc_write_array (TypedStream* stream, const char* type, int count, const void* data); int objc_read_array (TypedStream* stream, const char* type, int count, void* data); int objc_write_object (TypedStream* stream, id object); int objc_read_object (TypedStream* stream, id* object); /* ** Open a typed stream for reading or writing. MODE may be either of ** OBJC_READONLY or OBJC_WRITEONLY. */ TypedStream* objc_open_typed_stream (FILE* physical, int mode); TypedStream* objc_open_typed_stream_for_file (const char* file_name, int mode); void objc_close_typed_stream (TypedStream* stream); BOOL objc_end_of_typed_stream (TypedStream* stream); void objc_flush_typed_stream (TypedStream* stream); #endif /* not __typedstream_INCLUDE_GNU */ Index: vendor/gcc/dist/contrib/libobjc/objects.c =================================================================== --- vendor/gcc/dist/contrib/libobjc/objects.c (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/objects.c (revision 132722) @@ -1,103 +1,103 @@ /* GNU Objective C Runtime class related functions Copyright (C) 1993, 1995, 1996 Free Software Foundation, Inc. Contributed by Kresten Krab Thorup -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify it under the +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, but WITHOUT ANY +GCC is distributed in the hope that it will be useful, but WITHOUT 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 along with -GNU CC; see the file COPYING. If not, write to the Free Software +GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #include "tconfig.h" /* include defs of bzero for target */ #include "objc.h" #include "runtime.h" /* the kitchen sink */ #if OBJC_WITH_GC # include #endif id __objc_object_alloc (Class); id __objc_object_dispose (id); id __objc_object_copy (id); id (*_objc_object_alloc) (Class) = __objc_object_alloc; /* !T:SINGLE */ id (*_objc_object_dispose) (id) = __objc_object_dispose; /* !T:SINGLE */ id (*_objc_object_copy) (id) = __objc_object_copy; /* !T:SINGLE */ id class_create_instance (Class class) { id new = nil; #if OBJC_WITH_GC if (CLS_ISCLASS (class)) new = (id) GC_malloc_explicitly_typed (class->instance_size, class->gc_object_type); #else if (CLS_ISCLASS (class)) new = (*_objc_object_alloc) (class); #endif if (new != nil) { memset (new, 0, class->instance_size); new->class_pointer = class; } return new; } id object_copy (id object) { if ((object != nil) && CLS_ISCLASS (object->class_pointer)) return (*_objc_object_copy) (object); else return nil; } id object_dispose (id object) { if ((object != nil) && CLS_ISCLASS (object->class_pointer)) { if (_objc_object_dispose) (*_objc_object_dispose) (object); else objc_free (object); } return nil; } id __objc_object_alloc (Class class) { return (id) objc_malloc (class->instance_size); } id __objc_object_dispose (id object) { objc_free (object); return 0; } id __objc_object_copy (id object) { id copy = class_create_instance (object->class_pointer); memcpy (copy, object, object->class_pointer->instance_size); return copy; } Index: vendor/gcc/dist/contrib/libobjc/sarray.c =================================================================== --- vendor/gcc/dist/contrib/libobjc/sarray.c (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/sarray.c (revision 132722) @@ -1,515 +1,516 @@ /* Sparse Arrays for Objective C dispatch tables Copyright (C) 1993, 1995, 1996, 2002 Free Software Foundation, Inc. -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, +GCC is distributed in the hope that it will be useful, but WITHOUT 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 -along with GNU CC; see the file COPYING. If not, write to +along with GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #include "sarray.h" #include "runtime.h" #include #include "assert.h" int nbuckets = 0; /* !T:MUTEX */ int nindices = 0; /* !T:MUTEX */ int narrays = 0; /* !T:MUTEX */ int idxsize = 0; /* !T:MUTEX */ static void *first_free_data = NULL; /* !T:MUTEX */ #ifdef OBJC_SPARSE2 const char *__objc_sparse2_id = "2 level sparse indices"; #endif #ifdef OBJC_SPARSE3 const char *__objc_sparse3_id = "3 level sparse indices"; #endif /* This function removes any structures left over from free operations that were not safe in a multi-threaded environment. */ void sarray_remove_garbage (void) { void **vp; void *np; objc_mutex_lock (__objc_runtime_mutex); vp = first_free_data; first_free_data = NULL; while (vp) { np = *vp; objc_free (vp); vp = np; } objc_mutex_unlock (__objc_runtime_mutex); } /* Free a block of dynamically allocated memory. If we are in multi-threaded mode, it is ok to free it. If not, we add it to the garbage heap to be freed later. */ static void sarray_free_garbage (void *vp) { objc_mutex_lock (__objc_runtime_mutex); if (__objc_runtime_threads_alive == 1) { objc_free (vp); if (first_free_data) sarray_remove_garbage (); } else { *(void **)vp = first_free_data; first_free_data = vp; } objc_mutex_unlock (__objc_runtime_mutex); } /* sarray_at_put : copies data in such a way as to be thread reader safe. */ void sarray_at_put (struct sarray *array, sidx index, void *element) { #ifdef OBJC_SPARSE3 struct sindex **the_index; struct sindex *new_index; #endif struct sbucket **the_bucket; struct sbucket *new_bucket; #ifdef OBJC_SPARSE3 size_t ioffset; #endif size_t boffset; size_t eoffset; #ifdef PRECOMPUTE_SELECTORS union sofftype xx; xx.idx = index; #ifdef OBJC_SPARSE3 ioffset = xx.off.ioffset; #endif boffset = xx.off.boffset; eoffset = xx.off.eoffset; #else /* not PRECOMPUTE_SELECTORS */ #ifdef OBJC_SPARSE3 ioffset = index/INDEX_CAPACITY; boffset = (index/BUCKET_SIZE)%INDEX_SIZE; eoffset = index%BUCKET_SIZE; #else boffset = index/BUCKET_SIZE; eoffset = index%BUCKET_SIZE; #endif #endif /* not PRECOMPUTE_SELECTORS */ assert (soffset_decode (index) < array->capacity); /* Range check */ #ifdef OBJC_SPARSE3 the_index = &(array->indices[ioffset]); the_bucket = &((*the_index)->buckets[boffset]); #else the_bucket = &(array->buckets[boffset]); #endif if ((*the_bucket)->elems[eoffset] == element) return; /* great! we just avoided a lazy copy */ #ifdef OBJC_SPARSE3 /* First, perform lazy copy/allocation of index if needed */ if ((*the_index) == array->empty_index) { /* The index was previously empty, allocate a new */ new_index = (struct sindex *) objc_malloc (sizeof (struct sindex)); memcpy (new_index, array->empty_index, sizeof (struct sindex)); new_index->version.version = array->version.version; *the_index = new_index; /* Prepared for install. */ the_bucket = &((*the_index)->buckets[boffset]); nindices += 1; } else if ((*the_index)->version.version != array->version.version) { /* This index must be lazy copied */ struct sindex *old_index = *the_index; new_index = (struct sindex *) objc_malloc (sizeof (struct sindex)); memcpy (new_index, old_index, sizeof (struct sindex)); new_index->version.version = array->version.version; *the_index = new_index; /* Prepared for install. */ the_bucket = &((*the_index)->buckets[boffset]); nindices += 1; } #endif /* OBJC_SPARSE3 */ /* next, perform lazy allocation/copy of the bucket if needed */ if ((*the_bucket) == array->empty_bucket) { /* The bucket was previously empty (or something like that), */ /* allocate a new. This is the effect of `lazy' allocation */ new_bucket = (struct sbucket *) objc_malloc (sizeof (struct sbucket)); memcpy ((void *) new_bucket, (const void *) array->empty_bucket, sizeof (struct sbucket)); new_bucket->version.version = array->version.version; *the_bucket = new_bucket; /* Prepared for install. */ nbuckets += 1; } else if ((*the_bucket)->version.version != array->version.version) { /* Perform lazy copy. */ struct sbucket *old_bucket = *the_bucket; new_bucket = (struct sbucket *) objc_malloc (sizeof (struct sbucket)); memcpy (new_bucket, old_bucket, sizeof (struct sbucket)); new_bucket->version.version = array->version.version; *the_bucket = new_bucket; /* Prepared for install. */ nbuckets += 1; } (*the_bucket)->elems[eoffset] = element; } void sarray_at_put_safe (struct sarray *array, sidx index, void *element) { if (soffset_decode (index) >= array->capacity) sarray_realloc (array, soffset_decode (index) + 1); sarray_at_put (array, index, element); } struct sarray * sarray_new (int size, void *default_element) { struct sarray *arr; #ifdef OBJC_SPARSE3 size_t num_indices = ((size - 1)/(INDEX_CAPACITY)) + 1; struct sindex **new_indices; #else /* OBJC_SPARSE2 */ size_t num_indices = ((size - 1)/BUCKET_SIZE) + 1; struct sbucket **new_buckets; #endif size_t counter; assert (size > 0); /* Allocate core array */ arr = (struct sarray *) objc_malloc (sizeof (struct sarray)); arr->version.version = 0; /* Initialize members */ #ifdef OBJC_SPARSE3 arr->capacity = num_indices*INDEX_CAPACITY; new_indices = (struct sindex **) objc_malloc (sizeof (struct sindex *) * num_indices); arr->empty_index = (struct sindex *) objc_malloc (sizeof (struct sindex)); arr->empty_index->version.version = 0; narrays += 1; idxsize += num_indices; nindices += 1; #else /* OBJC_SPARSE2 */ arr->capacity = num_indices*BUCKET_SIZE; new_buckets = (struct sbucket **) objc_malloc (sizeof (struct sbucket *) * num_indices); narrays += 1; idxsize += num_indices; #endif arr->empty_bucket = (struct sbucket *) objc_malloc (sizeof (struct sbucket)); arr->empty_bucket->version.version = 0; nbuckets += 1; arr->ref_count = 1; arr->is_copy_of = (struct sarray *) 0; for (counter = 0; counter < BUCKET_SIZE; counter++) arr->empty_bucket->elems[counter] = default_element; #ifdef OBJC_SPARSE3 for (counter = 0; counter < INDEX_SIZE; counter++) arr->empty_index->buckets[counter] = arr->empty_bucket; for (counter = 0; counter < num_indices; counter++) new_indices[counter] = arr->empty_index; #else /* OBJC_SPARSE2 */ for (counter = 0; counter < num_indices; counter++) new_buckets[counter] = arr->empty_bucket; #endif #ifdef OBJC_SPARSE3 arr->indices = new_indices; #else /* OBJC_SPARSE2 */ arr->buckets = new_buckets; #endif return arr; } /* Reallocate the sparse array to hold `newsize' entries Note: We really allocate and then free. We have to do this to ensure that any concurrent readers notice the update. */ void sarray_realloc (struct sarray *array, int newsize) { #ifdef OBJC_SPARSE3 size_t old_max_index = (array->capacity - 1)/INDEX_CAPACITY; size_t new_max_index = ((newsize - 1)/INDEX_CAPACITY); size_t rounded_size = (new_max_index + 1) * INDEX_CAPACITY; struct sindex **new_indices; struct sindex **old_indices; #else /* OBJC_SPARSE2 */ size_t old_max_index = (array->capacity - 1)/BUCKET_SIZE; size_t new_max_index = ((newsize - 1)/BUCKET_SIZE); size_t rounded_size = (new_max_index + 1) * BUCKET_SIZE; struct sbucket **new_buckets; struct sbucket **old_buckets; #endif size_t counter; assert (newsize > 0); /* The size is the same, just ignore the request */ if (rounded_size <= array->capacity) return; assert (array->ref_count == 1); /* stop if lazy copied... */ /* We are asked to extend the array -- allocate new bucket table, */ /* and insert empty_bucket in newly allocated places. */ if (rounded_size > array->capacity) { #ifdef OBJC_SPARSE3 new_max_index += 4; rounded_size = (new_max_index + 1) * INDEX_CAPACITY; #else /* OBJC_SPARSE2 */ new_max_index += 4; rounded_size = (new_max_index + 1) * BUCKET_SIZE; #endif /* update capacity */ array->capacity = rounded_size; #ifdef OBJC_SPARSE3 /* alloc to force re-read by any concurrent readers. */ old_indices = array->indices; new_indices = (struct sindex **) objc_malloc ((new_max_index + 1) * sizeof (struct sindex *)); #else /* OBJC_SPARSE2 */ old_buckets = array->buckets; new_buckets = (struct sbucket **) objc_malloc ((new_max_index + 1) * sizeof (struct sbucket *)); #endif /* copy buckets below old_max_index (they are still valid) */ for (counter = 0; counter <= old_max_index; counter++ ) { #ifdef OBJC_SPARSE3 new_indices[counter] = old_indices[counter]; #else /* OBJC_SPARSE2 */ new_buckets[counter] = old_buckets[counter]; #endif } #ifdef OBJC_SPARSE3 /* reset entries above old_max_index to empty_bucket */ for (counter = old_max_index + 1; counter <= new_max_index; counter++) new_indices[counter] = array->empty_index; #else /* OBJC_SPARSE2 */ /* reset entries above old_max_index to empty_bucket */ for (counter = old_max_index + 1; counter <= new_max_index; counter++) new_buckets[counter] = array->empty_bucket; #endif #ifdef OBJC_SPARSE3 /* install the new indices */ array->indices = new_indices; #else /* OBJC_SPARSE2 */ array->buckets = new_buckets; #endif #ifdef OBJC_SPARSE3 /* free the old indices */ sarray_free_garbage (old_indices); #else /* OBJC_SPARSE2 */ sarray_free_garbage (old_buckets); #endif idxsize += (new_max_index-old_max_index); return; } } /* Free a sparse array allocated with sarray_new */ void sarray_free (struct sarray *array) { #ifdef OBJC_SPARSE3 size_t old_max_index = (array->capacity - 1)/INDEX_CAPACITY; struct sindex **old_indices; #else size_t old_max_index = (array->capacity - 1)/BUCKET_SIZE; struct sbucket **old_buckets; #endif size_t counter = 0; assert (array->ref_count != 0); /* Freed multiple times!!! */ if (--(array->ref_count) != 0) /* There exists copies of me */ return; #ifdef OBJC_SPARSE3 old_indices = array->indices; #else old_buckets = array->buckets; #endif - - if ((array->is_copy_of) && ((array->is_copy_of->ref_count - 1) == 0)) - sarray_free (array->is_copy_of); /* Free all entries that do not point to empty_bucket */ for (counter = 0; counter <= old_max_index; counter++ ) { #ifdef OBJC_SPARSE3 struct sindex *idx = old_indices[counter]; if ((idx != array->empty_index) && (idx->version.version == array->version.version)) { int c2; for (c2 = 0; c2 < INDEX_SIZE; c2++) { struct sbucket *bkt = idx->buckets[c2]; if ((bkt != array->empty_bucket) && (bkt->version.version == array->version.version)) { sarray_free_garbage (bkt); nbuckets -= 1; } } sarray_free_garbage (idx); nindices -= 1; } #else /* OBJC_SPARSE2 */ struct sbucket *bkt = array->buckets[counter]; if ((bkt != array->empty_bucket) && (bkt->version.version == array->version.version)) { sarray_free_garbage (bkt); nbuckets -= 1; } #endif } #ifdef OBJC_SPARSE3 /* free empty_index */ if (array->empty_index->version.version == array->version.version) { sarray_free_garbage (array->empty_index); nindices -= 1; } #endif /* free empty_bucket */ if (array->empty_bucket->version.version == array->version.version) { sarray_free_garbage (array->empty_bucket); nbuckets -= 1; } idxsize -= (old_max_index + 1); narrays -= 1; #ifdef OBJC_SPARSE3 /* free bucket table */ sarray_free_garbage (array->indices); #else /* free bucket table */ sarray_free_garbage (array->buckets); #endif + /* If this is a copy, go ahead and decrement/deallocate the original */ + if (array->is_copy_of) + sarray_free (array->is_copy_of); + /* free array */ sarray_free_garbage (array); } /* This is a lazy copy. Only the core of the structure is actually */ /* copied. */ struct sarray * sarray_lazy_copy (struct sarray *oarr) { struct sarray *arr; #ifdef OBJC_SPARSE3 size_t num_indices = ((oarr->capacity - 1)/INDEX_CAPACITY) + 1; struct sindex **new_indices; #else /* OBJC_SPARSE2 */ size_t num_indices = ((oarr->capacity - 1)/BUCKET_SIZE) + 1; struct sbucket **new_buckets; #endif /* Allocate core array */ arr = (struct sarray *) objc_malloc (sizeof (struct sarray)); /* !!! */ arr->version.version = oarr->version.version + 1; #ifdef OBJC_SPARSE3 arr->empty_index = oarr->empty_index; #endif arr->empty_bucket = oarr->empty_bucket; arr->ref_count = 1; oarr->ref_count += 1; arr->is_copy_of = oarr; arr->capacity = oarr->capacity; #ifdef OBJC_SPARSE3 /* Copy bucket table */ new_indices = (struct sindex **) objc_malloc (sizeof (struct sindex *) * num_indices); memcpy (new_indices, oarr->indices, sizeof (struct sindex *) * num_indices); arr->indices = new_indices; #else /* Copy bucket table */ new_buckets = (struct sbucket **) objc_malloc (sizeof (struct sbucket *) * num_indices); memcpy (new_buckets, oarr->buckets, sizeof (struct sbucket *) * num_indices); arr->buckets = new_buckets; #endif idxsize += num_indices; narrays += 1; return arr; } Index: vendor/gcc/dist/contrib/libobjc/selector.c =================================================================== --- vendor/gcc/dist/contrib/libobjc/selector.c (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/selector.c (revision 132722) @@ -1,455 +1,457 @@ /* GNU Objective C Runtime selector related functions Copyright (C) 1993, 1995, 1996, 1997, 2002 Free Software Foundation, Inc. Contributed by Kresten Krab Thorup -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify it under the +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, but WITHOUT ANY +GCC is distributed in the hope that it will be useful, but WITHOUT 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 along with -GNU CC; see the file COPYING. If not, write to the Free Software +GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #include "runtime.h" #include "sarray.h" #include "encoding.h" /* Initial selector hash table size. Value doesn't matter much */ #define SELECTOR_HASH_SIZE 128 /* Tables mapping selector names to uid and opposite */ static struct sarray *__objc_selector_array = 0; /* uid -> sel !T:MUTEX */ static struct sarray *__objc_selector_names = 0; /* uid -> name !T:MUTEX */ static cache_ptr __objc_selector_hash = 0; /* name -> uid !T:MUTEX */ static void register_selectors_from_list (MethodList_t); /* Number of selectors stored in each of the above tables */ unsigned int __objc_selector_max_index = 0; /* !T:MUTEX */ void __objc_init_selector_tables () { __objc_selector_array = sarray_new (SELECTOR_HASH_SIZE, 0); __objc_selector_names = sarray_new (SELECTOR_HASH_SIZE, 0); __objc_selector_hash = hash_new (SELECTOR_HASH_SIZE, (hash_func_type) hash_string, (compare_func_type) compare_strings); } /* This routine is given a class and records all of the methods in its class structure in the record table. */ void __objc_register_selectors_from_class (Class class) { MethodList_t method_list; method_list = class->methods; while (method_list) { register_selectors_from_list (method_list); method_list = method_list->method_next; } } /* This routine is given a list of methods and records each of the methods in the record table. This is the routine that does the actual recording work. This one is only called for Class objects. For categories, class_add_method_list is called. */ static void register_selectors_from_list (MethodList_t method_list) { int i = 0; while (i < method_list->method_count) { Method_t method = &method_list->method_list[i]; method->method_name = sel_register_typed_name ((const char *) method->method_name, method->method_types); i += 1; } } /* Register instance methods as class methods for root classes */ void __objc_register_instance_methods_to_class (Class class) { MethodList_t method_list; MethodList_t class_method_list; int max_methods_no = 16; MethodList_t new_list; Method_t curr_method; /* Only if a root class. */ if (class->super_class) return; /* Allocate a method list to hold the new class methods */ new_list = objc_calloc (sizeof (struct objc_method_list) + sizeof (struct objc_method[max_methods_no]), 1); method_list = class->methods; class_method_list = class->class_pointer->methods; curr_method = &new_list->method_list[0]; /* Iterate through the method lists for the class */ while (method_list) { int i; /* Iterate through the methods from this method list */ for (i = 0; i < method_list->method_count; i++) { Method_t mth = &method_list->method_list[i]; if (mth->method_name && ! search_for_method_in_list (class_method_list, mth->method_name)) { /* This instance method isn't a class method. Add it into the new_list. */ *curr_method = *mth; /* Reallocate the method list if necessary */ if (++new_list->method_count == max_methods_no) new_list = objc_realloc (new_list, sizeof (struct objc_method_list) + sizeof (struct objc_method[max_methods_no += 16])); curr_method = &new_list->method_list[new_list->method_count]; } } method_list = method_list->method_next; } /* If we created any new class methods then attach the method list to the class */ if (new_list->method_count) { new_list = objc_realloc (new_list, sizeof (struct objc_method_list) + sizeof (struct objc_method[new_list->method_count])); new_list->method_next = class->class_pointer->methods; class->class_pointer->methods = new_list; } + else + objc_free(new_list); __objc_update_dispatch_table_for_class (class->class_pointer); } /* Returns YES iff t1 and t2 have same method types, but we ignore the argframe layout */ BOOL sel_types_match (const char *t1, const char *t2) { if (! t1 || ! t2) return NO; while (*t1 && *t2) { if (*t1 == '+') t1++; if (*t2 == '+') t2++; while (isdigit ((unsigned char) *t1)) t1++; while (isdigit ((unsigned char) *t2)) t2++; /* xxx Remove these next two lines when qualifiers are put in all selectors, not just Protocol selectors. */ t1 = objc_skip_type_qualifiers (t1); t2 = objc_skip_type_qualifiers (t2); if (! *t1 && ! *t2) return YES; if (*t1 != *t2) return NO; t1++; t2++; } return NO; } /* return selector representing name */ SEL sel_get_typed_uid (const char *name, const char *types) { struct objc_list *l; sidx i; objc_mutex_lock (__objc_runtime_mutex); i = (sidx) hash_value_for_key (__objc_selector_hash, name); if (i == 0) { objc_mutex_unlock (__objc_runtime_mutex); return 0; } for (l = (struct objc_list *) sarray_get_safe (__objc_selector_array, i); l; l = l->tail) { SEL s = (SEL) l->head; if (types == 0 || s->sel_types == 0) { if (s->sel_types == types) { objc_mutex_unlock (__objc_runtime_mutex); return s; } } else if (sel_types_match (s->sel_types, types)) { objc_mutex_unlock (__objc_runtime_mutex); return s; } } objc_mutex_unlock (__objc_runtime_mutex); return 0; } /* Return selector representing name; prefer a selector with non-NULL type */ SEL sel_get_any_typed_uid (const char *name) { struct objc_list *l; sidx i; SEL s = NULL; objc_mutex_lock (__objc_runtime_mutex); i = (sidx) hash_value_for_key (__objc_selector_hash, name); if (i == 0) { objc_mutex_unlock (__objc_runtime_mutex); return 0; } for (l = (struct objc_list *) sarray_get_safe (__objc_selector_array, i); l; l = l->tail) { s = (SEL) l->head; if (s->sel_types) { objc_mutex_unlock (__objc_runtime_mutex); return s; } } objc_mutex_unlock (__objc_runtime_mutex); return s; } /* return selector representing name */ SEL sel_get_any_uid (const char *name) { struct objc_list *l; sidx i; objc_mutex_lock (__objc_runtime_mutex); i = (sidx) hash_value_for_key (__objc_selector_hash, name); if (soffset_decode (i) == 0) { objc_mutex_unlock (__objc_runtime_mutex); return 0; } l = (struct objc_list *) sarray_get_safe (__objc_selector_array, i); objc_mutex_unlock (__objc_runtime_mutex); if (l == 0) return 0; return (SEL) l->head; } /* return selector representing name */ SEL sel_get_uid (const char *name) { return sel_register_typed_name (name, 0); } /* Get name of selector. If selector is unknown, the empty string "" is returned */ const char *sel_get_name (SEL selector) { const char *ret; objc_mutex_lock (__objc_runtime_mutex); if ((soffset_decode ((sidx)selector->sel_id) > 0) && (soffset_decode ((sidx)selector->sel_id) <= __objc_selector_max_index)) ret = sarray_get_safe (__objc_selector_names, (sidx) selector->sel_id); else ret = 0; objc_mutex_unlock (__objc_runtime_mutex); return ret; } BOOL sel_is_mapped (SEL selector) { unsigned int idx = soffset_decode ((sidx)selector->sel_id); return ((idx > 0) && (idx <= __objc_selector_max_index)); } const char *sel_get_type (SEL selector) { if (selector) return selector->sel_types; else return 0; } /* The uninstalled dispatch table */ extern struct sarray *__objc_uninstalled_dtable; /* Store the passed selector name in the selector record and return its selector value (value returned by sel_get_uid). Assumes that the calling function has locked down __objc_runtime_mutex. */ /* is_const parameter tells us if the name and types parameters are really constant or not. If YES then they are constant and we can just store the pointers. If NO then we need to copy name and types because the pointers may disappear later on. */ SEL __sel_register_typed_name (const char *name, const char *types, struct objc_selector *orig, BOOL is_const) { struct objc_selector *j; sidx i; struct objc_list *l; i = (sidx) hash_value_for_key (__objc_selector_hash, name); if (soffset_decode (i) != 0) { for (l = (struct objc_list *) sarray_get_safe (__objc_selector_array, i); l; l = l->tail) { SEL s = (SEL) l->head; if (types == 0 || s->sel_types == 0) { if (s->sel_types == types) { if (orig) { orig->sel_id = (void *) i; return orig; } else return s; } } else if (! strcmp (s->sel_types, types)) { if (orig) { orig->sel_id = (void *) i; return orig; } else return s; } } if (orig) j = orig; else j = objc_malloc (sizeof (struct objc_selector)); j->sel_id = (void *) i; /* Can we use the pointer or must copy types? Don't copy if NULL */ if ((is_const) || (types == 0)) j->sel_types = (const char *) types; else { j->sel_types = (char *) objc_malloc (strlen (types) + 1); strcpy ((char *) j->sel_types, types); } l = (struct objc_list *) sarray_get_safe (__objc_selector_array, i); } else { __objc_selector_max_index += 1; i = soffset_encode (__objc_selector_max_index); if (orig) j = orig; else j = objc_malloc (sizeof (struct objc_selector)); j->sel_id = (void *) i; /* Can we use the pointer or must copy types? Don't copy if NULL */ if ((is_const) || (types == 0)) j->sel_types = (const char *) types; else { j->sel_types = (char *) objc_malloc (strlen (types) + 1); strcpy ((char *) j->sel_types, types); } l = 0; } DEBUG_PRINTF ("Record selector %s[%s] as: %ld\n", name, types, soffset_decode (i)); { int is_new = (l == 0); const char *new_name; /* Can we use the pointer or must copy name? Don't copy if NULL */ if ((is_const) || (name == 0)) new_name = name; else { new_name = (char *) objc_malloc (strlen (name) + 1); strcpy ((char *) new_name, name); } l = list_cons ((void *) j, l); sarray_at_put_safe (__objc_selector_names, i, (void *) new_name); sarray_at_put_safe (__objc_selector_array, i, (void *) l); if (is_new) hash_add (&__objc_selector_hash, (void *) new_name, (void *) i); } sarray_realloc (__objc_uninstalled_dtable, __objc_selector_max_index + 1); return (SEL) j; } SEL sel_register_name (const char *name) { SEL ret; objc_mutex_lock (__objc_runtime_mutex); /* Assume that name is not constant static memory and needs to be copied before put into a runtime structure. is_const == NO */ ret = __sel_register_typed_name (name, 0, 0, NO); objc_mutex_unlock (__objc_runtime_mutex); return ret; } SEL sel_register_typed_name (const char *name, const char *type) { SEL ret; objc_mutex_lock (__objc_runtime_mutex); /* Assume that name and type are not constant static memory and need to be copied before put into a runtime structure. is_const == NO */ ret = __sel_register_typed_name (name, type, 0, NO); objc_mutex_unlock (__objc_runtime_mutex); return ret; } Index: vendor/gcc/dist/contrib/libobjc/sendmsg.c =================================================================== --- vendor/gcc/dist/contrib/libobjc/sendmsg.c (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/sendmsg.c (revision 132722) @@ -1,665 +1,713 @@ /* GNU Objective C Runtime message lookup Copyright (C) 1993, 1995, 1996, 1997, 1998, 2001, 2002 Free Software Foundation, Inc. Contributed by Kresten Krab Thorup -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify it under the +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, but WITHOUT ANY +GCC is distributed in the hope that it will be useful, but WITHOUT 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 along with -GNU CC; see the file COPYING. If not, write to the Free Software +GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ +/* FIXME: This file has no business including tm.h. */ + #include "tconfig.h" +#include "coretypes.h" +#include "tm.h" #include "runtime.h" #include "sarray.h" #include "encoding.h" #include "runtime-info.h" /* this is how we hack STRUCT_VALUE to be 1 or 0 */ #define gen_rtx(args...) 1 #define gen_rtx_MEM(args...) 1 #define gen_rtx_REG(args...) 1 #define rtx int #if ! defined (STRUCT_VALUE) || STRUCT_VALUE == 0 #define INVISIBLE_STRUCT_RETURN 1 #else #define INVISIBLE_STRUCT_RETURN 0 #endif /* The uninstalled dispatch table */ struct sarray *__objc_uninstalled_dtable = 0; /* !T:MUTEX */ /* Hook for method forwarding. If it is set, is invoked to return a function that performs the real forwarding. Otherwise the libgcc based functions (__builtin_apply and friends) are used. */ IMP (*__objc_msg_forward) (SEL) = NULL; /* Send +initialize to class */ static void __objc_send_initialize (Class); static void __objc_install_dispatch_table_for_class (Class); /* Forward declare some functions */ static void __objc_init_install_dtable (id, SEL); /* Various forwarding functions that are used based upon the return type for the selector. __objc_block_forward for structures. __objc_double_forward for floats/doubles. __objc_word_forward for pointers or types that fit in registers. */ static double __objc_double_forward (id, SEL, ...); static id __objc_word_forward (id, SEL, ...); typedef struct { id many[8]; } __big; #if INVISIBLE_STRUCT_RETURN static __big #else static id #endif __objc_block_forward (id, SEL, ...); static Method_t search_for_method_in_hierarchy (Class class, SEL sel); Method_t search_for_method_in_list (MethodList_t list, SEL op); id nil_method (id, SEL); /* Given a selector, return the proper forwarding implementation. */ __inline__ IMP __objc_get_forward_imp (SEL sel) { /* If a custom forwarding hook was registered, try getting a forwarding * function from it. */ if (__objc_msg_forward) { IMP result; if ((result = __objc_msg_forward (sel)) != NULL) return result; } /* In all other cases, use the default forwarding functions built using * __builtin_apply and friends. */ { const char *t = sel->sel_types; if (t && (*t == '[' || *t == '(' || *t == '{') #ifdef OBJC_MAX_STRUCT_BY_VALUE && objc_sizeof_type (t) > OBJC_MAX_STRUCT_BY_VALUE #endif ) return (IMP)__objc_block_forward; else if (t && (*t == 'f' || *t == 'd')) return (IMP)__objc_double_forward; else return (IMP)__objc_word_forward; } } /* Given a class and selector, return the selector's implementation. */ __inline__ IMP get_imp (Class class, SEL sel) { + /* In a vanilla implementation we would first check if the dispatch + table is installed. Here instead, to get more speed in the + standard case (that the dispatch table is installed) we first try + to get the imp using brute force. Only if that fails, we do what + we should have been doing from the very beginning, that is, check + if the dispatch table needs to be installed, install it if it's + not installed, and retrieve the imp from the table if it's + installed. */ void *res = sarray_get_safe (class->dtable, (size_t) sel->sel_id); if (res == 0) { /* Not a valid method */ if (class->dtable == __objc_uninstalled_dtable) { /* The dispatch table needs to be installed. */ objc_mutex_lock (__objc_runtime_mutex); - __objc_install_dispatch_table_for_class (class); + + /* Double-checked locking pattern: Check + __objc_uninstalled_dtable again in case another thread + installed the dtable while we were waiting for the lock + to be released. */ + if (class->dtable == __objc_uninstalled_dtable) + { + __objc_install_dispatch_table_for_class (class); + } + objc_mutex_unlock (__objc_runtime_mutex); /* Call ourselves with the installed dispatch table and get the real method */ res = get_imp (class, sel); } else { - /* The dispatch table has been installed so the - method just doesn't exist for the class. - Return the forwarding implementation. */ - res = __objc_get_forward_imp (sel); + /* The dispatch table has been installed. */ + + /* Get the method from the dispatch table (we try to get it + again in case another thread has installed the dtable just + after we invoked sarray_get_safe, but before we checked + class->dtable == __objc_uninstalled_dtable). + */ + res = sarray_get_safe (class->dtable, (size_t) sel->sel_id); + if (res == 0) + { + /* The dispatch table has been installed, and the method + is not in the dispatch table. So the method just + doesn't exist for the class. Return the forwarding + implementation. */ + res = __objc_get_forward_imp (sel); + } } } return res; } /* Query if an object can respond to a selector, returns YES if the object implements the selector otherwise NO. Does not check if the method can be forwarded. */ __inline__ BOOL __objc_responds_to (id object, SEL sel) { void *res; /* Install dispatch table if need be */ if (object->class_pointer->dtable == __objc_uninstalled_dtable) { objc_mutex_lock (__objc_runtime_mutex); - __objc_install_dispatch_table_for_class (object->class_pointer); + if (object->class_pointer->dtable == __objc_uninstalled_dtable) + { + __objc_install_dispatch_table_for_class (object->class_pointer); + } objc_mutex_unlock (__objc_runtime_mutex); } /* Get the method from the dispatch table */ res = sarray_get_safe (object->class_pointer->dtable, (size_t) sel->sel_id); return (res != 0); } /* This is the lookup function. All entries in the table are either a valid method *or* zero. If zero then either the dispatch table needs to be installed or it doesn't exist and forwarding is attempted. */ __inline__ IMP objc_msg_lookup (id receiver, SEL op) { IMP result; if (receiver) { result = sarray_get_safe (receiver->class_pointer->dtable, (sidx)op->sel_id); if (result == 0) { /* Not a valid method */ if (receiver->class_pointer->dtable == __objc_uninstalled_dtable) { /* The dispatch table needs to be installed. This happens on the very first method call to the class. */ __objc_init_install_dtable (receiver, op); /* Get real method for this in newly installed dtable */ result = get_imp (receiver->class_pointer, op); } else { - /* The dispatch table has been installed so the - method just doesn't exist for the class. - Attempt to forward the method. */ - result = __objc_get_forward_imp (op); + /* The dispatch table has been installed. Check again + if the method exists (just in case the dispatch table + has been installed by another thread after we did the + previous check that the method exists). + */ + result = sarray_get_safe (receiver->class_pointer->dtable, + (sidx)op->sel_id); + if (result == 0) + { + /* If the method still just doesn't exist for the + class, attempt to forward the method. */ + result = __objc_get_forward_imp (op); + } } } return result; } else return (IMP)nil_method; } IMP objc_msg_lookup_super (Super_t super, SEL sel) { if (super->self) return get_imp (super->class, sel); else return (IMP)nil_method; } int method_get_sizeof_arguments (Method *); retval_t objc_msg_sendv (id object, SEL op, arglist_t arg_frame) { Method *m = class_get_instance_method (object->class_pointer, op); const char *type; *((id *) method_get_first_argument (m, arg_frame, &type)) = object; *((SEL *) method_get_next_argument (arg_frame, &type)) = op; return __builtin_apply ((apply_t) m->method_imp, arg_frame, method_get_sizeof_arguments (m)); } void __objc_init_dispatch_tables () { __objc_uninstalled_dtable = sarray_new (200, 0); } /* This function is called by objc_msg_lookup when the dispatch table needs to be installed; thus it is called once for each class, namely when the very first message is sent to it. */ static void __objc_init_install_dtable (id receiver, SEL op __attribute__ ((__unused__))) { + objc_mutex_lock (__objc_runtime_mutex); + /* This may happen, if the programmer has taken the address of a method before the dtable was initialized... too bad for him! */ if (receiver->class_pointer->dtable != __objc_uninstalled_dtable) - return; - - objc_mutex_lock (__objc_runtime_mutex); - + { + objc_mutex_unlock (__objc_runtime_mutex); + return; + } + if (CLS_ISCLASS (receiver->class_pointer)) { /* receiver is an ordinary object */ assert (CLS_ISCLASS (receiver->class_pointer)); /* install instance methods table */ __objc_install_dispatch_table_for_class (receiver->class_pointer); /* call +initialize -- this will in turn install the factory dispatch table if not already done :-) */ __objc_send_initialize (receiver->class_pointer); } else { /* receiver is a class object */ assert (CLS_ISCLASS ((Class)receiver)); assert (CLS_ISMETA (receiver->class_pointer)); /* Install real dtable for factory methods */ __objc_install_dispatch_table_for_class (receiver->class_pointer); __objc_send_initialize ((Class)receiver); } objc_mutex_unlock (__objc_runtime_mutex); } /* Install dummy table for class which causes the first message to that class (or instances hereof) to be initialized properly */ void __objc_install_premature_dtable (Class class) { assert (__objc_uninstalled_dtable); class->dtable = __objc_uninstalled_dtable; } /* Send +initialize to class if not already done */ static void __objc_send_initialize (Class class) { /* This *must* be a class object */ assert (CLS_ISCLASS (class)); assert (! CLS_ISMETA (class)); if (! CLS_ISINITIALIZED (class)) { CLS_SETINITIALIZED (class); CLS_SETINITIALIZED (class->class_pointer); /* Create the garbage collector type memory description */ __objc_generate_gc_type_description (class); if (class->super_class) __objc_send_initialize (class->super_class); { SEL op = sel_register_name ("initialize"); IMP imp = 0; MethodList_t method_list = class->class_pointer->methods; while (method_list) { int i; Method_t method; for (i = 0; i < method_list->method_count; i++) { method = &(method_list->method_list[i]); if (method->method_name && method->method_name->sel_id == op->sel_id) { imp = method->method_imp; break; } } if (imp) break; method_list = method_list->method_next; } if (imp) (*imp) ((id) class, op); } } } /* Walk on the methods list of class and install the methods in the reverse order of the lists. Since methods added by categories are before the methods of class in the methods list, this allows categories to substitute methods declared in class. However if more than one category replaces the same method nothing is guaranteed about what method will be used. Assumes that __objc_runtime_mutex is locked down. */ static void __objc_install_methods_in_dtable (Class class, MethodList_t method_list) { int i; if (! method_list) return; if (method_list->method_next) __objc_install_methods_in_dtable (class, method_list->method_next); for (i = 0; i < method_list->method_count; i++) { Method_t method = &(method_list->method_list[i]); sarray_at_put_safe (class->dtable, (sidx) method->method_name->sel_id, method->method_imp); } } /* Assumes that __objc_runtime_mutex is locked down. */ static void __objc_install_dispatch_table_for_class (Class class) { Class super; /* If the class has not yet had its class links resolved, we must re-compute all class links */ if (! CLS_ISRESOLV (class)) __objc_resolve_class_links (); super = class->super_class; if (super != 0 && (super->dtable == __objc_uninstalled_dtable)) __objc_install_dispatch_table_for_class (super); /* Allocate dtable if necessary */ if (super == 0) { objc_mutex_lock (__objc_runtime_mutex); class->dtable = sarray_new (__objc_selector_max_index, 0); objc_mutex_unlock (__objc_runtime_mutex); } else class->dtable = sarray_lazy_copy (super->dtable); __objc_install_methods_in_dtable (class, class->methods); } void __objc_update_dispatch_table_for_class (Class class) { Class next; struct sarray *arr; /* not yet installed -- skip it */ if (class->dtable == __objc_uninstalled_dtable) return; objc_mutex_lock (__objc_runtime_mutex); arr = class->dtable; __objc_install_premature_dtable (class); /* someone might require it... */ sarray_free (arr); /* release memory */ /* could have been lazy... */ __objc_install_dispatch_table_for_class (class); if (class->subclass_list) /* Traverse subclasses */ for (next = class->subclass_list; next; next = next->sibling_class) __objc_update_dispatch_table_for_class (next); objc_mutex_unlock (__objc_runtime_mutex); } /* This function adds a method list to a class. This function is typically called by another function specific to the run-time. As such this function does not worry about thread safe issues. This one is only called for categories. Class objects have their methods installed right away, and their selectors are made into SEL's by the function __objc_register_selectors_from_class. */ void class_add_method_list (Class class, MethodList_t list) { int i; /* Passing of a linked list is not allowed. Do multiple calls. */ assert (! list->method_next); /* Check for duplicates. */ for (i = 0; i < list->method_count; ++i) { Method_t method = &list->method_list[i]; if (method->method_name) /* Sometimes these are NULL */ { /* This is where selector names are transmogrified to SEL's */ method->method_name = sel_register_typed_name ((const char *) method->method_name, method->method_types); } } /* Add the methods to the class's method list. */ list->method_next = class->methods; class->methods = list; /* Update the dispatch table of class */ __objc_update_dispatch_table_for_class (class); } Method_t class_get_instance_method (Class class, SEL op) { return search_for_method_in_hierarchy (class, op); } Method_t class_get_class_method (MetaClass class, SEL op) { return search_for_method_in_hierarchy (class, op); } /* Search for a method starting from the current class up its hierarchy. Return a pointer to the method's method structure if found. NULL otherwise. */ static Method_t search_for_method_in_hierarchy (Class cls, SEL sel) { Method_t method = NULL; Class class; if (! sel_is_mapped (sel)) return NULL; /* Scan the method list of the class. If the method isn't found in the list then step to its super class. */ for (class = cls; ((! method) && class); class = class->super_class) method = search_for_method_in_list (class->methods, sel); return method; } /* Given a linked list of method and a method's name. Search for the named method's method structure. Return a pointer to the method's method structure if found. NULL otherwise. */ Method_t search_for_method_in_list (MethodList_t list, SEL op) { MethodList_t method_list = list; if (! sel_is_mapped (op)) return NULL; /* If not found then we'll search the list. */ while (method_list) { int i; /* Search the method list. */ for (i = 0; i < method_list->method_count; ++i) { Method_t method = &method_list->method_list[i]; if (method->method_name) if (method->method_name->sel_id == op->sel_id) return method; } /* The method wasn't found. Follow the link to the next list of methods. */ method_list = method_list->method_next; } return NULL; } static retval_t __objc_forward (id object, SEL sel, arglist_t args); /* Forwarding pointers/integers through the normal registers */ static id __objc_word_forward (id rcv, SEL op, ...) { void *args, *res; args = __builtin_apply_args (); res = __objc_forward (rcv, op, args); if (res) __builtin_return (res); else return res; } /* Specific routine for forwarding floats/double because of architectural differences on some processors. i386s for example which uses a floating point stack versus general registers for floating point numbers. This forward routine makes sure that GCC restores the proper return values */ static double __objc_double_forward (id rcv, SEL op, ...) { void *args, *res; args = __builtin_apply_args (); res = __objc_forward (rcv, op, args); __builtin_return (res); } #if INVISIBLE_STRUCT_RETURN static __big #else static id #endif __objc_block_forward (id rcv, SEL op, ...) { void *args, *res; args = __builtin_apply_args (); res = __objc_forward (rcv, op, args); if (res) __builtin_return (res); else #if INVISIBLE_STRUCT_RETURN return (__big) {{0, 0, 0, 0, 0, 0, 0, 0}}; #else return nil; #endif } /* This function is installed in the dispatch table for all methods which are not implemented. Thus, it is called when a selector is not recognized. */ static retval_t __objc_forward (id object, SEL sel, arglist_t args) { IMP imp; static SEL frwd_sel = 0; /* !T:SAFE2 */ SEL err_sel; /* first try if the object understands forward:: */ if (! frwd_sel) frwd_sel = sel_get_any_uid ("forward::"); if (__objc_responds_to (object, frwd_sel)) { imp = get_imp (object->class_pointer, frwd_sel); return (*imp) (object, frwd_sel, sel, args); } /* If the object recognizes the doesNotRecognize: method then we're going to send it. */ err_sel = sel_get_any_uid ("doesNotRecognize:"); if (__objc_responds_to (object, err_sel)) { imp = get_imp (object->class_pointer, err_sel); return (*imp) (object, err_sel, sel); } /* The object doesn't recognize the method. Check for responding to error:. If it does then sent it. */ { char msg[256 + strlen ((const char *) sel_get_name (sel)) + strlen ((const char *) object->class_pointer->name)]; sprintf (msg, "(%s) %s does not recognize %s", (CLS_ISMETA (object->class_pointer) ? "class" : "instance" ), object->class_pointer->name, sel_get_name (sel)); err_sel = sel_get_any_uid ("error:"); if (__objc_responds_to (object, err_sel)) { imp = get_imp (object->class_pointer, err_sel); return (*imp) (object, sel_get_any_uid ("error:"), msg); } /* The object doesn't respond to doesNotRecognize: or error:; Therefore, a default action is taken. */ objc_error (object, OBJC_ERR_UNIMPLEMENTED, "%s\n", msg); return 0; } } void __objc_print_dtable_stats () { int total = 0; objc_mutex_lock (__objc_runtime_mutex); #ifdef OBJC_SPARSE2 printf ("memory usage: (%s)\n", "2-level sparse arrays"); #else printf ("memory usage: (%s)\n", "3-level sparse arrays"); #endif printf ("arrays: %d = %ld bytes\n", narrays, (long) narrays * sizeof (struct sarray)); total += narrays * sizeof (struct sarray); printf ("buckets: %d = %ld bytes\n", nbuckets, (long) nbuckets * sizeof (struct sbucket)); total += nbuckets * sizeof (struct sbucket); printf ("idxtables: %d = %ld bytes\n", idxsize, (long) idxsize * sizeof (void *)); total += idxsize * sizeof (void *); printf ("-----------------------------------\n"); printf ("total: %d bytes\n", total); printf ("===================================\n"); objc_mutex_unlock (__objc_runtime_mutex); } /* Returns the uninstalled dispatch table indicator. If a class' dispatch table points to __objc_uninstalled_dtable then that means it needs its dispatch table to be installed. */ __inline__ struct sarray * objc_get_uninstalled_dtable () { return __objc_uninstalled_dtable; } Index: vendor/gcc/dist/contrib/libobjc/thr-dce.c =================================================================== --- vendor/gcc/dist/contrib/libobjc/thr-dce.c (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/thr-dce.c (revision 132722) @@ -1,281 +1,281 @@ /* GNU Objective C Runtime Thread Interface Copyright (C) 1996, 1997 Free Software Foundation, Inc. Contributed by Galen C. Hunt (gchunt@cs.rochester.edu) -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify it under the +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, but WITHOUT ANY +GCC is distributed in the hope that it will be useful, but WITHOUT 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 along with -GNU CC; see the file COPYING. If not, write to the Free Software +GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #include #include #include "runtime.h" /* Key structure for maintaining thread specific storage */ static pthread_key_t _objc_thread_storage; /* Backend initialization functions */ /* Initialize the threads subsystem. */ int __objc_init_thread_system(void) { /* Initialize the thread storage key */ return pthread_keycreate(&_objc_thread_storage, NULL); } /* Close the threads subsystem. */ int __objc_close_thread_system(void) { /* Destroy the thread storage key */ /* Not implemented yet */ /* return pthread_key_delete(&_objc_thread_storage); */ return 0; } /* Backend thread functions */ /* Create a new thread of execution. */ objc_thread_t __objc_thread_detach(void (*func)(void *arg), void *arg) { objc_thread_t thread_id; pthread_t new_thread_handle; if (pthread_create(&new_thread_handle, pthread_attr_default, (void *)func, arg) == 0) { /* ??? May not work! (64bit) */ thread_id = *(objc_thread_t *)&new_thread_handle; pthread_detach(&new_thread_handle); /* Fully detach thread. */ } else thread_id = NULL; return thread_id; } /* Set the current thread's priority. */ int __objc_thread_set_priority(int priority) { int sys_priority = 0; switch (priority) { case OBJC_THREAD_INTERACTIVE_PRIORITY: sys_priority = (PRI_FG_MIN_NP + PRI_FG_MAX_NP) / 2; break; default: case OBJC_THREAD_BACKGROUND_PRIORITY: sys_priority = (PRI_BG_MIN_NP + PRI_BG_MAX_NP) / 2; break; case OBJC_THREAD_LOW_PRIORITY: sys_priority = (PRI_BG_MIN_NP + PRI_BG_MAX_NP) / 2; break; } /* Change the priority. */ if (pthread_setprio(pthread_self(), sys_priority) >= 0) return 0; else /* Failed */ return -1; } /* Return the current thread's priority. */ int __objc_thread_get_priority(void) { int sys_priority; if ((sys_priority = pthread_getprio(pthread_self())) >= 0) { if (sys_priority >= PRI_FG_MIN_NP && sys_priority <= PRI_FG_MAX_NP) return OBJC_THREAD_INTERACTIVE_PRIORITY; if (sys_priority >= PRI_BG_MIN_NP && sys_priority <= PRI_BG_MAX_NP) return OBJC_THREAD_BACKGROUND_PRIORITY; return OBJC_THREAD_LOW_PRIORITY; } /* Failed */ return -1; } /* Yield our process time to another thread. */ void __objc_thread_yield(void) { pthread_yield(); } /* Terminate the current thread. */ int __objc_thread_exit(void) { /* exit the thread */ pthread_exit(&__objc_thread_exit_status); /* Failed if we reached here */ return -1; } /* Returns an integer value which uniquely describes a thread. */ objc_thread_t __objc_thread_id(void) { pthread_t self = pthread_self(); return (objc_thread_t) pthread_getunique_np (&self); } /* Sets the thread's local storage pointer. */ int __objc_thread_set_data(void *value) { return pthread_setspecific(_objc_thread_storage, value); } /* Returns the thread's local storage pointer. */ void * __objc_thread_get_data(void) { void *value = NULL; if ( !(pthread_getspecific(_objc_thread_storage, &value)) ) return value; return NULL; } /* Backend mutex functions */ /* Allocate a mutex. */ int __objc_mutex_allocate(objc_mutex_t mutex) { if (pthread_mutex_init((pthread_mutex_t *)(&(mutex->backend)), pthread_mutexattr_default)) return -1; else return 0; } /* Deallocate a mutex. */ int __objc_mutex_deallocate(objc_mutex_t mutex) { if (pthread_mutex_destroy((pthread_mutex_t *)(&(mutex->backend)))) return -1; else return 0; } /* Grab a lock on a mutex. */ int __objc_mutex_lock(objc_mutex_t mutex) { return pthread_mutex_lock((pthread_mutex_t *)(&(mutex->backend))); } /* Try to grab a lock on a mutex. */ int __objc_mutex_trylock(objc_mutex_t mutex) { if (pthread_mutex_trylock((pthread_mutex_t *)(&(mutex->backend))) != 1) return -1; else return 0; } /* Unlock the mutex */ int __objc_mutex_unlock(objc_mutex_t mutex) { return pthread_mutex_unlock((pthread_mutex_t *)(&(mutex->backend))); } /* Backend condition mutex functions */ /* Allocate a condition. */ int __objc_condition_allocate(objc_condition_t condition) { /* Unimplemented. */ return -1; /* if (pthread_cond_init((pthread_cond_t *)(&(condition->backend)), NULL)) return -1; else return 0; */ } /* Deallocate a condition. */ int __objc_condition_deallocate(objc_condition_t condition) { /* Unimplemented. */ return -1; /* return pthread_cond_destroy((pthread_cond_t *)(&(condition->backend))); */ } /* Wait on the condition */ int __objc_condition_wait(objc_condition_t condition, objc_mutex_t mutex) { /* Unimplemented. */ return -1; /* return pthread_cond_wait((pthread_cond_t *)(&(condition->backend)), (pthread_mutex_t *)(&(mutex->backend))); */ } /* Wake up all threads waiting on this condition. */ int __objc_condition_broadcast(objc_condition_t condition) { /* Unimplemented. */ return -1; /* return pthread_cond_broadcast((pthread_cond_t *)(&(condition->backend))); */ } /* Wake up one thread waiting on this condition. */ int __objc_condition_signal(objc_condition_t condition) { /* Unimplemented. */ return -1; /* return pthread_cond_signal((pthread_cond_t *)(&(condition->backend))); */ } /* End of File */ Index: vendor/gcc/dist/contrib/libobjc/thr-decosf1.c =================================================================== --- vendor/gcc/dist/contrib/libobjc/thr-decosf1.c (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/thr-decosf1.c (revision 132722) @@ -1,281 +1,281 @@ /* GNU Objective C Runtime Thread Interface Copyright (C) 1996, 1997 Free Software Foundation, Inc. Contributed by Galen C. Hunt (gchunt@cs.rochester.edu) -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify it under the +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, but WITHOUT ANY +GCC is distributed in the hope that it will be useful, but WITHOUT 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 along with -GNU CC; see the file COPYING. If not, write to the Free Software +GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #include #include #include "runtime.h" /* Key structure for maintaining thread specific storage */ static pthread_key_t _objc_thread_storage; /* Backend initialization functions */ /* Initialize the threads subsystem. */ int __objc_init_thread_system(void) { /* Initialize the thread storage key */ return pthread_keycreate(&_objc_thread_storage, NULL); } /* Close the threads subsystem. */ int __objc_close_thread_system(void) { /* Destroy the thread storage key */ /* Not implemented yet */ /* return pthread_key_delete(&_objc_thread_storage); */ return 0; } /* Backend thread functions */ /* Create a new thread of execution. */ objc_thread_t __objc_thread_detach(void (*func)(void *arg), void *arg) { objc_thread_t thread_id; pthread_t new_thread_handle; if (pthread_create(&new_thread_handle, pthread_attr_default, (void *)func, arg) == 0) { /* ??? May not work! (64bit) */ thread_id = *(objc_thread_t *)&new_thread_handle; pthread_detach(&new_thread_handle); /* Fully detach thread. */ } else thread_id = NULL; return thread_id; } /* Set the current thread's priority. */ int __objc_thread_set_priority(int priority) { int sys_priority = 0; switch (priority) { case OBJC_THREAD_INTERACTIVE_PRIORITY: sys_priority = (PRI_FG_MIN_NP + PRI_FG_MAX_NP) / 2; break; default: case OBJC_THREAD_BACKGROUND_PRIORITY: sys_priority = (PRI_BG_MIN_NP + PRI_BG_MAX_NP) / 2; break; case OBJC_THREAD_LOW_PRIORITY: sys_priority = (PRI_BG_MIN_NP + PRI_BG_MAX_NP) / 2; break; } /* Change the priority. */ if (pthread_setprio(pthread_self(), sys_priority) >= 0) return 0; else /* Failed */ return -1; } /* Return the current thread's priority. */ int __objc_thread_get_priority(void) { int sys_priority; if ((sys_priority = pthread_getprio(pthread_self())) >= 0) { if (sys_priority >= PRI_FG_MIN_NP && sys_priority <= PRI_FG_MAX_NP) return OBJC_THREAD_INTERACTIVE_PRIORITY; if (sys_priority >= PRI_BG_MIN_NP && sys_priority <= PRI_BG_MAX_NP) return OBJC_THREAD_BACKGROUND_PRIORITY; return OBJC_THREAD_LOW_PRIORITY; } /* Failed */ return -1; } /* Yield our process time to another thread. */ void __objc_thread_yield(void) { pthread_yield(); } /* Terminate the current thread. */ int __objc_thread_exit(void) { /* exit the thread */ pthread_exit(&__objc_thread_exit_status); /* Failed if we reached here */ return -1; } /* Returns an integer value which uniquely describes a thread. */ objc_thread_t __objc_thread_id(void) { pthread_t self = pthread_self(); return (objc_thread_t) pthread_getunique_np (&self); } /* Sets the thread's local storage pointer. */ int __objc_thread_set_data(void *value) { return pthread_setspecific(_objc_thread_storage, value); } /* Returns the thread's local storage pointer. */ void * __objc_thread_get_data(void) { void *value = NULL; if ( !(pthread_getspecific(_objc_thread_storage, &value)) ) return value; return NULL; } /* Backend mutex functions */ /* Allocate a mutex. */ int __objc_mutex_allocate(objc_mutex_t mutex) { if (pthread_mutex_init((pthread_mutex_t *)(&(mutex->backend)), pthread_mutexattr_default)) return -1; else return 0; } /* Deallocate a mutex. */ int __objc_mutex_deallocate(objc_mutex_t mutex) { if (pthread_mutex_destroy((pthread_mutex_t *)(&(mutex->backend)))) return -1; else return 0; } /* Grab a lock on a mutex. */ int __objc_mutex_lock(objc_mutex_t mutex) { return pthread_mutex_lock((pthread_mutex_t *)(&(mutex->backend))); } /* Try to grab a lock on a mutex. */ int __objc_mutex_trylock(objc_mutex_t mutex) { if (pthread_mutex_trylock((pthread_mutex_t *)(&(mutex->backend))) != 1) return -1; else return 0; } /* Unlock the mutex */ int __objc_mutex_unlock(objc_mutex_t mutex) { return pthread_mutex_unlock((pthread_mutex_t *)(&(mutex->backend))); } /* Backend condition mutex functions */ /* Allocate a condition. */ int __objc_condition_allocate(objc_condition_t condition) { /* Unimplemented. */ return -1; /* if (pthread_cond_init((pthread_cond_t *)(&(condition->backend)), NULL)) return -1; else return 0; */ } /* Deallocate a condition. */ int __objc_condition_deallocate(objc_condition_t condition) { /* Unimplemented. */ return -1; /* return pthread_cond_destroy((pthread_cond_t *)(&(condition->backend))); */ } /* Wait on the condition */ int __objc_condition_wait(objc_condition_t condition, objc_mutex_t mutex) { /* Unimplemented. */ return -1; /* return pthread_cond_wait((pthread_cond_t *)(&(condition->backend)), (pthread_mutex_t *)(&(mutex->backend))); */ } /* Wake up all threads waiting on this condition. */ int __objc_condition_broadcast(objc_condition_t condition) { /* Unimplemented. */ return -1; /* return pthread_cond_broadcast((pthread_cond_t *)(&(condition->backend))); */ } /* Wake up one thread waiting on this condition. */ int __objc_condition_signal(objc_condition_t condition) { /* Unimplemented. */ return -1; /* return pthread_cond_signal((pthread_cond_t *)(&(condition->backend))); */ } /* End of File */ Index: vendor/gcc/dist/contrib/libobjc/thr-irix.c =================================================================== --- vendor/gcc/dist/contrib/libobjc/thr-irix.c (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/thr-irix.c (revision 132722) @@ -1,235 +1,235 @@ /* GNU Objective C Runtime Thread Interface - SGI IRIX Implementation Copyright (C) 1996, 1997 Free Software Foundation, Inc. Contributed by Galen C. Hunt (gchunt@cs.rochester.edu) -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify it under the +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, but WITHOUT ANY +GCC is distributed in the hope that it will be useful, but WITHOUT 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 along with -GNU CC; see the file COPYING. If not, write to the Free Software +GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #include #include #include #include #include #include #include "runtime.h" /* Key structure for maintaining thread specific storage */ static void * __objc_shared_arena_handle = NULL; /* Backend initialization functions */ /* Initialize the threads subsystem. */ int __objc_init_thread_system(void) { /* Name of IRIX arena. */ char arena_name[64]; DEBUG_PRINTF("__objc_init_thread_system\n"); /* Construct a temporary name for arena. */ sprintf(arena_name, "/usr/tmp/objc_%05u", (unsigned)getpid()); /* Up to 256 threads. Arena only for threads. */ usconfig(CONF_INITUSERS, 256); usconfig(CONF_ARENATYPE, US_SHAREDONLY); /* Initialize the arena */ if (!(__objc_shared_arena_handle = usinit(arena_name))) /* Failed */ return -1; return 0; } /* Close the threads subsystem. */ int __objc_close_thread_system(void) { return 0; } /* Backend thread functions */ /* Create a new thread of execution. */ objc_thread_t __objc_thread_detach(void (*func)(void *arg), void *arg) { objc_thread_t thread_id; int sys_id; if ((sys_id = sproc((void *)func, PR_SALL, arg)) >= 0) thread_id = (objc_thread_t)sys_id; else thread_id = NULL; return thread_id; } /* Set the current thread's priority. */ int __objc_thread_set_priority(int priority) { /* Not implemented yet */ return -1; } /* Return the current thread's priority. */ int __objc_thread_get_priority(void) { /* Not implemented yet */ return OBJC_THREAD_INTERACTIVE_PRIORITY; } /* Yield our process time to another thread. */ void __objc_thread_yield(void) { sginap(0); } /* Terminate the current thread. */ int __objc_thread_exit(void) { /* IRIX only has exit. */ exit(__objc_thread_exit_status); /* Failed if we reached here */ return -1; } /* Returns an integer value which uniquely describes a thread. */ objc_thread_t __objc_thread_id(void) { /* Threads are processes. */ return (objc_thread_t)get_pid(); } /* Sets the thread's local storage pointer. */ int __objc_thread_set_data(void *value) { *((void **)&PRDA->usr_prda) = value; return 0; } /* Returns the thread's local storage pointer. */ void * __objc_thread_get_data(void) { return *((void **)&PRDA->usr_prda); } /* Backend mutex functions */ /* Allocate a mutex. */ int __objc_mutex_allocate(objc_mutex_t mutex) { if (!( (ulock_t)(mutex->backend) = usnewlock(__objc_shared_arena_handle) )) return -1; else return 0; } /* Deallocate a mutex. */ int __objc_mutex_deallocate(objc_mutex_t mutex) { usfreelock((ulock_t)(mutex->backend), __objc_shared_arena_handle); return 0; } /* Grab a lock on a mutex. */ int __objc_mutex_lock(objc_mutex_t mutex) { if (ussetlock((ulock_t)(mutex->backend)) == 0) return -1; else return 0; } /* Try to grab a lock on a mutex. */ int __objc_mutex_trylock(objc_mutex_t mutex) { if (ustestlock((ulock_t)(mutex->backend)) == 0) return -1; else return 0; } /* Unlock the mutex */ int __objc_mutex_unlock(objc_mutex_t mutex) { usunsetlock((ulock_t)(mutex->backend)); return 0; } /* Backend condition mutex functions */ /* Allocate a condition. */ int __objc_condition_allocate(objc_condition_t condition) { /* Unimplemented. */ return -1; } /* Deallocate a condition. */ int __objc_condition_deallocate(objc_condition_t condition) { /* Unimplemented. */ return -1; } /* Wait on the condition */ int __objc_condition_wait(objc_condition_t condition, objc_mutex_t mutex) { /* Unimplemented. */ return -1; } /* Wake up all threads waiting on this condition. */ int __objc_condition_broadcast(objc_condition_t condition) { /* Unimplemented. */ return -1; } /* Wake up one thread waiting on this condition. */ int __objc_condition_signal(objc_condition_t condition) { /* Unimplemented. */ return -1; } /* End of File */ Index: vendor/gcc/dist/contrib/libobjc/thr-mach.c =================================================================== --- vendor/gcc/dist/contrib/libobjc/thr-mach.c (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/thr-mach.c (revision 132722) @@ -1,313 +1,313 @@ /* GNU Objective C Runtime Thread Implementation Copyright (C) 1996, 1997, 2002 Free Software Foundation, Inc. Contributed by Galen C. Hunt (gchunt@cs.rochester.edu) Modified for Mach threads by Bill Bumgarner Condition functions added by Mircea Oancea -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify it under the +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, but WITHOUT ANY +GCC is distributed in the hope that it will be useful, but WITHOUT 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 -along with GNU CC; see the file COPYING. If not, write to +along with GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #include #include #include #include "runtime.h" /* Obtain the maximum thread priority that can set for t. Under the mach threading model, it is possible for the developer to adjust the maximum priority downward only-- cannot be raised without superuser privileges. Once lowered, it cannot be raised. */ static int __mach_get_max_thread_priority (cthread_t t, int *base) { thread_t threadP; kern_return_t error; struct thread_sched_info info; unsigned int info_count=THREAD_SCHED_INFO_COUNT; if (t == NULL) return -1; threadP = cthread_thread (t); /* get thread underlying */ error = thread_info (threadP, THREAD_SCHED_INFO, (thread_info_t) &info, &info_count); if (error != KERN_SUCCESS) return -1; if (base != NULL) *base = info.base_priority; return info.max_priority; } /* Backend initialization functions */ /* Initialize the threads subsystem. */ int __objc_init_thread_system (void) { return 0; } /* Close the threads subsystem. */ int __objc_close_thread_system (void) { return 0; } /* Backend thread functions */ /* Create a new thread of execution. */ objc_thread_t __objc_thread_detach (void (*func) (void *arg), void *arg) { objc_thread_t thread_id; cthread_t new_thread_handle; /* create thread */ new_thread_handle = cthread_fork ((cthread_fn_t) func, arg); if (new_thread_handle) { /* this is not terribly portable */ thread_id = *(objc_thread_t *) &new_thread_handle; cthread_detach (new_thread_handle); } else thread_id = NULL; return thread_id; } /* Set the current thread's priority. */ int __objc_thread_set_priority (int priority) { objc_thread_t *t = objc_thread_id (); cthread_t cT = (cthread_t) t; int maxPriority = __mach_get_max_thread_priority (cT, NULL); int sys_priority = 0; if (maxPriority == -1) return -1; switch (priority) { case OBJC_THREAD_INTERACTIVE_PRIORITY: sys_priority = maxPriority; break; case OBJC_THREAD_BACKGROUND_PRIORITY: sys_priority = (maxPriority * 2) / 3; break; case OBJC_THREAD_LOW_PRIORITY: sys_priority = maxPriority / 3; break; default: return -1; } if (sys_priority == 0) return -1; /* Change the priority */ if (cthread_priority (cT, sys_priority, 0) == KERN_SUCCESS) return 0; else return -1; } /* Return the current thread's priority. */ int __objc_thread_get_priority (void) { objc_thread_t *t = objc_thread_id (); cthread_t cT = (cthread_t) t; /* see objc_thread_id () */ int basePriority; int maxPriority; int sys_priority = 0; int interactiveT, backgroundT, lowT; /* thresholds */ maxPriority = __mach_get_max_thread_priority (cT, &basePriority); if (maxPriority == -1) return -1; if (basePriority > ( (maxPriority * 2) / 3)) return OBJC_THREAD_INTERACTIVE_PRIORITY; if (basePriority > ( maxPriority / 3)) return OBJC_THREAD_BACKGROUND_PRIORITY; return OBJC_THREAD_LOW_PRIORITY; } /* Yield our process time to another thread. */ void __objc_thread_yield (void) { cthread_yield (); } /* Terminate the current thread. */ int __objc_thread_exit (void) { /* exit the thread */ cthread_exit (&__objc_thread_exit_status); /* Failed if we reached here */ return -1; } /* Returns an integer value which uniquely describes a thread. */ objc_thread_t __objc_thread_id (void) { cthread_t self = cthread_self (); return *(objc_thread_t *) &self; } /* Sets the thread's local storage pointer. */ int __objc_thread_set_data (void *value) { cthread_set_data (cthread_self (), (any_t) value); return 0; } /* Returns the thread's local storage pointer. */ void * __objc_thread_get_data (void) { return (void *) cthread_data (cthread_self ()); } /* Backend mutex functions */ /* Allocate a mutex. */ int __objc_mutex_allocate (objc_mutex_t mutex) { int err = 0; mutex->backend = objc_malloc (sizeof (struct mutex)); err = mutex_init ((mutex_t) (mutex->backend)); if (err != 0) { objc_free (mutex->backend); return -1; } else return 0; } /* Deallocate a mutex. */ int __objc_mutex_deallocate (objc_mutex_t mutex) { mutex_clear ((mutex_t) (mutex->backend)); objc_free (mutex->backend); mutex->backend = NULL; return 0; } /* Grab a lock on a mutex. */ int __objc_mutex_lock (objc_mutex_t mutex) { mutex_lock ((mutex_t) (mutex->backend)); return 0; } /* Try to grab a lock on a mutex. */ int __objc_mutex_trylock (objc_mutex_t mutex) { if (mutex_try_lock ((mutex_t) (mutex->backend)) == 0) return -1; else return 0; } /* Unlock the mutex */ int __objc_mutex_unlock (objc_mutex_t mutex) { mutex_unlock ((mutex_t) (mutex->backend)); return 0; } /* Backend condition mutex functions */ /* Allocate a condition. */ int __objc_condition_allocate (objc_condition_t condition) { condition->backend = objc_malloc (sizeof (struct condition)); condition_init ((condition_t) (condition->backend)); return 0; } /* Deallocate a condition. */ int __objc_condition_deallocate (objc_condition_t condition) { condition_clear ((condition_t) (condition->backend)); objc_free (condition->backend); condition->backend = NULL; return 0; } /* Wait on the condition */ int __objc_condition_wait (objc_condition_t condition, objc_mutex_t mutex) { condition_wait ((condition_t) (condition->backend), (mutex_t) (mutex->backend)); return 0; } /* Wake up all threads waiting on this condition. */ int __objc_condition_broadcast (objc_condition_t condition) { condition_broadcast ((condition_t) (condition->backend)); return 0; } /* Wake up one thread waiting on this condition. */ int __objc_condition_signal (objc_condition_t condition) { condition_signal ((condition_t) (condition->backend)); return 0; } /* End of File */ Index: vendor/gcc/dist/contrib/libobjc/thr-objc.c =================================================================== --- vendor/gcc/dist/contrib/libobjc/thr-objc.c (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/thr-objc.c (revision 132722) @@ -1,181 +1,183 @@ /* GNU Objective C Runtime Thread Interface. Copyright (C) 1999 Free Software Foundation, Inc. -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify it under the +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, but WITHOUT ANY +GCC is distributed in the hope that it will be useful, but WITHOUT 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 -along with GNU CC; see the file COPYING. If not, write to +along with GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #define _LIBOBJC #include "tconfig.h" +#include "coretypes.h" +#include "tm.h" #include "defaults.h" #include #include "runtime.h" #include /* Backend initialization functions */ /* Initialize the threads subsystem. */ int __objc_init_thread_system(void) { return __gthread_objc_init_thread_system (); } /* Close the threads subsystem. */ int __objc_close_thread_system(void) { return __gthread_objc_close_thread_system (); } /* Backend thread functions */ /* Create a new thread of execution. */ objc_thread_t __objc_thread_detach(void (*func)(void *), void *arg) { return __gthread_objc_thread_detach (func, arg); } /* Set the current thread's priority. */ int __objc_thread_set_priority(int priority) { return __gthread_objc_thread_set_priority (priority); } /* Return the current thread's priority. */ int __objc_thread_get_priority(void) { return __gthread_objc_thread_get_priority (); } /* Yield our process time to another thread. */ void __objc_thread_yield(void) { __gthread_objc_thread_yield (); } /* Terminate the current thread. */ int __objc_thread_exit(void) { return __gthread_objc_thread_exit (); } /* Returns an integer value which uniquely describes a thread. */ objc_thread_t __objc_thread_id(void) { return __gthread_objc_thread_id (); } /* Sets the thread's local storage pointer. */ int __objc_thread_set_data(void *value) { return __gthread_objc_thread_set_data (value); } /* Returns the thread's local storage pointer. */ void * __objc_thread_get_data(void) { return __gthread_objc_thread_get_data (); } /* Backend mutex functions */ /* Allocate a mutex. */ int __objc_mutex_allocate(objc_mutex_t mutex) { return __gthread_objc_mutex_allocate (mutex); } /* Deallocate a mutex. */ int __objc_mutex_deallocate(objc_mutex_t mutex) { return __gthread_objc_mutex_deallocate (mutex); } /* Grab a lock on a mutex. */ int __objc_mutex_lock(objc_mutex_t mutex) { return __gthread_objc_mutex_lock (mutex); } /* Try to grab a lock on a mutex. */ int __objc_mutex_trylock(objc_mutex_t mutex) { return __gthread_objc_mutex_trylock (mutex); } /* Unlock the mutex */ int __objc_mutex_unlock(objc_mutex_t mutex) { return __gthread_objc_mutex_unlock (mutex); } /* Backend condition mutex functions */ /* Allocate a condition. */ int __objc_condition_allocate(objc_condition_t condition) { return __gthread_objc_condition_allocate (condition); } /* Deallocate a condition. */ int __objc_condition_deallocate(objc_condition_t condition) { return __gthread_objc_condition_deallocate (condition); } /* Wait on the condition */ int __objc_condition_wait(objc_condition_t condition, objc_mutex_t mutex) { return __gthread_objc_condition_wait (condition, mutex); } /* Wake up all threads waiting on this condition. */ int __objc_condition_broadcast(objc_condition_t condition) { return __gthread_objc_condition_broadcast (condition); } /* Wake up one thread waiting on this condition. */ int __objc_condition_signal(objc_condition_t condition) { return __gthread_objc_condition_signal (condition); } /* End of File */ Index: vendor/gcc/dist/contrib/libobjc/thr-os2.c =================================================================== --- vendor/gcc/dist/contrib/libobjc/thr-os2.c (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/thr-os2.c (revision 132722) @@ -1,267 +1,267 @@ /* GNU Objective C Runtime Thread Interface - OS/2 emx Implementation Copyright (C) 1996, 1997 Free Software Foundation, Inc. Contributed by Thomas Baier (baier@ci.tuwien.ac.at) -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify it under the +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, but WITHOUT ANY +GCC is distributed in the hope that it will be useful, but WITHOUT 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 -along with GNU CC; see the file COPYING. If not, write to +along with GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #include #include "runtime.h" #define INCL_DOSSEMAPHORES #define INCL_DOSPROCESS /* * conflicts with objc.h: SEL, BOOL, id * solution: prefixing those with _OS2_ before including */ #define SEL _OS2_SEL #define BOOL _OS2_BOOL #define id _OS2_id #include #undef id #undef SEL #undef BOOL #include /* Backend initialization functions */ /* Initialize the threads subsystem. */ int __objc_init_thread_system(void) { return 0; } /* Close the threads subsystem. */ int __objc_close_thread_system(void) { return 0; } /* Backend thread functions */ /* Create a new thread of execution. */ objc_thread_t __objc_thread_detach(void (*func)(void *arg), void *arg) { int thread_id = 0; if ((thread_id = _beginthread (func,NULL,32768,arg)) < 0) thread_id = 0; return (objc_thread_t)thread_id; } /* Set the current thread's priority. */ int __objc_thread_set_priority(int priority) { ULONG sys_class = 0; ULONG sys_priority = 0; /* OBJC_THREAD_INTERACTIVE_PRIORITY -> PRTYC_FOREGROUNDSERVER * OBJC_THREAD_BACKGROUND_PRIORITY -> PRTYC_REGULAR * OBJC_THREAD_LOW_PRIORITY -> PRTYC_IDLETIME */ switch (priority) { case OBJC_THREAD_INTERACTIVE_PRIORITY: sys_class = PRTYC_REGULAR; sys_priority = 10; break; default: case OBJC_THREAD_BACKGROUND_PRIORITY: sys_class = PRTYC_IDLETIME; sys_priority = 25; break; case OBJC_THREAD_LOW_PRIORITY: sys_class = PRTYC_IDLETIME; sys_priority = 0; break; } /* Change priority */ if (!DosSetPriority (PRTYS_THREAD,sys_class,sys_priority,*_threadid)) return 0; else return -1; } /* Return the current thread's priority. */ int __objc_thread_get_priority(void) { PTIB ptib; PPIB ppib; /* get information about current thread */ DosGetInfoBlocks (&ptib,&ppib); switch (ptib->tib_ptib2->tib2_ulpri) { case PRTYC_IDLETIME: case PRTYC_REGULAR: case PRTYC_TIMECRITICAL: case PRTYC_FOREGROUNDSERVER: default: return OBJC_THREAD_INTERACTIVE_PRIORITY; } return -1; } /* Yield our process time to another thread. */ void __objc_thread_yield(void) { DosSleep (0); } /* Terminate the current thread. */ int __objc_thread_exit(void) { /* terminate the thread, NEVER use DosExit () */ _endthread (); /* Failed if we reached here */ return -1; } /* Returns an integer value which uniquely describes a thread. */ objc_thread_t __objc_thread_id(void) { return (objc_thread_t) *_threadid; } /* Sets the thread's local storage pointer. */ int __objc_thread_set_data(void *value) { *_threadstore () = value; return 0; } /* Returns the thread's local storage pointer. */ void * __objc_thread_get_data(void) { return *_threadstore (); } /* Backend mutex functions */ /* Allocate a mutex. */ int __objc_mutex_allocate(objc_mutex_t mutex) { if (DosCreateMutexSem (NULL, (HMTX)(&(mutex->backend)),0L,0) > 0) return -1; else return 0; } /* Deallocate a mutex. */ int __objc_mutex_deallocate(objc_mutex_t mutex) { DosCloseMutexSem ((HMTX)(mutex->backend)); return 0; } /* Grab a lock on a mutex. */ int __objc_mutex_lock(objc_mutex_t mutex) { if (DosRequestMutexSem ((HMTX)(mutex->backend),-1L) != 0) return -1; else return 0; } /* Try to grab a lock on a mutex. */ int __objc_mutex_trylock(objc_mutex_t mutex) { if (DosRequestMutexSem ((HMTX)(mutex->backend),0L) != 0) return -1; else return 0; } /* Unlock the mutex */ int __objc_mutex_unlock(objc_mutex_t mutex) { if (DosReleaseMutexSem((HMTX)(mutex->backend)) != 0) return -1; else return 0; } /* Backend condition mutex functions */ /* Allocate a condition. */ int __objc_condition_allocate(objc_condition_t condition) { /* Unimplemented. */ return -1; } /* Deallocate a condition. */ int __objc_condition_deallocate(objc_condition_t condition) { /* Unimplemented. */ return -1; } /* Wait on the condition */ int __objc_condition_wait(objc_condition_t condition, objc_mutex_t mutex) { /* Unimplemented. */ return -1; } /* Wake up all threads waiting on this condition. */ int __objc_condition_broadcast(objc_condition_t condition) { /* Unimplemented. */ return -1; } /* Wake up one thread waiting on this condition. */ int __objc_condition_signal(objc_condition_t condition) { /* Unimplemented. */ return -1; } /* End of File */ Index: vendor/gcc/dist/contrib/libobjc/thr-posix.c =================================================================== --- vendor/gcc/dist/contrib/libobjc/thr-posix.c (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/thr-posix.c (revision 132722) @@ -1,318 +1,318 @@ /* GNU Objective C Runtime Thread Interface for POSIX compliant threads Copyright (C) 1996, 1997 Free Software Foundation, Inc. Contributed by Galen C. Hunt (gchunt@cs.rochester.edu) Modified for Linux/Pthreads by Kai-Uwe Sattler (kus@iti.cs.uni-magdeburg.de) Modified for posix compliance by Chris Ball (cball@fmco.com) -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify it under the +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, but WITHOUT ANY +GCC is distributed in the hope that it will be useful, but WITHOUT 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 -along with GNU CC; see the file COPYING. If not, write to +along with GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #include #include "runtime.h" #include /* Key structure for maintaining thread specific storage */ static pthread_key_t _objc_thread_storage; static pthread_attr_t _objc_thread_attribs; /* Backend initialization functions */ /* Initialize the threads subsystem. */ int __objc_init_thread_system(void) { /* Initialize the thread storage key */ if (pthread_key_create(&_objc_thread_storage, NULL) == 0) { /* * The normal default detach state for threads is PTHREAD_CREATE_JOINABLE * which causes threads to not die when you think they should. */ if (pthread_attr_init(&_objc_thread_attribs) == 0) { if (pthread_attr_setdetachstate(&_objc_thread_attribs, PTHREAD_CREATE_DETACHED) == 0) return 0; } } return -1; } /* Close the threads subsystem. */ int __objc_close_thread_system(void) { if (pthread_key_delete(_objc_thread_storage) == 0) { if (pthread_attr_destroy(&_objc_thread_attribs) == 0) return 0; } return -1; } /* Backend thread functions */ /* Create a new thread of execution. */ objc_thread_t __objc_thread_detach(void (*func)(void *arg), void *arg) { objc_thread_t thread_id; pthread_t new_thread_handle; if (!(pthread_create(&new_thread_handle, &_objc_thread_attribs, (void *)func, arg))) thread_id = *(objc_thread_t *)&new_thread_handle; else thread_id = NULL; return thread_id; } /* Set the current thread's priority. * * Be aware that the default schedpolicy often disallows thread priorities. */ int __objc_thread_set_priority(int priority) { pthread_t thread_id = pthread_self(); int policy; struct sched_param params; int priority_min, priority_max; if (pthread_getschedparam(thread_id, &policy, ¶ms) == 0) { if ((priority_max = sched_get_priority_max(policy)) != 0) return -1; if ((priority_min = sched_get_priority_min(policy)) != 0) return -1; if (priority > priority_max) priority = priority_max; else if (priority < priority_min) priority = priority_min; params.sched_priority = priority; /* * The solaris 7 and several other man pages incorrectly state that * this should be a pointer to policy but pthread.h is universally * at odds with this. */ if (pthread_setschedparam(thread_id, policy, ¶ms) == 0) return 0; } return -1; } /* Return the current thread's priority. */ int __objc_thread_get_priority(void) { int policy; struct sched_param params; if (pthread_getschedparam(pthread_self(), &policy, ¶ms) == 0) return params.sched_priority; else return -1; } /* Yield our process time to another thread. */ void __objc_thread_yield(void) { sched_yield(); } /* Terminate the current thread. */ int __objc_thread_exit(void) { /* exit the thread */ pthread_exit(&__objc_thread_exit_status); /* Failed if we reached here */ return -1; } /* Returns an integer value which uniquely describes a thread. */ objc_thread_t __objc_thread_id(void) { pthread_t self = pthread_self(); return *(objc_thread_t *)&self; } /* Sets the thread's local storage pointer. */ int __objc_thread_set_data(void *value) { if (pthread_setspecific(_objc_thread_storage, value) == 0) return 0; else return -1; } /* Returns the thread's local storage pointer. */ void * __objc_thread_get_data(void) { return pthread_getspecific(_objc_thread_storage); } /* Backend mutex functions */ /* Allocate a mutex. */ int __objc_mutex_allocate(objc_mutex_t mutex) { mutex->backend = objc_malloc(sizeof(pthread_mutex_t)); if (pthread_mutex_init((pthread_mutex_t *)mutex->backend, NULL)) { objc_free(mutex->backend); mutex->backend = NULL; return -1; } return 0; } /* Deallocate a mutex. */ int __objc_mutex_deallocate(objc_mutex_t mutex) { int count = 1; /* * Posix Threads specifically require that the thread be unlocked for * pthread_mutex_destroy to work. */ while (count) { if ((count = pthread_mutex_unlock((pthread_mutex_t*)mutex->backend)) < 0) return -1; } if (pthread_mutex_destroy((pthread_mutex_t *)mutex->backend)) return -1; objc_free(mutex->backend); mutex->backend = NULL; return 0; } /* Grab a lock on a mutex. */ int __objc_mutex_lock(objc_mutex_t mutex) { if (pthread_mutex_lock((pthread_mutex_t *)mutex->backend) == 0) return 0; else return -1; } /* Try to grab a lock on a mutex. */ int __objc_mutex_trylock(objc_mutex_t mutex) { if (pthread_mutex_trylock((pthread_mutex_t *)mutex->backend) == 0) return 0; else return -1; } /* Unlock the mutex */ int __objc_mutex_unlock(objc_mutex_t mutex) { if (pthread_mutex_unlock((pthread_mutex_t *)mutex->backend) == 0) return 0; else return -1; } /* Backend condition mutex functions */ /* Allocate a condition. */ int __objc_condition_allocate(objc_condition_t condition) { condition->backend = objc_malloc(sizeof(pthread_cond_t)); if (pthread_cond_init((pthread_cond_t *)condition->backend, NULL)) { objc_free(condition->backend); condition->backend = NULL; return -1; } return 0; } /* Deallocate a condition. */ int __objc_condition_deallocate(objc_condition_t condition) { if (pthread_cond_destroy((pthread_cond_t *)condition->backend)) return -1; objc_free(condition->backend); condition->backend = NULL; return 0; } /* Wait on the condition */ int __objc_condition_wait(objc_condition_t condition, objc_mutex_t mutex) { if (pthread_cond_wait((pthread_cond_t *)condition->backend, (pthread_mutex_t *)mutex->backend) == 0) return 0; else return -1; } /* Wake up all threads waiting on this condition. */ int __objc_condition_broadcast(objc_condition_t condition) { if (pthread_cond_broadcast((pthread_cond_t *)condition->backend) == 0) return 0; else return -1; } /* Wake up one thread waiting on this condition. */ int __objc_condition_signal(objc_condition_t condition) { if (pthread_cond_signal((pthread_cond_t *)condition->backend) == 0) return 0; else return -1; } Index: vendor/gcc/dist/contrib/libobjc/thr-pthreads.c =================================================================== --- vendor/gcc/dist/contrib/libobjc/thr-pthreads.c (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/thr-pthreads.c (revision 132722) @@ -1,218 +1,218 @@ /* GNU Objective C Runtime Thread Implementation for PCThreads under GNU/Linux. Copyright (C) 1996, 1997 Free Software Foundation, Inc. Contributed by Scott Christley Condition functions added by: Mircea Oancea -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify it under the +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, but WITHOUT ANY +GCC is distributed in the hope that it will be useful, but WITHOUT 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 -along with GNU CC; see the file COPYING. If not, write to +along with GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #include #include #include "runtime.h" /* Key structure for maintaining thread specific storage */ static pthread_key_t _objc_thread_storage; /* Backend initialization functions */ /* Initialize the threads subsystem. */ int __objc_init_thread_system(void) { /* Initialize the thread storage key */ return pthread_key_create(&_objc_thread_storage, NULL); } /* Close the threads subsystem. */ int __objc_close_thread_system(void) { /* Destroy the thread storage key */ /* Not implemented yet */ /* return pthread_key_delete(&_objc_thread_storage); */ return 0; } /* Backend thread functions */ /* Create a new thread of execution. */ objc_thread_t __objc_thread_detach(void (*func)(void *arg), void *arg) { objc_thread_t thread_id; pthread_t new_thread_handle; if ( !(pthread_create(&new_thread_handle, NULL, (void *)func, arg)) ) thread_id = *(objc_thread_t *)&new_thread_handle; else thread_id = NULL; return thread_id; } /* Set the current thread's priority. */ int __objc_thread_set_priority(int priority) { /* Not implemented yet */ return -1; } /* Return the current thread's priority. */ int __objc_thread_get_priority(void) { /* Not implemented yet */ return OBJC_THREAD_INTERACTIVE_PRIORITY; } /* Yield our process time to another thread. */ void __objc_thread_yield(void) { pthread_yield(NULL); } /* Terminate the current thread. */ int __objc_thread_exit(void) { /* exit the thread */ pthread_exit(&__objc_thread_exit_status); /* Failed if we reached here */ return -1; } /* Returns an integer value which uniquely describes a thread. */ objc_thread_t __objc_thread_id(void) { pthread_t self = pthread_self(); return *(objc_thread_t *)&self; } /* Sets the thread's local storage pointer. */ int __objc_thread_set_data(void *value) { return pthread_setspecific(_objc_thread_storage, value); } /* Returns the thread's local storage pointer. */ void * __objc_thread_get_data(void) { void *value = NULL; if ( !(pthread_getspecific(_objc_thread_storage, &value)) ) return value; return NULL; } /* Backend mutex functions */ /* Allocate a mutex. */ int __objc_mutex_allocate(objc_mutex_t mutex) { if (pthread_mutex_init((pthread_mutex_t *)(&(mutex->backend)), NULL)) return -1; else return 0; } /* Deallocate a mutex. */ int __objc_mutex_deallocate(objc_mutex_t mutex) { if (pthread_mutex_destroy((pthread_mutex_t *)(&(mutex->backend)))) return -1; else return 0; } /* Grab a lock on a mutex. */ int __objc_mutex_lock(objc_mutex_t mutex) { return pthread_mutex_lock((pthread_mutex_t *)(&(mutex->backend))); } /* Try to grab a lock on a mutex. */ int __objc_mutex_trylock(objc_mutex_t mutex) { return pthread_mutex_trylock((pthread_mutex_t *)(&(mutex->backend))); } /* Unlock the mutex */ int __objc_mutex_unlock(objc_mutex_t mutex) { return pthread_mutex_unlock((pthread_mutex_t *)(&(mutex->backend))); } /* Backend condition mutex functions */ /* Allocate a condition. */ int __objc_condition_allocate(objc_condition_t condition) { if (pthread_cond_init((pthread_cond_t *)(&(condition->backend)), NULL)) return -1; else return 0; } /* Deallocate a condition. */ int __objc_condition_deallocate(objc_condition_t condition) { return pthread_cond_destroy((pthread_cond_t *)(&(condition->backend))); } /* Wait on the condition */ int __objc_condition_wait(objc_condition_t condition, objc_mutex_t mutex) { return pthread_cond_wait((pthread_cond_t *)(&(condition->backend)), (pthread_mutex_t *)(&(mutex->backend))); } /* Wake up all threads waiting on this condition. */ int __objc_condition_broadcast(objc_condition_t condition) { return pthread_cond_broadcast((pthread_cond_t *)(&(condition->backend))); } /* Wake up one thread waiting on this condition. */ int __objc_condition_signal(objc_condition_t condition) { return pthread_cond_signal((pthread_cond_t *)(&(condition->backend))); } /* End of File */ Index: vendor/gcc/dist/contrib/libobjc/thr-rtems.c =================================================================== --- vendor/gcc/dist/contrib/libobjc/thr-rtems.c (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/thr-rtems.c (revision 132722) @@ -1,194 +1,194 @@ /* GNU Objective C Runtime Thread Implementation Copyright (C) 1996, 1997 Free Software Foundation, Inc. Contributed by Galen C. Hunt (gchunt@cs.rochester.edu) Renamed from thr-vxworks.c to thr-rtems.c by Ralf Corsepius (corsepiu@faw.uni-ulm.de) -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify it under the +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, but WITHOUT ANY +GCC is distributed in the hope that it will be useful, but WITHOUT 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 along with -GNU CC; see the file COPYING. If not, write to the Free Software +GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #include #include "runtime.h" /* Thread local storage for a single thread */ static void *thread_local_storage = NULL; /* Backend initialization functions */ /* Initialize the threads subsystem. */ int __objc_init_thread_system(void) { /* No thread support available */ return -1; } /* Close the threads subsystem. */ int __objc_close_thread_system(void) { /* No thread support available */ return -1; } /* Backend thread functions */ /* Create a new thread of execution. */ objc_thread_t __objc_thread_detach(void (*func)(void *arg), void *arg) { /* No thread support available */ return NULL; } /* Set the current thread's priority. */ int __objc_thread_set_priority(int priority) { /* No thread support available */ return -1; } /* Return the current thread's priority. */ int __objc_thread_get_priority(void) { return OBJC_THREAD_INTERACTIVE_PRIORITY; } /* Yield our process time to another thread. */ void __objc_thread_yield(void) { return; } /* Terminate the current thread. */ int __objc_thread_exit(void) { /* No thread support available */ /* Should we really exit the program */ /* exit(&__objc_thread_exit_status); */ return -1; } /* Returns an integer value which uniquely describes a thread. */ objc_thread_t __objc_thread_id(void) { /* No thread support, use 1. */ return (objc_thread_t)1; } /* Sets the thread's local storage pointer. */ int __objc_thread_set_data(void *value) { thread_local_storage = value; return 0; } /* Returns the thread's local storage pointer. */ void * __objc_thread_get_data(void) { return thread_local_storage; } /* Backend mutex functions */ /* Allocate a mutex. */ int __objc_mutex_allocate(objc_mutex_t mutex) { return 0; } /* Deallocate a mutex. */ int __objc_mutex_deallocate(objc_mutex_t mutex) { return 0; } /* Grab a lock on a mutex. */ int __objc_mutex_lock(objc_mutex_t mutex) { /* There can only be one thread, so we always get the lock */ return 0; } /* Try to grab a lock on a mutex. */ int __objc_mutex_trylock(objc_mutex_t mutex) { /* There can only be one thread, so we always get the lock */ return 0; } /* Unlock the mutex */ int __objc_mutex_unlock(objc_mutex_t mutex) { return 0; } /* Backend condition mutex functions */ /* Allocate a condition. */ int __objc_condition_allocate(objc_condition_t condition) { return 0; } /* Deallocate a condition. */ int __objc_condition_deallocate(objc_condition_t condition) { return 0; } /* Wait on the condition */ int __objc_condition_wait(objc_condition_t condition, objc_mutex_t mutex) { return 0; } /* Wake up all threads waiting on this condition. */ int __objc_condition_broadcast(objc_condition_t condition) { return 0; } /* Wake up one thread waiting on this condition. */ int __objc_condition_signal(objc_condition_t condition) { return 0; } /* End of File */ Index: vendor/gcc/dist/contrib/libobjc/thr-single.c =================================================================== --- vendor/gcc/dist/contrib/libobjc/thr-single.c (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/thr-single.c (revision 132722) @@ -1,192 +1,192 @@ /* GNU Objective C Runtime Thread Implementation Copyright (C) 1996, 1997 Free Software Foundation, Inc. Contributed by Galen C. Hunt (gchunt@cs.rochester.edu) -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify it under the +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, but WITHOUT ANY +GCC is distributed in the hope that it will be useful, but WITHOUT 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 along with -GNU CC; see the file COPYING. If not, write to the Free Software +GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #include #include "runtime.h" /* Thread local storage for a single thread */ static void *thread_local_storage = NULL; /* Backend initialization functions */ /* Initialize the threads subsystem. */ int __objc_init_thread_system(void) { /* No thread support available */ return -1; } /* Close the threads subsystem. */ int __objc_close_thread_system(void) { /* No thread support available */ return -1; } /* Backend thread functions */ /* Create a new thread of execution. */ objc_thread_t __objc_thread_detach(void (*func)(void *arg), void *arg) { /* No thread support available */ return NULL; } /* Set the current thread's priority. */ int __objc_thread_set_priority(int priority) { /* No thread support available */ return -1; } /* Return the current thread's priority. */ int __objc_thread_get_priority(void) { return OBJC_THREAD_INTERACTIVE_PRIORITY; } /* Yield our process time to another thread. */ void __objc_thread_yield(void) { return; } /* Terminate the current thread. */ int __objc_thread_exit(void) { /* No thread support available */ /* Should we really exit the program */ /* exit(&__objc_thread_exit_status); */ return -1; } /* Returns an integer value which uniquely describes a thread. */ objc_thread_t __objc_thread_id(void) { /* No thread support, use 1. */ return (objc_thread_t)1; } /* Sets the thread's local storage pointer. */ int __objc_thread_set_data(void *value) { thread_local_storage = value; return 0; } /* Returns the thread's local storage pointer. */ void * __objc_thread_get_data(void) { return thread_local_storage; } /* Backend mutex functions */ /* Allocate a mutex. */ int __objc_mutex_allocate(objc_mutex_t mutex) { return 0; } /* Deallocate a mutex. */ int __objc_mutex_deallocate(objc_mutex_t mutex) { return 0; } /* Grab a lock on a mutex. */ int __objc_mutex_lock(objc_mutex_t mutex) { /* There can only be one thread, so we always get the lock */ return 0; } /* Try to grab a lock on a mutex. */ int __objc_mutex_trylock(objc_mutex_t mutex) { /* There can only be one thread, so we always get the lock */ return 0; } /* Unlock the mutex */ int __objc_mutex_unlock(objc_mutex_t mutex) { return 0; } /* Backend condition mutex functions */ /* Allocate a condition. */ int __objc_condition_allocate(objc_condition_t condition) { return 0; } /* Deallocate a condition. */ int __objc_condition_deallocate(objc_condition_t condition) { return 0; } /* Wait on the condition */ int __objc_condition_wait(objc_condition_t condition, objc_mutex_t mutex) { return 0; } /* Wake up all threads waiting on this condition. */ int __objc_condition_broadcast(objc_condition_t condition) { return 0; } /* Wake up one thread waiting on this condition. */ int __objc_condition_signal(objc_condition_t condition) { return 0; } /* End of File */ Index: vendor/gcc/dist/contrib/libobjc/thr-solaris.c =================================================================== --- vendor/gcc/dist/contrib/libobjc/thr-solaris.c (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/thr-solaris.c (revision 132722) @@ -1,259 +1,259 @@ /* GNU Objective C Runtime Thread Interface Copyright (C) 1996, 1997 Free Software Foundation, Inc. Contributed by Galen C. Hunt (gchunt@cs.rochester.edu) Conditions added by Mircea Oancea (mircea@first.elcom.pub.ro) -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify it under the +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, but WITHOUT ANY +GCC is distributed in the hope that it will be useful, but WITHOUT 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 along with -GNU CC; see the file COPYING. If not, write to the Free Software +GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #include #include "runtime.h" #include #include #include /* Key structure for maintaining thread specific storage */ static thread_key_t __objc_thread_data_key; /* Backend initialization functions */ /* Initialize the threads subsystem. */ int __objc_init_thread_system(void) { /* Initialize the thread storage key */ if (thr_keycreate(&__objc_thread_data_key, NULL) == 0) return 0; else return -1; } /* Close the threads subsystem. */ int __objc_close_thread_system(void) { return 0; } /* Backend thread functions */ /* Create a new thread of execution. */ objc_thread_t __objc_thread_detach(void (*func)(void *arg), void *arg) { objc_thread_t thread_id; thread_t new_thread_id = 0; if (thr_create(NULL, 0, (void *)func, arg, THR_DETACHED | THR_NEW_LWP, &new_thread_id) == 0) thread_id = *(objc_thread_t *)&new_thread_id; else thread_id = NULL; return thread_id; } /* Set the current thread's priority. */ int __objc_thread_set_priority(int priority) { int sys_priority = 0; switch (priority) { case OBJC_THREAD_INTERACTIVE_PRIORITY: sys_priority = 300; break; default: case OBJC_THREAD_BACKGROUND_PRIORITY: sys_priority = 200; break; case OBJC_THREAD_LOW_PRIORITY: sys_priority = 1000; break; } /* Change priority */ if (thr_setprio(thr_self(), sys_priority) == 0) return 0; else return -1; } /* Return the current thread's priority. */ int __objc_thread_get_priority(void) { int sys_priority; if (thr_getprio(thr_self(), &sys_priority) == 0) { if (sys_priority >= 250) return OBJC_THREAD_INTERACTIVE_PRIORITY; else if (sys_priority >= 150) return OBJC_THREAD_BACKGROUND_PRIORITY; return OBJC_THREAD_LOW_PRIORITY; } /* Couldn't get priority. */ return -1; } /* Yield our process time to another thread. */ void __objc_thread_yield(void) { thr_yield(); } /* Terminate the current thread. */ int __objc_thread_exit(void) { /* exit the thread */ thr_exit(&__objc_thread_exit_status); /* Failed if we reached here */ return -1; } /* Returns an integer value which uniquely describes a thread. */ objc_thread_t __objc_thread_id(void) { return (objc_thread_t)thr_self(); } /* Sets the thread's local storage pointer. */ int __objc_thread_set_data(void *value) { if (thr_setspecific(__objc_thread_data_key, value) == 0) return 0; else return -1; } /* Returns the thread's local storage pointer. */ void * __objc_thread_get_data(void) { void *value = NULL; if (thr_getspecific(__objc_thread_data_key, &value) == 0) return value; return NULL; } /* Backend mutex functions */ /* Allocate a mutex. */ int __objc_mutex_allocate(objc_mutex_t mutex) { if (mutex_init( (mutex_t *)(&(mutex->backend)), USYNC_THREAD, 0)) return -1; else return 0; } /* Deallocate a mutex. */ int __objc_mutex_deallocate(objc_mutex_t mutex) { mutex_destroy((mutex_t *)(&(mutex->backend))); return 0; } /* Grab a lock on a mutex. */ int __objc_mutex_lock(objc_mutex_t mutex) { if (mutex_lock((mutex_t *)(&(mutex->backend))) != 0) return -1; else return 0; } /* Try to grab a lock on a mutex. */ int __objc_mutex_trylock(objc_mutex_t mutex) { if (mutex_trylock((mutex_t *)(&(mutex->backend))) != 0) return -1; else return 0; } /* Unlock the mutex */ int __objc_mutex_unlock(objc_mutex_t mutex) { if (mutex_unlock((mutex_t *)(&(mutex->backend))) != 0) return -1; else return 0; } /* Backend condition mutex functions */ /* Allocate a condition. */ int __objc_condition_allocate(objc_condition_t condition) { return cond_init((cond_t *)(&(condition->backend)), USYNC_THREAD, NULL); } /* Deallocate a condition. */ int __objc_condition_deallocate(objc_condition_t condition) { return cond_destroy((cond_t *)(&(condition->backend))); } /* Wait on the condition */ int __objc_condition_wait(objc_condition_t condition, objc_mutex_t mutex) { return cond_wait((cond_t *)(&(condition->backend)), (mutex_t *)(&(mutex->backend))); } /* Wake up all threads waiting on this condition. */ int __objc_condition_broadcast(objc_condition_t condition) { return cond_broadcast((cond_t *)(&(condition->backend))); } /* Wake up one thread waiting on this condition. */ int __objc_condition_signal(objc_condition_t condition) { return cond_signal((cond_t *)(&(condition->backend))); } /* End of File */ Index: vendor/gcc/dist/contrib/libobjc/thr-vxworks.c =================================================================== --- vendor/gcc/dist/contrib/libobjc/thr-vxworks.c (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/thr-vxworks.c (revision 132722) @@ -1,192 +1,192 @@ /* GNU Objective C Runtime Thread Implementation Copyright (C) 1996, 1997 Free Software Foundation, Inc. Contributed by Galen C. Hunt (gchunt@cs.rochester.edu) -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify it under the +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, but WITHOUT ANY +GCC is distributed in the hope that it will be useful, but WITHOUT 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 along with -GNU CC; see the file COPYING. If not, write to the Free Software +GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #include #include "runtime.h" /* Thread local storage for a single thread */ static void *thread_local_storage = NULL; /* Backend initialization functions */ /* Initialize the threads subsystem. */ int __objc_init_thread_system(void) { /* No thread support available */ return -1; } /* Close the threads subsystem. */ int __objc_close_thread_system(void) { /* No thread support available */ return -1; } /* Backend thread functions */ /* Create a new thread of execution. */ objc_thread_t __objc_thread_detach(void (*func)(void *arg), void *arg) { /* No thread support available */ return NULL; } /* Set the current thread's priority. */ int __objc_thread_set_priority(int priority) { /* No thread support available */ return -1; } /* Return the current thread's priority. */ int __objc_thread_get_priority(void) { return OBJC_THREAD_INTERACTIVE_PRIORITY; } /* Yield our process time to another thread. */ void __objc_thread_yield(void) { return; } /* Terminate the current thread. */ int __objc_thread_exit(void) { /* No thread support available */ /* Should we really exit the program */ /* exit(&__objc_thread_exit_status); */ return -1; } /* Returns an integer value which uniquely describes a thread. */ objc_thread_t __objc_thread_id(void) { /* No thread support, use 1. */ return (objc_thread_t)1; } /* Sets the thread's local storage pointer. */ int __objc_thread_set_data(void *value) { thread_local_storage = value; return 0; } /* Returns the thread's local storage pointer. */ void * __objc_thread_get_data(void) { return thread_local_storage; } /* Backend mutex functions */ /* Allocate a mutex. */ int __objc_mutex_allocate(objc_mutex_t mutex) { return 0; } /* Deallocate a mutex. */ int __objc_mutex_deallocate(objc_mutex_t mutex) { return 0; } /* Grab a lock on a mutex. */ int __objc_mutex_lock(objc_mutex_t mutex) { /* There can only be one thread, so we always get the lock */ return 0; } /* Try to grab a lock on a mutex. */ int __objc_mutex_trylock(objc_mutex_t mutex) { /* There can only be one thread, so we always get the lock */ return 0; } /* Unlock the mutex */ int __objc_mutex_unlock(objc_mutex_t mutex) { return 0; } /* Backend condition mutex functions */ /* Allocate a condition. */ int __objc_condition_allocate(objc_condition_t condition) { return 0; } /* Deallocate a condition. */ int __objc_condition_deallocate(objc_condition_t condition) { return 0; } /* Wait on the condition */ int __objc_condition_wait(objc_condition_t condition, objc_mutex_t mutex) { return 0; } /* Wake up all threads waiting on this condition. */ int __objc_condition_broadcast(objc_condition_t condition) { return 0; } /* Wake up one thread waiting on this condition. */ int __objc_condition_signal(objc_condition_t condition) { return 0; } /* End of File */ Index: vendor/gcc/dist/contrib/libobjc/thr-win32.c =================================================================== --- vendor/gcc/dist/contrib/libobjc/thr-win32.c (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/thr-win32.c (revision 132722) @@ -1,272 +1,272 @@ /* GNU Objective C Runtime Thread Interface - Win32 Implementation Copyright (C) 1996, 1997 Free Software Foundation, Inc. Contributed by Galen C. Hunt (gchunt@cs.rochester.edu) -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify it under the +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, but WITHOUT ANY +GCC is distributed in the hope that it will be useful, but WITHOUT 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 along with -GNU CC; see the file COPYING. If not, write to the Free Software +GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #include #include "runtime.h" #ifndef __OBJC__ #define __OBJC__ #endif #include /* Key structure for maintaining thread specific storage */ static DWORD __objc_data_tls = (DWORD)-1; /* Backend initialization functions */ /* Initialize the threads subsystem. */ int __objc_init_thread_system(void) { /* Initialize the thread storage key */ if ((__objc_data_tls = TlsAlloc()) != (DWORD)-1) return 0; else return -1; } /* Close the threads subsystem. */ int __objc_close_thread_system(void) { if (__objc_data_tls != (DWORD)-1) TlsFree(__objc_data_tls); return 0; } /* Backend thread functions */ /* Create a new thread of execution. */ objc_thread_t __objc_thread_detach(void (*func)(void *arg), void *arg) { DWORD thread_id = 0; HANDLE win32_handle; if (!(win32_handle = CreateThread(NULL, 0, (LPTHREAD_START_ROUTINE)func, arg, 0, &thread_id))) thread_id = 0; return (objc_thread_t)thread_id; } /* Set the current thread's priority. */ int __objc_thread_set_priority(int priority) { int sys_priority = 0; switch (priority) { case OBJC_THREAD_INTERACTIVE_PRIORITY: sys_priority = THREAD_PRIORITY_NORMAL; break; default: case OBJC_THREAD_BACKGROUND_PRIORITY: sys_priority = THREAD_PRIORITY_BELOW_NORMAL; break; case OBJC_THREAD_LOW_PRIORITY: sys_priority = THREAD_PRIORITY_LOWEST; break; } /* Change priority */ if (SetThreadPriority(GetCurrentThread(), sys_priority)) return 0; else return -1; } /* Return the current thread's priority. */ int __objc_thread_get_priority(void) { int sys_priority; sys_priority = GetThreadPriority(GetCurrentThread()); switch (sys_priority) { case THREAD_PRIORITY_HIGHEST: case THREAD_PRIORITY_TIME_CRITICAL: case THREAD_PRIORITY_ABOVE_NORMAL: case THREAD_PRIORITY_NORMAL: return OBJC_THREAD_INTERACTIVE_PRIORITY; default: case THREAD_PRIORITY_BELOW_NORMAL: return OBJC_THREAD_BACKGROUND_PRIORITY; case THREAD_PRIORITY_IDLE: case THREAD_PRIORITY_LOWEST: return OBJC_THREAD_LOW_PRIORITY; } /* Couldn't get priority. */ return -1; } /* Yield our process time to another thread. */ void __objc_thread_yield(void) { Sleep(0); } /* Terminate the current thread. */ int __objc_thread_exit(void) { /* exit the thread */ ExitThread(__objc_thread_exit_status); /* Failed if we reached here */ return -1; } /* Returns an integer value which uniquely describes a thread. */ objc_thread_t __objc_thread_id(void) { return (objc_thread_t)GetCurrentThreadId(); } /* Sets the thread's local storage pointer. */ int __objc_thread_set_data(void *value) { if (TlsSetValue(__objc_data_tls, value)) return 0; else return -1; } /* Returns the thread's local storage pointer. */ void * __objc_thread_get_data(void) { return TlsGetValue(__objc_data_tls); /* Return thread data. */ } /* Backend mutex functions */ /* Allocate a mutex. */ int __objc_mutex_allocate(objc_mutex_t mutex) { if ((mutex->backend = (void *)CreateMutex(NULL, 0, NULL)) == NULL) return -1; else return 0; } /* Deallocate a mutex. */ int __objc_mutex_deallocate(objc_mutex_t mutex) { CloseHandle((HANDLE)(mutex->backend)); return 0; } /* Grab a lock on a mutex. */ int __objc_mutex_lock(objc_mutex_t mutex) { int status; status = WaitForSingleObject((HANDLE)(mutex->backend), INFINITE); if (status != WAIT_OBJECT_0 && status != WAIT_ABANDONED) return -1; else return 0; } /* Try to grab a lock on a mutex. */ int __objc_mutex_trylock(objc_mutex_t mutex) { int status; status = WaitForSingleObject((HANDLE)(mutex->backend), 0); if (status != WAIT_OBJECT_0 && status != WAIT_ABANDONED) return -1; else return 0; } /* Unlock the mutex */ int __objc_mutex_unlock(objc_mutex_t mutex) { if (ReleaseMutex((HANDLE)(mutex->backend)) == 0) return -1; else return 0; } /* Backend condition mutex functions */ /* Allocate a condition. */ int __objc_condition_allocate(objc_condition_t condition) { /* Unimplemented. */ return -1; } /* Deallocate a condition. */ int __objc_condition_deallocate(objc_condition_t condition) { /* Unimplemented. */ return -1; } /* Wait on the condition */ int __objc_condition_wait(objc_condition_t condition, objc_mutex_t mutex) { /* Unimplemented. */ return -1; } /* Wake up all threads waiting on this condition. */ int __objc_condition_broadcast(objc_condition_t condition) { /* Unimplemented. */ return -1; } /* Wake up one thread waiting on this condition. */ int __objc_condition_signal(objc_condition_t condition) { /* Unimplemented. */ return -1; } /* End of File */ Index: vendor/gcc/dist/contrib/libobjc/thr.c =================================================================== --- vendor/gcc/dist/contrib/libobjc/thr.c (revision 132721) +++ vendor/gcc/dist/contrib/libobjc/thr.c (revision 132722) @@ -1,563 +1,563 @@ /* GNU Objective C Runtime Thread Interface Copyright (C) 1996, 1997 Free Software Foundation, Inc. Contributed by Galen C. Hunt (gchunt@cs.rochester.edu) -This file is part of GNU CC. +This file is part of GCC. -GNU CC is free software; you can redistribute it and/or modify it under the +GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. -GNU CC is distributed in the hope that it will be useful, but WITHOUT ANY +GCC is distributed in the hope that it will be useful, but WITHOUT 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 along with -GNU CC; see the file COPYING. If not, write to the Free Software +GCC; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* As a special exception, if you link this library with files compiled with GCC to produce an executable, this does not 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 General Public License. */ #include #include "runtime.h" /* Global exit status. */ int __objc_thread_exit_status = 0; /* Flag which lets us know if we ever became multi threaded */ int __objc_is_multi_threaded = 0; /* The hook function called when the runtime becomes multi threaded */ objc_thread_callback _objc_became_multi_threaded = NULL; /* Use this to set the hook function that will be called when the runtime initially becomes multi threaded. The hook function is only called once, meaning only when the 2nd thread is spawned, not for each and every thread. It returns the previous hook function or NULL if there is none. A program outside of the runtime could set this to some function so it can be informed; for example, the GNUstep Base Library sets it so it can implement the NSBecomingMultiThreaded notification. */ objc_thread_callback objc_set_thread_callback (objc_thread_callback func) { objc_thread_callback temp = _objc_became_multi_threaded; _objc_became_multi_threaded = func; return temp; } /* Private functions These functions are utilized by the frontend, but they are not considered part of the public interface. */ /* First function called in a thread, starts everything else. This function is passed to the backend by objc_thread_detach as the starting function for a new thread. */ struct __objc_thread_start_state { SEL selector; id object; id argument; }; static volatile void __objc_thread_detach_function (struct __objc_thread_start_state *istate) { /* Valid state? */ if (istate) { id (*imp) (id, SEL, id); SEL selector = istate->selector; id object = istate->object; id argument = istate->argument; /* Don't need anymore so free it */ objc_free (istate); /* Clear out the thread local storage */ objc_thread_set_data (NULL); /* Check to see if we just became multi threaded */ if (! __objc_is_multi_threaded) { __objc_is_multi_threaded = 1; /* Call the hook function */ if (_objc_became_multi_threaded != NULL) (*_objc_became_multi_threaded) (); } /* Call the method */ if ((imp = (id (*) (id, SEL, id))objc_msg_lookup (object, selector))) (*imp) (object, selector, argument); else objc_error (object, OBJC_ERR_UNIMPLEMENTED, "objc_thread_detach called with bad selector.\n"); } else objc_error (nil, OBJC_ERR_BAD_STATE, "objc_thread_detach called with NULL state.\n"); /* Exit the thread */ objc_thread_exit (); } /* Frontend functions These functions constitute the public interface to the Objective-C thread and mutex functionality. */ /* Frontend thread functions */ /* Detach a new thread of execution and return its id. Returns NULL if fails. Thread is started by sending message with selector to object. Message takes a single argument. */ objc_thread_t objc_thread_detach (SEL selector, id object, id argument) { struct __objc_thread_start_state *istate; objc_thread_t thread_id = NULL; /* Allocate the state structure */ if (! (istate = (struct __objc_thread_start_state *) objc_malloc (sizeof (*istate)))) return NULL; /* Initialize the state structure */ istate->selector = selector; istate->object = object; istate->argument = argument; /* lock access */ objc_mutex_lock (__objc_runtime_mutex); /* Call the backend to spawn the thread */ if ((thread_id = __objc_thread_detach ((void *)__objc_thread_detach_function, istate)) == NULL) { /* failed! */ objc_mutex_unlock (__objc_runtime_mutex); objc_free (istate); return NULL; } /* Increment our thread counter */ __objc_runtime_threads_alive++; objc_mutex_unlock (__objc_runtime_mutex); return thread_id; } /* Set the current thread's priority. */ int objc_thread_set_priority (int priority) { /* Call the backend */ return __objc_thread_set_priority (priority); } /* Return the current thread's priority. */ int objc_thread_get_priority (void) { /* Call the backend */ return __objc_thread_get_priority (); } /* Yield our process time to another thread. Any BUSY waiting that is done by a thread should use this function to make sure that other threads can make progress even on a lazy uniprocessor system. */ void objc_thread_yield (void) { /* Call the backend */ __objc_thread_yield (); } /* Terminate the current tread. Doesn't return. Actually, if it failed returns -1. */ int objc_thread_exit (void) { /* Decrement our counter of the number of threads alive */ objc_mutex_lock (__objc_runtime_mutex); __objc_runtime_threads_alive--; objc_mutex_unlock (__objc_runtime_mutex); /* Call the backend to terminate the thread */ return __objc_thread_exit (); } /* Returns an integer value which uniquely describes a thread. Must not be NULL which is reserved as a marker for "no thread". */ objc_thread_t objc_thread_id (void) { /* Call the backend */ return __objc_thread_id (); } /* Sets the thread's local storage pointer. Returns 0 if successful or -1 if failed. */ int objc_thread_set_data (void *value) { /* Call the backend */ return __objc_thread_set_data (value); } /* Returns the thread's local storage pointer. Returns NULL on failure. */ void * objc_thread_get_data (void) { /* Call the backend */ return __objc_thread_get_data (); } /* Frontend mutex functions */ /* Allocate a mutex. Return the mutex pointer if successful or NULL if the allocation failed for any reason. */ objc_mutex_t objc_mutex_allocate (void) { objc_mutex_t mutex; /* Allocate the mutex structure */ if (! (mutex = (objc_mutex_t)objc_malloc (sizeof (struct objc_mutex)))) return NULL; /* Call backend to create the mutex */ if (__objc_mutex_allocate (mutex)) { /* failed! */ objc_free (mutex); return NULL; } /* Initialize mutex */ mutex->owner = NULL; mutex->depth = 0; return mutex; } /* Deallocate a mutex. Note that this includes an implicit mutex_lock to insure that no one else is using the lock. It is legal to deallocate a lock if we have a lock on it, but illegal to deallocate a lock held by anyone else. Returns the number of locks on the thread. (1 for deallocate). */ int objc_mutex_deallocate (objc_mutex_t mutex) { int depth; /* Valid mutex? */ if (! mutex) return -1; /* Acquire lock on mutex */ depth = objc_mutex_lock (mutex); /* Call backend to destroy mutex */ if (__objc_mutex_deallocate (mutex)) return -1; /* Free the mutex structure */ objc_free (mutex); /* Return last depth */ return depth; } /* Grab a lock on a mutex. If this thread already has a lock on this mutex then we increment the lock count. If another thread has a lock on the mutex we block and wait for the thread to release the lock. Returns the lock count on the mutex held by this thread. */ int objc_mutex_lock (objc_mutex_t mutex) { objc_thread_t thread_id; int status; /* Valid mutex? */ if (! mutex) return -1; /* If we already own the lock then increment depth */ thread_id = __objc_thread_id (); if (mutex->owner == thread_id) return ++mutex->depth; /* Call the backend to lock the mutex */ status = __objc_mutex_lock (mutex); /* Failed? */ if (status) return status; /* Successfully locked the thread */ mutex->owner = thread_id; return mutex->depth = 1; } /* Try to grab a lock on a mutex. If this thread already has a lock on this mutex then we increment the lock count and return it. If another thread has a lock on the mutex returns -1. */ int objc_mutex_trylock (objc_mutex_t mutex) { objc_thread_t thread_id; int status; /* Valid mutex? */ if (! mutex) return -1; /* If we already own the lock then increment depth */ thread_id = __objc_thread_id (); if (mutex->owner == thread_id) return ++mutex->depth; /* Call the backend to try to lock the mutex */ status = __objc_mutex_trylock (mutex); /* Failed? */ if (status) return status; /* Successfully locked the thread */ mutex->owner = thread_id; return mutex->depth = 1; } /* Unlocks the mutex by one level. Decrements the lock count on this mutex by one. If the lock count reaches zero, release the lock on the mutex. Returns the lock count on the mutex. It is an error to attempt to unlock a mutex which this thread doesn't hold in which case return -1 and the mutex is unaffected. */ int objc_mutex_unlock (objc_mutex_t mutex) { objc_thread_t thread_id; int status; /* Valid mutex? */ if (! mutex) return -1; /* If another thread owns the lock then abort */ thread_id = __objc_thread_id (); if (mutex->owner != thread_id) return -1; /* Decrement depth and return */ if (mutex->depth > 1) return --mutex->depth; /* Depth down to zero so we are no longer the owner */ mutex->depth = 0; mutex->owner = NULL; /* Have the backend unlock the mutex */ status = __objc_mutex_unlock (mutex); /* Failed? */ if (status) return status; return 0; } /* Frontend condition mutex functions */ /* Allocate a condition. Return the condition pointer if successful or NULL if the allocation failed for any reason. */ objc_condition_t objc_condition_allocate (void) { objc_condition_t condition; /* Allocate the condition mutex structure */ if (! (condition = (objc_condition_t) objc_malloc (sizeof (struct objc_condition)))) return NULL; /* Call the backend to create the condition mutex */ if (__objc_condition_allocate (condition)) { /* failed! */ objc_free (condition); return NULL; } /* Success! */ return condition; } /* Deallocate a condition. Note that this includes an implicit condition_broadcast to insure that waiting threads have the opportunity to wake. It is legal to dealloc a condition only if no other thread is/will be using it. Here we do NOT check for other threads waiting but just wake them up. */ int objc_condition_deallocate (objc_condition_t condition) { /* Broadcast the condition */ if (objc_condition_broadcast (condition)) return -1; /* Call the backend to destroy */ if (__objc_condition_deallocate (condition)) return -1; /* Free the condition mutex structure */ objc_free (condition); return 0; } /* Wait on the condition unlocking the mutex until objc_condition_signal () or objc_condition_broadcast () are called for the same condition. The given mutex *must* have the depth set to 1 so that it can be unlocked here, so that someone else can lock it and signal/broadcast the condition. The mutex is used to lock access to the shared data that make up the "condition" predicate. */ int objc_condition_wait (objc_condition_t condition, objc_mutex_t mutex) { objc_thread_t thread_id; /* Valid arguments? */ if (! mutex || ! condition) return -1; /* Make sure we are owner of mutex */ thread_id = __objc_thread_id (); if (mutex->owner != thread_id) return -1; /* Cannot be locked more than once */ if (mutex->depth > 1) return -1; /* Virtually unlock the mutex */ mutex->depth = 0; mutex->owner = (objc_thread_t)NULL; /* Call the backend to wait */ __objc_condition_wait (condition, mutex); /* Make ourselves owner of the mutex */ mutex->owner = thread_id; mutex->depth = 1; return 0; } /* Wake up all threads waiting on this condition. It is recommended that the called would lock the same mutex as the threads in objc_condition_wait before changing the "condition predicate" and make this call and unlock it right away after this call. */ int objc_condition_broadcast (objc_condition_t condition) { /* Valid condition mutex? */ if (! condition) return -1; return __objc_condition_broadcast (condition); } /* Wake up one thread waiting on this condition. It is recommended that the called would lock the same mutex as the threads in objc_condition_wait before changing the "condition predicate" and make this call and unlock it right away after this call. */ int objc_condition_signal (objc_condition_t condition) { /* Valid condition mutex? */ if (! condition) return -1; return __objc_condition_signal (condition); } /* Make the objc thread system aware that a thread which is managed (started, stopped) by external code could access objc facilities from now on. This is used when you are interfacing with some external non-objc-based environment/system - you must call objc_thread_add () before an alien thread makes any calls to Objective-C. Do not cause the _objc_became_multi_threaded hook to be executed. */ void objc_thread_add (void) { objc_mutex_lock (__objc_runtime_mutex); __objc_is_multi_threaded = 1; __objc_runtime_threads_alive++; objc_mutex_unlock (__objc_runtime_mutex); } /* Make the objc thread system aware that a thread managed (started, stopped) by some external code will no longer access objc and thus can be forgotten by the objc thread system. Call objc_thread_remove () when your alien thread is done with making calls to Objective-C. */ void objc_thread_remove (void) { objc_mutex_lock (__objc_runtime_mutex); __objc_runtime_threads_alive--; objc_mutex_unlock (__objc_runtime_mutex); } /* End of File */